diff --git a/bin/KIN01INP.exe b/bin/KIN01INP.exe index 2a96690..6fda3aa 100644 Binary files a/bin/KIN01INP.exe and b/bin/KIN01INP.exe differ diff --git a/bin/KIN02UPD.exe b/bin/KIN02UPD.exe index 31a7cbc..f31d023 100644 Binary files a/bin/KIN02UPD.exe and b/bin/KIN02UPD.exe differ diff --git a/bin/KIN03EXP.exe b/bin/KIN03EXP.exe index 01f96a8..70931bc 100644 Binary files a/bin/KIN03EXP.exe and b/bin/KIN03EXP.exe differ diff --git a/bin/KIN04CHK.exe b/bin/KIN04CHK.exe index a53745a..90f8287 100644 Binary files a/bin/KIN04CHK.exe and b/bin/KIN04CHK.exe differ diff --git a/bin/KIN05MAT.exe b/bin/KIN05MAT.exe index 049c847..bd59ac5 100644 Binary files a/bin/KIN05MAT.exe and b/bin/KIN05MAT.exe differ diff --git a/bin/KIN06CLD.exe b/bin/KIN06CLD.exe index bad2152..f9e7c90 100644 Binary files a/bin/KIN06CLD.exe and b/bin/KIN06CLD.exe differ diff --git a/bin/KIN07DAI.exe b/bin/KIN07DAI.exe index a1a6bd2..0c3abcc 100644 Binary files a/bin/KIN07DAI.exe and b/bin/KIN07DAI.exe differ diff --git a/bin/KIN08DBU.exe b/bin/KIN08DBU.exe index 1f066c2..2e0e088 100644 Binary files a/bin/KIN08DBU.exe and b/bin/KIN08DBU.exe differ diff --git a/bin/KIN09CSV.exe b/bin/KIN09CSV.exe index 551cd7e..73693c0 100644 Binary files a/bin/KIN09CSV.exe and b/bin/KIN09CSV.exe differ diff --git a/bin/SUB01DAT.dll b/bin/SUB01DAT.dll index b1a6de7..059bd8f 100644 Binary files a/bin/SUB01DAT.dll and b/bin/SUB01DAT.dll differ diff --git a/bin/SUB02MSG.dll b/bin/SUB02MSG.dll index ebb8af9..3e12e90 100644 Binary files a/bin/SUB02MSG.dll and b/bin/SUB02MSG.dll differ diff --git a/bin/SUB03END.dll b/bin/SUB03END.dll index 8db2143..b15f4a4 100644 Binary files a/bin/SUB03END.dll and b/bin/SUB03END.dll differ diff --git a/bin/SUB04CHK.dll b/bin/SUB04CHK.dll index bff4aaa..2943938 100644 Binary files a/bin/SUB04CHK.dll and b/bin/SUB04CHK.dll differ diff --git a/bin/SUB05TIM.dll b/bin/SUB05TIM.dll index 0bde1dc..42500f6 100644 Binary files a/bin/SUB05TIM.dll and b/bin/SUB05TIM.dll differ diff --git a/bin/ZAN01CHK.exe b/bin/ZAN01CHK.exe index 6bd3d5a..6c747a5 100644 Binary files a/bin/ZAN01CHK.exe and b/bin/ZAN01CHK.exe differ diff --git a/bin/ZAN02CHK.exe b/bin/ZAN02CHK.exe index f8aa465..92f9309 100644 Binary files a/bin/ZAN02CHK.exe and b/bin/ZAN02CHK.exe differ diff --git a/bin/ZAN03CHK.exe b/bin/ZAN03CHK.exe index b213b52..bbaffd7 100644 Binary files a/bin/ZAN03CHK.exe and b/bin/ZAN03CHK.exe differ diff --git a/bin/ZAN04MAT.exe b/bin/ZAN04MAT.exe index 4d12394..93ddb4b 100644 Binary files a/bin/ZAN04MAT.exe and b/bin/ZAN04MAT.exe differ diff --git a/bin/ZAN05CAL.exe b/bin/ZAN05CAL.exe index bdebe7d..0851c69 100644 Binary files a/bin/ZAN05CAL.exe and b/bin/ZAN05CAL.exe differ diff --git a/bin/ZAN06UPD.exe b/bin/ZAN06UPD.exe index d2ddbaf..c3e5eb2 100644 Binary files a/bin/ZAN06UPD.exe and b/bin/ZAN06UPD.exe differ diff --git a/cpy/KIN01REC.cpy b/cpy/KIN01REC.cpy new file mode 100644 index 0000000..e37f46c --- /dev/null +++ b/cpy/KIN01REC.cpy @@ -0,0 +1,12 @@ + * + * 勤怠: 休暇申請中間レコード WORK-LEAVE 80B + * + 03 (A)APPL-ID PIC 9(009). + 03 (A)EMP-ID PIC X(008). + 03 (A)LEAVE-TYPE PIC X(002). + 03 (A)START-DATE PIC 9(008). + 03 (A)START-TIME PIC 9(004). + 03 (A)END-DATE PIC 9(008). + 03 (A)END-TIME PIC 9(004). + 03 (A)STATUS PIC X(001). + 03 (A)FILLER PIC X(036). diff --git a/cpy/KIN02REC.cpy b/cpy/KIN02REC.cpy new file mode 100644 index 0000000..4bb3fc7 --- /dev/null +++ b/cpy/KIN02REC.cpy @@ -0,0 +1,10 @@ + * + * 勤怠: 日別展開休暇レコード LEAVE-DAILY 80B + * + 03 (A)EMP-ID PIC X(008). + 03 (A)DATE PIC 9(008). + 03 (A)LEAVE-TYPE PIC X(002). + 03 (A)START-TIME PIC 9(004). + 03 (A)END-TIME PIC 9(004). + 03 (A)APPL-ID PIC 9(009). + 03 (A)FILLER PIC X(045). diff --git a/cpy/KIN03REC.cpy b/cpy/KIN03REC.cpy new file mode 100644 index 0000000..9523a9c --- /dev/null +++ b/cpy/KIN03REC.cpy @@ -0,0 +1,16 @@ + * + * 勤怠: 打刻休暇照合レコード KIN-LEAVE 160B + * + 03 (A)EMP-ID PIC X(008). + 03 (A)WORK-DATE PIC 9(008). + 03 (A)STR-TIME PIC 9(004). + 03 (A)END-TIME PIC 9(004). + 03 (A)DEPT-ID PIC X(004). + 03 (A)TERMINAL PIC X(006). + 03 (A)FILLER-1 PIC X(046). + 03 (A)LEAVE-TYPE PIC X(002). + 03 (A)LEAVE-STR-TIME PIC 9(004). + 03 (A)LEAVE-END-TIME PIC 9(004). + 03 (A)LEAVE-HOURS PIC 9(004)V9(001). + 03 (A)APPLICATION-ID PIC 9(009). + 03 (A)FILLER-2 PIC X(056). diff --git a/cpy/KIN08REC.cpy b/cpy/KIN08REC.cpy new file mode 100644 index 0000000..cfc3409 --- /dev/null +++ b/cpy/KIN08REC.cpy @@ -0,0 +1,11 @@ + * + * 勤怠: 欠勤集計中間ファイル ABSENCE-SUMMARY 80B + * + 03 (A)EMP-ID PIC X(008). + 03 (A)YEAR-MONTH PIC X(006). + 03 (A)ANNUAL-LEAVE-H PIC 9(004)V9(001). + 03 (A)PERSONAL-LEAVE-H PIC 9(004)V9(001). + 03 (A)OFFICIAL-LEAVE-H PIC 9(004)V9(001). + 03 (A)SICK-LEAVE-H PIC 9(004)V9(001). + 03 (A)ABSENT-H PIC 9(004)V9(001). + 03 (A)FILLER PIC X(041). diff --git a/cpy/KIN09REC.cpy b/cpy/KIN09REC.cpy new file mode 100644 index 0000000..03dcf20 --- /dev/null +++ b/cpy/KIN09REC.cpy @@ -0,0 +1,4 @@ + * + * 勤怠: CSV出力レコード CSV-OUTPUT 200B + * + 03 (A)CSV-LINE PIC X(200). diff --git a/src/KIN03EXP.cbl b/src/KIN03EXP.cbl index 7ea3d14..3e17a29 100644 --- a/src/KIN03EXP.cbl +++ b/src/KIN03EXP.cbl @@ -208,72 +208,61 @@ 1000ITTSOR-EXT. EXIT. ***************************************************************** - * サブモジュールNO:(1.1) * - * サブモジュール名:C1初回FETCH処理 * - * 処理概要 : LEAVE_RECORDSをSELECT INTO(初回のみ) * + * サブモジュールNO:(1.1) * + * サブモジュール名:C1 OPEN + 初回FETCH処理 * + * 機能概要 : C1(CURSOR FOR LEAVE_RECORDS)のOPEN+FETCH * ***************************************************************** 1100C1INITSOR SECTION. * - MOVE SPACES TO SQL-APPL-ID. - EXEC SQL - SELECT APPLICATION_ID, EMP_ID, LEAVE_TYPE, - START_DATE, START_TIME, - END_DATE, END_TIME - FROM LEAVE_RECORDS - WHERE STATUS = '1' - ORDER BY EMP_ID, START_DATE - INTO :SQL-APPL-ID, :SQL-EMP-ID, :SQL-LEAVE-TYPE, - :SQL-START-DATE, :SQL-START-TIME, - :SQL-END-DATE, :SQL-END-TIME - END-EXEC. + *** C1 DECLARE + EXEC SQL + DECLARE C1 CURSOR FOR + SELECT APPLICATION_ID, EMP_ID, LEAVE_TYPE, + START_DATE, START_TIME, + END_DATE, END_TIME + FROM LEAVE_RECORDS + WHERE STATUS = '1' + ORDER BY EMP_ID, START_DATE + END-EXEC. * - IF SQLCODE = 0 - ADD 1 TO CUN-R01INN - ELSE - MOVE '1' TO WRK-R01EOF - END-IF. + *** C1 OPEN + EXEC SQL + OPEN C1 + END-EXEC. * - 1100C1INITSOR-EXT. + *** C1 初回FETCH + IF SQLCODE = 0 + EXEC SQL + FETCH C1 + INTO :SQL-APPL-ID, :SQL-EMP-ID, :SQL-LEAVE-TYPE, + :SQL-START-DATE, :SQL-START-TIME, + :SQL-END-DATE, :SQL-END-TIME + END-EXEC + IF SQLCODE = 0 + ADD 1 TO CUN-R01INN + ELSE + MOVE '1' TO WRK-R01EOF + END-IF + ELSE + MOVE '1' TO WRK-R01EOF + END-IF. + * + 1100C1INITSOR-EXT. EXIT. ***************************************************************** - * サブモジュールNO:(1.2) * - * サブモジュール名:C1次回FETCH処理 * - * 処理概要 : br_fetch_nextで次行を読込(2回目以降) * + * サブモジュールNO:(1.2) * + * サブモジュール名:C1の FETCH処理 * + * 機能概要 : C1のFETCH(2回目以降) * ***************************************************************** 1100C1FETCHSOR SECTION. * - CALL 'br_fetch_next' USING SQLCODE. - * - IF SQLCODE = 0 - MOVE SPACES TO SQL-APPL-ID - MOVE 0 TO WS-COL-IDX - MOVE 256 TO WS-COL-LEN - CALL 'br_get_col' USING - WS-COL-IDX, SQL-APPL-ID, WS-COL-LEN - MOVE 1 TO WS-COL-IDX - MOVE 256 TO WS-COL-LEN - CALL 'br_get_col' USING - WS-COL-IDX, SQL-EMP-ID, WS-COL-LEN - MOVE 2 TO WS-COL-IDX - MOVE 256 TO WS-COL-LEN - CALL 'br_get_col' USING - WS-COL-IDX, SQL-LEAVE-TYPE, WS-COL-LEN - MOVE 3 TO WS-COL-IDX - MOVE 256 TO WS-COL-LEN - CALL 'br_get_col' USING - WS-COL-IDX, SQL-START-DATE, WS-COL-LEN - MOVE 4 TO WS-COL-IDX - MOVE 256 TO WS-COL-LEN - CALL 'br_get_col' USING - WS-COL-IDX, SQL-START-TIME, WS-COL-LEN - MOVE 5 TO WS-COL-IDX - MOVE 256 TO WS-COL-LEN - CALL 'br_get_col' USING - WS-COL-IDX, SQL-END-DATE, WS-COL-LEN - MOVE 6 TO WS-COL-IDX - MOVE 256 TO WS-COL-LEN - CALL 'br_get_col' USING - WS-COL-IDX, SQL-END-TIME, WS-COL-LEN + EXEC SQL + FETCH C1 + INTO :SQL-APPL-ID, :SQL-EMP-ID, :SQL-LEAVE-TYPE, + :SQL-START-DATE, :SQL-START-TIME, + :SQL-END-DATE, :SQL-END-TIME + END-EXEC. + IF SQLCODE = 0 ADD 1 TO CUN-R01INN ELSE MOVE '1' TO WRK-R01EOF @@ -282,31 +271,38 @@ 1100C1FETCHSOR-EXT. EXIT. ***************************************************************** - * サブモジュールNO:(1.3) * - * サブモジュール名: 休日カレンダー読込処理 * - * 処理概要 : HOLIDAY_CALENDARをWORKING-STORAGEに格納 * + * サブモジュールNO:(1.3) * + * サブモジュール名: HOLIDAY_CALENDARの読込み * + * 機能概要 : HOLIDAY_CALENDARをWORKING-STORAGEに読込 * ***************************************************************** 1200HDINNSOR SECTION. * - *** C2初回FETCH(SELECT INTO) + *** C2 DECLARE EXEC SQL + DECLARE C2 CURSOR FOR SELECT HOLIDAY_DATE FROM HOLIDAY_CALENDAR ORDER BY HOLIDAY_DATE + END-EXEC. + * + *** C2 OPEN + 初回FETCH + EXEC SQL + OPEN C2 + END-EXEC. + * + EXEC SQL + FETCH C2 INTO :SQL-HD-DATE END-EXEC. * - *** 休日テーブルに全件読込 + *** HOLIDAY_CALENDARの読込み PERFORM UNTIL SQLCODE NOT = 0 ADD 1 TO WRK-HD-COUNT MOVE SQL-HD-DATE TO WRK-HD-DATE(WRK-HD-COUNT) - CALL 'br_fetch_next' USING SQLCODE - IF SQLCODE = 0 - MOVE 0 TO WS-COL-IDX - MOVE 256 TO WS-COL-LEN - CALL 'br_get_col' USING - WS-COL-IDX, SQL-HD-DATE, WS-COL-LEN - END-IF + EXEC SQL + FETCH C2 + INTO :SQL-HD-DATE + END-EXEC END-PERFORM. * 1200HDINNSOR-EXT. @@ -461,6 +457,15 @@ ***************************************************************** 3000STPSOR SECTION. * + *** CURSOR CLOSE + EXEC SQL + CLOSE C1 + END-EXEC. + * + EXEC SQL + CLOSE C2 + END-EXEC. + * *** 出力ファイルCLOSE CLOSE W01OUTFIL. * diff --git a/sub/SUB01DAT.cbl b/sub/SUB01DAT.cbl index 45322fb..4f46bd4 100644 --- a/sub/SUB01DAT.cbl +++ b/sub/SUB01DAT.cbl @@ -34,9 +34,7 @@ ***************************************************************** LINKAGE SECTION. * - 01 D01UBSPAR. - 03 D01FKICOD PIC S9(004) COMP. - 03 D01UBSUDATE PIC 9(008). + COPY ZANDATAC. * PROCEDURE DIVISION USING D01UBSPAR. ***************************************************************** diff --git a/sub/SUB02MSG.cbl b/sub/SUB02MSG.cbl index da735b7..880f4c6 100644 --- a/sub/SUB02MSG.cbl +++ b/sub/SUB02MSG.cbl @@ -33,18 +33,7 @@ ***************************************************************** LINKAGE SECTION. * - 01 M00MHOPAR. - 03 M00MSGCOD PIC 9(003). - 03 M00UMKDATS22-01 PIC X(030). - 03 M00UMKDATS22-02 PIC X(030). - 03 M00UMKDATS22-03 PIC X(030). - 03 M00UMKDATS22-04 PIC X(030). - 03 M00UMKDATS22-05 PIC X(030). - 03 M00UMKDATS22-06 PIC X(030). - 03 M00UMKDATS22-07 PIC X(030). - 03 M00UMKDATS22-08 PIC X(030). - 03 M00UMKDATS22-09 PIC X(030). - 03 M00UMKDATS22-10 PIC X(030). + COPY ZANMSGAC. * PROCEDURE DIVISION USING M00MHOPAR. ***************************************************************** diff --git a/sub/SUB03END.cbl b/sub/SUB03END.cbl index 3467ca0..37a899c 100644 --- a/sub/SUB03END.cbl +++ b/sub/SUB03END.cbl @@ -33,8 +33,7 @@ ***************************************************************** LINKAGE SECTION. * - 01 E01ABDPAR. - 03 E01ABDCOD PIC 9(003). + COPY ZANENDAC. * PROCEDURE DIVISION USING E01ABDPAR. ***************************************************************** diff --git a/sub/SUB04CHK.cbl b/sub/SUB04CHK.cbl index 2fbe4b3..222e389 100644 --- a/sub/SUB04CHK.cbl +++ b/sub/SUB04CHK.cbl @@ -27,7 +27,8 @@ ***************************************************************** 01 WRKARA. 03 WRK-RETURN-CODE PIC 9(004). - 03 WRK-SIGN PIC S9(004). + * 03 WRK-SIGN PIC S9(004). + 03 WRK-NN PIC 9(004). 03 WRK-DIGIT PIC 9(004). 03 WRK-ALPHA PIC 9(004). @@ -37,10 +38,7 @@ ***************************************************************** LINKAGE SECTION. * - 01 C01CHKPAR. - 03 C01CHKTYP PIC X(008). - 03 C01CHKDAT PIC X(080). - 03 C01CHKRRC PIC 9(004). + COPY ZANCHKAC. * PROCEDURE DIVISION USING C01CHKPAR. ***************************************************************** @@ -141,7 +139,8 @@ GO TO 3000CHKNUM-EXT END-IF. *** 数字(0-9)とスペースのみをカウント - INSPECT C01CHKDAT + MOVE ZERO TO WRK-NN. + INSPECT C01CHKDAT TALLYING WRK-NN FOR ALL "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" diff --git a/sub/SUB05TIM.cbl b/sub/SUB05TIM.cbl index 5266721..2d8dcb4 100644 --- a/sub/SUB05TIM.cbl +++ b/sub/SUB05TIM.cbl @@ -34,10 +34,7 @@ ***************************************************************** LINKAGE SECTION. * - 01 T01TIMPAR. - 03 T01TIMHRS PIC 9(004)V9(001). - 03 T01TIMOUT PIC 9(004)V9(001). - 03 T01TIMRRC PIC 9(004). + COPY ZANTIMAC. * PROCEDURE DIVISION USING T01TIMPAR. ***************************************************************** diff --git a/使用資源一覧/KIN03EXP_使用資源一覧.md b/使用資源一覧/KIN03EXP_使用資源一覧.md index b545324..8a662fe 100644 --- a/使用資源一覧/KIN03EXP_使用資源一覧.md +++ b/使用資源一覧/KIN03EXP_使用資源一覧.md @@ -28,8 +28,6 @@ | SUB01DAT | 運用日付取得 | 1000ITTSOR | | SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | | SUB03END | ABEND処理 | 9999ABDSOR | -| br_fetch_next | SQLカーソル次行FETCH（bridge） | 1100C1FETCHSOR, 1200HDINNSOR | -| br_get_col | SQLカラム値取得（bridge） | 1100C1FETCHSOR, 1200HDINNSOR | ## 使用DB2テーブル @@ -43,14 +41,20 @@ | SQL種別 | 処理 | 実行条件 | 使用箇所 | |---------|------|---------|---------| | CONNECT | TO 'data/kin.db' | 常時 | 1000ITTSOR | -| SELECT | HOLIDAY_DATE FROM HOLIDAY_CALENDAR | 常時（初回のみ） | 1200HDINNSOR | -| SELECT | LEAVE_RECORDS（全件） | 常時（初回のみ） | 1100C1INITSOR | +| DECLARE C1 CURSOR | SELECT FROM LEAVE_RECORDS | 常時 | 1100C1INITSOR | +| OPEN C1 | CURSOR OPEN | SQLCODE=0 | 1100C1INITSOR | +| FETCH C1 | INTO 変数（初回+次回） | SQLCODE=0 | 1100C1INITSOR, 1100C1FETCHSOR | +| DECLARE C2 CURSOR | SELECT FROM HOLIDAY_CALENDAR | 常時 | 1200HDINNSOR | +| OPEN C2 | CURSOR OPEN | 常時 | 1200HDINNSOR | +| FETCH C2 | INTO :SQL-HD-DATE（全件） | SQLCODE=0 | 1200HDINNSOR | +| CLOSE C1 | CURSOR CLOSE | 常時 | 3000STPSOR | +| CLOSE C2 | CURSOR CLOSE | 常時 | 3000STPSOR | ## 処理フロー 1. 初期処理（開始ﾒｯｾｰｼﾞ→DB接続→運用日付取得） 2. 休日カレンダー全件読込（WORKING-STORAGEに格納） 3. 出力ファイルOPEN -4. DB初回FETCH（LEAVE_RECORDS：STATUS='1'、ORDER BY EMP_ID, START_DATE） +4. C1 DECLARE/OPEN/初回FETCH（LEAVE_RECORDS：STATUS='1'、ORDER BY EMP_ID, START_DATE） 5. 社員番号キーブレイクループ - 社員別に期間内を日別展開 - 週末判定（MOD(INTEGER-OF-DATE,7)=0/6）→除外 @@ -58,4 +62,4 @@ - 非週末・非休日 → LEAVE-DAILY出力 - 日付加算（月跨ぎ/閏年対応） - キーブレイク時：社員別小計メッセージ出力 -6. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） +6. 終了処理（CURSOR CLOSE→出力CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/品質管理/COBOLキーワード網羅定義書.md b/品質管理/COBOLキーワード網羅定義書.md new file mode 100644 index 0000000..7634bae --- /dev/null +++ b/品質管理/COBOLキーワード網羅定義書.md @@ -0,0 +1,354 @@ +# COBOLキーワード網羅定義書 + +## 凡例 +- ◎: 使用中 / 対象 +- ○: 定義あり・未使用 +- △: 未定義 +- 出典: COBOL言語解説書_IBM_zOS_V65.md / IBM Enterprise COBOL 標準予約語 / 実装時の実績フィードバック + +--- + +## 1. COBOL予約語一覧（全205語） + +### A + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 1 | ACCEPT | 高頻度 | 予約語（文） | システム日付・時刻・ユーザ入力の受取り。DATE/DAY/TIME/DAY-OF-WEEK等のFROM句でシステム情報を取得。 | PROCEDURE DIVISION | ACCEPT文（FROM DATE/TIME/DAY/DAY-OF-WEEK） | +| 2 | ACCESS | 低頻度 | 予約語（句） | ファイルのアクセスモード指定（ACCESS MODE IS SEQUENTIAL/RANDOM/DYNAMIC）。 | ENVIRONMENT DIVISION, FILE-CONTROL | ACCESS MODE句 | +| 3 | ADD | 高頻度 | 予約語（文） | 加算。ROUNDED、SIZE ERROR、CORRESPONDING句をサポート。`ADD identifier TO identifier [ROUNDED]` 等。 | PROCEDURE DIVISION | ADD文（TO/GIVING/CORRESPONDING/ROUNDED/SIZE ERROR） | +| 4 | AFTER | 高頻度 | 予約語（句） | WRITE文の改行制御（AFTER ADVANCING）。INSPECT文の位置指定（AFTER identifier）。 | PROCEDURE DIVISION | WRITE文（AFTER ADVANCING句）、INSPECT文 | +| 5 | ALL | 高頻度 | FIGURATIVE CONSTANT / 予約語 | FIGURATIVE CONSTANTとしてリテラル文字列の繰り返し。INSPECT文のALL指定。関数ALL組み込み指定。 | PROCEDURE DIVISION, DATA DIVISION | INSPECT文、REPLACING句、FIGURATIVE CONSTANT | +| 6 | ALPHABETIC | 高頻度 | 予約語（クラス条件） | クラス条件で使用。英字（A-Z, a-z, スペース）のみで構成されているかの判定。 | PROCEDURE DIVISION | クラス条件（IF ALPHABETIC） | +| 7 | ALPHABETIC-UPPER | 高頻度 | 予約語（クラス条件） | クラス条件で使用。大文字英字（A-Z, スペース）のみで構成されているかの判定。 | PROCEDURE DIVISION | クラス条件 | +| 8 | ALSO | 高頻度 | 予約語（句） | EVALUATE文の複数条件指定（ALSO subject）。 | PROCEDURE DIVISION | EVALUATE文 | +| 9 | AND | 高頻度 | 予約語（論理演算子） | 複合条件の論理積（AND条件）。 | PROCEDURE DIVISION | 条件式 | +| 10 | ANY | 高頻度 | 予約語 | SEARCH ALLのWHEN条件内での使用等。 | PROCEDURE DIVISION | SEARCH文 | +| 11 | APPLY | 高頻度 | 予約語（句） | I-O-CONTROL段落でWRITE-ONLY等の適用を指定。`APPLY WRITE-ONLY ON file-name`。 | ENVIRONMENT DIVISION, I-O-CONTROL | I-O-CONTROL段落 | +| 12 | ASCENDING | 高頻度 | 予約語（句） | SORT/MERGEの昇順キー指定。OCCURSのASCENDING KEY指定。 | PROCEDURE DIVISION, DATA DIVISION | SORT文、MERGE文、OCCURS句 | +| 13 | ASSIGN | 高頻度 | 予約語（句） | SELECT文でファイルと外部名を関連付け。`SELECT file-name ASSIGN TO assignment-name`。 | ENVIRONMENT DIVISION, FILE-CONTROL | SELECT文 | +| 14 | AT | 高頻度 | 予約語（句） | READ文のAT END句。WRITE文のAT END-OF-PAGE句。SEARCH文のAT END句。 | PROCEDURE DIVISION | READ文、WRITE文、SEARCH文 | +| 15 | AUTHOR | 低頻度 | 予約語（段落） | IDENTIFICATION DIVISIONの段落（ドキュメント用）。現行COBOLでは省略可能。 | IDENTIFICATION DIVISION | IDENTIFICATION DIVISION段落 | +| 16 | BINARY | 高頻度 | USAGE句 / 予約語 | 2進形式の内部表現（COMP/COMP-4/BINARY）。`USAGE BINARY`または`COMP`。 | DATA DIVISION | USAGE句、PICTURE句 | + +### B + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 17 | BLOCK | 高頻度 | 予約語（句） | FDの物理ブロックサイズ指定。`BLOCK CONTAINS integer RECORDS/CHARACTERS`。 | DATA DIVISION, FILE SECTION | FD句（BLOCK CONTAINS） | +| 18 | BY | 高頻度 | 予約語（句） | PERFORM VARYINGの増分指定（BY identifier）。CALL文の引数渡し（BY REFERENCE/CONTENT/VALUE）。MULTIPLY/DIVIDE文の演算子。 | PROCEDURE DIVISION | PERFORM文、CALL文、MULTIPLY文、DIVIDE文 | + +### C + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 19 | CALL | 高頻度 | 予約語（文） | サブプログラム呼出。`CALL literal/identifier USING data-name RETURNING identifier [ON EXCEPTION imperative]`。 | PROCEDURE DIVISION | CALL文（USING/RETURNING/ON EXCEPTION/ON OVERFLOW） | +| 20 | CHARACTER | 低頻度 | 予約語 | OBJECT-COMPUTER段落のMEMORY SIZE単位指定。特殊文字語。 | ENVIRONMENT DIVISION | OBJECT-COMPUTER段落 | +| 21 | CHARACTERS | 高頻度 | 予約語（句） | BLOCK/RECORD CONTAINSの単位。INSPECT文の対象指定（CHARACTERS）。 | DATA DIVISION, PROCEDURE DIVISION | FD句、INSPECT文 | +| 22 | CLOSE | 高頻度 | 予約語（文） | ファイルのクローズ。`CLOSE file-name [WITH LOCK/NO REWIND/REEL/FOR REMOVAL]`。 | PROCEDURE DIVISION | CLOSE文（WITH LOCK/NO REWIND/REEL/FOR REMOVAL） | +| 23 | COMP | 高頻度 | USAGE句 | 2進形式内部表現（USAGE COMP = USAGE BINARY = USAGE COMP-4）。 | DATA DIVISION | USAGE句 | +| 24 | COMP-3 | 高頻度 | USAGE句 | パック10進形式内部表現。`USAGE COMP-3`。 | DATA DIVISION | USAGE句 | +| 25 | COMP-4 | 低頻度 | USAGE句 | COMPと同義（2進形式）。環境によってCOMP(2進)とCOMP-4(ネイティブ2進)が異なる場合あり。 | DATA DIVISION | USAGE句 | +| 26 | COMPUTE | 高頻度 | 予約語（文） | 計算代入。複数の算術演算を組合せ可能。`COMPUTE identifier [ROUNDED] = arithmetic-expression [ON SIZE ERROR]`。 | PROCEDURE DIVISION | COMPUTE文（ROUNDED/SIZE ERROR） | +| 27 | CONDITION | 低頻度 | 予約語 | 条件名（Condition-name）の定義内で使用。 | DATA DIVISION | 条件名（88レベル） | +| 28 | CONFIGURATION | 高頻度 | 予約語（節） | ENVIRONMENT DIVISIONの構成節。`CONFIGURATION SECTION.`。 | ENVIRONMENT DIVISION | CONFIGURATION SECTION | +| 29 | CONTAINS | 高頻度 | 予約語（句） | FDのBLOCK CONTAINS/RECORD CONTAINS句で使用。 | DATA DIVISION, FILE SECTION | FD句 | +| 30 | CONTINUE | 高頻度 | 予約語（文） | 無操作（no operation）文。条件文の何もしない分岐に使用。 | PROCEDURE DIVISION | CONTINUE文 | +| 31 | CONVERTING | 低頻度 | 予約語（句） | INSPECT文の文字変換指定。`INSPECT identifier CONVERTING identifier TO identifier`。 | PROCEDURE DIVISION | INSPECT文 | +| 32 | COPY | 高頻度 | 予約語（文） | COPYライブラリからソーステキストを組み込み。疑似テキストによる置換機能。 | ソース記述（任意の場所） | COPY文（コンパイラ指示文） | +| 33 | CORR | 高頻度 | 予約語（CORRESPONDINGの短縮形） | CORRESPONDING句の短縮形。ADD CORR / MOVE CORR / SUBTRACT CORR。 | PROCEDURE DIVISION | ADD文、MOVE文、SUBTRACT文 | +| 34 | COUNT | 低頻度 | 予約語（句） | UNSTRING文のCOUNT IN句で使用。文字数の計数。 | PROCEDURE DIVISION | UNSTRING文 | +| 35 | CURSOR | 高頻度 | 予約語 | SQLのカーソル操作（DECLARE CURSOR, OPEN CURSOR, FETCH, CLOSE CURSOR）。EXEC SQL内で使用。 | PROCEDURE DIVISION（EXEC SQL内） | SQL文 | + +### D + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 36 | DATA | 高頻度 | 予約語（区分） | DATA DIVISIONヘッダ。データ区分の開始。 | DATA DIVISION | DATA DIVISION | +| 37 | DATE | 低頻度 | 予約語（句）/ 特殊レジスタ関連 | ACCEPT文のFROM DATE句（PIC 9(6) YYMMDD）。特殊レジスタではないがシステム日付情報。 | PROCEDURE DIVISION | ACCEPT文 | +| 38 | DATE-COMPILED | 低頻度 | 予約語（段落） | IDENTIFICATION DIVISIONの段落（ドキュメント用）。 | IDENTIFICATION DIVISION | IDENTIFICATION DIVISION段落 | +| 39 | DATE-WRITTEN | 低頻度 | 予約語（段落） | IDENTIFICATION DIVISIONの段落（ドキュメント用）。 | IDENTIFICATION DIVISION | IDENTIFICATION DIVISION段落 | +| 40 | DECLARATIVES | 低頻度 | 予約語（宣言部） | 例外処理やデバッグ処理を記述する特殊な手続き領域。`DECLARATIVES. ... END DECLARATIVES.`。 | PROCEDURE DIVISION | DECLARATIVES | +| 41 | DELETE | 高頻度 | 予約語（文） | 索引ファイル/相対ファイルからのレコード削除。`DELETE file-name RECORD [INVALID KEY imperative]`。 | PROCEDURE DIVISION | DELETE文（INVALID KEY） | +| 42 | DELIMITED | 高頻度 | 予約語（句） | STRING文（DELIMITED BY）およびUNSTRING文（DELIMITED BY）で区切り文字指定。 | PROCEDURE DIVISION | STRING文、UNSTRING文 | +| 43 | DELIMITER | 低頻度 | 予約語（句） | UNSTRING文のDELIMITER IN句で使用。実際の区切り文字を格納。 | PROCEDURE DIVISION | UNSTRING文 | +| 44 | DEPENDING | 高頻度 | 予約語（句） | OCCURS DEPENDING ON（可変長表）。GO TO DEPENDING ON（条件付制御移行）。 | DATA DIVISION, PROCEDURE DIVISION | OCCURS句、GO TO文 | +| 45 | DESCENDING | 低頻度 | 予約語（句） | SORT/MERGEの降順キー指定。OCCURSのDESCENDING KEY。 | PROCEDURE DIVISION, DATA DIVISION | SORT文、MERGE文、OCCURS句 | +| 46 | DISPLAY | 高頻度 | USAGE句 / 予約語（文） | USAGE DISPLAY（標準表示形式）。DISPLAY文（出力装置への転送）。`DISPLAY identifier UPON mnemonic-name WITH NO ADVANCING`。 | DATA DIVISION, PROCEDURE DIVISION | USAGE句、DISPLAY文（UPON/WITH NO ADVANCING） | +| 47 | DISPLAY-1 | 高頻度 | USAGE句 | DBCSデータの内部表現。USAGE DISPLAY-1は2バイトDBCS文字用。 | DATA DIVISION | USAGE句 | +| 48 | DIVIDE | 高頻度 | 予約語（文） | 除算。商と余りを計算。`DIVIDE identifier INTO identifier [REMAINDER identifier]`。 | PROCEDURE DIVISION | DIVIDE文（INTO/BY/GIVING/REMAINDER/ROUNDED） | +| 49 | DIVISION | 高頻度 | 予約語 | IDENTIFICATION/ENVIRONMENT/DATA/PROCEDURE各DIVISIONヘッダで使用。 | 各DIVISIONヘッダ | 区分ヘッダ | +| 50 | DOWN | 高頻度 | 予約語（句） | SET文の索引値減少。`SET index-name DOWN BY integer`。 | PROCEDURE DIVISION | SET文 | +| 51 | DYNAMIC | 低頻度 | 予約語（句） | ACCESS MODE DYNAMIC（動的アクセスモード）。 | ENVIRONMENT DIVISION, FILE-CONTROL | ACCESS MODE句 | + +### E + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 52 | EJECT | 高頻度 | 予約語（コンパイラ指示文） | ソース一覧の改ページ指示。`EJECT`。 | ソース記述 | EJECT文 | +| 53 | ELSE | 高頻度 | 予約語（句） | IF文の否定分岐。`IF condition THEN ... ELSE ... END-IF`。条件付きコンパイルの>>ELSE。 | PROCEDURE DIVISION | IF文、条件付きコンパイル | +| 54 | END | 高頻度 | 予約語 | 各種END-xxx文の構成要素。END-IF, END-PERFORM, END-EVALUATE等。 | PROCEDURE DIVISION | END-xxxスコープターミネータ | +| 55 | END-ADD | 低頻度 | 予約語（スコープターミネータ） | ADD文の明示的終端。`END-ADD`。 | PROCEDURE DIVISION | ADD文 | +| 56 | END-CALL | 高頻度 | 予約語（スコープターミネータ） | CALL文の明示的終端。`END-CALL`。 | PROCEDURE DIVISION | CALL文 | +| 57 | END-COMPUTE | 高頻度 | 予約語（スコープターミネータ） | COMPUTE文の明示的終端。`END-COMPUTE`。 | PROCEDURE DIVISION | COMPUTE文 | +| 58 | END-DIVIDE | 低頻度 | 予約語（スコープターミネータ） | DIVIDE文の明示的終端。`END-DIVIDE`。 | PROCEDURE DIVISION | DIVIDE文 | +| 59 | END-EVALUATE | 高頻度 | 予約語（スコープターミネータ） | EVALUATE文の明示的終端。`END-EVALUATE`。 | PROCEDURE DIVISION | EVALUATE文 | +| 60 | END-EXEC | 高頻度 | 予約語 | EXEC SQL / EXEC CICSの終端。`END-EXEC.`。 | PROCEDURE DIVISION | EXEC SQL / EXEC CICS | +| 61 | END-IF | 高頻度 | 予約語（スコープターミネータ） | IF文の明示的終端。`END-IF`。 | PROCEDURE DIVISION | IF文 | +| 62 | END-PERFORM | 高頻度 | 予約語（スコープターミネータ） | インラインPERFORM文の明示的終端。`END-PERFORM`。 | PROCEDURE DIVISION | PERFORM文 | +| 63 | END-READ | 高頻度 | 予約語（スコープターミネータ） | READ文の明示的終端。`END-READ`。 | PROCEDURE DIVISION | READ文 | +| 64 | END-SEARCH | 高頻度 | 予約語（スコープターミネータ） | SEARCH文の明示的終端。`END-SEARCH`。 | PROCEDURE DIVISION | SEARCH文 | +| 65 | END-STRING | 低頻度 | 予約語（スコープターミネータ） | STRING文の明示的終端。`END-STRING`。 | PROCEDURE DIVISION | STRING文 | +| 66 | END-SUBTRACT | 低頻度 | 予約語（スコープターミネータ） | SUBTRACT文の明示的終端。`END-SUBTRACT`。 | PROCEDURE DIVISION | SUBTRACT文 | +| 67 | END-UNSTRING | 低頻度 | 予約語（スコープターミネータ） | UNSTRING文の明示的終端。`END-UNSTRING`。 | PROCEDURE DIVISION | UNSTRING文 | +| 68 | ENVIRONMENT | 高頻度 | 予約語（区分） | ENVIRONMENT DIVISIONヘッダ。環境区分の開始。 | ENVIRONMENT DIVISION | ENVIRONMENT DIVISION | +| 69 | ERROR | 高頻度 | 予約語（句） | 例外処理指定。SIZE ERROR句、ON ERROR句、USE AFTER ERROR。 | PROCEDURE DIVISION | ADD/COMPUTE等のSIZE ERROR句、CALL ON ERROR句、USE文 | +| 70 | EVALUATE | 高頻度 | 予約語（文） | 多分岐（COBOLのswitch/case相当）。`EVALUATE subject ALSO subject WHEN condition imperative END-EVALUATE`。 | PROCEDURE DIVISION | EVALUATE文（ALSO/WHEN/WHEN OTHER） | +| 71 | EXEC | 高頻度 | 予約語 | EXEC SQL / EXEC CICSの開始。埋込みSQL/CICS文。2用法：`EXEC SQL ... END-EXEC`（DB2アクセス）、`EXEC CICS ... END-EXEC`（CICSオンラインコマンド）。 | PROCEDURE DIVISION | EXEC SQL文、EXEC CICS文 | +| 72 | EXCEPTION | 低頻度 | 予約語（句） | CALL文のON EXCEPTION句。USE AFTER EXCEPTION。 | PROCEDURE DIVISION | CALL文、USE文 | +| 73 | EXECUTE | 低頻度 | 予約語（文） | 他言語プログラム呼出し（非推奨/IBM拡張）。 | PROCEDURE DIVISION | EXECUTE文 | +| 74 | EXIT | 高頻度 | 予約語（文） | 手続きの共通終了点。6形態：`EXIT`（段落/節の共通終点。最も伝統的な用法）、`EXIT PROGRAM`（呼出元復帰）、`EXIT METHOD`（メソッド終了）、`EXIT PARAGRAPH`（段落終了）、`EXIT SECTION`（節終了）、`EXIT PERFORM [CYCLE]`（PERFORM脱出）。 | PROCEDURE DIVISION | EXIT文, EXIT PROGRAM文, EXIT PARAGRAPH文, EXIT SECTION文, EXIT PERFORM文, EXIT METHOD文 | + +### F + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 75 | FALSE | 低頻度 | 予約語（条件値） | 条件の偽値。SET condition-name TO FALSEの形で使用可能（ただしTRUEの方が一般的）。 | PROCEDURE DIVISION | SET文（条件名） | +| 76 | FD | 高頻度 | レベル指示子 | ファイル記述（File Description）のレベル指示子。DATA DIVISION FILE SECTIONでファイル構造を定義。`FD file-name ...`。 | DATA DIVISION, FILE SECTION | FD（ファイル記述） | +| 77 | FILE | 高頻度 | 予約語（節） | FILE SECTION（ファイル節）、FILE-CONTROL（ファイル制御段落）で使用。 | DATA DIVISION, ENVIRONMENT DIVISION | FILE SECTION、FILE-CONTROL | +| 78 | FILE-CONTROL | 高頻度 | 予約語（段落） | ENVIRONMENT DIVISIONのファイル制御段落。`FILE-CONTROL. SELECT ... ASSIGN ...`。 | ENVIRONMENT DIVISION, INPUT-OUTPUT SECTION | FILE-CONTROL段落 | +| 79 | FILLER | 高頻度 | 予約語（データ名代替） | データ項目の未使用領域の定義。プログラムからは直接参照できない。 | DATA DIVISION | データ記述項目 | +| 80 | FIRST | 高頻度 | 予約語（句） | INSPECT文のFIRST指定（最初の出現のみ処理）。 | PROCEDURE DIVISION | INSPECT文 | +| 81 | FOR | 高頻度 | 予約語（句） | PERFORM VARYINGのFROM ... BY ... UNTIL ... の一部。PERFORM ... TIMESの一部。 | PROCEDURE DIVISION | PERFORM文 | +| 82 | FROM | 高頻度 | 予約語（句） | ACCEPT ... FROM句（システム情報取得元指定）。PERFORM VARYING FROM句（初期値指定）。READ ... INTO句の対。STRING/UNSTRING文。 | PROCEDURE DIVISION | ACCEPT文、PERFORM文、READ文、WRITE文、STRING文 | + +### G + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 83 | GET | 低頻度 | 予約語（句） | データ取得を示す予約語。COBOLファイル処理では主にREAD文を使用。GETは特定のIBM環境で使用。 | PROCEDURE DIVISION | — | +| 84 | GIVING | 高頻度 | 予約語（句） | ADD/DIVIDE/MULTIPLY/SUBTRACTのGIVING句（結果格納先指定）。SORT/MERGEのGIVING句（出力ファイル指定）。 | PROCEDURE DIVISION | ADD文、DIVIDE文、MULTIPLY文、SUBTRACT文、SORT文、MERGE文 | +| 85 | GO | 高頻度 | 予約語（文） | GO TO文（制御移行）。`GO TO procedure-name`。 | PROCEDURE DIVISION | GO TO文（DEPENDING ON） | +| 86 | GOBACK | 高頻度 | 予約語（文） | プログラム/メソッドの論理的終了。呼出元に復帰。`GOBACK`。サブプログラムの終了に推奨。 | PROCEDURE DIVISION | GOBACK文 | +| 87 | GREATER | 低頻度 | 予約語（関係演算子） | 関係条件の「大なり」。`IF A IS GREATER THAN B`。START文のKEY IS GREATER THAN句。 | PROCEDURE DIVISION | 条件式、START文 | + +### H + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 88 | HIGH-VALUE | 高頻度 | FIGURATIVE CONSTANT | 使用中の照合順序で最上位の文字。`HIGH-VALUE` / `HIGH-VALUES`。 | PROCEDURE DIVISION, DATA DIVISION | MOVE文、VALUE句、条件式 | + +### I + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 89 | I-O-CONTROL | 高頻度 | 予約語（段落） | ENVIRONMENT DIVISIONの入出力制御段落。`I-O-CONTROL.` RERUN/SAME AREA/APPLY等。 | ENVIRONMENT DIVISION, INPUT-OUTPUT SECTION | I-O-CONTROL段落 | +| 90 | ID | 低頻度 | 予約語 | プログラム識別子の一部。PROGRAM-ID内で使用。 | IDENTIFICATION DIVISION | PROGRAM-ID段落 | +| 91 | IDENTIFICATION | 高頻度 | 予約語（区分） | IDENTIFICATION DIVISIONヘッダ。識別区分の開始。 | IDENTIFICATION DIVISION | IDENTIFICATION DIVISION | +| 92 | IF | 高頻度 | 予約語（文） | 条件分岐。`IF condition THEN statement-1 ELSE statement-2 END-IF`。 | PROCEDURE DIVISION | IF文（THEN/ELSE/END-IF） | +| 93 | IN | 高頻度 | 予約語（句） | SEARCH IN/INTO句。関数の引数内のIN。COPY文のIN library-name。 | PROCEDURE DIVISION, DATA DIVISION | SEARCH文、COPY文 | +| 94 | INDEXED | 高頻度 | 予約語（句） | OCCURS INDEXED BY句（索引定義）。ファイルのORGANIZATION INDEXED。 | DATA DIVISION, ENVIRONMENT DIVISION | OCCURS句、ORGANIZATION句 | +| 95 | INITIAL | 低頻率 | 予約語（句） | PROGRAM-IDのINITIAL属性（プログラム呼出毎に初期化）。データ項目のINITIAL VALUE。 | IDENTIFICATION DIVISION, DATA DIVISION | PROGRAM-ID句、VALUE句 | +| 96 | INITIALIZE | 高頻度 | 予約語（文） | データ項目のカテゴリ別初期化。`INITIALIZE identifier [REPLACING category BY identifier]`。 | PROCEDURE DIVISION | INITIALIZE文（REPLACING/WITH FILLER/ALL） | +| 97 | INPUT | 高頻度 | 予約語（句） | OPEN文の入力モード（OPEN INPUT）。INPUT-OUTPUT SECTION。INPUT PROCEDURE（SORT文）。 | PROCEDURE DIVISION, ENVIRONMENT DIVISION | OPEN文、SORT文、INPUT-OUTPUT SECTION | +| 98 | INPUT-OUTPUT | 高頻度 | 予約語（節） | ENVIRONMENT DIVISION INPUT-OUTPUT SECTION。 | ENVIRONMENT DIVISION | INPUT-OUTPUT SECTION | +| 99 | INSERT | 高頻度 | 予約語（コンパイラ指示文） | ソース一覧への行挿入（INSERT文）。EXEC SQLのINSERT文。 | ソース記述, PROCEDURE DIVISION（EXEC SQL内） | INSERT文（コンパイラ指示文）、SQL INSERT文 | +| 100 | INSPECT | 高頻度 | 予約語（文） | 文字列の検査/置換/変換。TALLYING/REPLACING/CONVERTING句。 | PROCEDURE DIVISION | INSPECT文（TALLYING/REPLACING/CONVERTING/CHARACTERS/ALL/LEADING/FIRST/BEFORE/AFTER） | +| 101 | INTO | 高頻度 | 予約語（句） | READ ... INTO句（レコード読込＋データ移動）。STRING ... INTO句（連結結果格納）。UNSTRING ... INTO句（分解結果格納）。 | PROCEDURE DIVISION | READ文、STRING文、UNSTRING文 | +| 102 | INVALID | 低頻度 | 予約語（句） | ファイル操作の異常時処理。READ/WRITE/DELETE/REWRITE/START文のINVALID KEY句。 | PROCEDURE DIVISION | READ文、WRITE文、DELETE文、REWRITE文、START文 | +| 103 | IS | 高頻度 | 予約語（句） | 関係条件（IS [NOT] GREATER THAN等）。ACCESS MODE IS。ORGANIZATION IS。KEY IS。 | PROCEDURE DIVISION, DATA DIVISION, ENVIRONMENT DIVISION | 条件式、FILE-CONTROL句、データ記述句 | + +### K + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 104 | KEY | 高頻度 | 予約語（句） | レコードキー。RECORD KEY（主キー）、ALTERNATE RECORD KEY（代替キー）、RELATIVE KEY（相対キー）。ASCENDING/DESCENDING KEY（ソートキー）。 | ENVIRONMENT DIVISION, DATA DIVISION, PROCEDURE DIVISION | FILE-CONTROL句、OCCURS句、SORT文、SEARCH文 | + +### L + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 105 | LABEL | 高頻度 | 予約語（句） | FDのLABEL RECORDS句。`LABEL RECORDS ARE STANDARD/OMITTED`。 | DATA DIVISION, FILE SECTION | FD句 | +| 106 | LENGTH | 高頻度 | 特殊レジスタ（LENGTH OF）/ 組み込み関数 | 特殊レジスタ`LENGTH OF data-name`でデータ項目のバイト長を返す。関数`FUNCTION LENGTH`で文字位置長を返す。 | PROCEDURE DIVISION | LENGTH OF特殊レジスタ、FUNCTION LENGTH | +| 107 | LINKAGE | 高頻度 | 予約語（節） | LINKAGE SECTION。他プログラムから受け渡されるデータの定義。`LINKAGE SECTION.`。 | DATA DIVISION | LINKAGE SECTION | +| 108 | LOW-VALUE | 高頻度 | FIGURATIVE CONSTANT | 使用中の照合順序で最下位の文字。`LOW-VALUE` / `LOW-VALUES`。 | PROCEDURE DIVISION, DATA DIVISION | MOVE文、VALUE句、条件式 | + +### M + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 109 | MODE | 高頻度 | 予約語（句） | ACCESS MODE句。RECORDING MODE句（F/V/U/S）。 | ENVIRONMENT DIVISION, DATA DIVISION | FILE-CONTROL句、FD句 | +| 110 | MOVE | 高頻度 | 予約語（文） | 代入。基本項目移動、グループ移動、編集。`MOVE identifier TO identifier` / `MOVE CORRESPONDING`。 | PROCEDURE DIVISION | MOVE文（TO/CORRESPONDING） | +| 111 | MULTIPLY | 低頻度 | 予約語（文） | 乗算。`MULTIPLY identifier BY identifier [ROUNDED] [GIVING identifier]`。 | PROCEDURE DIVISION | MULTIPLY文（BY/GIVING/ROUNDED） | + +### N + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 112 | NEXT | 低頻度 | 予約語（句） | NEXT SENTENCE文（旧式の次文へ移動）。READ NEXT RECORD（順次読込み）。 | PROCEDURE DIVISION | READ文、NEXT SENTENCE文 | +| 113 | NOT | 高頻度 | 予約語（論理演算子） | 否定条件。`IF NOT condition`。NOT ON ERROR / NOT AT END / NOT ON OVERFLOW等。 | PROCEDURE DIVISION | 条件式、例外処理句 | +| 114 | NUMERIC | 高頻度 | 予約語（クラス条件） | クラス条件で使用。数字（0-9, 符号, 小数点）のみで構成されているかの判定。 | PROCEDURE DIVISION | クラス条件 | + +### O + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 115 | OBJECT-COMPUTER | 高頻度 | 予約語（段落） | ENVIRONMENT DIVISIONの目的計算機段落。`OBJECT-COMPUTER. computer-name MEMORY SIZE ...`。 | ENVIRONMENT DIVISION, CONFIGURATION SECTION | OBJECT-COMPUTER段落 | +| 116 | OCCURS | 高頻度 | 予約語（句） | 表定義（配列）。固定長/可変長/無制限。`OCCURS integer TIMES` / `OCCURS DEPENDING ON`。 | DATA DIVISION | OCCURS句 | +| 117 | OF | 高頻度 | 予約語（句） | 修飾（data-name OF group-name）。ADDRESS OF特殊レジスタ。LENGTH OF特殊レジスタ。 | PROCEDURE DIVISION, DATA DIVISION | データ参照修飾、特殊レジスタ | +| 118 | OMITTED | 低頻度 | 予約語（句） | CALL文の引数省略。`CALL prog USING OMITTED`。IS OMITTED条件（省略引数条件）。 | PROCEDURE DIVISION | CALL文、条件式 | +| 119 | ON | 高頻度 | 予約語（句） | 例外処理句（ON SIZE ERROR, ON EXCEPTION等）。OCCURS DEPENDING ON。SORT ON ASCENDING/DESCENDING KEY。 | PROCEDURE DIVISION, DATA DIVISION | 各種例外処理句、OCCURS句、SORT文 | +| 120 | OPEN | 高頻度 | 予約語（文） | ファイルのオープン。`OPEN INPUT/OUTPUT/I-O/EXTEND file-name`。 | PROCEDURE DIVISION | OPEN文（INPUT/OUTPUT/I-O/EXTEND/WITH NO REWIND） | +| 121 | OPTIONS | 低頻率 | 予約語（句） | コンパイラオプションの指定に関連。CBL/PROCESS文中。 | ソース記述 | CBL文、PROCESS文 | +| 122 | OR | 高頻度 | 予約語（論理演算子） | 複合条件の論理和（OR条件）。UNSTRING文のDELIMITED BY ... OR ...。 | PROCEDURE DIVISION | 条件式、UNSTRING文 | +| 123 | ORDER | 高頻度 | 予約語（句） | SORT文のDUPLICATES IN ORDER。特殊な整列順序指定。 | PROCEDURE DIVISION | SORT文 | +| 124 | ORGANIZATION | 低頻度 | 予約語（句） | ファイル編成の指定。`ORGANIZATION IS SEQUENTIAL/INDEXED/RELATIVE`。 | ENVIRONMENT DIVISION, FILE-CONTROL | ORGANIZATION句 | +| 125 | OTHER | 高頻度 | 予約語（句） | EVALUATE文のWHEN OTHER句（デフォルト分岐）。 | PROCEDURE DIVISION | EVALUATE文 | +| 126 | OUTPUT | 高頻度 | 予約語（句） | OPEN文の出力モード（OPEN OUTPUT）。OUTPUT PROCEDURE（SORT文）。 | PROCEDURE DIVISION | OPEN文、SORT文 | + +### P + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 127 | PACKED-DECIMAL | 高頻度 | USAGE句 | パック10進形式。COMP-3と同義。`USAGE PACKED-DECIMAL`。 | DATA DIVISION | USAGE句 | +| 128 | PAGE | 高頻度 | 予約語（句） | WRITE文のAFTER/BEFORE ADVANCING PAGE。FDのLINAGE句（PAGE FOOTING等）。 | PROCEDURE DIVISION, DATA DIVISION | WRITE文、FD句 | +| 129 | PAGE-COUNTER | 高頻度 | 特殊レジスタ | ページ番号を保持する特殊レジスタ。FDのLINAGE句使用時に生成。 | PROCEDURE DIVISION | 特殊レジスタ | +| 130 | PERFORM | 高頻度 | 予約語（文） | 繰り返し処理。6形態：基本（外部段落呼出）、回数指定（TIMES）、条件指定（UNTIL）、変数変化付（VARYING ... FROM ... BY ... UNTIL ... [AFTER ...]）、インライン（END-PERFORM）、TEST BEFORE/TEST AFTER。 | PROCEDURE DIVISION | PERFORM文（外部段落/THRU/TIMES/UNTIL/VARYING/AFTER/インライン/TEST BEFORE/AFTER） | +| 131 | PIC | 高頻度 | 予約語（句） | PICTURE句の短縮形。データ項目の特性と編集要件を指定。`PIC X(10).`。 | DATA DIVISION | PICTURE句 | +| 132 | POINTER | 高頻度 | USAGE句 / 予約語 | USAGE POINTER（アドレスポインタ）。STRING/UNSTRING文のWITH POINTER句。 | DATA DIVISION, PROCEDURE DIVISION | USAGE句、STRING文、UNSTRING文 | +| 133 | PROCEDURE | 高頻度 | 予約語（区分） | PROCEDURE DIVISION。手続き区分の開始。`PROCEDURE DIVISION USING ... RETURNING ...`。 | PROCEDURE DIVISION | PROCEDURE DIVISION | +| 134 | PROGRAM-ID | 高頻度 | 予約語（段落） | IDENTIFICATION DIVISIONのプログラム識別段落。`PROGRAM-ID. program-name [INITIAL] [GLOBAL]`。 | IDENTIFICATION DIVISION | PROGRAM-ID段落 | + +### R + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 135 | RANDOM | 低頻度 | 予約語（句） | ACCESS MODE RANDOM（ランダムアクセスモード）。 | ENVIRONMENT DIVISION, FILE-CONTROL | ACCESS MODE句 | +| 136 | READ | 高頻度 | 予約語（文） | ファイルからの読込。`READ file-name [INTO identifier] [KEY IS data-name] [AT END imperative]`。 | PROCEDURE DIVISION | READ文（INTO/KEY IS/AT END/NEXT/PREVIOUS/NOT AT END/WITH WAIT/LOCK/IGNORE LOCK） | +| 137 | RECORD | 高頻度 | 予約語（句） | FDのRECORD CONTAINS句。RECORD KEY句。DELETE/Rewrite文のRECORD句。 | DATA DIVISION, ENVIRONMENT DIVISION, PROCEDURE DIVISION | FD句、FILE-CONTROL句、DELETE文、REWRITE文 | +| 138 | RECORDING | 高頻度 | 予約語（句） | FDのRECORDING MODE句（F固定/V可変/U不定/Sスパン）。 | DATA DIVISION, FILE SECTION | FD句 | +| 139 | RECORDS | 高頻度 | 予約語（句） | BLOCK CONTAINS ... RECORDS。LABEL RECORDS句。 | DATA DIVISION, FILE SECTION | FD句 | +| 140 | REDEFINES | 高頻度 | 予約語（句） | 同一ストレージ領域の再定義。`level-number data-name REDEFINES data-name ...`。 | DATA DIVISION | REDEFINES句 | +| 141 | REMAINDER | 高頻度 | 予約語（句） | DIVIDE文の余り格納指定。`DIVIDE ... [REMAINDER identifier]`。 | PROCEDURE DIVISION | DIVIDE文 | +| 142 | REMOVAL | 高頻度 | 予約語（句） | CLOSE文のFOR REMOVAL句（テープファイルのリール取外し）。 | PROCEDURE DIVISION | CLOSE文 | +| 143 | REPLACING | 高頻度 | 予約語（句） | COPY文の疑似テキスト置換。INSPECT文の文字置換。INITIALIZE文のREPLACING句。 | ソース記述, PROCEDURE DIVISION | COPY文、INSPECT文、INITIALIZE文 | +| 144 | RERUN | 低頻度 | 予約語（句） | I-O-CONTROL段落のチェックポイント指定。`RERUN ON assignment-name EVERY integer RECORDS`。 | ENVIRONMENT DIVISION, I-O-CONTROL | I-O-CONTROL段落 | +| 145 | RETURN-CODE | 高頻度 | 特殊レジスタ | 呼出元へのリターンコード。PIC S9(4) BINARY GLOBAL。`MOVE n TO RETURN-CODE`。 | PROCEDURE DIVISION | 特殊レジスタ | +| 146 | ROUNDED | 高頻度 | 予約語（句） | 算術演算の丸め指定。ADD/DIVIDE/MULTIPLY/SUBTRACT/COMPUTE文の[ROUNDED]句。 | PROCEDURE DIVISION | ADD文、DIVIDE文、MULTIPLY文、SUBTRACT文、COMPUTE文 | +| 147 | RUN | 高頻度 | 予約語（句） | STOP RUN文（プログラム終了、制御をOSに戻す）。 | PROCEDURE DIVISION | STOP RUN文 | + +### S + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 148 | SEARCH | 高頻度 | 予約語（文） | 内部表の探索。シリアルサーチ（SEARCH）とバイナリサーチ（SEARCH ALL）。`SEARCH table-name [VARYING index-name] AT END imperative WHEN condition`。 | PROCEDURE DIVISION | SEARCH文（ALL/VARYING/AT END/WHEN） | +| 149 | SECTION | 高頻度 | 予約語（節） | 節の定義。`section-name SECTION.`。各DIVISION内の節区切り。 | PROCEDURE DIVISION, DATA DIVISION, ENVIRONMENT DIVISION | SECTION | +| 150 | SELECT | 高頻度 | 予約語（句） | ファイル宣言。`SELECT file-name ASSIGN TO assignment-name ...`。EXEC SQL内のSELECT文（問合せ）。 | ENVIRONMENT DIVISION, PROCEDURE DIVISION（SQL内） | FILE-CONTROL段落、SQL SELECT文 | +| 151 | SENTENCE | 低頻度 | 予約語 | NEXT SENTENCE文（旧式COBOL）。区切りピリオドで終わる文の単位。 | PROCEDURE DIVISION | — | +| 152 | SET | 高頻度 | 予約語（文） | インデックス/アドレス/条件名/ポインタの設定。`SET index-name UP BY integer` / `SET condition-name TO TRUE`。 | PROCEDURE DIVISION | SET文（TO TRUE/FALSE/UP BY/DOWN BY/TO ADDRESS） | +| 153 | SHIFT-IN | 低頻度 | 特殊レジスタ | EBCDIC DBCSのシフトイン制御文字。PIC X(1) DISPLAY。 | PROCEDURE DIVISION | 特殊レジスタ | +| 154 | SHIFT-OUT | 低頻度 | 特殊レジスタ | EBCDIC DBCSのシフトアウト制御文字。PIC X(1) DISPLAY。 | PROCEDURE DIVISION | 特殊レジスタ | +| 155 | SIZE | 高頻度 | 予約語（句） | 算術演算のSIZE ERROR句。OBJECT-COMPUTERのMEMORY SIZE句。 | PROCEDURE DIVISION, ENVIRONMENT DIVISION | ADD/COMPUTE等のON SIZE ERROR句、OBJECT-COMPUTER段落 | +| 156 | SKIP2 | 高頻度 | 予約語（コンパイラ指示文） | ソース一覧で2行送り。`SKIP2`（SKIP1/SKIP2/SKIP3）。 | ソース記述 | SKIP文 | +| 157 | SOURCE-COMPUTER | 高頻度 | 予約語（段落） | ENVIRONMENT DIVISIONの元源計算機段落。`SOURCE-COMPUTER. computer-name [WITH DEBUGGING MODE]`。 | ENVIRONMENT DIVISION, CONFIGURATION SECTION | SOURCE-COMPUTER段落 | +| 158 | SPACE | 高頻度 | FIGURATIVE CONSTANT / 予約語 | FIGURATIVE CONSTANTとして1つ以上のブランク（空白）。`SPACE` / `SPACES`。 | PROCEDURE DIVISION, DATA DIVISION | MOVE文、VALUE句、条件式 | +| 159 | SPACES | 低頻度 | FIGURATIVE CONSTANT | SPACEの複数形（同義）。`SPACES`。 | PROCEDURE DIVISION, DATA DIVISION | MOVE文、VALUE句、条件式 | +| 160 | SQL | 高頻度 | 予約語 | EXEC SQL（埋込みSQL）の開始を示す。`EXEC SQL ... END-EXEC.`。 | PROCEDURE DIVISION | EXEC SQL文 | +| 161 | STANDARD | 高頻度 | 予約語（句） | LABEL RECORDS ARE STANDARD。RECORD DELIMITER IS STANDARD-1。標準ラベル/標準区切り。 | DATA DIVISION, ENVIRONMENT DIVISION | FD句、FILE-CONTROL句 | +| 162 | STOP | 高頻度 | 予約語（文） | 実行停止。`STOP RUN`（プログラム終了）。`STOP literal`（一時停止）。 | PROCEDURE DIVISION | STOP文（RUN/literal） | +| 163 | STRING | 高頻度 | 予約語（文） | 文字列の連結。`STRING identifier DELIMITED BY identifier/literal/SIZE INTO identifier [WITH POINTER]`。 | PROCEDURE DIVISION | STRING文（DELIMITED BY/INTO/POINTER/ON OVERFLOW） | +| 164 | SUBTRACT | 高頻度 | 予約語（文） | 減算。`SUBTRACT identifier FROM identifier [ROUNDED]` / `SUBTRACT CORRESPONDING`。 | PROCEDURE DIVISION | SUBTRACT文（FROM/GIVING/CORRESPONDING/ROUNDED） | + +### T + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 165 | TABLE | 高頻度 | 予約語（句） | SEARCH文の探索対象（内部表）。OCCURSで定義された表データ。 | PROCEDURE DIVISION, DATA DIVISION | SEARCH文、OCCURS句 | +| 166 | TALLYING | 低頻度 | 予約語（句） | INSPECT文の計数指定。`INSPECT identifier TALLYING count FOR CHARACTERS/ALL/LEADING`。UNSTRING文のTALLYING IN句。 | PROCEDURE DIVISION | INSPECT文、UNSTRING文 | +| 167 | TEST | 低頻度 | 予約語（句） | PERFORM文のTEST BEFORE/TEST AFTER（条件判定のタイミング指定）。 | PROCEDURE DIVISION | PERFORM文 | +| 168 | THEN | 高頻度 | 予約語（句） | IF文のTHEN（条件成立時の処理）。EVALUATE文のWHEN ... THEN。 | PROCEDURE DIVISION | IF文、EVALUATE文 | +| 169 | THRU | 高頻度 | 予約語（句） | 範囲指定。VALUE句のTHRU（値の範囲）。PERFORM THRU（段落範囲）。 | DATA DIVISION, PROCEDURE DIVISION | VALUE句、PERFORM文 | +| 170 | TIME | 高頻度 | 予約語（句）/ 特殊レジスタ | ACCEPT FROM TIME句（PIC 9(8) HHMMSShh）。CURRENT-DATE関数に含まれる時刻情報。 | PROCEDURE DIVISION | ACCEPT文 | +| 171 | TIMES | 高頻度 | 予約語（句） | PERFORM文の回数指定。OCCURS TIMES（表の要素数）。 | PROCEDURE DIVISION, DATA DIVISION | PERFORM文、OCCURS句 | +| 172 | TO | 高頻度 | 予約語（句） | 代入先指定（MOVE ... TO ...）。範囲指定（FROM ... TO ...）。PERFORM VARYING FROM ... TO ...。 | PROCEDURE DIVISION, DATA DIVISION | MOVE文、ADD文、PERFORM文、VALUE句 | +| 173 | TRUE | 高頻度 | 予約語（条件値） | 条件の真値。SET condition-name TO TRUE。EVALUATE文のTRUE条件。 | PROCEDURE DIVISION | SET文（条件名）、EVALUATE文 | +| 174 | TYPE | 低頻度 | 予約語（句） | ユーザ定義型（TYPEDEF/TYPE句）。`TYPE type-name`で定義済み型を参照。 | DATA DIVISION | TYPE句、TYPEDEF句 | + +### U + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 175 | UNSTRING | 低頻度 | 予約語（文） | 文字列の分解。`UNSTRING identifier DELIMITED BY identifier INTO identifier [WITH POINTER] [TALLYING]`。 | PROCEDURE DIVISION | UNSTRING文（DELIMITED BY/INTO/POINTER/TALLYING/DELIMITER IN） | +| 176 | UNTIL | 高頻度 | 予約語（句） | PERFORM UNTIL（条件成立まで繰返し）。PERFORM VARYING UNTIL。 | PROCEDURE DIVISION | PERFORM文 | +| 177 | UP | 高頻度 | 予約語（句） | SET文の索引値増加。`SET index-name UP BY integer`。 | PROCEDURE DIVISION | SET文 | +| 178 | UPON | 高頻度 | 予約語（句） | DISPLAY文の出力先指定。`DISPLAY ... UPON mnemonic-name`。 | PROCEDURE DIVISION | DISPLAY文 | +| 179 | USAGE | 高頻度 | 予約語（句） | データ項目の内部表現指定。`USAGE DISPLAY/COMP/COMP-3/BINARY/POINTER/INDEX/NATIONAL`。 | DATA DIVISION | USAGE句 | +| 180 | USE | 低頻度 | 予約語（文） | 例外処理・デバッグ宣言。`USE AFTER EXCEPTION/ERROR ON file-name` / `USE FOR DEBUGGING`。 | PROCEDURE DIVISION（DECLARATIVES内） | USE文 | +| 181 | USING | 高頻度 | 予約語（句） | PROCEDURE DIVISION USING（引数定義）。CALL文のUSING（引数渡し）。SORT文のUSING（入力ファイル）。 | PROCEDURE DIVISION, DATA DIVISION | PROCEDURE DIVISIONヘッダ、CALL文、SORT文 | + +### V + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 182 | VALUE | 高頻度 | 予約語（句） | データ項目の初期値指定。`VALUE literal` / `VALUE IS literal`。88条件名の値定義。 | DATA DIVISION | VALUE句 | +| 183 | VALUES | 高頻度 | 予約語（句） | VALUE句の複数形（88条件名の複数値指定）。 | DATA DIVISION | VALUE句（88レベル） | +| 184 | VARYING | 高頻度 | 予約語（句） | PERFORM VARYING（変数変化付繰返し）。SEARCH VARYING（探索時索引変更）。 | PROCEDURE DIVISION | PERFORM文、SEARCH文 | + +### W + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 185 | WHEN | 高頻度 | 予約語（句） | EVALUATE文のWHEN条件。SEARCH文のWHEN条件。 | PROCEDURE DIVISION | EVALUATE文、SEARCH文 | +| 186 | WHEN-COMPILED | 高頻度 | 特殊レジスタ / 組み込み関数 | コンパイル開始日時。PIC X(16) DISPLAY（MM/DD/YYhh.mm.ss）。関数`FUNCTION WHEN-COMPILED`はYYYYMMDDhhmmsshh+00形式。 | PROCEDURE DIVISION | 特殊レジスタ、FUNCTION WHEN-COMPILED | +| 187 | WITH | 高頻度 | 予約語（句） | OPEN WITH NO REWIND。CLOSE WITH LOCK。DISPLAY WITH NO ADVANCING。INITIALIZE WITH FILLER。SORT WITH DUPLICATES IN ORDER。 | PROCEDURE DIVISION, ENVIRONMENT DIVISION | OPEN文、CLOSE文、DISPLAY文、INITIALIZE文、SORT文 | +| 188 | WORKING-STORAGE | 高頻度 | 予約語（節） | WORKING-STORAGE SECTION。作業格納節。プログラムの内部データ領域。`WORKING-STORAGE SECTION.`。 | DATA DIVISION | WORKING-STORAGE SECTION | +| 189 | WRITE | 高頻度 | 予約語（文） | ファイルへの書出し。`WRITE record-name [FROM identifier] [AFTER/BEFORE ADVANCING PAGE/LINE identifier/literal] [END-OF-PAGE imperative] [INVALID KEY imperative]`。FROM句（データ移動+書出）、ADVANCING句（改行/改ページ制御）、END-OF-PAGE句（ページ終了処理）。 | PROCEDURE DIVISION | WRITE文（FROM/ADVANCING/END-OF-PAGE/INVALID KEY） | +| 190 | WRITE-ONLY | 高頻度 | 予約語（句） | I-O-CONTROL段落のAPPLY WRITE-ONLY句（書出し専用最適化）。 | ENVIRONMENT DIVISION, I-O-CONTROL | I-O-CONTROL段落 | + +### Z + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 191 | ZERO | 高頻度 | FIGURATIVE CONSTANT | 数値0、または文字'0'の1回以上の出現。`ZERO` / `ZEROS` / `ZEROES`。 | PROCEDURE DIVISION, DATA DIVISION | MOVE文、VALUE句、条件式 | +| 192 | ZEROS | 高頻度 | FIGURATIVE CONSTANT | ZEROの複数形（同義）。`ZEROS`。 | PROCEDURE DIVISION, DATA DIVISION | MOVE文、VALUE句、条件式 | + +### 補足：A-Z節に含まれない予約語（13語） + +以下はIBM COBOL予約語一覧に含まれるが、上記A-Z節のアルファベット順一覧に記載されていないものを補足としてまとめる。 + +| # | キーワード | カテゴリ | 区分 | 説明 | 使用可能なコンテキスト | 対応するCOBOL節/文 | +|---|-----------|---------|------|------|---------------------|------------------| +| 193 | ALTER | 低頻度 | 予約語（文） | GO TO文の分岐先を実行時に変更（非推奨、COBOL 2002で削除）。`ALTER procedure-name TO PROCEED TO procedure-name`。 | PROCEDURE DIVISION | ALTER文（TO PROCEED TO） | +| 194 | CANCEL | 高頻度 | 予約語（文） | プログラムの解放。`CANCEL program-name`。次回CALL時に初期状態で再ロード。 | PROCEDURE DIVISION | CANCEL文（ON EXCEPTION/NOT ON EXCEPTION） | +| 195 | ENTRY | 低頻度 | 予約語（文） | プログラム内の別エントリポイント定義。他言語からの呼出用。`ENTRY entry-name [USING data-name]`。 | PROCEDURE DIVISION | ENTRY文（USING） | +| 196 | MERGE | 高頻度 | 予約語（文） | 2つ以上のファイルのマージ。`MERGE file-name ON ASCENDING/DESCENDING KEY data-name USING file1 file2 GIVING file3`。 | PROCEDURE DIVISION | MERGE文（ON KEY/USING/GIVING/OUTPUT PROCEDURE） | +| 197 | RELEASE | 高頻度 | 予約語（文） | SORT文へのレコード引渡し（INPUT PROCEDURE内で使用）。`RELEASE record-name [FROM identifier]`。 | PROCEDURE DIVISION（SORT INPUT PROCEDURE内） | RELEASE文（FROM） | +| 198 | RETURN | 高頻度 | 予約語（文） | SORT文からのレコード受取（OUTPUT PROCEDURE内で使用）。`RETURN file-name [INTO identifier] AT END imperative`。 | PROCEDURE DIVISION（SORT OUTPUT PROCEDURE内） | RETURN文（INTO/AT END/NOT AT END） | +| 199 | REWRITE | 高頻度 | 予約語（文） | レコードの書換え（索引/相対ファイル）。`REWRITE record-name [FROM identifier] [INVALID KEY imperative]`。 | PROCEDURE DIVISION | REWRITE文（FROM/INVALID KEY） | +| 200 | SORT | 高頻度 | 予約語（文） | ファイルの整列。`SORT file-name ON ASCENDING/DESCENDING KEY data-name [INPUT/USING] [OUTPUT/GIVING]`。 | PROCEDURE DIVISION | SORT文（ON KEY/USING/INPUT PROCEDURE/OUTPUT PROCEDURE/GIVING/DUPLICATES） | +| 201 | START | 高頻度 | 予約語（文） | ファイルの開始位置指定（ランダム読込の基点設定）。`START file-name KEY IS condition [INVALID KEY imperative]`。 | PROCEDURE DIVISION | START文（KEY IS/INVALID KEY） | +| 202 | SAME | 高頻度 | 予約語（句） | レコード領域/ソート領域の共有指定。SAME RECORD AREA / SAME SORT AREA。 | ENVIRONMENT DIVISION, I-O-CONTROL | I-O-CONTROL段落 +| 203 | FUNCTION | 高頻度 | 予約語（関数） | 組み込み関数の呼出。FUNCTION MOD, FUNCTION INTEGER-OF-DATE, FUNCTION NUMVAL, FUNCTION WHEN-COMPILED, FUNCTION TRIM, FUNCTION LENGTH等。 | PROCEDURE DIVISION | FUNCTION文（組み込み関数） +| 204 | BEFORE | 高頻度 | 予約語（句） | INSPECT文のBEFORE句、WRITE文のBEFORE ADVANCING句、PERFORM文のTEST BEFORE句。BEFORE identifier / BEFORE ADVANCING。 | PROCEDURE DIVISION | INSPECT文、WRITE文、PERFORM文 +| 205 | ADDRESS | 高頻度 | 特殊レジスタ | ADDRESS OF特殊レジスタ（データ項目のアドレス取得）。ADDRESS OF data-name。 | PROCEDURE DIVISION, DATA DIVISION | SET文（ADDRESS OF） +--- + +## 2. TYPE定義（PICTURE句） + +### 2.1 PICTURE記号一覧 + +| # | 記号 | 名称 | 意味 | サイズ算定 | 使用シーン | +|---|-----|------|------|-----------|----------| +| 1 | X | 英数字文字 | 任意の英数字文字（1バイト） | 1文字位置 | 名前、コード、備考などの英数字データ。`PIC X(10)` | +| 2 | G | DBCS文字 | DBCS（2バイト）文字位置。日本語文字 | 1文字位置（2バイト） | 日本語表示文字。`PIC G(5)` | +| 3 | N | ナショナル/DBCS文字 | DBCS/ナショナル（UTF-16）文字位置 | 1文字位置（2バイト） | ナショナル文字（NSYMBOL(NATIONAL)時はUTF-16）。`PIC N(10)` | +| 4 | 9 | 数字 | 数字1桁（0-9） | 1桁 | 数値データ。`PIC 9(4)`で4桁の数値 | +| 5 | 9(m)V9(n) | 固定小数点数 | m桁整数部 + n桁小数部。Vは仮定小数点 | カウントされない（Vは位置のみ） | 小数点以下の精度が必要な数値。`PIC 9(3)V9(2)`でXXX.YY | +| 6 | S9(m)V9(n) | 符号付き固定小数点数 | 符号(S) + m桁整数部 + n桁小数部 | Sはカウントされない（SEPARATE時は1） | 符号付きの精密集計値。`PIC S9(7)V9(2)` | +| 7 | S9(m)V9(n) COMP-3 | パック10進符号付き固定小数 | COMP-3形式の符号付きパック10進数 | COMP-3（1バイトに2桁、符号は別ニブル） | 基幹業務の集計・金額データ。DB2のDECIMAL相当 | +| 8 | S9(m) COMP-3 | パック10進符号付き整数 | COMP-3形式の符号付き整数パック10進数 | COMP-3同上 | 整数のみのパック10進数。`PIC S9(9) COMP-3` | +| 9 | S9(m) COMP | 2進符号付き整数 | 2進形式（BINARY）の符号付き整数。COMP = BINARY | 2/4/8バイト（精度依存） | 索引、カウンタ、フラグ。`PIC S9(9) COMP` | +| 10 | S9(m) BINARY | 2進符号付き整数 | BINARY形式の符号付き整数（COMPと同義） | 同上 | COMPと同じ。可搬性重視の場合はBINARY指定 | +| 11 | ZZZ9 | ゼロ抑制編集 | 先頭ゼロをスペースに置換。Zの個数は可変（1～8） | 1文字位置 | 帳票出力時の数値編集。`PIC ZZZ,ZZ9.99` | + +*作成日: 2026-06-26* diff --git a/品質管理/COBOL言語解説書_IBM_zOS_V65.md b/品質管理/COBOL言語解説書_IBM_zOS_V65.md new file mode 100644 index 0000000..7c1bb14 --- /dev/null +++ b/品質管理/COBOL言語解説書_IBM_zOS_V65.md @@ -0,0 +1,1426 @@ +# COBOL言語解説書 + +## ドキュメント情報 + +- **タイトル**: Enterprise COBOL for z/OS 6.5 Language Reference +- **出版番号**: SC27-8713-04 +- **ページ数**: 916 +- **日本語訳題**: COBOL言語解説書 +- **ベース**: IBM Enterprise COBOL for z/OS V6.5 (プログラム番号 5655-EC6) + +--- + +# 第1部: COBOL言語構造 + +## 1.1 文字セットとコードページ + +### 基本COBOL文字セット + +COBOLの基本文字セットは、ラテンアルファベットの大文字・小文字、数字、および特殊文字で構成される。 + +| 文字 | 意味 | 使用例 | +|------|------|--------| +| スペース | 区切り文字 | `01 WS-A PIC X(10).` | +| `+` | 算術演算子、編集文字 | `COMPUTE WS-A = B + C.` | +| `-`（ハイフン） | 算術演算子、編集文字、継続文字、COBOL語要素 | `COMPUTE WS-A = B - C.` | +| `*`（アスタリスク） | 算術演算子、編集文字、注釈文字 | `* THIS IS COMMENT` | +| `/`（スラッシュ） | 算術演算子、編集文字、継続文字 | `PIC 99/99/99.` | +| `=` | 代入文字、関係文字 | `COMPUTE A = B.` | +| `$` | 通貨記号（編集文字） | `PIC $$99.` | +| `,`（カンマ） | 編集文字、区切り文字 | `PIC 99,999.` | +| `;`（セミコロン） | 区切り文字 | `MOVE 10 TO A; B.` | +| `:`（コロン） | 関係文字、修飾演算子 | `MOVE VAR(1:10) TO V.` | +| `.`（ピリオド） | 小数点、区切り文字 | `MOVE 10 TO A, B.` | +| `"`（引用符） | 英数字リテラルの区切り | `VALUE "HELLO".` | +| `'`（アポストロフィ） | 英数字リテラルの区切り | `VALUE 'HELLO'.` | +| `(` `)` | 括弧（区切り文字） | `IF (A = 10) AND (B = 5)` | +| `>` `<` | 関係文字 | `IF A > 10` | +| `_`（アンダースコア） | ユーザ定義語要素 | `01 WS_VAR PIC X(10).` | +| `A-Z` / `a-z` | アルファベット（英字） | | +| `0-9` | 数字 | | + +### コードページ + +コードページ（コード化文字セット）とは、各文字に数値位置（コードポイント）を割り当てた符号化表現のこと。IBMの各コードページはコードページ名（例：IBM-1252）とCCSID（例：1252）で識別される。 + +**Enterprise COBOLのコードページ関連機能**: + +- `CODEPAGE`コンパイラオプションで使用するコードページを指定 +- デフォルトのコードページは IBM-1140（CCSID 1140） +- ナショナルリテラルおよびUSAGE NATIONALのデータは UTF-16BE（CCSID 1200）で符号化 +- UTF-8リテラルおよびUSAGE UTF-8のデータは UTF-8（CCSID 1208）で符号化 + +**文字符号化単位（エンコーディングユニット）**: + +| USAGE / カテゴリ | エンコーディング単位 | +|-----------------|---------------------| +| DISPLAY（英数字） | 1バイト | +| DISPLAY-1（DBCS） | 2バイト | +| NATIONAL | 2バイト | +| UTF-8 | 1バイト | + +**ランタイムコードページの種類**: +- シングルバイトEBCDIC +- EBCDIC DBCS（Shift-Out/Shift-Inで区切られた2バイト文字） +- Unicode UTF-16 +- Unicode UTF-8 + +--- + +## 1.2 文字列（COBOL語とリテラル） + +文字列（character-string）とは、COBOL語、リテラル、PICTURE文字列、または注釈項目を形成する連続した文字のこと。文字列は区切り文字（separator）によって区切られる。 + +### COBOL予約語 + +予約語はCOBOLソースユニット内で事前定義された意味を持つ文字列。6つのタイプがある： + +1. **キーワード** — 特定の句、項目、文で必須の語 +2. **オプション語** — 可読性向上のための省略可能な語 +3. **FIGURATIVE CONSTANT（ figurative constants）** — ZERO, SPACE等 +4. **特殊文字語** — 算術演算子（+ - / * **）、関係演算子（< > = <= >=）、浮動注釈指示子（\*>）、疑似テキスト区切り（==）、コンパイラ指示子指示記号（>>） +5. **特殊オブジェクト識別子** — SELF, SUPER +6. **特殊レジスタ** — ADDRESS OF, RETURN-CODE等 + +### ユーザ定義語 + +ユーザが指定するCOBOL語。最大30バイト。以下の文字を使用可能： +- ラテン大文字 A～Z +- ラテン小文字 a～z +- 数字 0～9 +- ハイフン（-）：先頭・末尾不可 +- アンダースコア（_）：先頭不可 + +**ユーザ定義語の種類とDBCS許容**: + +| 種類 | DBCS許容 | +|------|----------| +| Alphabet-name（アルファベット名） | 可 | +| Class-name（クラス名） | 可 | +| Condition-name（条件名） | 可 | +| Data-name（データ名） | 可 | +| File-name（ファイル名） | 可 | +| Function-name（関数名） | 不可 | +| Index-name（インデックス名） | 可 | +| Level-number（レベル番号01-49, 66, 77, 88） | 不可 | +| Library-name（ライブラリ名） | 不可 | +| Mnemonic-name（ニモニック名） | 可 | +| Paragraph-name（段落名） | 可 | +| Program-name（プログラム名） | 不可 | +| Record-name（レコード名） | 可 | +| Section-name（節名） | 可 | +| Symbolic-character（記号文字） | 可 | +| Text-name（テキスト名） | 不可 | +| Type-name（型名） | 可 | +| XML-schema-name（XMLスキーマ名） | 可 | + +### システム名 + +システムに対して特定の意味を持つ文字列。3タイプ： +- Computer-name（計算機名） +- Language-name（言語名） +- Implementor-name（実装者名）：Environment-name, External-class-name, External-fileid, Assignment-name + +### FIGURATIVE CONSTANTS（ figurative定数） + +| 定数 | 意味 | +|------|------| +| ZERO, ZEROS, ZEROES | 数値0、または文字'0'の1回以上の出現 | +| SPACE, SPACES | 1つ以上のブランク（空白） | +| HIGH-VALUE, HIGH-VALUES | 使用中の照合順序で最上位の文字 | +| LOW-VALUE, LOW-VALUES | 使用中の照合順序で最下位の文字 | +| QUOTE, QUOTES | 引用符文字またはアポストロフィ文字 | +| ALL literal | リテラルの文字列を1回以上繰り返したもの | +| NULL, NULLS | POINTER/PROCEDURE-POINTER等の無効アドレスを示す値 | +| symbolic-character | SYMBOLIC CHARACTERS句で定義された文字 | + +### 特殊レジスタ一覧 + +特殊レジスタは、コンパイラが生成するストレージ領域を名前で参照するための予約語。 + +| 特殊レジスタ | 暗黙定義 | 用途 | +|-------------|----------|------| +| ADDRESS OF | USAGE POINTER | LINKAGE/LOCAL/WORKING-STORAGE項目のアドレス参照 | +| DEBUG-ITEM | 01グループ（6サブフィールド） | デバッグ宣言手続きへの情報提供 | +| IGY-JAVAIOP-CALL-EXCEPTION | PIC 9(9)/9(18) COMP-5 | Java静的メソッド呼出時の例外オブジェクト参照 | +| JNIENVPTR | USAGE POINTER | JNI環境ポインタ参照 | +| JSON-CODE | PIC S9(9) BINARY | JSON GENERATE/PARSEの成功/例外コード | +| JSON-STATUS | PIC S9(9) BINARY | JSON PARSEの非例外状態コード | +| LENGTH OF | PIC 9(9)/9(18) BINARY | データ項目の現在バイト長 | +| LINAGE-COUNTER | 可変（LINAGE句依存） | 現在ページ内の行番号 | +| RETURN-CODE | PIC S9(4) BINARY GLOBAL | 呼出元へのリターンコード | +| SHIFT-OUT / SHIFT-IN | PIC X(1) DISPLAY | EBCDICシフトアウト/シフトイン制御文字 | +| SORT-CONTROL | PIC X(8) DISPLAY | ソート制御文のDD名 | +| SORT-CORE-SIZE | PIC S9(8) BINARY | ソートユーティリティが使用可能なストレージ量 | +| SORT-FILE-SIZE | PIC S9(8) BINARY | ソート入力ファイルの推定レコード数 | +| SORT-MESSAGE | PIC X(8) DISPLAY | ソートメッセージ出力先DD名 | +| SORT-MODE-SIZE | PIC S9(5) BINARY | 可変長レコードの最頻長 | +| SORT-RETURN | PIC S9(4) BINARY | ソート/マージ完了コード（0=成功, 16=失敗） | +| TALLY | PIC 9(5) BINARY GLOBAL | 計数用（参照・変更可能） | +| WHEN-COMPILED | PIC X(16) DISPLAY | コンパイル開始日時（MM/DD/YYhh.mm.ss） | +| XML-CODE | PIC S9(9) BINARY | XML GENERATE/PARSEのステータスコード | +| XML-EVENT | PIC X(30) DISPLAY | XMLパースイベント名 | +| XML-INFORMATION | PIC S9(9) BINARY | XMLイベントの追加情報 | +| XML-NAMESPACE / XML-NNAMESPACE | 英数字/ナショナル | XML名前空間識別子 | +| XML-NAMESPACE-PREFIX / XML-NNAMESPACE-PREFIX | 英数字/ナショナル | XML名前空間プレフィックス | +| XML-NTEXT | ナショナル | XML文書断片（NATIONAL） | +| XML-TEXT | 英数字（可変長） | XML文書断片（DISPLAY） | + +### リテラル + +リテラルは、その構成文字またはFIGURATIVE CONSTANTの使用によって値が指定される文字列。 + +**英数字リテラル（Alphanumeric Literals）**: +- 基本形式: `"文字列"` または `'文字列'` +- 最大長: 160バイト、最小長: 1バイト +- 16進表記: `X"hex"` または `X'hex'` +- NULL終端: `Z"文字列"` または `Z'文字列'` +- DBCS文字を含む英数字リテラルは継続不可 + +**DBCSリテラル**: +- 形式: `G""` または `G''` +- 最大長: 28文字 +- 継続不可 + +**UTF-8リテラル**: +- 基本形式: `U"文字データ"` または `U'文字データ'` +- Unicodeエスケープシーケンス対応: `\uhhhh` (BMP), `\U00hhhhh` (追加面) +- 16進表記: `UX"hex"` または `UX'hex'` + +**数値リテラル**: +- 数字0-9、符号（+/-）、小数点で構成 +- 整数: 1～18桁（ARITH(COMPAT)時）または1～31桁（ARITH(EXTEND)時） +- 浮動小数点: 仮数部に小数点必須、指数部はE+/-nn + +**ナショナルリテラル**: +- NSYMBOL(NATIONAL)時: `N"文字データ"` または `N'文字データ'` +- 最大長: 80文字位置 +- 16進表記: `NX"hex"` または `NX'hex'` +- UTF-16（ビッグエンディアン）に自動変換 + +--- + +## 1.3 区切り文字（Separators） + +| 区切り文字 | 意味 | +|-----------|------| +| スペース（b） | 語の区切り | +| `,b`（カンマ+スペース） | 区切りカンマ | +| `.b`（ピリオド+スペース） | 区切りピリオド（文の終端） | +| `;b`（セミコロン+スペース） | 区切りセミコロン | +| `:` | コロン | +| `::` | 修飾演算子 | +| `(` `)` | 括弧 | +| `"..."` | 引用符（英数字リテラル区切り） | +| `'...'` | アポストロフィ（英数字リテラル区切り） | +| `==...==` | 疑似テキスト区切り | +| `U"` / `U'` | UTF-8リテラル開始区切り | +| `UX"` / `UX'` | UTF-8 16進リテラル開始区切り | +| `X"` / `X'` | 英数字16進リテラル開始区切り | +| `Z"` / `Z'` | NULL終端英数字リテラル開始区切り | +| `N"` / `N'` | ナショナル/DBCSリテラル開始区切り | +| `NX"` / `NX'` | ナショナル16進リテラル開始区切り | +| `G"` / `G'` | DBCSリテラル開始区切り | + +--- + +## 1.4 参照形式（Reference Format） + +COBOLソーステキストは72桁の行内で以下の領域に分けられる： + +| 領域 | 桁 | 内容 | +|------|-----|------| +| Sequence number area | 1～6 | 行番号（任意） | +| Indicator area | 7 | 指示子 | +| Area A | 8～11 | 特定の要素の開始位置 | +| Area B | 12～72 | エントリ、文、句など | + +**Area Aに記述するもの**: +- 区分ヘッダ（IDENTIFICATION/ENVIRONMENT/DATA/PROCEDURE DIVISION.） +- 節ヘッダ +- 段落ヘッダ、段落名 +- レベル指示子（FD, SD）、レベル番号01、77 +- DECLARATIVES / END DECLARATIVES +- プログラム/クラス/メソッド終了マーカ + +**Area Bに記述するもの**: +- エントリ、文、句 +- 継続行 + +**指示子領域（Column 7）の用途**: +- `-`（ハイフン）: 継続行 +- `*`（アスタリスク）: 注釈行 +- `/`（スラッシュ）: 改ページ＋注釈行 +- `D` / `d`: デバッグ行 + +--- + +# 第2部: COBOLプログラム構造 + +## 2.1 4つのDIVISION + +COBOLソースプログラムは以下の4つの区分（division）から構成される： + +### IDENTIFICATION DIVISION（識別区分） + +プログラムの識別情報を定義する必須区分。 + +**主要な段落**: +- `PROGRAM-ID. program-name.` — プログラム名（必須） +- `CLASS-ID. class-name INHERITS class-name.` — クラス定義 +- `FUNCTION-ID. function-name.` — ユーザ定義関数 +- `METHOD-ID. "method-name".` — メソッド定義 + +### ENVIRONMENT DIVISION（環境区分） + +プログラムの実行環境に依存する側面を記述する。 + +**CONFIGURATION SECTION**: +- SOURCE-COMPUTET. source-computer-name +- OBJECT-COMPUTER. object-computer-name +- SPECIAL-NAMES.（特殊名） +- REPOSITORY.（リポジトリ） + +**INPUT-OUTPUT SECTION**: +- FILE-CONTROL.（ファイル制御） +- I-O-CONTROL.（入出力制御） + +### DATA DIVISION（データ区分） + +プログラムで処理されるすべてのデータを構造化して記述する。 + +**FILE SECTION**（ファイル節） — データファイルの構造を定義 +**WORKING-STORAGE SECTION**（作業格納節） — 内部データ +**LOCAL-STORAGE SECTION**（局所格納節） — 呼出毎に再割当てされるデータ +**LINKAGE SECTION**（連絡節） — 他プログラムから受け渡されるデータ + +### PROCEDURE DIVISION（手続き区分） + +実行可能な処理を記述する。 + +--- + +## 2.2 ネストプログラム + +COBOLプログラムは他のCOBOLプログラムを内部に含むことができる。これらを含まれるプログラムをネストプログラムと呼ぶ。 + +- 直接含まれる（directly contained）: プログラムBがプログラムA内に直接ある場合 +- 間接的に含まれる（indirectly contained）: プログラムBがプログラムA内の別のプログラムCに含まれる場合 +- 兄弟プログラム（sibling）: 同じプログラムに直接含まれるプログラム同士 +- COMMON属性: ネストプログラムで指定でき、それを含むプログラムとその兄弟から参照可能 + +--- + +## 2.3 クラス定義／メソッド定義／ユーザ定義関数 + +### クラス定義 + +オブジェクト指向COBOLのための構造。Javaとの相互運用を目的とする。 + +``` +IDENTIFICATION DIVISION. +CLASS-ID. class-name INHERITS superclass. +ENVIRONMENT DIVISION. +...（CONFIGURATION SECTIONのみ） +FACTORY.（ファクトリ定義：静的メソッド＋静的データ） +OBJECT.（オブジェクト定義：インスタンスメソッド＋インスタンスデータ） +END CLASS class-name. +``` + +### メソッド定義 + +クラス内のメソッドは独立した`METHOD-ID`で識別される。`GOBACK`で終了。 + +### ユーザ定義関数 + +`FUNCTION-ID`で定義。`RETURNING`句で戻り値を指定。 + +--- + +# 第3部: ENVIRONMENT DIVISION詳細 + +## 3.1 CONFIGURATION SECTION（構成節） + +### SOURCE-COMPUTER段落 +``` +SOURCE-COMPUTER. computer-name WITH DEBUGGING MODE. +``` + +### OBJECT-COMPUTER段落 +``` +OBJECT-COMPUTER. computer-name + MEMORY SIZE integer WORDS/CHARACTERS/MODULES + PROGRAM COLLATING SEQUENCE IS alphabet-name + SEGMENT-LIMIT IS priority-number. +``` + +### SPECIAL-NAMES段落 + +``` +SPECIAL-NAMES. + implementor-name IS mnemonic-name + alphabet-name IS ... + CLASS class-name IS ... + CURRENCY SIGN IS literal + DECIMAL-POINT IS COMMA + SYMBOLIC CHARACTERS ... + XML-SCHEMA ... +``` + +**主な句**: + +| 句 | 機能 | +|----|------| +| ALPHABET句 | 文字セット/照合順序の定義（EBCDIC, ASCII, STANDARD-1/2, ユーザ定義） | +| CLASS句 | 文字の分類定義（例：CLASS VALID-CHAR IS 'A' THRU 'Z'） | +| CURRENCY SIGN句 | 通貨記号の変更 | +| DECIMAL-POINT IS COMMA | ピリオドとカンマの機能交換 | +| SYMBOLIC CHARACTERS句 | ユーザ定義FIGURATIVE CONSTANTの作成 | +| XML-SCHEMA句 | XMLスキーマファイルの指定 | + +### REPOSITORY段落 + +クラス名とその外部クラス名の対応付け、ユーザ定義関数のプロトタイプ参照を行う。 + +``` +REPOSITORY. + CLASS class-name IS external-class-name + FUNCTION function-name + FUNCTION ALL INTRINSIC. +``` + +--- + +## 3.2 INPUT-OUTPUT SECTION（入出力節） + +### FILE-CONTROL段落 + +``` +FILE-CONTROL. + SELECT file-name ASSIGN TO assignment-name + ORGANIZATION IS SEQUENTIAL/INDEXED/RELATIVE + ACCESS MODE IS SEQUENTIAL/RANDOM/DYNAMIC + RECORD KEY IS data-name + ALTERNATE RECORD KEY IS data-name + RELATIVE KEY IS data-name + FILE STATUS IS data-name + RESERVE integer AREAS + PADDING CHARACTER IS data-name + RECORD DELIMITER IS STANDARD-1. +``` + +| 句 | 機能 | +|----|------| +| SELECT / ASSIGN | ファイルと外部名の関連付け | +| ORGANIZATION | ファイル編成（SEQUENTIAL/INDEXED/RELATIVE） | +| ACCESS MODE | アクセスモード（SEQUENTIAL/RANDOM/DYNAMIC） | +| RECORD KEY | 索引ファイルの主レコードキー | +| ALTERNATE RECORD KEY | 代替レコードキー | +| RELATIVE KEY | 相対ファイルのキー | +| FILE STATUS | ファイルステータスを受け取るデータ項目 | +| RESERVE | バッファ領域数 | + +### I-O-CONTROL段落 + +``` +I-O-CONTROL. + RERUN ON assignment-name EVERY integer RECORDS + SAME AREA FOR file-name + SAME RECORD AREA FOR file-name + SAME SORT AREA FOR file-name + MULTIPLE FILE TAPE CONTAINS file-name + APPLY WRITE-ONLY ON file-name. +``` + +--- + +# 第4部: DATA DIVISION詳細 + +## 4.1 ファイル記述（FD） + +``` +FD file-name + BLOCK CONTAINS integer-1 TO integer-2 RECORDS/CHARACTERS + RECORD CONTAINS integer-1 TO integer-2 CHARACTERS + LABEL RECORDS ARE STANDARD/OMITTED + VALUE OF data-name IS literal + DATA RECORDS ARE record-name + LINAGE IS data-name/integer LINES + WITH FOOTING AT data-name/integer + LINES AT TOP data-name/integer + LINES AT BOTTOM data-name/integer + RECORDING MODE IS F/V/U/S + CODE-SET IS alphabet-name + EXTERNAL / GLOBAL. +``` + +| 句 | 機能 | +|----|------| +| BLOCK CONTAINS | 物理ブロックサイズ | +| RECORD CONTAINS | 論理レコードサイズ | +| LABEL RECORDS | ラベル処理（STANDARD/OMITTED） | +| VALUE OF | ラベル内の識別情報 | +| LINAGE | ページ行数制御（帳票出力用） | +| CODE-SET | コードページ変換の指定 | + +**LINAGE句**: +- LINAGE-COUNTER特殊レジスタが自動生成される +- `WRITE`文実行時に自動更新 +- 初期値は1 + +--- + +## 4.2 データ記述項目 + +### レベルの概念 + +| レベル番号 | 用途 | +|-----------|------| +| 01 | レコード自体（Area Aに記述） | +| 02～49 | グループ項目、基本項目 | +| 66 | RENAMES句用 | +| 77 | 独立項目（WORKING-STORAGE等、Area Aに記述） | +| 88 | 条件名（VALUE句と共に使用） | + +### PICTURE句 + +PICTURE文字列でデータ項目の特性と編集要件を指定する。 + +**PICTURE記号一覧**: + +| 記号 | 意味 | サイズ算定 | +|------|------|-----------| +| A | 英字またはスペースのみ | 1文字位置 | +| B | スペース挿入 | 1文字位置 | +| E | 外部浮動小数点の指数開始 | 1文字位置 | +| G | DBCS文字位置 | 1文字位置 | +| N | DBCS/ナショナル文字位置 | 1文字位置 | +| P | 仮定小数点スケーリング位置 | カウントされない | +| S | 符号の存在 | カウントされない（SEPARATE時は1） | +| U | UTF-8文字位置 | 1文字位置 | +| V | 仮定小数点の位置 | カウントされない | +| X | 任意の英数字文字 | 1文字位置 | +| Z | 先頭ゼロ置換（スペース） | 1文字位置 | +| 9 | 数字 | 1桁 | +| 0 | ゼロ挿入 | 1文字位置 | +| / | スラッシュ挿入 | 1文字位置 | +| , | カンマ挿入 | 1文字位置 | +| . | 実小数点（編集） | 1文字位置 | +| + / - | 編集符号制御 | 1文字位置 | +| CR / DB | 編集符号制御 | 2文字位置 | +| * | チェックプロテクト | 1文字位置 | +| cs | 通貨記号 | 1+文字位置 | + +**データカテゴリ**: + +| カテゴリ | PICTURE記号 | +|---------|-------------| +| Alphabetic | Aのみ | +| Alphanumeric | X、またはA/X/9の組合せ | +| Alphanumeric-edited | A X 9 B 0 /（少なくとも1つのA/Xと1つのB/0//） | +| DBCS | G、G B、N（NSYMBOL(DBCS)時） | +| External floating-point | +9.9E+99形式 | +| National | N（NSYMBOL(NATIONAL)時） | +| National-edited | N B 0 / | +| Numeric | 9 S V P | +| Numeric-edited | 数値編集記号 | +| UTF-8 | U | + +**編集の種類**: +- 単純挿入編集: B, 0, / +- 特殊挿入編集: .（実小数点） +- 固定挿入編集: +, -, CR, DB, cs（通貨記号） +- 浮動挿入編集: +, -, cs（複数回指定） +- ゼロ抑制/置換編集: Z, * + +--- + +### OCCURS句（表定義） + +固定長表: +``` +05 item OCCURS integer TIMES + ASCENDING/DESCENDING KEY IS data-name + INDEXED BY index-name + PIC X(10). +``` + +可変長表（ODO: OCCURS DEPENDING ON）: +``` +05 item OCCURS integer-1 TO integer-2 TIMES + DEPENDING ON data-name + PIC X(10). +``` + +無制限表（UNBOUNDED）: +``` +05 item OCCURS 1 TO UNBOUNDED TIMES + DEPENDING ON data-name + PIC X(10). +``` + +### REDEFINES句 + +同一ストレージ領域の再定義。レベル番号が同じでなければならない。 + +``` +01 WS-EMPLOYEE. + 05 WS-EMP-NAME PIC X(30). + 05 WS-EMP-SALARY PIC 9(5)V99. +01 WS-EMP-ALT REDEFINES WS-EMPLOYEE. + 05 WS-EMP-CODE PIC X(10). + 05 WS-EMP-DEPT PIC X(25). +``` + +### RENAMES句（レベル66） + +既存データ項目の再グループ化。レベル66で指定。 + +``` +66 WS-RENAME-EMP RENAMES WS-FIRST-NAME THRU WS-LAST-NAME. +``` + +### USAGE句 + +データ項目の内部表現を指定。 + +| USAEGE句 | 説明 | +|---------|------| +| DISPLAY | ディスプレイ形式（標準） | +| DISPLAY-1 | DBCSデータ | +| COMP / COMP-4 / BINARY | 2進形式 | +| COMP-1 | 内部浮動小数点（短精度） | +| COMP-2 | 内部浮動小数点（長精度） | +| COMP-3 | 内部10進形式（パック10進） | +| INDEX | インデックスデータ項目 | +| POINTER | アドレスポインタ | +| POINTER-32 | 32ビットアドレスポインタ | +| PROCEDURE-POINTER | 手続きポインタ | +| FUNCTION-POINTER | 関数ポインタ | +| OBJECT REFERENCE | オブジェクト参照 | +| NATIONAL | ナショナル文字（UTF-16） | +| UTF-8 | UTF-8文字 | +| NATIVE | ネイティブ2進表現 | + +### VALUE句 + +データ項目の初期値を指定。 + +``` +01 WS-COUNT PIC 9(4) VALUE 0. +88 WS-ZERO VALUE 0. +88 WS-POSITIVE VALUE 1 THRU 9999. +``` + +### その他の句 + +| 句 | 機能 | +|----|------| +| BLANK WHEN ZERO | 値がゼロのとき項目を空白にする | +| JUSTIFIED RIGHT | 右詰め指定 | +| SYNCHRONIZED | 自然境界への位置合わせ（SYNC） | +| EXTERNAL | 実行単位全体で共有される外部データ | +| GLOBAL | ネストプログラムから参照可能な大域データ | +| SIGN IS LEADING/TRALLING SEPARATE | 符号の表現方法 | +| GROUP-USAGE NATIONAL/UTF-8 | グループ全体の使用法 | +| TYPEDEF / TYPE | ユーザ定義型 | +| DYNAMIC LENGTH | 動的長さ基本項目 | +| VOLATILE | 揮発性データの指定 | + +--- + +# 第5部: PROCEDURE DIVISION詳細 + +## 5.1 手続き部構造 + +### PROCEDURE DIVISIONヘッダ + +``` +PROCEDURE DIVISION USING data-name-1 ... + RETURNING data-name. +``` + +- USING句: LINKAGE SECTIONの項目を引数として受け取る +- RETURNING句: 戻り値を指定 + +### 宣言部（DECLARATIVES） + +例外処理やデバッグ処理を記述する特殊な手続き領域。 + +``` +DECLARATIVES. +section-name SECTION. USE AFTER EXCEPTION/ERROR ON file-name. +... +END DECLARATIVES. +``` + +### 算術式 + +算術演算子: `+`（加算）, `-`（減算）, `*`（乗算）, `/`（除算）, `**`（べき乗） + +演算優先順位: `**` → `*` / `/` → `+` / `-` + +### 条件式 + +**関係条件**: +``` +operand-1 IS [NOT] GREATER THAN / LESS THAN / EQUAL TO operand-2 +operand-1 > / < / = / >= / <= operand-2 +``` + +**クラス条件**: +``` +identifier IS [NOT] NUMERIC / ALPHABETIC / ALPHABETIC-LOWER / + ALPHABETIC-UPPER / DBCS / KANJI / class-name +``` + +**条件名条件**: +``` +condition-name （88レベルで定義された条件名） +``` + +**符号条件**: +``` +operand IS [NOT] POSITIVE / NEGATIVE / ZERO +``` + +**スイッチ状態条件**: +``` +condition-name （SPECIAL-NAMESで定義されたUPSIスイッチ） +``` + +**省略引数条件**: +``` +data-name IS [NOT] OMITTED +``` + +**複合条件**: +``` +condition-1 AND/OR condition-2 +NOT condition +``` + +--- + +## 5.2 手続き文一覧 + +### ACCEPT文 + +システム日付・時刻・ユーザ入力の受取り。 + +``` +ACCEPT identifier FROM DATE/DAY/TIME/DAY-OF-WEEK/ + DATE YYYYMMDD/DAY YYYYDDD +ACCEPT identifier （SYSINからの入力） +``` + +- DATE: PIC 9(6) — YYMMDD +- DATE YYYYMMDD: PIC 9(8) — YYYYMMDD +- DAY: PIC 9(5) — YYDDD +- DAY YYYYDDD: PIC 9(7) — YYYYDDD +- DAY-OF-WEEK: PIC 9(1) — 1=月曜～7=日曜 +- TIME: PIC 9(8) — HHMMSShh（時分秒ミリ秒） + +### ADD文 + +加算。ROUNDED、SIZE ERROR、CORRESPONDING句をサポート。 + +``` +ADD identifier/literal TO identifier [ROUNDED] + [ON SIZE ERROR imperative] [NOT ON SIZE ERROR imperative] +ADD identifier/literal GIVING identifier [ROUNDED] +ADD CORRESPONDING identifier-1 TO identifier-2 +``` + +### CALL文 + +サブプログラム呼出。 + +``` +CALL literal/identifier USING [BY REFERENCE/CONTENT/VALUE] data-name + RETURNING identifier + ON EXCEPTION imperative + NOT ON EXCEPTION imperative +``` + +- BY REFERENCE: アドレス渡し（デフォルト） +- BY CONTENT: 内容のコピーを渡す +- BY VALUE: 値を渡す + +### CANCEL文 + +プログラムの解放。次回CALL時に初期状態で再ロードされる。 + +``` +CANCEL program-name +``` + +### CLOSE文 + +ファイルのクローズ。 + +``` +CLOSE file-name [WITH LOCK/NO REWIND/REEL/FOR REMOVAL] +``` + +### COMPUTE文 + +計算代入。複数の算術演算を組合せ可能。 + +``` +COMPUTE identifier [ROUNDED] = arithmetic-expression + [ON SIZE ERROR imperative] [NOT ON SIZE ERROR imperative] +``` + +### CONTINUE文 + +無操作（no operation）文。 + +``` +CONTINUE +``` + +### DELETE文 + +索引ファイルまたは相対ファイルからのレコード削除。 + +``` +DELETE file-name RECORD + [INVALID KEY imperative] [NOT INVALID KEY imperative] +``` + +### DISPLAY文 + +オペランドの内容を出力装置へ転送。 + +``` +DISPLAY identifier/literal + UPON mnemonic-name/environment-name + WITH NO ADVANCING +``` + +### DIVIDE文 + +除算。商と余りを計算。 + +``` +DIVIDE identifier INTO identifier [ROUNDED] + [REMAINDER identifier] +DIVIDE identifier BY identifier GIVING identifier [ROUNDED] + [REMAINDER identifier] +``` + +### EVALUATE文 + +多分岐。COBOLのswitch/case相当。 + +``` +EVALUATE subject ALSO subject + WHEN object ALSO object imperative + WHEN OTHER imperative +END-EVALUATE +``` + +### EXIT文 + +手続きの共通終了点。プログラム/メソッド/PARAGRAPH/SECTIONの終了。 + +``` +EXIT PROGRAM （呼出元に復帰） +EXIT METHOD （メソッド終了） +EXIT PARAGRAPH （段落終了） +EXIT SECTION （節終了） +EXIT PERFORM [CYCLE] （インラインPERFORMからの脱出） +``` + +### GOBACK文 + +プログラム/メソッドの論理的終了。呼出元に復帰。 + +``` +GOBACK +``` + +### GO TO文 + +制御の移動。 + +``` +GO TO procedure-name （無条件） +GO TO procedure-name DEPENDING ON identifier （条件付） +``` + +### IF文 + +条件分岐。 + +``` +IF condition THEN statement-1 ELSE statement-2 END-IF +``` + +### INITIALIZE文 + +データ項目のカテゴリ別初期化。 + +``` +INITIALIZE identifier [WITH FILLER] [ALL] + [REPLACING category BY identifier/literal] + [THEN TO DEFAULT] +``` + +カテゴリ: ALPHABETIC, ALPHANUMERIC, NUMERIC, ALPHANUMERIC-EDITED, +NUMERIC-EDITED, DBCS, NATIONAL, NATIONAL-EDITED, UTF-8等 + +### INSPECT文 + +文字列の検査/置換/変換。 + +``` +INSPECT identifier TALLYING count FOR CHARACTERS/ALL/LEADING/FIRST + identifier/literal [BEFORE/AFTER identifier/literal] +INSPECT identifier REPLACING CHARACTERS/ALL/LEADING/FIRST + identifier/literal BY identifier/literal +INSPECT identifier CONVERTING identifier TO identifier +``` + +### MERGE文 + +2つ以上のファイルのマージ。 + +``` +MERGE file-name ON ASCENDING/DESCENDING KEY data-name + USING file-name-1 file-name-2 + GIVING file-name-3 +``` + +### MOVE文 + +代入。基本項目移動、グループ移動、編集をサポート。 + +``` +MOVE identifier/literal TO identifier +MOVE CORRESPONDING identifier-1 TO identifier-2 +``` + +### MULTIPLY文 + +乗算。 + +``` +MULTIPLY identifier BY identifier [ROUNDED] +MULTIPLY identifier BY identifier GIVING identifier [ROUNDED] +``` + +### OPEN文 + +ファイルのオープン。 + +``` +OPEN INPUT/OUTPUT/I-O/EXTEND file-name +``` + +### PERFORM文 + +繰り返し処理。 + +``` +PERFORM procedure [THRU procedure] （基本） +PERFORM procedure integer TIMES （回数指定） +PERFORM procedure UNTIL condition （条件指定） +PERFORM procedure VARYING identifier FROM ... BY ... UNTIL ... +PERFORM inline-statement END-PERFORM （インライン） +``` + +### READ文 + +ファイルからの読込。 + +``` +READ file-name [INTO identifier] [KEY IS data-name] + [AT END imperative] [INVALID KEY imperative] + [NOT AT END/INVALID KEY imperative] +``` + +### RELEASE文 + +SORT文へのレコード引き渡し。 + +``` +RELEASE record-name FROM identifier +``` + +### RETURN文 + +SORT文からのレコード受取。 + +``` +RETURN file-name INTO identifier + AT END imperative [NOT AT END imperative] +``` + +### REWRITE文 + +レコードの書換え。 + +``` +REWRITE record-name [FROM identifier] + [INVALID KEY imperative] [NOT INVALID KEY imperative] +``` + +### SEARCH文 + +内部表の探索。 + +- **シリアルサーチ（SEARCH）**: 逐次探索。INDEXED BY必須。 +- **バイナリサーチ（SEARCH ALL）**: 二分探索。ASCENDING/DESCENDING KEY必須。 + +``` +SEARCH table-name [VARYING index-name] + AT END imperative + WHEN condition imperative +SEARCH ALL table-name + AT END imperative + WHEN KEY condition imperative +``` + +### SET文 + +インデックス、アドレス、条件名、ポインタの設定。 + +``` +SET index-name UP BY/DOWN BY integer （索引値の増減） +SET index-name TO integer （索引値設定） +SET condition-name TO TRUE （条件名真設定） +SET address TO pointer （アドレス設定） +SET procedure-pointer TO entry （手続きポインタ設定） +SET object-reference TO object （オブジェクト参照設定） +``` + +### SORT文 + +ファイルの整列。 + +``` +SORT file-name ON ASCENDING/DESCENDING KEY data-name + [WITH DUPLICATES IN ORDER] + INPUT PROCEDURE section [THRU section] + USING file-name + OUTPUT PROCEDURE section [THRU section] + GIVING file-name +``` + +### START文 + +VSAMファイルの開始位置指定。 + +``` +START file-name KEY IS GREATER THAN/EQUAL TO/LESS THAN data-name + [INVALID KEY imperative] [NOT INVALID KEY imperative] +``` + +### STOP文 + +実行停止。 + +``` +STOP RUN （プログラム終了、制御をOSに戻す） +STOP literal （一時停止、オペレータ介入待ち） +``` + +### STRING文 + +文字列の連結。 + +``` +STRING identifier/literal DELIMITED BY identifier/literal/SIZE + INTO identifier + [WITH POINTER identifier] + [ON OVERFLOW imperative] +END-STRING +``` + +### SUBTRACT文 + +減算。 + +``` +SUBTRACT identifier/literal FROM identifier [ROUNDED] +SUBTRACT identifier/literal FROM identifier GIVING identifier +SUBTRACT CORRESPONDING identifier-1 FROM identifier-2 +``` + +### UNSTRING文 + +文字列の分解。 + +``` +UNSTRING identifier + DELIMITED BY [ALL] identifier/literal [OR ...] + INTO identifier [DELIMITER IN identifier] [COUNT IN identifier] + [WITH POINTER identifier] + [TALLYING IN identifier] + [ON OVERFLOW imperative] [NOT ON OVERFLOW imperative] +END-UNSTRING +``` + +### WRITE文 + +ファイルへの書出し。 + +``` +WRITE record-name [FROM identifier] + [AFTER/BEFORE ADVANCING PAGE/LINE identifier/literal] + [END-OF-PAGE imperative] + [INVALID KEY imperative] [NOT INVALID KEY imperative] +``` + +--- + +# 第6部: 組み込み関数 + +## 関数の呼出し形式 + +``` +FUNCTION function-name ( argument ... ) +``` + +## 関数一覧 + +| 関数名 | 型 | 説明 | +|--------|-----|------| +| ABS | 数値 | 絶対値 | +| ACOS | 数値 | 逆余弦（アークコサイン） | +| ANNUITY | 数値 | 年金係数 | +| ASIN | 数値 | 逆正弦（アークサイン） | +| ATAN | 数値 | 逆正接（アークタンジェント） | +| BIT-OF | 整数 | 2進数文字列表現 | +| BIT-TO-CHAR | 英数字 | 2進文字列を文字に変換 | +| BYTE-LENGTH | 整数 | バイト長 | +| CHAR | 英数字 | コードポイントから文字 | +| COMBINED-DATETIME | 整数 | 日時を結合した整数値 | +| CONTENT-OF | 英数字/ナショナル | ファイル内容の読取り | +| COS | 数値 | 余弦（コサイン） | +| CURRENT-DATE | 英数字 | 現在日時（YYYYMMDDhhmmssss+hhmm） | +| DATE-OF-INTEGER | 整数 | 整数日付→YYYYMMDD変換 | +| DATE-TO-YYYYMMDD | 整数 | 2桁年→4桁年変換 | +| DAY-OF-INTEGER | 整数 | 整数日付→YYYYDDD変換 | +| DAY-TO-YYYYDDD | 整数 | 2桁年→4桁年（ユリウス日）変換 | +| DISPLAY-OF | 英数字 | ナショナル/UTF-8→指定コードページ変換 | +| E | 数値 | 自然対数の底（約2.71828） | +| EXP | 数値 | eのべき乗 | +| EXP10 | 数値 | 10のべき乗 | +| FACTORIAL | 整数 | 階乗 | +| FORMATTED-CURRENT-DATE | 英数字/ナショナル/UTF-8 | 書式指定現在日時 | +| FORMATTED-DATE | 英数字/ナショナル/UTF-8 | 書式指定日付変換 | +| FORMATTED-DATETIME | 英数字/ナショナル/UTF-8 | 書式指定日時変換 | +| FORMATTED-TIME | 英数字/ナショナル/UTF-8 | 書式指定時刻変換 | +| HEX-OF | 英数字 | 16進文字列表現 | +| HEX-TO-CHAR | 英数字 | 16進文字列→バイト変換 | +| INTEGER | 整数 | 切捨て整数化 | +| INTEGER-OF-DATE | 整数 | YYYYMMDD→整数日付変換 | +| INTEGER-OF-DAY | 整数 | YYYYDDD→整数日付変換 | +| INTEGER-OF-FORMATTED-DATE | 整数 | 書式指定日付→整数日付変換 | +| INTEGER-PART | 整数 | 整数部 | +| LENGTH | 整数 | 文字位置長（キャラクタ長） | +| LOG | 数値 | 自然対数 | +| LOG10 | 数値 | 常用対数 | +| LOWER-CASE | 英数字 | 英字小文字変換 | +| MAX | 可変 | 最大値 | +| MEAN | 数値 | 平均値 | +| MEDIAN | 数値 | 中央値 | +| MIDRANGE | 数値 | ミッドレンジ | +| MIN | 可変 | 最小値 | +| MOD | 整数 | 剰余（モジュロ） | +| NATIONAL-OF | ナショナル | 英数字→ナショナル変換 | +| NUMVAL | 数値 | 英数字→数値変換 | +| NUMVAL-C | 数値 | 通貨記号付き文字列→数値変換 | +| NUMVAL-F | 数値 | 浮動小数点文字列→数値変換 | +| ORD | 整数 | 文字の序数位置 | +| ORD-MAX | 整数 | 最大値の引数の序数 | +| ORD-MIN | 整数 | 最小値の引数の序数 | +| PI | 数値 | 円周率（約3.14159） | +| PRESENT-VALUE | 数値 | 現在価値 | +| RANDOM | 数値 | 乱数 | +| RANGE | 数値 | 範囲（最大値-最小値） | +| REM | 数値 | 剰余（REM = 被除数 - 除数 * 商） | +| REVERSE | 英数字/ナショナル | 文字列反転 | +| SECONDS-FROM-FORMATTED-TIME | 数値 | 書式指定時刻→秒数 | +| SECONDS-PAST-MIDNIGHT | 数値 | 現在時刻の正午からの経過秒数 | +| SIGN | 整数 | 符号（-1, 0, 1） | +| SIN | 数値 | 正弦（サイン） | +| SQRT | 数値 | 平方根 | +| STANDARD-DEVIATION | 数値 | 標準偏差 | +| SUM | 数値 | 合計 | +| TAN | 数値 | 正接（タンジェント） | +| TEST-DATE-YYYYMMDD | 整数 | YYYYMMDD日付の妥当性検証 | +| TEST-DAY-YYYYDDD | 整数 | YYYYDDD日付の妥当性検証 | +| TEST-FORMATTED-DATETIME | 整数 | 書式指定日時の妥当性検証 | +| TEST-NUMVAL | 整数 | 数値変換可能性の検証 | +| TEST-NUMVAL-C | 整数 | 通貨数値変換可能性の検証 | +| TEST-NUMVAL-F | 整数 | 浮動小数点変換可能性の検証 | +| TRIM | 英数字/ナショナル | 先頭/末尾スペース除去 | +| ULENGTH | 整数 | ナショナル文字の長さ（コードポイント単位） | +| UPOS | 整数 | ナショナル文字列内の部分文字位置 | +| UPPER-CASE | 英数字/ナショナル | 英字大文字変換 | +| USUBSTR | ナショナル | ナショナル部分文字列 | +| USUPPLEMENTARY | 整数 | 補助文字サロゲート有無判定 | +| UUID4 | 英数字 | UUID v4生成 | +| UVALID | 整数 | UTF-16文字列の妥当性検証 | +| UWIDTH | 整数 | UTF-16符号化単位数 | +| VARIANCE | 数値 | 分散 | +| WHEN-COMPILED | 英数字 | コンパイル日時（YYYYMMDDhhmmsshh+00） | +| YEAR-TO-YYYY | 整数 | 2桁年→4桁年変換 | + +--- + +# 第7部: コンパイラ指示文とコンパイラ指令 + +## コンパイラ指示文（Compiler-Directing Statements） + +### BASIS文 + +別のソーステキストを現在のソースユニットに組み込む。 + +``` +BASIS "basis-name" +``` + +### CBL（PROCESS）文 + +コンパイラオプションをソース内で指定。 + +``` +CBL option-name +PROCESS option-name +``` + +### *CBL（*CONTROL）文 + +ソースコード一覧の制御。 + +``` +*CBL SOURCE/NOSOURCE MAP/NOMAP LIST/NOLIST +``` + +### COPY文 + +COPYライブラリからソーステキストを組み込む。テキスト操作（置換）可能。 + +``` +COPY text-name [IN library-name] + [REPLACING ==pseudo-text== BY ==pseudo-text== ...] +``` + +- 疑似テキストによる置換機能 +- ライブラリ検索順序: 指定ライブラリ → SYSLIB + +### DELETE文 + +ソース一覧からの行削除指示（コーディングシート用）。 + +``` +DELETE line-number +``` + +### EJECT文 + +ソース一覧の改ページ。 + +``` +EJECT +``` + +### ENTER文 + +他言語（COBOL以外）のプログラムの呼出し（非推奨）。 + +``` +ENTER language-name routine-name +``` + +### INSERT文 + +ソース一覧への行挿入。 + +``` +INSERT line-number +``` + +### READY/RESET TRACE文 + +トレースの開始・停止。 + +``` +READY TRACE +RESET TRACE +``` + +### REPLACE文 + +ソーステキストの置換を指定。 + +``` +REPLACE ==pseudo-text== BY ==pseudo-text== ... +REPLACE OFF +``` + +### SERVICE LABEL文 + +サービストレースのラベル設定。 + +``` +SERVICE LABEL label-name +``` + +### SERVICE RELOAD文 + +サービスの再ロード。 + +``` +SERVICE RELOAD +``` + +### SKIP文 + +ソース一覧での行送り。 + +``` +SKIP1 / SKIP2 / SKIP3 +``` + +### TITLE文 + +ソース一覧のタイトル指定。 + +``` +TITLE "title-text" +``` + +### USE文 + +例外処理・デバッグ宣言。 + +``` +USE AFTER EXCEPTION/ERROR ON file-name/INPUT/OUTPUT/I-O/EXTEND +USE FOR DEBUGGING ON procedure-name +``` + +--- + +## コンパイラ指令（Compiler Directives） + +コンパイラ指令は `>>` で始まり、Area Bに記述する。 + +### CALLINTERFACE + +Javaとの相互運用のための呼出しインターフェース指定。 + +``` +>>CALLINTERFACE DLL +``` + +### DATA + +WORKING-STORAGEの割当て場所指定。 + +``` +>>DATA 24 / 31 +``` + +### 条件付きコンパイル（Conditional Compilation） + +`>>DEFINE`, `>>EVALUATE`, `>>IF` 等で条件付きコンパイルを実現。 + +``` +>>DEFINE variable = value +>>IF condition +...source text... +>>ELSE +...source text... +>>END-IF +``` + +**事前定義コンパイル変数**: +- COBOL, COBOL2002, ENTERPRISE_COBOL, IBM_ARCHITECTURE, +OS_FLAVOR, LOCALE, LANGUAGE 等 + +### JAVA-CALLABLE + +Javaから呼出し可能なCOBOLプログラムの指定。 + +``` +>>JAVA-CALLABLE program-name +``` + +### JAVA-SHAREABLE + +COBOLプログラムがJavaと共有可能なデータを持つことを指定。 + +``` +>>JAVA-SHAREABLE +``` + +--- + +## IBM拡張機能（主要なもの） + +Enterprise COBOL for z/OS V6.5は多くのIBM拡張機能を提供する： + +- 特殊レジスタ: ADDRESS OF, LENGTH OF, RETURN-CODE, JSON-CODE, XML-CODE等 +- 16進リテラル表記: X"...", NX"...", UX"..." +- NULL終端リテラル: Z"..." +- 日本語処理のためのDBCSサポート: Gリテラル、USAGE DISPLAY-1、PICTURE G/N +- 条件付きコンパイル: >>DEFINE, >>IF, >>EVALUATE +- CALL文のJava静的メソッド呼出し +- JSON GENERATE/PARSE文 +- XML GENERATE/PARSE文 +- ALLOCATE/FREE文による動的記憶管理 +- 動的長さ基本項目（DYNAMIC LENGTH） +- 無制限表（OCCURS UNBOUNDED） +- 全関数のALL下标指定 +- 64ビットアドレッシング（LP(64)） + +--- + +## ファイルステータスキー値 + +| コード | 意味 | +|--------|------| +| 00 | 正常終了 | +| 02 | 正常終了（重複レコード） | +| 04 | 正常終了（レコード長不整合） | +| 05 | 正常終了（参照オプショナルファイル未存在） | +| 10 | ファイル終了 | +| 14 | 相対ファイルの範囲外レコード | +| 21 | シーケンスエラー | +| 22 | 重複キー | +| 23 | レコード未存在 | +| 24 | バッファ不足 | +| 30 | 恒久的エラー | +| 34 | ファイル編成の境界違反 | +| 35 | ファイル未存在（OPEN） | +| 37 | アクセスモード違反 | +| 38 | クローズ前のOPEN | +| 39 | 属性矛盾 | +| 41 | OPEN時のファイル未存在 | +| 42 | クローズ済ファイルのOPEN | +| 43 | 書込み禁止ファイルの書込み | +| 44 | 読込み専用ファイルの書換え/削除 | +| 46 | 読込み専用（順次） | +| 47 | OPEN時のファイル読込み不可 | +| 48 | ファイル編成とアクセスモード矛盾 | +| 49 | OPEN時のファイル属性不整合 | +| 90 | 論理エラー該当せず | +| 91 | ファイル機構のアベンド | +| 92 | ストレージ不足 | +| 93 | リソースアクセス不可 | +| 94 | ファイルの位置指定不整合 | +| 95 | ファイル宣言の不整合 | +| 96 | 入出力制御の矛盾 | +| 97 | ファイルの編成/モード矛盾 | +| 98 | ボリューム処理エラー | +| 99 | レコードロック競合 | + +--- + +*本ドキュメントは IBM Enterprise COBOL for z/OS V6.5 Language Reference (SC27-8713-04) の内容に基づいて作成されました。* diff --git a/品質管理/カバレッジ統計.md b/品質管理/カバレッジ統計.md index f43f018..339c88d 100644 --- a/品質管理/カバレッジ統計.md +++ b/品質管理/カバレッジ統計.md @@ -1,7 +1,7 @@ # カバレッジ統計 > 本ファイルは全コードベース（KIN + ZAN + SUB）を統合したカバレッジ状況を集計する。 -> 定義ファイル（COBOLキーワード網羅定義書.md）の Part 1（予約語一覧）・Part 3.1（カテゴリ定義）を参照して集計する。 +> 定義ファイル（COBOLキーワード網羅定義書.md）の ## 1.（予約語一覧）・## 2.（TYPE定義）を参照して集計する。 > 凡例：◎=使用済、○=使用あり（一部構文のみ）、×=未使用、△=調査中 --- @@ -62,204 +62,256 @@ --- -## 2. カテゴリカバレッジ +## 2. TYPE定義カバレッジ（PICTURE句） -### 2.1 カテゴリ別使用状況 +> COBOLキーワード網羅定義書.mdの ## 2.1 PICTURE記号一覧（11種）に基づき、コードベースでの使用状況を集計する。 -| カテゴリ | 全文数 | 使用文数 | 使用文一覧 | 未使用文 | カバレッジ率 | -|---------|:-----:|:-------:|-----------|---------|:----------:| -| 入出力（ファイル） | 7 | 6 | READ, WRITE, OPEN, CLOSE, WRITE FROM, WRITE ADVANCING | DELETE(SEQ), REWRITE, START | 85.7% | -| 入出力（ソート） | 4 | 0 | — | SORT, MERGE, RELEASE, RETURN | 0.0% | -| 入出力（画面/システム） | 3 | 2 | ACCEPT, DISPLAY | STOP RUN(SUB03END使用), STOP literal | 66.7% | -| 算術演算 | 5 | 5 | ADD, SUBTRACT, MULTIPLY, DIVIDE, COMPUTE | —(CORRESPONDING/REMAINDERは一部使用) | 100% | -| 制御（条件分岐） | 4 | 4 | IF, EVALUATE, SEARCH, CONTINUE | — | 100% | -| 制御（繰返し） | 1 | 1 | PERFORM(UNTIL/VARYING/THRU/TEST AFTER) | — | 100% | -| 制御（分岐/呼出） | 7 | 4 | CALL, GOBACK, EXIT, GO TO | CANCEL, ENTRY, ALTER, EXIT PROGRAM | 57.1% | -| 文字操作 | 4 | 4 | STRING, UNSTRING, INSPECT, INITIALIZE | —(MOVE含む) | 100% | -| 埋込み言語 | 1 | 1 | EXEC SQL ... END-EXEC | —(EXEC CICS未使用) | 100% | -| **合計** | **38** | **27** | **(上記参照)** | **11件(ALTER,CANCEL,ENTRY,EXEC CICS,EXIT PROGRAM,MERGE,RELEASE,RETURN,REWRITE,SORT,START)** | **71.1%** | +### 2.1 PICTURE記号別使用状況 -### 2.2 未カバーカテゴリ +| No. | 記号 | 名称 | 使用状況 | 使用例 | +|:---:|:----|:-----|:-------:|:------| +| 1 | X | 英数字文字 | ◎ | PIC X(1)～X(303) 全プログラム（19種の長さ） | +| 2 | G | DBCS文字 | × | 未使用（日本語項目は全てPIC Xで定義） | +| 3 | N | ナショナル/DBCS文字 | × | 未使用 | +| 4 | 9 | 数字 | ◎ | PIC 9(1)～9(9) 全プログラム（カウンタ・フラグ・集計） | +| 5 | 9(m)V9(n) | 固定小数点数 | ◎ | PIC 9(4)V9(1)（WRK-ACCUM-HOURS等） | +| 6 | S9(m)V9(n) | 符号付き固定小数点数 | ○ | PIC S9(5)V9(1)（ZAN03CHK） | +| 7 | S9(m)V9(n) COMP-3 | パック10進符号付き固定小数 | ◎ | PIC S9(7)V9(1) COMP-3（DB-OVT-HOURS） | +| 8 | S9(m) COMP-3 | パック10進符号付き整数 | ◎ | PIC S9(9) COMP-3（CUN-*計数項目 計15変数） | +| 9 | S9(m) COMP | 2進符号付き整数 | ◎ | PIC S9(9) COMP（索引・カウンタ） | +| 10 | S9(m) BINARY | 2進符号付き整数（COMP同義） | × | COMPで代用、BINARY表記は不使用 | +| 11 | ZZZ9 | ゼロ抑制編集 | × | 未使用（Z(3)9.9は補足形式として使用中） | -| カテゴリ | 未使用文 | 備考 | -|---------|---------|------| -| 入出力（ソート） | SORT, MERGE, RELEASE, RETURN | JCL PGM=SORTに委譲。COBOL SORT不使用 | -| 制御（分岐/呼出） | CANCEL, ENTRY, ALTER, EXIT PROGRAM | GOBACKで代用。ALTERは非推奨 | -| 入出力（ファイル） | REWRITE, START | VSAM/INDEXED非対応。DELETEはEXEC SQLのみ | +### 2.2 未使用PICTURE記号 + +| 記号 | 名称 | 備考 | +|:----:|:-----|:-----| +| G | DBCS文字 | 日本語項目はPIC Xで十分 | +| N | ナショナル/DBCS文字 | NSYMBOL(NATIONAL)設定時のみ必要 | +| BINARY | 2進符号付き整数 | COMPで代用可 | +| ZZZ9 | ゼロ抑制編集 | 現在不使用 | + +### 2.3 補足：特殊編集形式 + +コードベースでは上記11種に加え、以下の編集形式が使用されている： + +| 形式 | 使用先 | +|:----|:-------| +| +9(009) | WS-DISP-HV-SICK-H等（符号付き表示編集） | +| Z(3)9.9 | WS-DISP-HV-ANNUAL-H等（ゼロ抑制編集・小数点明示） | +| S9 DISPLAY | WS-DISP-CUN-DBXUPD等（COMP-3→DISPLAY変換用） | +| 9(004).9(001) | 編集出力時の小数点明示形式 | --- -## 3. 予約語・構文パターンカバレッジ +## 3. 予約語カバレッジ一覧 -> 定義ファイル（COBOLキーワード網羅定義書.md Part 1）の「対応するCOBOL節/文」列に基づき、各構文パターンの使用状況を記録する。 -> 優先度：高=当該プログラムタイプで必須、中=使用頻度高い、低=特殊用途 -> 凡例：◎=使用済（複数PGM）、○=使用あり（単一PGM）、×=未使用 +> 全201予約語（COBOLキーワード網羅定義書.md Part1 192語 + 補足9語）をアルファベット順に一覧する。 +> 凡例：◎=複数PGMで使用、○=単一PGMのみ、×=未使用 -### 3.1 入出力（ファイル） - -#### READ - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| READ INTO | レコード読込＋データ移動 | ◎ | 高 | 全ファイル読込PGM（KIN03EXP/KIN06CLDを除く） | -| READ KEY IS | キー指定読込 | × | 高 | 逐次読込のみ、キー指定不要 | -| READ AT END | 終了条件処理 | ◎ | 高 | READ AT END / NOT AT END / END-READ | -| READ NEXT | 順次読込 | ◎ | 高 | 全READ文は順次読込 | -| READ PREVIOUS | 逆方向読込 | × | 低 | 動的アクセス時のみ | -| READ NOT AT END | 終了条件否定処理 | ○ | 中 | ZAN01CHKなど | -| READ WITH WAIT | ファイル解放待ち | × | 低 | | -| READ LOCK/IGNORE LOCK | ロック制御 | × | 低 | | - -#### WRITE - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| WRITE FROM | 転記書出 | ○ | 高 | KIN04CHK(2050NORMSOR)のみ | -| WRITE ADVANCING | 改行・改ページ制御 | ○ | 中 | KIN09CSV（PAGE/2 LINES/1 LINE） | -| WRITE END-OF-PAGE | ページ終了処理 | × | 低 | | -| WRITE INVALID KEY | キー異常処理 | × | 中 | 索引ファイル時 | - -#### OPEN - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| OPEN INPUT | 入力オープン | ◎ | 高 | 全ファイル入力PGM | -| OPEN OUTPUT | 出力オープン | ◎ | 高 | 全ファイル出力PGM | -| OPEN I-O | 入出力オープン | × | 高 | VSAM非対応 | -| OPEN EXTEND | 追加オープン | × | 中 | | -| OPEN WITH NO REWIND | 巻戻しなし | × | 低 | テープ時のみ | - -#### CLOSE - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| CLOSE WITH LOCK | ロック付きクローズ | × | 低 | | -| CLOSE FOR REMOVAL | テープリール取外し | × | 低 | | - -#### DELETE, REWRITE, START - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| DELETE(SEQ FILE) | 逐次ファイル削除 | × | 中 | EXEC SQL DELETEはKIN02UPDで使用 | -| REWRITE FROM | 書換え＋転記 | × | 中 | | -| REWRITE INVALID KEY | 書換え＋キー異常処理 | × | 中 | | -| START KEY IS | 開始位置指定 | × | 中 | | -| START INVALID KEY | 位置指定＋異常処理 | × | 中 | | - -### 3.2 入出力（ソート） - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| SORT ON KEY | 整列キー指定 | × | 低 | 現状未使用 | -| SORT USING | 入力ファイル指定 | × | 低 | | -| SORT GIVING | 出力ファイル指定 | × | 低 | | -| SORT INPUT PROCEDURE | 入力手続き | × | 低 | | -| SORT OUTPUT PROCEDURE | 出力手続き | × | 低 | | -| MERGE ON KEY | 結合キー指定 | × | 低 | | -| RELEASE FROM | SORTへの引渡し | × | 低 | | -| RETURN INTO | SORTからの受取り | × | 低 | | - -### 3.3 入出力（画面/システム） - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| ACCEPT FROM DATE/DAY/TIME | システム日付時刻取得 | ○ | 高 | KIN06CLDでACCEPT FROM COMMAND-LINE使用（DATE系はSUB01DAT委譲） | -| DISPLAY UPON | 出力先指定表示 | × | 高 | DISPLAYはあるがUPON句不使用 | -| DISPLAY WITH NO ADVANCING | 改行なし表示 | × | 中 | | -| STOP RUN | プログラム終了 | ○ | 高 | SUB03ENDのみ（STOP RUN RETURN-CODE） | -| STOP literal | 一時停止 | × | 低 | | - -### 3.4 算術演算 - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| ADD TO/GIVING | 加算 | ◎ | 高 | ADD 1 TO CUN-xxx（全メインプログラム） | -| ADD CORRESPONDING | 対応項目加算 | × | 中 | 未使用 | -| SUBTRACT FROM/GIVING | 減算 | ◎ | 高 | KIN07DAI（6100/6300）、ZAN06UPD | -| SUBTRACT CORRESPONDING | 対応項目減算 | × | 中 | 未使用 | -| MULTIPLY BY/GIVING | 乗算 | ◎ | 中 | KIN07DAI、ZAN06UPD（時間→分変換） | -| DIVIDE INTO/BY | 除算 | ◎ | 中 | ZAN01CHK、ZAN05CAL、SUB05TIM、KIN07DAI | -| DIVIDE REMAINDER | 商と余り | ◎ | 中 | DIVIDE...GIVING...REMAINDER（ZAN01, ZAN05, SUB05, KIN07） | -| COMPUTE | 計算代入 | ◎ | 高 | ZAN01, ZAN03, ZAN05, KIN03, KIN06, SUB05 | -| ROUNDED | 丸め指定 | ◎ | 中 | COMPUTE ROUNDED（上記PGM） | -| SIZE ERROR | サイズ異常処理 | ○ | 中 | COMPUTE ON SIZE ERROR（ZAN01, ZAN03） | - -### 3.5 制御（条件分岐） - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| IF THEN/ELSE/END-IF | 条件分岐 | ◎ | 高 | 全メインプログラム + SUB04CHK, SUB05TIM | -| EVALUATE ALSO/WHEN/OTHER | 多分岐 | ◎ | 高 | 12本中11本（KIN04/KIN06以外） | -| SEARCH ALL | バイナリサーチ | ◎ | 中 | KIN03EXP(休日), ZAN03CHK(休日) | -| SEARCH VARYING | 変数変化付探索 | × | 中 | SEARCH(非ALL)はKIN01INPのみ | -| CONTINUE | 無操作 | ◎ | 低 | SEARCH ALL AT END, EVALUATE WHEN OTHER | - -### 3.6 制御（繰返し） - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| PERFORM 外部段落 | 段落呼出 | ◎ | 高 | 全メインプログラム | -| PERFORM THRU | 段落範囲呼出 | ○ | 中 | KIN03EXP（2100 THRU ...-EXIT） | -| PERFORM TIMES | 回数指定 | × | 中 | 未使用 | -| PERFORM UNTIL | 条件指定 | ◎ | 高 | 全メインプログラム | -| PERFORM VARYING/AFTER | 変数変化付 | ◎ | 高 | ZAN06UPD, KIN06CLD（線形探索） | -| PERFORM インライン | インライン記述 | × | 高 | 全PERFORMは外部段落呼出し | -| PERFORM TEST BEFORE/AFTER | 判定タイミング指定 | ○ | 中 | ZAN06UPD（PERFORM TEST AFTER VARYING） | - -### 3.7 制御（分岐/呼出） - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| CALL USING | 引数付呼出 | ◎ | 高 | 全メインプログラム（CALL SUB01-05） | -| CALL RETURNING | 戻値付呼出 | × | 中 | RETURN-CODEは使用するがCALL RETURNING不使用 | -| CALL ON EXCEPTION | 呼出異常処理 | × | 中 | | -| GOBACK | プログラム終了 | ◎ | 高 | 全14プログラム | -| EXIT（plain） | 段落・節の共通終点 | ◎ | 中 | 全14プログラム（xxx-EXT. EXIT.） | -| EXIT PROGRAM | 呼出元復帰 | × | 高 | GOBACKで代用 | -| EXIT PARAGRAPH/SECTION | 段落・節終了 | × | 低 | | -| EXIT PERFORM/CYCLE | PERFORM脱出 | × | 低 | | -| GO TO | 制御移行 | ○ | 中 | ZAN01CHK, KIN01INP, KIN04CHK, SUB04CHK, KIN08DBU(DEPENDING ON) | -| CANCEL ON EXCEPTION | プログラム解放 | × | 低 | | -| ALTER TO PROCEED TO | 分岐先変更 | × | 低 | 廃止予定 | -| ENTRY USING | 別エントリポイント | × | 低 | | - -### 3.8 文字操作 - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| STRING DELIMITED BY/INTO | 文字列連結 | ◎ | 高 | KIN01,02,04,06, ZAN01-04,06, SUB02MSG | -| STRING WITH POINTER | 位置指定連結 | ○ | 中 | KIN09CSV（2000MAJSOR/2500-SHORT-MODE） | | -| UNSTRING DELIMITED BY/INTO | 文字列分解 | ◎ | 高 | KIN01INP, KIN04CHK, ZAN01CHK | -| UNSTRING WITH POINTER | 位置指定分解 | × | 中 | | -| UNSTRING TALLYING | 分解数計数 | ○ | 中 | KIN01INP, KIN04CHK, ZAN01CHK（TALLYING IN CNT） | -| INSPECT TALLYING | 文字計数 | ◎ | 中 | ZAN01CHK, KIN04CHK, SUB04CHK | -| INSPECT REPLACING | 文字置換 | ○ | 中 | KIN09CSV（CSVカンマ・改行サニタイズ） | | -| INSPECT CONVERTING | 文字変換 | × | 中 | | -| INITIALIZE REPLACING | カテゴリ別初期化 | × | 中 | 全PGMでINITIALIZE(plain)を使用。REPLACING句未使用 | -| MOVE TO | 基本代入 | ◎ | 高 | 全14プログラム | -| MOVE CORRESPONDING | 対応項目代入 | × | 中 | | - -### 3.9 埋込み言語 - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| EXEC SQL ... END-EXEC | DB2アクセス | ◎ | 高 | KIN02UPD, KIN03EXP, KIN08DBU, KIN09CSV, ZAN06UPD | -| EXEC CICS ... END-EXEC | CICSコマンド | × | 低 | 現状バッチのみ | - -### 3.10 組込み関数 - -| 構文パターン | 説明 | 使用状況 | 優先度 | 備考 | -|-------------|------|:-------:|:------:|------| -| FUNCTION WHEN-COMPILED | コンパイル日時取得 | ◎ | 高 | 全14メインプログラム（MSG033出力） | -| FUNCTION TRIM | 文字列前後空白除去 | ◎ | 中 | KIN08DBU(1130-MODESOR), KIN09CSV | -| FUNCTION MOD | 剰余算 | ◎ | 中 | KIN03EXP（曜日/うるう年）, KIN06CLD（うるう年） | -| FUNCTION INTEGER-OF-DATE | 日付→整数変換 | ◎ | 中 | KIN03EXP, KIN06CLD | -| FUNCTION NUMVAL | 文字→数値変換 | ◎ | 中 | KIN03EXP, SUB04CHK | -| FUNCTION CURRENT-DATE | 現在日時取得 | ◎ | 高 | SUB01DAT（基本日付取得） | -| FUNCTION MIN/MAX | 最小/最大値 | ○ | 中 | KIN07DAI（FUNCTION MIN/MAX） | -| FUNCTION LENGTH/REVERSE/UPPER-CASE/LOWER-CASE | その他汎用関数 | × | 低 | 未使用 | -| FUNCTION RANDOM | 乱数生成 | × | 低 | 未使用 | -| FUNCTION SUBSTITUTE | 文字列置換 | × | 中 | INSPECT REPLACINGで代用 | +| No. | 予約語 | 使用状況 | 使用プログラム/備考 | +|:---:|--------|:-------:|-------------------| +| 1 | ACCEPT | ◎ | ACCEPT FROM COMMAND-LINE(KIN06CLD,KIN08DBU)、DATE/DAY/TIME系SUB01DAT委譲 | +| 2 | ACCESS | × | | +| 3 | ADD | ◎ | ADD TO/GIVING 全メインプログラム | +| 4 | AFTER | ◎ | WRITE AFTER ADVANCING(KIN09CSV)、INSPECT AFTER(KIN09CSV)、PERFORM VARYING AFTER(ZAN06UPD) | +| 5 | ALL | ◎ | SEARCH ALL(KIN03EXP,ZAN03CHK)、INSPECT ALL(ZAN01CHK) | +| 6 | ALPHABETIC | × | | +| 7 | ALPHABETIC-UPPER | × | | +| 8 | ALSO | ◎ | EVALUATE ALSO(11プログラム) | +| 9 | AND | ◎ | 条件式 全プログラム | +| 10 | ANY | × | | +| 11 | APPLY | × | | +| 12 | ASCENDING | ◎ | OCCURS ASCENDING KEY(KIN01INP,SUB04CHK)、SEARCH ALL | +| 13 | ASSIGN | ◎ | SELECT ASSIGN TO 全プログラム | +| 14 | AT | ◎ | READ AT END、WRITE AT END-OF-PAGE、SEARCH AT END | +| 15 | AUTHOR | ◎ | IDENTIFICATION DIVISION 全プログラム | +| 16 | BINARY | × | COMP使用、BINARY表記不使用 | +| 17 | BLOCK | ◎ | FD BLOCK CONTAINS 全ファイル入出力PGM | +| 18 | BY | ◎ | PERFORM VARYING BY、MULTIPLY BY、DIVIDE BY、CALL BY REFERENCE | +| 19 | CALL | ◎ | CALL SUB01-05 全メインプログラム | +| 20 | CHARACTER | × | | +| 21 | CHARACTERS | ◎ | INSPECT CHARACTERS(ZAN01CHK,KIN04CHK,SUB04CHK) | +| 22 | CLOSE | ◎ | CLOSE 全ファイル入出力PGM | +| 23 | COMP | ◎ | USAGE COMP カウンタ/フラグ | +| 24 | COMP-3 | ◎ | USAGE COMP-3 集計/金額項目 | +| 25 | COMP-4 | × | COMPと同義だが不使用 | +| 26 | COMPUTE | ◎ | COMPUTE ROUNDED(ZAN01,ZAN03,ZAN05,KIN03,KIN06,SUB05) | +| 27 | CONDITION | × | | +| 28 | CONFIGURATION | ◎ | CONFIGURATION SECTION 全プログラム | +| 29 | CONTAINS | ◎ | FD BLOCK CONTAINS / RECORD CONTAINS | +| 30 | CONTINUE | ◎ | 全プログラム(SEARCH AT END、EVALUATE OTHER) | +| 31 | CONVERTING | × | | +| 32 | COPY | ◎ | COPY 全プログラム(C書式取込み) | +| 33 | CORR | × | MOVE CORR/ADD CORR未使用 | +| 34 | COUNT | × | UNSTRING COUNT IN未使用 | +| 35 | CURSOR | ◎ | DECLARE/OPEN/FETCH/CLOSE CURSOR(KIN02UPD,KIN09CSV) | +| 36 | DATA | ◎ | DATA DIVISION 全プログラム | +| 37 | DATE | ◎ | ACCEPT FROM DATE(SUB01DAT委譲) | +| 38 | DATE-COMPILED | ◎ | IDENTIFICATION DIVISION 全プログラム | +| 39 | DATE-WRITTEN | ◎ | IDENTIFICATION DIVISION 全プログラム | +| 40 | DECLARATIVES | × | | +| 41 | DELETE | × | COBOL DELETE(SEQ FILE)未使用。EXEC SQL DELETEはKIN02UPD | +| 42 | DELIMITED | ◎ | STRING/UNSTRING DELIMITED BY | +| 43 | DELIMITER | × | UNSTRING DELIMITER IN未使用 | +| 44 | DEPENDING | ◎ | GO TO DEPENDING ON(KIN08DBU)、OCCURS DEPENDING ON | +| 45 | DESCENDING | × | | +| 46 | DISPLAY | ◎ | DISPLAY文(MSG出力) 5プログラム | +| 47 | DISPLAY-1 | × | | +| 48 | DIVIDE | ◎ | DIVIDE GIVING REMAINDER(ZAN01,ZAN05,SUB05,KIN07) | +| 49 | DIVISION | ◎ | IDENTIFICATION/ENVIRONMENT/DATA/PROCEDURE DIVISION 全プログラム | +| 50 | DOWN | × | SET DOWN未使用 | +| 51 | DYNAMIC | × | | +| 52 | EJECT | × | | +| 53 | ELSE | ◎ | IF ELSE END-IF 全プログラム | +| 54 | END | ◎ | END-IF、END-READ、END-PERFORM等スコープターミネータ | +| 55 | END-ADD | × | | +| 56 | END-CALL | ◎ | END-CALL(CALL使用PGM) | +| 57 | END-COMPUTE | ◎ | END-COMPUTE(COMPUTE使用PGM) | +| 58 | END-DIVIDE | × | | +| 59 | END-EVALUATE | ◎ | END-EVALUATE(EVALUATE使用11PGM) | +| 60 | END-EXEC | ◎ | END-EXEC(EXEC SQL使用5PGM) | +| 61 | END-IF | ◎ | END-IF 全プログラム | +| 62 | END-PERFORM | ◎ | END-PERFORM 全プログラム | +| 63 | END-READ | ◎ | END-READ(READ使用PGM) | +| 64 | END-SEARCH | ◎ | END-SEARCH(SEARCH使用PGM) | +| 65 | END-STRING | ◎ | END-STRING(STRING使用PGM) | +| 66 | END-SUBTRACT | × | | +| 67 | END-UNSTRING | ◎ | END-UNSTRING(UNSTRING使用PGM) | +| 68 | ENVIRONMENT | ◎ | ENVIRONMENT DIVISION 全プログラム | +| 69 | ERROR | ◎ | ON SIZE ERROR(COMPUTE:ZAN01,ZAN03) | +| 70 | EVALUATE | ◎ | EVALUATE ALSO WHEN OTHER END-EVALUATE 11プログラム | +| 71 | EXEC | ◎ | EXEC SQL END-EXEC(KIN02UPD,KIN03EXP,KIN08DBU,KIN09CSV,ZAN06UPD) | +| 72 | EXCEPTION | × | CALL ON EXCEPTION未使用 | +| 73 | EXECUTE | × | | +| 74 | EXIT | ◎ | 段落共通終点 EXIT 全14プログラム | +| 75 | FALSE | × | | +| 76 | FD | ◎ | FILE DESCRIPTION 全ファイル入出力PGM | +| 77 | FILE | ◎ | FILE SECTION、FILE-CONTROL 全プログラム | +| 78 | FILE-CONTROL | ◎ | FILE-CONTROL SELECT ASSIGN 全プログラム | +| 79 | FILLER | ◎ | FILLER 全プログラム(DATA DIVISION) | +| 80 | FIRST | ◎ | INSPECT FIRST(ZAN01CHK,KIN04CHK,SUB04CHK) | +| 81 | FOR | ◎ | PERFORM VARYING FOR、INSPECT FOR | +| 82 | FROM | ◎ | ACCEPT FROM、STRING FROM、PERFORM VARYING FROM | +| 83 | GET | × | | +| 84 | GIVING | ◎ | ADD/DIVIDE/MULTIPLY/SUBTRACT GIVING | +| 85 | GO | ◎ | GO TO(ZAN01CHK,KIN01INP,KIN04CHK,SUB04CHK,KIN08DBU(DEPENDING ON)) | +| 86 | GOBACK | ◎ | GOBACK 全14プログラム | +| 87 | GREATER | × | | +| 88 | HIGH-VALUE | × | | +| 89 | I-O-CONTROL | × | I-O-CONTROL段落不使用 | +| 90 | ID | × | | +| 91 | IDENTIFICATION | ◎ | IDENTIFICATION DIVISION 全プログラム | +| 92 | IF | ◎ | IF ELSE END-IF 全プログラム | +| 93 | IN | ◎ | INSPECT TALLYING IN、SEARCH IN | +| 94 | INDEXED | ◎ | OCCURS INDEXED BY(KIN01INP,KIN03EXP,ZAN03CHK) | +| 95 | INITIAL | × | PROGRAM-ID INITIAL不使用 | +| 96 | INITIALIZE | ◎ | INITIALIZE 全プログラム(REPLACING句は×) | +| 97 | INPUT | ◎ | OPEN INPUT、INPUT-OUTPUT SECTION | +| 98 | INPUT-OUTPUT | ◎ | INPUT-OUTPUT SECTION 全プログラム | +| 99 | INSERT | ◎ | EXEC SQL INSERT(KIN02UPD,KIN08DBU) | +| 100 | INSPECT | ◎ | INSPECT TALLYING/REPLACING(ZAN01CHK,KIN04CHK,SUB04CHK,KIN09CSV) | +| 101 | INTO | ◎ | READ INTO、STRING INTO、UNSTRING INTO | +| 102 | INVALID | × | COBOL INVALID KEY未使用 | +| 103 | IS | ◎ | 条件式IS、ACCESS MODE IS等 | +| 104 | KEY | ◎ | ASCENDING/DESCENDING KEY、SEARCH KEY、OCCURS KEY | +| 105 | LABEL | ◎ | FD LABEL RECORDS STANDARD | +| 106 | LENGTH | × | FUNCTION LENGTH未使用 | +| 107 | LINKAGE | ◎ | LINKAGE SECTION サブプログラム(SUB01-05)＋CALL有PGM | +| 108 | LOW-VALUE | × | | +| 109 | MODE | ◎ | RECORDING MODE F | +| 110 | MOVE | ◎ | MOVE TO 全14プログラム | +| 111 | MULTIPLY | ◎ | MULTIPLY BY/GIVING(KIN07DAI,ZAN06UPD) | +| 112 | NEXT | × | | +| 113 | NOT | ◎ | NOT AT END、NOT ON ERROR、IF NOT 全プログラム | +| 114 | NUMERIC | ◎ | IF NUMERIC(SUB04CHK) | +| 115 | OBJECT-COMPUTER | ◎ | OBJECT-COMPUTER 全プログラム | +| 116 | OCCURS | ◎ | OCCURS TIMES/DEPENDING ON/INDEXED BY | +| 117 | OF | ◎ | データ参照修飾(全プログラム) | +| 118 | OMITTED | × | | +| 119 | ON | ◎ | ON SIZE ERROR、OCCURS DEPENDING ON | +| 120 | OPEN | ◎ | OPEN INPUT/OUTPUT 全ファイル入出力PGM | +| 121 | OPTIONS | × | | +| 122 | OR | ◎ | 条件式 OR、UNSTRING DELIMITED BY OR | +| 123 | ORDER | × | | +| 124 | ORGANIZATION | × | | +| 125 | OTHER | ◎ | EVALUATE WHEN OTHER | +| 126 | OUTPUT | ◎ | OPEN OUTPUT | +| 127 | PACKED-DECIMAL | × | COMP-3使用、PACKED-DECIMAL表記不使用 | +| 128 | PAGE | ◎ | WRITE ADVANCING PAGE(KIN09CSV) | +| 129 | PAGE-COUNTER | × | | +| 130 | PERFORM | ◎ | PERFORM 全14プログラム(VARYING/UNTIL/THRU/TEST AFTER) | +| 131 | PIC | ◎ | PICTURE句 全プログラム | +| 132 | POINTER | ◎ | STRING WITH POINTER(KIN09CSV) | +| 133 | PROCEDURE | ◎ | PROCEDURE DIVISION 全プログラム | +| 134 | PROGRAM-ID | ◎ | PROGRAM-ID 全プログラム | +| 135 | RANDOM | × | | +| 136 | READ | ◎ | READ INTO AT END 全ファイル読込PGM | +| 137 | RECORD | ◎ | FD RECORD CONTAINS | +| 138 | RECORDING | ◎ | FD RECORDING MODE F | +| 139 | RECORDS | ◎ | FD LABEL RECORDS STANDARD、BLOCK CONTAINS RECORDS | +| 140 | REDEFINES | ◎ | REDEFINES(各種PGM WORKING-STORAGE) | +| 141 | REMAINDER | ◎ | DIVIDE GIVING REMAINDER(ZAN01,ZAN05,SUB05,KIN07) | +| 142 | REMOVAL | × | | +| 143 | REPLACING | ◎ | COPY REPLACING、INSPECT REPLACING(KIN09CSV)。INITIALIZE REPLACINGは× | +| 144 | RERUN | × | | +| 145 | RETURN-CODE | ◎ | RETURN-CODE 全プログラム(SUB03ENDでMOVE→STOP RUN) | +| 146 | ROUNDED | ◎ | COMPUTE ROUNDED(ZAN01,ZAN03,ZAN05,KIN03,KIN06,SUB05) | +| 147 | RUN | ○ | STOP RUN RETURN-CODE(SUB03ENDのみ) | +| 148 | SEARCH | ◎ | SEARCH ALL(KIN03EXP,ZAN03CHK)、SEARCH(KIN01INP) | +| 149 | SECTION | ◎ | CONFIGURATION/INPUT-OUTPUT/WORKING-STORAGE/LINKAGE/PROCEDURE SECTION | +| 150 | SELECT | ◎ | SELECT ASSIGN(FILE-CONTROL)全プログラム、EXEC SQL SELECT | +| 151 | SENTENCE | × | | +| 152 | SET | ◎ | SET condition-name TO TRUE(条件名設定) | +| 153 | SHIFT-IN | × | | +| 154 | SHIFT-OUT | × | | +| 155 | SIZE | ◎ | ON SIZE ERROR(COMPUTE:ZAN01CHK,ZAN03CHK) | +| 156 | SKIP2 | × | | +| 157 | SOURCE-COMPUTER | ◎ | SOURCE-COMPUTER IBM-ZSERIES 全プログラム | +| 158 | SPACE | ◎ | SPACE/SPACES INITIALIZE後、VALUE、MOVE | +| 159 | SPACES | ◎ | SPACES(SPACEと同義) | +| 160 | SQL | ◎ | EXEC SQL(KIN02UPD,KIN03EXP,KIN08DBU,KIN09CSV,ZAN06UPD) | +| 161 | STANDARD | ◎ | FD LABEL RECORDS STANDARD | +| 162 | STOP | ○ | STOP RUN(SUB03ENDのみ) | +| 163 | STRING | ◎ | STRING DELIMITED BY INTO(KIN01,02,04,06,ZAN01-04,06,SUB02MSG) | +| 164 | SUBTRACT | ◎ | SUBTRACT FROM/GIVING(KIN07DAI,ZAN06UPD) | +| 165 | TABLE | × | | +| 166 | TALLYING | ◎ | INSPECT TALLYING、UNSTRING TALLYING IN | +| 167 | TEST | ◎ | PERFORM TEST AFTER(ZAN06UPD) | +| 168 | THEN | ◎ | IF THEN(一部PGMで明示的THEN使用) | +| 169 | THRU | ◎ | PERFORM THRU(KIN03EXP)、VALUE THRU | +| 170 | TIME | ◎ | ACCEPT FROM TIME(SUB01DAT経由) | +| 171 | TIMES | ◎ | OCCURS TIMES | +| 172 | TO | ◎ | MOVE TO、ADD TO、GO TO 全プログラム | +| 173 | TRUE | ◎ | EVALUATE TRUE、SET condition TO TRUE | +| 174 | TYPE | × | | +| 175 | UNSTRING | ◎ | UNSTRING DELIMITED BY INTO(KIN01INP,KIN04CHK,ZAN01CHK) | +| 176 | UNTIL | ◎ | PERFORM UNTIL 全プログラム | +| 177 | UP | × | SET UP未使用 | +| 178 | UPON | × | DISPLAY UPON未使用 | +| 179 | USAGE | ◎ | USAGE DISPLAY/COMP/COMP-3 | +| 180 | USE | × | | +| 181 | USING | ◎ | PROCEDURE DIVISION USING、CALL USING 全プログラム | +| 182 | VALUE | ◎ | VALUE 全プログラム(88条件名、初期値) | +| 183 | VALUES | ◎ | VALUES(88条件名複数値) | +| 184 | VARYING | ◎ | PERFORM VARYING(ZAN06UPD,KIN06CLD)、SEARCH VARYING(KIN01INP) | +| 185 | WHEN | ◎ | EVALUATE WHEN、SEARCH WHEN | +| 186 | WHEN-COMPILED | ◎ | FUNCTION WHEN-COMPILED 全14プログラム | +| 187 | WITH | ◎ | STRING WITH POINTER、WRITE WITH ADVANCING | +| 188 | WORKING-STORAGE | ◎ | WORKING-STORAGE SECTION 全プログラム | +| 189 | WRITE | ◎ | WRITE FROM/ADVANCING 全ファイル出力PGM | +| 190 | WRITE-ONLY | × | | +| 191 | ZERO | ◎ | ZERO/ZEROS VALUE 0、MOVE ZERO | +| 192 | ZEROS | ◎ | ZEROS(ZEROと同義) | +| 193 | ALTER | × | 非推奨 | +| 194 | CANCEL | × | | +| 195 | ENTRY | × | | +| 196 | MERGE | × | JCL PGM=SORTに委譲 | +| 197 | RELEASE | × | COBOL SORT未使用 | +| 198 | RETURN | × | COBOL RETURN文未使用(RETURN-CODEは特殊レジスタ) | +| 199 | REWRITE | × | VSAM非対応 | +| 200 | SORT | × | JCL PGM=SORTに委譲 | +| 201 | START | × | 順次読込のみ | --- @@ -275,20 +327,16 @@ | カバレッジ率（◎/35） | 45.7% | | カバレッジ率（◎+○/35） | 48.6% | | 実装対象限定（1-9,13-15,24-26,28,30-31）= 20種中 | 17件 = 85.0% | -| **カテゴリカバレッジ（9カテゴリ）** | | -| 全カテゴリ数 | 9 | -| カバー済カテゴリ（使用文あり） | 8 / 9 | -| 未カバーカテゴリ | 入出力（ソート）（4文すべて未使用） | -| カテゴリカバレッジ率 | 88.9% | -| **ステートメントカバレッジ（45ユニーク）** | | -| 全ステートメント数 | 45 | -| 使用済ステートメント | 37 | -| 未使用ステートメント | 8 | -| カバレッジ率 | 82.2% | -| **予約語カバレッジ** | | -| 全予約語数（COBOLキーワード網羅定義書.md準拠） | 193 | -| 使用予約語数 | 137 | -| カバレッジ率 | 71.0% | +| **PICTURE記号カバレッジ（Section 2.1）** | | +| 全記号数（11種） | 11 | +| 使用済記号（◎+○） | 7 | +| 未使用記号（×） | 4 | +| カバレッジ率 | 63.6% | +| **予約語カバレッジ（Section 3）** | | +| 全予約語数（COBOLキーワード網羅定義書.md Part1 + 補足9語） | 201 | +| 使用予約語数（◎+○） | 137 | +| 未使用予約語数（×） | 64 | +| カバレッジ率 | 68.2% | | **TYPE定義カバレッジ（11種）** | | | 全TYPE定義数 | 11 | | 使用済TYPE | 7（X, 9, 9V9, S9V9, S9V9 COMP-3, S9 COMP-3, S9 COMP） | @@ -296,23 +344,5 @@ | 未使用TYPE | 4（G, N, BINARY, ZZZ9） | | TYPEカバレッジ率 | 63.6%（特殊含め90.9%） | -## 5. サブシステムA プログラム実装状況 - -| No. | プログラムID | プログラム名 | プログラムタイプ | 実装 | 備考 | -|:---:|:-----------:|:------------|:----------------:|:----:|------| -| 1 | KIN01INP | 休暇申請CSV取込・検証処理 | 振り分け(IF) + CSV→FB | ◎ | 実装済 | -| 2 | KIN02UPD | 休暇申請DB更新処理 | DB更新（INSERT/DELETE/SELECT） | ◎ | 実装済 | -| 3 | KIN03EXP | 休暇日別展開処理 | キーブレイク + DB検索 | ◎ | 実装済 | -| 4 | KIN04CHK | 打刻項目チェック処理 | 項目チェック（重複無） | ◎ | 実装済 | -| 5 | KIN05MAT | 打刻休暇照合処理 | マッチング(1:N) + キーブレイク | ◎ | 実装済 | -| 6 | KIN06CLD | 出勤日カレンダー生成処理 | GETPUT + DB検索 | ◎ | 実装済 | -| 7 | KIN07DAI | 日別勤怠計算処理 | マッチング(1:N) + EVALUATE分岐 | ◎ | 実装済 | -| 8 | KIN08DBU | 勤怠DB更新処理 | DB更新 + SYSIN読込 | ◎ | 実装済 | -| 9 | KIN09CSV | 勤怠CSV出力処理 | 編集出力（WRITE AFTER ADVANCING） | ◎ | 実装済 | - -**サブシステムA全9プログラム実装完了** - ---- - > 本ファイルは全コードベース（KIN01-09 + ZAN01-06 + SUB01-05 = 20プログラム）を統合したカバレッジ状況。 -> サブシステムA 全9プログラム実装済。定義ファイル（COBOLキーワード網羅定義書.md）と合わせて参照すること。 +> 定義ファイル（COBOLキーワード網羅定義書.md）と合わせて参照すること。 diff --git a/品質管理/测试基准说明.md b/品質管理/测试基准说明.md new file mode 100644 index 0000000..90b51c6 --- /dev/null +++ b/品質管理/测试基准说明.md @@ -0,0 +1,569 @@ +# 测试基准说明 + +> 出典: 程序分类及测试基准.pdf (第2部：测试基准) + +## 凡例 + +| 記号 | 意味 | +|------|------| +| ◎ | 必須テスト | +| ○ | 推奨テスト | + +--- + +## 2.1 通用测试基准 + +### 2.1.1 正常系通用（8项） + +| 编号 | 项目 | 内容 | 优先级 | +|------|------|------|--------| +| COM-N001 | 最小数据（1条） | 各输入文件1条 | ◎ | +| COM-N002 | 标准数据（多条） | 正常业务量 | ◎ | +| COM-N003 | 最大数据（上限） | 定义上限（含性能） | ○ | +| COM-N004 | 全部输出文件存在 | 期望输出文件全部生成 | ◎ | +| COM-N005 | 输出文件内容确认 | 与期望值完全一致 | ◎ | +| COM-N006 | 输出记录长度确认 | 与规格一致 | ◎ | +| COM-N007 | 输出排序确认 | 键序正确 | ◎ | +| COM-N008 | JOBLOG确认 | 日期/件数/结束码 | ◎ | + +### 2.1.2 异常系通用（8项） + +| 编号 | 项目 | 内容 | 期望结果 | 优先级 | +|------|------|------|---------|--------| +| COM-A001 | 文件不存在 | 不存在文件 | OPEN STATUS 35 ABEND | ◎ | +| COM-A002 | 全部0件 | 所有输入为空 | 正常结束 输出0条 | ◎ | +| COM-A003 | 部分0件 | 部分文件为空 | 正常结束 | ◎ | +| COM-A004 | 记录长度不一致 | LRECL不匹配 | ABEND/STATUS错误 | ◎ | +| COM-A005 | 磁盘满 | 容量不足 | 顺序文件STATUS 34，VSAM文件STATUS 24 | ○ | +| COM-A006 | OPEN模式违反 | 只读文件WRITE | STATUS 37 | ◎ | +| COM-A007 | 再OPEN | OPEN中再OPEN | STATUS 41 | ◎ | +| COM-A008 | 异常结束码 | Uxxxx确认 | 与期望一致 | ◎ | + +### 2.1.3 确认项通用（8项） + +| 编号 | 确认项 | 确认内容 | 确认方法 | +|------|--------|---------|---------| +| COM-C001 | 程序开始 | 程序名/日時/版本 | JOBLOG | +| COM-C002 | OPEN确认 | 各文件OPEN正常 | JOBLOG | +| COM-C003 | 输入件数 | READ件数 | JOBLOG/CSV | +| COM-C004 | 输出件数 | WRITE件数 | JOBLOG/CSV | +| COM-C005 | 正常结束 | RETURN-CODE=0 | JOBLOG | +| COM-C006 | 异常结束 | 错误码输出 | JOBLOG | +| COM-C007 | 处理时间 | 作业经过时间 | JOBLOG时刻 | +| COM-C008 | SYSOUT | 报表输出确认 | SYSOUT文件 | + +--- + +## 2.2 类型别测试基准 + +### 匹配基础测试（1:1 / 1:N / N:1） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| MT-N001 | 正常 | 1:1 主键完全匹配 | 双方各N件，全部匹配成功 | ◎ | +| MT-N002 | 正常 | 1:N 主1件从N件 | 主件1件对应从件N件 | ◎ | +| MT-N003 | 正常 | N:1 从1件主N件 | 从件1件对应主件N件 | ◎ | +| MT-N004 | 正常 | 主件有剩余键 | 从件读完，主件剩余→WRITE W03 | ◎ | +| MT-N005 | 正常 | 从件有剩余键 | 主件读完，从件剩余→WRITE W02 | ◎ | +| MT-N006 | 异常 | 主键值重复 | 主件内同键出现2次 | ◎ | +| MT-N007 | 异常 | 键值未排序 | 升序前提被违反→误匹配 | ◎ | +| MT-R001 | 确认 | 匹配件数合计 | 正常/剩余件数之和与输入一致 | ◎ | + +### 匹配系不平衡测试 + +| 编号 | 项目 | 内容 | 优先级 | +|------|------|------|--------| +| MT-N009 | R01=1条 R02=N条 | 1:N 极端不平衡 | ◎ | +| MT-N010 | R01=N条 R02=1条 | N:1 极端不平衡 | ◎ | +| MT-N011 | R01=100万条 R02=0条 | 极大量仅存测试 | ○ | +| MT-N012 | R01全部匹配 R02全部匹配 | 完美匹配（实务中很少见） | ○ | + +### 条件分支系测试（IF / EVALUATE） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| B-N001 | 正常 | IF 2路分支（ELSE） | IF条件成立/不成立各处理 | ◎ | +| B-N002 | 正常 | IF 3路分支（ELSE IF） | ELSE IF 链式分支 | ◎ | +| B-N003 | 正常 | IF 复合条件 AND/OR | 多个条件组合 | ◎ | +| B-N004 | 正常 | IF 88-level 条件名 | 88条件直接判断 | ◎ | +| B-N005 | 正常 | IF 嵌套3层 | 内部IF引用外部IF变量 | ◎ | +| B-N006 | 正常 | EVALUATE WHEN 多值 | 多个WHEN分支 | ◎ | +| B-N007 | 正常 | EVALUATE ALSO | 多条件组合判断 | ◎ | +| B-N008 | 正常 | EVALUATE TRUE/FALSE | 条件表达式判定 | ◎ | +| B-N009 | 正常 | EVALUATE WHEN OTHER | 默认分支覆盖 | ◎ | +| B-N010 | 正常 | CONTINUE / NEXT SENTENCE | 空分支处理 | ○ | +| B-A001 | 异常 | IF 未闭合（缺少END-IF） | 编译错误，非运行时测试（属代码审查范畴） | ◎ | +| B-A002 | 异常 | EVALUATE 无WHEN OTHER | 全不匹配→无操作 | ○ | +| B-R001 | 确认 | COBOL 85 条件表达式 | 关系运算符全部覆盖 | ◎ | + +### 内部表检索测试（SEARCH / SEARCH ALL） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| T-N001 | 正常 | SEARCH ALL 等值查找（找到） | KEY等于目标存在 | ◎ | +| T-N002 | 正常 | SEARCH ALL 等值查找（未找到） | KEY等于目标不存在 | ◎ | +| T-N003 | 正常 | SEARCH ALL 多键查找 | 主键+副键组合 | ◎ | +| T-N004 | 正常 | SEARCH 顺序查找 | KEY条件不唯一用SEARCH | ○ | +| T-N005 | 正常 | OCCURS 1件表 | 表只有1条时检索 | ◎ | +| T-N006 | 正常 | OCCURS DEPENDING ON | 可变长表边界检索 | ◎ | +| T-N007 | 正常 | INDEXED BY 索引操作 | SET/SEARCH ALL 使用 INDEX | ◎ | +| T-A001 | 异常 | SEARCH ALL 未排序表 | 二进制查找未排序→误命中 | ◎ | +| T-A002 | 异常 | INDEX 越界 | OCCURS范围外访问 | ◎ | +| T-A003 | 异常 | OCCURS DEPENDING ON = 0 | 空表检索 | ◎ | +| T-R001 | 确认 | SEARCH ALL 后INDEX位置 | 找到后INDEX指向正确位置 | ◎ | + +### 子程序调用测试（CALL / LINKAGE） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| C-N001 | 正常 | CALL 字面量名 | CALL 'SUBPGM' USING ... | ◎ | +| C-N002 | 正常 | CALL USING 参数传递 | CALL侧+LINKAGE侧参数对应 | ◎ | +| C-N003 | 正常 | CALL 变量名（动态CALL） | CALL WS-PGM-NAME USING ... | ◎ | +| C-N004 | 正常 | CALL + RETURN-CODE | RETURN-CODE设置和检查 | ◎ | +| C-N005 | 正常 | CALL + EXIT PROGRAM | 子程序正常返回 | ◎ | +| C-N006 | 正常 | CALL + GOBACK | GOBACK返回（含RETURN-CODE） | ◎ | +| C-N007 | 正常 | IS INITIAL 指定程序 | 每次CALL时WS初始化确认 | ◎ | +| C-N008 | 正常 | 非IS INITIAL 程序 | CALL跨调用WS值保持 | ◎ | +| C-N009 | 正常 | CALL 多层嵌套（A→B→C） | 3层CALL传递参数 | ○ | +| C-A001 | 异常 | CALL 不存在的程序 | 未加载→ABEND | ◎ | +| C-A002 | 异常 | CALL USING 参数长度不匹配 | CALL侧与LINKAGE侧长度不同 | ◎ | +| C-A003 | 异常 | CALL CANCEL 后再CALL | CANCEL→INITIAL状态 | ◎ | +| C-A004 | 异常 | CALL 递归调用自身 | 需RECURSIVE编译选项（实务罕见），无RECURSIVE→ABEND | ○ | +| C-R001 | 确认 | CALL 前STOP RUN | CALL前正常结束 | ◎ | +| C-R002 | 确认 | CALL 后RETURN-CODE检查 | 子程序的返回码正确传递 | ◎ | + +### SYSIN读取测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| SY-N001 | 正常 | SYSIN正常参数读取 | 标准参数卡片→正确解析 | ◎ | +| SY-N002 | 正常 | SYSIN多卡连续读取 | 多张参数卡片全部正确读取 | ◎ | +| SY-N003 | 正常 | SYSIN结束处理 | SYSIN读到文件尾后正常继续 | ◎ | +| SY-A001 | 异常 | SYSIN参数格式错误 | 非法参数→错误处理/ABEND | ◎ | +| SY-A002 | 异常 | SYSIN空（0件） | 无参数卡片→默认值处理 | ◎ | +| SY-A003 | 异常 | SYSIN文件不存在 | OPEN STATUS 35 | ◎ | +| SY-R001 | 确认 | 参数解析结果 | 确认解析后的参数值与预期一致 | ◎ | + +### 分割系测试（50分割 / 25分割 / 100分割） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| S-N001 | 正常 | 50分割（正好50件） | 1件ずつ50ファイル出力 | ◎ | +| S-N002 | 正常 | 50分割（51件→余1件） | 余数文件处理 | ◎ | +| S-N003 | 正常 | 50分割（49件→1件不足） | 最终文件不满 | ◎ | +| S-N004 | 正常 | 25分割（25件→正好） | 整数倍 | ◎ | +| S-N005 | 正常 | 100分割（100件→正好） | 整数倍 | ◎ | +| S-N006 | 正常 | 分割数=1（50分割1件） | 1件入力→1ファイルのみ出力 | ◎ | +| S-N007 | 正常 | 分割数>记录数（50分割3件） | 出力ファイル仅少数 | ○ | +| S-A001 | 异常 | 分割文件OPEN失败 | 途中文件OPEN STATUS 35 | ◎ | +| S-A002 | 异常 | 分割文件磁盘满 | 途中文件WRITE STATUS 34 | ○ | +| S-R001 | 确认 | 分割文件命名规则 | 规则通りのファイル名确认 | ◎ | +| S-R002 | 确认 | 各文件件数合计=入力件数 | 总件数一致确认 | ◎ | + +### key切测试（汇总 / 聚合 / 非汇总） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| KB-N001 | 正常 | 汇总型（ADD累加） | 同键多件→金额合计正确 | ◎ | +| KB-N002 | 正常 | 聚合型（件数/最大值等） | 同键多件→件数/最大/最小正确 | ◎ | +| KB-N003 | 正常 | 非汇总型（键变化做标记） | 键切换时仅变化检测，无累加 | ◎ | +| KB-N004 | 正常 | 单键组（全部同键） | 全体1个键值→1次中断 | ◎ | +| KB-N005 | 正常 | 多键组（N个不同键） | 键值变化N-1次→N组输出 | ◎ | +| KB-N006 | 正常 | 单条记录单键组 | 1件1组→自身就是汇总值 | ◎ | +| KB-A001 | 异常 | 前键值字段未初始化 | WS-PREV-KEY初始空格→首次误中断 | ◎ | +| KB-A002 | 异常 | 累加器溢出 | 金额超PIC定义→SIZE ERROR | ○ | +| KB-R001 | 确认 | 各组小计=合计 | 各组累加值之和与全局合计一致 | ◎ | + +### SORT 类型测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| SR-N001 | 正常 | SORT USING/GIVING（升序） | 简单升序排序 | ◎ | +| SR-N002 | 正常 | SORT DESCENDING | 降序 | ◎ | +| SR-N003 | 正常 | 多键SORT | 第1键+第2键 | ◎ | +| SR-N004 | 正常 | 重复键顺序维持 | 稳定排序确认 | ◎ | +| SR-N005 | 正常 | 0条SORT | 空文件 | ◎ | +| SR-N006 | 正常 | 1条SORT | 1件 | ○ | +| SR-N007 | 正常 | INPUT PROCEDURE | 排序前筛选 | ◎ | +| SR-N008 | 正常 | OUTPUT PROCEDURE | 排序后汇总 | ◎ | +| SR-N009 | 正常 | INPUT PROCEDURE（编辑） | 排序前字段编辑 | ○ | +| SR-N010 | 正常 | OUTPUT PROCEDURE（报表） | 排序后报表 | ○ | +| SR-A001 | 异常 | SORT区不足 | 超大量 → RC=20 | ○ | +| SR-A002 | 异常 | INPUT内未RELEASE | 数据丢失 | ◎ | +| SR-A003 | 异常 | OUTPUT内未RETURN | 死循环 | ○ | +| SR-R001 | 确认 | RC=0 | 正常结束 | ◎ | +| SR-R002 | 确认 | RC=16 | SORT语法错误 | ○ | +| SR-R003 | 确认 | RC=20 | 工作区不足 | ○ | + +### MERGE 类型测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| MR-N001 | 正常 | 2文件MERGE | 两个已排序文件合并 | ◎ | +| MR-N002 | 正常 | 3文件MERGE | 三个 | ○ | +| MR-N003 | 正常 | 重复键MERGE | 同键顺序 | ◎ | +| MR-A001 | 异常 | 输入未排序文件 | 未排序→误合并 | ◎ | + +### 校验测试（含重复 / 不含重复 / 半角） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| VF-N001 | 正常 | 字段校验通过 | 输入值在允许范围内→正常输出 | ◎ | +| VF-N002 | 正常 | 字段校验拒绝 | 输入值异常→错误输出文件 | ◎ | +| VF-N003 | 正常 | 重复检测（正常） | 首次出现该键→通过 | ◎ | +| VF-N004 | 正常 | 重复检测（重复） | 同一键第二次出现→错误输出 | ◎ | +| VF-N005 | 正常 | 半角长度20桁 | 半角20桁以内→通过 | ◎ | +| VF-N006 | 正常 | 半角长度4桁 | 半角4桁以内→通过 | ◎ | +| VF-A001 | 异常 | 半角超长（21桁） | 半角21桁→截断/错误 | ◎ | +| VF-A002 | 异常 | 全角混入 | 半角字段全角文字进入PIC X(半角)域 | ◎ | +| VF-R001 | 确认 | 错误件数计数 | 正常件+错误件=输入件数 | ◎ | + +### 编辑输出测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| ED-N001 | 正常 | WRITE AFTER ADVANCING | 改页/改行的编辑输出 | ◎ | +| ED-N002 | 正常 | 编辑字段（PIC Z,9,*） | ゼロサプレス/編集文字 | ◎ | +| ED-N003 | 正常 | HEADING/FOOTING输出 | 报表头尾正确 | ◎ | +| ED-N004 | 正常 | 明细行连续输出 | N条明细行正确排序 | ◎ | +| ED-N005 | 正常 | 改页（AFTER PAGE） | 改页时HEADING重复 | ◎ | +| ED-A001 | 异常 | 编辑字段长度不足 | 数值超PIC编辑域→*溢出 | ◎ | +| ED-A002 | 异常 | 改页中改行 | AFTER PAGE + AFTER n 组合 | ○ | +| ED-R001 | 确认 | 输出行数确认 | HEADING+明细+FOOTING合计 | ◎ | + +### CSV→FB转换测试（无换行 / 有换行） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| CF-N001 | 正常 | 无换行（STRING合并） | 複数項目を1レコードに連結 | ◎ | +| CF-N002 | 正常 | 有换行（改行展开） | 1行入力→複数行出力（改行位置） | ◎ | +| CF-N003 | 正常 | 項目内カンマ引用符付き | カンマ区切り | ◎ | +| CF-N004 | 正常 | 引用符付き文字列 | "..."内のカンマ/改行を保持 | ◎ | +| CF-N005 | 正常 | 空項目連続カンマ→空文字列処理 | ○ | +| CF-N006 | 正常 | 全項目最大長 | 各項目がPIC定義ギリギリ | ◎ | +| CF-A001 | 异常 | 改行位置がRECORD長超過 | 改行展開後1行が定義長超え | ◎ | +| CF-A002 | 异常 | 引用符未閉じ | 閉じ"がない→残り全部1項目 | ◎ | + +### ASCII→EBCDIC编码转换测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| AE-N001 | 正常 | ASCII→EBCDIC 全文字 | 印字可能文字全种正确转换 | ◎ | +| AE-N002 | 正常 | EBCDIC→ASCII 全文字 | 逆方向一致确认 | ◎ | +| AE-N003 | 正常 | 制御文字保持 | 改行/タブ等制御文字保持 | ◎ | +| AE-A001 | 异常 | 変換表にない文字 | 未定義文字→替代文字/エラー | ◎ | +| AE-A002 | 异常 | 往復一致性（ラウンドトリップ） | ASCII→EBCDIC→ASCII 一致 | ◎ | +| AE-A003 | 异常 | 全角/半角混在の変換 | 全角文字がPIC X領域で化ける | ◎ | +| AE-R001 | 确认 | 変換後レコード長 | 変換前後でレコード長一致 | ◎ | + +### online/CICS测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| OL-N001 | 正常 | DFHCOMMAREA受信 | CALL側渡したデータを正しく受信 | ◎ | +| OL-N002 | 正常 | MAP入出力 | MAPの送受信（SEND/RECEIVE MAP） | ◎ | +| OL-N003 | 正常 | 画面入力→DB検索 | 画面入力値をキーにDB検索→結果表示 | ◎ | +| OL-N004 | 正常 | 複数画面遷移 | 画面A→B→Cのデータ引継ぎ | ◎ | +| OL-A001 | 异常 | DFHCOMMAREA長不一致 | CALL側と受信側の長さが異なる | ◎ | +| OL-A002 | 异常 | トランザクションABEND | 異常発生時のROLLBACK確認 | ◎ | +| OL-A003 | 异常 | MAP未定義項目参照 | MAPにない項目へのアクセス | ○ | +| OL-R001 | 确认 | 応答時間 | オンライン処理の応答時間測定 | ◎ | + +### DB操作/检索/SELECT条件测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| DB-N001 | 正常 | SELECT 1件 | WHERE条件で1件取得 | ◎ | +| DB-N002 | 正常 | SELECT 複数件 | 条件に合う全件FETCH | ◎ | +| DB-N003 | 正常 | INSERT（1件追加） | 新規レコードINSERT→SELECT確認 | ◎ | +| DB-N004 | 正常 | UPDATE（更新） | 条件に合うレコード更新 | ◎ | +| DB-N005 | 正常 | DELETE（削除） | 条件に合うレコード削除 | ◎ | +| DB-N006 | 正常 | SELECT 0件 | 条件に合うレコードなし | ◎ | +| DB-A001 | 异常 | キー重複INSERT | 一意キー違反→SQLCODEエラー | ◎ | +| DB-A002 | 异常 | 存在しないテーブル | SELECT FROM 存在しない表 | ◎ | +| DB-A003 | 异常 | NULL値処理 | NULL項目のMOVE/FETCH | ◎ | +| DB-R001 | 确认 | SQLCODE確認 | 各SQL実行後のSQLCODE確認 | ◎ | + +### 高级匹配测试（二级 / M:N组合 / 混合） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| AM-N001 | 正常 | 二级1:1→1:1 | 第一段匹配后→中间ファイル→第二段匹配 | ◎ | +| AM-N002 | 正常 | 二级N:1→N:1 | 两段均为N:1匹配 | ◎ | +| AM-N003 | 正常 | M:N→M条（主件对应） | 组合匹配输出M件 | ◎ | +| AM-N004 | 正常 | M:N→N条（从件对应） | 组合匹配输出N件 | ◎ | +| AM-N005 | 正常 | M:N→M×N条（笛卡尔积） | 组合匹配输出全组合 | ◎ | +| AM-N006 | 正常 | 1:N+同key切（混合） | 匹配分支内有同键值key切 | ◎ | +| AM-N007 | 正常 | 1:N+异key切（混合） | 匹配分支内有异键值key切 | ◎ | +| AM-N008 | 正常 | 二级M:N→M:N | 第一段M:N匹配→中间文件→第二段M:N匹配 | ◎ | +| AM-A001 | 异常 | 中间文件OPEN失败 | 第二段匹配时中间文件STATUS 35 | ◎ | +| AM-A002 | 异常 | 二级匹配键不一致 | 第一段与第二段的键字段不同 | ◎ | +| AM-R001 | 确认 | 各段匹配件数 | 第一段/第二段各自输出件数确认 | ◎ | + +### 文件编成测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| FO-N001 | 正常 | SEQUENTIAL順次読書 | 先頭→最終まで全件正常READ | ◎ | +| FO-N002 | 正常 | INDEXED（KSDS）キー指定READ | 主キーで特定レコードREAD | ◎ | +| FO-N003 | 正常 | KSDS START命令 | STARTでキー位置指定→READ | ◎ | +| FO-N004 | 正常 | RELATIVE（RRDS）RRN指定 | RELATIVE KEYで番号指定READ | ◎ | +| FO-N005 | 正常 | LINE SEQUENTIAL読書 | 改行区切りテキストファイルREAD | ◎ | +| FO-A001 | 异常 | VSAM OPEN STATUS 95 | ファイル状態不一致 | ◎ | +| FO-A002 | 异常 | KSDSキー重複WRITE | 既存キーでWRITE→STATUS 22 | ◎ | +| FO-A003 | 异常 | RRDS範囲外 | RRN定義済みRRN範囲外アクセス | ◎ | +| FO-A004 | 异常 | ファイル編成不一致OPEN | 順次プログラムでVSAMをOPEN | ◎ | +| FO-R001 | 确认 | FILE STATUS確認 | 各I/O後のSTATUS値確認 | ◎ | + +--- + +## 2.3 横跨功能测试基准 + +### 2.3.1 可变长入出力 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| VL-N001 | 正常 | RECORD IS VARYING（可变长记录） | 定义可变长记录，正常读写 | ◎ | +| VL-N002 | 正常 | OCCURS DEPENDING ON（可变长表） | ODO表正常读写，DEPENDING值变化 | ◎ | +| VL-N003 | 正常 | LINE SEQUENTIAL 文件读写 | 行可変长文件（LF结尾）一行ずつREAD | ◎ | +| VL-N004 | 正常 | 固定长→可变长转换 | 固定长记录WRITE到可变长文件 | ◎ | +| VL-N005 | 正常 | 可变长→固定长转换 | 可变长记录READ到固定长记录域 | ◎ | +| VL-N006 | 正常 | RECORD VARYING FROM 1 TO 99 | 最小~最大件数之间的任意长度 | ◎ | +| VL-A001 | 异常 | ODO最大值超限 | OCCURS DEPENDING ON超定义值 | ◎ | +| VL-A002 | 异常 | 可变长记录截断 | WRITE时记录长度超文件定义 | ◎ | +| VL-A003 | 异常 | LINE SEQUENTIAL 改行缺失 | 文件末尾无LF | ○ | +| VL-A004 | 异常 | 可变长文件STATUS 47 | 记录长度与文件定义不一致 | ◎ | +| VL-R001 | 确认 | RECORD LENGTH 确认 | WRITE后文件LRECL与定义一致 | ◎ | +| VL-R002 | 确认 | ODO表件数确认 | DEPENDING ON值与实际件数一致 | ◎ | + +### 2.3.2 循环处理 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| LP-N001 | 正常 | PERFORM VARYING（计数循环） | VARYING I FROM 1 BY 1 UNTIL I > N | ◎ | +| LP-N002 | 正常 | PERFORM UNTIL（条件循环） | 条件达到后退出 | ◎ | +| LP-N003 | 正常 | PERFORM TIMES（固定次数） | N回执行 | ◎ | +| LP-N004 | 正常 | PERFORM THRU（段落跨入） | THRU指定多个段落 | ○ | +| LP-N005 | 正常 | 内联PERFORM（END-PERFORM） | COBOL85内联循环 | ◎ | +| LP-N006 | 正常 | 嵌套PERFORM（3层） | 内层PERFORM完整执行后外层继续 | ◎ | +| LP-N007 | 正常 | EXIT PERFORM / EXIT PERFORM CYCLE | 中途退出/跳过本次循环 | ◎ | +| LP-A001 | 异常 | PERFORM VARYING 0回 | 初始值已超终值→0回执行 | ◎ | +| LP-A002 | 异常 | 无限循环（条件永不满足） | UNTIL条件永不成立→超时 | ○ | +| LP-A003 | 异常 | PERFORM嵌套越界 | 内层PERFORM THRU跨入外层段落 | ◎ | +| LP-A004 | 异常 | EXIT SECTION/GOBACK误用 | 循环内意外退出程序 | ◎ | +| LP-R001 | 确认 | 循环回数确认 | 实际执行回数与期望一致 | ◎ | + +### 2.3.3 数值精度 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| NP-N001 | 正常 | COMP-3小数位对齐 | PIC S9(7)V99与S9(9)V9的ADD对齐 | ◎ | +| NP-N002 | 正常 | ROUNDED选项 | 计算结果四舍五入到指定小数位 | ◎ | +| NP-N003 | 正常 | ON SIZE ERROR | 结果超过PIC定义域时触发 | ◎ | +| NP-N004 | 正常 | 除算余数（REMAINDER） | DIVIDE...REMAINDER | ◎ | +| NP-N005 | 正常 | COMP（二进制）符号处理 | S9(4) COMP的符号位正确 | ◎ | +| NP-N006 | 正常 | COMPUTE中间精度 | 中间结果精度确保最终结果正确 | ◎ | +| NP-N007 | 正常 | 符号付/符号なし混算 | S9(5)与9(5)的ADD/SUBTRACT | ○ | +| NP-A001 | 异常 | 超过PIC定义域（无SIZE ERROR） | 高位截断→数据错误 | ◎ | +| NP-A002 | 异常 | COMP-3符号误判 | 符号ニブル('C'/'D')不一致 | ◎ | +| NP-A003 | 异常 | 除算0除 | DIVIDE BY ZERO→ABEND | ◎ | +| NP-A004 | 异常 | COMP赋值溢出 | 超范围的数值MOVE到COMP字段 | ◎ | +| NP-R001 | 确认 | 演算结果精度一致 | 同一演算反复执行→结果一致 | ◎ | +| NP-R002 | 确认 | 小数点位置一致 | 编辑字段（PIC Z,9等）十进制位正确 | ◎ | + +### 2.3.4 日文文字处理 + +#### 2.3.4.1 PIC N 全角字段 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| J-N001 | 正常 | PIC N全角转记 | 全角英数/汉字正确存储 | ◎ | +| J-N002 | 正常 | PIC N比较（等值） | 同全角字符串→EQUAL | ◎ | +| J-N003 | 正常 | PIC N比较（异值） | 异→NOT EQUAL | ◎ | +| J-N004 | 正常 | PIC N→PIC X转记 | 全角→半角域（防乱码） | ◎ | +| J-N005 | 正常 | PIC N DISPLAY-1 | I/O确认 | ○ | + +#### 2.3.4.2 半角假名 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| J-K001 | 正常 | 半角假名转记 | ｱｲｳｴｵ正确转记 | ◎ | +| J-K002 | 正常 | 半角假名比较 | ｱｲｳｴｵ比较 | ○ | +| J-K003 | 正常 | 半角假名排序 | 排序顺序确认 | ◎ | +| J-K004 | 异常 | 全角/半角混用 | 混用数据处理 | ◎ | +| J-K005 | 异常 | 半角假名排序顺序差异 | EBCDIC顺序 vs SJIS顺序 vs 五十音顺序 | ◎ | + +#### 2.3.4.3 外字（厂商别） + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| J-G001 | 正常 | JEF外字（日立） | JEF外字领域读写 | ◎ | +| J-G002 | 正常 | KEIS外字（富士通） | KEIS外字领域 | ◎ | +| J-G003 | 正常 | IBM外字 | IBM扩展文字 | ◎ | +| J-G004 | 异常 | 外字转换（SJIS→EBCDIC） | 厂商间外字差异 | ◎ | +| J-G005 | 异常 | 未定义外字 | 未定义→替代文字 | ○ | +| J-G006 | 异常 | 中文汉字与日文外字冲突 | 中日混在环境 | ○ | + +#### 2.3.4.4 Shift-JIS 5C/7C + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| J-D001 | 正常 | 第2字节5C | 「ソ」「噂」「能」 | ◎ | +| J-D002 | 正常 | 第2字节7C | 「本」「問」 | ◎ | +| J-D003 | 正常 | 5C/7C字符串长度 | 字节长度≠字符数 | ◎ | +| J-D004 | 异常 | 5C/7C误转换 | 误转成\或\| | ◎ | + +#### 2.3.4.5 编码转换 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| J-X001 | 正常 | EBCDIC→SJIS转换 | 全字符正确 | ◎ | +| J-X002 | 正常 | SJIS→UTF-8转换 | UTF8转换 | ◎ | +| J-X003 | 正常 | 3段转换一致性 | 往返对比 | ○ | +| J-X004 | 异常 | 不可转换字符 | 替代字符/错误 | ◎ | +| J-X005 | 异常 | 全角半角转换精度 | 全角数字→半角数字等业务数据 | ◎ | +| J-X006 | 正常 | CODEPAGE指定转换（IBM-930→SJIS） | CODEPAGE经由的文字转换 | ◎ | +| J-X007 | 异常 | CODEPAGE未定义文字 | 转换表中不存在的文字→替代文字 | ◎ | +| J-X008 | 异常 | ASCII→EBCDIC映射误差 | UNISYS等ASCII系主机 | ○ | + +#### 2.3.4.6 全角空格/编辑 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| J-S001 | 正常 | 全角空格TRIM | TRIM对全角空格 | ◎ | +| J-S002 | 正常 | 全角空格INSPECT | INSPECT计数 | ○ | +| J-S003 | 异常 | 含全角空格比较 | "ABC" vs "A BC" | ○ | + +### 2.3.5 日期处理 + +#### 2.3.5.1 西历日期 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| D-N001 | 正常 | 通常日期（YYYYMMDD） | 正常日期处理 | ◎ | +| D-N002 | 正常 | 闰年判定 | 2000/2004/2100年 | ◎ | +| D-N003 | 正常 | 月末日 | 1月31日/2月28日/2月29日 | ◎ | +| D-N004 | 正常 | 日期计算（±日） | FUNCTION INTEGER-OF-DATE | ◎ | +| D-N005 | 正常 | 日期比较 | 日期前后比较 | ○ | +| D-A001 | 异常 | 日期逻辑异常 | 2月30日/4月31日 | ◎ | +| D-A002 | 异常 | 西历/和历混在 | YYYYMMDD与RYYMMDD混用 | ◎ | +| D-A003 | 异常 | 2桁年（YYMMDD） | 2000年区分问题（YYMMDD不能区分2000/1900） | ◎ | +| D-A004 | 异常 | 闰年边界 | 2000/02/28→29→03/01 | ◎ | + +#### 2.3.5.2 和历（元号）处理 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| D-W001 | 正常 | 令和→西历 | R010501 = 2019/05/01 | ◎ | +| D-W002 | 正常 | 平成→西历 | H010108 = 1989/01/08 | ◎ | +| D-W003 | 正常 | 昭和→西历 | S611231 = 1986/12/31 | ◎ | +| D-W004 | 正常 | 大正→西历 | T011231 = 1912/12/31 | ○ | +| D-W005 | 正常 | 明治→西历 | M450129 = 1912/01/29 | ○ | +| D-W006 | 正常 | 元号边界（令和初日） | 平成年末日→令和初日 2019/04/30→05/01 | ◎ | +| D-W007 | 正常 | 元号边界（平成年初日） | 昭和的末日→平成年初日 1989/01/07→01/08 | ◎ | +| D-W008 | 异常 | 不存在的和历日期 | R元年度（R元年）扱い | ○ | + +#### 2.3.5.3 日期格式转换 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| D-F001 | 正常 | YYYYMMDD→YYMMDD | 4桁→2桁 | ◎ | +| D-F002 | 正常 | YYYYMMDD→和历 | 西历→RYYMMDD | ◎ | +| D-F003 | 正常 | 和历→西历 | RYYMMDD→YYYYMMDD | ◎ | +| D-F004 | 异常 | 日期编辑文字 | 元号混じりの編集出力 | ○ | + +### 2.3.6 RERUN / RESTART 测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| RR-N001 | 正常 | 同一数据再执行 | 幂等性确认（不重复更新） | ◎ | +| RR-A001 | 异常 | 输出文件未删除 | 再执行STATUS 95 | ◎ | +| RR-A002 | 异常 | 中间ABEND→RESTART | 中间状态重新开始 | ◎ | +| RR-A003 | 异常 | ABEND时输出文件状态 | 中途废弃/部分输出 | ◎ | + +### 2.3.7 排他/竞争测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| EX-N001 | 正常 | 同时READ | 多个JOB同时READ（DISP=SHR），正常读取，不报STATUS 47 | ◎ | +| EX-A001 | 异常 | 同时WRITE冲突 | STATUS 48 | ◎ | +| EX-A002 | 异常 | DISP=SHR违反 | STATUS 95 | ◎ | +| EX-A003 | 异常 | OPEN中他JOB DELETE | STATUS 95/97 | ○ | + +### 2.3.8 性能/容量测试 + +| 编号 | 区分 | 项目 | 内容 | 优先级 | +|------|------|------|------|--------| +| PV-N001 | 正常 | 10万件处理 | 批量处理性能 | ○ | +| PV-N002 | 正常 | SORT 100万件 | SORT RC确认 | ○ | +| PV-N003 | 正常 | VSAM大量READ | CI/CA分割性能 | ○ | +| PV-A001 | 异常 | SORT领域不足 | RC=20 | ○ | + +--- + +## 2.4 测试用例详细清单（部分代表性用例） + +### SORT 用例 + +| 编号 | 目标类型 | 测试名 | 输入 | 期望结果 | +|------|---------|-------|------|---------| +| TC-N035 | SORT | SORT USING/GIVING | 10件升序 | 升序排序确认 | +| TC-N036 | SORT | SORT INPUT PROCEDURE | 10件→筛选5件 | 筛选后仅5件排序 | +| TC-N037 | SORT | SORT OUTPUT PROCEDURE | 10件→汇总 | 汇总值正确 | +| TC-A041 | SORT | SORT区不足 | 100万件 | RC=20 | +| TC-A042 | SORT | INPUT未RELEASE | 数据不RELEASE | 数据丢失 | + +### MERGE 用例 + +| 编号 | 目标类型 | 测试名 | 输入 | 期望结果 | +|------|---------|-------|------|---------| +| TC-N044 | MERGE | MERGE 2文件合并 | 2个排序后文件 | 正确合并输出 | +| TC-N045 | MERGE | MERGE 重复键 | 同键2件来自不同文件 | 同键顺序保持 | +| TC-A048 | MERGE | 输入未排序 | MERGE未排序文件 | 误合并结果 | + +### 分支/内部表/CALL/分割 用例 + +| 编号 | 目标类型 | 测试名 | 输入 | 期望结果 | +|------|---------|-------|------|---------| +| TC-N046 | IF分支 | IF 2路分支 | IF条件成立/不成立 | 各自处理正确 | +| TC-N047 | IF分支 | IF 88-level条件名 | 88条件直接判断 | 正确分支 | +| TC-N048 | EVALUATE | EVALUATE多值 | 多个WHEN覆盖 | 正确分支 | +| TC-N049 | EVALUATE | EVALUATE WHEN OTHER | 未匹配→OTHER | 默认处理 | +| TC-N050 | 内部表 | SEARCH ALL等值查找（找到） | KEY等于目标存在 | 找到→INDEX定位 | +| TC-N051 | 内部表 | SEARCH ALL等值查找（未找到） | KEY等于目标不存在 | 未找到→INDEX超限 | +| TC-N052 | CALL | CALL USING参数传递 | CALL 'SUBPGM' USING A B | 参数正确传递 | +| TC-N053 | CALL | IS INITIAL指定 | CALL后WS值 | 每次初始状态 | +| TC-N054 | 分割 | 50分割（正好50件） | 50件输入 | 各1文件1件 | +| TC-A049 | IF分支 | IF未闭合 | 缺少END-IF | 语法错误编译错误 | +| TC-A050 | 内部表 | INDEX越界 | OCCURS范围外访问 | ABEND | +| TC-A051 | CALL | CALL不存在程序 | CALL 'NOPGM' | ABEND | +| TC-A052 | 编码转换 | CODEPAGE未定义文字 | 转换表中不存在的文字 | 替代文字输出 | + +### 日期处理 用例 + +| 编号 | 目标类型 | 测试名 | 输入 | 期望结果 | +|------|---------|-------|------|---------| +| TC-N038 | 日期 | 闰年判定 | 2000/02/29 | 正常处理 | +| TC-N039 | 日期 | 非闰年判定 | 2100/02/29 | 错误 | +| TC-N040 | 日期 | 和历转换（令和初日） | 2019/05/01 → R010501 | 正确转换 | +| TC-N041 | 日期 | 和历转换（平成年末日） | 2019/04/30 → H310430 | 正确转换 | +| TC-A043 | 日期 | 不存在的日期 | 2月30日 | 错误 | +| TC-A044 | 日期 | 日期逻辑异常 | 4月31日 | 错误 | + +### SYSIN/高级匹配 用例 + +| 编号 | 目标类型 | 测试名 | 输入 | 期望结果 | +|------|---------|-------|------|---------| +| TC-N055 | SYSIN读取 | SYSIN正常参数读取 | 标准参数卡5张 | 全部正确解析 | +| TC-N056 | 二级M:N→M:N | 二级M:N匹配 | M:N第一段→中间文件→M:N第二段 | 正确匹配 | +| TC-A053 | SYSIN读取 | SYSIN参数格式错误 | 非法参数 | 格式错误处理 | + +### 不平衡/排他/RERUN 用例 + +| 编号 | 目标类型 | 测试名 | 输入 | 期望结果 | +|------|---------|-------|------|---------| +| TC-N042 | 匹配 | 1:N不平衡（1 vs 100万） | R01=1 R02=100万 | 正常处理 | +| TC-N043 | 匹配 | N:1不平衡（100万 vs 1） | R01=100万 R02=1 | 正常处理 | +| TC-A045 | 排他 | 同时WRITE | 2JOB同时WRITE同文件 | STATUS 48 | +| TC-A046 | 排他 | 再执行（文件未删除） | 同一文件再WRITE | STATUS 95 | +| TC-A047 | RESTART | 中途ABEND→RESTART | ABEND→再执行 | 正常RESTART | diff --git a/品質管理/程序分类说明.md b/品質管理/程序分类说明.md new file mode 100644 index 0000000..55fc7de --- /dev/null +++ b/品質管理/程序分类说明.md @@ -0,0 +1,90 @@ +# 程序分类说明 + +> 出典: 程序分类及测试基准.pdf (第1部：HINA 分类与识别方法) + +## 凡例（記号意味） + +| 記号 | 意味 | +|------|------| +| ◎ | 必須テスト | +| ○ | 推奨テスト | +| △ | 条件付き | +| — | 該当せず | + +## 1.1 HINA 类型一览（基准33类型） + +| No. | 名称（日） | 名称（中） | 分類 | +|-----|-----------|-----------|------| +| 01 | マッチング（1：1） | 1:1匹配 | 匹配 | +| 02 | マッチング（1：N） | 1:N匹配 | 匹配 | +| 03 | マッチング（N：1） | N:1匹配 | 匹配 | +| 04 | レイアウト編集のみ（GETPUT） | 编辑输出 | 编辑 | +| 05 | 振り分け（IF文） | IF分支 | 分支 | +| 06 | 振り分け（EVALUATE文） | EVALUATE分支 | 分支 | +| 07 | キーブレイク（集計） | key切汇总 | key切 | +| 08 | キーブレイク（集約） | key切聚合 | key切 | +| 09 | DB更新 | 数据库更新 | 数据库 | +| 10 | ５０分割 | 50分割 | 分割 | +| 11 | ２５分割 | 25分割 | 分割 | +| 12 | １００分割 | 100分割 | 分割 | +| 13 | 項目チェック（重複含まず） | 字段校验（不含重复） | 校验 | +| 14 | オンラインＰＧＭ | online程序 | online | +| 15 | ＣＳＶ→ＦＢ変換（改行なし） | CSV→FB（无换行） | 文件转换 | +| 16 | ２段階マッチング（1：1⇒1：1） | 二级1:1→1:1 | 匹配 | +| 17 | ２段階マッチング（N：1⇒N：1） | 二级N:1→N:1 | 匹配 | +| 18 | マッチングM：N⇒出力M件 | 组合M:N→M条 | 匹配 | +| 19 | マッチングM：N⇒出力N件 | 组合M:N→N条 | 匹配 | +| 20 | マッチングM：N⇒出力M×N件 | 组合M:N→M×N条 | 匹配 | +| 21 | ＣＳＶ→ＦＢ変換（改行あり） | CSV→FB（有换行） | 文件转换 | +| 22 | ２段階マッチング（M：N⇒M：N） | 二级M:N→M:N | 匹配 | +| 23 | ＳＥＬＥＣＴ条件 | SELECT条件 | 数据库 | +| 24 | 内部テーブル検索 | 内部表检索 | 内部处理 | +| 25 | サブプログラム使用 | 子程序调用 | 内部处理 | +| 26 | ＤＢ検索 | 数据库检索 | 数据库 | +| 27 | 項目チェック（半角20桁/4桁） | 半角校验 | 校验 | +| 28 | ＳＹＳＩＮ読込 | SYSIN读取 | 内部处理 | +| 29 | ＡＳＣＩＩ→ＥＢＣＤＩＣ変換 | ASCII→EBCDIC转换 | 文件转换 | +| 30 | キーブレイク（集計集約以外） | key切非汇总 | key切 | +| 31 | 項目チェック（重複含む） | 字段校验（含重复） | 校验 | +| 32 | 1:N＋キーブレイク（同キー） | 1:N+同key切 | 混合 | +| 33 | 1:N＋キーブレイク（異キー） | 1:N+异key切 | 混合 | + +## 追加类型（HINA 未覆盖但实务必须） + +| No. | 名称（日） | 名称（中） | 分類 | 追加理由 | +|-----|-----------|-----------|------|---------| +| 34 | SORT（INPUT/OUTPUT PROCEDURE） | 排序处理 | 排序 | 批处理70%使用，独立程序类型 | +| 35 | MERGE（複数ファイル結合） | 合并处理 | 排序 | 多文件合并，SORT不同 | + +## 1.2 关键字可识别的类型（无需结构解析） + +| 类型 | 确认方法 | 准确度 | 注意 | +|------|---------|--------|------| +| DB操作 | grep EXEC SQL | 95% | SQL嵌入程序，关键字独占 | +| 子程序调用 | grep CALL + grep LINKAGE SECTION | 90% | CALLER/CALLEE是同一类型的两个角色 | +| IS INITIAL | grep IS INITIAL | 99% | PROGRAM-ID行直接判定 | +| SYSIN | grep SYSIN | 90% | 需确认SELECT或ASSIGN | +| 编码转换 | grep ALPHABETIC/ASCII/EBCDIC | 85% | 需确认有转换表定义 | +| online | grep DFHCOMMAREA/MAP | 95% | CICS程序特征 | +| SORT | grep SORT ON KEY | 95% | SORT语句独占 | +| MERGE | grep MERGE ON KEY | 95% | MERGE语句独占 | +| 编辑输出 | grep WRITE AFTER ADVANCING | 80% | 其他类型也可能有WRITE | +| 文件编成 | grep ORGANIZATION | 99% | 直接判定VSAM/相对/顺序 | +| 替代索引 | grep ALTERNATE RECORD KEY | 99% | KSDS替代索引 | + +## 分類一覧 + +| 分類 | 含まれるタイプ | +|------|---------------| +| 匹配 | 01,02,03,16,17,18,19,20,22 | +| 编辑 | 04 | +| 分支 | 05,06 | +| key切 | 07,08,30 | +| 数据库 | 09,23,26 | +| 分割 | 10,11,12 | +| 校验 | 13,27,31 | +| online | 14 | +| 文件转换 | 15,21,29 | +| 内部处理 | 24,25,28 | +| 混合 | 32,33 | +| 排序 | 34,35 | diff --git a/基本設計書/01_勤怠休暇管理システム_設計書（サブシステムA）.md b/基本設計書/01_勤怠休暇管理システム_設計書（サブシステムA）.md index 4b144bb..88a454f 100644 --- a/基本設計書/01_勤怠休暇管理システム_設計書（サブシステムA）.md +++ b/基本設計書/01_勤怠休暇管理システム_設計書（サブシステムA）.md @@ -543,28 +543,75 @@ SUBTRACT LUNCH-MINUTES FROM WRK-MINUTES ← SUBTRACT |------|------| | **PGMパターン** | DB更新 + **SYSIN読込(P28)** | | **JCL前処理** | なし | -| **入力** | DAILY-RECORD（200B）、**SYSIN（集計対象社員指定）** | +| **入力** | DAILY-RECORD（200B）、**SYSIN（制御カード）** | | **出力** | DAILY_RECORDS / MONTHLY_ABSENCE（DB2）、ABSENCE_SUMMARY（80B）| +**SYSIN制御カード（3種）：** + +``` +* コメント行（先頭*） +T 社員番号,社員番号,... ← TARGET: 集計対象社員指定（省略時=全社員） +P YEARMONTH=YYYYMM ← PERIOD: 処理対象年月（必須） +M MODE=RESET|NORMAL ← MODE: RESET=再実行（既存削除後に再INSERT）, NORMAL=通常（UPSERT） +``` + +カード種別（'T','P','M'）を第1桁で識別。**GO TO DEPENDING ON** で処理分岐する。 + **機能：** -1. **SYSIN読込（パターン28）**：集計対象の社員番号一覧をSYSINから読み込む（省略時は全社員が対象）。 +1. **SYSIN読込（パターン28）**：制御カードをSYSINから順次読み込み、カード種別で**GO TO DEPENDING ON**分岐 + - `T`カード → 対象社員一覧をWORKING-STORAGEの内部テーブルに保持 + - `P`カード → YEARMONTHを解析（`UNSTRING` + `INSPECT TALLYING`でカンマ区切り数検証） + - `M`カード → MODEを判定。未指定ならNORMAL + - `*`カード → コメント行としてスキップ（`CONTINUE`） + - 不明カード → `DISPLAY`で警告表示 2. DAILY-RECORDを1レコードずつ読込み、DAILY_RECORDSに**EXEC SQL INSERT** + - 各INSERT前に`INSPECT TALLYING`で社員番号の有効性チェック → 空または無効値は`DISPLAY`で警告表示 3. 社員別・月別の集計値を**PERFORM VARYING**で積算（全社員ループ） -4. 全件処理後、MONTHLY_ABSENCEを**EXEC SQL UPDATE / INSERT**（UPSERT） -5. **INSPECT TALLYING**で社員番号の有効性チェック → 空または無効値は**DISPLAY**で警告表示 + - **COMPUTE ROUNDED ON SIZE ERROR** で時間計算（桁あふれ時に警告表示） +4. MODE=RESETの場合：**EXEC SQL DELETE**で該当月の既存レコードを削除 +5. MONTHLY_ABSENCEに対して**EXEC SQL SELECT COUNT(*) → IF >0 → UPDATE ELSE INSERT**（UPSERT） 6. 病欠時間はSICK_LEAVE_RATEテーブルを参照し、控除前時間として保持 7. 集計後データをABSENCE_SUMMARYファイルに出力 +**GO TO DEPENDING ON ロジック：** + +```cobol + READ SYSINFILE INTO WS-SYSIN-REC + AT END SET SYSIN-EOF TO TRUE + END-READ. + IF NOT SYSIN-EOF + MOVE WS-SYSIN-REC(1:1) TO WS-CARD-TYPE + IF WS-CARD-TYPE = 'T' OR 'P' OR 'M' + IF WS-CARD-TYPE = 'T' MOVE 1 TO WS-DISP-IDX + IF WS-CARD-TYPE = 'P' MOVE 2 TO WS-DISP-IDX + IF WS-CARD-TYPE = 'M' MOVE 3 TO WS-DISP-IDX + GO TO DEPENDING ON WS-DISP-IDX + 2100-TARGETSOR 2200-PERIODSOR 2300-MODESOR + . + ELSE + IF WS-CARD-TYPE = '*' + DISPLAY 'COMMENT: ' WS-SYSIN-REC + ELSE + DISPLAY 'WARNING: Unknown SYSIN card type [' + WS-CARD-TYPE ']' + END-IF + END-IF + END-IF. +``` + **新規カバレッジ構文：** | 構文 | 用途 | |------|------| -| **READ SYSIN**（パターン28） | 対象社員一覧の読込 ← 新規パターン | +| **READ SYSIN（パターン28）** | 制御カード読込 ← 新規パターン | +| **GO TO DEPENDING ON** | カード種別による3分岐 ← 新規 | | DISPLAY | 警告メッセージ表示 ← 新規 | -| INSPECT TALLYING | 社員番号の空チェック ← 新規 | +| INSPECT TALLYING | 社員番号の空チェック、カンマ区切り数検証 | +| **COMPUTE ON SIZE ERROR** | 時間計算の桁あふれ処理 ← 新規 | +| **EXEC SQL DELETE** | RESETモード時既存レコード削除 ← 新規(メインPGM) | | PERFORM VARYING | 社員別月次集計ループ | -| EXEC SQL INSERT / UPDATE | DB更新（INSERT+UPDATEでUPSERT） | +| EXEC SQL SELECT / INSERT / UPDATE | DB操作（UPSERTパターン） | --- @@ -572,24 +619,27 @@ SUBTRACT LUNCH-MINUTES FROM WRK-MINUTES ← SUBTRACT | 項目 | 内容 | |------|------| -| **PGMパターン** | GETPUT | +| **PGMパターン** | GETPUT（編集出力） | | **JCL前処理** | なし | | **入力** | DAILY_RECORDS / MONTHLY_ABSENCE（DB2）、**COMMAND-LINE PARM** | | **出力** | CSVファイル（社員確認用）| **PARM解析：** - `YEARMONTH=202605` — 必須。対象年月。 -- `MODE=FULL` — オプション。`FULL`=全項目出力, `SUMMARY`=集計のみ。 +- `MODE=FULL` — オプション。`FULL`=全項目出力（日別＋月次）, `SHORT`=月次集計のみ。 **機能：** -1. **ACCEPT FROM COMMAND-LINE** でPARM解析（対象年月・出力モード） -2. DAILY_RECORDSから当月の全レコードをCURSOR SELECT -3. **STRING** でCSV行を編集（DELIMITED BY SIZE） -4. **WRITE AFTER ADVANCING PAGE** でページヘッダー制御 ← **新カバレッジ** - - 100行ごとにヘッダー行を出力 - - WRITE header-record AFTER ADVANCING PAGE -5. CSVフォーマット： +1. **ACCEPT FROM COMMAND-LINE** でPARM解析（`INSPECT TALLYING`でカンマ区切り数チェック） +2. DAILY_RECORDSから当月の全レコードをCURSOR SELECT（ORDER BY EMP_ID, TARGET_DATE） +3. **INSPECT REPLACING** でCSV危険文字をサニタイズ（カンマ→セミコロン、改行→スペース） +4. **STRING WITH POINTER** でCSV行を位置指定編集 ← **新カバレッジ** +5. **WRITE AFTER ADVANCING 3種** でページ制御 ← **新カバレッジ** + - 先頭ページ：`WRITE header-rec AFTER ADVANCING PAGE` + - セクション区切り：`WRITE section-rec AFTER ADVANCING 2 LINES` + - データ行：`WRITE data-rec AFTER ADVANCING 1 LINE` +6. MODE=FULL時：100行ごとにヘッダー行を再出力 +7. CSVフォーマット： ``` 社員番号,日付,出勤時刻,退勤時刻,休暇種別,年休時間,事假時間,因公特批假時間,病欠時間,未申請欠勤時間 @@ -599,14 +649,54 @@ SUBTRACT LUNCH-MINUTES FROM WRK-MINUTES ← SUBTRACT 00000101,20260504,0000,0000,99,0.0,0.0,0.0,0.0,8.0 ``` -6. 休暇種別は該当日に休暇がある場合は最初に該当した休暇種別コード、ない場合は'99' +8. 休暇種別は該当日に休暇がある場合は最初に該当した休暇種別コード、ない場合は'99' + +**INSPECT REPLACING によるCSVサニタイズ：** + +```cobol +MOVE WS-FIELD TO WS-SAFE-FIELD. +INSPECT WS-SAFE-FIELD REPLACING ALL ',' BY ';' + ALL X"0D" BY SPACE + ALL X"0A" BY SPACE. +``` + +**STRING WITH POINTER によるCSV行編集：** + +```cobol +MOVE 1 TO WS-PTR. +STRING WS-EMP-ID DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-DATE DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-TIME-IN DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-TIME-OUT DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-LEAVE-TYPE DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-ANNUAL-H DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-PERSONAL-H DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-OFFICIAL-H DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-SICK-H DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-ABSENT-H DELIMITED BY SIZE + INTO WS-CSV-LINE WITH POINTER WS-PTR +END-STRING. +``` **新規カバレッジ構文：** | 構文 | 用途 | |------|------| -| **ACCEPT FROM COMMAND-LINE** | PARM解析（対象年月・出力モード）← 新規 | -| **WRITE AFTER ADVANCING PAGE** | ページ制御出力 ← 新規 | +| **ACCEPT FROM COMMAND-LINE** | PARM解析（対象年月・出力モード）| +| **INSPECT REPLACING** | CSV危険文字置換 ← 新規 | +| **STRING WITH POINTER** | 位置指定CSV行編集 ← 新規 | +| **WRITE AFTER ADVANCING PAGE** | ページヘッダー制御 ← 新規 | +| **WRITE AFTER ADVANCING 2 LINES** | セクション区切り ← 新規 | +| **WRITE AFTER ADVANCING 1 LINE** | データ行出力 ← 新規 | | STRING | CSV行編集（DELIMITED BY SIZE） | | EXEC SQL SELECT(CURSOR) | DB読込 | @@ -677,15 +767,26 @@ SUBTRACT LUNCH-MINUTES FROM WRK-MINUTES ← SUBTRACT |---------------|:----:|----------------| | SEARCH(非ALL) | × | KIN01INP | | DELETE FROM(DB2) | × | KIN02UPD | -| GO TO DEPENDING ON | × | — (KIN07DAIはフォールスルー問題のためEVALUATE+PERFORMに変更) | +| **GO TO DEPENDING ON** | **×** | **KIN08DBU（← 新規）** | | PERFORM THRU | × | KIN03EXP | | WRITE FROM | × | KIN04CHK, KIN06CLD | -| WRITE AFTER ADVANCING PAGE | × | KIN09CSV | -| **MULTIPLY** | **○(ZAN06UPDのみ)** | **KIN07DAI** | -| **SUBTRACT** | **○(ZAN06UPDのみ)** | **KIN07DAI** | -| **ACCEPT FROM COMMAND-LINE** | **◎(ZAN05CAL,KIN06CLD)** | **KIN09CSV** | -| **DISPLAY** | **△(SUB02MSG,SUB03ENDのみ)** | **KIN08DBU** | -| **INSPECT** | **◎** | **KIN08DBU** | +| **WRITE AFTER ADVANCING（PAGE/1/2）** | **×** | **KIN09CSV（← 新規）** | +| **INSPECT REPLACING** | **×** | **KIN09CSV（← 新規）** | +| **STRING WITH POINTER** | **×** | **KIN09CSV（← 新規）** | +| **COMPUTE ON SIZE ERROR** | **○(ZAN系のみ)** | **KIN08DBU（← 新規）** | +| MULTIPLY | ○(ZAN06UPDのみ) | KIN07DAI | +| SUBTRACT | ○(ZAN06UPDのみ) | KIN07DAI | +| ACCEPT FROM COMMAND-LINE | ◎(ZAN05CAL,KIN06CLD) | KIN09CSV | +| DISPLAY | △(SUB02MSG,SUB03ENDのみ) | KIN08DBU | +| INSPECT TALLYING | ◎ | KIN08DBU | + +### 全体カバレッジ目標 + +| カテゴリ | 現状 | 追加後（目標） | +|---------|:---:|:-------------:| +| プログラムタイプ（35種） | 14使用（40.0%） | 15使用（42.9%） | +| ステートメント（45ユニーク） | 33使用（73.3%） | 36使用（80.0%） | +| カテゴリ（9種） | 8/9カバー（88.9%） | 9/9カバー（100%） | --- diff --git a/詳細設計書/詳細設計書_KIN08DBU.md b/詳細設計書/詳細設計書_KIN08DBU.md new file mode 100644 index 0000000..28cf6df --- /dev/null +++ b/詳細設計書/詳細設計書_KIN08DBU.md @@ -0,0 +1,211 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 勤怠休暇管理システム | +| 2 | プログラムID | KIN08DBU | +| 3 | プログラム名 | 勤怠DB更新処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | DB更新 + SYSIN読込(P28) | +| 6 | 機能概要 | DAILY-RECORDを読込み、DAILY_RECORDSにINSERT。社員別月次集計後、MONTHLY_ABSENCEにUPSERT。集計結果をABSENCE_SUMMARYファイルに出力する。SYSIN制御カード（T/P/Mの3種）をGO TO DEPENDING ONで分岐処理する。 | + +### 前提条件 + +| NO | 対象ファイル/DB | 条件 | +|----|----------------|------| +| 1 | DAILY-RECORD | KIN07DAIが出力した日別勤怠計算結果が存在すること | +| 2 | DAILY_RECORDS | 同一日付のレコードが既に存在してもMODE=NORMALではUPSERT動作 | +| 3 | MONTHLY_ABSENCE | 集計対象月の統計レコードが未作成でもINSERTできること | +| 4 | SYSIN | 省略時は全社員対象、NORMALモードで動作 | + +### SYSIN制御カード仕様 + +| カード種別 | 第1桁 | フォーマット | 説明 | +|-----------|:-----:|-------------|------| +| TARGET | T | `T 社員番号,社員番号,...` | 集計対象社員指定。省略時=全社員 | +| PERIOD | P | `P YEARMONTH=YYYYMM` | 処理対象年月。必須 | +| MODE | M | `M MODE=RESET\|NORMAL` | RESET=既存削除後再INSERT、NORMAL=UPSERT | +| コメント | * | `* 任意コメント` | 読み飛ばし | +| 不明 | 他 | — | DISPLAYで警告表示 | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------| +| 1 | DAILY-RECORD | INREC | KIN08R01 | I | KIN07REC | FB | | 200 | PS | +| 2 | ABSENCE-SUMMARY | OUTREC | KIN08W01 | O | KIN08REC | FB | | 80 | PS | +| 3 | SYSIN | SYSIN | KIN08S01 | I | — | FB | | 80 | PS | + +### 使用DBテーブル + +| NO | テーブル名 | 処理内容 | +|----|-----------|---------| +| 1 | DAILY_RECORDS | INSERT（MODE=NORMAL時） / DELETE+INSERT（MODE=RESET時） | +| 2 | MONTHLY_ABSENCE | SELECT COUNT(*) → IF >0 UPDATE ELSE INSERT（UPSERT） | +| 3 | SICK_LEAVE_RATE | SELECT DEDUCTION_RATE WHERE LEAVE_TYPE='04' | + +### 使用モジュール一覧 + +| NO | 機能 | プログラムID | 使用COPY名 | +|----|------|-------------|-----------| +| 1 | メッセージ編集出力SUB | SUB02MSG | ZANMSGAC | +| 2 | ABEND処理SUB | SUB03END | ZANENDAC | +| 3 | 運用日付取得SUB | SUB01DAT | ZANDATAC | + +--- + +## 処理詳細 + +``` +1.初期処理（1000ITTSOR） + 1-1.開始メッセージ出力 + 【メッセージ編集】 + メッセージ番号：1(開始メッセージ) + 1-2.コンパイル日時出力 + 【メッセージ編集】 + メッセージ番号：33(コンパイル日時) + PARM1：コンパイル日時 + PARM2：'COMPILED' + 1-3.ワークエリア初期化 + 1-4.DB接続（EXEC SQL CONNECT TO 'data/kin.db'） + 1-5.SYSINファイルOPEN + 1-6.SYSIN読込ループ（EOFまで） + READ SYSINFILE INTO WS-SYSIN-REC + AT END SET SYSIN-EOF TO TRUE + END-READ. + カード種別判定（WS-SYSIN-REC(1:1)）： + 'T' → MOVE 1 TO WS-DISP-IDX → GO TO DEPENDING ON WS-DISP-IDX + 2100-TARGETSOR 2200-PERIODSOR 2300-MODESOR + 'P' → MOVE 2 TO WS-DISP-IDX → GO TO DEPENDING ON WS-DISP-IDX + 2100-TARGETSOR 2200-PERIODSOR 2300-MODESOR + 'M' → MOVE 3 TO WS-DISP-IDX → GO TO DEPENDING ON WS-DISP-IDX + 2100-TARGETSOR 2200-PERIODSOR 2300-MODESOR + '*' → コメント行としてDISPLAY表示後スキップ（CONTINUE） + 他 → DISPLAY 'WARNING: Unknown card type [x]' + 1-7.必須パラメータ未設定チェック + Pカード未読込 → ABEND(CALL SUB03END) + 1-8.集計対象社員テーブル設定（Tカード省略時は全社員フラグON） + 1-9.入力ファイルOPEN（DAILY-RECORD） + 1-10.出力ファイルOPEN（ABSENCE-SUMMARY） + +2.主処理（2000MAJSOR）（R01 EOFまで下記を繰り返す） + 2-1.DAILY-RECORD読込（READ INTO） + 【ガード】社員番号の有効性チェック + INSPECT WS-EMP-ID TALLYING WS-ZERO-CNT FOR LEADING '0' + 空文字判定 → DISPLAY警告 + 2-2.DAILY_RECORDS INSERT + EXEC SQL INSERT INTO DAILY_RECORDS (...) VALUES (:WS-...) + IF SQLCODE NOT = 0 → DISPLAY警告 + 9100DBERRSOR + 2-3.社員別月次集計（PERFORM VARYING 内部テーブル） + 該当社員の集計行を線形探索 + 集計計算（COMPUTE ROUNDED ON SIZE ERROR） + COMPUTE WS-TOTAL-HOURS ROUNDED = + WS-ANNUAL-H + WS-PERSONAL-H + WS-OFFICIAL-H + + WS-SICK-H + WS-ABSENT-H + ON SIZE ERROR + DISPLAY 'WARNING: Total hours overflow ' + WS-EMP-ID ' date ' WS-DATE + MOVE ZERO TO WS-TOTAL-HOURS + END-COMPUTE + +3.終了処理（3000STPSOR） + 3-1.MODE判定 + MODE=RESETの場合： + EXEC SQL DELETE FROM MONTHLY_ABSENCE + WHERE YEAR_MONTH = :WS-YEAR-MONTH + 3-2.集計結果のMONTHLY_ABSENCE書出（PERFORM VARYING 集計テーブル） + 各社員・月ごとに： + EXEC SQL SELECT COUNT(*) INTO WS-CNT + FROM MONTHLY_ABSENCE + WHERE EMP_ID = :WS-EMP-ID + AND YEAR_MONTH = :WS-YEAR-MONTH + IF WS-CNT > 0 + EXEC SQL UPDATE MONTHLY_ABSENCE SET ... + ELSE + EXEC SQL INSERT INTO MONTHLY_ABSENCE (...) + END-IF + IF SQLCODE NOT = 0 → 9100DBERRSOR + 3-3.ABSENCE_SUMMARYファイル出力 + STRINGで編集後 WRITE + 3-4.EXEC SQL COMMIT + 3-5.全CURSOR/ファイルCLOSE + 3-6.出力件数メッセージ出力 + 【メッセージ編集】 + メッセージ番号：6(出力件数) + PARM1：'DAILY_RECORDS' + PARM2：CUN-DBXINS（INSERT件数） + 3-7.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +### SYSINカード処理詳細 + +``` +2100-TARGETSOR SECTION. + UNSTRING WS-SYSIN-REC(3:) DELIMITED BY ',' + INTO WS-TARGET-EMP(1) WS-TARGET-EMP(2) ... + TALLYING IN WS-EMP-COUNT + END-UNSTRING. + DISPLAY 'TARGET EMPLOYEES: ' WS-EMP-COUNT ' persons'. + EXIT. + GO TO 2000-EXIT. + +2200-PERIODSOR SECTION. + UNSTRING WS-SYSIN-REC(3:) DELIMITED BY '=' + INTO WS-PARM-NAME WS-PARM-VALUE + END-UNSTRING. + MOVE WS-PARM-VALUE TO WS-YEAR-MONTH. + DISPLAY 'PERIOD: ' WS-YEAR-MONTH. + EXIT. + GO TO 2000-EXIT. + +2300-MODESOR SECTION. + INSPECT WS-SYSIN-REC + REPLACING ALL 'MODE=' BY SPACES. + MOVE WS-SYSIN-REC(3:) TO WS-MODE-VALUE. + IF WS-MODE-VALUE = 'RESET' + SET RESET-MODE TO TRUE + ELSE + SET NORMAL-MODE TO TRUE + END-IF. + DISPLAY 'MODE: ' WS-MODE-VALUE. + EXIT. + GO TO 2000-EXIT. +``` + +--- + +## 出力レコード定義 + +### ABSENCE-SUMMARY（OUTREC/KIN08REC）80B FB + +| No | 項目名 | 設定元 | 属性 | 備考 | +|----|--------|--------|------|------| +| 1 | EMP-ID | MONTHLY_ABSENCE.EMP_ID | X(8) | 社員番号 | +| 2 | YEAR-MONTH | MONTHLY_ABSENCE.YEAR_MONTH | X(6) | YYYYMM | +| 3 | ANNUAL-LEAVE-H | 集計結果 | 9(4)V9(1) | 年休使用合計 | +| 4 | PERSONAL-LEAVE-H | 集計結果 | 9(4)V9(1) | 事假合計 | +| 5 | OFFICIAL-LEAVE-H | 集計結果 | 9(4)V9(1) | 因公特批假合計 | +| 6 | SICK-LEAVE-H | 集計結果 | 9(4)V9(1) | 病欠合計 | +| 7 | UNAPPROVED-ABSENT-H | 集計結果 | 9(4)V9(1) | 未申請欠勤合計 | +| 8 | FILLER | SPACE | X(24) | | + +--- + +## カバレッジ構文一覧 + +| 構文 | 用途 | +|------|------| +| READ SYSIN（パターン28） | 制御カード読込 ← 新規パターン | +| GO TO DEPENDING ON | カード種別による3分岐 ← 新規 | +| DISPLAY | 警告メッセージ表示 ← 新規 | +| INSPECT TALLYING | 社員番号空チェック、カンマ区切り数検証 | +| COMPUTE ROUNDED ON SIZE ERROR | 時間計算桁あふれ処理 ← 新規 | +| EXEC SQL DELETE | RESETモード既存削除 ← 新規 | +| EXEC SQL INSERT / UPDATE / SELECT | DB操作 | +| PERFORM VARYING | 社員別集計ループ | +| UNSTRING | SYSINカード値解析 | +| STRING | メッセージ編集 | diff --git a/詳細設計書/詳細設計書_KIN09CSV.md b/詳細設計書/詳細設計書_KIN09CSV.md new file mode 100644 index 0000000..046444c --- /dev/null +++ b/詳細設計書/詳細設計書_KIN09CSV.md @@ -0,0 +1,207 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 勤怠休暇管理システム | +| 2 | プログラムID | KIN09CSV | +| 3 | プログラム名 | 勤怠CSV出力処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | GETPUT（編集出力） | +| 6 | 機能概要 | DAILY_RECORDSをDBからSELECTし、STRING WITH POINTERでCSV行を編集、WRITE AFTER ADVANCING（PAGE/2 LINES/1 LINE）で出力する。INSPECT REPLACINGでCSV危険文字をサニタイズする。 | + +### 前提条件 + +| NO | 対象ファイル/DB | 条件 | +|----|----------------|------| +| 1 | DAILY_RECORDS | KIN08DBUにより当月勤怠データが登録済みであること | +| 2 | MONTHLY_ABSENCE | KIN08DBUにより当月集計が完了していること | +| 3 | PARM | YEARMONTH=YYYYMM は必須。省略時はABEND | + +### PARM引数 + +コマンドラインで以下の形式で指定。 + +``` +YEARMONTH=202605,MODE=FULL +``` + +| パラメータ | 必須 | デフォルト | 説明 | +|-----------|:---:|:--------:|------| +| YEARMONTH | ○ | — | 処理対象年月（YYYYMM形式） | +| MODE | ○ | FULL | FULL=日別＋月次全項目出力, SHORT=月次集計のみ | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------| +| 1 | CSV-OUTPUT | OUTREC | KIN09W01 | O | KIN09REC | FB | | 200 | PS | + +### 使用DBテーブル + +| NO | テーブル名 | 処理内容 | +|----|-----------|---------| +| 1 | DAILY_RECORDS | SELECT WHERE TARGET_DATE LIKE 'YYYYMM%' ORDER BY EMP_ID, TARGET_DATE | +| 2 | MONTHLY_ABSENCE | SELECT WHERE YEAR_MONTH = :WS-YEAR-MONTH ORDER BY EMP_ID | + +### 使用モジュール一覧 + +| NO | 機能 | プログラムID | 使用COPY名 | +|----|------|-------------|-----------| +| 1 | メッセージ編集出力SUB | SUB02MSG | ZANMSGAC | +| 2 | ABEND処理SUB | SUB03END | ZANENDAC | + +--- + +## 処理詳細 + +``` +1.初期処理（1000ITTSOR） + 1-1.開始メッセージ出力 + 【メッセージ編集】 + メッセージ番号：1(開始メッセージ) + 1-2.コンパイル日時出力 + 【メッセージ編集】 + メッセージ番号：33(コンパイル日時) + PARM1：コンパイル日時 + PARM2：'COMPILED' + 1-3.PARM解析（ACCEPT FROM COMMAND-LINE） + INSPECT WS-PARM TALLYING WS-COMMA-CNT FOR ALL ',' + IF WS-COMMA-CNT < 1 + DISPLAY 'WARNING: Missing MODE, using FULL' + END-IF + UNSTRING WS-PARM DELIMITED BY ',' + INTO WS-PARM1 WS-PARM2 + END-UNSTRING + UNSTRING WS-PARM1 DELIMITED BY '=' + INTO WS-KEY1 WS-VALUE1 + END-UNSTRING + UNSTRING WS-PARM2 DELIMITED BY '=' + INTO WS-KEY2 WS-VALUE2 + END-UNSTRING + YEARMONTH設定、MODE設定（FULL/SHORT判定） + 必須チェック：YEARMONTH未設定 → ABEND(CALL SUB03END) + 1-4.ワークエリア初期化 + 1-5.DB接続（EXEC SQL CONNECT TO 'data/kin.db'） + 1-6.出力ファイルOPEN（KIN09W01） + 1-7.ヘッダー行書出（WRITE AFTER ADVANCING PAGE） + 社員番号,日付,出勤時刻,退勤時刻,休暇種別, + 年休時間,事假時間,因公特批假時間,病欠時間,未申請欠勤時間 + +2.主処理（2000MAJSOR）（FETCH EOFまで下記を繰り返す） + 2-1.CURSOR FETCH（DAILY_RECORDS） + 2-2.CSV危険文字サニタイズ（INSPECT REPLACING） + MOVE 各項目を退避 → WS-SAFE-FIELD + INSPECT WS-SAFE-FIELD REPLACING ALL ',' BY ';' + ALL X"0D" BY SPACE + ALL X"0A" BY SPACE + 2-3.CSV行編集（STRING WITH POINTER） + MOVE 1 TO WS-PTR + STRING + WS-EMP-ID DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-DATE DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-TIME-IN DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-TIME-OUT DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-LEAVE-TYPE DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-ANNUAL-H DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-PERSONAL-H DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-OFFICIAL-H DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-SICK-H DELIMITED BY SIZE + ',' DELIMITED BY SIZE + WS-ABSENT-H DELIMITED BY SIZE + INTO WS-CSV-LINE WITH POINTER WS-PTR + END-STRING + 2-4.行数カウンタ加算 + 2-5.100行ごとにヘッダー再出力（WRITE AFTER ADVANCING 2 LINES + ヘッダー行） + 100件毎 → WRITE WS-SEC-REC AFTER ADVANCING 2 LINES + WRITE WS-HDR-REC AFTER ADVANCING 1 LINE + 2-6.データ行出力（WRITE AFTER ADVANCING 1 LINE） + WRITE WS-OUT-REC FROM WS-CSV-LINE AFTER ADVANCING 1 LINE + +3.MODE=SHORT時のみ追加処理（2500-SHORT-MODE） + 3-1.MONTHLY_ABSENCE CURSOR OPEN + 3-2.STRINGで集計行編集 + 3-3.セクション区切り出力 + WRITE WS-SEC-REC AFTER ADVANCING 2 LINES + 3-4.集計行出力 + WRITE WS-OUT-REC AFTER ADVANCING 1 LINE + +4.終了処理（3000STPSOR） + 4-1.CURSOR CLOSE + 4-2.DB切断 + 4-3.出力ファイルCLOSE + 4-4.出力件数メッセージ出力 + 【メッセージ編集】 + メッセージ番号：6(出力件数) + PARM1：'CSV-OUTPUT' + PARM2：CUN-W01OUT（出力行数） + 4-5.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +### WRITE AFTER ADVANCING 3種の使い分け + +| タイミング | 構文 | 説明 | +|-----------|------|------| +| ファイル先頭 | WRITE header-rec AFTER ADVANCING PAGE | 改ページ（最初のヘッダー） | +| 100行ごと | WRITE sep-rec AFTER ADVANCING 2 LINES | セクション区切り（空行2行） | +| 100行ごと | WRITE header-rec AFTER ADVANCING 1 LINE | 再ヘッダー出力 | +| データ行 | WRITE data-rec AFTER ADVANCING 1 LINE | 通常データ行 | + +--- + +## 出力レコード定義 + +### CSV-OUTPUT（OUTREC/KIN09REC）200B FB + +| No | 項目名 | 設定元 | 属性 | 備考 | +|----|--------|--------|------|------| +| 1 | CSV-LINE | STRING編集結果 | X(200) | CSV1行分の文字列データ | + +--- + +## CSVフォーマット + +ヘッダー行（WRITE AFTER ADVANCING PAGEで出力）: +``` +社員番号,日付,出勤時刻,退勤時刻,休暇種別,年休時間,事假時間,因公特批假時間,病欠時間,未申請欠勤時間 +``` + +データ行: +``` +00000101,20260501,0900,1800,99,0.0,0.0,0.0,0.0,0.0 +00000101,20260502,0900,1300,02,0.0,4.0,0.0,0.0,4.0 +``` + +MODE=SHORT時の集計行（WRITE AFTER ADVANCING 2 LINESで区切り）: +``` +社員番号,年月,年休計,事假計,因公特批假計,病欠計,未申請欠勤計 +00000101,202605,8.0,4.0,0.0,0.0,4.0 +``` + +--- + +## カバレッジ構文一覧 + +| 構文 | 用途 | +|------|------| +| ACCEPT FROM COMMAND-LINE | PARM解析 | +| INSPECT TALLYING | カンマ区切り数チェック | +| INSPECT REPLACING | CSV危険文字置換 ← 新規 | +| STRING WITH POINTER | 位置指定CSV行編集 ← 新規 | +| WRITE AFTER ADVANCING PAGE | ページヘッダー制御 ← 新規 | +| WRITE AFTER ADVANCING 2 LINES | セクション区切り ← 新規 | +| WRITE AFTER ADVANCING 1 LINE | データ行出力 ← 新規 | +| STRING | CSV行編集（DELIMITED BY SIZE） | +| EXEC SQL SELECT(CURSOR) | DB読込 | +| DISPLAY | 警告メッセージ表示 |