TPINTRO

〈このページの構成〉

名称

XATMIインタフェース用のCOPYファイル

説明

次に示すリターンコードと領域の定義は，COBOL XATMIルーチンで使います。XATMIインタフェースを使う場合には，次に示す4件のCOPYファイルに領域の定義をする必要があります。それぞれのCOPYファイルは，必要最小限のレコードを記述しています。

『以降のCOBOLレコードは，$DCDIR/include/COBOL/ディレクトリに格納されています。UAPをコンパイルするときには，COPYファイルの存在場所としてこのディレクトリを指定する必要があります。コンパイル時の指定については，使用するCOBOL言語のマニュアルを参照してください。』

*
* TPSTATUS.cbl
*
 05 TP-STATUS PIC S9(9) COMP-5.
          88 TPOK           VALUE 0.
          88 TPEBADDESC     VALUE 2.
          88 TPEBLOCK       VALUE 3.
          88 TPEINVAL       VALUE 4.
          88 TPELIMIT       VALUE 5.
          88 TPENOENT       VALUE 6.
          88 TPEOS          VALUE 7.
          88 TPEPROTO       VALUE 9.
          88 TPESVCERR      VALUE 10.
          88 TPESVCFAIL     VALUE 11.
          88 TPESYSTEM      VALUE 12.
          88 TPETIME        VALUE 13.
          88 TPETRAN        VALUE 14.
          88 TPEGOTSIG      VALUE 15.
          88 TPEITYPE       VALUE 17.
          88 TPEOTYPE       VALUE 18.
          88 TPEEVENT       VALUE 22.
          88 TPEMATCH       VALUE 23.
 05 TPEVENT PIC S9(9) COMP-5.
          88 TPEV-NOEVENT   VALUE 0.
          88 TPEV-DISCONIMM VALUE 1.
          88 TPEV-SENDONLY  VALUE 2.
          88 TPEV-SVCERR    VALUE 3.
          88 TPEV-SVCFAIL   VALUE 4.
          88 TPEV-SVCSUCC   VALUE 5.
 05 APPL-RETURN-CODE PIC S9(9) COMP-5.

次に示すCOBOLレコードは，アプリケーションがデータを送受信するときには常に使われます。REC-TYPEには，送信されるデータレコードの型が含まれます。SUB-TYPEには，特定の型のsubtypeの名称が含まれます。LENには，送信するデータの長さ，および受信するデータの長さが含まれます。

*
* TPTYPE.cbl
*
 05 REC-TYPE      PIC X(8).
          88 X-OCTET    VALUE "X_OCTET".
          88 X-COMMON   VALUE "X_COMMON".
 05 SUB-TYPE      PIC X(16).
 05 LEN           PIC S9(9) COMP-5.
          88 NO-LENGTH  VALUE 0.
 05 TPTYPE-STATUS PIC S9(9) COMP-5.
          88 TPTYPEOK   VALUE 0.
          88 TPTRUNCATE VALUE 1.

次に示すCOBOLレコードは，コミュニケーションリソースマネジャから設定を渡されるため，またはコミュニケーションリソースマネジャへ設定を渡すために使われます。

*
* TPSVCDEF.cbl
*
 05 COMM-HANDLE        PIC S9(9) COMP-5.
 05 TPBLOCK-FLAG       PIC S9(9) COMP-5.
          88 TPBLOCK       VALUE 0.
          88 TPNOBLOCK     VALUE 1.
 05 TPTRAN-FLAG        PIC S9(9) COMP-5.
          88 TPTRAN        VALUE 0.
          88 TPNOTRAN      VALUE 1.
 05 TPREPLY-FLAG       PIC S9(9) COMP-5.
          88 TPREPLY       VALUE 0.
          88 TPNOREPLY     VALUE 1.
 05 TPTIME-FLAG        PIC S9(9) COMP-5.
          88 TPTIME        VALUE 0.
          88 TPNOTIME      VALUE 1.
 05 TPSIGRSTRT-FLAG    PIC S9(9) COMP-5.
          88 TPNOSIGRSTRT  VALUE 0.
          88 TPSIGRSTRT    VALUE 1.
 05 TPGETANY-FLAG      PIC S9(9) COMP-5.
          88 TPGETHANDLE   VALUE 0.
          88 TPGETANY      VALUE 1.
 05 TPSENDRECV-FLAG    PIC S9(9) COMP-5.
          88 TPSENDONLY    VALUE 0.
          88 TPRECVONLY    VALUE 1.
 05 TPNOCHANGE-FLAG    PIC S9(9) COMP-5.
          88 TPCHANGE      VALUE 0.
          88 TPNOCHANGE    VALUE 1.
 05 TPSERVICETYPE-FLAG PIC S9(9) COMP-5.
          88 TPREQRSP      VALUE 0.
          88 TPCONV        VALUE 1.
 05 SERVICE-NAME       PIC X(15).

次に示すCOBOLレコードは，TPRETURNがトランザクションの状態を知らせるために使われます。

*
* TPSVCRET.cbl
*
 05 TP-RETURN-VAL PIC S9(9) COMP-5.
          88 TPSUCCESS   VALUE 0.
          88 TPFAIL      VALUE 1.
 05 APPL-CODE     PIC S9(9) COMP-5.

ページの先頭へ