I deal with SFS administration only rarely and I have trouble remembering the fussy syntax for even the more common functions. I put together this little REXX to help me along. It's by no means complete, but maybe some people in the same situation will find it useful. Note K8SYSU: is an example - replace with your own.
------------------------------------------------------------------------
--
/* Menu SFS activities so you don't have to remember */
/* all those commands. */
/* Here aree the file systems to manage. You can have up to 9. */
sfss = "VMSYS: VMSYSU: VMSYSR: K8SYSU: "
Top:
'VMFCLEAR'
say ' Access Query Maintenance'
say ' Userid Space Commands '
say ' ------ ----- -----------'
do i = 1 to words(sfss)
sfs = justify(word(sfss,i),12)
sel1 = justify(i||'1',13)
sel2 = justify(i||'2',13)
sel3 = justify(i||'3',13)
say sfs sel1 sel2 sel3
end
say
say 'Make 2-digit selection:'
parse pull ans .
ans1 = substr(ans,1,1)
ans2 = substr(ans,2,1)
if ans1 < 1 | ans1 > words(sfss) then exit
fs = word(sfss,ans1)
if ans2 = '1' then signal Access
if ans2 = '2' then signal Query
if ans2 = '3' then signal Maint
exit
Access:
'VMFCLEAR'
'pipe',
'CMS Q ENROLL USER FOR ALL' fs,
'| drop 1',
'| pad 12',
'| snake 6 1',
'| console'
say
say 'Type the userid to access:'
parse pull user .
'DIRL' fs||user||'.'
signal Top
Query:
'VMFCLEAR'
'Q FILEPOOL MINIDISK' fs
say
say 'Press ENTER to continue.'
parse pull junk
signal Top
Maint:
say 'Examples -'
say ' enroll user <newuser>' fs '(blocks nnnn'
say ' modify user {+/-}nnnn for <curuser>' fs
say
say 'Press ENTER to continue.'
parse pull junk
signal Top
------------------------------------------------------------
