１対Ｎマッチング

仕様を確認する

基本的な１対Ｎマッチング。
従業員情報に部門名を付加して出力(リスト出力前の準備処理というイメージ)。

コーディングする

→ クリックしてソースを表示
作成場所とファイル名は
C:/cygwin/home/各ユーザID/cobol/MATCH001.COB

コピー句を作成する

コピー句(マスターファイル用)の作成場所とファイル名は
C:/cygwin/home/各ユーザID/copy/I-SECTION.COB

       01 I-SECTION.
         03 I-SECTIONID           PIC X(06).
         03 I-SECTIONNAMEKANA     PIC X(25).
         03 I-SECTIONNAMEKANJI    PIC N(25).
         03                       PIC X(19).

コピー句(トランザクションファイル用)の作成場所とファイル名は
C:/cygwin/home/各ユーザID/copy/I-EMPLOYEE.COB

       01 I-EMPLOYEE.
         03 I-EMPLOYEEID          PIC X(08).
         03 I-SECTIONID           PIC X(06).
         03 I-EMPNAMEKANA         PIC X(25).
         03 I-EMPNAMEKANJI        PIC N(25).
         03                       PIC X(11).

コピー句(出力用)の作成場所とファイル名は
C:/cygwin/home/各ユーザID/copy/O-EMPLOYEELIST.COB

       01 O-EMPLOYEELIST.
         03 O-EMPLOYEEID          PIC X(08).
         03 O-SECTIONID           PIC X(06).
         03 O-EMPNAMEKANA         PIC X(25).
         03 O-EMPNAMEKANJI        PIC N(25).
         03 O-SECTIONNAMEKANA     PIC X(25).
         03 O-SECTIONNAMEKANJI    PIC N(25).
         03                       PIC X(36).

注意点

このプログラムは入出力ファイル名をソース内で直接指定しています。