How to enable ISPF access to PanAPT via LIBDEFs

Products

• PanApt

Issue/Introduction

How to enable ISPF access to PanAPT via LIBDEF statements.

 

Resolution

PanAPT can be accessed via LIBDEFs with the following changes to the TSO logon proc:

1. Place the CABYLOAD data set in the linklist or in the STEPLIB DD of your TSO logon proc

2. Modify the ISPF Primary panel BODY section as shown in the Installation Guide.

3. Modify the ISPF Primary panel PROC section as follows: 

Replace

)PROC section:

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

with this:

)PROC section:

A,'CMD($PANAPT)'

4. Create a member named $PANAPT in your CLIST/REXX library that is allocated to TSO SYSPROC DD.  $PANAPT contains: 

         /* 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)"