/* REXX */ /* */ /* AUTHOR: MARK ZELDEN */ /* */ /* ========================================================== */ /* HLIST BACKUP (BCDS) LINE COMMAND FOR DSN PANEL OPTION 3.4 */ /* THE OUTPUT IS PUT IN A DATA SET AND BROWSED */ /* ========================================================== */ /* ADDRESS ISPEXEC "VGET ZDLDSN SHARED" */ /* TRACE ?I */ arg NAME address TSO if NAME = '' then do say 'PLEASE ENTER DATASET NAME TO LIST:' parse upper pull NAME end address ISPEXEC "CONTROL ERRORS RETURN" ddnm = 'DD'||random(1,99999) /* choose random ddname */ odsn = sysvar(sysuid)||".HLISTB."||ddnm /* */ /* issue hlist command */ /* */ "HLIST DA ("name") BCDS 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"