Add Subsystem C (KYU01-09): all 9 programs, design docs, resource lists, DDL, COPY, coverage stats
KYU programs for payroll calculation: KYU01CVT - CSV conversion KYU02REG - attendance registration KYU03AGG - aggregation KYU04CAL - salary calculation KYU05DED - deduction calculation KYU06UPD - DB update KYU07DIV - division/pay-slip KYU08PRI - print output KYU09MRG - merge output Includes: - Source programs (9 .cbl) - Compiled executables (9 .exe) - Detailed design docs (9 + sign-off) - Basic design doc (subsystem C overview) - Resource lists (9) - DDL schema (schema_kyu.sql) - COPY book (KYU99REC.cpy) - Coverage statistics update - DB definition update (STATUS values) - Overall system design document
This commit is contained in:
qiuqiuqiu
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,4 @@
|
||||
* ERROR-LOG エラーログレコード VB 200B
|
||||
* 全KYUプログラム共用
|
||||
03 (A)ERR-CATEGORY PIC X(008).
|
||||
03 (A)ERR-DETAIL PIC X(192).
|
||||
@@ -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)
|
||||
);
|
||||
@@ -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.
|
||||
@@ -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.
|
||||
@@ -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.
|
||||
@@ -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.
|
||||
@@ -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.
|
||||
@@ -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.
|
||||
@@ -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.
|
||||
@@ -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.
|
||||
@@ -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.
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
@@ -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→件数出力→終了ﾒｯｾｰｼﾞ）
|
||||
+41
-41
@@ -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）と合わせて参照すること。
|
||||
|
||||
@@ -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=入力エラー |
|
||||
@@ -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** |
|
||||
+115
@@ -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を実行
|
||||
|
||||
@@ -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 (自動レビュー) |
|
||||
|
||||
---
|
||||
@@ -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等） |
|
||||
@@ -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関数 |
|
||||
@@ -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で編集 | エラー内容 |
|
||||
@@ -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 | エラー発生社員番号 |
|
||||
@@ -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接続エラー時のみ |
|
||||
@@ -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 | エラー発生社員番号 |
|
||||
@@ -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' | 部署コード範囲外 |
|
||||
@@ -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で編集 | エラー内容 |
|
||||
@@ -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で編集 | エラー内容 |
|
||||
Reference in New Issue
Block a user