Example of TSO CLIST Allocation Inside ISPF

You can allocate DMMSGFIL and DMPUBLIB inside ISPF by using the TSO ALLOCATE command, and free it by using the TSO FREE command. The ISPF application component data sets must be allocated by using LIBDEF, since ISP*LIB DDs cannot be altered from inside ISPF. Also, although SYSPROC can be reallocated inside ISPF, it is easier to use the TSO ALTLIB command to direct the IUI application to the Connect:Direct CLIST/REXX PDS.

Create a CLIST to allocate the IUI dialog data sets inside ISPF. TSOLIB cannot be used inside ISPF.

PROC 0
ALLOC F(DMMSGFIL) DA(’$CD.MSG’) SHR REU
ALLOC F(DMPUBLIB) DA(’$CD.SDGAPROC’) SHR REU
ALTLIB ACTIVATE DATASET(’$CD.SDGAISPC’) APPLICATION(CLIST)
ISPEXEC LIBDEF ISPLLIB DATASET ID('$CD.SDGALINK’) STACK
ISPEXEC LIBDEF ISPMLIB DATASET ID('$CD.SDGAMENU’) STACK
ISPEXEC LIBDEF ISPPLIB DATASET ID('$CD.SDGAPENU’) STACK
ISPEXEC LIBDEF ISPSLIB DATASET ID('$CD.SDGASENU’) STACK
EXIT