/* REXX */
/*                           */
/* AUTHOR: MARK ZELDEN       */
/*                           */
 /* =================================================== */
 /* LISTCAT LINE COMMAND FOR DSN PANEL OPTION 3.4       */
 /* ALSO AN ISPF COMMAND IN THE ISPF COMMAND TABLE      */
 /* =================================================== */
 /* ADDRESS ISPEXEC "VGET ZDLDSN SHARED"  */
 /* "LISTC ALL ENT("ZDLDSN")"             */
/* 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  */
junk = msg(off)
"ALLOC FILE("]]ddnm]]") UNIT(VIO) NEW TRACKS SPACE(5,5) DELETE",
" REUSE LRECL(132) RECFM(F B) BLKSIZE(8976)"
junk = msg(on)
/*                                     */
/*  issue listcat cmd and trap output  */
/*                                     */
junk=outtrap(LINE.)
"LISTC ALL ENT("]]name]]")"
retcode = rc
junk=outtrap('off')
/*                                     */
"EXECIO" line.0  "DISKW" ddnm "(STEM LINE. FINIS"
address ISPEXEC "LMINIT DATAID(LIST) DDNAME("]]ddnm]]")"
address ISPEXEC "BROWSE DATAID("]]list")"
address ISPEXEC "LMFREE DATAID("]]list")"
junk = msg(off)
"FREE FI("]]ddnm]]")"
zdlmsg = 'LISTED RC=']]retcode
address ispexec "VPUT ZDLMSG SHARED"