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

TICINSTX CLIST

TICINSTX provides a default installation for an application generated by CA Gen. You can modify TICINSTX as follows to meet your site requirements.

1. Create a copy of the CLIST TICINSTX in a library concatenated ahead of the CA Gen supplied Clist library.
2. Modify the copied TICINSTX to accept DB2 secondary authorization IDs when invoked in either foreground or background.
   1. Find the BIND PLAN (section following the BINDIT label in TICINSTX).

      BINDIT: +                                                                     
        CONTROL MSG                                                                 
                                                                                   
      /* SAVE VARIABLES FOR USE BY THE USER EXIT                            */      
        ISPEXEC VGET TICDSID1 ASIS                                                  
        SET BPLFLAG   = Y                                                           
        SET BPLSYS    = &STR(&TICDSID1)                                             
        SET BPLREL    = COMMIT                                                      
        SET BPLVAL    = BIND                                                        
        ISPEXEC VPUT (BPLFLAG  BPLSYS   BPLNAME  BPLLIST  BPLLIBS +                 
                      BPLISOL  BPLVAL   BPLREL +                                    
                      BPLMEM0  BPLMEM1  BPLMEM2  BPLMEM3  BPLMEM4 BPLMEM5 +         
                      BPLMEM6  BPLMEM7  BPLMEM8  BPLMEM9  BPLMEM10 BPLMEM11 +       
                      BPLMEM12 BPLMEM13 BPLMEM14 BPLMEM15 BPLMEM16 +                
                      BPLMEM17 BPLMEM18 BPLMEM19 BPLMEM20) SHARED                   
                                                                                    
      /* CALL THE EXIT                                                      */      
         %TICEXBPL                                                                  
                                                                                    
      /* RETRIEVE THE VARIABLES FROM THE EXIT                               */      
        ISPEXEC VGET (BPLFLAG  BPLSYS   BPLNAME  BPLLIST  BPLLIBS +                 
                      BPLISOL  BPLVAL   BPLREL +                                    
                      BPLMEM0  BPLMEM1  BPLMEM2  BPLMEM3  BPLMEM4 BPLMEM5 +         
                      BPLMEM6  BPLMEM7  BPLMEM8  BPLMEM9  BPLMEM10 BPLMEM11 +       
                      BPLMEM12 BPLMEM13 BPLMEM14 BPLMEM15 BPLMEM16 +                
                      BPLMEM17 BPLMEM18 BPLMEM19 BPLMEM20) SHARED                   
        IF &STR(&BPLLIST) ^= &Z THEN SET PKLIST = &STR(PKLIST(&BPLLIST))            
                                                                                    
        /* IF USER REQUESTS IT, SKIP THE BIND                                       
        IF &BPLFLAG = N THEN GOTO ENDUP                                             
                                                                                    
        %TICSDIS CMD(MSG) OBJ(&STR(&LOADNAME)) +                                    
                           MSG('BIND IN PROGRESS') TEMP(YES)                        
                                                                                    
        /* IF THERE ARE NO DBRMS, BIND WITHOUT THE MEMBER PARAMETER                 
        IF &STR(&BPLMEM0) = &Z THEN GOTO NOMBRS                                     
                                                                                    
        DSN SYSTEM(&BPLSYS)                                                         
                                                                                    
           /* IF DSN SESSION FAILS TO START, DO NOT ATTEMPT TO BIND                 
           SET RC = &LASTCC                                                         
           IF &RC > 0 THEN DO                                                       
              SET ERRMSG = &STR(BIND FAILED)                                        
              GOTO ERROR                                                            
              END                                                                   
                                                                                    
           /* TRAP UP TO 100 ERROR MESSAGES                                         
           SET SYSOUTTRAP = 100                                                     
                                                                                    
           BIND PLAN(&BPLNAME.) +                                                   
                MEMBER( +                                                           
                    &BPLMEM0 +                                                      
                    &BPLMEM1 +                                                      
                    &BPLMEM2 +                                                      
                    &BPLMEM3 +                                                      
                    &BPLMEM4 +                                                      
                    &BPLMEM5 +                                                      
                    &BPLMEM6 +                                                      
                    &BPLMEM7 +                                                      
                    &BPLMEM8 +                                                      
                    &BPLMEM9 +                                                      
                    &BPLMEM10 +                                                     
                    &BPLMEM11 +                                                     
                    &BPLMEM12 +                                                     
                    &BPLMEM13 +                                                     
                    &BPLMEM14 +                                                     
                    &BPLMEM15 +                                                     
                    &BPLMEM16 +                                                     
                    &BPLMEM17 +                                                     
                    &BPLMEM18 +                                                     
                    &BPLMEM19 +                                                     
                    &BPLMEM20 ) +                                                   
                    &PKLIST +                                                       
                LIBRARY(&STR(&BPLLIBS)) +                                           
                ACTION(REPLACE) RETAIN  +                                           
                ACQUIRE(USE) RELEASE(&BPLREL) +                                     
                EXPLAIN(NO) VALIDATE(&BPLVAL) +                                     
                ISOLATION(&BPLISOL) FLAG(W)                                         
                END  /* END DSN SESSION */                                          
        SET RC = &LASTCC                                                            
        GOTO ENDBIND   
      

   2. Change the last line of the bind statement by adding the &OWNER parameter so that the line looks like:

      ISOLATION(&BPLISOL) FLAG(W) &OWNER