Ibm SC34-6814-04 Instrukcja Użytkownika Pobierz pdf (Strona 851)

100

101

UERCNORM (X'00')

Continue processing.

UERCERR

Irrecoverable error. This causes DFHCSDUP to terminate with a

return code of ‘8’.

XPI calls

Must not be used.

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

Chapter 34. User programs for the system definition utility program (DFHCSDUP) 829

1 2 ... 846 847 848 849 850 851 852 853 854 855 856 ... 952 953

Komentarze do niniejszej Instrukcji

Brak uwag

Ibm SC34-6814-04 Instrukcja Użytkownika Strona 851

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Komputery Ibm SC34-6814-04