/* REXX */ /* */ /* AUTHOR: MARK ZELDEN */ /* */ /* ========================================================== */ /* HLIST DA LEVEL MIGRATE COMMAND */ /* THE OUTPUT IS PUT IN A DATA SET AND BROWSED */ /* ========================================================== */ /* TRACE ?I */ arg NAME address TSO if NAME = '' then do say 'PLEASE ENTER DATASET NAME LEVEL TO LIST:' parse upper pull NAME end address ISPEXEC "CONTROL ERRORS RETURN" ddnm = 'DD'||random(1,99999) /* choose random ddname */ odsn = sysvar(sysuid)||".HLISTML."||ddnm /* */ /* issue hlist command */ /* */ "HLIST DA LEVEL("name") MCDS ODS('"|| odsn || "')" /* */ retcode = rc address ISPEXEC "BROWSE DATASET('"|| odsn || "')" zdlmsg = 'LISTED RC='||retcode junk =msg(off) "DELETE '"|| odsn || "'" junk =msg(on) address ispexec "VPUT ZDLMSG SHARED"