The Menu Interface (TSO/ISPF Panels) › Entering the Menu Interface › Sample CLIST

Sample CLIST

PROC 0 DEBUG
CONTROL END(DEND)
IF &DEBUG NE THEN CONTROL LIST CONLIST SYMLIST
/*********************************************************************/
START: +
ISPEXEC LIBDEF ISPPLIB DATASET ID('XCOM.RB6.CBXGPNL0')
ISPEXEC LIBDEF ISPMLIB DATASET ID('XCOM.RB6.CBXGMSG0')
STEPLIB DSNAME('XCOM.RB6.CBXGLOAD')
ISPEXEC LIBDEF ISPTLIB DATASET ID('XCOM.RB6.CBXGTBL0' +
                                  '&SYSUID..ISPF.ISPPROF')
ALTLIB ACTIVATE APPLICATION(CLIST) DA('XCOM.RB6.CBXGCLS0')
ISPEXEC SELECT PANEL(XCOMPRIM) NEWAPPL(XCOM) PASSLIB
ISPEXEC LIBDEF ISPPLIB
ISPEXEC LIBDEF ISPMLIB
ISPEXEC LIBDEF ISPTLIB
ALTLIB RESET

Note: Substitute your library names for the ones in the sample.