Controlling Dynamic Plan Selection › DCPLAN Macro Parameters › Sample JCL for Dynamic Plan Selection Table Assembly

Sample JCL for Dynamic Plan Selection Table Assembly

The JOB, SYSLIB, and SYSLMOD statements in this JCL are for example only. Code these statements according to site standards.

z/OS Example JCL

//jobname  JOB   Job Statement Information
//*-------------------------------------------------------------------*
//*            ASSEMBLE/LINK DYNAMIC PLAN SELECTION TABLE             *
//*-------------------------------------------------------------------*
//ASM     EXEC PGM=ASMA90,PARM='NODECK,LOAD'
//SYSLIB    DD DSN=SYS1.MACLIB,DISP=SHR
//          DD DSN=CAI.THLQ.CAB1MAC,DISP=SHR
//SYSUT1    DD DSN=&.&SYSUT1.,UNIT=SYSDA,SPACE=(8800,(1200,100))
//SYSUT2    DD DSN=&.&SYSUT2.,UNIT=SYSDA,SPACE=(8800,(1200,50))
//SYSUT3    DD DSN=&.&SYSUT3.,UNIT=SYSDA,SPACE=(8800,(1200,50))
//SYSPRINT  DD SYSOUT=*
//SYSPUNCH  DD SYSOUT=*
//SYSGO     DD DSN=&.&OBJSET.,UNIT=SYSDA,SPACE=(80,(200,50)),
//             DISP=(MOD,PASS)
//SYSIN     DD *
         DCPLAN TYPE=INIT,PLNEXIT=DCPLNPR
         DCPLAN TYPE=ENTRY,TXID=DBCC,                                  X
               AUTHID=(YU3,YU4,R,YU,YU1,R)
         DCPLAN TYPE=ENTRY,TXID=(0001,0002,0003,0004,0005,0006,0007),  X
               AUTHID=(AAAAAA,HURL101,R)
         DCPLAN TYPE=ENTRY,TXID=10*,PLNEXIT=DCPLN10,                   X
               AUTHID=(YU$DA,HURLO,R)
         DCPLAN TYPE=ENTRY,TXID=(2001,?0?2,2*),PLNEXIT=NO,             X
               AUTHID=(YU$D301,HURL301,R,YU$D302,HURL302,R)
         DCPLAN TYPE=ENTRY,TXID=(3003,3004,3005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(4003,4004,4005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(5003,5004,5005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(6003,6004,6005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(7003,7004,7005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(8003,8004,8005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=END
         END
/*
//*
//LKED  EXEC PGM=IEWL,PARM='XREF,LET,LIST,NCAL',COND=(8,LT,ASM)
//SYSLIN    DD DSN=&.&OBJSET.,DISP=(OLD,DELETE)
//          DD DDNAME=SYSIN
//SYSUT1    DD DSN=&.&SYSUT1.,UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT  DD SYSOUT=*
//SYSLMOD   DD DSN=CAI.CHLQ.CUSLIB,DISP=SHR
//SYSIN     DD *
 NAME DCTABPR(R)
/*
//

z/VSE Example JCL

* $$ JOB   JNM=ASSEMBLE,CLASS=A
* $$ LST   CLASS=A
// JOB     ASSEMBLE
// DLBL    BASE,'customer.designated.DBC.install.library',99/365
// EXTENT  SYS009,vvvvvv
// ASSGN   SYS009,DISK,VOL=vvvvvv,SHR
// LIBDEF  *,SEARCH=BASE.DBC140
// LIBDEF  *,CATALOG=users.DBC140
// OPTION  CATAL,NODECK,XREF,LIST
   PHASE   DCTABPR,*
// EXEC ASSEMBLY
         PRINT GEN
         DCPLAN TYPE=INIT,PLNEXIT=DCPLNPR
         DCPLAN TYPE=ENTRY,TXID=DBCC,                                  X
               AUTHID=(YU3,YU4,R,YU,YU1,R)
         DCPLAN TYPE=ENTRY,TXID=(0001,0002,0003,0004,0005,0006,0007),  X
               AUTHID=(AAAAAA,HURL101,R)
         DCPLAN TYPE=ENTRY,TXID=10*,PLNEXIT=DCPLN10,                   X
               AUTHID=(YU$DA,HURLO,R)
         DCPLAN TYPE=ENTRY,TXID=(2001,?0?2,2*),PLNEXIT=NO,             X
               AUTHID=(YU$D301,HURL301,R,YU$D302,HURL302,R)
         DCPLAN TYPE=ENTRY,TXID=(3003,3004,3005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(4003,4004,4005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(5003,5004,5005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(6003,6004,6005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(7003,7004,7005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=ENTRY,TXID=(8003,8004,8005),PLNEXIT=YES,          X
               AUTHID=(YU$D401,HURL401,R,YU$D402,HURL402,R)
         DCPLAN TYPE=END
         END
/*
// EXEC LNKEDT,PARM='MSHP'
/*
/&
* $$ EOJ