Specifying DBCSID Macros › Sample Assembly JCL for DBCVTPR with DBCSID Macros (z/OS)

Sample Assembly JCL for DBCVTPR with DBCSID Macros (z/OS)

The following example shows sample z/OS JCL for assembling and linking DBCVTPR that includes DBCSID macros for defining MUF connections. Modify the JCL as required to meet your site standards.

 //DBCVTPR JOB (acct info),'job desc',CLASS=X,MSGCLASS=X
 //PROCLIB  DD DSN=SYS1.PROCLIB,DISP=SHR
 //*******************************************************************
 //*                                                                 *
 //* ASSEMBLE AND LINKEDIT -- DBCVTPR CICS SERVICES OPTIONS          *
 //*                                                                 *
 //*******************************************************************
 //STEP1   EXEC HLASMCL,
 //  PARM.C='OBJECT,NODECK',
 //  PARM.L='MAP,LET,LIST'
 //C.SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR
 //           DD DSN=CAI.THLQ.CAB1MAC,DISP=SHR
 //           DD DSN=CAI.DHLQ.CABDMAC,DISP=SHR
 //           DD DSN=CICS.SDFHMAC,DISP=SHR
 //C.SYSPRINT DD SYSOUT=*
 //C.SYSIN    DD *
          DBCVTPR USERS=6,MULTUSE=YES,MSTOPR=***,              X
                 PREFIX=DBURT,MAXURTS=500,SCROLL=MANUAL,       X
                 SYSRCV=NO,AUTO=(001,002,003,010)
          DBCSID  SIDNAME=DBSIDPR,USERS=3,CONNECT=PLT,         X
                 EOJ_OK=DISCONNECT
          DBCSID  SIDNAME=PRODMU1,USERS=3,CONNECT=AUTO
          DBCSID  SIDNAME=PRODMUF,USERS=4,CONNECT=DEFER
          END
 //L.SYSLMOD  DD DSN=CAI.CHLQ.CUSLIB,DISP=SHR
 //L.SYSPRINT DD SYSOUT=*
 //L.SYSIN    DD *
     NAME DBCVTPR(R)
 /*
 //

Notes:

1. The previous PROC invokes the ASMA90 program.
2. With previous reference to SYSLMOD, see the product installation procedures to determine the correct custom load library (CUSLIB) data set to contain DBCVTPR. This data set must also be included in your CICS DFHRPL library concatenation ahead of the CA Datacom CICS Services target load library.
3. When placing the DBCVTPR, carefully place the CA Datacom/DB custom load libraries containing the DBCSID DBSIDPR=named modules so that the first of those in the concatenation is the default MUF as specified by the first DBCSID macro.

Caution! Linking the DBCVTPR module with RENT results in an ABEND during startup if CICS is set up with RDSA (read-only memory) and this storage option is supported by the hardware.