【基本情報技術者試験平成27年春期午後】問題と解答

[TOP] [午前分野別] [午後分野別] [キーワード索引] [令和元年秋午前] [令和元年秋午後]

平成27年春期基本情報技術者午後問10

問10　　 COBOL

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

(プログラムの説明〕

　Ｃ社では，全従業員の出社時刻と退社時刻を入口のゲートで自動的に記録し，出退勤記録ファイルに格納している。このプログラムは，１か月分の出退勤記録ファイルを読み込み，出社した従業員の勤務管理ファイルに書き込むものである。

(1) 出退勤記録ファイルは，図１に示すレコード様式の順ファイルで，ある月の１か月分の出退勤記録が格納されている。

図１　出退勤記録ファイルのレコード様式 ① レコードは日付，時刻，出退勤フラグの昇順に格納されている。

② 日付には，年，月，日が，それぞれ 4 桁，2 桁，2 桁の西暦で格納されている。

③ 時刻には，出社又は退社の時刻の時，分が，それぞれ 2 桁の 24 時間表記で格納されている。

④ 出退勤フラグには，出社時は０が，退社時は１が格納されている。

⑤ 従業員番号には，従業員ごとに一意な 6 桁の番号が格納されている。

⑥ 同一従業員の出社時の記録と退社時の記録は，必ず対になっている。同じ日付のレコードは１組だけである。

⑦ 出社時刻は 6 時から 22 時までである。退社時刻は同じ日付の 24 時までである。

(2) 勤務管理ファイルは，図２に示すレコード様式の従業員番号をキーとする索引ファイルである。

図２　勤務管理ファイルのレコード様式

① 勤務履歴 1 ～ 31 には，当該月の 1 ～ 31 日の出社時刻及び退社時刻が格納される。出社しなかった日と暦にない日の出社時刻及び退社時刻には，9999 が格納される。

② 出社時刻及び退社時刻には，時，分が，それぞれ 2 桁の 24 時間表記で格納される。

③ 勤務時間には，１か月の勤務時間の合計が，3 桁の時間と 2 桁の分で格納される。毎日の出社時刻から退社時刻までの時間が１日の勤務時間である。途中の休み時間も勤務時間に含める。

〔プログラム〕

(行番号)

 1  DATA DIVISION.
 2  FILE SECTION.
 3  FD LOG-FILE.
 4  Ø1 LOG-REC.
 5     Ø2 LOG-DATE    PIC 9(8).
 6     Ø2 LOG-TIME    PIC 9(4).
 7     Ø2 LOG-FLAG    PIC 9(1).
 8        88 LOG-IN   VALUE Ø.
 9        88 LOG-OUT  VALUE 1.
1Ø     Ø2 LOG-ENUM    PIC X(6).
11  FD ATD-FILE.
12  Ø1 ATD-REC.
13     Ø2 ATD-ENUM       PIC X(6).
14     Ø2 ATD-HST.
15        Ø3 ATD-ELM     OCCURS 31.
16           Ø4 ATD-IN   PIC 9(4).
17           Ø4 ATD-OUT  PIC 9(4).
18     Ø2 ATD-SUM        PIC 9(5).
19  WORKING-STORAGE SECTION.
2Ø  77 KEY-FLAG        PIC 9(1).
21     88 ATD-VALID    VALUE Ø.
22     88 ATD-INVALID  VALUE 1.
23  77 EOF-FLAG    PIC 9(1) VALUE Ø.
24     88 LOG-EOF  VALUE 1.
25  Ø1 W-DATE.
26     Ø2 FILLER  .
27     Ø2 IDX     PIC 9(2).
28  Ø1 W-TIME-FROM.
29     Ø2 HF  PIC 9(2).
3Ø     Ø2 MF  PIC 9(2).
31  Ø1 W-TIME-TO.
32     Ø2 HT  PIC 9(2).
33     Ø2 MT  PIC 9(2).
34  Ø1 W-TIME-ACCUM.
35     Ø2 HA  .
36     Ø2 MA  PIC 9(2).
37  77 W-MINUTE  PIC 9(5).
38  PROCEDURE DIVISION.
39  MAIN-PROC.
4Ø      OPEN INPUT LOG-FILE
41           I-O   ATD-FILE.
42      PERFORM READ-PROC.
43      CLOSE ATD-FILE LOG-FILE.
44      STOP RUN.
45  READ-PROC.
46      PERFOR UNTIL LOG-EOF
47         READ LOG-FILE
48            AT END
49               SET LOG-EOF TO TRUE
5Ø            NOT AT END
51               PERFORM UPDATE-PROC
52         END-READ
53      END-PERFORM.
54  UPDATE-PROC.
55      MOVE LOG-ENUM TO ATD-ENUM.
56      SET ATD-VALID TO TRUE.
57      READ ATD-FILE
58         INVALID KEY
59            SET ATD-INVALID TO TRUE
6Ø            MOVE LOG-ENUM TO ATD-ENUM
61            
62            MOVE ZERO TO ATD-SUM
63      END-READ.
64      MOVE LOG-DATE TO W-DATE.
65      EVALUATE TRUE
66         WHEN LOG-IN
67            MOVE LOG-TIME    TO ATD―IN(IDX)
68         WHEN LOG-OUT
69            MOVE LOG-TIME    TO ATD-OUT(IDX) W-TIME-TO
7Ø            MOVE ATD-IN(IDX) TO              W-TIME-FROM
71            MOVE ATD-SUM     TO              W-TIME-ACCUM
72            PERFORM CALC-PROC
73            MOVE  TO ATD-SUM
74      END-EVALUATE.
75      IF ATD-VALID THEN
76         REWRITE ATD-REC
77      ELSE
78         WRITE ATD-REC
79      END-IF.
8Ø  CALC-PROC.
81      COMPUTE W-MINUTE = (HT - HF + HA) * 6Ø + MT - MF + MA.
82      DIVIDE W-MINUTE BY 6Ø GIVING HA REMAINDER MA.