�@OPEN 　INPUT　　ファイル名　　　　　　　　　　　　SELECT ファイル名　ASSIGN TO infile　　　　　　　　　　　infile:実行環境定義で実際の
�ACLOSE 　　　　　　ファイル名　　　　　　　　　　　　　　　　　　　　　　 ORGANIZATION IS LINE SEQUENTIAL. 　　　　ﾌｧｲﾙと対応付け

�BREAD 　ファイル名　　AT END
�CWRITE　レコード名

IDENTIFICATION DIVISION.　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
PROGRAM-ID. SAMPLE.
*
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT 入力ファイル
ASSIGN TO infile
ORGANIZATION IS LINE SEQUENTIAL.
SELECT 出力ファイル
ASSIGN TO outfile
ORGANIZATION IS LINE SEQUENTIAL.

*
DATA DIVISION.
FILE SECTION.
FD 入力ァイル.
01 入力レコード.
　 　 03 入力ー商品コード 　　　　　　PIC X(4).
　　　03 入力ー商品名 　　　　　　　　PIC N(20).
　　　03 入力ー単価 　　　　　　　　　 PIC 9(4).　 　 .
FD 出力ァイル.
01 出力レコード.
　 　 03 出力ー商品コード 　　　　　　PIC X(4).
　　　03 出力ー商品名 　　　　　　　　PIC N(20).
　　　03 出力ー単価 　　　　　　　　　 PIC 9(4)..
*
PROCEDURE DIVISION.
**（１）使用するファイルをオープンします。
OPEN INPUT 入力ファイル.
OPEN OUTPUT 出力ファイル.
*
繰り返し位置.
**（２）行順ファイルから読み込んだレコードを索引レコードに編集し、行順フ
** ァイルに書き出します。全てのレコードを読み込んだら、終了処理に分岐
** します。
READ 入力ファイル AT END GO TO 終了処理.
MOVE 入力レコード TO 出力レコード.
WRITE 出力レコード.
GO TO 繰り返し位置.
*
終了処理.
**（３）使用したファイルをクローズします。
CLOSE 入力ファイル 出力ファイル.
.