USS Sample - List mount file system

Sample
USS - Sample

 

Beispiel:                                 

/* REXX YUSSBSP4  Copyright YCOS Yves Colliard Software 1990-2013 */
/*----------------------------------------------------------------*/
/* USS Sample - List mount file system                            */
/*----------------------------------------------------------------*/
/* Sample                                                         */
/* USS - Sample                                                   */
/*================================================================*/
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
say syscalls('ON')
address syscall 'getmntent mnt.'
say retval /* chars */
do j=1 to mnt.0
  say "-------------------"
  say "MNTE_FSTYPE        " mnt.MNTE_FSTYPE.j
  say "MNTE_AGGRNAME      " mnt.MNTE_AGGRNAME.j
  say "MNTE_DD            " mnt.MNTE_DD.j
  say "MNTE_DEV           " mnt.MNTE_DEV.j
  say "MNTE_FILETAG       " mnt.MNTE_FILETAG.j
  say "MNTE_FROMSYS       " mnt.MNTE_FROMSYS.j
  say "MNTE_FSNAME        " mnt.MNTE_FSNAME.j
 
say "MNTE_MODE          " mnt.MNTE_MODE.j
  
if mnt.MNTE_MODE.j>=MNT_MODE_SECACL then do
     
say MNT_MODE_SECACL     'ACL SUPPORT'     /* 128 */
      mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_SECACL
  
end
   if mnt.MNTE_MODE.j>=MNT_MODE_AUNMOUNT then do
      say MNT_MODE_AUNMOUNT   'UNMOUNT'         /*  64 */
      mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_AUNMOUNT
   end
   if mnt.MNTE_MODE.j>=MNT_MODE_CLIENT then do
     
say MNT_MODE_CLIENT     'CLIENT'          /*  32 */
      mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_CLIENT
  
end
   if mnt.MNTE_MODE.j>=MNT_MODE_NOAUTOMOVE then do
      say MNT_MODE_NOAUTOMOVE 'NOAUTOMOUNT'     /*  16 */
      mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_NOAUTOMOVE
   end
   if mnt.MNTE_MODE.j>=MNT_MODE_NOSEC  then do
      say MNT_MODE_NOSEC      'NO SECURITY'     /*   8 */
     
mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_NOSEC
  
end
   if mnt.MNTE_MODE.j>=MNT_MODE_EXPORT then do
     
say MNT_MODE_EXPORT     'EXPORT'          /*   4 */
      mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_EXPORT
  
end
   if mnt.MNTE_MODE.j>=MNT_MODE_NOSETID then do
      say MNT_MODE_NOSETID    'NO SETID'        /*   2 */
     
mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_NOSETID
  
end
   if mnt.MNTE_MODE.j>=MNT_MODE_RDONLY then do
      say MNT_MODE_RDONLY     'R/O'             /*   1 */
     
mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_RDONLY
  
end
   else do
     if mnt.MNTE_MODE.j>=MNT_MODE_RDWR   then do
        say MNT_MODE_RDWR       'R/W'           /*   0 */
       
mnt.MNTE_MODE.j=mnt.MNTE_MODE.j-MNT_MODE_RDWR
    
end
  end
  say "MNTE_PARM          " mnt.MNTE_PARM.j
  say "MNTE_PATH          " mnt.MNTE_PATH.j
  say "MNTE_STATUS        " mnt.MNTE_STATUS.j
   if mnt.MNTE_STATUS.j>=MNT_ASYNCHMOUNT        then do
      say MNT_ASYNCHMOUNT     'ASYNC MOUNT'       /* 130 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_ASYNCHMOUNT
   end
   if mnt.MNTE_STATUS.j>=MNT_MOUNTINPROGRESS    then do
      say MNT_MOUNTINPROGRESS 'MOUNT PROGRESS'    /* 129 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_MOUNTINPROGRESS
   end
   if mnt.MNTE_STATUS.j>=MNT_QUIESCED           then do
      say MNT_QUIESCED        'QUIESCED'          /* 128 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_QUIESCED
   end
   if mnt.MNTE_STATUS.j>=MNT_IMMEDTRIED         then do
      say MNT_IMMEDTRIED      'IMMED FAILED'      /*  64 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_IMMEDTRIED
   end
   if mnt.MNTE_STATUS.j>=MNT_FILENORM           then do
      say MNT_FILENORM        'NORMAL'            /*  32 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_FILENORM
   end
   if mnt.MNTE_STATUS.j>=MNT_FILEIMMED          then do
      say MNT_FILEIMMED       'IMMED'             /*  16 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_FILEIMMED
   end
   if mnt.MNTE_STATUS.j>=MNT_FILEFORCE          then do
      say MNT_FILEFORCE       'FORCE'             /*   8 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_FILEFORCE
   end
   if mnt.MNTE_STATUS.j>=MNT_FILEDRAIN          then do
      say MNT_FILEDRAIN       'DRAIN'             /*   4 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_FILEDRAIN
   end
   if mnt.MNTE_STATUS.j>=MNT_FILERESET          then do
     
say MNT_FILERESET       'RESET'             /*   2 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_FILERESET
   end
   if mnt.MNTE_STATUS.j>=MNT_FILEDEAD           then do
      say MNT_FILEDEAD        'DEAD'              /*   1 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_FILEDEAD
   end
   if mnt.MNTE_STATUS.j>=MNT_FILEACTIVE         then do
      say MNT_FILEACTIVE      'ACTIVE'            /*   0 */
      mnt.MNTE_STATUS.j=mnt.MNTE_STATUS.j-MNT_FILEACTIVE
   end
  say "MNTE_STATUS2       " mnt.MNTE_STATUS2.j
  say "MNTE_SYSLIST       " mnt.MNTE_SYSLIST.j
  say "MNTE_SYSNAME       " mnt.MNTE_SYSNAME.j
  say "MNTE_TYPE          " mnt.MNTE_TYPE.j
end