Eddy_G

CA Tuesday Tip: (CA IDMS) Creating the UCF front-end system table RHDCFSTB

Discussion created by Eddy_G Employee on Jun 2, 2014
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.
Note the following differences from the System Operations Guide sections Sample System Table Definition and System Table JCL
  • 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)                                            
/*                 
 

Outcomes