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

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 953
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 462
DFHEISTG DSECT ,
*
* Insert your own storage definitions here
*
DFHPCOM TYPE=DSECT
***********************************************************************
***** PROGRAM ERROR *****
***** PROGRAM *****
***********************************************************************
DFHPEP CSECT PROGRAM ERROR PROGRAM CSECT
DFHPEP RMODE ANY
DFHREGS , EQUATE REGISTERS
XR R1,R1
ICM R1,B’0011’,EIBCALEN Get Commarea length
BZ RETURNX ...no Commarea; exit
EXEC CICS ADDRESS COMMAREA(R2) ,
USING DFHPEP_COMMAREA,R2
*
* Insert your own code here
*
LA R1,PEP_COM_RETURN_OK
B RETURN
DFHEJECT
*
RETURNER DS 0H Return for error cases
LA R1,PEP_COM_RETURN_DISABLE
RETURN DS 0H
ST R1,PEP_COM_RETURN_CODE
RETURNX DS 0H
EXEC CICS RETURN ,
END DFHPEP
Figure 18. Source code of the default program error program (DFHPEP)
Chapter 6. Writing a program error program 441
Przeglądanie stron 462
1 2 ... 458 459 460 461 462 463 464 465 466 467 468 ... 952 953

Komentarze do niniejszej Instrukcji

Brak uwag