©
serviceprofessionalgmbh
Displays the buildup of an ISPF command table.
The Program
/* REXX
*/
TRACE ?R
ARG DSN TABLE
DSN="'SE01.TOOL.TABLES'"
TABLE="ATSTCMDS"
IF LENGTH(DSN) = 0 THEN DO
ZEDSMSG = ''
ZEDLMSG = 'PRNTCMDS SYNTAX: %PRNTCMDS DSN TABLE'
ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"
EXIT 12
END
IF LENGTH(TABLE) = 0 THEN DO
ZEDSMSG = ''
ZEDLMSG = 'PRNTCMDS SYNTAX: %PRNTCMDS DSN TABLE'
ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"
EXIT 12
END
ADDRESS ISPEXEC
"LIBDEF TAB DATASET ID("DSN")"
"TBOPEN" TABLE "LIBRARY(TAB)"
"FTOPEN TEMP"
"FTINCL PRNTCMDS"
"FTCLOSE"
"TBEND" TABLE
"LIBDEF TAB"
"VGET (ZTEMPF ZTEMPN)"
"LMINIT DATAID(DID) DDNAME(&ZTEMPN)"
"VIEW DATAID(&DID)"
"LMFREE DATAID(&DID)"
EXIT
The Skeleton
)DEFAULT )&?!<$>
)CM SKELETON NAME: PRNTCMDS
)TB 20
ISPF COMMAND TABLE
TABLENAME: &TABLE
FROM DSN: &DSN
-------------------------------------------------
)BLANK 2
)DOT &TABLE
CMD: &ZCTVERB ! TRUNC: &ZCTTRUNC
ACTION: &ZCTACT
DESC: &ZCTDESC
)BLANK
)ENDDOT
back to REXX with ISPF