Ibm SC34-6814-04 Manuel d'utilisateur Page 914

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 953
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 913
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
Vue de la page 913
1 2 ... 909 910 911 912 913 914 915 916 917 918 919 ... 952 953

Commentaires sur ces manuels

Pas de commentaire