4.3.2　形式

PROGRAM-ID.OWNOBSK.
 
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 FILLER        PIC X(4).
  02 データ名A5    PIC S9(9) COMP.                   ロット名数
  02 データ名A6    PIC S9(9) COMP.                   バッチデータ長
  02 データ名A7    ADDRESS.                          バッチデータアドレス
  02 データ名A8    PIC S9(9) COMP OCCURS 7 TIMES.    バッチデータのキー長
  02 データ名A9    PIC X(8) OCCURS 7 TIMES.          バッチデータのキー
  02 データ名A10   PIC S9(9) COMP.                   バッチデータの通番
  02 データ名A11   PIC X(1).                         メッセージ状態
  02 FILLER        PIC X(3).                         予備
  02 データ名A12   ADDRESS.                          ユーザIFAアドレス
  02 データ名A13   PIC 9(18) COMP.                   ユーザIFAサイズ
  02 FILLER        PIC X(16).                        予備
 
PROCEDURE DIVISION  USING 一意名1
                    :
EXIT PROGRAM.

ページの先頭へ