© 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