* HINA034 - SORT処理
       >>SOURCE FORMAT IS FREE
      * SORT文によるファイルソート
      * 期待: SORT文, INPUT/OUTPUT PROCEDURE
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HINA034.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN-FILE ASSIGN TO "SORTIN.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.
           SELECT OUT-FILE ASSIGN TO "SORTOUT.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.
           SELECT WORK-FILE ASSIGN TO "SORTWORK".
       DATA DIVISION.
       FILE SECTION.
       FD IN-FILE.
       01 IN-REC.
          05 IN-KEY PIC 9(05).
          05 IN-DATA PIC X(20).
       FD OUT-FILE.
       01 OUT-REC.
          05 OUT-KEY PIC 9(05).
          05 OUT-DATA PIC X(20).
       SD WORK-FILE.
       01 WORK-REC.
          05 WORK-KEY PIC 9(05).
          05 WORK-DATA PIC X(20).
       WORKING-STORAGE SECTION.
       01 WS-CNT PIC 9(05).
       01 WS-MAX PIC 9(05).
       PROCEDURE DIVISION.
       0000-MAIN.
           SORT WORK-FILE
               ON ASCENDING KEY WORK-KEY
               USING IN-FILE
               GIVING OUT-FILE.
           DISPLAY "SORT COMPLETE".
           STOP RUN.