〔プログラムの説明〕

駐輪場の使用状況を調べ，空き区画の番号を表示するプログラムである。 駐輪場の各区画には自転車を 1 台駐輪することができ，それぞれの区画には区画番号が付けられている。 区画は 200 台分あり，区画番号は 1 〜 200 の連番となっている。

(1)　使用状況ファイルのレコード様式は，次のとおりである。

(2)　空き区画の情報を次のように表示する。

〔プログラム〕
DATA DIVISION.
FILE SECTION.
FD  SHIYO-F.
01  SHIYO-R.
    03  BANGO     PIC 9(3).
    03            PIC X(100).
WORKING-STORAGE SECTION.
01  END-SW        PIC X(3).
01  DISPLAY-SW    PIC X(2).
01  MIDASHI       PIC X(10) VALUE  "AKI KUKAKU".
01  MEISAI.
    03  M-HAJIME  PIC ZZZ.
    03  M-HYPHEN  PIC X(3).
    03  M-OWARI   PIC ZZZ.
01  W-SA          PIC 9(3).
01  W-BANGO       PIC 9(3).
PROCEDURE DIVISION.
SHORI.
    OPEN INPUT SHIYO-F.
    INITIALIZE W-BANGO END-SW DISPLAY-SW.
    DISPLAY MIDASHI.
    PERFORM UNTIL END-SW = "END"
       READ SHIYO-F AT END MOVE "END" TO END-SW
       NOT AT END
          COMPUTE W-SA = BANGO - W-BANGO
          IF W-SA >  THEN
             MOVE SPACE TO MEISAI
             
             IF W-SA >  THEN
                MOVE " - " TO M-HYPHEN
                
             END-IF
             DISPLAY MEISAI
             
          END-IF
          MOVE BANGO TO W-BANGO
       END-READ
    END-PERFORM.
    IF W-BANGO NOT = 200 THEN 
       MOVE SPACE TO MEISAI
       
       IF W-BANGO < 199 THEN
          MOVE " - " TO M-HYPHEN
          MOVE 200 TO M-OWARI
       END-IF
       DISPLAY MEISAI
    ELSE IF DISPLAY-SW = SPACE THEN
       DISPLAY "AKI : 0"
    END-IF. 
    CL OS E SHIYO-F.
    STOP RUN.

ア　0　　　　　　イ　1　　　　　　ウ　2

ア　COMPUTE M-HAJIME = BANGO - 1

イ　COMPUTE M-HAJIME = W-BANGO + 1

ウ　COMPUTE M-OWARI = BANGO - 1

エ　COMPUTE M-OWARI = W-BANGO + 1

オ　MOVE SPACE TO DISPLAY-SW

カ　MOVE SPACE TO MEISAI

キ　MOVE W-BANGO TO M-HAJIME

ク　MOVE W-BANGO TO M-OWARI

ケ　MOVE "ON" TO DISPLAY-SW