Ibm SC33-1683-02 Manuale Utente Pagina 853

  • Scaricare
  • Aggiungi ai miei manuali
  • Stampa
  • Pagina
    / 875
  • Indice
  • SEGNALIBRI
  • Valutato. / 5. Basato su recensioni clienti
Vedere la pagina 852
ERROR4 DS 0H
MVI TR_ERROR_N,4
B TRACE_ERROR
ERROR5 DS 0H
MVI TR_ERROR_N,5
B TRACE_ERROR
ERROR6 DS 0H
MVI TR_ERROR_N,6
B TRACE_ERROR
ERROR7 DS 0H
MVI TR_ERROR_N,7
B TRACE_ERROR
ERROR8 DS 0H
MVI TR_ERROR_N,7
B TRACE_ERROR
ERROR9 DS 0H
MVI TR_ERROR_N,7
B TRACE_ERROR
EJECT ,
DROP R2 Drop DFHUEPAR
DROP R11 Drop EIB
LTORG ,
***********************************************************************
* CONSTANTS *
***********************************************************************
DS 0D
EYE_CATCHER DC CL16'XTSEREQ Storage '
DEFAULT_SYSID DC CL4'MQ1 '
LOCAL EQU X'01'
ROUTE EQU X'02'
*
* Trace point ids
TR_ENTRY DC XL2'120'
TR_EXIT DC XL2'121'
TR_ERROR DC XL2'122'
*
*---------------------------------------------------------------------*
* TABLE_ENTRY: *
* ---------------------------------------------------------- *
* | Entry_Name | New_Name | QOR_Sysid | Action | *filler* | *
* | Char 8 | Char 8 | Char 4 | Bin 1 | Char 3 | *
* ---------------------------------------------------------- *
* Last Entry is indicated by special TS_Queue Name *
*---------------------------------------------------------------------*
Figure 113. Example exit program for the XTSEREQ exit (Part 15 of 16)
example XTSEREQ global user exit program
Appendix E. The example program for the XTSEREQ global user exit, DFH$XTSE 821
Vedere la pagina 852
1 2 ... 848 849 850 851 852 853 854 855 856 857 858 ... 874 875

Commenti su questo manuale

Nessun commento