qiuqiuqiu/cobol-tna-system
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Subsystem B: dead code cleanup (FILLER renames, CNS-MAX-HOURS/WRK-MONTH-OK removed), sync docs & coverage to production

Browse Source
This commit is contained in:
qiuqiuqiu
2026-06-24 23:04:48 +08:00
parent e0bcbbc1a9
commit 235de714ea
16 changed files with 1699 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/ZAN02CHK.cbl
+8 -8
View File
@@ -98,14 +98,14 @@
03 WRK-R01EOF PIC X(001).
*** 前レコード保持
03 WRK-PREV-REC.
05 WRK-PREV-APPL-ID PIC X(008).
05 WRK-PREV-EMP-ID PIC 9(008).
05 WRK-PREV-APPL-DATE PIC 9(008).
05 WRK-PREV-START-TIME PIC 9(004).
05 WRK-PREV-END-TIME PIC 9(004).
05 WRK-PREV-STATUS PIC X(001).
05 WRK-PREV-OVT-TYPE PIC X(001).
05 WRK-PREV-FILLER PIC X(046).
05 FILLER PIC X(008).
05 WRK-PREV-EMP-ID PIC 9(008).
05 WRK-PREV-APPL-DATE PIC 9(008).
05 FILLER PIC 9(004).
05 WRK-PREV-END-TIME PIC 9(004).
05 FILLER PIC X(001).
05 FILLER PIC X(001).
05 FILLER PIC X(046).
*
*****************************************************************
* サブプログラム連絡領域 *
src/ZAN05CAL.cbl
+5 -11
View File
@@ -79,9 +79,7 @@
*****************************************************************
* 作業領域 *
*****************************************************************
01 WRKARA.
*** 処理日付（ACCEPT FROM DATE用）
03 WRK-DATE-8 PIC 9(008).
01 WRKARA.
*** キーブレイク制御
03 WRK-R01KEY PIC X(008).
03 WRK-PREV-APPL-ID PIC X(008).
@@ -94,12 +92,12 @@
05 WRK-LAST-APPL-ID PIC X(008).
05 WRK-LAST-EMP-ID PIC 9(008).
05 WRK-LAST-APPL-DATE PIC 9(008).
05 WRK-LAST-START PIC 9(004).
05 FILLER PIC 9(004).
05 WRK-LAST-END PIC 9(004).
05 WRK-LAST-STATUS PIC X(001).
05 FILLER PIC X(001).
05 WRK-LAST-OVT-TYPE PIC X(001).
05 WRK-LAST-PROC-SEQ PIC 9(002).
05 WRK-LAST-FILLER PIC X(044).
05 FILLER PIC 9(002).
05 FILLER PIC X(044).
*** 集計用グループ先頭START保持
03 WRK-GROUP-START PIC 9(004).
*** 集計用積算分領域
@@ -169,9 +167,6 @@
MOVE 'COMPILED' TO M00UMKDATS22-02.
PERFORM 4000MSGOUTSOR.
*
*** 処理日付取得（ACCEPT FROM DATE）
ACCEPT WRK-DATE-8 FROM DATE YYYYMMDD.
*
*** ワークエリア初期化
INITIALIZE WRKARA.
MOVE '0' TO WRK-GROUP-ACTIVE.
@@ -251,7 +246,6 @@
WHEN OTHER
PERFORM 2200ACCUMSOR
MOVE R01INNREC TO WRK-LAST-REC
CONTINUE
PERFORM 1100R01INNSOR
END-EVALUATE.
*
src/ZAN06UPD.cbl
+2 -15
View File
@@ -85,9 +85,7 @@
03 CNS-KN0002 PIC 9(001) VALUE 2.
03 CNS-COMMIT-CNT PIC 9(003) VALUE 050.
03 CNS-STATUS-ACTIVE PIC X(001) VALUE '0'.
03 CNS-STATUS-CANCEL PIC X(001) VALUE '9'.
03 CNS-MAX-HOURS PIC 9(004)V9(001)
VALUE 9999.9.
03 CNS-STATUS-CANCEL PIC X(001) VALUE '9'.
*
*****************************************************************
* カウンタ領域 *
@@ -105,8 +103,6 @@
VALUE ZERO.
03 CUN-COMMIT PIC S9(009) COMP-3
VALUE ZERO.
03 CUN-ETHUS PIC S9(009) COMP-3
VALUE ZERO.
*
*****************************************************************
* 作業領域 *
@@ -121,8 +117,7 @@
03 WRK-APPL-DATE-N PIC 9(008).
03 WRK-YEAR-MONTH PIC 9(006).
03 WRK-MONTH PIC 9(002).
03 WRK-MONTH-VALID PIC 9(001).
88 WRK-MONTH-OK VALUE 1.
03 WRK-MONTH-VALID PIC 9(001).
*** ループ制御
03 WRK-IDX PIC 9(004).
03 WRK-RETRY-CNT PIC 9(001).
@@ -130,7 +125,6 @@
03 WRK-OVT-HOURS-EDITED PIC 9(004).9(001).
03 WRK-OVT-HOURS-NUM PIC 9(004)V9(001).
03 WRK-OVT-MINUTES PIC 9(006).
03 WRK-REMAIN-HOURS PIC 9(004)V9(001).
*** SQL用ホスト変数（全DISPLAY）
03 WRK-SQL-APPL-ID PIC X(008).
03 WRK-SQL-EMP-ID PIC X(008).
@@ -481,12 +475,6 @@
MOVE WRK-APPL-DATE-N(1:6) TO WRK-YEAR-MONTH.
MOVE WRK-YEAR-MONTH TO WRK-SQL-YEAR-MONTH.
*
*** SUBTRACT カバレッジ：残容量検証
MOVE WRK-SQL-OVT-HOURS TO WRK-OVT-HOURS-NUM.
SUBTRACT WRK-OVT-HOURS-NUM
FROM CNS-MAX-HOURS
GIVING WRK-REMAIN-HOURS.
*
*** OVT-APPLICATIONSステータス更新（取消）
EXEC SQL
UPDATE OVT_APPLICATIONS SET
@@ -577,7 +565,6 @@
END-EXEC.
*
MOVE ZERO TO CUN-COMMIT.
ADD 1 TO CUN-ETHUS.
*
2300COMMITDBX-EXT.
EXIT.