How do we update GENER/OL with the RDO definitions for CICS
The Gener/OL installation comes with a PDS named myhlq.BASE.R71.BUILD.SAMPJCL which includes
member SMPBAS71 which contains the Resource Definitions Online (RDO) definitions needed to define
Gener/OL.
Please follow these steps:
//*
// DD DSN=yourHLQ.C$C7LLT,DISP=SHR
//*
//*
//PRTASA DD SYSOUT=A,DCB=(LRECL=137,RECFM=VA,BLKSIZE=141)
//GOLRDR DD SYSOUT=(A,INTRDR) <=== Required for DB2 only
//*
//* THE NEXT FIVE STATEMENTS PUT GENER/OL FILES IN YOUR CICS JCL
//*
//SGTLIB1 DD DSN=SGTLIB1,DISP=SHR
//SGTLIBU DD DSN=SGTLIBU,DISP=SHR
//TRNPRIM DD DSN=TRNPRIM,DISP=SHR
//SGTLIBP DD DSN=SGTLIBP,DISP=SHR
//SGTLIBC DD DSN=SGTLIBC,DISP=SHR
***** Product Documentation Change *****
CICS TS 5.1 has discontinued the support of the following two CICS
Control Tables:
DCT - Destination Control Table
RCT - Resource Control Table
Resource Definitions are used instead. The TDQUEUE(PRTQ) Resource Definition replaces the DCT and
MUST be included. The DB2ENTRY, DB2TRAN, and TDQUEUE(GOLR) Resource Definitions replace the
RCT if using DB2.
CA Gener/OL implementation requires the following changes:
1. The DCT entry required for the PRINT command when the destination parameter specified a transient
data set:
DFHDCT TYPE=SDSCI,DSCNAME=PRTASA,BLKSIZE=141, X
TYPEFLE=OUTPUT,RECSIZE=137,RECFORM=VARUNBA,BUFNO=2
DFHDCT TYPE=EXTRA,DESTID=PRTQ,DSCNAME=PRTASA
Should be changed to the following Resource Definition entry:
DEFINE TDQUEUE(PRTQ) GROUP(GENEROL) DESC('PRINT COMMAND DESTINATION')
TYPE(EXTRA) DDNAME(PRTASA)BLOCKFORMAT(UNBLOCKED)
RECORDFORMAT(VARIABLE) RECORDSIZE(137) BLOCKSIZE(141)
PRINTCONTROL(ASA) DATABUFFERS(2) SYSOUTCLASS(A)
TYPEFILE(OUTPUT)
2. The DCT entry required to submit the GOLBIND procedure for execution:
DFHDCT TYPE=SDSCI,DSCNAME=GOLRDR,BLKSIZE=80, X
TYPEFLE=OUTPUT,RECSIZE=80,RECFORM=FIXUNB
DFHDCT TYPE=EXTRA,DESTID=GOLR,DSCNAME=GOLRDR
Should be changed to the following Resource Definition entry:
DEFINE TDQUEUE(GOLR) GROUP(GENEROL) DESC('GOLBIND INTERNAL READER')
TYPE(EXTRA) DDNAME(GOLRDR) BLOCKFORMAT(UNBLOCKED)
RECORDFORMAT(FIXED) RECORDSIZE(80)
SYSOUTCLASS(A) TYPEFILE(OUTPUT)
3. The RCT entry required to identify the Dynamic SQL plan to be used:
DSNCRCT TYPE=ENTRY,TXID=GOL1,PLAN=DQGOLxxx,AUTH=USERID
Should be changed to the following Resource Definition entry:
DEFINE DB2ENTRY(GENDB2) GROUP(GROUPNAME) PLAN(DQGOLxxx) AUTHID(USERID)
4. Use the following Resource Definition entries to identify the Static SQL plan to be used after the Static
Bind:
DEFINE DB2ENTRY(GENnnn) GROUP(GROUPNAME) PLAN(DQGSTnnn) AUTHID(USERID)
DEFINE DB2TRAN(GENxxxx) GROUP(GROUPNAME) ENTRY(GENnnn) TRANSID(xxxx)
nnn = identifiable number for the DB2ENTRY, PLAN, and ENTRY parameters
xxxx = identifiable transaction id for DB2TRAN and TRANSID parameters
Note: There can be multiple Static SQL plans, each requiring their
own DEFINE DB2ENTRY and DEFINE DB2TRAN