4.2.2　形式

PROGRAM-ID.OWNOBED.
 
LINKAGE SECTION.
01 一意名1
  02 データ名A1    ADDRESS.                           ユーザSATアドレス
  02 データ名A2    PIC 9(18) COMP.                    ユーザSATサイズ
  02 データ名A3    PIC S9(9) COMP OCCURS 4 TIMES.     ロット名長
  02 データ名A4    PIC X(9) OCCURS 4 TIMES.           ロット名
  02 データ名A5    PIC S9(9) COMP.             バッチデータを格納した表名長
  02 データ名A6    PIC X(29)                   バッチデータを格納した表名
  02 データ名A7    PIC X(1).                          バッチの形式
  02 データ名A8    PIC X(1).                          OBM状態
  02 FILLER        PIC X(1).                          予備
  02 データ名A9    PIC S9(9) COMP.                    停止，終了理由コード
  02 データ名A10   PIC S9(9) COMP.    ユーザが設定した停止，終了理由コード
  02 データ名A11   ADDRESS.                           ヘッダデータアドレス
  02 データ名A12   PIC S9(9) COMP.                    ヘッダデータ長
  02 FILLER        PIC X(4).                          予備
  02 データ名A13   ADDRESS.                           ユーザIFAアドレス
  02 データ名A14   PIC 9(18) COMP.                    ユーザIFAサイズ
  02 FILLER        PIC X(40).                         予備
01 一意名2.
  02 データ名B1    PIC X(1).                          ヘッダ更新要求の有無
  02 FILLER        PIC X(31).                         予備
01 一意名3         PIC S9(9) COMP VALUE ZERO.        リターン値
 
PROCEDURE DIVISION  USING 一意名1 一意名2
RETURNING 一意名3
      :
EXIT PROGRAM.

ページの先頭へ