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:
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.
Copyright © 2015 CA Technologies.
All rights reserved.
|
|