Ibm SC34-6814-04 Manuel d'utilisateur Page 851

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 953
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 850
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
Vue de la page 850
1 2 ... 846 847 848 849 850 851 852 853 854 855 856 ... 952 953

Commentaires sur ces manuels

Pas de commentaire