© serviceprofessionalgmbh

Zeigt den Inhalt einer ISPF-Command-Table.

Das Programm

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


Das 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