S11 1 1 1 1 TP 1
L GU
E OK
E Z0017 DATA SKS2 M2 SI1M3 SI1
WTO SEGMENT SI1 RECEIVED
L GN
E QD
WTO END OF INPUT SEGMENTS
L ISRT IW06OUT
L Z0012 DATA *******M1SO1
E OK
WTO SEGMENT SO1 INSERTTED
L ISRT
L Z0027 DATA ********M1SO2*********M2SO2
E OK
WTO SEGMENT SO2 INSERTTED
L ISRT
L Z0048 DATA **********M1SO3***********M2SO3************M3SO3
E OK
WTO SEGMENT SO3 INSERTTED
WTO CURRENT PROGRAM STLDDLT2 TERMINATED
L GU
Le message de sortie retourné par cette application IMS particulière a une taille fixe de 99 octets et est représentée par la structure COBOL 01 OUTPUT-MSG.
Une façon de développer cette application multisegment est d'utiliser la définition COBOL OUTPUT-MSG pour définir la sortie de la transaction. Une autre façon consiste à créer un message de sortie pour la sortie de la transaction. Le code fourni par ce tutoriel utilise la deuxième méthode, dans la mesure où il peut aussi être utilisé pour créer une application qui traite un message de sortie de longueur variable. Les définitions COBOL pour les segments de messages individuels continuent d'être utilisées pour simplifier l'accès aux données des segments individuels.
Connexion au serveur IMS