RCSBIND - Bind a static RLX SQL application plan
RLX
SQL application planDescribes the RCSBIND catalogued procedure to BIND the Db2 application plan to be used in conjunction with your compiled
RLX
application.The sample JCL shows the RCSBIND catalogued procedure to BIND the Db2 application plan to be used in conjunction with your compiled
RLX
application.//*--------------------------------------------------------------------- //* (C) COPYRIGHT RELATIONAL ARCHITECTS INTL. //* LICENSED MATERIAL - PROGRAM PROPERTY RELATIONAL ARCHITECTS INTL //*--------------------------------------------------------------------- //* RLX/COMPILE - BIND Db2 APPLICATION STATIC PLAN //*--------------------------------------------------------------------- //RCSBIND PROC RLXEXEC='RAI.Rvrm.CRAIEXEC, ** RLX SYSTEM EXEC LIB // RLXCNTL='RAI.Rvrm.CRAIJCL', ** RLX SYSTEM CNTL LIB // RCSDBRM='USER.DBRMLIB', ** USER DBRMLIB // DSNLOAD='DSN.SDSNLOAD', ** Db2 LOAD LIBRARY // DSNLINK='DSN.SDSNLINK' ** Db2 LINKLIST LIBRARY //*--------------------------------------------------------------------- //* BIND Db2 APPLICATION STATIC PLAN //*--------------------------------------------------------------------- //BIND EXEC PGM=IKJEFT01,DYNAMNBR=10,REGION=1536K,COND=(4,LT) //STEPLIB DD DSN=&DSNLOAD,DISP=SHR // DD DSN=&DSNLINK,DISP=SHR //SYSPROC DD DSN=&RLXEXEC,DISP=SHR //SYSUT1 DD DISP=NEW,SPACE=(CYL,(0,1),RLSE),UNIT=SYSDA //SYSUT2 DD DISP=NEW,SPACE=(CYL,(0,1),RLSE),UNIT=SYSDA //SYSUT3 DD DISP=NEW,SPACE=(CYL,(0,1),RLSE),UNIT=SYSDA //SYSUT4 DD DISP=NEW,SPACE=(CYL,(0,1),RLSE),UNIT=SYSDA //SYSUT5 DD DISP=NEW,SPACE=(CYL,(0,1),RLSE),UNIT=SYSDA //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //SYSIN DD SYSOUT=* //DBRMLIB DD DSN=&RCSDBRM,DISP=SHR /* USER DBRMS //SYSTSPRT DD SYSOUT=* //SYSTSIN DD DSN=&CRAIJCL(RCSBINDI),DISP=SHR
The next sample illustrates how to invoke the RCSBIND catalogued procedure to BIND the static Db2 application plan associated with your compiled
RLX
application. The numbers in the right margin correspond to the numbered, annotating paragraphs:(1)
(2)
(3)
(4)
(5)
(6)
(7)
(8)
(9)
//JOB3 JOB (PARMS) //STEP1 EXEC RCSBIND, (1) // RCSDBRM='YOUR.DBRMLIB' (2) //RCSPARMS DD * (3) USERID,PLAN_NAME,Db2_SUBSYSTEM,Db2_RELEASE,DBRM_1,DBRM_2,.... (4) (5) (6) (7) (8) (9)