The Sample Program, Dfh$Cus1 - IBM SC34-6814-04 Customization Manual

XPI calls

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 132 is an example REXX EXEC that invokes DFH$CUS1.
/*REXX*/
"ALLOCATE DSN('XXXXX.CICS650.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
Figure 132. A REXX program that invokes the DFH$CUS1 sample program
UERCNORM (X'00')
Continue processing.
UERCERR
Irrecoverable error. This causes DFHCSDUP to terminate with a
return code of '8'.
Must not be used.
Chapter 34. User programs for the system definition utility program (DFHCSDUP)
829