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
この IMS アプリケーションによって返される出力メッセージは 99 バイトの固定長で、COBOL 01 構造の OUTPUT-MSG で表わされます。
このマルチ・セグメント・アプリケーションを作成する 1 つの方法は、COBOL 定義 OUTPUT-MSG を使用して、トランザクションの出力を定義することです。2 番目の方法は、トランザクションの出力用の出力メッセージを作成することです。 このチュートリアルで提供されるコードは 2 番目の方法を使用します。これは、可変長出力メッセージを処理するアプリケーションの作成にも、このコードを使用できるからです。 個々のメッセージ・セグメントの COBOL 定義は、それぞれのセグメントのデータへのアクセスを単純化するために、継続して使用されます。
IMS サーバーへの接続