次の COBOL プログラムの説明及びプログラムを読んで，設問１，２に答えよ。

(1) このプログラムのパラメタは二つで，各パラメタの様式は，図１のとおりである。

図１　パラメタの様式

(2) 予約ファイルは， 日付を主キーとする図２に示すレコード様式の索引ファイルであり，予約状況を管理する。

図２　予約ファイルのレコード様式

〔プログラム〕
(行番号)

 1  DATA  DIVISION.
 2  FILE SECTION.
 3  FD RSV-FILE.
 4  Ø1 RSV-REC.
 5     Ø2 RSV-DATE       PIC X(8).
 6     Ø2 RSV-ROOM       OCCURS 6.
 7        Ø3 RSV-NO         PIC 9(6).
 8  WORKING-STORAGE SECTION.
 9  77 CNT          PIC 9(1).
1Ø  77 GET-ROOM     PIC 9(1).
1l  LINKAGE SECTION.
12  Ø1 PRM1.
13     Ø2 PRM-NO         PIC 9(6).
14     Ø2 PRM-DATE       PIC 9(3).
15     Ø2 PRM-ROOM       PIC 9(1).
16  Ø1 PRM2.
17     Ø2 PRM-RSLT       PIC 9(1).
18     Ø2 PRM-FREE       PIC 9(1).
19  PROCEDURE DIVISION USING PRM1 PRM2.
2Ø  MAIN-PROC.
21      OPEN I-O RSV-FILE.
22      MOVE PRM-DATE TO RSV-DATE.
23      READ RSV-FILE INVALID KEY      PERFORM RSV-PROC
24                     NOT INVALID KEY PERFORM CHK-PROC
25      END-READ.
26      CLOSE RSV-FILE.
27      EXIT PROGRAM.
28  RSV-PROC.
29      INITIALIZE RSV-REC.
3Ø      MOVE PRM-DATE TO RSV-DATE.
31      PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT > PRM-ROOM
32         
33      END-PERFORM.
34      WRITE RSV-REC.
35      MOVE ZERO TO PRM-RSLT PRM-FREE.
36  CHK-PROC.
37      MOVE ZERO TO GET-ROOM PRM-FREE.
38      PERFORM VARYING CNT FROM 1 BY 1 UNTIL 
39         IF RSV-NO(CNT) = ZERO THEN
4Ø            IF PRV-ROOM > GET-ROOM THEN
41               MOVE PRM-NO TO RSV-NO(CNT)
42               ADD 1 TO GET-ROOM
43            END-IF
44            ADD 1 TO PRM-FREE
45         END-IF
46      END-PERFORM.
47      IF  THEN
48         REWRITE RSV-REC
49         MOVE ZERO TO PRM-RSLT PRM-FREE
5Ø      ELSE
51         MOVE 9 TO PRM-RSLT
52      END-IF.

基本情報技術者試験

設問２	予約をキャンセルする場合は，宿泊する日の７日前からキャンセル料が発生する。 希望どおり予約できた場合には，キャンセル料の発生開始日もパラメタで返すように， プログラムを変更する。キャンセル料の発生開始日の年，月， 日は， それぞれ西暦の４桁，２桁，２桁で表し，予約できなかった場合には 0 を設定する。 キャンセル料の発生開始日を求める処理は 2016 年〜 2099 年で動作を保証する。 表中の に入れる正しい答えを，解答群の中から選べ。

処置	変更内容
行番号 10 と 11 の間 に追加	Ø1 MONTH-TABLE. Ø2 MONTH-VAL PIC X(24) VALUE "3128313Ø313Ø31313Ø313Ø31".　　  Ø2 MONTH-ELM REDEFINES MONTH-VAL OCCURS 12 PIC 9(2). 77 URU-SUPPLY PIC 9(1). 77 QUOTIENT PIC 9(3).
行番号 18 と 19 の間 に追加	Ø2 PRM-CANCEL. Ø3 CAN-YYYY PIC 9(4). Ø3 CAN-MM PIC 9(2). Ø3 CAN-DD PIC 9(2).
に追加	IF PRM-RSLT = ZERO THEN PERFORM SET-CANCEL ELSE MOVE ZERO TO PRM-CANCEL END-IF.
行番号 52 の後ろに に追加	SET-CANCEL. MOVE PRM-DATE TO PRM-CANCEL. IF CAN-DD > 7 THEN SUBTRACT 7 FROM CAN-DD ELSE IF CAN-MM = 1 THEN SUBTRACT 1 FROM CAN-YYYY MOVE 12 TO CAN-MM COMPUTE CAN-DD = 31 + CAN-DD - 7 ELSE SUBTRACT 1 FROM CAN-MM IF CAN-MM = 2 THEN DIVIDE CAN-YYYY BY 4 GIVING QUOTIENT REMAINDER URU-SUPPLY IF THEN ADD 1 TO CAN-DD END-IF END-IF END-IF END-IF.