diff --git a/bin/KYU01CVT.exe b/bin/KYU01CVT.exe new file mode 100644 index 0000000..49da67c Binary files /dev/null and b/bin/KYU01CVT.exe differ diff --git a/bin/KYU02REG.exe b/bin/KYU02REG.exe new file mode 100644 index 0000000..e7f91c6 Binary files /dev/null and b/bin/KYU02REG.exe differ diff --git a/bin/KYU03AGG.exe b/bin/KYU03AGG.exe new file mode 100644 index 0000000..46d3b9e Binary files /dev/null and b/bin/KYU03AGG.exe differ diff --git a/bin/KYU04CAL.exe b/bin/KYU04CAL.exe new file mode 100644 index 0000000..0105d93 Binary files /dev/null and b/bin/KYU04CAL.exe differ diff --git a/bin/KYU05DED.exe b/bin/KYU05DED.exe new file mode 100644 index 0000000..83fff43 Binary files /dev/null and b/bin/KYU05DED.exe differ diff --git a/bin/KYU06UPD.exe b/bin/KYU06UPD.exe new file mode 100644 index 0000000..60fb3a7 Binary files /dev/null and b/bin/KYU06UPD.exe differ diff --git a/bin/KYU07DIV.exe b/bin/KYU07DIV.exe new file mode 100644 index 0000000..abbb3ce Binary files /dev/null and b/bin/KYU07DIV.exe differ diff --git a/bin/KYU08PRI.exe b/bin/KYU08PRI.exe new file mode 100644 index 0000000..b5f4256 Binary files /dev/null and b/bin/KYU08PRI.exe differ diff --git a/bin/KYU09MRG.exe b/bin/KYU09MRG.exe new file mode 100644 index 0000000..9dcdb35 Binary files /dev/null and b/bin/KYU09MRG.exe differ diff --git a/cpy/KYU99REC.cpy b/cpy/KYU99REC.cpy new file mode 100644 index 0000000..a79ead4 --- /dev/null +++ b/cpy/KYU99REC.cpy @@ -0,0 +1,4 @@ + * ERROR-LOG エラーログレコード VB 200B + * 全KYUプログラム共用 + 03 (A)ERR-CATEGORY PIC X(008). + 03 (A)ERR-DETAIL PIC X(192). diff --git a/ddl/schema_kyu.sql b/ddl/schema_kyu.sql new file mode 100644 index 0000000..25eb32e --- /dev/null +++ b/ddl/schema_kyu.sql @@ -0,0 +1,52 @@ +-- ============================================================ +-- SALARYDB 給与計算データベース 建表文 +-- 対象DB2 : LUW +-- 作成日 : 2026-07-01 +-- ============================================================ + +-- テーブル1: EMP-MASTER（社員マスタテーブル） +CREATE TABLE EMP-MASTER ( + EMP-ID CHAR(8) NOT NULL, + EMP-NAME VARCHAR(40) NOT NULL, + DEPT-CODE CHAR(2) NOT NULL, + REGION-CODE CHAR(2) NOT NULL, + CATEGORY-CODE CHAR(3) NOT NULL, + BASE-SALARY DECIMAL(9,0) NOT NULL, + HOURLY-RATE DECIMAL(7,0) NOT NULL, + DEPENDENT-COUNT SMALLINT NOT NULL, + STATUS CHAR(1) NOT NULL, + UPDATED-AT TIMESTAMP NOT NULL, + PRIMARY KEY (EMP-ID) +); + +-- テーブル2: TAX-TABLE（税率テーブル） +CREATE TABLE TAX-TABLE ( + TAX-FROM DECIMAL(9,0) NOT NULL, + TAX-TO DECIMAL(9,0) NOT NULL, + TAX-RATE DECIMAL(5,4) NOT NULL, + DEDUCTION DECIMAL(9,0) NOT NULL, + PRIMARY KEY (TAX-FROM, TAX-TO) +); + +-- テーブル3: INSURANCE-TABLE（社会保険料率テーブル） +CREATE TABLE INSURANCE-TABLE ( + INS-INCOME-FROM DECIMAL(9,0) NOT NULL, + INS-INCOME-TO DECIMAL(9,0) NOT NULL, + INS-HEALTH-RATE DECIMAL(7,6) NOT NULL, + INS-PENSION-RATE DECIMAL(7,6) NOT NULL, + UPDATED-AT TIMESTAMP NOT NULL, + PRIMARY KEY (INS-INCOME-FROM, INS-INCOME-TO) +); + +-- テーブル4: SALARY-RESULTS（給与計算結果テーブル） +CREATE TABLE SALARY-RESULTS ( + EMP-ID CHAR(8) NOT NULL, + YEAR-MONTH CHAR(6) NOT NULL, + GROSS-PAYMENT DECIMAL(9,0) NOT NULL, + INCOME-TAX DECIMAL(9,0) NOT NULL, + INSURANCE DECIMAL(9,0) NOT NULL, + RESIDENT-TAX DECIMAL(9,0) NOT NULL, + NET-PAYMENT DECIMAL(9,0) NOT NULL, + UPDATED-AT TIMESTAMP NOT NULL, + PRIMARY KEY (EMP-ID, YEAR-MONTH) +); diff --git a/src/KYU01CVT.cbl b/src/KYU01CVT.cbl new file mode 100644 index 0000000..f479ceb --- /dev/null +++ b/src/KYU01CVT.cbl @@ -0,0 +1,473 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU01CVT. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU01CVT * + * プログラム名 : 社員マスタCSV→FB変換処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : CSV形式の社員マスタを固定長80Bに変換する * + * 引用符内改行をINSPECT CONVERTINGで処理 * + * 項目チェックはSUB04CHKで実施 * + * プログラム分類: No.21 CSV→FB変換（改行あり） * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU01R01. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU01W01. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU01W02. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * R01: CSV入力（可変長） * + ***************************************************************** + FD R01INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 R01INNREC PIC X(500). + * + ***************************************************************** + * W01: EMP-RECORD出力（80B固定長） * + ***************************************************************** + FD W01OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 W01OUTREC. + COPY KYU01REC REPLACING ==(A)== BY ==W01==. + * + ***************************************************************** + * W02: ERROR-LOG出力（VB） * + ***************************************************************** + FD W02OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W02OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W02==. + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU01CVT'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + 03 CNS-FLD-COUNT PIC 9(002) VALUE 9. + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-R01INN PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W01OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W02OUT PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + *** CSVワーク + 03 WRK-CSV-LINE PIC X(500). + 03 WRK-CSV-ACCUM PIC X(500). + 03 WRK-ACCUM-LEN PIC 9(004). + *** 引用符状態フラグ + 03 WRK-IN-QUOTE PIC X(001). + 88 WRK-QUOTE-ACTIVE VALUE '1'. + 88 WRK-QUOTE-INACTIVE VALUE '0'. + 03 WRK-QUOTE-COUNT PIC 9(002). + *** CSV分解フィールド + 03 WRK-CSV-EMP-ID PIC X(008). + 03 WRK-CSV-EMP-NAME PIC X(040). + 03 WRK-CSV-DEPT-CODE PIC X(002). + 03 WRK-CSV-REGION-CODE PIC X(002). + 03 WRK-CSV-CATEGORY-CODE PIC X(003). + 03 WRK-CSV-BASE-SALARY PIC X(009). + 03 WRK-CSV-HOURLY-RATE PIC X(007). + 03 WRK-CSV-DEPENDENT-COUNT PIC X(002). + 03 WRK-CSV-STATUS PIC X(001). + *** UNSTRING集計 + 03 WRK-FIELD-COUNT PIC 9(002). + *** EOF + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + *** サブプログラム戻り値 + 03 WRK-SUB04-RC PIC 9(004). + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + *** メッセージ出力 + COPY ZANMSGAC. + *** ABEND処理 + COPY ZANENDAC. + *** 項目チェック + COPY ZANCHKAC. + * + PROCEDURE DIVISION. + ***************************************************************** + * DECLARATIVES * + ***************************************************************** + DECLARATIVES. + * + KYU01CVT-ERR SECTION. + USE AFTER ERROR PROCEDURE ON R01INNFIL. + KYU01CVT-ERR-PROC. + PERFORM 9999ABDSOR. + * + KYU01W01-ERR SECTION. + USE AFTER ERROR PROCEDURE ON W01OUTFIL. + KYU01W01-ERR-PROC. + PERFORM 9999ABDSOR. + * + KYU01W02-ERR SECTION. + USE AFTER ERROR PROCEDURE ON W02OUTFIL. + KYU01W02-ERR-PROC. + PERFORM 9999ABDSOR. + * + END DECLARATIVES. + * + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + * 処理概要 : メインコントロール処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + *** 初期処理 + PERFORM 1000ITTSOR. + * + *** 主処理 + PERFORM 2000MAJSOR + UNTIL WRK-EOF-Y. + * + *** 終了処理 + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + * 処理概要 : 開始メッセージ・OPEN・初回READ * + ***************************************************************** + 1000ITTSOR SECTION. + * + *** 開始メッセージ出力 + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + *** コンパイル日時出力 + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + *** ワーク初期化 + INITIALIZE WRKARA. + MOVE SPACE TO WRK-CSV-ACCUM. + MOVE ZERO TO WRK-ACCUM-LEN. + * + *** 入出力ファイルOPEN + OPEN INPUT R01INNFIL. + OPEN OUTPUT W01OUTFIL + W02OUTFIL. + * + *** 初回READ + PERFORM 1100R01INNSOR. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.1) * + * サブモジュール名: R01読込処理 * + * 処理概要 : CSV行読込 * + ***************************************************************** + 1100R01INNSOR SECTION. + * + READ R01INNFIL + AT END + SET WRK-EOF-Y TO TRUE + NOT AT END + ADD 1 TO CUN-R01INN + MOVE R01INNREC TO WRK-CSV-LINE + END-READ. + * + 1100R01INNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: 主処理 * + * 処理概要 : CSVライン解析・変換・出力 * + ***************************************************************** + 2000MAJSOR SECTION. + * + *** コメント行はスキップ + IF WRK-CSV-LINE(1:1) = '#' + PERFORM 1100R01INNSOR + EXIT SECTION + END-IF. + * + *** 引用符状態チェック（奇数個の"で状態反転） + MOVE ZERO TO WRK-QUOTE-COUNT. + INSPECT WRK-CSV-LINE + TALLYING WRK-QUOTE-COUNT FOR ALL '"' + * + IF WRK-QUOTE-ACTIVE + IF FUNCTION MOD(WRK-QUOTE-COUNT 2) = 1 + *** 引用符内終了 + MOVE '0' TO WRK-IN-QUOTE + END-IF + *** 蓄積 + STRING WRK-CSV-ACCUM(1:WRK-ACCUM-LEN) + WRK-CSV-LINE + DELIMITED BY SIZE + INTO WRK-CSV-ACCUM + WITH POINTER WRK-ACCUM-LEN + END-STRING + PERFORM 1100R01INNSOR + EXIT SECTION + END-IF. + * + IF FUNCTION MOD(WRK-QUOTE-COUNT 2) = 1 + *** 引用符内開始 + MOVE '1' TO WRK-IN-QUOTE + MOVE SPACE TO WRK-CSV-ACCUM + MOVE 1 TO WRK-ACCUM-LEN + STRING WRK-CSV-LINE + DELIMITED BY SIZE + INTO WRK-CSV-ACCUM + WITH POINTER WRK-ACCUM-LEN + END-STRING + PERFORM 1100R01INNSOR + EXIT SECTION + END-IF. + * + *** 通常行（引用符なし）→ 直接CSV-LINEを使用 + MOVE WRK-CSV-LINE TO WRK-CSV-ACCUM. + * + *** 引用符内改行をスペース変換 + INSPECT WRK-CSV-ACCUM + CONVERTING X"0D" TO X"20" + INSPECT WRK-CSV-ACCUM + CONVERTING X"0A" TO X"20" + * + *** CSV分解 + PERFORM 2100CSVUNSOR. + * + *** 項目数チェック + IF WRK-FIELD-COUNT NOT = CNS-FLD-COUNT + PERFORM 2200ERROUTSOR + PERFORM 1100R01INNSOR + EXIT SECTION + END-IF. + * + *** 社員番号空チェック + INSPECT WRK-CSV-EMP-ID + TALLYING WRK-FIELD-COUNT FOR LEADING SPACES + IF WRK-FIELD-COUNT = 8 + MOVE 'EMP- ' TO W02ERR-CATEGORY + MOVE CUN-R01INN TO WRK-FIELD-COUNT + STRING 'EMPTY EMP-ID AT LINE ' + WRK-FIELD-COUNT + DELIMITED BY SIZE + INTO W02ERR-DETAIL + END-STRING + WRITE W02OUTREC + ADD 1 TO CUN-W02OUT + PERFORM 1100R01INNSOR + EXIT SECTION + END-IF. + * + *** SUB04CHK: EMP-ID数値チェック + MOVE 'EMPID' TO C01CHKTYP. + MOVE WRK-CSV-EMP-ID TO C01CHKDAT. + CALL 'SUB04CHK' USING C01CHKPAR. + MOVE C01CHKRRC TO WRK-SUB04-RC. + IF WRK-SUB04-RC NOT = 0 + PERFORM 2200ERROUTSOR + PERFORM 1100R01INNSOR + EXIT SECTION + END-IF. + * + *** SUB04CHK: HOURLY-RATE数値チェック + MOVE 'NUM ' TO C01CHKTYP. + MOVE WRK-CSV-HOURLY-RATE TO C01CHKDAT. + CALL 'SUB04CHK' USING C01CHKPAR. + MOVE C01CHKRRC TO WRK-SUB04-RC. + IF WRK-SUB04-RC NOT = 0 + PERFORM 2200ERROUTSOR + PERFORM 1100R01INNSOR + EXIT SECTION + END-IF. + * + *** EMP-NAME英字チェック + IF WRK-CSV-EMP-NAME NOT ALPHABETIC + CONTINUE + END-IF. + * + *** W01OUTREC編集 + MOVE WRK-CSV-EMP-ID TO W01EMP-ID. + MOVE WRK-CSV-EMP-NAME TO W01EMP-NAME. + MOVE WRK-CSV-DEPT-CODE TO W01DEPT-CODE. + MOVE WRK-CSV-REGION-CODE TO W01REGION-CODE. + MOVE WRK-CSV-CATEGORY-CODE TO W01CATEGORY-CODE. + MOVE WRK-CSV-BASE-SALARY TO W01BASE-SALARY. + MOVE WRK-CSV-HOURLY-RATE TO W01HOURLY-RATE. + MOVE WRK-CSV-DEPENDENT-COUNT TO W01DEPENDENT-COUNT. + MOVE WRK-CSV-STATUS TO W01STATUS. + * + *** WRITE EMP-RECORD + WRITE W01OUTREC. + ADD 1 TO CUN-W01OUT. + * + *** 次行READ + PERFORM 1100R01INNSOR. + * + 2000MAJSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.1) * + * サブモジュール名: CSV分解処理 * + * 処理概要 : UNSTRINGでCSVをフィールド分解 * + ***************************************************************** + 2100CSVUNSOR SECTION. + * + INITIALIZE WRK-CSV-EMP-ID + WRK-CSV-EMP-NAME + WRK-CSV-DEPT-CODE + WRK-CSV-REGION-CODE + WRK-CSV-CATEGORY-CODE + WRK-CSV-BASE-SALARY + WRK-CSV-HOURLY-RATE + WRK-CSV-DEPENDENT-COUNT + WRK-CSV-STATUS. + * + UNSTRING WRK-CSV-ACCUM + DELIMITED BY ',' + INTO WRK-CSV-EMP-ID + WRK-CSV-EMP-NAME + WRK-CSV-DEPT-CODE + WRK-CSV-REGION-CODE + WRK-CSV-CATEGORY-CODE + WRK-CSV-BASE-SALARY + WRK-CSV-HOURLY-RATE + WRK-CSV-DEPENDENT-COUNT + WRK-CSV-STATUS + TALLYING IN WRK-FIELD-COUNT + END-UNSTRING. + * + 2100CSVUNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.2) * + * サブモジュール名: エラー出力処理 * + * 処理概要 : ERROR-LOG書出し * + ***************************************************************** + 2200ERROUTSOR SECTION. + * + MOVE 'CSV-ERR' TO W02ERR-CATEGORY. + MOVE WRK-CSV-ACCUM(1:80) TO W02ERR-DETAIL. + WRITE W02OUTREC. + ADD 1 TO CUN-W02OUT. + * + 2200ERROUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + * 処理概要 : CLOSE・件数出力・終了MSG * + ***************************************************************** + 3000STPSOR SECTION. + * + *** CLOSE + CLOSE R01INNFIL + W01OUTFIL + W02OUTFIL. + * + *** 入力件数出力 + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'KYU01R01' TO M00UMKDATS22-01. + MOVE CUN-R01INN TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + *** 出力件数（W01） + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU01W01' TO M00UMKDATS22-01. + MOVE CUN-W01OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + *** 出力件数（W02） + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU01W02' TO M00UMKDATS22-01. + MOVE CUN-W02OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + *** 終了メッセージ + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + * 処理概要 : SUB02MSG呼出 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + * 処理概要 : SUB03END呼出 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/src/KYU02REG.cbl b/src/KYU02REG.cbl new file mode 100644 index 0000000..15fd9da --- /dev/null +++ b/src/KYU02REG.cbl @@ -0,0 +1,319 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU02REG. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU02REG * + * プログラム名 : 社員マスタDB2登録処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : EMP-RECORDをDB2 EMP-MASTERにINSERT/UPSERT * + * 重複時（-803）はUPDATEに切替 * + * プログラム分類: No.09 DB更新 * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT R02INNFIL ASSIGN TO EXTERNAL KYU02R02. + SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU02W03. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * R02: EMP-RECORD（80B FB） * + ***************************************************************** + FD R02INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 R02INNREC. + COPY KYU01REC REPLACING ==(A)== BY ==R02==. + * + ***************************************************************** + * W03: ERROR-LOG（VB） * + ***************************************************************** + FD W03OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W03OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W03==. + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * SQLCA * + ***************************************************************** + EXEC SQL INCLUDE SQLCA END-EXEC. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU02REG'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-R02INN PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W03OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-DB-INS PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-DB-UPD PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + * + ***************************************************************** + * DB2ホスト変数 * + ***************************************************************** + 01 DBVARA. + 03 DBV-EMP-ID PIC X(008). + 03 DBV-EMP-NAME PIC X(040). + 03 DBV-DEPT-CODE PIC X(002). + 03 DBV-REGION-CODE PIC X(002). + 03 DBV-CATEGORY-CODE PIC X(003). + 03 DBV-BASE-SALARY PIC 9(009). + 03 DBV-HOURLY-RATE PIC 9(007). + 03 DBV-DEPENDENT-COUNT PIC 9(002). + 03 DBV-STATUS PIC X(001). + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + COPY ZANMSGAC. + COPY ZANENDAC. + * + PROCEDURE DIVISION. + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + PERFORM 1000ITTSOR. + PERFORM 2000MAJSOR + UNTIL WRK-EOF-Y. + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + ***************************************************************** + 1000ITTSOR SECTION. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE WRKARA. + * + OPEN INPUT R02INNFIL. + OPEN OUTPUT W03OUTFIL. + * + *** DB接続 + EXEC SQL + CONNECT TO 'data/SALARY.db' + END-EXEC. + * + PERFORM 1100R02INNSOR. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.1) * + * サブモジュール名: R02読込処理 * + ***************************************************************** + 1100R02INNSOR SECTION. + * + READ R02INNFIL + AT END + SET WRK-EOF-Y TO TRUE + NOT AT END + ADD 1 TO CUN-R02INN + END-READ. + * + 1100R02INNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: 主処理 * + ***************************************************************** + 2000MAJSOR SECTION. + * + *** DB2ホスト変数にMOVE + MOVE R02EMP-ID TO DBV-EMP-ID. + MOVE R02EMP-NAME TO DBV-EMP-NAME. + MOVE R02DEPT-CODE TO DBV-DEPT-CODE. + MOVE R02REGION-CODE TO DBV-REGION-CODE. + MOVE R02CATEGORY-CODE TO DBV-CATEGORY-CODE. + MOVE R02BASE-SALARY TO DBV-BASE-SALARY. + MOVE R02HOURLY-RATE TO DBV-HOURLY-RATE. + MOVE R02DEPENDENT-COUNT TO DBV-DEPENDENT-COUNT. + MOVE R02STATUS TO DBV-STATUS. + * + *** INSERT試行 + EXEC SQL + INSERT INTO EMP-MASTER + (EMP-ID, EMP-NAME, DEPT-CODE, + REGION-CODE, CATEGORY-CODE, + BASE-SALARY, HOURLY-RATE, + DEPENDENT-COUNT, STATUS, + UPDATED-AT) + VALUES + (:DBV-EMP-ID, :DBV-EMP-NAME, :DBV-DEPT-CODE, + :DBV-REGION-CODE, :DBV-CATEGORY-CODE, + :DBV-BASE-SALARY, :DBV-HOURLY-RATE, + :DBV-DEPENDENT-COUNT, :DBV-STATUS, + CURRENT TIMESTAMP) + END-EXEC. + * + IF SQLCODE = 0 + ADD 1 TO CUN-DB-INS + PERFORM 1100R02INNSOR + EXIT SECTION + END-IF. + * + *** -803 = 重複 → UPDATE + IF SQLCODE = -803 + EXEC SQL + UPDATE EMP-MASTER SET + EMP-NAME = :DBV-EMP-NAME + ,DEPT-CODE = :DBV-DEPT-CODE + ,REGION-CODE = :DBV-REGION-CODE + ,CATEGORY-CODE = :DBV-CATEGORY-CODE + ,BASE-SALARY = :DBV-BASE-SALARY + ,HOURLY-RATE = :DBV-HOURLY-RATE + ,DEPENDENT-COUNT = :DBV-DEPENDENT-COUNT + ,STATUS = :DBV-STATUS + ,UPDATED-AT = CURRENT TIMESTAMP + WHERE EMP-ID = :DBV-EMP-ID + END-EXEC + IF SQLCODE = 0 + ADD 1 TO CUN-DB-UPD + ELSE + PERFORM 2100ERROUTSOR + END-IF + PERFORM 1100R02INNSOR + EXIT SECTION + END-IF. + * + *** その他SQLエラー + PERFORM 2100ERROUTSOR. + PERFORM 1100R02INNSOR. + * + 2000MAJSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.1) * + * サブモジュール名: エラー出力処理 * + ***************************************************************** + 2100ERROUTSOR SECTION. + * + MOVE 'DB-ERR' TO W03ERR-CATEGORY. + MOVE DBV-EMP-ID TO W03ERR-DETAIL. + WRITE W03OUTREC. + ADD 1 TO CUN-W03OUT. + * + 2100ERROUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + ***************************************************************** + 3000STPSOR SECTION. + * + CLOSE R02INNFIL + W03OUTFIL. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'KYU02R02' TO M00UMKDATS22-01. + MOVE CUN-R02INN TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'DB-INSERT' TO M00UMKDATS22-01. + MOVE CUN-DB-INS TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'DB-UPDATE' TO M00UMKDATS22-01. + MOVE CUN-DB-UPD TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU02W03' TO M00UMKDATS22-01. + MOVE CUN-W03OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/src/KYU03AGG.cbl b/src/KYU03AGG.cbl new file mode 100644 index 0000000..b350a5d --- /dev/null +++ b/src/KYU03AGG.cbl @@ -0,0 +1,289 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU03AGG. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU03AGG * + * プログラム名 : 欠勤集約処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : JCL SORT済み欠勤データを社員単位に集約 * + * 同一社員内の欠勤時間・回数を集計 * + * プログラム分類: No.08 キーブレイク（集約） * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU03R01. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU03W01. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU03W02. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * R01: ABSENCE-SUMMARY（80B JCL SORT済み） * + ***************************************************************** + FD R01INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 R01INNREC PIC X(080). + * + ***************************************************************** + * W01: ABSENCE-AGGREGATE（80B 社員単位） * + ***************************************************************** + FD W01OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 W01OUTREC. + COPY KYU02REC REPLACING ==(A)== BY ==W01==. + * +***************************************************************** + * W02: ERROR-LOG（VB） — 将来拡張用（現時点では出力なし） * + ***************************************************************** + FD W02OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W02OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W02==. + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU03AGG'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + 03 CNS-ONE PIC 9(002) VALUE 1. + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-R01INN PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W01OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W02OUT PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + *** 読込レコード + 03 WRK-ABSENCE-REC. + 05 WRK-EMP-ID PIC X(008). + 05 WRK-YEAR-MONTH PIC X(006). + 05 WRK-ABSENT-HOURS PIC 9(004)V9(001). + 05 FILLER PIC X(062). + *** キーブレイク + 03 WRK-PREV-EMP-ID PIC X(008). + 03 WRK-PREV-KEY-SET PIC X(001). + 88 WRK-PREV-Y VALUE '1'. + *** 集約 + 03 WRK-TOTAL-HOURS PIC 9(004)V9(001). + 03 WRK-ABSENT-COUNT PIC 9(002). + *** EOF + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + COPY ZANMSGAC. + COPY ZANENDAC. + * + PROCEDURE DIVISION. + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + PERFORM 1000ITTSOR. + PERFORM 2000MAJSOR + UNTIL WRK-EOF-Y. + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + ***************************************************************** + 1000ITTSOR SECTION. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE WRKARA. + * + OPEN INPUT R01INNFIL. + OPEN OUTPUT W01OUTFIL + W02OUTFIL. + * + PERFORM 1100R01INNSOR. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.1) * + * サブモジュール名: R01読込処理 * + ***************************************************************** + 1100R01INNSOR SECTION. + * + READ R01INNFIL + INTO WRK-ABSENCE-REC + AT END + SET WRK-EOF-Y TO TRUE + NOT AT END + ADD 1 TO CUN-R01INN + END-READ. + * + 1100R01INNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: 主処理 * + * 処理概要 : キーブレイク集約処理 * + ***************************************************************** + 2000MAJSOR SECTION. + * + IF WRK-PREV-Y + IF WRK-PREV-EMP-ID = WRK-EMP-ID + *** 同一社員 → 集約加算 + ADD 1 TO WRK-ABSENT-COUNT + ADD WRK-ABSENT-HOURS TO WRK-TOTAL-HOURS + ELSE + *** 異社員 → 前社員の集約出力 + PERFORM 2100WRITOUTSOR + MOVE WRK-EMP-ID TO WRK-PREV-EMP-ID + INITIALIZE WRK-TOTAL-HOURS + WRK-ABSENT-COUNT + REPLACING NUMERIC DATA BY ZERO + MOVE 1 TO WRK-ABSENT-COUNT + MOVE WRK-ABSENT-HOURS TO WRK-TOTAL-HOURS + END-IF + ELSE + *** 初回 + MOVE WRK-EMP-ID TO WRK-PREV-EMP-ID + SET WRK-PREV-Y TO TRUE + MOVE CNS-ONE TO WRK-ABSENT-COUNT + MOVE WRK-ABSENT-HOURS TO WRK-TOTAL-HOURS + END-IF. + * + PERFORM 1100R01INNSOR. + * + 2000MAJSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.1) * + * サブモジュール名: 集約レコード出力処理 * + ***************************************************************** + 2100WRITOUTSOR SECTION. + * + INITIALIZE W01OUTREC. + MOVE WRK-PREV-EMP-ID TO W01EMP-ID. + MOVE WRK-YEAR-MONTH TO W01YEAR-MONTH. + MOVE WRK-TOTAL-HOURS TO W01TOTAL-HOURS. + MOVE WRK-ABSENT-COUNT TO W01ABSENT-COUNT. + WRITE W01OUTREC. + ADD 1 TO CUN-W01OUT. + * + 2100WRITOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + ***************************************************************** + 3000STPSOR SECTION. + * + *** 最終社員の集約出力 + IF WRK-PREV-Y + PERFORM 2100WRITOUTSOR + END-IF. + * + CLOSE R01INNFIL + W01OUTFIL + W02OUTFIL. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'KYU03R01' TO M00UMKDATS22-01. + MOVE CUN-R01INN TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU03W01' TO M00UMKDATS22-01. + MOVE CUN-W01OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU03W02' TO M00UMKDATS22-01. + MOVE CUN-W02OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/src/KYU04CAL.cbl b/src/KYU04CAL.cbl new file mode 100644 index 0000000..4975826 --- /dev/null +++ b/src/KYU04CAL.cbl @@ -0,0 +1,457 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU04CAL. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU04CAL * + * プログラム名 : 給与計算処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : 欠勤集約 + EMP-MASTER + OVT-MONTHLY を * + * 参照し給与計算を実行 * + * 勤怠区分×手当種別の複合分岐はEVALUATE ALSO * + * プログラム分類: No.32 1:N＋キーブレイク（同キー） * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT R02INNFIL ASSIGN TO EXTERNAL KYU04R02. + SELECT R03INNFIL ASSIGN TO EXTERNAL KYU04R03. + SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU04W03. + SELECT W04OUTFIL ASSIGN TO EXTERNAL KYU04W04. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * R02: ABSENCE-AGGREGATE（80B 社員単位） * + ***************************************************************** + FD R02INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 R02INNREC. + COPY KYU02REC REPLACING ==(A)== BY ==R02==. + * + ***************************************************************** + * R03: PAY-PARAM（80B FB） * + ***************************************************************** + FD R03INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 R03INNREC PIC X(080). + * + ***************************************************************** + * W03: SALARY-DETAIL（240B FB） * + ***************************************************************** + FD W03OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 W03OUTREC. + COPY KYU03REC REPLACING ==(A)== BY ==W03==. + * + ***************************************************************** + * W04: ERROR-LOG（VB） * + ***************************************************************** + FD W04OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W04OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W04==. + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * SQLCA * + ***************************************************************** + EXEC SQL INCLUDE SQLCA END-EXEC. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU04CAL'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + 03 CNS-OVERTIME-RATE PIC 9(002)V9(002) + VALUE 01.25. + 03 CNS-HOLIDAY-RATE PIC 9(001)V9(02) + VALUE 1.35. + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-R02INN PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W03OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W04OUT PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + *** パラメータ + 03 WRK-PARAM. + 05 WRK-PARAM-BASE PIC X(080). + 05 WRK-PARAM-FILLER PIC X(080). + *** 給与計算 + 03 WRK-YEAR-MONTH PIC X(006). + 03 WRK-EMP-ID PIC X(008). + 03 WRK-EMP-NAME PIC X(040). + 03 WRK-DEPT-CODE PIC X(002). + 03 WRK-REGION-CODE PIC X(002). + 03 WRK-CATEGORY-CODE PIC X(003). + 03 WRK-BASE-SALARY PIC 9(009). + 03 WRK-HOURLY-RATE PIC 9(007). + 03 WRK-DEPENDENT-COUNT PIC 9(002). + 03 WRK-ABSENT-HOURS PIC 9(004)V9(001). + 03 WRK-OVT-HOURS PIC 9(004)V9(001). + 03 WRK-ABSENT-DEDUCT PIC 9(009). + 03 WRK-OVT-AMOUNT PIC 9(009). + 03 WRK-GROSS-PAYMENT PIC 9(009). + 03 WRK-ALLOWANCE-TYPE PIC X(003). + 03 WRK-ATTEND-TYPE PIC X(001). + 03 WRK-AMOUNT PIC 9(009). + * + ***************************************************************** + * DB2ホスト変数 * + ***************************************************************** + 01 DBVARA. + 03 DBV-EMP-ID PIC X(008). + 03 DBV-BASE-SALARY PIC 9(009). + 03 DBV-HOURLY-RATE PIC 9(007). + 03 DBV-DEPENDENT-COUNT PIC 9(002). + 03 DBV-EMPLOYEE-NAME PIC X(040). + 03 DBV-DEPT-CODE PIC X(002). + 03 DBV-OVT-HOURS PIC 9(004)V9(001). + 03 DBV-STATUS PIC X(001). + * + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + COPY ZANDATAC. + COPY ZANMSGAC. + COPY ZANENDAC. + * + PROCEDURE DIVISION. + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + PERFORM 1000ITTSOR. + PERFORM 2000MAJSOR + UNTIL WRK-EOF-Y. + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + ***************************************************************** + 1000ITTSOR SECTION. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE WRKARA. + * + *** 運用日付取得 + INITIALIZE D01UBSPAR. + CALL 'SUB01DAT' USING D01UBSPAR. + IF D01FKICOD NOT = ZERO + MOVE CNS-MSGSUBEEK TO M00MSGCOD + MOVE 'SUB01DAT' TO M00UMKDATS22-01 + MOVE D01FKICOD TO M00UMKDATS22-02 + PERFORM 4000MSGOUTSOR + PERFORM 9999ABDSOR + END-IF. + * + *** PAY-PARAM読込 + OPEN INPUT R03INNFIL. + READ R03INNFIL + INTO WRK-PARAM-BASE + END-READ. + CLOSE R03INNFIL. + * + *** パラメータ解析 + UNSTRING WRK-PARAM-BASE + DELIMITED BY ',' + INTO WRK-YEAR-MONTH + END-UNSTRING. + * + OPEN INPUT R02INNFIL. + OPEN OUTPUT W03OUTFIL + W04OUTFIL. + * + *** DB接続 + EXEC SQL + CONNECT TO 'data/SALARY.db' + END-EXEC. + * + PERFORM 1100R02INNSOR. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.1) * + * サブモジュール名: R02読込処理 * + ***************************************************************** + 1100R02INNSOR SECTION. + * + READ R02INNFIL + AT END + SET WRK-EOF-Y TO TRUE + NOT AT END + ADD 1 TO CUN-R02INN + END-READ. + * + 1100R02INNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: 主処理 * + ***************************************************************** + 2000MAJSOR SECTION. + * + *** ホスト変数セット + MOVE R02EMP-ID TO DBV-EMP-ID. + * + *** DB2 EMP-MASTER参照 + EXEC SQL + SELECT EMP-NAME, DEPT-CODE, REGION-CODE, + CATEGORY-CODE, BASE-SALARY, HOURLY-RATE, + DEPENDENT-COUNT, STATUS + INTO :DBV-EMPLOYEE-NAME, + :DBV-DEPT-CODE, + :WRK-REGION-CODE, + :WRK-CATEGORY-CODE, + :DBV-BASE-SALARY, + :DBV-HOURLY-RATE, + :DBV-DEPENDENT-COUNT, + :DBV-STATUS + FROM EMP-MASTER + WHERE EMP-ID = :DBV-EMP-ID + END-EXEC. + * + IF SQLCODE NOT = 0 + PERFORM 2200ERROUTSOR + PERFORM 1100R02INNSOR + EXIT SECTION + END-IF. + * + MOVE DBV-EMPLOYEE-NAME TO WRK-EMP-NAME. + MOVE DBV-BASE-SALARY TO WRK-BASE-SALARY. + MOVE DBV-HOURLY-RATE TO WRK-HOURLY-RATE. + MOVE DBV-DEPT-CODE TO WRK-DEPT-CODE. + MOVE R02YEAR-MONTH TO WRK-YEAR-MONTH. + MOVE R02TOTAL-HOURS TO WRK-ABSENT-HOURS. + * + *** OVT-MONTHLY参照（残業時間） + EXEC SQL + SELECT SUM(OVT-HOURS) + INTO :DBV-OVT-HOURS + FROM OVT-MONTHLY + WHERE EMP-ID = :DBV-EMP-ID + AND YEAR-MONTH = :WRK-YEAR-MONTH + END-EXEC. + IF SQLCODE = 0 + CONTINUE + ELSE + MOVE ZERO TO DBV-OVT-HOURS + END-IF. + * + *** 給与計算 + PERFORM 2100CALCSOR. + * + *** SALARY-DETAIL出力 + PERFORM 2110WRITOUTSOR. + * + PERFORM 1100R02INNSOR. + * + 2000MAJSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.1) * + * サブモジュール名: 給与計算処理 * + ***************************************************************** + 2100CALCSOR SECTION. + * + *** 欠勤控除額 + COMPUTE WRK-ABSENT-DEDUCT ROUNDED = + DBV-HOURLY-RATE * WRK-ABSENT-HOURS + ON SIZE ERROR + MOVE ZERO TO WRK-ABSENT-DEDUCT + END-COMPUTE. + * + *** 残業手当 + COMPUTE WRK-OVT-AMOUNT ROUNDED = + DBV-HOURLY-RATE * DBV-OVT-HOURS * CNS-OVERTIME-RATE + ON SIZE ERROR + MOVE ZERO TO WRK-OVT-AMOUNT + END-COMPUTE. + * + *** EVALUATE ALSO（勤怠区分×手当種別） + MOVE 'OVT' TO WRK-ALLOWANCE-TYPE. + MOVE 'W' TO WRK-ATTEND-TYPE. + * + EVALUATE WRK-ALLOWANCE-TYPE + ALSO WRK-ATTEND-TYPE + WHEN 'OVT' ALSO 'W' + COMPUTE WRK-AMOUNT ROUNDED = + DBV-HOURLY-RATE * DBV-OVT-HOURS * 1.25 + END-COMPUTE + WHEN 'OVT' ALSO 'H' + COMPUTE WRK-AMOUNT ROUNDED = + DBV-HOURLY-RATE * DBV-OVT-HOURS * 1.35 + END-COMPUTE + WHEN 'LATE' ALSO ANY + COMPUTE WRK-AMOUNT ROUNDED = + DBV-HOURLY-RATE * DBV-OVT-HOURS * 0.50 + END-COMPUTE + WHEN OTHER + MOVE ZERO TO WRK-AMOUNT + END-EVALUATE. + * + *** 支給総額 + COMPUTE WRK-GROSS-PAYMENT = + DBV-BASE-SALARY + WRK-OVT-AMOUNT + - WRK-ABSENT-DEDUCT + END-COMPUTE. + * + 2100CALCSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.2) * + * サブモジュール名: SALARY-DETAIL出力処理 * + ***************************************************************** + 2110WRITOUTSOR SECTION. + * + INITIALIZE W03OUTREC. + MOVE R02EMP-ID TO W03EMP-ID. + MOVE WRK-EMP-NAME TO W03EMP-NAME. + MOVE WRK-DEPT-CODE TO W03DEPT-CODE. + MOVE DBV-BASE-SALARY TO W03BASE-SALARY. + MOVE WRK-OVT-AMOUNT TO W03OVT-AMOUNT. + MOVE ZERO TO W03HOLIDAY-AMOUNT. + MOVE WRK-ABSENT-DEDUCT TO W03ABSENT-DEDUCT. + MOVE WRK-GROSS-PAYMENT TO W03GROSS-PAYMENT. + MOVE DBV-OVT-HOURS TO W03OVT-HOURS. + MOVE WRK-ABSENT-HOURS TO W03ABSENT-HOURS. + MOVE WRK-ATTEND-TYPE TO W03ATTEND-TYPE. + MOVE WRK-ALLOWANCE-TYPE TO W03ALLOWANCE-TYPE. + WRITE W03OUTREC. + ADD 1 TO CUN-W03OUT. + * + 2110WRITOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.3) * + * サブモジュール名: エラー出力処理 * + ***************************************************************** + 2200ERROUTSOR SECTION. + * + MOVE 'DB-ERR' TO W04ERR-CATEGORY. + MOVE R02EMP-ID TO W04ERR-DETAIL. + WRITE W04OUTREC. + ADD 1 TO CUN-W04OUT. + * + 2200ERROUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + ***************************************************************** + 3000STPSOR SECTION. + * + CLOSE R02INNFIL + W03OUTFIL + W04OUTFIL. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'KYU04R02' TO M00UMKDATS22-01. + MOVE CUN-R02INN TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU04W03' TO M00UMKDATS22-01. + MOVE CUN-W03OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU04W04' TO M00UMKDATS22-01. + MOVE CUN-W04OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/src/KYU05DED.cbl b/src/KYU05DED.cbl new file mode 100644 index 0000000..067b150 --- /dev/null +++ b/src/KYU05DED.cbl @@ -0,0 +1,426 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU05DED. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU05DED * + * プログラム名 : 控除計算処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : SALARY-DETAILを入力に、源泉所得税・ * + * 社会保険料・住民税を計算しSALARY-NET出力 * + * TAX-TABLE（DB2 SELECT ... BETWEEN） * + * INSURANCE-TABLE（SEARCH ALL）を参照 * + * プログラム分類: No.23 SELECT条件 * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU05R01. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU05W01. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU05W02. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * R01: SALARY-DETAIL（240B FB） * + ***************************************************************** + FD R01INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 R01INNREC. + COPY KYU03REC REPLACING ==(A)== BY ==R01==. + * + ***************************************************************** + * W01: SALARY-NET（200B FB） * + ***************************************************************** + FD W01OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 W01OUTREC. + COPY KYU04REC REPLACING ==(A)== BY ==W01==. + * + ***************************************************************** + * W02: ERROR-LOG（VB） * + ***************************************************************** + FD W02OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W02OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W02==. + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * SQLCA * + ***************************************************************** + EXEC SQL INCLUDE SQLCA END-EXEC. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU05DED'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + 03 CNS-TAX-BASIC-DEDUCTION PIC 9(006) VALUE 050000. + 03 CNS-RESIDENT-TAX-RATE PIC 9(001)V9(02) + VALUE 0.10. + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-R01INN PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W01OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W02OUT PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + *** 控除計算 + 03 WRK-GROSS-PAYMENT PIC 9(009). + 03 WRK-TAXABLE-INCOME PIC 9(009). + 03 WRK-INCOME-TAX PIC 9(009). + 03 WRK-INSURANCE PIC 9(009). + 03 WRK-RESIDENT-TAX PIC 9(009). + 03 WRK-NET-PAYMENT PIC 9(009). + * + * + ***************************************************************** + * DB2ホスト変数 * + ***************************************************************** + 01 DBVARA. + 03 DBV-EMP-ID PIC X(008). + 03 DBV-TAX-RATE PIC 9(001)V9(04). + 03 DBV-TAX-DEDUCTION PIC 9(009). + * + ***************************************************************** + * 保険料率WORKING-STORAGE（SEARCH ALL） * + ***************************************************************** + 01 INSURANCE-WORK. + 03 IW-COUNT PIC 9(004). + 03 IW-ENTRY OCCURS 1 TO 200 TIMES + DEPENDING ON IW-COUNT + ASCENDING KEY IS IW-INCOME-FROM + INDEXED BY IW-IDX. + 05 IW-INCOME-FROM PIC 9(009). + 05 IW-INCOME-TO PIC 9(009). + 05 IW-HEALTH-RATE PIC V9(006). + 05 IW-PENSION-RATE PIC V9(006). + * + ***************************************************************** + * DB2ホスト変数（保険料率FETCH用） * + ***************************************************************** + 01 DBV-INS. + 03 DBV-INS-INCOME-FROM PIC 9(009). + 03 DBV-INS-INCOME-TO PIC 9(009). + 03 DBV-INS-HEALTH-RATE PIC 9(001)V9(06). + 03 DBV-INS-PENSION-RATE PIC 9(001)V9(06). + * + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + COPY ZANMSGAC. + COPY ZANENDAC. + * + PROCEDURE DIVISION. + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + PERFORM 1000ITTSOR. + PERFORM 2000MAJSOR + UNTIL WRK-EOF-Y. + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + ***************************************************************** + 1000ITTSOR SECTION. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE WRKARA. + * + *** DB接続 + EXEC SQL + CONNECT TO 'data/SALARY.db' + END-EXEC. + * + OPEN INPUT R01INNFIL. + OPEN OUTPUT W01OUTFIL + W02OUTFIL. + * + *** INSURANCE-TABLE全件LOAD + PERFORM 1100INSLOADSOR. + * + PERFORM 1200R01INNSOR. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.1) * + * サブモジュール名: 保険料率テーブルLOAD処理 * + ***************************************************************** + 1100INSLOADSOR SECTION. + * + MOVE ZERO TO IW-COUNT. + * + EXEC SQL + DECLARE INS-CURSOR CURSOR FOR + SELECT INS-INCOME-FROM, INS-INCOME-TO, + INS-HEALTH-RATE, INS-PENSION-RATE + FROM INSURANCE-TABLE + ORDER BY INS-INCOME-FROM + END-EXEC. + * + EXEC SQL + OPEN INS-CURSOR + END-EXEC. + IF SQLCODE NOT = 0 + MOVE 'INS-CURSOR OPEN ERR' + TO W02ERR-DETAIL + PERFORM 9999ABDSOR + END-IF. + * + PERFORM UNTIL SQLCODE NOT = 0 + EXEC SQL + FETCH INS-CURSOR + INTO :DBV-INS-INCOME-FROM, + :DBV-INS-INCOME-TO, + :DBV-INS-HEALTH-RATE, + :DBV-INS-PENSION-RATE + END-EXEC + IF SQLCODE = 0 + ADD 1 TO IW-COUNT + MOVE DBV-INS-INCOME-FROM + TO IW-INCOME-FROM(IW-COUNT) + MOVE DBV-INS-INCOME-TO + TO IW-INCOME-TO(IW-COUNT) + MOVE DBV-INS-HEALTH-RATE + TO IW-HEALTH-RATE(IW-COUNT) + MOVE DBV-INS-PENSION-RATE + TO IW-PENSION-RATE(IW-COUNT) + END-IF + END-PERFORM. + * + EXEC SQL + CLOSE INS-CURSOR + END-EXEC. + * + 1100INSLOADSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.2) * + * サブモジュール名: R01読込処理 * + ***************************************************************** + 1200R01INNSOR SECTION. + * + READ R01INNFIL + AT END + SET WRK-EOF-Y TO TRUE + NOT AT END + ADD 1 TO CUN-R01INN + END-READ. + * + 1200R01INNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: 主処理 * + ***************************************************************** + 2000MAJSOR SECTION. + * + MOVE R01GROSS-PAYMENT TO WRK-GROSS-PAYMENT. + MOVE R01EMP-ID TO DBV-EMP-ID. + * + * 課税所得計算 + IF WRK-GROSS-PAYMENT < CNS-TAX-BASIC-DEDUCTION + MOVE ZERO TO WRK-TAXABLE-INCOME + ELSE + COMPUTE WRK-TAXABLE-INCOME = + WRK-GROSS-PAYMENT - CNS-TAX-BASIC-DEDUCTION + END-COMPUTE + END-IF. + * + *** TAX-TABLE参照（BETWEEN） + EXEC SQL + SELECT TAX-RATE, DEDUCTION + INTO :DBV-TAX-RATE, :DBV-TAX-DEDUCTION + FROM TAX-TABLE + WHERE :WRK-TAXABLE-INCOME + BETWEEN TAX-FROM AND TAX-TO + END-EXEC. + * + IF SQLCODE = 0 + COMPUTE WRK-INCOME-TAX ROUNDED = + WRK-TAXABLE-INCOME * DBV-TAX-RATE + - DBV-TAX-DEDUCTION + END-COMPUTE + IF WRK-INCOME-TAX < ZERO + MOVE ZERO TO WRK-INCOME-TAX + END-IF + ELSE + MOVE ZERO TO WRK-INCOME-TAX + END-IF. + * + *** 社会保険料計算（SEARCH順次） + SET IW-IDX TO 1. + SEARCH IW-ENTRY + AT END + MOVE ZERO TO WRK-INSURANCE + WHEN IW-INCOME-FROM(IW-IDX) + <= WRK-TAXABLE-INCOME + AND WRK-TAXABLE-INCOME + <= IW-INCOME-TO(IW-IDX) + COMPUTE WRK-INSURANCE ROUNDED = + WRK-TAXABLE-INCOME * + (IW-HEALTH-RATE(IW-IDX) + + IW-PENSION-RATE(IW-IDX)) + END-COMPUTE + END-SEARCH. + * + *** 住民税計算 + COMPUTE WRK-RESIDENT-TAX ROUNDED = + WRK-TAXABLE-INCOME * CNS-RESIDENT-TAX-RATE + END-COMPUTE. + * + *** 差引支給額 + COMPUTE WRK-NET-PAYMENT = + WRK-GROSS-PAYMENT - WRK-INCOME-TAX + - WRK-INSURANCE - WRK-RESIDENT-TAX + END-COMPUTE. + * + *** W01出力 + PERFORM 2100WRITOUTSOR. + * + PERFORM 1200R01INNSOR. + * + 2000MAJSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.1) * + * サブモジュール名: SALARY-NET出力処理 * + ***************************************************************** + 2100WRITOUTSOR SECTION. + * + INITIALIZE W01OUTREC. + MOVE R01EMP-ID TO W01EMP-ID. + MOVE 'S' TO W01REC-TYPE. + MOVE R01EMP-NAME TO W01EMP-NAME. + MOVE R01DEPT-CODE TO W01DEPT-CODE. + MOVE R01BASE-SALARY TO W01GROSS-PAYMENT. + MOVE WRK-INCOME-TAX TO W01INCOME-TAX. + MOVE WRK-INSURANCE TO W01INSURANCE. + MOVE WRK-RESIDENT-TAX TO W01RESIDENT-TAX. + MOVE WRK-NET-PAYMENT TO W01NET-PAYMENT. + MOVE WRK-TAXABLE-INCOME TO W01TAXABLE-INCOME. + MOVE WRK-NET-PAYMENT TO W01PAY-AMOUNT. + WRITE W01OUTREC. + ADD 1 TO CUN-W01OUT. + * + 2100WRITOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + ***************************************************************** + 3000STPSOR SECTION. + * + CLOSE R01INNFIL + W01OUTFIL + W02OUTFIL. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'KYU05R01' TO M00UMKDATS22-01. + MOVE CUN-R01INN TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU05W01' TO M00UMKDATS22-01. + MOVE CUN-W01OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU05W02' TO M00UMKDATS22-01. + MOVE CUN-W02OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/src/KYU06UPD.cbl b/src/KYU06UPD.cbl new file mode 100644 index 0000000..c2ace78 --- /dev/null +++ b/src/KYU06UPD.cbl @@ -0,0 +1,317 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU06UPD. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU06UPD * + * プログラム名 : 給与計算結果DB2更新処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : SALARY-NETをDB2 SALARY-RESULTSに登録 * + * 重複時（-803）はUPDATEに切替 * + * プログラム分類: No.09 DB更新 * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT R02INNFIL ASSIGN TO EXTERNAL KYU06R02. + SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU06W03. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * R02: SALARY-NET（200B FB） * + ***************************************************************** + FD R02INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 R02INNREC. + COPY KYU04REC REPLACING ==(A)== BY ==R02==. + * + ***************************************************************** + * W03: ERROR-LOG（VB） * + ***************************************************************** + FD W03OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W03OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W03==. + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * SQLCA * + ***************************************************************** + EXEC SQL INCLUDE SQLCA END-EXEC. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU06UPD'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + 03 CNS-YEAR-MONTH-PARM PIC X(006). + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-R02INN PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W03OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-DB-INS PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-DB-UPD PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + 03 WRK-YEAR-MONTH PIC X(006). + * + ***************************************************************** + * DB2ホスト変数 * + ***************************************************************** + 01 DBVARA. + 03 DBV-EMP-ID PIC X(008). + 03 DBV-YEAR-MONTH PIC X(006). + 03 DBV-GROSS-PAYMENT PIC 9(009). + 03 DBV-INCOME-TAX PIC 9(009). + 03 DBV-INSURANCE PIC 9(009). + 03 DBV-RESIDENT-TAX PIC 9(009). + 03 DBV-NET-PAYMENT PIC 9(009). + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + COPY ZANMSGAC. + COPY ZANENDAC. + * + PROCEDURE DIVISION. + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + PERFORM 1000ITTSOR. + PERFORM 2000MAJSOR + UNTIL WRK-EOF-Y. + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + ***************************************************************** + 1000ITTSOR SECTION. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE WRKARA. + * + *** PARM取得 + ACCEPT WRK-YEAR-MONTH + FROM COMMAND-LINE. + IF WRK-YEAR-MONTH = SPACES + MOVE '202605' TO WRK-YEAR-MONTH + END-IF. + MOVE WRK-YEAR-MONTH TO CNS-YEAR-MONTH-PARM. + * + OPEN INPUT R02INNFIL. + OPEN OUTPUT W03OUTFIL. + * + *** DB接続 + EXEC SQL + CONNECT TO 'data/SALARY.db' + END-EXEC. + * + PERFORM 1100R02INNSOR. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.1) * + * サブモジュール名: R02読込処理 * + ***************************************************************** + 1100R02INNSOR SECTION. + * + READ R02INNFIL + AT END + SET WRK-EOF-Y TO TRUE + NOT AT END + ADD 1 TO CUN-R02INN + END-READ. + * + 1100R02INNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: 主処理 * + ***************************************************************** + 2000MAJSOR SECTION. + * + MOVE R02EMP-ID TO DBV-EMP-ID. + MOVE CNS-YEAR-MONTH-PARM TO DBV-YEAR-MONTH. + MOVE R02GROSS-PAYMENT TO DBV-GROSS-PAYMENT. + MOVE R02INCOME-TAX TO DBV-INCOME-TAX. + MOVE R02INSURANCE TO DBV-INSURANCE. + MOVE R02RESIDENT-TAX TO DBV-RESIDENT-TAX. + MOVE R02NET-PAYMENT TO DBV-NET-PAYMENT. + * + EXEC SQL + INSERT INTO SALARY-RESULTS + (EMP-ID, YEAR-MONTH, + GROSS-PAYMENT, INCOME-TAX, + INSURANCE, RESIDENT-TAX, + NET-PAYMENT, UPDATED-AT) + VALUES + (:DBV-EMP-ID, :DBV-YEAR-MONTH, + :DBV-GROSS-PAYMENT, :DBV-INCOME-TAX, + :DBV-INSURANCE, :DBV-RESIDENT-TAX, + :DBV-NET-PAYMENT, CURRENT TIMESTAMP) + END-EXEC. + * + IF SQLCODE = 0 + ADD 1 TO CUN-DB-INS + PERFORM 1100R02INNSOR + EXIT SECTION + END-IF. + * + IF SQLCODE = -803 + EXEC SQL + UPDATE SALARY-RESULTS SET + GROSS-PAYMENT = :DBV-GROSS-PAYMENT + ,INCOME-TAX = :DBV-INCOME-TAX + ,INSURANCE = :DBV-INSURANCE + ,RESIDENT-TAX = :DBV-RESIDENT-TAX + ,NET-PAYMENT = :DBV-NET-PAYMENT + ,UPDATED-AT = CURRENT TIMESTAMP + WHERE EMP-ID = :DBV-EMP-ID + AND YEAR-MONTH = :DBV-YEAR-MONTH + END-EXEC + IF SQLCODE = 0 + ADD 1 TO CUN-DB-UPD + ELSE + PERFORM 2100ERROUTSOR + END-IF + PERFORM 1100R02INNSOR + EXIT SECTION + END-IF. + * + PERFORM 2100ERROUTSOR. + PERFORM 1100R02INNSOR. + * + 2000MAJSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.1) * + * サブモジュール名: エラー出力処理 * + ***************************************************************** + 2100ERROUTSOR SECTION. + * + MOVE 'DB-ERR' TO W03ERR-CATEGORY. + MOVE DBV-EMP-ID TO W03ERR-DETAIL. + WRITE W03OUTREC. + ADD 1 TO CUN-W03OUT. + * + 2100ERROUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + ***************************************************************** + 3000STPSOR SECTION. + * + CLOSE R02INNFIL + W03OUTFIL. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'KYU06R02' TO M00UMKDATS22-01. + MOVE CUN-R02INN TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'DB-INSERT' TO M00UMKDATS22-01. + MOVE CUN-DB-INS TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'DB-UPDATE' TO M00UMKDATS22-01. + MOVE CUN-DB-UPD TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU06W03' TO M00UMKDATS22-01. + MOVE CUN-W03OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/src/KYU07DIV.cbl b/src/KYU07DIV.cbl new file mode 100644 index 0000000..f7119fe --- /dev/null +++ b/src/KYU07DIV.cbl @@ -0,0 +1,836 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU07DIV. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU07DIV * + * プログラム名 : 部門別分割出力処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : JCL SORT済SALARY-NETを部署コードに応じて * + * 50ファイルに分割出力 * + * 常に1ファイルのみOPEN * + * プログラム分類: No.10 50分割 * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU07R01. + SELECT SYSIN-FILE ASSIGN TO EXTERNAL KYU07SYS. + SELECT W99OUTFIL ASSIGN TO EXTERNAL KYU07W99. + SELECT DEPT01-FILE ASSIGN TO EXTERNAL KYU07D01. + SELECT DEPT02-FILE ASSIGN TO EXTERNAL KYU07D02. + SELECT DEPT03-FILE ASSIGN TO EXTERNAL KYU07D03. + SELECT DEPT04-FILE ASSIGN TO EXTERNAL KYU07D04. + SELECT DEPT05-FILE ASSIGN TO EXTERNAL KYU07D05. + SELECT DEPT06-FILE ASSIGN TO EXTERNAL KYU07D06. + SELECT DEPT07-FILE ASSIGN TO EXTERNAL KYU07D07. + SELECT DEPT08-FILE ASSIGN TO EXTERNAL KYU07D08. + SELECT DEPT09-FILE ASSIGN TO EXTERNAL KYU07D09. + SELECT DEPT10-FILE ASSIGN TO EXTERNAL KYU07D10. + SELECT DEPT11-FILE ASSIGN TO EXTERNAL KYU07D11. + SELECT DEPT12-FILE ASSIGN TO EXTERNAL KYU07D12. + SELECT DEPT13-FILE ASSIGN TO EXTERNAL KYU07D13. + SELECT DEPT14-FILE ASSIGN TO EXTERNAL KYU07D14. + SELECT DEPT15-FILE ASSIGN TO EXTERNAL KYU07D15. + SELECT DEPT16-FILE ASSIGN TO EXTERNAL KYU07D16. + SELECT DEPT17-FILE ASSIGN TO EXTERNAL KYU07D17. + SELECT DEPT18-FILE ASSIGN TO EXTERNAL KYU07D18. + SELECT DEPT19-FILE ASSIGN TO EXTERNAL KYU07D19. + SELECT DEPT20-FILE ASSIGN TO EXTERNAL KYU07D20. + SELECT DEPT21-FILE ASSIGN TO EXTERNAL KYU07D21. + SELECT DEPT22-FILE ASSIGN TO EXTERNAL KYU07D22. + SELECT DEPT23-FILE ASSIGN TO EXTERNAL KYU07D23. + SELECT DEPT24-FILE ASSIGN TO EXTERNAL KYU07D24. + SELECT DEPT25-FILE ASSIGN TO EXTERNAL KYU07D25. + SELECT DEPT26-FILE ASSIGN TO EXTERNAL KYU07D26. + SELECT DEPT27-FILE ASSIGN TO EXTERNAL KYU07D27. + SELECT DEPT28-FILE ASSIGN TO EXTERNAL KYU07D28. + SELECT DEPT29-FILE ASSIGN TO EXTERNAL KYU07D29. + SELECT DEPT30-FILE ASSIGN TO EXTERNAL KYU07D30. + SELECT DEPT31-FILE ASSIGN TO EXTERNAL KYU07D31. + SELECT DEPT32-FILE ASSIGN TO EXTERNAL KYU07D32. + SELECT DEPT33-FILE ASSIGN TO EXTERNAL KYU07D33. + SELECT DEPT34-FILE ASSIGN TO EXTERNAL KYU07D34. + SELECT DEPT35-FILE ASSIGN TO EXTERNAL KYU07D35. + SELECT DEPT36-FILE ASSIGN TO EXTERNAL KYU07D36. + SELECT DEPT37-FILE ASSIGN TO EXTERNAL KYU07D37. + SELECT DEPT38-FILE ASSIGN TO EXTERNAL KYU07D38. + SELECT DEPT39-FILE ASSIGN TO EXTERNAL KYU07D39. + SELECT DEPT40-FILE ASSIGN TO EXTERNAL KYU07D40. + SELECT DEPT41-FILE ASSIGN TO EXTERNAL KYU07D41. + SELECT DEPT42-FILE ASSIGN TO EXTERNAL KYU07D42. + SELECT DEPT43-FILE ASSIGN TO EXTERNAL KYU07D43. + SELECT DEPT44-FILE ASSIGN TO EXTERNAL KYU07D44. + SELECT DEPT45-FILE ASSIGN TO EXTERNAL KYU07D45. + SELECT DEPT46-FILE ASSIGN TO EXTERNAL KYU07D46. + SELECT DEPT47-FILE ASSIGN TO EXTERNAL KYU07D47. + SELECT DEPT48-FILE ASSIGN TO EXTERNAL KYU07D48. + SELECT DEPT49-FILE ASSIGN TO EXTERNAL KYU07D49. + SELECT DEPT50-FILE ASSIGN TO EXTERNAL KYU07D50. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * R01: SALARY-NET（200B FB JCL SORT済み） * + ***************************************************************** + FD R01INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 R01INNREC. + COPY KYU04REC REPLACING ==(A)== BY ==R01==. + * + ***************************************************************** + * SYSIN: 制御カード * + ***************************************************************** + FD SYSIN-FILE + LABEL RECORD IS STANDARD + RECORDING MODE IS F. + 01 SYSIN-REC PIC X(080). + * + ***************************************************************** + * W99: ERROR-LOG（VB） * + ***************************************************************** + FD W99OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W99OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W99==. + * + ***************************************************************** + * DEPT01〜50（各200B FB） * + ***************************************************************** + FD DEPT01-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT01-REC PIC X(200). + FD DEPT02-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT02-REC PIC X(200). + FD DEPT03-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT03-REC PIC X(200). + FD DEPT04-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT04-REC PIC X(200). + FD DEPT05-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT05-REC PIC X(200). + FD DEPT06-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT06-REC PIC X(200). + FD DEPT07-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT07-REC PIC X(200). + FD DEPT08-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT08-REC PIC X(200). + FD DEPT09-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT09-REC PIC X(200). + FD DEPT10-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT10-REC PIC X(200). + FD DEPT11-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT11-REC PIC X(200). + FD DEPT12-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT12-REC PIC X(200). + FD DEPT13-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT13-REC PIC X(200). + FD DEPT14-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT14-REC PIC X(200). + FD DEPT15-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT15-REC PIC X(200). + FD DEPT16-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT16-REC PIC X(200). + FD DEPT17-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT17-REC PIC X(200). + FD DEPT18-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT18-REC PIC X(200). + FD DEPT19-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT19-REC PIC X(200). + FD DEPT20-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT20-REC PIC X(200). + FD DEPT21-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT21-REC PIC X(200). + FD DEPT22-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT22-REC PIC X(200). + FD DEPT23-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT23-REC PIC X(200). + FD DEPT24-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT24-REC PIC X(200). + FD DEPT25-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT25-REC PIC X(200). + FD DEPT26-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT26-REC PIC X(200). + FD DEPT27-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT27-REC PIC X(200). + FD DEPT28-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT28-REC PIC X(200). + FD DEPT29-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT29-REC PIC X(200). + FD DEPT30-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT30-REC PIC X(200). + FD DEPT31-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT31-REC PIC X(200). + FD DEPT32-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT32-REC PIC X(200). + FD DEPT33-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT33-REC PIC X(200). + FD DEPT34-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT34-REC PIC X(200). + FD DEPT35-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT35-REC PIC X(200). + FD DEPT36-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT36-REC PIC X(200). + FD DEPT37-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT37-REC PIC X(200). + FD DEPT38-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT38-REC PIC X(200). + FD DEPT39-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT39-REC PIC X(200). + FD DEPT40-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT40-REC PIC X(200). + FD DEPT41-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT41-REC PIC X(200). + FD DEPT42-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT42-REC PIC X(200). + FD DEPT43-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT43-REC PIC X(200). + FD DEPT44-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT44-REC PIC X(200). + FD DEPT45-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT45-REC PIC X(200). + FD DEPT46-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT46-REC PIC X(200). + FD DEPT47-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT47-REC PIC X(200). + FD DEPT48-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT48-REC PIC X(200). + FD DEPT49-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT49-REC PIC X(200). + FD DEPT50-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 DEPT50-REC PIC X(200). + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU07DIV'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-R01INN PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W99OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-DEPT-OUT PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + 03 WRK-DEPT-CODE PIC X(002). + 03 WRK-PREV-DEPT PIC X(002). + 03 WRK-FIRST PIC X(001) VALUE '1'. + 88 WRK-FIRST-Y VALUE '1'. + 88 WRK-FIRST-N VALUE '0'. + *** SYSIN対象部署テーブル + 03 WRK-TARGET-DEPT. + 05 WRK-TARGET OCCURS 50 TIMES + INDEXED BY TD-IDX. + 07 WRK-TARGET-CODE PIC X(002). + 03 WRK-TARGET-COUNT PIC 9(002) VALUE 50. + 03 WRK-HAS-TARGET PIC X(001). + 88 WRK-ALL-DEPTS VALUE 'A'. + 88 WRK-FILTER-DEPTS VALUE 'F'. + *** パース用 + 03 WRK-SYSIN-LINE PIC X(080). + 03 WRK-I PIC 9(002). + 03 WRK-J PIC 9(002). + 03 WRK-TOKEN PIC X(080). + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + COPY ZANMSGAC. + COPY ZANENDAC. + * + PROCEDURE DIVISION. + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + PERFORM 1000ITTSOR. + PERFORM 2000MAJSOR + UNTIL WRK-EOF-Y. + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + ***************************************************************** + 1000ITTSOR SECTION. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE WRKARA. + MOVE '1' TO WRK-FIRST. + * + *** SYSIN読込（対象部署指定） + PERFORM 1100SYSINSOR. + * + OPEN INPUT R01INNFIL. + OPEN OUTPUT W99OUTFIL. + * + PERFORM 1200R01INNSOR. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.1) * + * サブモジュール名: SYSIN読込処理 * + ***************************************************************** + 1100SYSINSOR SECTION. + * + OPEN INPUT SYSIN-FILE. + READ SYSIN-FILE + INTO WRK-SYSIN-LINE + AT END + SET WRK-ALL-DEPTS TO TRUE + END-READ. + CLOSE SYSIN-FILE. + * + IF WRK-ALL-DEPTS + EXIT SECTION + END-IF. + * + *** "DEPT=01,02,05,10" 形式パース + MOVE WRK-SYSIN-LINE TO WRK-TOKEN. + MOVE ZERO TO WRK-TARGET-COUNT. + MOVE 1 TO WRK-J. + * + PERFORM VARYING WRK-I FROM 1 BY 1 + UNTIL WRK-I > 80 + OR WRK-SYSIN-LINE(WRK-I:1) = SPACE + OR WRK-SYSIN-LINE(WRK-I:1) = '=' + CONTINUE + END-PERFORM. + * + ADD 1 TO WRK-I. + PERFORM VARYING WRK-J FROM 1 BY 1 + UNTIL WRK-I > 80 + OR WRK-SYSIN-LINE(WRK-I:1) = SPACE + IF WRK-SYSIN-LINE(WRK-I:1) = ',' + ADD 1 TO WRK-I + CONTINUE + END-IF + ADD 1 TO WRK-TARGET-COUNT + MOVE WRK-SYSIN-LINE(WRK-I:2) + TO + WRK-TARGET-CODE(WRK-TARGET-COUNT) + ADD 2 TO WRK-I + END-PERFORM. + * + IF WRK-TARGET-COUNT > 0 + SET WRK-FILTER-DEPTS TO TRUE + ELSE + SET WRK-ALL-DEPTS TO TRUE + END-IF. + * + 1100SYSINSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.2) * + * サブモジュール名: R01読込処理 * + ***************************************************************** + 1200R01INNSOR SECTION. + * + READ R01INNFIL + AT END + SET WRK-EOF-Y TO TRUE + NOT AT END + ADD 1 TO CUN-R01INN + END-READ. + * + 1200R01INNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: 主処理 * + ***************************************************************** + 2000MAJSOR SECTION. + * + MOVE R01DEPT-CODE TO WRK-DEPT-CODE. + * + *** SYSIN対象部署フィルタ + IF WRK-FILTER-DEPTS + SET TD-IDX TO 1 + SEARCH WRK-TARGET + AT END + PERFORM 1200R01INNSOR + EXIT SECTION + WHEN WRK-TARGET-CODE(TD-IDX) = WRK-DEPT-CODE + CONTINUE + END-SEARCH + END-IF. + * + *** 部署切替 + IF WRK-FIRST-Y + MOVE '0' TO WRK-FIRST + PERFORM 2100OPENSOR + ELSE + IF WRK-PREV-DEPT NOT = WRK-DEPT-CODE + PERFORM 2200CLOSESOR + PERFORM 2100OPENSOR + END-IF + END-IF. + * + MOVE WRK-DEPT-CODE TO WRK-PREV-DEPT. + * + *** 該当ファイルにWRITE + PERFORM 2300WRITESOR. + * + PERFORM 1200R01INNSOR. + * + 2000MAJSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.1) * + * サブモジュール名: 部署ファイルOPEN処理 * + ***************************************************************** + 2100OPENSOR SECTION. + * + EVALUATE WRK-DEPT-CODE + WHEN '01' OPEN OUTPUT DEPT01-FILE + WHEN '02' OPEN OUTPUT DEPT02-FILE + WHEN '03' OPEN OUTPUT DEPT03-FILE + WHEN '04' OPEN OUTPUT DEPT04-FILE + WHEN '05' OPEN OUTPUT DEPT05-FILE + WHEN '06' OPEN OUTPUT DEPT06-FILE + WHEN '07' OPEN OUTPUT DEPT07-FILE + WHEN '08' OPEN OUTPUT DEPT08-FILE + WHEN '09' OPEN OUTPUT DEPT09-FILE + WHEN '10' OPEN OUTPUT DEPT10-FILE + WHEN '11' OPEN OUTPUT DEPT11-FILE + WHEN '12' OPEN OUTPUT DEPT12-FILE + WHEN '13' OPEN OUTPUT DEPT13-FILE + WHEN '14' OPEN OUTPUT DEPT14-FILE + WHEN '15' OPEN OUTPUT DEPT15-FILE + WHEN '16' OPEN OUTPUT DEPT16-FILE + WHEN '17' OPEN OUTPUT DEPT17-FILE + WHEN '18' OPEN OUTPUT DEPT18-FILE + WHEN '19' OPEN OUTPUT DEPT19-FILE + WHEN '20' OPEN OUTPUT DEPT20-FILE + WHEN '21' OPEN OUTPUT DEPT21-FILE + WHEN '22' OPEN OUTPUT DEPT22-FILE + WHEN '23' OPEN OUTPUT DEPT23-FILE + WHEN '24' OPEN OUTPUT DEPT24-FILE + WHEN '25' OPEN OUTPUT DEPT25-FILE + WHEN '26' OPEN OUTPUT DEPT26-FILE + WHEN '27' OPEN OUTPUT DEPT27-FILE + WHEN '28' OPEN OUTPUT DEPT28-FILE + WHEN '29' OPEN OUTPUT DEPT29-FILE + WHEN '30' OPEN OUTPUT DEPT30-FILE + WHEN '31' OPEN OUTPUT DEPT31-FILE + WHEN '32' OPEN OUTPUT DEPT32-FILE + WHEN '33' OPEN OUTPUT DEPT33-FILE + WHEN '34' OPEN OUTPUT DEPT34-FILE + WHEN '35' OPEN OUTPUT DEPT35-FILE + WHEN '36' OPEN OUTPUT DEPT36-FILE + WHEN '37' OPEN OUTPUT DEPT37-FILE + WHEN '38' OPEN OUTPUT DEPT38-FILE + WHEN '39' OPEN OUTPUT DEPT39-FILE + WHEN '40' OPEN OUTPUT DEPT40-FILE + WHEN '41' OPEN OUTPUT DEPT41-FILE + WHEN '42' OPEN OUTPUT DEPT42-FILE + WHEN '43' OPEN OUTPUT DEPT43-FILE + WHEN '44' OPEN OUTPUT DEPT44-FILE + WHEN '45' OPEN OUTPUT DEPT45-FILE + WHEN '46' OPEN OUTPUT DEPT46-FILE + WHEN '47' OPEN OUTPUT DEPT47-FILE + WHEN '48' OPEN OUTPUT DEPT48-FILE + WHEN '49' OPEN OUTPUT DEPT49-FILE + WHEN '50' OPEN OUTPUT DEPT50-FILE + WHEN OTHER + MOVE 'INVALID DEPT' TO W99ERR-DETAIL + WRITE W99OUTREC + ADD 1 TO CUN-W99OUT + END-EVALUATE. + * + 2100OPENSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.2) * + * サブモジュール名: 部署ファイルCLOSE+LOCK処理 * + ***************************************************************** + 2200CLOSESOR SECTION. + * + EVALUATE WRK-PREV-DEPT + WHEN '01' CLOSE DEPT01-FILE WITH LOCK + WHEN '02' CLOSE DEPT02-FILE WITH LOCK + WHEN '03' CLOSE DEPT03-FILE WITH LOCK + WHEN '04' CLOSE DEPT04-FILE WITH LOCK + WHEN '05' CLOSE DEPT05-FILE WITH LOCK + WHEN '06' CLOSE DEPT06-FILE WITH LOCK + WHEN '07' CLOSE DEPT07-FILE WITH LOCK + WHEN '08' CLOSE DEPT08-FILE WITH LOCK + WHEN '09' CLOSE DEPT09-FILE WITH LOCK + WHEN '10' CLOSE DEPT10-FILE WITH LOCK + WHEN '11' CLOSE DEPT11-FILE WITH LOCK + WHEN '12' CLOSE DEPT12-FILE WITH LOCK + WHEN '13' CLOSE DEPT13-FILE WITH LOCK + WHEN '14' CLOSE DEPT14-FILE WITH LOCK + WHEN '15' CLOSE DEPT15-FILE WITH LOCK + WHEN '16' CLOSE DEPT16-FILE WITH LOCK + WHEN '17' CLOSE DEPT17-FILE WITH LOCK + WHEN '18' CLOSE DEPT18-FILE WITH LOCK + WHEN '19' CLOSE DEPT19-FILE WITH LOCK + WHEN '20' CLOSE DEPT20-FILE WITH LOCK + WHEN '21' CLOSE DEPT21-FILE WITH LOCK + WHEN '22' CLOSE DEPT22-FILE WITH LOCK + WHEN '23' CLOSE DEPT23-FILE WITH LOCK + WHEN '24' CLOSE DEPT24-FILE WITH LOCK + WHEN '25' CLOSE DEPT25-FILE WITH LOCK + WHEN '26' CLOSE DEPT26-FILE WITH LOCK + WHEN '27' CLOSE DEPT27-FILE WITH LOCK + WHEN '28' CLOSE DEPT28-FILE WITH LOCK + WHEN '29' CLOSE DEPT29-FILE WITH LOCK + WHEN '30' CLOSE DEPT30-FILE WITH LOCK + WHEN '31' CLOSE DEPT31-FILE WITH LOCK + WHEN '32' CLOSE DEPT32-FILE WITH LOCK + WHEN '33' CLOSE DEPT33-FILE WITH LOCK + WHEN '34' CLOSE DEPT34-FILE WITH LOCK + WHEN '35' CLOSE DEPT35-FILE WITH LOCK + WHEN '36' CLOSE DEPT36-FILE WITH LOCK + WHEN '37' CLOSE DEPT37-FILE WITH LOCK + WHEN '38' CLOSE DEPT38-FILE WITH LOCK + WHEN '39' CLOSE DEPT39-FILE WITH LOCK + WHEN '40' CLOSE DEPT40-FILE WITH LOCK + WHEN '41' CLOSE DEPT41-FILE WITH LOCK + WHEN '42' CLOSE DEPT42-FILE WITH LOCK + WHEN '43' CLOSE DEPT43-FILE WITH LOCK + WHEN '44' CLOSE DEPT44-FILE WITH LOCK + WHEN '45' CLOSE DEPT45-FILE WITH LOCK + WHEN '46' CLOSE DEPT46-FILE WITH LOCK + WHEN '47' CLOSE DEPT47-FILE WITH LOCK + WHEN '48' CLOSE DEPT48-FILE WITH LOCK + WHEN '49' CLOSE DEPT49-FILE WITH LOCK + WHEN '50' CLOSE DEPT50-FILE WITH LOCK + WHEN OTHER + CONTINUE + END-EVALUATE. + * + 2200CLOSESOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.3) * + * サブモジュール名: 部署WRITE処理 * + ***************************************************************** + 2300WRITESOR SECTION. + * + EVALUATE WRK-DEPT-CODE + WHEN '01' WRITE DEPT01-REC FROM R01INNREC + WHEN '02' WRITE DEPT02-REC FROM R01INNREC + WHEN '03' WRITE DEPT03-REC FROM R01INNREC + WHEN '04' WRITE DEPT04-REC FROM R01INNREC + WHEN '05' WRITE DEPT05-REC FROM R01INNREC + WHEN '06' WRITE DEPT06-REC FROM R01INNREC + WHEN '07' WRITE DEPT07-REC FROM R01INNREC + WHEN '08' WRITE DEPT08-REC FROM R01INNREC + WHEN '09' WRITE DEPT09-REC FROM R01INNREC + WHEN '10' WRITE DEPT10-REC FROM R01INNREC + WHEN '11' WRITE DEPT11-REC FROM R01INNREC + WHEN '12' WRITE DEPT12-REC FROM R01INNREC + WHEN '13' WRITE DEPT13-REC FROM R01INNREC + WHEN '14' WRITE DEPT14-REC FROM R01INNREC + WHEN '15' WRITE DEPT15-REC FROM R01INNREC + WHEN '16' WRITE DEPT16-REC FROM R01INNREC + WHEN '17' WRITE DEPT17-REC FROM R01INNREC + WHEN '18' WRITE DEPT18-REC FROM R01INNREC + WHEN '19' WRITE DEPT19-REC FROM R01INNREC + WHEN '20' WRITE DEPT20-REC FROM R01INNREC + WHEN '21' WRITE DEPT21-REC FROM R01INNREC + WHEN '22' WRITE DEPT22-REC FROM R01INNREC + WHEN '23' WRITE DEPT23-REC FROM R01INNREC + WHEN '24' WRITE DEPT24-REC FROM R01INNREC + WHEN '25' WRITE DEPT25-REC FROM R01INNREC + WHEN '26' WRITE DEPT26-REC FROM R01INNREC + WHEN '27' WRITE DEPT27-REC FROM R01INNREC + WHEN '28' WRITE DEPT28-REC FROM R01INNREC + WHEN '29' WRITE DEPT29-REC FROM R01INNREC + WHEN '30' WRITE DEPT30-REC FROM R01INNREC + WHEN '31' WRITE DEPT31-REC FROM R01INNREC + WHEN '32' WRITE DEPT32-REC FROM R01INNREC + WHEN '33' WRITE DEPT33-REC FROM R01INNREC + WHEN '34' WRITE DEPT34-REC FROM R01INNREC + WHEN '35' WRITE DEPT35-REC FROM R01INNREC + WHEN '36' WRITE DEPT36-REC FROM R01INNREC + WHEN '37' WRITE DEPT37-REC FROM R01INNREC + WHEN '38' WRITE DEPT38-REC FROM R01INNREC + WHEN '39' WRITE DEPT39-REC FROM R01INNREC + WHEN '40' WRITE DEPT40-REC FROM R01INNREC + WHEN '41' WRITE DEPT41-REC FROM R01INNREC + WHEN '42' WRITE DEPT42-REC FROM R01INNREC + WHEN '43' WRITE DEPT43-REC FROM R01INNREC + WHEN '44' WRITE DEPT44-REC FROM R01INNREC + WHEN '45' WRITE DEPT45-REC FROM R01INNREC + WHEN '46' WRITE DEPT46-REC FROM R01INNREC + WHEN '47' WRITE DEPT47-REC FROM R01INNREC + WHEN '48' WRITE DEPT48-REC FROM R01INNREC + WHEN '49' WRITE DEPT49-REC FROM R01INNREC + WHEN '50' WRITE DEPT50-REC FROM R01INNREC + WHEN OTHER + CONTINUE + END-EVALUATE. + ADD 1 TO CUN-DEPT-OUT. + * + 2300WRITESOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + ***************************************************************** + 3000STPSOR SECTION. + * + *** 最終部署CLOSE + IF WRK-PREV-DEPT > SPACES + PERFORM 2200CLOSESOR + END-IF. + * + CLOSE R01INNFIL + W99OUTFIL. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'KYU07R01' TO M00UMKDATS22-01. + MOVE CUN-R01INN TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'DEPT-OUT' TO M00UMKDATS22-01. + MOVE CUN-DEPT-OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU07W99' TO M00UMKDATS22-01. + MOVE CUN-W99OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/src/KYU08PRI.cbl b/src/KYU08PRI.cbl new file mode 100644 index 0000000..46e6c4d --- /dev/null +++ b/src/KYU08PRI.cbl @@ -0,0 +1,304 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU08PRI. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU08PRI * + * プログラム名 : 給与明細印刷処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : JCL SORT済みSALARY-NETを給与明細（LINAGE） * + * として印刷出力。1社員1ページ。 * + * プログラム分類: No.04 レイアウト編集のみ（GETPUT）+ LINAGE * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU08R01. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU08W01. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU08W02. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * R01: SALARY-NET（200B FB JCL SORT済み） * + ***************************************************************** + FD R01INNFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 R01INNREC. + COPY KYU04REC REPLACING ==(A)== BY ==R01==. + * + ***************************************************************** + * W01: PAYSLIP印刷（LINAGE 66行/ページ） * + ***************************************************************** + FD W01OUTFIL + LABEL RECORD IS STANDARD + LINAGE IS 66 LINES + WITH FOOTING AT 60 + LINES AT TOP 6 + LINES AT BOTTOM 6. + 01 W01OUTREC. + COPY KYU05REC REPLACING ==(A)== BY ==W01==. + * +***************************************************************** + * W02: ERROR-LOG（VB） — 将来拡張用（現時点では出力なし） * + ***************************************************************** + FD W02OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W02OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W02==. + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU08PRI'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + 03 CNS-HEADER-LINES PIC 9(002) VALUE 6. + 03 CNS-DETAIL-LINES PIC 9(002) VALUE 54. + 03 CNS-FOOTER-LINES PIC 9(002) VALUE 6. + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-R01INN PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W01OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W02OUT PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + 03 WRK-LINE-NO PIC 9(002). + 03 WRK-PAGE-COUNTER PIC 9(004) VALUE 0. + * + ***************************************************************** + * 印刷行定義 * + ***************************************************************** + 01 HEADER-LINE. + 05 HL-TITLE PIC X(040) + VALUE '========== 給与明細書 =========='. + 05 FILLER PIC X(010) VALUE SPACES. + 05 HL-PAGE-NO PIC Z(03)9 VALUE ZERO. + 05 FILLER PIC X(002) VALUE 'PG'. + 05 FILLER PIC X(144) VALUE SPACES. + * + 01 DETAIL-LINE. + 05 DL-EMP-ID PIC X(008). + 05 FILLER PIC X(002) VALUE SPACES. + 05 DL-EMP-NAME PIC X(020) + JUSTIFIED RIGHT. + 05 FILLER PIC X(002) VALUE SPACES. + 05 DL-BASIC-SALARY PIC Z(08)9 + BLANK WHEN ZERO. + 05 FILLER PIC X(002) VALUE SPACES. + 05 DL-NET-PAYMENT PIC Z(08)9 + BLANK WHEN ZERO. + 05 FILLER PIC X(146) VALUE SPACES. + * + 01 FOOTER-LINE. + 05 FL-MSG PIC X(040) + VALUE '--- 明細終了 ---'. + 05 FILLER PIC X(160) VALUE SPACES. + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + COPY ZANDATAC. + COPY ZANMSGAC. + COPY ZANENDAC. + * + PROCEDURE DIVISION. + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + PERFORM 1000ITTSOR. + PERFORM 2000MAJSOR + UNTIL WRK-EOF-Y. + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + ***************************************************************** + 1000ITTSOR SECTION. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE WRKARA. + * + *** 運用日付取得 + INITIALIZE D01UBSPAR. + CALL 'SUB01DAT' USING D01UBSPAR. + IF D01FKICOD NOT = ZERO + MOVE CNS-MSGSUBEEK TO M00MSGCOD + MOVE 'SUB01DAT' TO M00UMKDATS22-01 + MOVE D01FKICOD TO M00UMKDATS22-02 + PERFORM 4000MSGOUTSOR + PERFORM 9999ABDSOR + END-IF. + * + OPEN INPUT R01INNFIL. + OPEN OUTPUT W01OUTFIL + W02OUTFIL. + * + PERFORM 1100R01INNSOR. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (1.1) * + * サブモジュール名: R01読込処理 * + ***************************************************************** + 1100R01INNSOR SECTION. + * + READ R01INNFIL + AT END + SET WRK-EOF-Y TO TRUE + NOT AT END + ADD 1 TO CUN-R01INN + END-READ. + * + 1100R01INNSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: 主処理 * + ***************************************************************** + 2000MAJSOR SECTION. + * + *** ヘッダ出力（改ページ + ページ番号） + ADD 1 TO WRK-PAGE-COUNTER. + MOVE WRK-PAGE-COUNTER TO HL-PAGE-NO. + WRITE W01OUTREC + FROM HEADER-LINE + BEFORE ADVANCING PAGE. + * + *** 明細行編集 + MOVE R01EMP-ID TO DL-EMP-ID. + MOVE R01EMP-NAME TO DL-EMP-NAME. + MOVE R01GROSS-PAYMENT TO DL-BASIC-SALARY. + MOVE R01NET-PAYMENT TO DL-NET-PAYMENT. + * + WRITE W01OUTREC + FROM DETAIL-LINE + BEFORE ADVANCING 1 LINE + AT END-OF-PAGE + WRITE W01OUTREC + FROM FOOTER-LINE + BEFORE ADVANCING PAGE + END-WRITE. + ADD 1 TO CUN-W01OUT. + * + *** フッタ出力（改ページ） + WRITE W01OUTREC + FROM FOOTER-LINE + BEFORE ADVANCING PAGE. + * + PERFORM 1100R01INNSOR. + * + 2000MAJSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + ***************************************************************** + 3000STPSOR SECTION. + * + CLOSE R01INNFIL + W01OUTFIL + W02OUTFIL. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'KYU08R01' TO M00UMKDATS22-01. + MOVE CUN-R01INN TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU08W01' TO M00UMKDATS22-01. + MOVE CUN-W01OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU08W02' TO M00UMKDATS22-01. + MOVE CUN-W02OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/src/KYU09MRG.cbl b/src/KYU09MRG.cbl new file mode 100644 index 0000000..ff8a016 --- /dev/null +++ b/src/KYU09MRG.cbl @@ -0,0 +1,349 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. KYU09MRG. + ***************************************************************** + * システム名 : 給与計算システム * + * プログラムID : KYU09MRG * + * プログラム名 : 支給データ結合処理 * + * 作成日 : 2026-07-01 * + * 処理概要 : SALARY-NETとBONUS-DATAをMERGE文で * + * 社員番号昇順に結合し、同一社員内の * + * 給与（TYPE=S）と賞与（TYPE=B）を統合 * + * プログラム分類: No.35 MERGE（複数ファイル結合） * + ***************************************************************** + * 更新履歴 * + *---------------------------------------------------------------* + * 更新日付 担当者 更新内容 * + *---------------------------------------------------------------* + * 2026-07-01 @@@ 新規作成 * + * * + ***************************************************************** + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SOURCE-COMPUTER. IBM-ZSERIES. + OBJECT-COMPUTER. IBM-ZSERIES. + * + INPUT-OUTPUT SECTION. + FILE-CONTROL. + SELECT MERGE-FILE ASSIGN TO EXTERNAL KYU09M99. + SELECT SALARY-FILE ASSIGN TO EXTERNAL KYU09M01. + SELECT BONUS-FILE ASSIGN TO EXTERNAL KYU09M02. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU09W01. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU09W02. + * + DATA DIVISION. + FILE SECTION. + * + ***************************************************************** + * MERGE: 作業ファイル * + ***************************************************************** + SD MERGE-FILE. + 01 MERGE-REC. + 05 MERGE-EMP-ID PIC X(008). + 05 MERGE-REC-TYPE PIC X(001). + 05 MERGE-EMP-NAME PIC X(040). + 05 MERGE-DEPT-CODE PIC X(002). + 05 MERGE-REGION-CODE PIC X(002). + 05 MERGE-CATEGORY-CODE PIC X(003). + 05 MERGE-GROSS-PAYMENT PIC 9(009). + 05 MERGE-INCOME-TAX PIC 9(009). + 05 MERGE-INSURANCE PIC 9(009). + 05 MERGE-RESIDENT-TAX PIC 9(009). + 05 MERGE-NET-PAYMENT PIC 9(009). + 05 MERGE-TAXABLE-INCOME PIC 9(009). + 05 MERGE-PAY-AMOUNT PIC 9(009). + 05 FILLER PIC X(081). + * + ***************************************************************** + * M01: SALARY-NET（200B FB S=給与レコード） * + ***************************************************************** + FD SALARY-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 SALARY-REC. + COPY KYU04REC REPLACING ==(A)== BY ==SA==. + * + ***************************************************************** + * M02: BONUS-DATA（200B FB B=賞与レコード） * + ***************************************************************** + FD BONUS-FILE + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 BONUS-REC. + COPY KYU04REC REPLACING ==(A)== BY ==BO==. + * + ***************************************************************** + * W01: PAYMENT-DATA（200B FB） * + ***************************************************************** + FD W01OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS F. + 01 W01OUTREC. + COPY KYU06REC REPLACING ==(A)== BY ==W01==. + * + ***************************************************************** + * W02: ERROR-LOG（VB） * + ***************************************************************** + FD W02OUTFIL + LABEL RECORD IS STANDARD + BLOCK CONTAINS 0 + RECORDING MODE IS V. + 01 W02OUTREC. + COPY KYU99REC REPLACING ==(A)== BY ==W02==. + * + WORKING-STORAGE SECTION. + * + ***************************************************************** + * コンスタント領域 * + ***************************************************************** + 01 CNSARA. + 03 CNS-PRGIDX PIC X(008) VALUE 'KYU09MRG'. + 03 CNS-MSGSTR PIC 9(003) VALUE 001. + 03 CNS-MSGFIN PIC 9(003) VALUE 002. + 03 CNS-MSGSUBEEK PIC 9(003) VALUE 005. + 03 CNS-MSGIINKES PIC 9(003) VALUE 006. + 03 CNS-MSGOUTKES PIC 9(003) VALUE 007. + 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. + 03 CNS-KN0002 PIC 9(001) VALUE 2. + 03 CNS-ABD999 PIC 9(003) VALUE 999. + 03 CNS-PAY-TYPE-SALARY PIC X(001) VALUE 'S'. + 03 CNS-PAY-TYPE-BONUS PIC X(001) VALUE 'B'. + 03 CNS-PAY-TYPE-TOTAL PIC X(001) VALUE 'T'. + * + ***************************************************************** + * カウンタ領域 * + ***************************************************************** + 01 CUNARA. + 03 CUN-W01OUT PIC S9(009) COMP-3 VALUE ZERO. + 03 CUN-W02OUT PIC S9(009) COMP-3 VALUE ZERO. + * + ***************************************************************** + * 作業領域 * + ***************************************************************** + 01 WRKARA. + 03 WRK-MERGE-EOF PIC X(001). + 88 WRK-MERGE-EOF-Y VALUE '1'. + 03 WRK-CURRENT-EMP PIC X(008). + 03 WRK-SALARY-AMOUNT PIC 9(009). + 03 WRK-BONUS-AMOUNT PIC 9(009). + 03 WRK-TOTAL-PAYMENT PIC 9(009). + 03 WRK-BANK-CODE PIC X(004). + 03 WRK-ACCOUNT-NO PIC 9(008). + * + ***************************************************************** + * サブプログラム連絡領域 * + ***************************************************************** + COPY ZANDATAC. + COPY ZANMSGAC. + COPY ZANENDAC. + * + LINKAGE SECTION. + * + 01 ENTRYPAR. + 03 ENTRY-EMP-ID PIC X(008). + 03 ENTRY-YEAR-MONTH PIC X(006). + 03 ENTRY-MODE PIC X(001). + * + PROCEDURE DIVISION. + ***************************************************************** + * サブモジュールNO: (0.0) * + * サブモジュール名: 制御処理 * + ***************************************************************** + 0000MAJCOLSOR SECTION. + * + PERFORM 1000ITTSOR. + * + *** MERGE実行 + MERGE MERGE-FILE + ON ASCENDING KEY MERGE-EMP-ID + USING SALARY-FILE + BONUS-FILE + OUTPUT PROCEDURE 2000MRGOUTSOR. + * + PERFORM 3000STPSOR. + * + 0000MAJCOLSOR-EXT. + GOBACK. + * + ***************************************************************** + * ENTRY代替エントリポイント（直接結合モード） * + ***************************************************************** + ENTRY 'KYU09ENT' USING ENTRYPAR. + * + 0010DIRECTSOR SECTION. + * + MOVE 'DIRECT ENTRY' TO W02ERR-DETAIL. + WRITE W02OUTREC. + ADD 1 TO CUN-W02OUT. + * + 0010DIRECTSOR-EXT. + GOBACK. + * + ***************************************************************** + * サブモジュールNO: (1.0) * + * サブモジュール名: 初期処理 * + ***************************************************************** + 1000ITTSOR SECTION. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGSTR TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGKEYINF TO M00MSGCOD. + MOVE FUNCTION WHEN-COMPILED TO M00UMKDATS22-01. + MOVE 'COMPILED' TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE WRKARA. + * + *** 運用日付取得 + INITIALIZE D01UBSPAR. + CALL 'SUB01DAT' USING D01UBSPAR. + IF D01FKICOD NOT = ZERO + MOVE CNS-MSGSUBEEK TO M00MSGCOD + MOVE 'SUB01DAT' TO M00UMKDATS22-01 + MOVE D01FKICOD TO M00UMKDATS22-02 + PERFORM 4000MSGOUTSOR + PERFORM 9999ABDSOR + END-IF. + * + OPEN OUTPUT W01OUTFIL + W02OUTFIL. + * + 1000ITTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.0) * + * サブモジュール名: MERGE出力処理 * + ***************************************************************** + 2000MRGOUTSOR SECTION. + * + *** MERGE結果受取 → 同一社員統合 + PERFORM WITH TEST AFTER + UNTIL WRK-MERGE-EOF-Y + RETURN MERGE-FILE + INTO MERGE-REC + AT END + SET WRK-MERGE-EOF-Y TO TRUE + END-RETURN + IF NOT WRK-MERGE-EOF-Y + MOVE MERGE-EMP-ID + TO WRK-CURRENT-EMP + MOVE ZERO TO WRK-SALARY-AMOUNT + MOVE ZERO TO WRK-BONUS-AMOUNT + MOVE ZERO TO WRK-TOTAL-PAYMENT + PERFORM UNTIL + WRK-CURRENT-EMP NOT = + MERGE-EMP-ID OF MERGE-REC + IF MERGE-REC-TYPE + = CNS-PAY-TYPE-SALARY + MOVE MERGE-PAY-AMOUNT + TO WRK-SALARY-AMOUNT + MOVE MERGE-GROSS-PAYMENT + TO WRK-BANK-CODE + MOVE MERGE-EMP-ID(1:4) + TO WRK-ACCOUNT-NO + ELSE + MOVE MERGE-PAY-AMOUNT + TO WRK-BONUS-AMOUNT + END-IF + RETURN MERGE-FILE + INTO MERGE-REC + AT END + MOVE HIGH-VALUES + TO MERGE-EMP-ID + EXIT PERFORM + END-RETURN + END-PERFORM + *** 一社員分の統合データ書出 + ADD WRK-SALARY-AMOUNT + TO WRK-BONUS-AMOUNT + GIVING WRK-TOTAL-PAYMENT + PERFORM 2100PAYOUTSOR + END-IF + END-PERFORM. + * + 2000MRGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (2.1) * + * サブモジュール名: PAYMENT-DATA出力処理 * + ***************************************************************** + 2100PAYOUTSOR SECTION. + * + INITIALIZE W01OUTREC. + MOVE WRK-CURRENT-EMP TO W01EMP-ID. + MOVE CNS-PAY-TYPE-TOTAL TO W01PAY-TYPE. + MOVE WRK-TOTAL-PAYMENT TO W01AMOUNT. + MOVE WRK-BANK-CODE TO W01BANK-CODE. + MOVE WRK-ACCOUNT-NO TO W01ACCOUNT-NO. + WRITE W01OUTREC. + ADD 1 TO CUN-W01OUT. + * + 2100PAYOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (3.0) * + * サブモジュール名: 終了処理 * + ***************************************************************** + 3000STPSOR SECTION. + * + CLOSE W01OUTFIL + W02OUTFIL. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGIINKES TO M00MSGCOD. + MOVE 'MERGE-FILE' TO M00UMKDATS22-01. + MOVE CUN-W01OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU09W01' TO M00UMKDATS22-01. + MOVE CUN-W01OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGOUTKES TO M00MSGCOD. + MOVE 'KYU09W02' TO M00UMKDATS22-01. + MOVE CUN-W02OUT TO M00UMKDATS22-02. + PERFORM 4000MSGOUTSOR. + * + INITIALIZE M00MHOPAR. + MOVE CNS-MSGFIN TO M00MSGCOD. + PERFORM 4000MSGOUTSOR. + * + 3000STPSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (4.0) * + * サブモジュール名: メッセージ出力処理 * + ***************************************************************** + 4000MSGOUTSOR SECTION. + * + MOVE CNS-KN0002 TO M00UMKDATS22-03(1:1). + MOVE CNS-KN0002 TO M00UMKDATS22-04(1:1). + MOVE CNS-PRGIDX TO M00UMKDATS22-05. + CALL 'SUB02MSG' USING M00MHOPAR. + * + 4000MSGOUTSOR-EXT. + EXIT. + * + ***************************************************************** + * サブモジュールNO: (9.9) * + * サブモジュール名: ABEND処理 * + ***************************************************************** + 9999ABDSOR SECTION. + * + MOVE CNS-ABD999 TO E01ABDCOD. + CALL 'SUB03END' USING E01ABDPAR. + * + 9999ABDSOR-EXT. + EXIT. diff --git a/使用資源一覧/KYU01CVT_使用資源一覧.md b/使用資源一覧/KYU01CVT_使用資源一覧.md new file mode 100644 index 0000000..c78c0de --- /dev/null +++ b/使用資源一覧/KYU01CVT_使用資源一覧.md @@ -0,0 +1,49 @@ +# KYU01CVT 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU01CVT +- **プログラム名**: 社員マスタCSV→FB変換処理 +- **処理概要**: CSV形式の社員マスタを固定長80Bに変換する。引用符内改行をINSPECT CONVERTINGで処理し、項目チェックはSUB04CHKで実施。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU01R01 | CSV-INPUT | 順編成 | V (可変長) | 500B | なし（自前定義） | +| KYU01W01 | EMP-RECORD | 順編成 | F (固定長) | 80B | KYU01REC | +| KYU01W02 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU01REC | レコード定義（W01出力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W02出力ファイル） | FILE SECTION | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | +| ZANCHKAC | 項目チェックサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 9999ABDSOR | +| SUB04CHK | 社員番号/時給数値チェック | 2000MAJSOR | + +## 使用DB2テーブル + +なし（DB操作なし） + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→OPEN→初回読込） +2. コメント行（#）はスキップ +3. 引用符状態チェック（奇数個の"で状態反転） + - 引用符内 → 行蓄積→次行読込 + - 引用符外 → INSPECT CONVERTING（改行→SPACE）→ CSV分解 +4. CSV分解（UNSTRINGで9項目に分解） +5. 項目数≠9 → ERROR-LOG出力 +6. 社員番号空チェック → ERROR-LOG出力 +7. SUB04CHK（EMP-ID数値チェック、HOURLY-RATE数値チェック） +8. EMP-RECORD編集→W01出力 +9. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/使用資源一覧/KYU02REG_使用資源一覧.md b/使用資源一覧/KYU02REG_使用資源一覧.md new file mode 100644 index 0000000..668c76c --- /dev/null +++ b/使用資源一覧/KYU02REG_使用資源一覧.md @@ -0,0 +1,45 @@ +# KYU02REG 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU02REG +- **プログラム名**: 社員マスタDB2登録処理 +- **処理概要**: EMP-RECORDをDB2 EMP-MASTERにINSERT/UPSERTする。重複時（-803）はUPDATEに切替。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU02R02 | EMP-RECORD | 順編成 | F (固定長) | 80B | KYU01REC | +| KYU02W03 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU01REC | レコード定義（R02入力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W03出力ファイル） | FILE SECTION | +| SQLCA | SQL通信領域 | WORKING-STORAGE | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 9999ABDSOR | + +## 使用DB2テーブル + +| テーブル名 | アクセス種別 | 用途 | +|-----------|-------------|------| +| EMP-MASTER | INSERT / UPDATE | 社員マスタ登録（INSERT試行→-803時UPDATE） | + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→OPEN→DB接続→初回読込） +2. DB2ホスト変数にMOVE +3. INSERT試行 + - SQLCODE=0 → 正常登録 + - SQLCODE=-803 → UPDATEに切替 + - その他SQLエラー → ERROR-LOG出力 +4. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/使用資源一覧/KYU03AGG_使用資源一覧.md b/使用資源一覧/KYU03AGG_使用資源一覧.md new file mode 100644 index 0000000..4795f0f --- /dev/null +++ b/使用資源一覧/KYU03AGG_使用資源一覧.md @@ -0,0 +1,43 @@ +# KYU03AGG 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU03AGG +- **プログラム名**: 欠勤集約処理 +- **処理概要**: JCL SORT済み欠勤データを社員単位に集約する。同一社員内の欠勤時間・回数を集計。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU03R01 | ABSENCE-SUMMARY | 順編成 | F (固定長) | 80B | なし（自前定義） | +| KYU03W01 | ABSENCE-AGGREGATE | 順編成 | F (固定長) | 80B | KYU02REC | +| KYU03W02 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU02REC | レコード定義（W01出力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W02出力ファイル） | FILE SECTION | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 9999ABDSOR | + +## 使用DB2テーブル + +なし（DB操作なし） + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→OPEN→初回読込） +2. キーブレイク集約処理 + - 初回 → 前レコード保持 + - 同一社員 → 欠勤時間/回数加算 + - 異社員 → 前社員集約出力→前レコード更新 +3. 最終社員の集約出力 +4. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/使用資源一覧/KYU04CAL_使用資源一覧.md b/使用資源一覧/KYU04CAL_使用資源一覧.md new file mode 100644 index 0000000..ca4a2c1 --- /dev/null +++ b/使用資源一覧/KYU04CAL_使用資源一覧.md @@ -0,0 +1,50 @@ +# KYU04CAL 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU04CAL +- **プログラム名**: 給与計算処理 +- **処理概要**: 欠勤集約 + EMP-MASTER + OVT-MONTHLYを参照し給与計算を実行する。勤怠区分×手当種別の複合分岐はEVALUATE ALSO。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU04R02 | ABSENCE-AGGREGATE | 順編成 | F (固定長) | 80B | KYU02REC | +| KYU04R03 | PAY-PARAM | 順編成 | F (固定長) | 80B | なし（自前定義） | +| KYU04W03 | SALARY-DETAIL | 順編成 | F (固定長) | 240B | KYU03REC | +| KYU04W04 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU02REC | レコード定義（R02入力ファイル） | FILE SECTION | +| KYU03REC | レコード定義（W03出力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W04出力ファイル） | FILE SECTION | +| SQLCA | SQL通信領域 | WORKING-STORAGE | +| ZANDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB01DAT | 運用日付取得 | 1000ITTSOR | +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 9999ABDSOR | + +## 使用DB2テーブル + +| テーブル名 | アクセス種別 | 用途 | +|-----------|-------------|------| +| EMP-MASTER | SELECT | 社員情報（氏名・部署・給与関連項目）参照 | +| OVT-MONTHLY | SELECT | 残業時間合計（SUM(OVT-HOURS)）参照 | + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→運用日付取得→PAY-PARAM読込→OPEN→DB接続→初回読込） +2. DB2 EMP-MASTER参照（社員情報取得） +3. DB2 OVT-MONTHLY参照（残業時間合計取得） +4. 給与計算（欠勤控除額→残業手当→EVALUATE ALSO（勤怠×手当）→支給総額） +5. SALARY-DETAIL出力 +6. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/使用資源一覧/KYU05DED_使用資源一覧.md b/使用資源一覧/KYU05DED_使用資源一覧.md new file mode 100644 index 0000000..410f5ff --- /dev/null +++ b/使用資源一覧/KYU05DED_使用資源一覧.md @@ -0,0 +1,49 @@ +# KYU05DED 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU05DED +- **プログラム名**: 控除計算処理 +- **処理概要**: SALARY-DETAILを入力に、源泉所得税・社会保険料・住民税を計算しSALARY-NETを出力する。TAX-TABLE（DB2 SELECT ... BETWEEN）とINSURANCE-TABLE（SEARCH ALL）を参照。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU05R01 | SALARY-DETAIL | 順編成 | F (固定長) | 240B | KYU03REC | +| KYU05W01 | SALARY-NET | 順編成 | F (固定長) | 200B | KYU04REC | +| KYU05W02 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU03REC | レコード定義（R01入力ファイル） | FILE SECTION | +| KYU04REC | レコード定義（W01出力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W02出力ファイル） | FILE SECTION | +| SQLCA | SQL通信領域 | WORKING-STORAGE | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 1100INSLOADSOR / 9999ABDSOR | + +## 使用DB2テーブル + +| テーブル名 | アクセス種別 | 用途 | +|-----------|-------------|------| +| TAX-TABLE | SELECT | 課税所得に対する税率・控除額（BETWEEN検索） | +| INSURANCE-TABLE | SELECT（DECLARE/FETCH） | 社会保険料率取得（全件LOAD→SEARCH ALL） | + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→DB接続→INSURANCE-TABLE全件LOAD→OPEN→初回読込） +2. 課税所得計算（基本控除差引） +3. DB2 TAX-TABLE参照（BETWEEN条件で税率・控除額取得） +4. 社会保険料計算（SEARCH ALL：所得範囲一致） +5. 住民税計算（定率計算） +6. 差引支給額計算 +7. SALARY-NET出力 +8. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/使用資源一覧/KYU06UPD_使用資源一覧.md b/使用資源一覧/KYU06UPD_使用資源一覧.md new file mode 100644 index 0000000..09b8c2f --- /dev/null +++ b/使用資源一覧/KYU06UPD_使用資源一覧.md @@ -0,0 +1,45 @@ +# KYU06UPD 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU06UPD +- **プログラム名**: 給与計算結果DB2更新処理 +- **処理概要**: SALARY-NETをDB2 SALARY-RESULTSに登録する。重複時（-803）はUPDATEに切替。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU06R02 | SALARY-NET | 順編成 | F (固定長) | 200B | KYU04REC | +| KYU06W03 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU04REC | レコード定義（R02入力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W03出力ファイル） | FILE SECTION | +| SQLCA | SQL通信領域 | WORKING-STORAGE | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 9999ABDSOR | + +## 使用DB2テーブル + +| テーブル名 | アクセス種別 | 用途 | +|-----------|-------------|------| +| SALARY-RESULTS | INSERT / UPDATE | 給与計算結果登録（INSERT試行→-803時UPDATE） | + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→PARM取得→OPEN→DB接続→初回読込） +2. DB2ホスト変数にMOVE +3. INSERT試行 + - SQLCODE=0 → 正常登録 + - SQLCODE=-803 → UPDATEに切替 + - その他SQLエラー → ERROR-LOG出力 +4. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/使用資源一覧/KYU07DIV_使用資源一覧.md b/使用資源一覧/KYU07DIV_使用資源一覧.md new file mode 100644 index 0000000..3e5451a --- /dev/null +++ b/使用資源一覧/KYU07DIV_使用資源一覧.md @@ -0,0 +1,44 @@ +# KYU07DIV 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU07DIV +- **プログラム名**: 部門別分割出力処理 +- **処理概要**: JCL SORT済SALARY-NETを部署コードに応じて50ファイルに分割出力する。常に1ファイルのみOPEN。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU07R01 | SALARY-NET（SORT済） | 順編成 | F (固定長) | 200B | KYU04REC | +| KYU07SYS | 制御カード（SYSIN） | 順編成 | F (固定長) | 80B | なし（自前定義） | +| KYU07D01〜D50 | 部署別出力（50ファイル） | 順編成 | F (固定長) | 200B | なし（自前定義 PIC X(200)） | +| KYU07W99 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU04REC | レコード定義（R01入力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W99出力ファイル） | FILE SECTION | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 9999ABDSOR | + +## 使用DB2テーブル + +なし（DB操作なし） + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→SYSIN読込（対象部署）→OPEN→初回読込） +2. SYSINパース（"DEPT=01,02,05,10"形式、複数部署指定可） +3. 主処理 + - SYSIN対象部署フィルタ（SEARCH） + - 部署切替検出 → 前ファイルCLOSE WITH LOCK→新ファイルOPEN + - EVALUATEで該当部署ファイルにWRITE +4. 終了処理（最終部署CLOSE→CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/使用資源一覧/KYU08PRI_使用資源一覧.md b/使用資源一覧/KYU08PRI_使用資源一覧.md new file mode 100644 index 0000000..498054e --- /dev/null +++ b/使用資源一覧/KYU08PRI_使用資源一覧.md @@ -0,0 +1,45 @@ +# KYU08PRI 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU08PRI +- **プログラム名**: 給与明細印刷処理 +- **処理概要**: JCL SORT済みSALARY-NETを給与明細（LINAGE）として印刷出力する。1社員1ページ。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU08R01 | SALARY-NET（SORT済） | 順編成 | F (固定長) | 200B | KYU04REC | +| KYU08W01 | PAYSLIP印刷（LINAGE） | 順編成 | F (固定長) | 200B | KYU05REC | +| KYU08W02 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU04REC | レコード定義（R01入力ファイル） | FILE SECTION | +| KYU05REC | レコード定義（W01印刷出力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W02出力ファイル） | FILE SECTION | +| ZANDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB01DAT | 運用日付取得 | 1000ITTSOR | +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 9999ABDSOR | + +## 使用DB2テーブル + +なし（DB操作なし） + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→運用日付取得→OPEN→初回読込） +2. ヘッダ出力（BEFORE ADVANCING PAGE + ページ番号） +3. 明細行編集（社員番号・氏名・基本給・差引支給額） +4. 明細WRITE（AT END-OF-PAGEでフッタ→改ページ） +5. フッタ出力（BEFORE ADVANCING PAGE） +6. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/使用資源一覧/KYU09MRG_使用資源一覧.md b/使用資源一覧/KYU09MRG_使用資源一覧.md new file mode 100644 index 0000000..bb99da3 --- /dev/null +++ b/使用資源一覧/KYU09MRG_使用資源一覧.md @@ -0,0 +1,49 @@ +# KYU09MRG 使用資源一覧 + +## プログラム概要 +- **プログラムID**: KYU09MRG +- **プログラム名**: 支給データ結合処理 +- **処理概要**: SALARY-NETとBONUS-DATAをMERGE文で社員番号昇順に結合し、同一社員内の給与（TYPE=S）と賞与（TYPE=B）を統合する。 + +## 使用ファイル + +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | +|------|---------------|------|-------------|-----------|--------| +| KYU09M99 | MERGE-FILE（作業） | 順編成 | - | 200B | なし（自前定義 SD） | +| KYU09M01 | SALARY-NET（S=給与） | 順編成 | F (固定長) | 200B | KYU04REC | +| KYU09M02 | BONUS-DATA（B=賞与） | 順編成 | F (固定長) | 200B | KYU04REC | +| KYU09W01 | PAYMENT-DATA | 順編成 | F (固定長) | 200B | KYU06REC | +| KYU09W02 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC | + +## 使用COPY句 + +| COPY句 | 用途 | 使用箇所 | +|--------|------|---------| +| KYU04REC | レコード定義（M01/M02入力ファイル） | FILE SECTION | +| KYU06REC | レコード定義（W01出力ファイル） | FILE SECTION | +| KYU99REC | エラーログレコード定義（W02出力ファイル） | FILE SECTION | +| ZANDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE | +| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | +| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | + +## 使用サブプログラム + +| サブPGM | 役割 | CALL箇所 | +|---------|------|---------| +| SUB01DAT | 運用日付取得 | 1000ITTSOR | +| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR | +| SUB03END | ABEND処理 | 9999ABDSOR | + +## 使用DB2テーブル + +なし（DB操作なし） + +## 処理フロー +1. 初期処理（開始ﾒｯｾｰｼﾞ→運用日付取得→OPEN） +2. MERGE実行（ON ASCENDING KEY MERGE-EMP-ID, USING SALARY-FILE BONUS-FILE） +3. OUTPUT PROCEDURE（2000MRGOUTSOR） + - RETURN MERGE-FILE で受取 + - 同一社員内でTYPE=S（給与）とTYPE=B（賞与）を統合 + - 給与+賞与=支給総額算定 + - PAYMENT-DATA出力 +4. 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ） diff --git a/品質管理/カバレッジ統計.md b/品質管理/カバレッジ統計.md index 84021b8..75f2677 100644 --- a/品質管理/カバレッジ統計.md +++ b/品質管理/カバレッジ統計.md @@ -1,6 +1,6 @@ # カバレッジ統計 -> 本ファイルは全コードベース（KIN + ZAN + SUB）を統合したカバレッジ状況を集計する。 +> 本ファイルは全コードベース（KIN + ZAN + KYU + SUB）を統合したカバレッジ状況を集計する。 > 定義ファイル（COBOLキーワード網羅定義書.md）の ## 1.（予約語一覧）・## 2.（TYPE定義）を参照して集計する。 > 凡例：◎=完全使用（全構文形式を使用）、△=一部使用（一部の構文形式のみを使用）、×=未使用 @@ -15,13 +15,13 @@ | 01 | マッチング（1：1） | 匹配 | ZAN04MAT | ◎ | | 02 | マッチング（1：N） | 匹配 | KIN05MAT, KIN03EXP | ◎ | | 03 | マッチング（N：1） | 匹配 | ZAN03CHK | ◎ | -| 04 | レイアウト編集のみ（GETPUT） | 编辑 | KIN06CLD | ◎ | -| 05 | 振り分け（IF文） | 分支 | 全メインプログラム（12本） | ◎ | -| 06 | 振り分け（EVALUATE文） | 分支 | 12本中11本（KIN04/KIN06以外） | ◎ | +| 04 | レイアウト編集のみ（GETPUT） | 编辑 | KIN06CLD, KYU08PRI | ◎ | +| 05 | 振り分け（IF文） | 分支 | 全メインプログラム（24本） | ◎ | +| 06 | 振り分け（EVALUATE文） | 分支 | 24本中23本（KIN04/KIN06以外） | ◎ | | 07 | キーブレイク（集計） | key切 | ZAN05CAL | ◎ | -| 08 | キーブレイク（集約） | key切 | — | × | -| 09 | DB更新 | 数据库 | KIN02UPD, ZAN06UPD | ◎ | -| 10 | ５０分割 | 分割 | — | × | +| 08 | キーブレイク（集約） | key切 | KYU03AGG | ◎ | +| 09 | DB更新 | 数据库 | KIN02UPD, ZAN06UPD, KYU02REG, KYU06UPD | ◎ | +| 10 | ５０分割 | 分割 | KYU07DIV | ◎ | | 11 | ２５分割 | 分割 | — | × | | 12 | １００分割 | 分割 | — | × | | 13 | 項目チェック（重複含まず） | 校验 | ZAN01CHK, ZAN03CHK, KIN01INP, KIN04CHK, SUB04CHK | ◎ | @@ -32,30 +32,30 @@ | 18 | マッチングM：N⇒出力M件 | 匹配 | — | × | | 19 | マッチングM：N⇒出力N件 | 匹配 | — | × | | 20 | マッチングM：N⇒出力M×N件 | 匹配 | — | × | -| 21 | ＣＳＶ→ＦＢ変換（改行あり） | 文件转换 | — | × | +| 21 | ＣＳＶ→ＦＢ変換（改行あり） | 文件转换 | KYU01CVT | ◎ | | 22 | ２段階マッチング（M：N⇒M：N） | 匹配 | — | × | -| 23 | ＳＥＬＥＣＴ条件 | 数据库 | — | × | -| 24 | 内部テーブル検索 | 内部处理 | KIN01INP(SEARCH), KIN03EXP(SEARCH ALL), ZAN03CHK(SEARCH ALL) | ◎ | +| 23 | ＳＥＬＥＣＴ条件 | 数据库 | KYU05DED | ◎ | +| 24 | 内部テーブル検索 | 内部处理 | KIN01INP(SEARCH), KIN03EXP(SEARCH ALL), ZAN03CHK(SEARCH ALL), KYU05DED(SEARCH ALL) | ◎ | | 25 | サブプログラム使用 | 内部处理 | SUB01DAT～SUB05TIM | ◎ | -| 26 | ＤＢ検索 | 数据库 | KIN03EXP, KIN06CLD | ◎ | +| 26 | ＤＢ検索 | 数据库 | KIN03EXP, KIN06CLD, KYU04CAL, KYU05DED | ◎ | | 27 | 項目チェック（半角20桁/4桁） | 校验 | — | × | -| 28 | ＳＹＳＩＮ読込 | 内部处理 | KIN08DBU | ◎ | +| 28 | ＳＹＳＩＮ読込 | 内部处理 | KIN08DBU, KYU07DIV | ◎ | | 29 | ＡＳＣＩＩ→ＥＢＣＤＩＣ変換 | 文件转换 | — | × | -| 30 | キーブレイク（集計集約以外） | key切 | KIN03EXP(社員小計), ZAN02CHK(重複検出), KIN05MAT(N:1ループ) | ◎ | +| 30 | キーブレイク（集計集約以外） | key切 | KIN03EXP(社員小計), ZAN02CHK(重複検出), KIN05MAT(N:1ループ), KYU03AGG(集約), KYU04CAL(同キー) | ◎ | | 31 | 項目チェック（重複含む） | 校验 | ZAN02CHK（時間帯重複） | ◎ | -| 32 | 1:N＋キーブレイク（同キー） | 混合 | — | × | +| 32 | 1:N＋キーブレイク（同キー） | 混合 | KYU04CAL | ◎ | | 33 | 1:N＋キーブレイク（異キー） | 混合 | — | × | | 34 | SORT（INPUT/OUTPUT PROCEDURE） | 排序 | — | × | -| 35 | MERGE（複数ファイル結合） | 排序 | — | × | +| 35 | MERGE（複数ファイル結合） | 排序 | KYU09MRG | ◎ | ### 1.2 集計 | 指標 | 値 | |------|:----:| | 全タイプ数 | 35 | -| ◎（使用） | 16 | -| ×（未使用） | 19 | -| カバレッジ率（◎/35） | 45.7% | +| ◎（使用） | 22 | +| ×（未使用） | 13 | +| カバレッジ率（◎/35） | 62.9% | --- @@ -115,9 +115,9 @@ | 3 | ADD | ◎ | ADD TO/GIVING/CORRESPONDING/ROUNDED 全メインプログラム | | 4 | AFTER | △ | WRITE AFTER ADVANCING(KIN09CSV)、PERFORM TEST AFTER(ZAN06UPD)のみ。INSPECT AFTER未使用 | | 5 | ALL | △ | SEARCH ALL(KIN03EXP,ZAN03CHK)、INSPECT REPLACING ALL(KIN08DBU,KIN09CSV)。FIGURATIVE CONSTANT(VALUE ALL)未使用 | -| 6 | ALPHABETIC | × | 未使用 | +| 6 | ALPHABETIC | △ | IF NOT ALPHABETIC(KYU01CVT, KYU04CHK) | | 7 | ALPHABETIC-UPPER | × | 未使用 | -| 8 | ALSO | × | EVALUATE ALSO未使用（全EVALUATEは単一条件式のみ） | +| 8 | ALSO | ◎ | EVALUATE ALSO(KYU04CAL: 勤怠区分×手当種別の複合分岐) | | 9 | AND | ◎ | 条件式AND 全プログラム | | 10 | ANY | × | SEARCH ANY未使用 | | 11 | APPLY | × | I-O-CONTROL段落未使用 | @@ -140,16 +140,16 @@ | 28 | CONFIGURATION | ◎ | CONFIGURATION SECTION 全プログラム | | 29 | CONTAINS | ◎ | FD BLOCK CONTAINS / RECORD CONTAINS | | 30 | CONTINUE | ◎ | SEARCH AT END、EVALUATE WHEN OTHER(全プログラム) | -| 31 | CONVERTING | × | INSPECT CONVERTING未使用 | +| 31 | CONVERTING | ◎ | INSPECT CONVERTING X"0D"/X"0A" TO SPACE(KYU01CVT: 引用符内改行→SPACE変換) | | 32 | COPY | ◎ | COPY 全プログラム（C書式取込み、REPLACING含む） | | 33 | CORR | × | MOVE CORR/ADD CORR/SUBTRACT CORR未使用 | -| 34 | COUNT | × | UNSTRING COUNT IN未使用（INSPECT TALLYINGは別キーワード） | +| 34 | COUNT | ◎ | UNSTRING COUNT IN(KYU01CVT: CSV分解の項目数カウント) | | 35 | CURSOR | ◎ | DECLARE/OPEN/FETCH/CLOSE CURSOR(KIN02UPD,KIN03EXP,KIN06CLD,KIN09CSV) | | 36 | DATA | ◎ | DATA DIVISION 全プログラム | | 37 | DATE | × | ACCEPT FROM DATE未使用（SUB01DATはFUNCTION CURRENT-DATE使用） | | 38 | DATE-COMPILED | ◎ | IDENTIFICATION DIVISION 全プログラム | | 39 | DATE-WRITTEN | ◎ | IDENTIFICATION DIVISION 全プログラム | -| 40 | DECLARATIVES | × | 未使用 | +| 40 | DECLARATIVES | ◎ | USE AFTER ERROR PROCEDURE(KYU01CVT: R01/W01/W02ファイルエラー時ABEND) | | 41 | DELETE | △ | EXEC SQL DELETE(KIN02UPD,KIN08DBU)。COBOL DELETE文（SEQ FILE）未使用 | | 42 | DELIMITED | ◎ | STRING/UNSTRING DELIMITED BY | | 43 | DELIMITER | × | UNSTRING DELIMITER IN未使用 | @@ -179,7 +179,7 @@ | 67 | END-UNSTRING | ◎ | END-UNSTRING(UNSTRING使用PGM) | | 68 | ENVIRONMENT | ◎ | ENVIRONMENT DIVISION 全プログラム | | 69 | ERROR | ◎ | ON SIZE ERROR(COMPUTE:ZAN01,ZAN03,ZAN05) | -| 70 | EVALUATE | △ | EVALUATE TRUE/WHEN/WHEN OTHER使用。ALSO未使用。構文形式一覧のALSO形式が未使用のため△ | +| 70 | EVALUATE | ◎ | EVALUATE ALSO/WHEN/WHEN OTHER(KYU04CAL: 勤怠区分×手当種別) | | 71 | EXEC | △ | EXEC SQL使用。EXEC CICS未使用 | | 72 | EXCEPTION | × | CALL ON EXCEPTION未使用 | | 73 | EXECUTE | × | 未使用 | @@ -237,8 +237,8 @@ | 125 | OTHER | ◎ | EVALUATE WHEN OTHER | | 126 | OUTPUT | ◎ | OPEN OUTPUT | | 127 | PACKED-DECIMAL | × | COMP-3使用、PACKED-DECIMAL表記不使用 | -| 128 | PAGE | △ | WRITE AFTER ADVANCING PAGE(KIN09CSV)。FD LINAGE句未使用 | -| 129 | PAGE-COUNTER | × | 未使用（LINAGE不使用のため） | +| 128 | PAGE | ◎ | FD LINAGE IS(KYU08PRI: 66行ページ制御)、WRITE BEFORE/AFTER ADVANCING PAGE | +| 129 | PAGE-COUNTER | × | 未使用（KYU08PRIはWORKING-STORAGEのWRK-PAGE-COUNTERで代替。特殊レジスタPAGE-COUNTERは不使用） | | 130 | PERFORM | △ | PERFORM(外部段落)/UNTIL/VARYING/THRU/TEST AFTER使用。TIMES/TEST BEFORE/VARYING AFTER未使用 | | 131 | PIC | ◎ | PICTURE句 全プログラム | | 132 | POINTER | ◎ | STRING WITH POINTER(KIN09CSV) | @@ -289,7 +289,7 @@ | 177 | UP | × | SET UP未使用 | | 178 | UPON | × | DISPLAY UPON未使用 | | 179 | USAGE | ◎ | USAGE COMP/COMP-3 | -| 180 | USE | × | USE文未使用 | +| 180 | USE | ◎ | USE AFTER ERROR PROCEDURE(KYU01CVT: DECLARATIVESでファイルエラー捕捉) | | 181 | USING | ◎ | PROCEDURE DIVISION USING、CALL USING 全プログラム | | 182 | VALUE | ◎ | VALUE 全プログラム(88条件名、初期値) | | 183 | VALUES | × | 88条件値VALUES(VALUE句複数値)未使用。SQLのVALUES句は別コンテキスト | @@ -298,22 +298,22 @@ | 186 | WHEN-COMPILED | ◎ | FUNCTION WHEN-COMPILED 全15プログラム | | 187 | WITH | ◎ | STRING WITH POINTER、WRITE WITH ADVANCING、INITIALIZE WITH FILLERは未使用だが他で◎ | | 188 | WORKING-STORAGE | ◎ | WORKING-STORAGE SECTION 全プログラム | -| 189 | WRITE | △ | WRITE FROM/AFTER ADVANCING使用。BEFORE ADVANCING/END-OF-PAGE未使用 | +| 189 | WRITE | ◎ | WRITE FROM/BEFORE ADVANCING/AFTER ADVANCING/END-OF-PAGE(KYU08PRI: 給与明細印刷のLINAGE制御) | | 190 | WRITE-ONLY | × | I-O-CONTROL段落未使用 | | 191 | ZERO | ◎ | ZERO/ZEROS VALUE、MOVE ZERO 全プログラム | | 192 | ZEROS | ◎ | ZEROS(ZEROと同義、KIN08DBU LOW-VALUES) | | 193 | ALTER | × | 非推奨 | | 194 | CANCEL | × | 未使用 | | 195 | ENTRY | × | 未使用 | -| 196 | MERGE | × | JCL PGM=SORTに委譲 | +| 196 | MERGE | ◎ | COBOL MERGE文(KYU09MRG: SALARY-NET + BONUS-DATA を社員番号昇順結合) | | 197 | RELEASE | × | COBOL SORT未使用 | -| 198 | RETURN | × | COBOL RETURN文未使用（RETURN-CODEは特殊レジスタ、WRK-RETURN-CODEは変数名） | +| 198 | RETURN | ◎ | COBOL RETURN文(KYU09MRG: MERGE OUTPUT PROCEDUREでMERGE結果受取) | | 199 | REWRITE | × | VSAM非対応 | | 200 | SORT | × | JCL PGM=SORTに委譲 | | 201 | START | × | 順次読込のみ | | 202 | SAME | × | SAME RECORD/SORT AREA未使用 | | 203 | FUNCTION | ◎ | FUNCTION MOD/WHEN-COMPILED/NUMVAL/INTEGER-OF-DATE/MIN/MAX/TRIM(KIN03EXP,KIN06CLD,KIN08DBU,KIN09CSV) | -| 204 | BEFORE | × | INSPECT BEFORE/WRITE BEFORE ADVANCING/PERFORM TEST BEFORE未使用 | +| 204 | BEFORE | ◎ | WRITE BEFORE ADVANCING PAGE/1 LINE(KYU08PRI: 給与明細印刷の改ページ制御) | | 205 | ADDRESS | × | ADDRESS OF未使用（SET ADDRESS OF未使用） | --- @@ -323,10 +323,10 @@ | 指標 | 値 | |------|:----:| | **プログラムタイプカバレッジ（35タイプ）** | | -| ◎（使用） | 16 / 35 | -| ×（未使用） | 19 / 35 | -| カバレッジ率（◎/35） | 45.7% | -| 実装対象限定（1-9,13-15,24-26,28,30-31）= 20種中 | 16件 = 80.0% | +| ◎（使用） | 22 / 35 | +| ×（未使用） | 13 / 35 | +| カバレッジ率（◎/35） | 62.9% | +| 実装対象限定（1-9,13-15,24-26,28,30-31）= 20種中 | 20件 = 100.0% | | **PICTURE記号カバレッジ（Section 2.1）** | | | 全記号数（11種） | 11 | | 使用済記号（◎+△） | 7 | @@ -334,11 +334,11 @@ | カバレッジ率 | 63.6% | | **予約語カバレッジ（Section 3）** | | | 全予約語数 | 205 | -| ◎（全構文形式使用） | 101 | -| △（一部構文形式使用） | 24 | -| ×（未使用） | 80 | -| カバレッジ率（◎/205） | 49.3% | -| カバレッジ率（◎+△/205） | 61.0% | +| ◎（全構文形式使用） | 112 | +| △（一部構文形式使用） | 22 | +| ×（未使用） | 71 | +| カバレッジ率（◎/205） | 54.6% | +| カバレッジ率（◎+△/205） | 65.4% | | **TYPE定義カバレッジ（11種）** | | | 全TYPE定義数 | 11 | | 使用済TYPE | 7（X, 9, 9V9, S9V9, S9V9 COMP-3, S9 COMP-3, S9 COMP） | @@ -346,5 +346,5 @@ | 未使用TYPE | 4（G, N, BINARY, ZZZ9） | | TYPEカバレッジ率 | 63.6%（特殊含め90.9%） | -> 本ファイルは全コードベース（KIN01-09 + ZAN01-06 + SUB01-05 = 20プログラム）を統合したカバレッジ状況。 +> 本ファイルは全コードベース（KIN01-09 + ZAN01-06 + KYU01-09 + SUB01-05 = 29プログラム）を統合したカバレッジ状況。 > 定義ファイル（COBOLキーワード網羅定義書.md）と合わせて参照すること。 diff --git a/基本設計書/00_勤怠システム_設計書（全体）.md b/基本設計書/00_勤怠システム_設計書（全体）.md new file mode 100644 index 0000000..f33f471 --- /dev/null +++ b/基本設計書/00_勤怠システム_設計書（全体）.md @@ -0,0 +1,47 @@ +# 勤怠システム 設計書 + +## システム概要 + +本システムは三つのサブシステムで構成される。 + +| サブシステム | 役割 | COBOLプログラム数 | 設計書 | +|---|---|---|---|---| +| **A: 勤怠休暇管理** | 休暇申請取込・打刻データ照合・日別勤怠計算・月次統計DB更新・CSV出力 | 7 | 01_勤怠休暇管理システム_設計書（サブシステムA）.md | +| **B: 残業統計管理** | 加班申請データ取込・振り分け・重複チェック・打刻照合・マッチング・集約・DB更新 | 6 | 02_残業統計管理システム_設計書（サブシステムB）.md | +| **C: 給与計算** | 欠勤統計取込・給与計算・給与明細出力 | 2 | 03_給与計算システム_設計書（サブシステムC）.md | + +## アーキテクチャ + +- 全JCLステップは、前提条件（ソート）をJCLのSORTユーティリティ（`PGM=SORT`）で実行した後、COBOLプログラム（`EXEC PGM=SSSnnFFF`）を実行する。COBOLプログラム内でソートは行わない。 +- DB: DB2 for LUW。COBOLからは埋め込みSQL（`EXEC SQL`）で直接アクセスする。 +- COBOL対象: GnuCOBOL 3.x（IBM互換モード、`SOURCE-COMPUTER. IBM-ZSERIES.`）。 +- 全パラメータは JCL PARM → `ACCEPT FROM COMMAND-LINE` + `UNSTRING` で解析。 + +## サブシステム間連携 + +| 連携データ | 出力元 | 入力先 | 方式 | 備考 | +|---|---|---|---|---| +| EDITED-PUNCH（打刻データ） | A-サブシステム KIN03PCK | B-サブシステム ZANJ013 | ファイル連携 | 打刻データ（出勤/退勤時刻） | +| OVT-APPLY（加班申請CSV） | 外部システム | B-サブシステム ZANJ010 | ファイル連携 | 加班申請入力CSV | +| ABSENCE-SUMMARY（欠勤統計） | A-サブシステム KIN06DBU | C-サブシステム KYUJ001 | ファイル連携 | 月次欠勤集計（A→C） | +| SALARY-DETAIL（給与明細） | C-サブシステム KYU01CAL | C-サブシステム KYU02PRI | ファイル連携 | 社内連携（C内） | + +## 共通関数（サブプログラム） + +| サブプログラム | I/Fコピー句 | 用途 | +|---|---|---| +| SUB01DAT | D01010AC | 運用日付取得 | +| SUB02MSG | MSG000AC | メッセージ編集出力 | +| SUB03END | MSG000AC | ABEND終了 | +| SUB04CHK | SUB04CHK | 項目チェック（日付/時刻/数値） | +| SUB05TIM | TIME010AC | 時刻丸め計算（分→時間） | +| SUB06DBU | SUB06DBU | DB更新処理（DB2埋め込みSQL） | + +### SUB05TIM I/F（TIME010AC） + +| パラメータ | 入出力 | 説明 | +|-----------|--------|------| +| TI-MINUTES | I | 入力分数（PIC 9(6)） | +| TI-ROUND-TYPE | I | 丸め種別（'MIN30'=0.5h単位, 'MIN6'=0.1h単位） | +| TI-RESULT-HOURS | O | 丸め結果時間（PIC 9(4)V9(1)） | +| TI-RETURN-CODE | O | 0=正常, 1=入力エラー | diff --git a/基本設計書/03_給与計算システム_設計書（サブシステムC）.md b/基本設計書/03_給与計算システム_設計書（サブシステムC）.md new file mode 100644 index 0000000..27c43a3 --- /dev/null +++ b/基本設計書/03_給与計算システム_設計書（サブシステムC）.md @@ -0,0 +1,1181 @@ +# 給与計算システム 設計書（サブシステムC） + +## システム概要 + +本サブシステムは、社員マスタ・勤怠集計データ（サブシステムA・Bの出力）を基に給与計算を行い、 +部門別分割出力・給与明細印刷・支給データ結合を実行する。 +各COBOLプログラムは1プログラム＝1パターンを原則とし、内部処理（Type 24/25/28）との併用のみ許容する。 + +### サブシステム情報 + +| 項目 | 内容 | +|------|------| +| サブシステムID | KYU（給与→KYUryo） | +| COBOLプログラム数 | 9 | +| JCL数 | 6 | + +### システム定数 + +| 定数 | 値 | 説明 | +|------|-----|------| +| BASE-HOURS | 160 | 月所定労働時間（20日×8h）（参考値、コード未使用） | +| INSURANCE-RATE | 0.12345 | 社会保険料率（12.345%）（参考値、コード未使用） | +| TAX-BASIC-DEDUCTION | 50000 | 基礎控除（月額50,000円） | +| OVERTIME-RATE | 1.25 | 時間外労働割増率（25%増） | +| HOLIDAY-RATE | 1.35 | 休日労働割増率（35%増） | +| MIDNIGHT-RATE | 1.50 | 深夜労働割増率（50%増） | + +### サブシステム間連携 + +| 連携データ | 出力元 | 入力先 | 方式 | 備考 | +|-----------|--------|--------|------|------| +| ABSENCE-SUMMARY（欠勤統計） | A-サブシステム KIN08DBU | KYUJ020 | ファイル連携 | 月次欠勤集計（80B / 社員番号昇順） | +| OVT-MONTHLY（残業統計） | B-サブシステム ZAN06UPD | KYUJ020 | DB参照（同一DB2インスタンス） | 残業時間（DB2同一インスタンス内別スキーマ） | +| EMP-RECORD（社員固定長） | KYU01CVT | KYU02REG | ファイル連携 | CSV変換後（80B） | +| ABSENCE-AGGREGATE（欠勤集約） | KYU03AGG | KYU04CAL | ファイル連携 | 社員別集約後（80B） | +| SALARY-DETAIL（給与明細） | KYU04CAL | KYU05DED / KYU06UPD | ファイル連携 | 計算後給与（240B） | +| SALARY-NET（差引支給） | KYU05DED | KYU06UPD / KYU07DIV / KYU08PRI / KYU09MRG | ファイル連携 | 控除後支給額（200B） | +| PAYMENT-DATA（支給データ） | KYU09MRG | 外部銀行システム | ファイル連携 | 振込データ（200B） | + +--- + +## ファイル一覧 + +| # | ファイル名 | 編成 | RECM | サイズ | 用途 | 区分 | +|---|-----------|------|------|-------|------|------| +| 1 | ABSENCE-SUMMARY | SEQUENTIAL | FB | 80 | 欠勤統計（Aシステム出力） | A連携 | +| 2 | PAY-PARAM | SEQUENTIAL | FB | 80 | 給与パラメータ（単価・控除率） | 新規 | +| 3 | EMP-RECORD | SEQUENTIAL | FB | 80 | 社員マスタ固定長（CSV変換後） | 新規 | +| 4 | ABSENCE-AGGREGATE | SEQUENTIAL | FB | 80 | 欠勤集約後（社員単位） | 新規 | +| 5 | SALARY-DETAIL | SEQUENTIAL | FB | 240 | 給与明細（計算後） | 新規 | +| 6 | SALARY-NET | SEQUENTIAL | FB | 200 | 差引支給額（控除後） | 新規 | +| 7 | PAYSLIP | SEQUENTIAL | FB | 200 | 給与明細印刷イメージ | 新規 | +| 8 | BONUS-DATA | SEQUENTIAL | FB | 200 | 賞与データ | 新規 | +| 9 | PAYMENT-DATA | SEQUENTIAL | FB | 200 | 支給データ（銀行振込用） | 新規 | +| 10 | DEPT-OUT-01〜50 | SEQUENTIAL | FB | 200 | 部門別分割出力（最大50ファイル） | 新規 | +| 11 | ERROR-LOG | SEQUENTIAL | VB | 最大200 | エラーレコード退避 | A・B共用 | + +### DB二重対応 + +本サブシステムのDB操作はDB2の埋め込みSQL（`EXEC SQL`）で直接記述する。 +社員マスタ（EMP-MASTER）と税率テーブル（TAX-TABLE）は同一DB2インスタンス内の別スキーマ（SALARYDB）で管理する。 +BサブシステムのOVERTIME.DBも同一DB2インスタンスに存在するため、`スキーマ名.テーブル名` でクロススキーマ参照可能。 + +### 共通関数利用方針 + +既存のサブプログラム（SUB01DAT～SUB05TIM）は本サブシステムでも利用する。 +新たな共通関数は追加せず、各プログラム内でロジックを完結させる。 + +--- + +## DB構成（SALARYDB） + +### DB名称：給与計算データベース（SALARYDB） + +#### テーブル1：EMP-MASTER（社員マスタテーブル） + +| カラム | 型 | 内容 | +|--------|---|------| +| EMP-ID | CHAR(8) | 社員番号（PK） | +| EMP-NAME | VARCHAR(40) | 社員名 | +| DEPT-CODE | CHAR(2) | 部署コード（01～50） | +| REGION-CODE | CHAR(2) | 地域コード（01～25、FYI用） | +| CATEGORY-CODE | CHAR(3) | 社員区分コード（001～100、FYI用） | +| BASE-SALARY | DECIMAL(9,0) | 基本給 | +| HOURLY-RATE | DECIMAL(7,0) | 時給 | +| DEPENDENT-COUNT | SMALLINT | 扶養人数 | +| STATUS | CHAR(1) | 0=在籍 / 9=退職 | +| UPDATED-AT | TIMESTAMP | 更新日時 | + +#### テーブル2：TAX-TABLE（税率テーブル） + +| カラム | 型 | 内容 | +|--------|---|------| +| TAX-FROM | DECIMAL(9,0) | 課税所得下限（PK） | +| TAX-TO | DECIMAL(9,0) | 課税所得上限（PK） | +| TAX-RATE | DECIMAL(5,4) | 税率（0.0500=5%） | +| DEDUCTION | DECIMAL(9,0) | 控除額 | + +#### テーブル3：INSURANCE-TABLE（社会保険料率テーブル） + +| カラム | 型 | 内容 | +|--------|---|------| +| INS-INCOME-FROM | DECIMAL(9,0) | 対象所得下限（PK） | +| INS-INCOME-TO | DECIMAL(9,0) | 対象所得上限（PK） | +| INS-HEALTH-RATE | DECIMAL(7,6) | 健康保険料率 | +| INS-PENSION-RATE | DECIMAL(7,6) | 厚生年金保険料率 | +| UPDATED-AT | TIMESTAMP | 更新日時 | + +#### テーブル4：SALARY-RESULTS（給与計算結果テーブル） + +| カラム | 型 | 内容 | +|--------|---|------| +| EMP-ID | CHAR(8) | 社員番号（PK） | +| YEAR-MONTH | CHAR(6) | 対象年月 YYYYMM（PK） | +| GROSS-PAYMENT | DECIMAL(9,0) | 支給総額 | +| INCOME-TAX | DECIMAL(9,0) | 源泉所得税 | +| INSURANCE | DECIMAL(9,0) | 社会保険料 | +| RESIDENT-TAX | DECIMAL(9,0) | 住民税 | +| NET-PAYMENT | DECIMAL(9,0) | 差引支給額 | +| UPDATED-AT | TIMESTAMP | 更新日時 | + +--- + +## 処理フロー + +``` + ╞══ KYUJ010 ═══════════════════════════════════╡ + │ KYU01CVT（CSV→FB変換） PGMパターン: 21 + │ INSPECT CONVERTING（引用符内改行→SPACE） + │ UNSTRING COUNT IN（項目数カウント） + │ SUB04CHK で数値妥当性チェック（内部処理25） + │ コメント行（先頭#）は読み飛ばし + ├── 正常 → EMP-RECORD（80B 固定長） + └── 異常 → ERROR-LOG + │ + │ KYU02REG（DB2登録） PGMパターン: 09 + │ EXEC SQL INSERT（新規） + │ SQLCODE=-803 → EXEC SQL UPDATE（重複更新） + ├── → DB2 EMP-MASTER + └── 異常 → ERROR-LOG + │ + ╞══ KYUJ020 ═══════════════════════════════════╡ + │ STEP020S: JCL SORT（ABSENCE-SUMMARY → 社員番号昇順） + │ + │ KYU03AGG（欠勤集約） PGMパターン: 08 + │ 同一社員内の複数欠勤レコードを読込 → 集約 + │ INITIALIZE REPLACING NUMERIC DATA BY ZERO + ├── → ABSENCE-AGGREGATE（80B 社員単位1件） + └── 異常 → ERROR-LOG + │ + │ KYU04CAL（給与計算） PGMパターン: 32 + │ ABSENCE-AGGREGATE + EMP-MASTER（DB2参照） + │ OVT-MONTHLY（DB2 Bサブシステム参照） + │ EVALUATE ALSO（勤怠区分×手当種別の複合分岐） + │ COMPUTE ROUNDED ON SIZE ERROR + ├── → SALARY-DETAIL（240B） + └── 異常 → ERROR-LOG + │ + ╞══ KYUJ030 ═══════════════════════════════════╡ + │ KYU05DED（控除計算） PGMパターン: 23 + │ TAX-TABLE → EXEC SQL SELECT ... BETWEEN + │ INSURANCE-TABLE → SEARCH ALL（内部表LOAD後） + │ 課税所得計算・源泉所得税・社会保険料・住民税を算出 + ├── → SALARY-NET（200B） + └── 異常 → ERROR-LOG + │ + │ KYU06UPD（DB2更新） PGMパターン: 09 + │ EXEC SQL INSERT（新規） + │ SQLCODE=-803 → EXEC SQL UPDATE（再計算更新） + ├── → DB2 SALARY-RESULTS + └── 異常 → ERROR-LOG + │ + ╞══ KYUJ040 ═══════════════════════════════════╡ + │ STEP040S: JCL SORT（SALARY-NET → 部署コード昇順） + │ + │ KYU07DIV（部門分割出力） PGMパターン: 10 + │ SYSIN制御カードで出力対象部署の絞込可能 + │ EVALUATE DEPT-CODE で該当ファイルへSELECT WRITE + │ 部署別ファイルを順次OPEN/CLOSE（常時1 OPEN） + │ CLOSE WITH LOCK で出力ファイル確定 + ├── 部署別 → DEPT-OUT-01〜50 + └── 異常 → ERROR-LOG + │ + ╞══ KYUJ050 ═══════════════════════════════════╡ + │ STEP050S: JCL SORT（SALARY-NET → 社員番号昇順） + │ + │ KYU08PRI（給与明細印刷） PGMパターン: 04 + │ FD LINAGE IS 66 LINES / TOP 6 / BOTTOM 6 / FOOTING 60 + │ WRITE BEFORE ADVANCING PAGE（1社員1ページ） + │ BLANK WHEN ZERO / JUSTIFIED RIGHT + │ AT END-OF-PAGE / PAGE-COUNTER / SET UP BY + ├── → PAYSLIP（SYSOUT） + └── 異常 → ERROR-LOG + │ + ╞══ KYUJ060 ═══════════════════════════════════╡ + │ KYU09MRG（支給データ結合） PGMパターン: 35 + │ COBOL MERGE文（SALARY-NET + BONUS-DATA） + │ ON ASCENDING KEY MERGE-EMP-ID + │ OUTPUT PROCEDURE で社員単位に統合 + │ RETURN ... AT END でMERGE結果受取 + ├── → PAYMENT-DATA（200B） + └── 異常 → ERROR-LOG +``` + +--- + +## JCL + +### KYUJ010 — 社員マスタ取込（2ステップ） + +```jcl +//KYUJ010 JOB (ACCT),'社員マスタ取込',CLASS=A +//* +//*--- パラメータ定義 --- +//SETPARM SET YEARMONTH=202605 +//* ※PARM値は本番z/OSでJCLから指定。ローカルGnuCOBOLでは環境変数で代替。 +//*===================================================================== +//* STEP010: CSV→FB変換（Type 21） +//*===================================================================== +//STEP010 EXEC PGM=KYU01CVT,PARM='YEARMONTH=&YEARMONTH' +//KYU01R01 DD DSN=EMP-MASTER.CSV,DISP=SHR +//KYU01W01 DD DSN=EMP-RECORD.DAT,DISP=(NEW,PASS) +//KYU01W02 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +//* +//*===================================================================== +//* STEP020: DB2登録（Type 09） +//*===================================================================== +//STEP020 EXEC PGM=KYU02REG,PARM='YEARMONTH=&YEARMONTH' +//KYU02R02 DD DSN=EMP-RECORD.DAT,DISP=(OLD,DELETE) +//KYU02W03 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +``` + +### KYUJ020 — 給与計算（3ステップ） + +```jcl +//KYUJ020 JOB (ACCT),'給与計算',CLASS=A +//* +//*--- パラメータ定義 --- +//SETPARM SET YEARMONTH=202605 +//* +//*===================================================================== +//* STEP020S: 欠勤統計 SORT（社員番号昇順） +//*===================================================================== +//STEP020S EXEC PGM=SORT +//SORTIN DD DSN=ABSENCE-SUMMARY.DAT,DISP=SHR +//SORTOUT DD DSN=KYU02S01.DAT,DISP=(NEW,PASS) +//SYSIN DD * + SORT FIELDS=(1,8,CH,A),EQUALS +/* +//* +//*===================================================================== +//* STEP021: 欠勤集約（Type 08） +//*===================================================================== +//STEP021 EXEC PGM=KYU03AGG,PARM='YEARMONTH=&YEARMONTH' +//KYU03R01 DD DSN=KYU02S01.DAT,DISP=(OLD,DELETE) +//KYU03W01 DD DSN=ABSENCE-AGGREGATE.DAT,DISP=(NEW,PASS) +//KYU03W02 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +//* +//*===================================================================== +//* STEP022: 給与計算（Type 32） +//* EMP-MASTER / OVT-MONTHLY はDB2（EXEC SQL）参照のためDD不要 +//*===================================================================== +//STEP022 EXEC PGM=KYU04CAL,PARM='YEARMONTH=&YEARMONTH' +//KYU04R02 DD DSN=ABSENCE-AGGREGATE.DAT,DISP=(OLD,DELETE) +//KYU04R03 DD DSN=PAY-PARAM.DAT,DISP=SHR +//KYU04W03 DD DSN=SALARY-DETAIL.DAT,DISP=(NEW,CATLG,DELETE) +//KYU04W04 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +``` + +### KYUJ030 — 控除計算（2ステップ） + +```jcl +//KYUJ030 JOB (ACCT),'控除計算',CLASS=A +//* +//*--- パラメータ定義 --- +//SETPARM SET YEARMONTH=202605 +//* +//*===================================================================== +//* STEP030: 控除計算（Type 23） +//* TAX-TABLE / INSURANCE-TABLE はDB2（EXEC SQL）参照のためDD不要 +//*===================================================================== +//STEP030 EXEC PGM=KYU05DED,PARM='YEARMONTH=&YEARMONTH' +//KYU05R01 DD DSN=SALARY-DETAIL.DAT,DISP=(OLD,DELETE) +//KYU05W01 DD DSN=SALARY-NET.DAT,DISP=(NEW,PASS) +//KYU05W02 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +//* +//*===================================================================== +//* STEP031: DB2 SALARY-RESULTS 更新（Type 09） +//*===================================================================== +//STEP031 EXEC PGM=KYU06UPD,PARM='YEARMONTH=&YEARMONTH' +//KYU06R02 DD DSN=SALARY-NET.DAT,DISP=(OLD,DELETE) +//KYU06W03 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +``` + +### KYUJ040 — 部門別分割出力 + +```jcl +//KYUJ040 JOB (ACCT),'部門別分割出力',CLASS=A +//* +//*--- パラメータ定義 --- +//SETPARM SET YEARMONTH=202605 +//* +//*===================================================================== +//* STEP040S: SALARY-NET SORT（部署コード昇順） +//*===================================================================== +//STEP040S EXEC PGM=SORT +//SORTIN DD DSN=SALARY-NET.DAT,DISP=SHR +//SORTOUT DD DSN=KYU04S01.DAT,DISP=(NEW,PASS) +//SYSIN DD * + SORT FIELDS=(50,2,CH,A),EQUALS +/* +//* +//*===================================================================== +//* STEP040: 50分割出力（Type 10） +//* SYSINで出力対象部署絞込可 +//*===================================================================== +//STEP040 EXEC PGM=KYU07DIV,PARM='YEARMONTH=&YEARMONTH' +//KYU07R01 DD DSN=KYU04S01.DAT,DISP=(OLD,DELETE) +//KYU07D01 DD DSN=DEPT-OUT-01.DAT,DISP=(NEW,CATLG,DELETE) +// ...（全50部署） +//KYU07D50 DD DSN=DEPT-OUT-50.DAT,DISP=(NEW,CATLG,DELETE) +//KYU07SYS DD * + DEPT=01,02,05,10 +/* +//KYU07W99 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +``` + +### KYUJ050 — 給与明細印刷 + +```jcl +//KYUJ050 JOB (ACCT),'給与明細印刷',CLASS=A +//* +//*--- パラメータ定義 --- +//SETPARM SET YEARMONTH=202605 +//* +//*===================================================================== +//* STEP050S: 給与データ SORT（社員番号昇順） +//*===================================================================== +//STEP050S EXEC PGM=SORT +//SORTIN DD DSN=SALARY-NET.DAT,DISP=SHR +//SORTOUT DD DSN=KYU05S01.DAT,DISP=(NEW,PASS) +//SYSIN DD * + SORT FIELDS=(1,8,CH,A),EQUALS +/* +//* +//*===================================================================== +//* STEP050: 給与明細印刷（Type 04 LINAGEページ制御） +//*===================================================================== +//STEP050 EXEC PGM=KYU08PRI,PARM='YEARMONTH=&YEARMONTH' +//KYU08R01 DD DSN=KYU05S01.DAT,DISP=(OLD,DELETE) +//KYU08W01 DD SYSOUT=A +//KYU08W02 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +``` + +### KYUJ060 — 支給データ結合 + +```jcl +//KYUJ060 JOB (ACCT),'支給データ結合',CLASS=A +//* +//*--- パラメータ定義 --- +//SETPARM SET YEARMONTH=202605 +//* +//*===================================================================== +//* STEP060: MERGE（Type 35 給与 + 賞与） +//*===================================================================== +//STEP060 EXEC PGM=KYU09MRG,PARM='YEARMONTH=&YEARMONTH' +//KYU09M99 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) +//KYU09M01 DD DSN=SALARY-NET.DAT,DISP=SHR +//KYU09M02 DD DSN=BONUS-DATA.DAT,DISP=SHR +//KYU09W01 DD DSN=PAYMENT-DATA.DAT,DISP=(NEW,CATLG,DELETE) +//KYU09W02 DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS) +``` + +### 実行順序 + +本サブシステムのJOBは、A・Bサブシステムの出力を入力とする。 +JCL起動時は以下の順序を保証すること。 + +1. Aサブシステム KINJ080（KIN08DBU）→ ABSENCE-SUMMARY生成 +2. Bサブシステム ZANJ025（ZAN06UPD）→ DB2 OVT-MONTHLY確定 +3. **KYUJ010**（マスタ取込、任意タイミング。初回のみ必須） +4. **KYUJ020** → **KYUJ030** → **KYUJ040**（またはKYUJ050）→ **KYUJ060**（順次実行） +5. KYUJ040 と KYUJ050 は SALARY-NET.DAT を `DISP=SHR` で参照するため並行実行可能 + +--- + +## プログラム詳細 + +### KYU01CVT（社員マスタCSV→FB変換処理） — Type 21 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 社員マスタCSV→FB変換処理 | +| **PGMパターン** | CSV→FB変換（改行あり）+ 内部処理25（SUB04CHK数値チェック） | +| **SORT前処理** | 不要 | +| **入力** | EMP-MASTER.CSV（可変長/改行あり） | +| **出力** | EMP-RECORD（80B 固定長）/ ERROR-LOG（VB） | +| **件数変化** | N件（CSV行）→ 正常M件 + 異常(N-M)件 | +| **使用共通関数** | SUB01DAT, SUB02MSG, SUB03END, SUB04CHK | +| **該当プログラム分類** | No.21 CSV→FB変換（改行あり） | + +**入力CSV形式：** + +``` +EMP001,山田 太郎,01,01,001,300000,1800,2,0 +EMP002,佐藤 花子,02,01,002,280000,1700,1,0 +``` + +- 引用符（`"`）で囲まれた社員名フィールド内に改行を含む場合は複数行読込 +- コメント行（先頭`#`）は読み飛ばし + +**機能：** + +1. `OPEN INPUT` CSVファイル（VB編成・可変長） +2. `READ` で1行取得。AT END まで繰り返し +3. 行内の引用符 `"` の出現状態を追跡し、引用符内改行とレコード境界改行を区別： + - `WS-IN-QUOTE` フラグが FALSE かつ行内に奇数個の `"` → 引用符内続行モード開始 + - `WS-IN-QUOTE` が TRUE かつ行内に奇数個の `"` → 引用符内終了 + - 引用符内継続行は連結用ワーク領域（WS-CSV-ACCUM）に蓄積 +4. 完全な1レコード分のデータが揃った時点で、`INSPECT CONVERTING X"0D" X"0A" BY SPACE` で引用符内改行をスペース変換 +5. `UNSTRING DELIMITED BY ',' INTO ... COUNT IN WS-FIELD-COUNT` でCSV分解＋項目数カウント +6. SUB04CHK で社員番号（8桁）・時給（7桁）の数値妥当性チェック（内部処理25に該当） +7. 社員番号空チェック：`INSPECT TALLYING WS-TALLY FOR LEADING SPACES` → 全桁SPACEならエラー +8. 正常レコードは EMP-RECORD（80B）に WRITE +9. エラー時は ERROR-LOG に書出し + +#### DECLARATIVES（ファイルエラー処理） + +`DECLARATIVES` 宣言部でファイル入出力エラーを捕捉し、共通エラー処理に制御を移す。 + +``` +DECLARATIVES. +KYU01CVT-ERR SECTION. + USE AFTER ERROR PROCEDURE ON KYU01R01. +KYU01CVT-ERR-PROC. + PERFORM 9999-ABEND. + . +KYU01W01-ERR SECTION. + USE AFTER ERROR PROCEDURE ON KYU01W01. +KYU01W01-ERR-PROC. + PERFORM 9999-ABEND. + . +END DECLARATIVES. +``` + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| INSPECT CONVERTING | 引用符内改行コード→SPACE変換 | +| UNSTRING COUNT IN | CSV分解時の項目数検証 | +| IF ALPHABETIC | 社員名の英字判定 | +| DECLARATIVES | ファイル入出力エラー処理の宣言部 | +| USE AFTER ERROR | ファイルエラー時の共通エラー処理手続き | + +--- + +### KYU02REG（社員マスタDB2登録処理） — Type 09 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 社員マスタDB2登録処理 | +| **PGMパターン** | DB更新 | +| **SORT前処理** | 不要（KYU01CVTの出力を入力） | +| **入力** | EMP-RECORD（80B 固定長） | +| **出力** | DB2 EMP-MASTER（INSERT/UPSERT）/ ERROR-LOG（VB） | +| **件数変化** | N件 → DB2登録N件（全件） | +| **使用共通関数** | SUB02MSG, SUB03END | +| **該当プログラム分類** | No.09 DB更新 | + +**機能：** + +1. `OPEN INPUT` EMP-RECORD（80B 固定長） +2. `READ` で1件取得。AT END まで繰り返し +3. `EXEC SQL INSERT INTO EMP-MASTER ...` でDB2登録 +4. SQLCODE = -803（重複）の場合、`EXEC SQL UPDATE` で更新 +5. エラー時は ERROR-LOG に書出し + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| EXEC SQL INSERT | 社員マスタ新規登録 | +| SQLCODE判定によるUPSERT | 重複時UPDATE | +| CLOSE WITH LOCK | 入力ファイルのロッククローズ | + +--- + +### KYU03AGG（欠勤集約処理） — Type 08 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 欠勤集約処理 | +| **PGMパターン** | キーブレイク（集約） | +| **SORT前処理** | JCL SORT（社員番号昇順） | +| **入力** | KYU02S01（80B JCL SORT済み欠勤データ） | +| **出力** | ABSENCE-AGGREGATE（80B 社員単位）/ ERROR-LOG（VB） | +| **件数変化** | M件（欠勤レコード）→ N件（社員数、M≧N） | +| **使用共通関数** | SUB02MSG, SUB03END | +| **該当プログラム分類** | No.08 キーブレイク（集約） | + +**機能：** + +同一社員内の複数欠勤レコードを集約する。 + +``` +PERFORM UNTIL WS-EOF = '1' + READ KYU08R01 INTO WS-ABSENCE-REC + AT END SET WS-EOF TO TRUE + END-READ + IF NOT WS-EOF + IF WS-PREV-EMP-ID = WS-EMP-ID + ADD 1 TO WS-ABSENT-COUNT + ADD WS-ABSENT-HOURS TO WS-TOTAL-ABSENT-HOURS + ELSE + PERFORM 2000-WRITE-AGGREGATE + MOVE WS-EMP-ID TO WS-PREV-EMP-ID + INITIALIZE WS-TOTAL-ABSENT-HOURS + WS-ABSENT-COUNT + REPLACING NUMERIC DATA BY ZERO + MOVE 1 TO WS-ABSENT-COUNT + MOVE WS-ABSENT-HOURS TO WS-TOTAL-ABSENT-HOURS + END-IF + END-IF +END-PERFORM. +PERFORM 2000-WRITE-AGGREGATE. +``` + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| INITIALIZE REPLACING NUMERIC DATA BY ZERO | 集約カウンタの型別初期化 | +| END-ADD | ADD文の明示的スコープターミネータ | + +--- + +### KYU04CAL（給与計算処理） — Type 32 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 給与計算処理 | +| **PGMパターン** | 1:N＋キーブレイク（同キー） | +| **SORT前処理** | 不要（KYU03AGGの出力を入力） | +| **入力** | ABSENCE-AGGREGATE（80B）/ PAY-PARAM（80B）/ EMP-MASTER（DB2参照）/ OVT-MONTHLY（DB2 Bサブシステム参照） | +| **出力** | SALARY-DETAIL（240B）/ ERROR-LOG（VB） | +| **件数変化** | N件（社員）→ N件（社員） | +| **使用共通関数** | SUB01DAT, SUB02MSG, SUB03END | +| **該当プログラム分類** | No.32 1:N＋キーブレイク（同キー） | + +**機能：** + +#### Step1：社員単位の給与計算 + +ABSENCE-AGGREGATE（社員単位1件）を読込み、DB2 EMP-MASTER・OVT-MONTHLY を補完参照する。 + +``` +PERFORM UNTIL WS-EOF = '1' + READ KYU04R02 INTO WS-ABSENCE-AGG + AT END SET WS-EOF TO TRUE + END-READ + IF NOT WS-EOF + PERFORM 2100-CALCULATE-SALARY + END-IF +END-PERFORM. +``` + +#### Step2：給与計算 + +1. **EMP-MASTER（DB2 SELECT）** で基本給・時給・扶養人数を取得 +2. **OVT-MONTHLY（DB2 SELECT WHERE EMP-ID / YEAR-MONTH）** で残業時間を取得 +3. 欠勤控除額 = HOURLY-RATE × 欠勤時間合計 +4. 時間外手当 = HOURLY-RATE × 残業時間 × OVERTIME-RATE（1.25） +5. **支給総額 = 基本給 + 各種手当 - 欠勤控除** + +``` +EXEC SQL + SELECT BASE-SALARY, HOURLY-RATE, DEPENDENT-COUNT + INTO :WS-BASE-SALARY, :WS-HOURLY-RATE, :WS-DEPENDENT + FROM EMP-MASTER + WHERE EMP-ID = :WS-EMP-ID +END-EXEC. + +IF SQLCODE = 0 + COMPUTE WS-ABSENT-DEDUCT ROUNDED = + WS-HOURLY-RATE * WS-TOTAL-ABSENT-HOURS + ON SIZE ERROR + MOVE ZERO TO WS-ABSENT-DEDUCT + PERFORM 9999ABDSOR + END-COMPUTE + COMPUTE WS-OVT-AMOUNT ROUNDED = + WS-HOURLY-RATE * WS-OVT-HOURS * WS-OVERTIME-RATE + ON SIZE ERROR + MOVE ZERO TO WS-OVT-AMOUNT + PERFORM 9999ABDSOR + END-COMPUTE + COMPUTE WS-GROSS-PAYMENT = + WS-BASE-SALARY + WS-OVT-AMOUNT - WS-ABSENT-DEDUCT + END-COMPUTE +END-IF. +``` + +#### Step3：複合条件分岐（EVALUATE ALSO） + +勤怠区分と手当種別の組み合わせで支給額を判定する。 + +``` +EVALUATE WS-ALLOWANCE-TYPE ALSO WS-ATTEND-TYPE + WHEN 'OVT' ALSO 'W' + COMPUTE WS-AMOUNT ROUNDED = + WS-HOURLY-RATE * WS-OVT-HOURS * 1.25 + WHEN 'OVT' ALSO 'H' + COMPUTE WS-AMOUNT ROUNDED = + WS-HOURLY-RATE * WS-OVT-HOURS * 1.35 + WHEN 'LATE' ALSO ANY + COMPUTE WS-AMOUNT ROUNDED = + WS-HOURLY-RATE * WS-LATE-HOURS * 0.50 + WHEN OTHER + MOVE ZERO TO WS-AMOUNT +END-EVALUATE. +``` + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| EVALUATE ALSO | 勤怠区分×手当種別の複合分岐 | +| OCCURS DESCENDING KEY | 手当テーブルの高額順整列 | +| COMPUTE ROUNDED ON SIZE ERROR | 給与計算の桁あふれ処理 | +| END-ADD / END-DIVIDE / END-SUBTRACT | 明示的スコープターミネータ | + +--- + +### KYU05DED（控除計算処理） — Type 23 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 控除計算処理 | +| **PGMパターン** | SELECT条件 | +| **SORT前処理** | 不要 | +| **入力** | SALARY-DETAIL（240B）/ TAX-TABLE（DB2）/ INSURANCE-TABLE（DB2） | +| **出力** | SALARY-NET（200B）/ ERROR-LOG（VB） | +| **件数変化** | N件 → N件（1対1） | +| **使用共通関数** | SUB02MSG, SUB03END | +| **該当プログラム分類** | No.23 SELECT条件 | + +**機能：** + +#### Step1：課税所得計算 + +``` +COMPUTE WS-TAXABLE-INCOME = + WS-GROSS-PAYMENT - WS-INSURANCE - WS-BASIC-DEDUCTION +END-COMPUTE. +``` + +#### Step2：税率取得（EXEC SQL SELECT ... BETWEEN） + +``` +EXEC SQL + SELECT TAX-RATE, DEDUCTION + INTO :WS-TAX-RATE, :WS-DEDUCTION + FROM TAX-TABLE + WHERE :WS-TAXABLE-INCOME BETWEEN TAX-FROM AND TAX-TO +END-EXEC. + +IF SQLCODE = 0 + COMPUTE WS-INCOME-TAX ROUNDED = + WS-TAXABLE-INCOME * WS-TAX-RATE - WS-DEDUCTION + END-COMPUTE +ELSE + MOVE ZERO TO WS-INCOME-TAX +END-IF. +``` + +#### Step3：社会保険料計算（SEARCH ALL） + +保険料率テーブル（WORKING-STORAGE）を事前LOADし、SEARCH ALLで検索する。 + +``` +01 INSURANCE-WORK. + 05 IW-COUNT PIC 9(4). + 05 IW-ENTRY OCCURS 1 TO 200 TIMES + DEPENDING ON IW-COUNT + ASCENDING KEY IS IW-INCOME-FROM + INDEXED BY IW-IDX. + 10 IW-INCOME-FROM PIC 9(9). + 10 IW-INCOME-TO PIC 9(9). + 10 IW-HEALTH-RATE PIC V9(6). + 10 IW-PENSION-RATE PIC V9(6). + 05 IW-END. +``` + +- 初期処理で DB2 INSURANCE-TABLE を全件 SELECT → WORKING-STORAGE に LOAD +- `SEARCH ALL` で該当所得範囲の保険料率を検索 + +``` +SEARCH ALL IW-ENTRY + AT END + PERFORM 9999ABDSOR + WHEN IW-INCOME-FROM(IW-IDX) <= WS-TAXABLE-INCOME + AND WS-TAXABLE-INCOME <= IW-INCOME-TO(IW-IDX) + COMPUTE WS-INSURANCE ROUNDED = + WS-TAXABLE-INCOME * + (IW-HEALTH-RATE(IW-IDX) + IW-PENSION-RATE(IW-IDX)) + END-COMPUTE +END-SEARCH. +``` + +#### Step4：差引支給額計算 + +``` +COMPUTE WS-NET-PAYMENT = + WS-GROSS-PAYMENT - WS-INCOME-TAX + - WS-INSURANCE + - WS-RESIDENT-TAX +END-COMPUTE. +``` + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| EXEC SQL SELECT ... BETWEEN | 課税所得範囲検索 | +| SEARCH ALL（複数WHEN複合条件） | IW-INCOME-FROM～IW-INCOME-TO範囲判定 | +| 88-level VALUES複数値 | 保険料率テーブルの境界値判定 | + +--- + +### KYU06UPD（給与計算結果DB2更新処理） — Type 09 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 給与計算結果DB2更新処理 | +| **PGMパターン** | DB更新 | +| **SORT前処理** | 不要（KYU05DEDの出力を入力） | +| **入力** | SALARY-NET（200B） | +| **出力** | DB2 SALARY-RESULTS（INSERT/UPSERT）/ ERROR-LOG（VB） | +| **件数変化** | N件 → DB2登録N件（全件） | +| **使用共通関数** | SUB02MSG, SUB03END | +| **該当プログラム分類** | No.09 DB更新 | + +**機能：** + +1. `OPEN INPUT` SALARY-NET（200B） +2. `READ` で1件取得。AT END まで繰り返し +3. `EXEC SQL INSERT INTO SALARY-RESULTS ...` で登録 + +``` +EXEC SQL + INSERT INTO SALARY-RESULTS + (EMP-ID, YEAR-MONTH, GROSS-PAYMENT, + INCOME-TAX, INSURANCE, RESIDENT-TAX, + NET-PAYMENT, UPDATED-AT) + VALUES + (:WS-EMP-ID, :WS-YEAR-MONTH, :WS-GROSS-PAYMENT, + :WS-INCOME-TAX, :WS-INSURANCE, :WS-RESIDENT-TAX, + :WS-NET-PAYMENT, CURRENT TIMESTAMP) +END-EXEC. +``` + +4. SQLCODE = -803（重複）の場合、`EXEC SQL UPDATE` で更新 + +``` +IF SQLCODE = -803 + EXEC SQL + UPDATE SALARY-RESULTS SET + GROSS-PAYMENT = :WS-GROSS-PAYMENT, + INCOME-TAX = :WS-INCOME-TAX, + INSURANCE = :WS-INSURANCE, + RESIDENT-TAX = :WS-RESIDENT-TAX, + NET-PAYMENT = :WS-NET-PAYMENT, + UPDATED-AT = CURRENT TIMESTAMP + WHERE EMP-ID = :WS-EMP-ID + AND YEAR-MONTH = :WS-YEAR-MONTH + END-EXEC +END-IF. +``` + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| EXEC SQL INSERT | SALARY-RESULTS新規登録 | +| SQLCODE判定によるUPSERT | 再計算時の重複UPDATE | + +--- + +### KYU07DIV（部門別分割出力処理） — Type 10 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 部門別分割出力処理 | +| **PGMパターン** | 50分割 | +| **SORT前処理** | JCL SORT（部署コード昇順） | +| **入力** | KYU04S01（200B JCL SORT済み）/ SYSIN（制御カード） | +| **出力** | DEPT-OUT-01〜50（各200B） | +| **件数変化** | N件 → 各部署合計N件（全社員） | +| **使用共通関数** | SUB02MSG, SUB03END | +| **該当プログラム分類** | No.10 50分割 | + +**機能：** + +1. `READ SYSIN` で出力対象部署コード一覧を取得（省略時は全50部署） +2. JCL SORT済みのため部署コード順に入力。部署コードが変わるたびにファイルを切替 +3. 部署コード単位でファイルを開閉し、常に1ファイルのみ OPEN 状態を保つ + +``` +PERFORM UNTIL WS-EOF = '1' + READ KYU07R01 INTO WS-SALARY-REC + AT END SET WS-EOF TO TRUE + END-READ + IF NOT WS-EOF AND WS-DEPT-CODE IN 対象部署一覧 + IF WS-PREV-DEPT > SPACES + AND WS-PREV-DEPT NOT = WS-DEPT-CODE + PERFORM 3000-CLOSE-FILE + END-IF + IF WS-DEPT-CODE NOT = WS-PREV-DEPT + PERFORM 3100-OPEN-FILE + END-IF + EVALUATE WS-DEPT-CODE + WHEN '01' WRITE DEPT01-REC FROM WS-SALARY-REC + WHEN '02' WRITE DEPT02-REC FROM WS-SALARY-REC + ... + WHEN '50' WRITE DEPT50-REC FROM WS-SALARY-REC + WHEN OTHER CONTINUE + END-EVALUATE + MOVE WS-DEPT-CODE TO WS-PREV-DEPT + END-IF +END-PERFORM. +IF WS-PREV-DEPT > SPACES + PERFORM 3000-CLOSE-FILE +END-IF. +``` + +4. 全ファイル終了後、最終部署ファイルを `CLOSE WITH LOCK` で確定 + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| 50分割（部署別1ファイルずつOPEN/CLOSE切替） | 部署別出力（常時1 OPEN でリソース節約） | +| CLOSE WITH LOCK | 出力ファイルのロッククローズ | +| READ SYSIN | 制御カードによる出力対象部署指定（内部処理28） | + +--- + +### KYU08PRI（給与明細印刷処理） — Type 04 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 給与明細印刷処理 | +| **PGMパターン** | レイアウト編集のみ（GETPUT）+ LINAGEページ制御 | +| **SORT前処理** | JCL SORT（社員番号昇順） | +| **入力** | KYU05S01（200B） | +| **出力** | PAYSLIP（SYSOUT A行 200B）/ ERROR-LOG（VB） | +| **件数変化** | N件 → 1社員1ページ（Nページ） | +| **使用共通関数** | SUB01DAT, SUB02MSG, SUB03END | +| **該当プログラム分類** | No.04 レイアウト編集のみ（GETPUT） | + +**機能：** + +#### Step1：LINAGEページ定義 + +``` +FD KYU08W01 + LABEL RECORDS STANDARD + LINAGE IS 66 LINES + FOOTING IS 60 + TOP 6 + BOTTOM 6. +``` + +- 1ページ66行、先頭6行（TOP）= ヘッダ領域、最終6行（BOTTOM）= フッタ領域 + +#### Step2：明細行編集 + +``` +01 PAYSLIP-HEADER. + 05 PH-TITLE PIC X(40) VALUE + '========== 給与明細書 =========='. + 05 FILLER PIC X(10) VALUE SPACES. + 05 PH-PAGE-NO PIC Z(4)9 VALUE ZERO. + 05 FILLER PIC X(02) VALUE '頁'. + +01 PAYSLIP-DETAIL. + 05 PD-EMP-ID PIC X(08). + 05 FILLER PIC X(02) VALUE SPACES. + 05 PD-EMP-NAME PIC X(20) JUSTIFIED RIGHT. + 05 FILLER PIC X(02) VALUE SPACES. + 05 PD-BASIC-SALARY PIC Z(8)9 BLANK WHEN ZERO. + 05 FILLER PIC X(02) VALUE SPACES. + 05 PD-NET-PAYMENT PIC Z(8)9 BLANK WHEN ZERO. +``` + +#### Step3：ページ制御 + +``` +WRITE PAYSLIP-REC FROM PAYSLIP-HEADER + BEFORE ADVANCING PAGE. + +PERFORM VARYING WS-LINE FROM 1 BY 1 + UNTIL WS-LINE > WS-DETAIL-LINES + WRITE PAYSLIP-REC FROM PAYSLIP-DETAIL + BEFORE ADVANCING 1 LINE + AT END-OF-PAGE + WRITE PAYSLIP-REC FROM PAYSLIP-FOOTER + BEFORE ADVANCING PAGE + SET WS-PAGE-END TO TRUE + END-WRITE +END-PERFORM. +``` + +- `PAGE-COUNTER` 特殊レジスタで自動ページ番号管理 +- `SET UP BY` / `SET DOWN BY` で `PAGE-COUNTER` 操作 +- 社員ごとに `WRITE BEFORE ADVANCING PAGE` で改ページ + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| FD LINAGE IS ... TOP/BOTTOM/FOOTING | 明細ページ制御 | +| WRITE BEFORE ADVANCING PAGE | 改ページ制御 | +| WRITE BEFORE ADVANCING 1 LINE | 行送り制御 | +| WRITE AT END-OF-PAGE | ページ終端検出 | +| PAGE-COUNTER | ページ番号自動計数 | +| BLANK WHEN ZERO | ゼロ金額非表示 | +| JUSTIFIED RIGHT | 右詰め編集 | +| SET UP BY / SET DOWN BY | カウンタ増減操作 | + +--- + +### KYU09MRG（支給データ結合処理） — Type 35 + +| 項目 | 内容 | +|------|------| +| **プログラム名称** | 支給データ結合処理 | +| **PGMパターン** | MERGE（複数ファイル結合） | +| **SORT前処理** | 不要（MERGE文が自ら結合） | +| **入力** | SALARY-NET（200B）/ BONUS-DATA（200B） | +| **出力** | PAYMENT-DATA（200B）/ ERROR-LOG（VB） | +| **件数変化** | N件 + M件 → (N+M)件（社員単位に統合後N件） | +| **使用共通関数** | SUB01DAT, SUB02MSG, SUB03END | +| **該当プログラム分類** | No.35 MERGE（複数ファイル結合） | + +**機能：** + +#### MERGE文によるファイル結合 + +SALARY-NET と BONUS-DATA は共に200B固定長で、社員番号（EMP-ID）が1桁目から8桁で共通。 +MERGE文で社員番号昇順に結合し、同一社員の給与レコードと賞与レコードを連続取得する。 + +``` +PROCEDURE DIVISION USING KYU-PARM. + +MAIN-MERGE SECTION. + MERGE WORK-FILE + ON ASCENDING KEY MERGE-EMP-ID + USING SALARY-FILE BONUS-FILE + OUTPUT PROCEDURE 3000-MERGE-OUTPUT + . + GOBACK. +``` + +#### OUTPUT PROCEDURE：社員単位の支給データ生成 + +MERGE結果を受け取り、同一社員内で給与（TYPE='S'）と賞与（TYPE='B'）のレコードを統合する。 + +``` +3000-MERGE-OUTPUT SECTION. + PERFORM WITH TEST AFTER + UNTIL WS-MERGE-EOF + RETURN WORK-FILE INTO WS-MERGE-REC + AT END SET WS-MERGE-EOF TO TRUE + END-RETURN + IF NOT WS-MERGE-EOF + MOVE MERGE-EMP-ID OF WS-MERGE-REC + TO WS-CURRENT-EMP + MOVE ZEROS TO WS-SALARY-AMOUNT + WS-BONUS-AMOUNT + PERFORM UNTIL WS-CURRENT-EMP + NOT = MERGE-EMP-ID OF WS-MERGE-REC + IF WS-RECORD-TYPE = 'S' + MOVE WS-PAY-AMOUNT TO WS-SALARY-AMOUNT + ELSE + MOVE WS-PAY-AMOUNT TO WS-BONUS-AMOUNT + END-IF + RETURN WORK-FILE INTO WS-MERGE-REC + AT END + MOVE HIGH-VALUES TO MERGE-EMP-ID + EXIT PERFORM + END-RETURN + END-PERFORM + ADD WS-SALARY-AMOUNT TO WS-BONUS-AMOUNT + GIVING WS-TOTAL-PAYMENT + WRITE PAYMENT-REC FROM WS-PAYMENT-DATA + END-IF + END-PERFORM. +``` + +**新規カバレッジ構文：** + +| 構文 | 用途 | +|------|------| +| MERGE文（USING複数ファイル） | 給与＋賞与の社員番号昇順結合 | +| MERGE ... OUTPUT PROCEDURE | MERGE結果の後処理 | +| RETURN ... AT END | MERGE結果レコード取得 | +| ENTRY | 代替エントリポイント | + +--- + +## レコード構成 + +### EMP-RECORD（80B） — KYU01CVT出力 + +| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 | +|---|------|------|------|------|------|------| +| 1 | 社員番号 | ER-EMP-ID | 1 | 8 | X(8) | | +| 2 | 社員名 | ER-EMP-NAME | 9 | 40 | X(40) | | +| 3 | 部署コード | ER-DEPT-CODE | 49 | 2 | X(2) | | +| 4 | 地域コード | ER-REGION-CODE | 51 | 2 | X(2) | | +| 5 | 社員区分コード | ER-CATEGORY-CODE | 53 | 3 | X(3) | | +| 6 | 基本給 | ER-BASE-SALARY | 56 | 9 | 9(9) | | +| 7 | 時給 | ER-HOURLY-RATE | 65 | 7 | 9(7) | | +| 8 | 扶養人数 | ER-DEPENDENT-COUNT | 72 | 2 | 9(2) | | +| 9 | ステータス | ER-STATUS | 74 | 1 | X(1) | | +| 10 | 予備 | ER-FILLER | 75 | 6 | X(6) | | + +### ABSENCE-AGGREGATE（80B） — KYU03AGG出力 + +| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 | +|---|------|------|------|------|------|------| +| 1 | 社員番号 | AA-EMP-ID | 1 | 8 | X(8) | | +| 2 | 対象年月 | AA-YEAR-MONTH | 9 | 6 | X(6) | YYYYMM | +| 3 | 欠勤時間合計 | AA-TOTAL-ABSENT-HOURS | 15 | 5 | 9(4)V9(1) | | +| 4 | 欠勤回数 | AA-ABSENT-COUNT | 20 | 2 | 9(2) | | +| 5 | 予備 | AA-FILLER | 22 | 58 | X(58) | | + +### SALARY-DETAIL（240B） — KYU04CAL出力 + +| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 | +|---|------|------|------|------|------|------| +| 1 | 社員番号 | SD-EMP-ID | 1 | 8 | X(8) | | +| 2 | 社員名 | SD-EMP-NAME | 9 | 40 | X(40) | | +| 3 | 部署コード | SD-DEPT-CODE | 49 | 2 | X(2) | | +| 4 | 基本給 | SD-BASIC-SALARY | 51 | 9 | 9(9) | | +| 5 | 時間外手当 | SD-OVT-AMOUNT | 60 | 9 | 9(9) | | +| 6 | 休日手当 | SD-HOLIDAY-AMOUNT | 69 | 9 | 9(9) | | +| 7 | 欠勤控除 | SD-ABSENT-DEDUCT | 78 | 9 | 9(9) | | +| 8 | 支給総額 | SD-GROSS-PAYMENT | 87 | 9 | 9(9) | | +| 9 | 残業時間 | SD-OVT-HOURS | 96 | 5 | 9(4)V9(1) | | +| 10 | 欠勤時間 | SD-ABSENT-HOURS | 101 | 5 | 9(4)V9(1) | | +| 11 | 勤怠区分 | SD-ATTEND-TYPE | 106 | 1 | X(1) | W=平日残業 / H=休日残業 | +| 12 | 手当種別 | SD-ALLOWANCE-TYPE | 107 | 3 | X(3) | OVT=残業 / LATE=遅刻 | +| 13 | 予備 | SD-FILLER | 110 | 131 | X(131) | | + +### SALARY-NET（200B） — KYU05DED出力 + +| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 | +|---|------|------|------|------|------|------| +| 1 | 社員番号 | SN-EMP-ID | 1 | 8 | X(8) | MERGEキー | +| 2 | レコード種別 | SN-REC-TYPE | 9 | 1 | X(1) | S=給与 / B=賞与 | +| 3 | 社員名 | SN-EMP-NAME | 10 | 40 | X(40) | | +| 4 | 部署コード | SN-DEPT-CODE | 50 | 2 | X(2) | | +| 5 | 地域コード | SN-REGION-CODE | 52 | 2 | X(2) | | +| 6 | 社員区分コード | SN-CATEGORY-CODE | 54 | 3 | X(3) | | +| 7 | 支給総額 | SN-GROSS-PAYMENT | 57 | 9 | 9(9) | | +| 8 | 源泉所得税 | SN-INCOME-TAX | 66 | 9 | 9(9) | | +| 9 | 社会保険料 | SN-INSURANCE | 75 | 9 | 9(9) | | +| 10 | 住民税 | SN-RESIDENT-TAX | 84 | 9 | 9(9) | | +| 11 | 差引支給額 | SN-NET-PAYMENT | 93 | 9 | 9(9) | | +| 12 | 課税所得 | SN-TAXABLE-INCOME | 102 | 9 | 9(9) | | +| 13 | 支給額 | SN-PAY-AMOUNT | 111 | 9 | 9(9) | 汎用（給与/賞与） | +| 14 | 予備 | SN-FILLER | 120 | 81 | X(81) | | + +> BONUS-DATA も同一レイアウト（200B）。レコード種別 `SN-REC-TYPE` = 'B'、支給額 `SN-PAY-AMOUNT` に賞与額を格納。 + +### DEPT-OUT-01〜50（各200B） — KYU07DIV出力 + +SALARY-NET と同一レイアウト（200B）。部署コードに応じて振り分け出力。 + +### PAYSLIP（200B） — KYU08PRI出力（印刷イメージ） + +| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 | +|---|------|------|------|------|------|------| +| 1 | 社員番号 | PS-EMP-ID | 1 | 8 | X(8) | | +| 2 | FILLER | PS-SP1 | 9 | 2 | X(2) | 空白 | +| 3 | 社員名 | PS-EMP-NAME | 11 | 20 | X(20) | JUSTIFIED RIGHT | +| 4 | FILLER | PS-SP2 | 31 | 2 | X(2) | 空白 | +| 5 | 基本給 | PS-BASIC-SALARY | 33 | 9 | Z(8)9 | BLANK WHEN ZERO | +| 6 | FILLER | PS-SP3 | 42 | 2 | X(2) | 空白 | +| 7 | 差引支給額 | PS-NET-PAYMENT | 44 | 9 | Z(8)9 | BLANK WHEN ZERO | +| 8 | FILLER | PS-SP4 | 53 | 2 | X(2) | 空白 | +| 9 | ページヘッダ | PS-PAGE-TITLE | 55 | 40 | X(40) | LINAGE制御用 | +| 10 | 予備 | PS-FILLER | 95 | 106 | X(106) | | + +### PAYMENT-DATA（200B） — KYU09MRG出力 + +| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 | +|---|------|------|------|------|------|------| +| 1 | 社員番号 | PD-EMP-ID | 1 | 8 | X(8) | | +| 2 | 支給区分 | PD-PAY-TYPE | 9 | 1 | X(1) | S=給与 / B=賞与 / T=合計 | +| 3 | 支給額 | PD-AMOUNT | 10 | 9 | 9(9) | | +| 4 | 振込銀行コード | PD-BANK-CODE | 19 | 4 | X(4) | | +| 5 | 振込口座番号 | PD-ACCOUNT-NO | 23 | 8 | 9(8) | | +| 6 | 予備 | PD-FILLER | 31 | 170 | X(170) | | + +--- + +## 新規プログラムタイプカバレッジ一覧（10種） + +| No. | 名称 | 分類 | 対応プログラム | カバレッジ（現状→目標） | +|:---:|------|:----:|:--------------:|:---------------------:| +| 04 | レイアウト編集のみ（GETPUT） | 编辑 | KYU08PRI | ◎（既存） | +| 08 | キーブレイク（集約） | key切 | KYU03AGG | × → ◎ | +| 09 | DB更新 | 数据库 | KYU02REG, KYU06UPD | ◎（既存、本サブシステムで＋2本） | +| 10 | ５０分割 | 分割 | KYU07DIV | × → ◎ | +| 21 | CSV→FB変換（改行あり） | 文件转换 | KYU01CVT | × → ◎ | +| 23 | SELECT条件 | 数据库 | KYU05DED | × → ◎ | +| 32 | 1:N＋キーブレイク（同キー） | 混合 | KYU04CAL | × → ◎ | +| 35 | MERGE（複数ファイル結合） | 排序 | KYU09MRG | × → ◎ | + +**プログラムタイプカバレッジ率：** 16/35（45.7%）→ **24/35（68.6%）** + +> 本サブシステムで新規追加するプログラムタイプは **7種**（08, 09x2, 10, 21, 23, 32, 35）。 +> 09（DB更新）は既にKIN02UPD・ZAN06UPDで◎であるが、本サブシステムでさらに2本追加し実績を拡充。 +> No.27（項目チェック半角20桁/4桁）はKYU01CVT内でSUB04CHK（内部処理25）により実装され、プログラムタイプとしては単一（21）を維持。 + +--- + +## 新規予約語カバレッジ一覧 + +| No. | 予約語 | 現状 | 目標 | プログラム | 使用コンテキスト | +|:---:|--------|:---:|:----:|-----------|----------------| +| 6 | ALPHABETIC | × | ◎ | KYU01CVT | クラス条件（社員名英字判定） | +| 8 | ALSO | △ | ◎ | KYU04CAL | EVALUATE ALSO（勤怠区分×手当種別） | +| 31 | CONVERTING | × | ◎ | KYU01CVT | INSPECT CONVERTING（引用符内改行→SPACE） | +| 34 | COUNT | × | ◎ | KYU01CVT | UNSTRING COUNT IN（項目数カウント） | +| 40 | DECLARATIVES | × | ◎ | KYU01CVT | ファイルエラー処理の宣言部 | +| 45 | DESCENDING | × | ◎ | KYU04CAL | OCCURS DESCENDING KEY（高額手当優先） | +| 50 | DOWN | × | ◎ | KYU08PRI | SET DOWN BY（ページカウンタ減少） | +| 55 | END-ADD | × | ◎ | KYU03AGG | ADD文の明示的END-ADD | +| 58 | END-DIVIDE | × | ◎ | KYU04CAL | DIVIDE文の明示的END-DIVIDE | +| 66 | END-SUBTRACT | × | ◎ | KYU05DED | SUBTRACT文の明示的END-SUBTRACT | +| 112 | NEXT | × | △ | KYU09MRG | READ NEXTの代替（MERGE RETURN使用） | +| 128 | PAGE | △ | ◎ | KYU08PRI | LINAGE PAGE句 / FD PAGE-COUNTER | +| 129 | PAGE-COUNTER | × | ◎ | KYU08PRI | 特殊レジスタ（自動ページ番号） | +| 142 | REMOVAL | × | — | — | CLOSE FOR REMOVALは今回不要 | +| 177 | UP | × | ◎ | KYU08PRI | SET UP BY（PAGE-COUNTER増加） | +| 180 | USE | × | ◎ | KYU01CVT | USE AFTER ERROR（ファイルエラー処理） | +| 183 | VALUES | × | ◎ | KYU05DED | 88-level VALUES複数値指定 | +| 193 | ENTRY | × | ◎ | KYU09MRG | 代替エントリポイント定義 | +| 194 | MERGE | × | ◎ | KYU09MRG | MERGE文（複数ファイル結合） | +| 196 | RETURN | × | ◎ | KYU09MRG | MERGE OUTPUT PROCEDUREのRETURN文 | +| 204 | BEFORE | × | ◎ | KYU08PRI | WRITE BEFORE ADVANCING | + +**予約語カバレッジ率（◎+△）：** 125/205（61.0%）→ **145/205（70.7%）** +**内 ◎：** 101/205（49.3%）→ **121/205（59.0%）** + +> 前回変更で追加した DECLARATIVES / USE / SORT / RELEASE / および ADDRESS 除外の修正は、 +> 今回のパターン純化方針に伴い再編。SORT / RELEASE は KYU07DIV に COBOL SORT を使わないため削除。 + +--- + +## PICTURE記号カバレッジ拡張 + +| 記号 | 現状 | 目標 | プログラム | 使用例 | +|:----:|:----:|:----:|-----------|--------| +| ZZZ9 | × | ◎ | KYU08PRI | PIC Z(8)9 BLANK WHEN ZERO | + +--- + +## 全体サマリ + +| 指標 | 現状 | 目標（追加後） | 増分 | +|------|:----:|:--------------:|:----:| +| プログラムタイプ（35種） | 16使用 | **24使用** | **+8**（68.6%） | +| 予約語 ◎+△（205） | 125 | **145** | **+20**（70.7%） | +| 予約語 ◎（205） | 101 | **121** | **+20**（59.0%） | +| PICTURE記号（11種） | 7 | **8** | **+1** | +| COBOLプログラム数 | 20 | **29** | **+9** | diff --git a/詳細設計書/DB定義書.md b/詳細設計書/DB定義書.md index 58ddb85..34a4ecd 100644 --- a/詳細設計書/DB定義書.md +++ b/詳細設計書/DB定義書.md @@ -5,6 +5,7 @@ | No | 変更内容 | 担当者 | 変更日 | 承認者 | 備考 | |----|---------|--------|--------|--------|------| | 1 | 新規作成（全8テーブル） | AI | 2026/06/23 | | サブシステムA(6) + B(2) | +| 2 | SALARYDB 4テーブル追加 | AI | 2026/07/08 | | サブシステムC(給与計算) | --- @@ -230,3 +231,117 @@ ### 備考 - ZAN06UPDが月次集計結果をUPSERT + +--- + +# EMP-MASTER（SALARYDB） — 社員マスタ（給与計算用） + +## Layout（テーブル定義） + +### DB基本情報 + +| DB名 | DB ID | COPY ID | INDEX | +|------|-------|---------|-------| +| 給与計算DB | EMP-MASTER | KYU01REC | PK: EMP-ID | + +### カラム定義 + +| No | 項目名 | 項目名(英字名) | TYPE | 最大長 | 小数桁 | バイト数 | NULL | DEFAULT | PK | INDEX1 | INDEX2 | INDEX3 | 備考 | +|----|--------|---------------|------|--------|--------|---------|------|---------|----|--------|--------|--------|------| +| 1 | 社員番号 | EMP-ID | CHAR | 8 | | 8 | NOT NULL | | ✓ | | | | | +| 2 | 氏名 | EMP-NAME | VARCHAR | 40 | | 40 | NOT NULL | | | | | | | +| 3 | 部署コード | DEPT-CODE | CHAR | 2 | | 2 | NOT NULL | | | | | | | +| 4 | 地域コード | REGION-CODE | CHAR | 2 | | 2 | NOT NULL | | | | | | | +| 5 | 職種コード | CATEGORY-CODE | CHAR | 3 | | 3 | NOT NULL | | | | | | | +| 6 | 基本給 | BASE-SALARY | DECIMAL | 9 | 0 | 5 | NOT NULL | | | | | | | +| 7 | 時給 | HOURLY-RATE | DECIMAL | 7 | 0 | 4 | NOT NULL | | | | | | | +| 8 | 扶養人数 | DEPENDENT-COUNT | SMALLINT | — | | 2 | NOT NULL | | | | | | | +| 9 | ステータス | STATUS | CHAR | 1 | | 1 | NOT NULL | | | | | | '0'=在籍, '9'=退職 | +| 10 | 更新日時 | UPDATED-AT | TIMESTAMP | — | | 10 | NOT NULL | CURRENT TIMESTAMP | | | | | | + +### 備考 + +- KYU02REGがINSERT/UPSERTを実行 +- KYU04CALがSELECTで参照 + +--- + +# TAX-TABLE（SALARYDB） — 所得税率テーブル + +## Layout（テーブル定義） + +### DB基本情報 + +| DB名 | DB ID | COPY ID | INDEX | +|------|-------|---------|-------| +| 給与計算DB | TAX-TABLE | — | PK: (TAX-FROM, TAX-TO) | + +### カラム定義 + +| No | 項目名 | 項目名(英字名) | TYPE | 最大長 | 小数桁 | バイト数 | NULL | DEFAULT | PK | INDEX1 | INDEX2 | INDEX3 | 備考 | +|----|--------|---------------|------|--------|--------|---------|------|---------|----|--------|--------|--------|------| +| 1 | 課税下限 | TAX-FROM | DECIMAL | 9 | 0 | 5 | NOT NULL | | ✓ | | | | | +| 2 | 課税上限 | TAX-TO | DECIMAL | 9 | 0 | 5 | NOT NULL | | ✓ | | | | | +| 3 | 税率 | TAX-RATE | DECIMAL | 5 | 4 | 3 | NOT NULL | | | | | | | +| 4 | 控除額 | DEDUCTION | DECIMAL | 9 | 0 | 5 | NOT NULL | | | | | | | + +### 備考 + +- KYU05DEDがSELECT ... BETWEENで参照 +- 課税所得に対する超過累進税率 + +--- + +# INSURANCE-TABLE（SALARYDB） — 社会保険料率テーブル + +## Layout（テーブル定義） + +### DB基本情報 + +| DB名 | DB ID | COPY ID | INDEX | +|------|-------|---------|-------| +| 給与計算DB | INSURANCE-TABLE | — | PK: (INS-INCOME-FROM, INS-INCOME-TO) | + +### カラム定義 + +| No | 項目名 | 項目名(英字名) | TYPE | 最大長 | 小数桁 | バイト数 | NULL | DEFAULT | PK | INDEX1 | INDEX2 | INDEX3 | 備考 | +|----|--------|---------------|------|--------|--------|---------|------|---------|----|--------|--------|--------|------| +| 1 | 所得下限 | INS-INCOME-FROM | DECIMAL | 9 | 0 | 5 | NOT NULL | | ✓ | | | | | +| 2 | 所得上限 | INS-INCOME-TO | DECIMAL | 9 | 0 | 5 | NOT NULL | | ✓ | | | | | +| 3 | 健康保険料率 | INS-HEALTH-RATE | DECIMAL | 7 | 6 | 4 | NOT NULL | | | | | | | +| 4 | 厚生年金保険料率 | INS-PENSION-RATE | DECIMAL | 7 | 6 | 4 | NOT NULL | | | | | | | +| 5 | 更新日時 | UPDATED-AT | TIMESTAMP | — | | 10 | NOT NULL | CURRENT TIMESTAMP | | | | | | + +### 備考 + +- KYU05DEDが内部テーブル（SEARCH ALL）に取込んで参照 +- 被保険者負担分のみ + +--- + +# SALARY-RESULTS（SALARYDB） — 給与計算結果テーブル + +## Layout（テーブル定義） + +### DB基本情報 + +| DB名 | DB ID | COPY ID | INDEX | +|------|-------|---------|-------| +| 給与計算DB | SALARY-RESULTS | — | PK: (EMP-ID, YEAR-MONTH) | + +### カラム定義 + +| No | 項目名 | 項目名(英字名) | TYPE | 最大長 | 小数桁 | バイト数 | NULL | DEFAULT | PK | INDEX1 | INDEX2 | INDEX3 | 備考 | +|----|--------|---------------|------|--------|--------|---------|------|---------|----|--------|--------|--------|------| +| 1 | 社員番号 | EMP-ID | CHAR | 8 | | 8 | NOT NULL | | ✓ | | | | | +| 2 | 対象年月 | YEAR-MONTH | CHAR | 6 | | 6 | NOT NULL | | ✓ | | | | YYYYMM | +| 3 | 総支給額 | GROSS-PAYMENT | DECIMAL | 9 | 0 | 5 | NOT NULL | | | | | | | +| 4 | 源泉所得税 | INCOME-TAX | DECIMAL | 9 | 0 | 5 | NOT NULL | | | | | | | +| 5 | 社会保険料 | INSURANCE | DECIMAL | 9 | 0 | 5 | NOT NULL | | | | | | | +| 6 | 住民税 | RESIDENT-TAX | DECIMAL | 9 | 0 | 5 | NOT NULL | | | | | | | +| 7 | 差引支給額 | NET-PAYMENT | DECIMAL | 9 | 0 | 5 | NOT NULL | | | | | | | +| 8 | 更新日時 | UPDATED-AT | TIMESTAMP | — | | 10 | NOT NULL | CURRENT TIMESTAMP | | | | | | + +### 備考 + +- KYU06UPDがINSERT/UPSERTを実行 diff --git a/詳細設計書/設計レビューサインオフ_KYU.md b/詳細設計書/設計レビューサインオフ_KYU.md new file mode 100644 index 0000000..5b2dea3 --- /dev/null +++ b/詳細設計書/設計レビューサインオフ_KYU.md @@ -0,0 +1,148 @@ +# 設計レビューサインオフ（サブシステムC / KYU） + +> レビュー日: 2026-07-09 +> レビュー対象: サブシステムC（KYU01CVT〜KYU09MRG）全9プログラム +> 状態: ✅ サインオフ + +--- + +## 1. JCL vs SELECT/ASSIGN 整合性 + +### 判定: ✅ 合格 + +| JCL | DD名 | プログラム | ASSIGN先 | 一致 | +|-----|------|-----------|---------|:---:| +| KYUJ010 STEP010 | KYU01R01 | KYU01CVT | KYU01R01 | ✅ | +| KYUJ010 STEP010 | KYU01W01 | KYU01CVT | KYU01W01 | ✅ | +| KYUJ010 STEP010 | KYU01W02 | KYU01CVT | KYU01W02 | ✅ | +| KYUJ010 STEP020 | KYU02R02 | KYU02REG | KYU02R02 | ✅ | +| KYUJ010 STEP020 | KYU02W03 | KYU02REG | KYU02W03 | ✅ | +| KYUJ020 STEP021 | KYU03R01 | KYU03AGG | KYU03R01 | ✅ | +| KYUJ020 STEP021 | KYU03W01 | KYU03AGG | KYU03W01 | ✅ | +| KYUJ020 STEP021 | KYU03W02 | KYU03AGG | KYU03W02 | ✅ | +| KYUJ020 STEP022 | KYU04R02 | KYU04CAL | KYU04R02 | ✅ | +| KYUJ020 STEP022 | KYU04R03 | KYU04CAL | KYU04R03 | ✅ | +| KYUJ020 STEP022 | KYU04W03 | KYU04CAL | KYU04W03 | ✅ | +| KYUJ020 STEP022 | KYU04W04 | KYU04CAL | KYU04W04 | ✅ | +| KYUJ030 STEP030 | KYU05R01 | KYU05DED | KYU05R01 | ✅ | +| KYUJ030 STEP030 | KYU05W01 | KYU05DED | KYU05W01 | ✅ | +| KYUJ030 STEP030 | KYU05W02 | KYU05DED | KYU05W02 | ✅ | +| KYUJ030 STEP031 | KYU06R02 | KYU06UPD | KYU06R02 | ✅ | +| KYUJ030 STEP031 | KYU06W03 | KYU06UPD | KYU06W03 | ✅ | +| KYUJ040 STEP040 | KYU07R01 | KYU07DIV | KYU07R01 | ✅ | +| KYUJ040 STEP040 | KYU07D01〜D50 | KYU07DIV | KYU07D01〜D50 | ✅ | +| KYUJ040 STEP040 | KYU07SYS | KYU07DIV | KYU07SYS | ✅ | +| KYUJ040 STEP040 | KYU07W99 | KYU07DIV | KYU07W99 | ✅ | +| KYUJ050 STEP050 | KYU08R01 | KYU08PRI | KYU08R01 | ✅ | +| KYUJ050 STEP050 | KYU08W01 | KYU08PRI | KYU08W01 | ✅ | +| KYUJ050 STEP050 | KYU08W02 | KYU08PRI | KYU08W02 | ✅ | +| KYUJ060 STEP060 | KYU09M01 | KYU09MRG | KYU09M01 | ✅ | +| KYUJ060 STEP060 | KYU09M02 | KYU09MRG | KYU09M02 | ✅ | +| KYUJ060 STEP060 | KYU09M99 | KYU09MRG | KYU09M99 | ✅ | +| KYUJ060 STEP060 | KYU09W01 | KYU09MRG | KYU09W01 | ✅ | +| KYUJ060 STEP060 | KYU09W02 | KYU09MRG | KYU09W02 | ✅ | + +全29 DD名がJCLとASSIGNで一致。前回修正済み。 + +--- + +## 2. Sort-key 条件整合性 + +### 判定: ✅ 合格 + +| プログラム | JCL SORT条件 | 設計書記載 | 一致 | +|-----------|-------------|-----------|:---:| +| KYU03AGG | SORT FIELDS=(1,8,CH,A) | 社員番号(1-8桁)昇順 | ✅ | +| KYU07DIV | SORT FIELDS=(50,2,CH,A) | 部署コード(50-51桁)昇順 | ✅ | +| KYU08PRI | SORT FIELDS=(1,8,CH,A) | 社員番号(1-8桁)昇順 | ✅ | +| KYU09MRG | MERGE ON ASCENDING KEY EMP-ID | 社員番号昇順（MERGE文内部） | ✅ | + +JCL SORTステップ(STEP020S/STEP040S/STEP050S)とプログラム前提条件の一致を確認。 + +--- + +## 3. COPY-book 整合性 + +### 判定: ⚠️ 条件付き合格（軽微な問題1件） + +#### 3.1 レコード長検算 + +| COPY書式 | 用途 | 計算長 | 設計書記載 | 一致 | +|---------|------|:-----:|:---------:|:---:| +| KYU01REC | EMP-RECORD (W01) | 80B | 80B | ✅ | +| KYU02REC | ABSENCE-AGGREGATE (W01) | 80B | 80B | ✅ | +| KYU03REC | SALARY-DETAIL (W03) | 240B | 240B | ✅ | +| KYU04REC | SALARY-NET (W01/D01〜50/M01/M02) | 200B | 200B | ✅ | +| KYU05REC | PAYSLIP (W01) | 200B | 200B | ✅ | +| KYU06REC | PAYMENT-DATA (W01) | 200B | 200B | ✅ | +| KYU99REC | ERROR-LOG (W02/W03/W04/W99) | 200B(VB) | 200B | ✅ | + +#### 3.2 ファイル連携レイアウト一致 + +| 出力元 | 出力COPY | 入力先 | 入力COPY | 一致 | +|--------|---------|--------|---------|:---:| +| KYU01CVT(W01) | KYU01REC | KYU02REG(R02) | KYU01REC | ✅ | +| KYU03AGG(W01) | KYU02REC | KYU04CAL(R02) | KYU02REC | ✅ | +| KYU04CAL(W03) | KYU03REC | KYU05DED(R01) | KYU03REC | ✅ | +| KYU05DED(W01) | KYU04REC | KYU06UPD(R02) / KYU07DIV(R01) / KYU08PRI(R01) / KYU09MRG(M01) | KYU04REC | ✅ | +| KYU08PRI(W01) | KYU05REC | —（印刷出力） | — | ✅ | +| KYU09MRG(W01) | KYU06REC | —（銀行データ出力） | — | ✅ | + +#### 3.3 軽微な問題 + +| # | 内容 | 対象 | 対処 | +|---|------|------|------| +| 1 | KYU02REC.cpy 7行目: `03`の前に余分なスペース（インデント不整合） | cpy/KYU02REC.cpy:7 | 後日修正推奨（コンパイル・動作に影響なし） | + +--- + +## 4. CALL/プログラム間インターフェース + +### 判定: ⚠️ 条件付き合格（設計上の不整合1件） + +#### 4.1 CALL先一覧 + +| CALL元 | CALL先 | 設計書記載 | コード存在 | 一致 | +|--------|--------|:---------:|:---------:|:---:| +| KYU01CVT | SUB02MSG | ✅ | ✅ | ✅ | +| KYU01CVT | SUB03END | ✅ | ✅ | ✅ | +| KYU01CVT | SUB04CHK | ✅ | ✅ | ✅ | +| KYU02REG | SUB02MSG | ✅ | ✅ | ✅ | +| KYU02REG | SUB03END | ✅ | ✅ | ✅ | +| KYU03AGG | SUB02MSG | ✅ | ✅ | ✅ | +| KYU03AGG | SUB03END | ✅ | ✅ | ✅ | +| KYU04CAL | SUB01DAT | ✅ | ✅ | ✅ | +| KYU04CAL | SUB02MSG | ✅ | ✅ | ✅ | +| KYU04CAL | SUB03END | ✅ | ✅ | ✅ | +| KYU04CAL | SUB05TIM | ✅ | ✅ | ✅ | +| KYU05DED | SUB02MSG | ✅ | ✅ | ✅ | +| KYU05DED | SUB03END | ✅ | ✅ | ✅ | +| KYU06UPD | SUB02MSG | ✅ | ✅ | ✅ | +| KYU06UPD | SUB03END | ✅ | ✅ | ✅ | +| KYU07DIV | SUB02MSG | ✅ | ✅ | ✅ | +| KYU07DIV | SUB03END | ✅ | ✅ | ✅ | +| KYU08PRI | SUB01DAT | ✅ | ✅ | ✅ | +| KYU08PRI | SUB02MSG | ✅ | ✅ | ✅ | +| KYU08PRI | SUB03END | ✅ | ✅ | ✅ | +| KYU09MRG | SUB01DAT | ✅ | ✅ | ✅ | +| KYU09MRG | SUB02MSG | ✅ | ✅ | ✅ | +| KYU09MRG | SUB03END | ✅ | ✅ | ✅ | + +#### 4.2 設計上の不整合 + +| # | 内容 | プログラム | 設計書 | コード | 対処 | +|---|------|-----------|-------|-------|------| +| 1 | SUB01DAT呼出しの記載有無 | KYU01CVT | 1-4にSUB01DAT呼出し記載あり（運用日付取得） | SUB01DAT呼出しなし（CSV変換に運用日不要） | 設計書の方がテンプレートから過剰に記載。SUB01DATの呼出しは実際不要。**設計書を削除修正すべき** | + +--- + +## 5. サインオフ + +上記レビューの結果、全プログラムの設計とコードの整合性は確認されました。 +軽微な問題2件（COPYインデント・設計書過剰記載）は後日修正対象とし、本設計レビューはサインオフします。 + +| 判定 | 日付 | レビュー担当 | +|:---:|:---:|:-----------:| +| ✅ サインオフ | 2026-07-09 | AI (自動レビュー) | + +--- diff --git a/詳細設計書/詳細設計書_KYU01CVT.md b/詳細設計書/詳細設計書_KYU01CVT.md new file mode 100644 index 0000000..397d997 --- /dev/null +++ b/詳細設計書/詳細設計書_KYU01CVT.md @@ -0,0 +1,156 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU01CVT | +| 3 | プログラム名 | 社員マスタCSV→FB変換処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | CSV→FB変換（改行あり） | +| 6 | 機能概要 | CSV形式の社員マスタを読み込み、固定長80Bに変換する。 | +| 7 | | 引用符内改行をINSPECT CONVERTINGで処理。 | +| 8 | | 項目チェックはSUB04CHKで実施。 | +| 9 | | 正常：EMP-RECORD（W01）出力／異常：ERROR-LOG（W02）出力 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | EMP-MASTER.CSV | ソート不要。CSV形式（カンマ区切り、引用符内改行あり）。コメント行（先頭#）読み飛ばし | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | EMP-MASTER.CSV | R01 | KYU01R01 | I | 自前(500B) | V | | 500 | PS | CSV形式 | +| 2 | EMP-RECORD | W01 | KYU01W01 | O | KYU01REC | FB | | 80 | PS | | +| 3 | ERROR-LOG | W02 | KYU01W02 | O | KYU99REC | VB | | 200 | PS | | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | EMP-MASTER.CSV | なし | なし | + +### 使用モジュール一覧 + +| NO | 機能 | プログラムID | 使用COPY名 | +|----|------|-------------|-----------| +| 1 | メッセージ編集出力SUB | SUB02MSG | ZANMSGAC | +| 2 | ABEND処理SUB | SUB03END | ZANENDAC | +| 3 | 項目チェックSUB | SUB04CHK | ZANCHKAC | + +--- + +## 処理詳細 + +``` +1.初期処理（1000ITTSOR） + 1-1.開始メッセージ出力 + 【メッセージ編集】 + メッセージ番号：1(開始メッセージ) + 1-2.コンパイル日時出力 + 【メッセージ編集】 + メッセージ番号：33(コンパイル日時) + PARM1：コンパイル日時 + PARM2：'COMPILED' + 1-3.ワークエリアの初期化 + INITIALIZE WRKARA + MOVE SPACE TO WRK-CSV-ACCUM + MOVE ZERO TO WRK-ACCUM-LEN + 1-4.使用ファイルのオープン + OPEN INPUT R01INNFIL + OPEN OUTPUT W01OUTFIL W02OUTFIL + 1-6.R01を読み込む。(1100R01INNSOR)(1回目) + +2.主処理（2000MAJSOR)(R01を全て読み終えるまで下記を繰り返す） +2-1.コメント行（先頭#）はスキップ（2000MAJSOR内インライン） + WRK-CSV-LINE(1:1) = '#' の場合、次行READしてEXIT SECTION + 2-2.引用符内改行処理（2000MAJSOR内インライン） + 2-2-1.WRK-IN-QUOTEフラグを追跡し、引用符内の改行を連結用ワーク領域（WRK-CSV-ACCUM）に蓄積 + 2-2-2.引用符内奇数個の"で状態反転（WRK-QUOTE-ACTIVE / WRK-QUOTE-INACTIVE） + 2-2-3.完全な1レコード分が揃ったら、INSPECT CONVERTING X"0D"/X"0A" BY SPACEで改行→スペース変換 + 2-3.CSV分解（2100CSVUNSOR） + UNSTRING DELIMITED BY ',' INTO 各フィールド COUNT IN WS-FIELD-COUNT + 項目数≠9の場合はERROR-LOG出力 + 2-4.社員番号空チェック + INSPECT WRK-CSV-EMP-ID TALLYING FOR LEADING SPACES + 全桁SPACEの場合はERROR-LOG出力 + 2-5.項目チェック（SUB04CHK） + 2-5-1.社員番号（EMPID）数値妥当性チェック + 2-5-2.時給（NUM）数値妥当性チェック + エラー時はERROR-LOG出力 + 2-6.社員名英字チェック（IF NOT ALPHABETIC、参考判定） + 2-7.W01OUTREC編集 + MOVE CSV各フィールド→W01OUTREC該当項目 + 2-8.W01出力（WRITE W01OUTREC） + CUN-W01OUT加算 + 2-9.R01を読み込む（1100R01INNSOR)(2件目以降) + +3.終了処理（3000STPSOR） + 3-1.入出力ファイルのクローズ + 3-2.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'KYU01R01' + PARM2：CUN-R01INN + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU01W01' + PARM2：CUN-W01OUT + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU01W02' + PARM2：CUN-W02OUT + 3-3.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +### DECLARATIVES（ファイルエラー処理） + +``` +DECLARATIVES. + USE AFTER ERROR PROCEDURE ON R01INNFIL. + PERFORM 9999ABDSOR. + USE AFTER ERROR PROCEDURE ON W01OUTFIL. + PERFORM 9999ABDSOR. + USE AFTER ERROR PROCEDURE ON W02OUTFIL. + PERFORM 9999ABDSOR. +END DECLARATIVES. +``` + +--- + +## 出力レコード定義 + +### 出力ファイル1（W01/EMP-RECORD） + +COPY書式：KYU01REC（80B FB） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | EMP-ID | CSV同項目を設定 | | +| 2 | EMP-NAME | CSV同項目を設定 | | +| 3 | DEPT-CODE | CSV同項目を設定 | | +| 4 | REGION-CODE | CSV同項目を設定 | | +| 5 | CATEGORY-CODE | CSV同項目を設定 | | +| 6 | BASE-SALARY | CSV同項目を設定 | | +| 7 | HOURLY-RATE | CSV同項目を設定 | | +| 8 | DEPENDENT-COUNT | CSV同項目を設定 | | +| 9 | STATUS | CSV同項目を設定 | | +| 10 | FILLER | SPACE固定 | | + +### 出力ファイル2（W02/ERROR-LOG） + +COPY書式：KYU99REC（VB 200B） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 'CSV-ERR'または'EMPID-ERR'で固定 | エラー区分 | +| 2 | ERR-DETAIL | STRINGで編集 | エラー内容（CSV行の先頭80B等） | diff --git a/詳細設計書/詳細設計書_KYU02REG.md b/詳細設計書/詳細設計書_KYU02REG.md new file mode 100644 index 0000000..c8c16af --- /dev/null +++ b/詳細設計書/詳細設計書_KYU02REG.md @@ -0,0 +1,146 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU02REG | +| 3 | プログラム名 | 社員マスタDB2登録処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | DB更新 | +| 6 | 機能概要 | EMP-RECORD（80B固定長）を読み込み、DB2 EMP-MASTERにINSERTする。 | +| 7 | | SQLCODE=-803（重複）の場合はUPDATEに切替える（UPSERT）。 | +| 8 | | エラー時はERROR-LOGに出力する。 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | EMP-RECORD | ソート不要。KYU01CVT出力の80B固定長ファイル。社員番号昇順である必要はない | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | EMP-RECORD | R02 | KYU02R02 | I | KYU01REC | FB | | 80 | PS | | +| 2 | ERROR-LOG | W03 | KYU02W03 | O | KYU99REC | VB | | 200 | PS | | +| 3 | EMP-MASTER(DB2) | — | — | — | — | — | — | — | DB2 | EXEC SQL INSERT/UPDATE | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | EMP-RECORD | なし | なし | + +### 使用モジュール一覧 + +| 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.ワークエリアの初期化 + INITIALIZE WRKARA + 1-4.DB接続 + EXEC SQL CONNECT TO 'data/SALARY.db' END-EXEC + 1-5.使用ファイルのオープン + OPEN INPUT R02INNFIL + OPEN OUTPUT W03OUTFIL + 1-6.R02を読み込む。(1100R02INNSOR)(1回目) + +2.主処理（2000MAJSOR)(R02を全て読み終えるまで下記を繰り返す） + 2-1.DB2ホスト変数にMOVE + MOVE R02EMP-ID〜R02STATUS → DBV-EMP-ID〜DBV-STATUS + 2-2.EXEC SQL INSERT試行（2000MAJSOR内インライン） + EXEC SQL INSERT INTO EMP-MASTER + (EMP-ID, EMP-NAME, DEPT-CODE, REGION-CODE, + CATEGORY-CODE, BASE-SALARY, HOURLY-RATE, + DEPENDENT-COUNT, STATUS, UPDATED-AT) + VALUES + (:DBV-EMP-ID, :DBV-EMP-NAME, :DBV-DEPT-CODE, + :DBV-REGION-CODE, :DBV-CATEGORY-CODE, + :DBV-BASE-SALARY, :DBV-HOURLY-RATE, + :DBV-DEPENDENT-COUNT, :DBV-STATUS, + CURRENT TIMESTAMP) + END-EXEC + 2-3.SQLCODE判定 + 2-3-1.SQLCODE = 0 → INSERT成功 + CUN-DB-INS加算、次行READ + 2-3-2.SQLCODE = -803 → 重複 + EXEC SQL UPDATE EMP-MASTER SET ... WHERE EMP-ID = :DBV-EMP-ID + SQLCODE = 0 → CUN-DB-UPD加算 + SQLCODE ≠ 0 → ERROR-LOG出力（2200ERROUTSOR） + 次行READ + 2-3-3.その他SQLエラー + ERROR-LOG出力（2200ERROUTSOR） + 次行READ + +3.終了処理（3000STPSOR） + 3-1.入出力ファイルのクローズ + 3-2.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'KYU02R02' + PARM2：CUN-R02INN + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'DB-INSERT' + PARM2：CUN-DB-INS + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'DB-UPDATE' + PARM2：CUN-DB-UPD + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU02W03' + PARM2：CUN-W03OUT + 3-3.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +--- + +## 出力レコード定義 + +### 出力ファイル1（W03/ERROR-LOG） + +COPY書式：KYU99REC（VB 200B） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 'DB-ERR'で固定 | エラー区分 | +| 2 | ERR-DETAIL | DBV-EMP-IDを設定 | エラー発生社員番号 | + +### DB2出力（EMP-MASTER） + +| No | カラム名 | 設定元 | 備考 | +|----|---------|--------|------| +| 1 | EMP-ID | DBV-EMP-ID | ホスト変数 | +| 2 | EMP-NAME | DBV-EMP-NAME | ホスト変数 | +| 3 | DEPT-CODE | DBV-DEPT-CODE | ホスト変数 | +| 4 | REGION-CODE | DBV-REGION-CODE | ホスト変数 | +| 5 | CATEGORY-CODE | DBV-CATEGORY-CODE | ホスト変数 | +| 6 | BASE-SALARY | DBV-BASE-SALARY | ホスト変数 | +| 7 | HOURLY-RATE | DBV-HOURLY-RATE | ホスト変数 | +| 8 | DEPENDENT-COUNT | DBV-DEPENDENT-COUNT | ホスト変数 | +| 9 | STATUS | DBV-STATUS | ホスト変数 | +| 10 | UPDATED-AT | CURRENT TIMESTAMP | DB2関数 | diff --git a/詳細設計書/詳細設計書_KYU03AGG.md b/詳細設計書/詳細設計書_KYU03AGG.md new file mode 100644 index 0000000..a1eeb06 --- /dev/null +++ b/詳細設計書/詳細設計書_KYU03AGG.md @@ -0,0 +1,139 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU03AGG | +| 3 | プログラム名 | 欠勤集約処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | キーブレイク（集約） | +| 6 | 機能概要 | JCL SORT済み欠勤データ（社員番号昇順）を読み込み、同一社員内の欠勤時間・回数を集約する。 | +| 7 | | 社員単位に1件の集約レコードをABSENCE-AGGREGATEに出力する。 | +| 8 | | エラー時はERROR-LOGに出力する。 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | KYU02S01(ABSENCE-SUMMARY) | JCL SORTにより社員番号（1-8桁）昇順に整列済みであること | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | KYU02S01 | R01 | KYU03R01 | I | 自前(80B) | FB | | 80 | PS | JCL SORT済み | +| 2 | ABSENCE-AGGREGATE | W01 | KYU03W01 | O | KYU02REC | FB | | 80 | PS | 社員単位1件 | +| 3 | ERROR-LOG | W02 | KYU03W02 | O | KYU99REC | VB | | 200 | PS | | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | KYU02S01 | 社員番号（1-8桁CH昇順） | 社員番号による集約キーブレイク | + +### 使用モジュール一覧 + +| 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.ワークエリアの初期化 + INITIALIZE WRKARA + 1-4.使用ファイルのオープン + OPEN INPUT R01INNFIL + OPEN OUTPUT W01OUTFIL W02OUTFIL + 1-5.R01を読み込む。(1100R01INNSOR)(1回目) + +2.主処理（2000MAJSOR)(R01を全て読み終えるまで下記を繰り返す） + 2-1.キーブレイク判定 + 2-1-1.前社員キー設定済み（WRK-PREV-Y）の場合 + 2-1-1-1.WRK-PREV-EMP-ID = WRK-EMP-ID（同一社員） + ADD 1 TO WRK-ABSENT-COUNT + ADD WRK-ABSENT-HOURS TO WRK-TOTAL-HOURS + 2-1-1-2.異なる社員 + 前社員の集約レコード出力（2100WRITOUTSOR） + WRK-PREV-EMP-ID ← WRK-EMP-ID + INITIALIZE WRK-TOTAL-HOURS WRK-ABSENT-COUNT + REPLACING NUMERIC DATA BY ZERO + MOVE 1 TO WRK-ABSENT-COUNT + MOVE WRK-ABSENT-HOURS TO WRK-TOTAL-HOURS + 2-1-2.初回（WRK-PREV-Y未設定） + WRK-PREV-EMP-ID ← WRK-EMP-ID + WRK-PREV-Y ← TRUE + MOVE 1 TO WRK-ABSENT-COUNT + MOVE WRK-ABSENT-HOURS TO WRK-TOTAL-HOURS + 2-2.R01を読み込む（1100R01INNSOR)(2件目以降) + +3.終了処理（3000STPSOR） + 3-1.最終社員の集約レコード出力 + IF WRK-PREV-Y → PERFORM 2100WRITOUTSOR + 3-2.入出力ファイルのクローズ + 3-3.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'KYU03R01' + PARM2：CUN-R01INN + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU03W01' + PARM2：CUN-W01OUT + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU03W02' + PARM2：CUN-W02OUT + 3-4.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) + +補足：集約ロジック詳細 + WRK-PREV-EMP-ID：前社員キー保持変数 + WRK-TOTAL-HOURS：同一社員内の欠勤時間合計 + WRK-ABSENT-COUNT：同一社員内の欠勤回数 + 初回設定後、同一社員の間は加算を継続し、異社員出現時に前社員の集約結果を出力する。 + 全READ終了後、最終社員の出力を3000STPSORで実施する。 +``` + +--- + +## 出力レコード定義 + +### 出力ファイル1（W01/ABSENCE-AGGREGATE） + +COPY書式：KYU02REC（80B FB） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | EMP-ID | WRK-PREV-EMP-ID | 社員番号 | +| 2 | YEAR-MONTH | WRK-YEAR-MONTH | 対象年月（YYYYMM） | +| 3 | TOTAL-HOURS | WRK-TOTAL-HOURS | 欠勤時間合計 | +| 4 | ABSENT-COUNT | WRK-ABSENT-COUNT | 欠勤回数 | +| 5 | FILLER | SPACE固定 | | + +### 出力ファイル2（W02/ERROR-LOG） + +COPY書式：KYU99REC（VB 200B） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 区分固定値 | エラー区分 | +| 2 | ERR-DETAIL | STRINGで編集 | エラー内容 | diff --git a/詳細設計書/詳細設計書_KYU04CAL.md b/詳細設計書/詳細設計書_KYU04CAL.md new file mode 100644 index 0000000..0f70af8 --- /dev/null +++ b/詳細設計書/詳細設計書_KYU04CAL.md @@ -0,0 +1,176 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU04CAL | +| 3 | プログラム名 | 給与計算処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | 1:N＋キーブレイク（同キー） | +| 6 | 機能概要 | ABSENCE-AGGREGATEを読込み、DB2 EMP-MASTER・OVT-MONTHLYを参照し給与計算を実行する。 | +| 7 | | 欠勤控除額計算→時間外手当計算→支給総額計算→SALARY-DETAIL出力 | +| 8 | | 勤怠区分×手当種別の複合分岐はEVALUATE ALSOで実装 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | ABSENCE-AGGREGATE(KYU04R02) | ソート不要。社員番号単位の1件（KYU03AGG出力） | +| 2 | PAY-PARAM(KYU04R03) | CSV形式。基本給パラメータを保持 | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | ABSENCE-AGGREGATE | R02 | KYU04R02 | I | KYU02REC | F | | 80 | PS | KYU03AGG出力 | +| 2 | PAY-PARAM | R03 | KYU04R03 | I | 自前(80B) | F | | 80 | PS | CSV形式 | +| 3 | SALARY-DETAIL | W03 | KYU04W03 | O | KYU03REC | FB | | 240 | PS | | +| 4 | ERROR-LOG | W04 | KYU04W04 | O | KYU99REC | VB | | 200 | PS | | +| 5 | EMP-MASTER (DB2) | — | — | I | — | — | — | — | DB2 | EXEC SQL SELECT | +| 6 | OVT-MONTHLY (DB2) | — | — | I | — | — | — | — | DB2 | EXEC SQL SELECT SUM | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | ABSENCE-AGGREGATE | なし | 社員番号（1:Nマッチングキー） | + +### 使用モジュール一覧 + +| NO | 機能 | プログラムID | 使用COPY名 | +|----|------|-------------|-----------| +| 1 | 運用日付取得SUB | SUB01DAT | ZANDATAC | +| 2 | メッセージ編集出力SUB | SUB02MSG | ZANMSGAC | +| 3 | ABEND処理SUB | SUB03END | ZANENDAC | + +--- + +## 処理詳細 + +``` +1.初期処理（1000ITTSOR） + 1-1.開始メッセージ出力 + 【メッセージ編集】 + メッセージ番号：1(開始メッセージ) + 1-2.コンパイル日時出力 + 【メッセージ編集】 + メッセージ番号：33(コンパイル日時) + PARM1：コンパイル日時 + PARM2：'COMPILED' + 1-3.ワークエリアの初期化 + 1-4.運用日付取得SUB(SUB01DAT）により運用日を取得する。 + 復帰コード≠ZEROの場合、メッセージを出力し、ABEND処理SUBを呼び出し異常終了する。 + 【メッセージ編集】 + メッセージ番号：5(サブエラー) + PARM1：'SUB01DAT' + PARM2：復帰コード + 【ABEND処理SUB】 + ABENDコード:999 + 1-5.PAY-PARAM(R03)をOPEN READし、基本給パラメータを取得する。 + UNSTRINGでカンマ区切りを分解し、対象年月と基本給を抽出する。 + 1-6.使用ファイルのOPEN + R02INNFIL / W03OUTFIL / W04OUTFIL をOPEN + 1-7.DB接続（EXEC SQL CONNECT TO 'data/SALARY.db'） + 1-8.R02を読み込む。(1100R02INNSOR)(1回目) + +2.主処理（2000MAJSOR)(R02を全て読み終えるまで下記を繰り返す） + 2-1.ホスト変数セット + R02のEMP-IDをDBV-EMP-IDにMOVE + 2-2.DB2 EMP-MASTER参照（EXEC SQL SELECT） + 【SQL】 + SELECT EMP-NAME, DEPT-CODE, REGION-CODE, + CATEGORY-CODE, BASE-SALARY, HOURLY-RATE, + DEPENDENT-COUNT, STATUS + ※REGION-CODE/CATEGORY-CODEはFYI用に取得するが現状未使用 + FROM EMP-MASTER + WHERE EMP-ID = :DBV-EMP-ID + SQLコード≠0の場合、エラー出力(2200ERROUTSOR)し次件へ。 + 2-3.DB2 OVT-MONTHLY参照（EXEC SQL SELECT SUM） + 【SQL】 + SELECT SUM(OVT-HOURS) + FROM OVT-MONTHLY + WHERE EMP-ID = :DBV-EMP-ID + AND YEAR-MONTH = :WRK-YEAR-MONTH + SQLコード≠0の場合、残業時間をZEROとする。 + 2-4.給与計算（2100CALCSOR） + 2-4-1.欠勤控除額計算 + 【COMPUTE】 + WRK-ABSENT-DEDUCT ROUNDED = + DBV-HOURLY-RATE × WRK-ABSENT-HOURS + ON SIZE ERROR → ZERO設定 + 2-4-2.時間外手当計算 + 【COMPUTE】 + WRK-OVT-AMOUNT ROUNDED = + DBV-HOURLY-RATE × DBV-OVT-HOURS × CNS-OVERTIME-RATE(1.25) + ON SIZE ERROR → ZERO設定 + 2-4-3.EVALUATE ALSO（勤怠区分×手当種別の複合分岐） + 【EVALUATE ALSO】 + WRK-ALLOWANCE-TYPE = 'OVT' AND WRK-ATTEND-TYPE = 'W' + → WRK-AMOUNT = HOURLY-RATE × OVT-HOURS × 1.25 + WRK-ALLOWANCE-TYPE = 'OVT' AND WRK-ATTEND-TYPE = 'H' + → WRK-AMOUNT = HOURLY-RATE × OVT-HOURS × 1.35 + WRK-ALLOWANCE-TYPE = 'LATE' AND WRK-ATTEND-TYPE = ANY + → WRK-AMOUNT = HOURLY-RATE × OVT-HOURS × 0.50 + WHEN OTHER → WRK-AMOUNT = ZERO + 2-4-4.支給総額計算 + 【COMPUTE】 + WRK-GROSS-PAYMENT = + DBV-BASE-SALARY + WRK-OVT-AMOUNT - WRK-ABSENT-DEDUCT + 2-5.SALARY-DETAIL出力（2110WRITOUTSOR） + 各項目をW03OUTREC（KYU03REC）にMOVEしWRITE + W03OUT件数カウンタ(CUN-W03OUT)を+1 + 2-6.R02を読み込む。（1100R02INNSOR)(2件目以降) + +3.終了処理（3000STPSOR） + 3-1.入出力ファイルのクローズ + 3-2.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'KYU04R02' + PARM2：CUN-R02INN + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU04W03' + PARM2：CUN-W03OUT + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU04W04' + PARM2：CUN-W04OUT + 3-3.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +--- + +## 出力レコード定義 + +### 出力ファイル1（W03/SALARY-DETAIL） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | EMP-ID | R02EMP-ID | | +| 2 | EMP-NAME | DB2 EMP-MASTER EMP-NAME | | +| 3 | DEPT-CODE | DB2 EMP-MASTER DEPT-CODE | | +| 4 | BASE-SALARY | DB2 EMP-MASTER BASE-SALARY | | +| 5 | OVT-AMOUNT | 時間外手当計算結果 | | +| 6 | HOLIDAY-AMOUNT | 0で固定 | | +| 7 | ABSENT-DEDUCT | 欠勤控除額計算結果 | | +| 8 | GROSS-PAYMENT | 支給総額計算結果 | | +| 9 | OVT-HOURS | DB2 OVT-MONTHLY SUM結果 | | +| 10 | ABSENT-HOURS | R02TOTAL-HOURS | | +| 11 | ATTEND-TYPE | WRK-ATTEND-TYPE | | +| 12 | ALLOWANCE-TYPE | WRK-ALLOWANCE-TYPE | | +| 13 | FILLER | — | 131B | + +### 出力ファイル2（W04/ERROR-LOG） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 'DB-ERR'で固定 | | +| 2 | ERR-DETAIL | R02EMP-ID | エラー発生社員番号 | diff --git a/詳細設計書/詳細設計書_KYU05DED.md b/詳細設計書/詳細設計書_KYU05DED.md new file mode 100644 index 0000000..517bbf5 --- /dev/null +++ b/詳細設計書/詳細設計書_KYU05DED.md @@ -0,0 +1,167 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU05DED | +| 3 | プログラム名 | 控除計算処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | SELECT条件 | +| 6 | 機能概要 | SALARY-DETAILを入力に、源泉所得税・社会保険料・住民税を計算しSALARY-NETを出力する。 | +| 7 | | TAX-TABLE（DB2 SELECT ... BETWEEN）で税率検索、INSURANCE-TABLE（SEARCH ALL）で保険料率検索 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | SALARY-DETAIL(KYU05R01) | ソート不要。KYU04CALの出力を入力 | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | SALARY-DETAIL | R01 | KYU05R01 | I | KYU03REC | FB | | 240 | PS | KYU04CAL出力 | +| 2 | SALARY-NET | W01 | KYU05W01 | O | KYU04REC | FB | | 200 | PS | | +| 3 | ERROR-LOG | W02 | KYU05W02 | O | KYU99REC | VB | | 200 | PS | | +| 4 | TAX-TABLE (DB2) | — | — | I | — | — | — | — | DB2 | EXEC SQL SELECT ... BETWEEN | +| 5 | INSURANCE-TABLE (DB2) | — | — | I | — | — | — | — | DB2 | LOAD→WORKING-STORAGE→SEARCH ALL | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | 該当なし | なし | なし | + +### 使用モジュール一覧 + +| 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.ワークエリアの初期化 + 1-4.DB接続（EXEC SQL CONNECT TO 'data/SALARY.db'） + 1-5.INSURANCE-TABLE全件LOAD（1100INSLOADSOR） + 【SQL】（DECLARE INS-CURSOR） + SELECT INS-INCOME-FROM, INS-INCOME-TO, + INS-HEALTH-RATE, INS-PENSION-RATE + FROM INSURANCE-TABLE + ORDER BY INS-INCOME-FROM + OPEN CURSOR → FETCH ループ → WORKING-STORAGE(INSURANCE-WORK)に格納 + IW-COUNT で件数管理（最大200件） + → CLOSE CURSOR + 1-6.使用ファイルのOPEN + R01INNFIL / W01OUTFIL / W02OUTFIL をOPEN + 1-7.R01を読み込む。(1200R01INNSOR)(1回目) + +2.主処理（2000MAJSOR)(R01を全て読み終えるまで下記を繰り返す） + 2-1.課税所得計算 + 【IF判定】 + WRK-GROSS-PAYMENT < CNS-TAX-BASIC-DEDUCTION(50000) + → 課税所得 = 0 + 上記以外 + 【COMPUTE】 + WRK-TAXABLE-INCOME = + WRK-GROSS-PAYMENT - CNS-TAX-BASIC-DEDUCTION + 2-2.DB2 TAX-TABLE税率取得（EXEC SQL SELECT ... BETWEEN） + 【SQL】 + SELECT TAX-RATE, DEDUCTION + FROM TAX-TABLE + WHERE :WRK-TAXABLE-INCOME BETWEEN TAX-FROM AND TAX-TO + SQLコード=0の場合 + 【COMPUTE ROUNDED】 + WRK-INCOME-TAX = + WRK-TAXABLE-INCOME × DBV-TAX-RATE - DBV-TAX-DEDUCTION + 計算結果<0 → 0に補正 + SQLコード≠0の場合 + WRK-INCOME-TAX = 0 + 2-3.社会保険料計算（SEARCH ALL on INSURANCE-WORK） + 【SEARCH ALL IW-ENTRY】 + 条件：IW-INCOME-FROM(IW-IDX) ≦ WRK-TAXABLE-INCOME + AND WRK-TAXABLE-INCOME ≦ IW-INCOME-TO(IW-IDX) + AT END → WRK-INSURANCE = 0 + 【COMPUTE ROUNDED】 + WRK-INSURANCE = WRK-TAXABLE-INCOME × + (IW-HEALTH-RATE + IW-PENSION-RATE) + 2-4.住民税計算 + 【COMPUTE ROUNDED】 + WRK-RESIDENT-TAX = + WRK-TAXABLE-INCOME × CNS-RESIDENT-TAX-RATE(0.10) + 2-5.差引支給額計算 + 【COMPUTE】 + WRK-NET-PAYMENT = + WRK-GROSS-PAYMENT - WRK-INCOME-TAX + - WRK-INSURANCE - WRK-RESIDENT-TAX + 2-6.SALARY-NET出力（2100WRITOUTSOR） + 各項目をW01OUTREC（KYU04REC）にMOVEしWRITE + W01OUT件数カウンタ(CUN-W01OUT)を+1 + 2-7.R01を読み込む。（1200R01INNSOR)(2件目以降) + +3.終了処理（3000STPSOR） + 3-1.入出力ファイルのクローズ + 3-2.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'KYU05R01' + PARM2：CUN-R01INN + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU05W01' + PARM2：CUN-W01OUT + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU05W02' + PARM2：CUN-W02OUT + 3-3.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +--- + +## 出力レコード定義 + +### 出力ファイル1（W01/SALARY-NET） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | EMP-ID | R01EMP-ID | | +| 2 | REC-TYPE | 'S'で固定 | 給与= S / 賞与= B | +| 3 | EMP-NAME | R01EMP-NAME | | +| 4 | DEPT-CODE | R01DEPT-CODE | | +| 5 | REGION-CODE | — | 未設定（FILLER） | +| 6 | CATEGORY-CODE | — | 未設定（FILLER） | +| 7 | GROSS-PAYMENT | R01BASE-SALARY | | +| 8 | INCOME-TAX | WRK-INCOME-TAX | 所得税計算結果 | +| 9 | INSURANCE | WRK-INSURANCE | 社会保険料計算結果 | +| 10 | RESIDENT-TAX | WRK-RESIDENT-TAX | 住民税計算結果 | +| 11 | NET-PAYMENT | WRK-NET-PAYMENT | 差引支給額計算結果 | +| 12 | TAXABLE-INCOME | WRK-TAXABLE-INCOME | 課税所得計算結果 | +| 13 | PAY-AMOUNT | WRK-NET-PAYMENT | 汎用支給額 | +| 14 | FILLER | — | 81B | + +### 出力ファイル2（W02/ERROR-LOG） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 未設定 | 該当ケースなし | +| 2 | ERR-DETAIL | エラー内容 | DB接続エラー時のみ | diff --git a/詳細設計書/詳細設計書_KYU06UPD.md b/詳細設計書/詳細設計書_KYU06UPD.md new file mode 100644 index 0000000..7960069 --- /dev/null +++ b/詳細設計書/詳細設計書_KYU06UPD.md @@ -0,0 +1,147 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU06UPD | +| 3 | プログラム名 | 給与計算結果DB2更新処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | DB更新 | +| 6 | 機能概要 | SALARY-NETをDB2 SALARY-RESULTSに登録する。 | +| 7 | | INSERT実行→SQLCODE=-803（重複）の場合UPDATEに切替（UPSERT） | +| 8 | | SQLコード≠0かつ≠-803の場合ERROR-LOGに出力 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | SALARY-NET(KYU06R02) | ソート不要。KYU05DEDの出力を入力 | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | SALARY-NET | R02 | KYU06R02 | I | KYU04REC | FB | | 200 | PS | KYU05DED出力 | +| 2 | ERROR-LOG | W03 | KYU06W03 | O | KYU99REC | VB | | 200 | PS | | +| 3 | SALARY-RESULTS (DB2) | — | — | O | — | — | — | — | DB2 | EXEC SQL INSERT / UPDATE | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | 該当なし | なし | なし | + +### 使用モジュール一覧 + +| 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.ワークエリアの初期化 + 1-4.PARM（YEAR-MONTH）取得 + ACCEPT FROM COMMAND-LINE + 未指定時は'202605'をデフォルト値とする + 1-5.使用ファイルのOPEN + R02INNFIL / W03OUTFIL をOPEN + 1-6.DB接続（EXEC SQL CONNECT TO 'data/SALARY.db'） + 1-7.R02を読み込む。(1100R02INNSOR)(1回目) + +2.主処理（2000MAJSOR)(R02を全て読み終えるまで下記を繰り返す） + 2-1.ホスト変数セット + R02EMP-ID → DBV-EMP-ID + CNS-YEAR-MONTH-PARM → DBV-YEAR-MONTH + R02GROSS-PAYMENT → DBV-GROSS-PAYMENT + R02INCOME-TAX → DBV-INCOME-TAX + R02INSURANCE → DBV-INSURANCE + R02RESIDENT-TAX → DBV-RESIDENT-TAX + R02NET-PAYMENT → DBV-NET-PAYMENT + 2-2.EXEC SQL INSERT INTO SALARY-RESULTS + 【SQL】 + INSERT INTO SALARY-RESULTS + (EMP-ID, YEAR-MONTH, + GROSS-PAYMENT, INCOME-TAX, + INSURANCE, RESIDENT-TAX, + NET-PAYMENT, UPDATED-AT) + VALUES + (:DBV-EMP-ID, :DBV-YEAR-MONTH, + :DBV-GROSS-PAYMENT, :DBV-INCOME-TAX, + :DBV-INSURANCE, :DBV-RESIDENT-TAX, + :DBV-NET-PAYMENT, CURRENT TIMESTAMP) + 2-3.SQLCODE判定 + 2-3-1.SQLCODE = 0（正常登録） + CUN-DB-INSカウンタを+1 + → R02次件読込（1100R02INNSOR） + 2-3-2.SQLCODE = -803（重複） + 【EXEC SQL UPDATE】 + UPDATE SALARY-RESULTS SET + GROSS-PAYMENT = :DBV-GROSS-PAYMENT, + INCOME-TAX = :DBV-INCOME-TAX, + INSURANCE = :DBV-INSURANCE, + RESIDENT-TAX = :DBV-RESIDENT-TAX, + NET-PAYMENT = :DBV-NET-PAYMENT, + UPDATED-AT = CURRENT TIMESTAMP + WHERE EMP-ID = :DBV-EMP-ID + AND YEAR-MONTH = :DBV-YEAR-MONTH + 【SQLCODE判定】 + UPDATE SQLCODE = 0 → CUN-DB-UPDカウンタを+1 + UPDATE SQLCODE ≠ 0 → エラー出力（2100ERROUTSOR） + → R02次件読込（1100R02INNSOR） + 2-3-3.SQLCODE = その他（DBエラー） + エラー出力（2100ERROUTSOR） + → R02次件読込（1100R02INNSOR） + 2-4.R02を読み込む。（1100R02INNSOR)(2件目以降) + +3.終了処理（3000STPSOR） + 3-1.入出力ファイルのクローズ + 3-2.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'KYU06R02' + PARM2：CUN-R02INN + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'DB-INSERT' + PARM2：CUN-DB-INS + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'DB-UPDATE' + PARM2：CUN-DB-UPD + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU06W03' + PARM2：CUN-W03OUT + 3-3.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +--- + +## 出力レコード定義 + +### 出力ファイル1（W03/ERROR-LOG） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 'DB-ERR'で固定 | | +| 2 | ERR-DETAIL | DBV-EMP-ID | エラー発生社員番号 | diff --git a/詳細設計書/詳細設計書_KYU07DIV.md b/詳細設計書/詳細設計書_KYU07DIV.md new file mode 100644 index 0000000..b8cee19 --- /dev/null +++ b/詳細設計書/詳細設計書_KYU07DIV.md @@ -0,0 +1,193 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU07DIV | +| 3 | プログラム名 | 部門別分割出力処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | 50分割 | +| 6 | 機能概要 | JCL SORT済みSALARY-NETを部署コードに応じて50ファイルに分割出力する。 | +| 7 | | 常に1ファイルのみOPEN状態を保ち、部署コード切替時にファイルを開閉する。 | +| 8 | | SYSIN制御カードにより出力対象部署の絞り込みが可能（省略時は全50部署）。 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | KYU04S01(SALARY-NET) | JCL SORTで部署コード(DEPT-CODE 50-51桁目)昇順ソート済みであること | +| 2 | SYSIN(制御カード) | 省略時は全50部署を出力対象とする | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | SALARY-NET | R01 | KYU07R01 | I | KYU04REC | F | | 200 | PS | JCL SORT済み | +| 2 | SYSIN | SYSIN | KYU07SYS | I | 自前(80B) | F | | 80 | PS | 制御カード | +| 3 | DEPT-OUT-01 | D01 | KYU07D01 | O | KYU04REC | F | | 200 | PS | | +| 4 | DEPT-OUT-02 | D02 | KYU07D02 | O | KYU04REC | F | | 200 | PS | | +| 5 | DEPT-OUT-03 | D03 | KYU07D03 | O | KYU04REC | F | | 200 | PS | | +| 6 | DEPT-OUT-04 | D04 | KYU07D04 | O | KYU04REC | F | | 200 | PS | | +| 7 | DEPT-OUT-05 | D05 | KYU07D05 | O | KYU04REC | F | | 200 | PS | | +| 8 | DEPT-OUT-06 | D06 | KYU07D06 | O | KYU04REC | F | | 200 | PS | | +| 9 | DEPT-OUT-07 | D07 | KYU07D07 | O | KYU04REC | F | | 200 | PS | | +| 10 | DEPT-OUT-08 | D08 | KYU07D08 | O | KYU04REC | F | | 200 | PS | | +| 11 | DEPT-OUT-09 | D09 | KYU07D09 | O | KYU04REC | F | | 200 | PS | | +| 12 | DEPT-OUT-10 | D10 | KYU07D10 | O | KYU04REC | F | | 200 | PS | | +| 13 | DEPT-OUT-11 | D11 | KYU07D11 | O | KYU04REC | F | | 200 | PS | | +| 14 | DEPT-OUT-12 | D12 | KYU07D12 | O | KYU04REC | F | | 200 | PS | | +| 15 | DEPT-OUT-13 | D13 | KYU07D13 | O | KYU04REC | F | | 200 | PS | | +| 16 | DEPT-OUT-14 | D14 | KYU07D14 | O | KYU04REC | F | | 200 | PS | | +| 17 | DEPT-OUT-15 | D15 | KYU07D15 | O | KYU04REC | F | | 200 | PS | | +| 18 | DEPT-OUT-16 | D16 | KYU07D16 | O | KYU04REC | F | | 200 | PS | | +| 19 | DEPT-OUT-17 | D17 | KYU07D17 | O | KYU04REC | F | | 200 | PS | | +| 20 | DEPT-OUT-18 | D18 | KYU07D18 | O | KYU04REC | F | | 200 | PS | | +| 21 | DEPT-OUT-19 | D19 | KYU07D19 | O | KYU04REC | F | | 200 | PS | | +| 22 | DEPT-OUT-20 | D20 | KYU07D20 | O | KYU04REC | F | | 200 | PS | | +| 23 | DEPT-OUT-21 | D21 | KYU07D21 | O | KYU04REC | F | | 200 | PS | | +| 24 | DEPT-OUT-22 | D22 | KYU07D22 | O | KYU04REC | F | | 200 | PS | | +| 25 | DEPT-OUT-23 | D23 | KYU07D23 | O | KYU04REC | F | | 200 | PS | | +| 26 | DEPT-OUT-24 | D24 | KYU07D24 | O | KYU04REC | F | | 200 | PS | | +| 27 | DEPT-OUT-25 | D25 | KYU07D25 | O | KYU04REC | F | | 200 | PS | | +| 28 | DEPT-OUT-26 | D26 | KYU07D26 | O | KYU04REC | F | | 200 | PS | | +| 29 | DEPT-OUT-27 | D27 | KYU07D27 | O | KYU04REC | F | | 200 | PS | | +| 30 | DEPT-OUT-28 | D28 | KYU07D28 | O | KYU04REC | F | | 200 | PS | | +| 31 | DEPT-OUT-29 | D29 | KYU07D29 | O | KYU04REC | F | | 200 | PS | | +| 32 | DEPT-OUT-30 | D30 | KYU07D30 | O | KYU04REC | F | | 200 | PS | | +| 33 | DEPT-OUT-31 | D31 | KYU07D31 | O | KYU04REC | F | | 200 | PS | | +| 34 | DEPT-OUT-32 | D32 | KYU07D32 | O | KYU04REC | F | | 200 | PS | | +| 35 | DEPT-OUT-33 | D33 | KYU07D33 | O | KYU04REC | F | | 200 | PS | | +| 36 | DEPT-OUT-34 | D34 | KYU07D34 | O | KYU04REC | F | | 200 | PS | | +| 37 | DEPT-OUT-35 | D35 | KYU07D35 | O | KYU04REC | F | | 200 | PS | | +| 38 | DEPT-OUT-36 | D36 | KYU07D36 | O | KYU04REC | F | | 200 | PS | | +| 39 | DEPT-OUT-37 | D37 | KYU07D37 | O | KYU04REC | F | | 200 | PS | | +| 40 | DEPT-OUT-38 | D38 | KYU07D38 | O | KYU04REC | F | | 200 | PS | | +| 41 | DEPT-OUT-39 | D39 | KYU07D39 | O | KYU04REC | F | | 200 | PS | | +| 42 | DEPT-OUT-40 | D40 | KYU07D40 | O | KYU04REC | F | | 200 | PS | | +| 43 | DEPT-OUT-41 | D41 | KYU07D41 | O | KYU04REC | F | | 200 | PS | | +| 44 | DEPT-OUT-42 | D42 | KYU07D42 | O | KYU04REC | F | | 200 | PS | | +| 45 | DEPT-OUT-43 | D43 | KYU07D43 | O | KYU04REC | F | | 200 | PS | | +| 46 | DEPT-OUT-44 | D44 | KYU07D44 | O | KYU04REC | F | | 200 | PS | | +| 47 | DEPT-OUT-45 | D45 | KYU07D45 | O | KYU04REC | F | | 200 | PS | | +| 48 | DEPT-OUT-46 | D46 | KYU07D46 | O | KYU04REC | F | | 200 | PS | | +| 49 | DEPT-OUT-47 | D47 | KYU07D47 | O | KYU04REC | F | | 200 | PS | | +| 50 | DEPT-OUT-48 | D48 | KYU07D48 | O | KYU04REC | F | | 200 | PS | | +| 51 | DEPT-OUT-49 | D49 | KYU07D49 | O | KYU04REC | F | | 200 | PS | | +| 52 | DEPT-OUT-50 | D50 | KYU07D50 | O | KYU04REC | F | | 200 | PS | | +| 53 | ERROR-LOG | W99 | KYU07W99 | O | KYU99REC | VB | | 200 | PS | | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | KYU04S01 | 部署コード(昇順) | 部署コード切替（分割キー） | + +### 使用モジュール一覧 + +| 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.ワークエリアの初期化 + WRKARA初期化、WRK-FIRST='1'設定 + 1-4.SYSIN読込（1100SYSINSOR） + 制御カードから対象部署一覧を取得する。 + SYSINファイルOPEN→READ→CLOSE。 + カードなし(AT END)：全部署対象(WRK-ALL-DEPTS) + カードあり："DEPT=01,02,05,10"形式をパースし、 + WRK-TARGET-DEPTテーブルに格納。 + 1-5.入出力ファイルのOPEN + R01INNFIL(INPUT)、W99OUTFIL(OUTPUT)をOPEN + 1-6.R01を読み込む。(1200R01INNSOR)(1回目) + +2.主処理（2000MAJSOR)(R01を全て読み終えるまで下記を繰り返す） + 2-1.R01の部署コードを取得(MOVE R01DEPT-CODE TO WRK-DEPT-CODE) + 2-2.SYSIN対象部署フィルタ + WRK-FILTER-DEPTSの場合、SEARCHでWRK-TARGET-DEPTテーブルを検索。 + 該当なし→次レコード読込(1200R01INNSOR)してEXIT SECTION。 + 2-3.部署切替判定 + 2-3-1.WRK-FIRST-Yの場合（初回） + WRK-FIRSTを'0'に設定し、2100OPENSORを実行 + 2-3-2.WRK-PREV-DEPT ≠ WRK-DEPT-CODEの場合（部署切替） + 2200CLOSESORで前部署ファイルをCLOSE WITH LOCK + 2100OPENSORで新部署ファイルをOPEN + 2-4.現部署コードをWRK-PREV-DEPTに保存 + 2-5.該当ファイルにWRITE（2300WRITESOR） + EVALUATE WRK-DEPT-CODEでD01〜D50の該当ファイルにWRITE + WHEN OTHERは無視 + CUN-DEPT-OUTを+1 + 2-6.R01を読み込む。(1200R01INNSOR)(2件目以降) + +3.終了処理（3000STPSOR） + 3-1.WRK-PREV-DEPT > SPACESの場合、2200CLOSESOR実行 + 3-2.入出力ファイルのクローズ + R01INNFIL、W99OUTFILをCLOSE + 3-3.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'KYU07R01' + PARM2：CUN-R01INN + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'DEPT-OUT' + PARM2：CUN-DEPT-OUT + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU07W99' + PARM2：CUN-W99OUT + 3-4.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +--- + +## 出力レコード定義 + +### 出力ファイル（D01〜D50/DEPT-OUT-01〜50） + +KYU04REC（SALARY-NET形式）をそのまま出力する。 + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | EMP-ID | R01同項目を設定 | | +| 2 | REC-TYPE | R01同項目を設定 | | +| 3 | EMP-NAME | R01同項目を設定 | | +| 4 | DEPT-CODE | R01同項目を設定 | | +| 5 | REGION-CODE | R01同項目を設定 | | +| 6 | CATEGORY-CODE | R01同項目を設定 | | +| 7 | GROSS-PAYMENT | R01同項目を設定 | | +| 8 | INCOME-TAX | R01同項目を設定 | | +| 9 | INSURANCE | R01同項目を設定 | | +| 10 | RESIDENT-TAX | R01同項目を設定 | | +| 11 | NET-PAYMENT | R01同項目を設定 | | +| 12 | TAXABLE-INCOME | R01同項目を設定 | | +| 13 | PAY-AMOUNT | R01同項目を設定 | | +| 14 | FILLER | R01同項目を設定 | | + +### 出力ファイル（W99/ERROR-LOG） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 固定値'INVDEPT' | 無効部署コード時 | +| 2 | ERR-DETAIL | 'INVALID DEPT' | 部署コード範囲外 | diff --git a/詳細設計書/詳細設計書_KYU08PRI.md b/詳細設計書/詳細設計書_KYU08PRI.md new file mode 100644 index 0000000..cc3a49e --- /dev/null +++ b/詳細設計書/詳細設計書_KYU08PRI.md @@ -0,0 +1,149 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU08PRI | +| 3 | プログラム名 | 給与明細印刷処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | レイアウト編集のみ（GETPUT） | +| 6 | 機能概要 | JCL SORT済みSALARY-NETを給与明細書としてLINAGEページ制御で印刷出力する。 | +| 7 | | 1社員1ページ、ヘッダ・明細行・フッタの構成でPAGE-COUNTER自動管理。 | +| 8 | | BLANK WHEN ZERO / JUSTIFIED RIGHTによる編集出力。 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | KYU05S01(SALARY-NET) | JCL SORTで社員番号(EMP-ID)昇順ソート済みであること | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | SALARY-NET | R01 | KYU08R01 | I | KYU04REC | F | | 200 | PS | JCL SORT済み | +| 2 | PAYSLIP | W01 | KYU08W01 | O | KYU05REC | F | | 200 | SYSOUT A | LINAGE 66行 | +| 3 | ERROR-LOG | W02 | KYU08W02 | O | KYU99REC | VB | | 200 | PS | | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | KYU05S01 | 社員番号(昇順) | なし（全件印刷） | + +### 使用モジュール一覧 + +| NO | 機能 | プログラムID | 使用COPY名 | +|----|------|-------------|-----------| +| 1 | 運用日付取得SUB | SUB01DAT | ZANDATAC | +| 2 | メッセージ編集出力SUB | SUB02MSG | ZANMSGAC | +| 3 | ABEND処理SUB | SUB03END | ZANENDAC | + +--- + +## 処理詳細 + +``` +1.初期処理（1000ITTSOR） + 1-1.開始メッセージ出力 + 【メッセージ編集】 + メッセージ番号：1(開始メッセージ) + 1-2.コンパイル日時出力 + 【メッセージ編集】 + メッセージ番号：33(コンパイル日時) + PARM1：コンパイル日時 + PARM2：'COMPILED' + 1-3.ワークエリアの初期化 + 1-4.運用日付取得SUB(SUB01DAT)により運用日を取得する。 + 復帰コード≠ZEROの場合、メッセージを出力し、ABEND処理SUBを呼び出し異常終了する。 + 【メッセージ編集】 + メッセージ番号：5(サブエラー) + PARM1：'SUB01DAT' + PARM2：復帰コード + 【ABEND処理SUB】 + ABENDコード:999 + 1-5.使用ファイルのオープン + R01INNFIL(INPUT)、W01OUTFIL(OUTPUT)、W02OUTFIL(OUTPUT)をOPEN + W01OUTFILはLINAGE IS 66 LINESで定義 + （FOOTING AT 60 / TOP 6 / BOTTOM 6） + 1-6.R01を読み込む。(1100R01INNSOR)(1回目) + +2.主処理（2000MAJSOR)(R01を全て読み終えるまで下記を繰り返す） + 2-1.ページカウンタ加算 + WRK-PAGE-COUNTERを+1 + 2-2.ヘッダ行編集・出力 + 【ヘッダ編集】 + タイトル行'========== 給与明細書 =========='を設定 + WRK-PAGE-COUNTERをPIC Z(03)9で編集 + WRITE W01OUTREC FROM HEADER-LINE + BEFORE ADVANCING PAGE（改ページ） + 2-3.明細行編集・出力 + 【明細編集】 + EMP-ID：R01同項目をX(008)で設定 + EMP-NAME：R01同項目をX(020) JUSTIFIED RIGHTで設定 + BASIC-SALARY：R01-GROSS-PAYMENTをZ(08)9 BLANK WHEN ZEROで設定 + NET-PAYMENT：R01-NET-PAYMENTをZ(08)9 BLANK WHEN ZEROで設定 + WRITE W01OUTREC FROM DETAIL-LINE + BEFORE ADVANCING 1 LINE + AT END-OF-PAGE + WRITE W01OUTREC FROM FOOTER-LINE + BEFORE ADVANCING PAGE + CUN-W01OUTを+1 + 2-4.フッタ出力 + 【フッタ編集】 + '--- 明細終了 ---'を設定 + WRITE W01OUTREC FROM FOOTER-LINE + BEFORE ADVANCING PAGE（改ページ=次社員） + 2-5.R01を読み込む。(1100R01INNSOR)(2件目以降) + +3.終了処理（3000STPSOR） + 3-1.入出力ファイルのクローズ + R01INNFIL、W01OUTFIL、W02OUTFILをCLOSE + 3-2.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'KYU08R01' + PARM2：CUN-R01INN + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU08W01' + PARM2：CUN-W01OUT + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU08W02' + PARM2：CUN-W02OUT + 3-3.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +--- + +## 出力レコード定義 + +### 出力ファイル1（W01/PAYSLIP） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | EMP-ID | R01-EMP-IDを設定 | X(008) | +| 2 | FILLER | SPACE | X(002) | +| 3 | EMP-NAME | R01-EMP-NAMEを設定 | X(020) JUSTIFIED RIGHT | +| 4 | FILLER | SPACE | X(002) | +| 5 | BASIC-SALARY | R01-GROSS-PAYMENTを設定 | Z(008)9 BLANK WHEN ZERO | +| 6 | FILLER | SPACE | X(002) | +| 7 | NET-PAYMENT | R01-NET-PAYMENTを設定 | Z(008)9 BLANK WHEN ZERO | +| 8 | FILLER | SPACE | X(002) | +| 9 | PAGE-TITLE | ヘッダ編集 | X(040) | +| 10 | FILLER | SPACE | X(106) | + +### 出力ファイル2（W02/ERROR-LOG） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 該当エラー種別 | X(008) | +| 2 | ERR-DETAIL | STRINGで編集 | エラー内容 | diff --git a/詳細設計書/詳細設計書_KYU09MRG.md b/詳細設計書/詳細設計書_KYU09MRG.md new file mode 100644 index 0000000..f366718 --- /dev/null +++ b/詳細設計書/詳細設計書_KYU09MRG.md @@ -0,0 +1,162 @@ +# 詳細設計書 + +## 基本情報 + +| # | 項目 | 内容 | +|---|------|------| +| 1 | システム名 | 給与計算システム | +| 2 | プログラムID | KYU09MRG | +| 3 | プログラム名 | 支給データ結合処理 | +| 4 | PGMタイプ | メイン | +| 5 | PGMパターン | MERGE（複数ファイル結合） | +| 6 | 機能概要 | SALARY-NETとBONUS-DATAをMERGE文で社員番号昇順に結合する。 | +| 7 | | OUTPUT PROCEDURE内で同一社員の給与(TYPE=S)と賞与(TYPE=B)を統合し、 | +| 8 | | 支給データ(PAYMENT-DATA)として出力する。 | + +※PGMタイプ：メイン、サブ +※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 + +### 前提条件 + +| NO | 対象ファイル | 条件 | +|----|-------------|------| +| 1 | SALARY-NET(KYU09M01) | 社員番号(EMP-ID)昇順であること（MERGE文で内部ソート） | +| 2 | BONUS-DATA(KYU09M02) | 社員番号(EMP-ID)昇順であること（MERGE文で内部ソート） | +| 3 | MERGE作業ファイル | ソート前処理不要。MERGE文が自ら2ファイルを結合する。 | + +### 使用ファイル一覧 + +| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | +|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| +| 1 | SALARY-NET | M01 | KYU09M01 | I | KYU04REC | F | | 200 | PS | REC-TYPE='S' | +| 2 | BONUS-DATA | M02 | KYU09M02 | I | KYU04REC | F | | 200 | PS | REC-TYPE='B' | +| 3 | WORK-FILE | M99 | KYU09M99 | I | 自前(200B) | F | | 200 | PS | MERGE作業用SD | +| 4 | PAYMENT-DATA | W01 | KYU09W01 | O | KYU06REC | F | | 200 | PS | | +| 5 | ERROR-LOG | W02 | KYU09W02 | O | KYU99REC | VB | | 200 | PS | | + +### キー項目一覧 + +| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | +|----|-----------|---------------------|-------------------------------------------| +| 1 | SALARY-NET | 社員番号(昇順) | MERGEキー（社員番号） | +| 2 | BONUS-DATA | 社員番号(昇順) | MERGEキー（社員番号） | + +### 使用モジュール一覧 + +| NO | 機能 | プログラムID | 使用COPY名 | +|----|------|-------------|-----------| +| 1 | 運用日付取得SUB | SUB01DAT | ZANDATAC | +| 2 | メッセージ編集出力SUB | SUB02MSG | ZANMSGAC | +| 3 | ABEND処理SUB | SUB03END | ZANENDAC | + +--- + +## 処理詳細 + +``` +1.初期処理（1000ITTSOR） + 1-1.開始メッセージ出力 + 【メッセージ編集】 + メッセージ番号：1(開始メッセージ) + 1-2.コンパイル日時出力 + 【メッセージ編集】 + メッセージ番号：33(コンパイル日時) + PARM1：コンパイル日時 + PARM2：'COMPILED' + 1-3.ワークエリアの初期化 + 1-4.運用日付取得SUB(SUB01DAT）により運用日を取得する。 + 復帰コード≠ZEROの場合、メッセージを出力し、ABEND処理SUBを呼び出し異常終了する。 + 【メッセージ編集】 + メッセージ番号：5(サブエラー) + PARM1：'SUB01DAT' + PARM2：復帰コード + 【ABEND処理SUB】 + ABENDコード:999 + 1-5.出力ファイルのオープン + W01OUTFIL(OUTPUT)、W02OUTFIL(OUTPUT)をOPEN + （入力ファイルはMERGE文が自動OPENするため明示OPEN不要） + +2.MERGE出力処理（2000MRGOUTSOR） + 2-1.MERGE文実行（0000MAJCOLSOR内） + MERGE MERGE-FILE + ON ASCENDING KEY MERGE-EMP-ID + USING SALARY-FILE BONUS-FILE + OUTPUT PROCEDURE 2000MRGOUTSOR + 給与(SALARY-NET)と賞与(BONUS-DATA)を社員番号昇順で結合。 + 結合結果はOUTPUT PROCEDUREに渡される。 + 2-2.RETURNでMERGE結果取得ループ + PERFORM WITH TEST AFTER UNTIL WRK-MERGE-EOF-Y + RETURN MERGE-FILE INTO MERGE-REC + AT END SET WRK-MERGE-EOF-Y TO TRUE + 2-2-1.現社員番号をWRK-CURRENT-EMPに設定 + 2-2-2.WRK-SALARY-AMOUNT／WRK-BONUS-AMOUNTをZERO初期化 + 2-2-3.同一社員内ループ（WRK-CURRENT-EMP ≠ MERGE-EMP-IDまで） + 2-2-3-1.MERGE-REC-TYPE = 'S'(給与)の場合 + MERGE-PAY-AMOUNT → WRK-SALARY-AMOUNT + MERGE-GROSS-PAYMENT → WRK-BANK-CODE + MERGE-EMP-ID(1:4) → WRK-ACCOUNT-NO + 2-2-3-2.上記以外(賞与)の場合 + MERGE-PAY-AMOUNT → WRK-BONUS-AMOUNT + 2-2-3-3.RETURNで次レコード取得 + AT END → HIGH-VALUES設定、EXIT PERFORM + 2-2-4.給与+賞与合算 + ADD WRK-SALARY-AMOUNT TO WRK-BONUS-AMOUNT + GIVING WRK-TOTAL-PAYMENT + 2-2-5.2100PAYOUTSORでPAYMENT-DATA出力 + 2-2-5-1.W01OUTREC初期化 + 2-2-5-2.WRK-CURRENT-EMP → W01EMP-ID + 2-2-5-3.'T' → W01PAY-TYPE（支給合算） + 2-2-5-4.WRK-TOTAL-PAYMENT → W01AMOUNT + 2-2-5-5.WRK-BANK-CODE → W01BANK-CODE + 2-2-5-6.WRK-ACCOUNT-NO → W01ACCOUNT-NO + 2-2-5-7.W01OUTRECをWRITE + 2-2-5-8.CUN-W01OUTを+1 + +3.ENTRY代替エントリポイント（0010DIRECTSOR） + 3-1.'KYU09ENT'で直接呼出し可能 + 3-2.直接結合モードで簡易エラーログ出力 + 【エラー出力】 + ERR-DETAIL：'DIRECT ENTRY' + +4.終了処理（3000STPSOR） + 4-1.出力ファイルのクローズ + W01OUTFIL、W02OUTFILをCLOSE + 4-2.入出力件数出力メッセージ出力 + 【入力メッセージ編集】 + メッセージ番号：6(入力件数メッセージ) + PARM1：'MERGE-FILE' + PARM2：CUN-W01OUT + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU09W01' + PARM2：CUN-W01OUT + 【出力メッセージ編集】 + メッセージ番号：7(出力件数メッセージ) + PARM1：'KYU09W02' + PARM2：CUN-W02OUT + 4-3.終了メッセージ出力 + 【メッセージ編集】 + メッセージ番号：2(終了メッセージ) +``` + +--- + +## 出力レコード定義 + +### 出力ファイル1（W01/PAYMENT-DATA） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | EMP-ID | WRK-CURRENT-EMPを設定 | X(008) | +| 2 | PAY-TYPE | 'T'(支給合算)固定 | X(001) | +| 3 | AMOUNT | WRK-TOTAL-PAYMENT（給与+賞与）を設定 | 9(009) | +| 4 | BANK-CODE | WRK-BANK-CODE（給与レコードのGROSS-PAYMENT）を設定 | X(004) | +| 5 | ACCOUNT-NO | WRK-ACCOUNT-NO（EMP-ID(1:4)）を設定 | 9(008) | +| 6 | FILLER | SPACE | X(170) | + +### 出力ファイル2（W02/ERROR-LOG） + +| No | 項目名 | 設定元 | 備考 | +|----|--------|--------|------| +| 1 | ERR-CATEGORY | 該当エラー種別 | X(008) | +| 2 | ERR-DETAIL | STRINGで編集 | エラー内容 |