Example of TSO REXX Allocation Inside ISPF

Create a REXX to allocate the IUI dialog data sets inside of ISPF.

/* REXX */
ADDRESS TSO
“ALLOC F(DMMSGFIL) DA(’$CD.MSG’) SHR REU”
“ALLOC F(DMPUBLIB) DA(’$CD.SDGAPROC’) SHR REU”
“ALTLIB ACTIVATE DATASET(’$CD.SDGAISPC’) APPLICATION(CLIST)”
ADDRESS ISPEXEC
“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