Starting Your Product › Preparing to Start CA Gen › Preparing to Start Host Encyclopedia › DB2 Secondary Authorization IDs › TICJCLX CLIST

TICJCLX CLIST

TICJCLX provides default JCL tailoring for the various batch Host Encyclopedia functions. Change TICJCLX as follows to allow it to pass the DB2 secondary authorization ID variable to batch.

Follow these steps:

1. Create a copy of CA Gen CLIST TICJCLX in a library concatenated ahead of the CA Gen CLIST library.
2. Modify the copied TICJCLX and find the section with label USER LOGIC HERE

   A sample section of TICJCLX

     SET CLSTNAME = &NRSTR(#### STARTING TICJCLX CLIST ####)           
                                                                       
     ISPEXEC VGET (TICCARD1 TICCARD2 TICCARD3 TICCARD4) SHARED         
     ISPEXEC VGET (TICCARD5 TICCARD6 TICCARD7 TICCARD8) SHARED         
     ISPEXEC VGET (TICCARD9 TICCARDA) SHARED                           
                                                                       
     /******************************************/                      
     /*            USER LOGIC HERE             */                      
     /******************************************/                      
     /*  ISPEXEC DISPLAY PANEL(????)           */                      
     /*  SET RC = &LASTCC                      */                      
     /*  IF (&RC = 0) AND (&ZCMD = ) THEN ???  */                      
     /*  IF (&RC = 8) THEN EXIT CODE(&RC)      */                      
     /*  IF (&RC > 8) THEN EXIT CODE(&RC)      */                      
     /******************************************/                      
                                                                       
     ISPEXEC VPUT (TICCARD1 TICCARD2 TICCARD3 TICCARD4) SHARED         
     ISPEXEC VPUT (TICCARD5 TICCARD6 TICCARD7 TICCARD8) SHARED         
     ISPEXEC VPUT (TICCARD9 TICCARDA) SHARED                         
                                                         
   SET CLSTNAME = &NRSTR(#### STARTING TICJCLX CLIST ####)           
                                                                       
   EXIT CODE(0)                                                        
   Add the following lines after the USER LOGIC HERE label:
   /*CUSTOMIZATION TO USE DB2 SECONDARY AUTH ID
   IF &JCLTYPE = C THEN DO
         IF &JOBSUB = TICGENBT OR +
     &JOBSUB = TICGENB2 OR +
        &JOBSUB = TIRGENB2 THEN DO
     /* CALL USERCLIST FOR OWNERID VALUE */
             %USRCLIST
          END
   END