Submitting a job to EYU9BCSD

To submit a job to EYU9BCSD, you can use the DFHCSDUP EXTRACT command.

Procedure

Specify the DFHCSDUP EXTRACT command as follows: 
  EXtract LIst(listname) | Group(groupname)
          USerprogram(EYU9BCSD) OBJECTS
Notes:
  • EYU9BCSD must be invoked from the USERPROGRAM keyword; it cannot be called on the entry linkage to DFHCSDUP using the EXITS parameter.
  • The OBJECTS keyword is required.

Sample JCL to run EYU9BCSD for a CSD group list

This sample JCL is supplied in the member EYUJCLEX in the CICSTS54.CPSM.SEYUSAMP library.

This example extracts resource definitions of all resource types from a specified CSD group (group_name). At the same time, a CICSPlex SM resource group (RESGROUP) is generated for that CSD group and associations are generated between the group and the resource definitions.

//*------------------------------------------------------------
//*
//* Delete the extract output file for a rerun of this job
//*
//*------------------------------------------------------------
//BR14OUT  EXEC PGM=IEFBR14                                    
//EYUOUT    DD  DISP=(MOD,DELETE,DELETE),                      
//             DSN=cpsm.index.EYUOUT.group_name,               
//             SPACE=(TRK,(1,1)),                              
//             UNIT=SYSDA                                       
//*------------------------------------------------------------
//*
//* Extract the CSD Resource Definitions
//*
//*------------------------------------------------------------
//CSDXTRCT EXEC PGM=DFHCSDUP,REGION=0M,                        
//             COND=(0,NE),                                    
//             PARM='CSD(READONLY)'                            
//STEPLIB   DD  DISP=SHR,DSN=cics.index.SDFHLOAD               
//          DD  DISP=SHR,DSN=cpsm.index.SEYUAUTH               
//DFHCSD    DD  DISP=SHR,DSN=cics.dfhcsd                       
//EYUOUT    DD  DISP=(,CATLG,DELETE),                          
//             DSN=cpsm.index.EYUOUT.group_name,               
//             SPACE=(TRK,(1,5)),                              
//             UNIT=SYSDA                                      
//SYSPRINT  DD  SYSOUT=*                                       
//SYSIN     DD  *                                              
 EXTRACT USERPROGRAM(EYU9BCSD) OBJECTS GROUP(group_name)       
/*                      
//EYUIN     DD  *       
 RESGROUP(group_name)   
 RESINGRP(CSDGROUP)     
 ATOMSERVICE(*)
 BUNDLE(*)
 CONNECTION(*)          
 CORBASERVER(*)         
 DB2CONN(*)             
 DB2ENTRY(*)            
 DB2TRAN(*)             
 DJAR(*)                
 DOCTEMPLATE(*)         
 ENQMODEL(*)            
 FILE(*)                
 IPCONN(*)              
 JOURNAL(*)             
 JOURNALMODEL(*)        
 JVMSERVER(*)
LIBRARY(*)             
 LSRPOOL(*)             
 MAPSET(*)              
 MQCONN(*)
 PARTITIONSET(*)        
 PARTNER(*)             
 PIPELINE(*)            
 PROCESSTYPE(*)         
 PROFILE(*)             
 PROGRAM(*)             
 REQUESTMODEL(*)        
 SESSIONS(*)            
 TCPIPSERVICE(*)                                               
 TDQUEUE(*)                                                    
 TERMINAL(*)                                                   
 TRANCLASS(*)                                                  
 TRANSACTION(*)                                                
 TSMODEL(*)                                                    
 TYPETERM(*)                                                   
 URIMAP(*)                                                     
 WEBSERVICE(*)                                                 
/*                                     
//*------------------------------------------------------------
//*
//* List EYUOUT to view errors
//*
//*------------------------------------------------------------
//LISTOUT  EXEC PGM=IEBGENER                                   
//SYSUT1    DD  DISP=OLD,DSN=cpsm.index.EYUOUT.group_name      
//SYSUT2    DD  SYSOUT=*                                       
//SYSPRINT  DD  SYSOUT=*                                       
//SYSIN     DD  DUMMY

Modify the sample JCL to provide the following information:

CSDXTRCT
The COMPAT keyword must be used on the CSDXTRCT PARM= statement to extract CICS® resource attributes that are now obsolete; for example, the OMGINTERFACE, OMGMODULE, and OMGOPERATION attributes of a CICSPlex SM REQUESTMODEL resource definition.
EYUOUT
Identify cpsm.index.EYUOUT.group_name as a sequential data set where the batched repository-update facility commands generated by EYU9BCSD can be written.
STEPLIB
Identify:
  • cics.index.SDFHLOAD as the CICS load library containing the DFHCSDUP module.
  • cpsm.index.SEYUAUTH as the CICSPlex SM load library containing EYU9BCSD.
DFHCSD
Identify cics.dfhcsd as the VSAM data set that serves as the CSD file.
SYSIN
Identify GROUP group_name as the CSD group from which definitions are to be extracted. The group name may contain wildcards. Identify LISTlist_name as the CSD grouplist from which definitions are to be extracted. The list name may not contain wildcards.

For more details of the DFHCSDUP utility and its parameters, see System definition file utility program (DFHCSDUP).

To extract definitions from all the groups in a CSD group list:
  1. Change GROUP(group_name) to LIST(list_name).
  2. Identify a CSD group list.
  3. Change all other occurrences of group_name to the appropriate list_name.
EYUIN
If you specify LIST(list_name) in the SYSIN statement, change the RESGROUP value from group_name to CSDGROUP. Specifying CSDGROUP generates a resource group for each CSD group in the group list.