1件入力1件出力パターン

仕様を確認する

基本的なフォーム変換。
入力レコード全件について、部門コードに固定値を設定して出力する。

コーディングする

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

コピー句を作成する

コピー句(入力用)の作成場所とファイル名は
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-EMPLOYEE.COB

       01 O-EMPLOYEE.
         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                       PIC X(11).

注意点

このプログラムは入出力ファイル名をソース内で直接指定しています。
コピー句のPREFIX置換機能がうまく機能しなかったので、入出力ファイルのフォーマットが同じなのにわざわざ入出力各々の為にコピー句を作成しています。（置換機能がうまくいかなかったのは、コーディングミスと思いつつ、未調査）