ＣＯＢＯＬおまけサンプルソース(SORT)

000071******************************************************************
000072*
000073* COBOLおまけサンプルソース
000074* PROGRAM-ID:SORT1
000075* 作成日：2001-02-10
000076* 作成者：プー
000077* 機能概要：
000078* 入力ファイルを指定したキーの昇順に並びかえて、出力する。
000079*
000080******************************************************************
000090 IDENTIFICATION 　　　　DIVISION.
000100 PROGRAM-ID. 　　　　　SORT1.
000110 AUTHOR. 　　　　　　　　　PU.
000120 DATE-WRITTEN. 　　　　2001.02.10.
000130*
000140 ENVIRONMENT 　　　　　DIVISION.
000150*
000160 INPUT-OUTPUT　　　　 SECTION.
000170 FILE-CONTROL.
000180 　　　　　SELECT 　IN01-F 　　ASSIGN 　TO　 IN01
000190 　　　　　　　　　　　　　ORGANIZATION IS LINE SEQUENTIAL.
000201 　　　　　SELECT 　OUT01-F 　ASSIGN 　TO　 OUT01
000210 　　　　　　　　　　　　　ORGANIZATION IS LINE SEQUENTIAL.
000201 　　　　　SELECT 　SORT-F 　　ASSIGN 　TO　 SORTWORK.
000211*
000220 DATA 　　DIVISION.
000230 FILE 　　SECTION.
000240******************************************************************
000250* 入力ファイル
000260******************************************************************
000270 FD IN01-F.
000290 　　COPY　　 SORT-FILE
000300 　　　　　　　　DISJOINING X
000310 　　　　　　　　JOINING IN01
000320 　　　　　　　　AS PREFIX.
000400******************************************************************
000410* 出力ファイル
000420******************************************************************
000430 FD OUT01-F.
000290 　　COPY 　　SORT-FILE
000300 　　　　　　　　DISJOINING X
000310 　　　　　　　　JOINING OUT01
000320 　　　　　　　　AS PREFIX.
000400******************************************************************
000410* ソート用ワークファイル
000420******************************************************************
000430 SD SORT-F.
000290 　　COPY 　　SORT-FILE
000300 　　　　　　　　DISJOINING X
000310 　　　　　　　　JOINING WK
000320 　　　　　　　　AS PREFIX.
000480******************************************************************
000490* WORK定義
000500******************************************************************
000510 WORKING-STORAGE SECTION.
000678******************************************************************
000680* メイン処理
000690******************************************************************
000700 PROCEDURE　　 DIVISION.
000710 SORT-STA 　　　SECTION.
000720*
000721　　　　SORT SORT-F
000723 　　　　　　ON ASCENDING KEY WK-TOKUTEN
000724 　　　　　　　　　　　　　　　　　　　　WK-KAISU
000725 　　　　　　USING　　 IN01-F
000726 　　　　　　GIVING　　 OUT01-F
000727 　　　STOP RUN.
000800 SORT-END.
000810 　　　EXIT.