Ibm SC33-1683-02 User Manual Page 854

  • Download
  • Add to my manuals
  • Print
  • Page
    / 875
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 853
TS_ROUTING_TABLE DS 0D
ENTRY_NAME_1 DC CL8'AAAAAAAA' Rename Queue AAAAAAAA as
NEW_NAME_1 DC CL8'BBBBBBBB' BBBBBBBBB
QOR_SYSID_1 DC CL4' '
ACTION_1 DC XL1'01' Local request
FILLER_1 DC CL3' '
ENTRY_NAME_2 DC CL8'A1 ' Rename Queue A1 as
NEW_NAME_2 DC CL8'B1 ' B1
QOR_SYSID_2 DC CL4' '
ACTION_2 DC XL1'01' Local request
FILLER_2 DC CL3' '
ENTRY_NAME_3 DC CL8'A2 ' Rename Queue A2 as
NEW_NAME_3 DC CL8'B2 ' B2
QOR_SYSID_3 DC CL4' '
ACTION_3 DC XL1'01' Local request
FILLER_3 DC CL3' '
ENTRY_NAME_4 DC CL8'RRRRRRRR' Rename Queue RRRRRRRR as
NEW_NAME_4 DC CL8'REMOTE ' REMOTE and ship request
QOR_SYSID_4 DC CL4'MQ1 ' to System MQ1
ACTION_4 DC XL1'02'
FILLER_4 DC CL3' '
ENTRY_NAME_5 DC CL8'R1 ' Don't rename Queue R1, but
NEW_NAME_5 DC CL8'R1 ' ship request to System MQ1
QOR_SYSID_5 DC CL4'MQ1 '
ACTION_5 DC XL1'02'
FILLER_5 DC CL3' '
ENTRY_NAME_LAST DC XL8'FFFFFFFFFFFFFFFF'
NEW_NAME_LAST DC CL8' '
QOR_SYSID_LAST DC CL4' '
ACTION_LAST DC XL1'00'
FILLER_LAST DC CL3' '
END DFH$XTSE
Figure 113. Example exit program for the XTSEREQ exit (Part 16 of 16)
822 CICS TS for OS/390: CICS Customization Guide
Page view 853
1 2 ... 849 850 851 852 853 854 855 856 857 858 859 ... 874 875

Comments to this Manuals

No comments