Example of TSO REXX Allocation Inside ISPF

Edit online

Create a REXX to allocate the IUI dialog data sets inside of ISPF. Note that TSOLIB cannot be used inside ISPF or in a REXX.

In the following example, DMNETMAP, DMMSGFIL, and DMPUBLIB are specified via generic LIBDEF.

/* REXX */
ADDRESS TSO
“ALTLIB ACTIVATE DATASET('$CD.SDGAISPC') APPLICATION(CLIST)”
ADDRESS ISPEXEC
“LIBDEF DMNETMAP DATASET ID(‘$CD.NETMAP')   STACK”
“LIBDEF DMMSGFIL DATASET ID(‘$CD.MSG')      STACK”
“LIBDEF DMPUBLIB DATASET ID(‘$CD.SDGAPROC') STACK”
“LIBDEF ISPLLIB  DATASET ID(‘$CD.SDGALINK') STACK”
“LIBDEF ISPMLIB  DATASET ID(‘$CD.SDGAMENU') STACK”
“LIBDEF ISPPLIB  DATASET ID(‘$CD.SDGAPENU') STACK”
“LIBDEF ISPSLIB  DATASET ID(‘$CD.SDGASENU') STACK”
EXIT 0