/* 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 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