/* REXX */                                                                      
/*                                       */                                     
/* AUTHOR: Mark Zelden                   */                                     
/*                                       */                                     
/* Last update:  02/14/2005              */                                     
/*****************************************************************/             
/*  XDSLIST - DSLIST (ISPF 3.4) from anywhere.                   */             
/*                                                               */             
/*  Best used when set up in the ISPF command table with an      */             
/*  abbreviation of "XD".                                        */             
/*    VERB      T   ACTION                                       */             
/*    XDSLIST   2   SELECT CMD(%XDSLIST &ZPARM) NEWAPPL(ISR)     */             
/*                                                               */             
/*****************************************************************/             
/* COMMAND SYNTAX:                                               */             
/*                                                               */             
/*  XD dsname.level   <volser>    (VOLSER is optional)           */             
/*                                                               */             
/*  XD           (USERID.* is used as dsname level by default)   */             
/*  XD SYS1.ISF                                                  */             
/*  XD SYS2.*.PROCLIB                                            */             
/*  XD SYS2.NOTCAT USER01                                        */             
/*                                                               */             
/*  Note: If single quotes are used around the DSNLEV then       */             
/*  they will be automatically removed.                          */             
/*                                                               */             
/*  If not set up as an ISPF command, then you can still         */             
/*  invoke the exec by typing:   TSO %XDSLIST dsname.level       */             
/*****************************************************************/             
Parse UPPER ARG DSNLEV VOL                                                      
                                                                                
If DSNLEV= '' then do               /* no DSNLEV specified           */         
  UID    = Sysvar('SYSUID')         /* tso userid                    */         
  DSNLEV = UID || '.*'              /* use USERID.* as default       */         
End                                                                             
Else DSNLEV = Strip(Translate(DSNLEV,"","'"))  /* remove any quotes  */         
                                                                                
Address ISPEXEC                                                                 
"LMDINIT LISTID(XDSLIST) LEVEL("DSNLEV") VOLUME("VOL")"                         
"LMDDISP LISTID("XDSLIST")"                                                     
If RC <> 0 then "SETMSG MSG("ZERRMSG")"                                         
Exit RC