Scenario - Binds the COBOL + DB2 program (SELECT1) to the plan (MATEPKA) using isolation level CS.

Input required -

• DBRMLIB - MATEPK.COBDB2.DBRMLIB
• PLAN - MATEPKA

BIND JCL Code -

----+----1----+----2----+----3----+----4----+----5----+
//MATEPKD JOB MSGLEVEL=(1,1),NOTIFY=&SYSUID
//***********************************************
//*  DB2 BIND JCL
//***********************************************
//BIND     EXEC PGM=IKJEFT01
//STEPLIB  DD  DISP=SHR,DSN=DSNA10.DBAG.SDSNEXIT 
//         DD  DISP=SHR,DSN=DSNA10.SDSNLOAD
//DBRMLIB  DD  DSN=MATEPK.COBDB2.DBRMLIB,DISP=SHR
//SYSTSIN  DD  *
DSN SYSTEM (DBAG)
BIND  MEMBER    (SELECT1 ) -
      PLAN      (MATEPKA ) -
      ACTION    (REP)      -
      ISOLATION (CS)       -
      VALIDATE  (BIND)     -
      RELEASE   (COMMIT)   -
      OWNER     (MATEPK )  -
      QUALIFIER (MATEPK )  -
      ENCODING  (1047) 
END
/*
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*

JOB Result - MAXCC

JOB Result - BIND Step

JOB Result - BIND Step Final Report

---