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