Forum

Appendix (2)

Original DSNTEP2 BIND statement as supplied by IBM in installation library SDSNSAMP(DSNTEJ1L:

[tt]BIND PACKAGE (DSNTEP2) MEMBER(DSN§EP2L) +                           
     CURRENTDATA(NO) ACT(REP) ISO(CS) ENCODING(EBCDIC)               
BIND PLAN(DSNTEPÜÜ)  PKLIST(DSNTEP2.*) +                            
     CURRENTDATA(NO) ACT(REP) ISO(CS) ENCODING(EBCDIC) SQLRULES(DB2)
[/tt]
which yields in …

[tt]BIND  PLAN(DSNTEP2)         OWNER(id)         QUALIFIER(id)+   
     NODEFER(PREPARE)       VALIDATE(RUN)         ISOLATION(CS)+      
     CACHESIZE(3072)        CURRENTDATA(NO)       DEGREE(1)+          
     SQLRULES(DB2)          ACQUIRE(USE)          RELEASE(COMMIT)+    
     EXPLAIN(NO)            REOPT(NONE)           KEEPDYNAMIC(NO)+    
     IMMEDWRITE(NO)         DBPROTOCOL(DRDA)      ENCODING(273)+      
     ROUNDING(HALFEVEN)     DISCONNECT(EXPLICIT)+                      
     PKLIST(*.DSNTEP2.*)+                                              
     ENABLE(*)+                                                         
     ACTION(REPLACE)        RETAIN                                    
END                                                                     
BIND PACKAGE(DSNTEP2)       MEMBER(DSN§EP2L)+                            
     LIBRARY(‚libname‘)+                                  
     OWNER(id)              QUALIFIER(id)     SQLERROR(NOPACKAGE)+    
     VALIDATE(RUN)          ISOLATION(CS)         CURRENTDATA(NO)+         
     DEGREE(1)              EXPLAIN(NO)           REOPT(NONE)+            
     KEEPDYNAMIC(NO)        DBPROTOCOL(DRDA)      IMMEDWRITE(NO)+         
     ENCODING(273)          ROUNDING(HALFEVEN)+                           
     ENABLE(*)+                                                          
     ACTION(REPLACE)        REPLVER(V9R1.PM17349 or other version)                        
END   [/tt]

You should BIND DSNTEP2, DSNTEP4, DSNTIAL, DSNREXX and other programs with REOPT(ONCE|ALWAYS|AUTO) to enable reoptimization of access path for dynamic SQL statements. This helps for example to optimize access of statements which use special registers, e.g. CURRENT DATE.

[tt]BIND PACKAGE(MYCOLLTEP2)       MEMBER(DSN§EP2L)+                           
     LIBRARY(‚libname‘)+                                 
     OWNER(id)              QUALIFIER(id)   SQLERROR(NOPACKAGE)+   
     DEFER(PREPARE)         VALIDATE(RUN)         ISOLATION(CS)+         
     CURRENTDATA(NO)        DEGREE(1)             EXPLAIN(NO)+          
     REOPT(ONCE)            KEEPDYNAMIC(NO)       DBPROTOCOL(DRDA)+    
     IMMEDWRITE(NO)         ENCODING(273)         ROUNDING(HALFEVEN)+   
     ENABLE(*)+                                                         
     ACTION(ADD)                     
END
BIND  PLAN(MYTEP2)          OWNER(id)       QUALIFIER(id)+    
     DEFER(PREPARE)         VALIDATE(RUN)         ISOLATION(CS)+          
     CACHESIZE(3072)        CURRENTDATA(NO)       DEGREE(1)+               
     SQLRULES(DB2)          ACQUIRE(USE)          RELEASE(COMMIT)+         
     EXPLAIN(NO)            REOPT(ONCE)           KEEPDYNAMIC(NO)+         
     IMMEDWRITE(NO)         DBPROTOCOL(DRDA)      ENCODING(273)+          
     ROUNDING(HALFEVEN)     DISCONNECT(EXPLICIT)+                           
     PKLIST(*.MYCOLLTEP2.*)+                                                   
     ENABLE(*)+                                                            
     ACTION(ADD)
END [/tt]