4.4.2　形式

PROGRAM-ID.OWNRTYBK.
 
LINKAGE SECTION.
01 一意名1
  02 データ名A1    ADDRESS.                       ユーザSATアドレス
  02 データ名A2    PIC 9(18) COMP.                ユーザSATサイズ
  02 データ名A3    ADDRESS.                       ユーザIFAアドレス
  02 データ名A4    PIC 9(18) COMP.                ユーザIFAサイズ
  02 データ名A5    PIC X(32).                     サービス名
  02 データ名A6    PIC S9(9) COMP.                リトライ回数の上限値
  02 データ名A7    PIC S9(9) COMP.                リトライ回数
  02 データ名A8    PIC X(1).                      リトライロールバック契機
  02 データ名A9    PIC X(7).                      予備
  02 データ名A10   PIC X(32).                     トランザクション引き継ぎ情報
  02 FILLER        PIC X(18).                     予備
01 一意名2         PIC S9(9) COMP VALUE ZERO.     リターン値
 
PROCEDURE DIVISION  USING 一意名1
RETURNING 一意名2
    :
EXIT PROGRAM.

ページの先頭へ