Ibm SC33-1683-02 Manual de usuario Pagina 463

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 875
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 462
to be logged to the TEPQ transient data destination. The CICS DSECTs are not
printed on the sample DFHTEP assembler-language listing. There are two error
processor routines (codes ‘87’ and ‘9F’ respectively).
* GENERATE USER STORAGE
DFHTEPM TYPE=USTOR
USORFLD DS F
DFHTEPM TYPE=USTOREND
* MODULE SPECIFICATIONS
DFHTEPM TYPE=INITIAL, *
OPTIONS=((TD,TEPQ),NO3270,EXITS), *
PRINT=(NOTEPACTION,NOTACPACTION), *
DSECTPR=NO
* USER-SUPPLIED ERROR PROCESSORS
DFHTEPM TYPE=ERRPROC,CODE=87
TEPCD81 DS 0H
-
- error processor "87" source statements
-
B TEPRET
DFHTEPM TYPE=ERRPROC,CODE=9F
TEPCD9C DS 0H
-
- error processor "9F" source statements
-
B TEPRET
* USER "EXIT" EXIT CODE
DFHTEPM TYPE=EXIT
TEPEXIT DS 0H
-
-
Additional user source statements to be executed after
error processing:
-
-
BR R14
* CONCLUDE MODULE GENERATION
DFHTEPM TYPE=FINAL
END DFHTEPNA
Figure 19. Example of DFHTEPM macros used to generate a sample DFHTEP module
the sample terminal error program
Chapter 8. Writing a terminal error program 431
Vista de pagina 462
1 2 ... 458 459 460 461 462 463 464 465 466 467 468 ... 874 875

Comentarios a estos manuales

Sin comentarios