May I have sample JCL to reassemble DDSYSTBL and link edit the DDSRTLM module?
CA Datacom Version 14.0 PTF RO81784 has the following hold action requiring this.
++HOLD (RO81784) SYSTEM FMID(CAADE00)
REASON (ACTION ) DATE (15155)
COMMENT (
+----------------------------------------------------------------------+
| CA Datacom Datadictionary Release 14.0 |
+----------+-----------------------------------------------------------+
|SEQUENCE | Before using CA Datacom Datadictionary |
+----------+-----------------------------------------------------------+
|PURPOSE | The Datadictionary System Resource Table (macro DDSYSTBL) |
| | must be assembled and linked using the new version of |
| | the macro delivered by this APAR. See installation JCL |
| | member BDCUSNEW step STEP2E for sample JCL. |
+----------+-----------------------------------------------------------+
|USERS | |
|AFFECTED | All users. |
+----------+-----------------------------------------------------------+
|KNOWLEDGE | |
|REQUIRED | Datadictionary product installation. |
+----------+-----------------------------------------------------------+
|ACCESS | |
|REQUIRED | Datadictionary sample JCL library. |
+----------+-----------------------------------------------------------+
**************************
* STEPS TO PERFORM *
**************************
Perform the assembly of macro DDSYSTBL and the link creating load
module DDSRTLM. (See Installation JCL member BDCUSNEW step STEP2E.)
CA Datacom/DB sites can use the ASLKCUST PROC and STEP2E for the assemble/link edit of DDSYSTBL/DDSRTLM from INSTJCL member BDCUSNEW.
CA Datacom/AD sites can use the ASLKCUST PROC and STEP2E for the assemble/link edit of DDSYSTBL/DDSRTLM from INSTJCL member AXCUS01.
//ASLKCUST PROC ...
... statements through to ...
// PEND
//STEP2E EXEC ASLKCUST,
// PARM.LNKSTP='LIST,LET,XREF,MAP,NCAL,REUS(SERIAL)'
//ASMSTP.SYSIN DD DISP=SHR,
// DSN=CAI.NEWHLQ.CXX.NAME.V140.CUSMAC(DDSYSTBL)
//LNKSTP.SYSLIB DD DISP=SHR,
// DSN=CAI.THLQ.CxxDLOAD
//LNKSTP.SYSIN DD *
INCLUDE SYSLIB(DDCLLPR)
ORDER DDSYSTBL,DDCLLPR
ENTRY DDSYSTBL
MODE AMODE(24),RMODE(24)
NAME DDSRTLM(R)
/*