How to enable ISPF access to PanAPT via LIBDEFs

Document ID : KB000022830
Last Modified Date : 14/02/2018
Show Technical Document Details

Introduction:

How to enable ISPF access to CA PanAPT via LIBDEFs

Instructions:

CA PanAPT can be accessed via LIBDEFs with the following changes to the documented procedure (which is to update TSO logon proc):

1. You will need to put dataset ...CABYLOAD in linklist or STEPLIB of your TSO logon proc

2. Modify your ISPF Primary panel BODY section like the Installation Guide shows.

3. The Installation Guide says to modify your ISPF Primary panel PROC section like this:

)PROC section:

A,'PGM(APCS1000) NEWAPPL(APT) PARM(&ZTRAIL;&APTSYSID) NOCHECK'

Instead modify it like this:

)PROC section:

A,'CMD($PANAPT)'

4. Create a member in your CLIST/REXX library that is available to TSO SYSPROC named $PANAPT (or whatever you want to call it) that contains this code:

         /* REXX */
         /*                                                                 */
         /*    PANAPT 3.2                                                   */
         /*                                                                 */
         "ALLOC F(APTDB) DA('yourhlq.APTDB') SHR REUSE"
         "ALLOC F(APTMODEL) DA('yourhlq.CABYDATA') SHR REUSE" 
         "ALLOC F(APTSIDTB) DA('yourhlq.APTSIDTB') SHR REUSE"
         "ALTLIB ACTIVATE APPLICATION(CLIST)
                    DA('"yourhlq.CABYCLS0"')"
         "ISPEXEC LIBDEF ISPLLIB DATASET ID('yourhlq.CABYLOAD')"
         "ISPEXEC LIBDEF ISPMLIB DATASET ID('yourhlq.CABYMSG0')"
         "ISPEXEC LIBDEF ISPPLIB DATASET ID('yourhlq.CABYPENU')"
         "ISPEXEC LIBDEF ISPSLIB DATASET ID('yourhlq.CABYSKL0')"
         "ISPEXEC LIBDEF ISPTLIB DATASET ID('yourhlq.CABYTBL0')"
         "ISPEXEC SELECT PGM(APCS1000) NEWAPPL(APT) PARM(&ZTRAIL;&APTSYSID) PASSLIB"
         "FREE F(APTDB,APTMODEL,APTSIDTB)"
         "ISPEXEC LIBDEF ISPLLIB"
         "ISPEXEC LIBDEF ISPMLIB"
         "ISPEXEC LIBDEF ISPPLIB"
         "ISPEXEC LIBDEF ISPSLIB"
         "ISPEXEC LIBDEF ISPTLIB"
         "ALTLIB DEACTIVATE APPLICATION(CLIST)"