/* rexx */
trace o
address ispexec "control errors return"   /*                      */
address ispexec "vget zdate"
address tso
   "execio * diskr configds(stem prms. finis"
do x = 1 to prms.0
   prx=prms.x
   prx=strip(prx)
   parse var prx plex";"mem";"rest
   rest=strip(rest)
   do while rest ^= ''
   ....