CA IDMS Tuesday Tip by Ian Hill, Principal Support Engineer for June 3, 2014
There are a number of errors and omissions in the System Operations Guide section UCF Back-End on how to create a UCF front-end system table, and there is no example in the install libraries. A technical document, TEC611398 has recently been published to clarify what is required. Below is a sample job to create the UCF front-end system table.
-
There should be a line #MOPT CSECT=RHDCFSTB,ENV=USER at the beginning.
-
The value of CNT= should match exactly the number of #FESTENT entries.
-
There should be an ENTRY equal to the label on the #FESTDEF clause (in this example, FESTABLE).
-
The NAME in the link-edit should match the label on the CSECT and ideally should be RHDCFSTB.
//ASMCL EXEC HLASMCL
//C.SYSLIB DD DISP=SHR,DSN=<your.zOS.maclib>
// DD DISP=SHR,DSN=<your.IDMS.maclib>
//C.SYSIN DD *
#MOPT CSECT=RHDCFSTB,ENV=USER
COPY #UCFDS
RHDCFSTB CSECT
FESTABLE #FESTDEF CNT=5
#FESTENT FESID=BATCH
#FESTENT FESID=TSO
#FESTENT FESID=CICS
#FESTENT FESID=BATCBULK,BLKSIZ=12000
#FESTENT FESID=CICPBULK,BLKSIZ=2000
END FESTABLE
//L.SYSLMOD DD DISP=SHR,DSN=<your.IDMS.custom.loadlib>
//L.SYSIN DD *
ENTRY FESTABLE
NAME RHDCFSTB(R)
/*