The sample program, DFH$CUS1

The CICS-supplied sample program, DFH$CUS1, illustrates how DFHCSDUP can be invoked from a user program. It is written as a command processor (CP) for execution under the TSO/E operating system.

Note that DFH$CUS1 uses different DCB and ACB names from those normally used by DFHCSDUP. Ensure that these are allocated before running the program under TSO/E.

Although DFH$CUS1 is intended to be run from TSO, you can also run it from, for example, a REXX EXEC. Before doing so, ensure that the load library that contains DFH$CUS1, DFHCSDUP, and DFHEITCU is in the user's search chain, LOGON proc, or linklist. Figure 1 is an example REXX EXEC that invokes DFH$CUS1.
Figure 1. A REXX program that invokes the DFH$CUS1 sample program
   /*REXX*/  
   "ALLOCATE DSN('XXXXX.CICS720.DFHCSD') DD(ALTACB) SHR"  
   "ALLOC DD(SIN) DA(*) BLKSIZE(80)"  
   "ALLOC DD(SPRINT) DA(*) BLKSIZE(80)"  
   X = PROMPT('ON')  
   ADDRESS TSO "DFH$CUS1"  
   "FREE DD(ALTACB)"  
   "FREE DD(SIN)"  
   "FREE DD(SPRINT)"  
   RETURN 0