Before using the sample program in a production environment, you would need to
customize it to suit your installation.
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 149. Example exit program for the XTSEREQ exit (part 16)
892 Customization Guide
To Next Page
Loading...
Need help?
General