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

Subsystem B cleanup: dead code removal, sort-key fix, ZAN04MAT/ZAN05CAL/ZAN06UPD updates, resource lists added

Browse Source
This commit is contained in:
qiuqiuqiu
2026-06-19 12:39:49 +08:00
parent a74a5aaa04
commit 164451dda5
19 changed files with 353 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/ZAN02CHK.cbl
+1 -4
View File
@@ -106,8 +106,6 @@
05 WRK-PREV-STATUS PIC X(001).
05 WRK-PREV-OVT-TYPE PIC X(001).
05 WRK-PREV-FILLER PIC X(046).
*** 初回読込フラグ
03 WRK-FIRST-FLG PIC X(001).
*
*****************************************************************
* サブプログラム連絡領域 *
@@ -160,7 +158,6 @@
*
*** ワークエリア初期化
INITIALIZE WRKARA.
MOVE '1' TO WRK-FIRST-FLG.
*
*** 運用日付取得
INITIALIZE D01UBSPAR.
@@ -360,4 +357,4 @@
CALL 'SUB03END' USING E01ABDPAR.
*
9999ABDSOR-EXT.
EXIT.
EXIT.
src/ZAN03CHK.cbl
+5 -18
View File
@@ -99,12 +99,12 @@
03 CNS-PRGIDX PIC X(008) VALUE 'ZAN03CHK'.
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-ERR-CAT03 PIC 9(002) VALUE 03.
03 CNS-OVT-W PIC X(001) VALUE 'W'.
03 CNS-OVT-H PIC X(001) VALUE 'H'.
@@ -158,8 +158,7 @@
*****************************************************************
*** メッセージ編集出力SR用
COPY ZANMSGAC.
*** ABEND処理SR用
COPY ZANENDAC.
*
PROCEDURE DIVISION.
*****************************************************************
@@ -203,8 +202,7 @@
*** ワークエリア初期化
INITIALIZE WRKARA.
*
*** 現在日付取得（FUNCTION CURRENT-DATE）
MOVE FUNCTION CURRENT-DATE TO WRK-HOLIDAY-CNT.
*
*** 入出力ファイルOPEN
OPEN INPUT R01INNFIL
@@ -465,15 +463,4 @@
*
4000MSGOUTSOR-EXT.
EXIT.
*****************************************************************
* サブモジュールNO:(9.9) *
* サブモジュール名: 異常終了処理 *
* 処理概要 : ABEND処理 *
*****************************************************************
9999ABDSOR SECTION.
*
MOVE CNS-ABD999 TO E01ABDCOD.
CALL 'SUB03END' USING E01ABDPAR.
*
9999ABDSOR-EXT.
EXIT.
src/ZAN04MAT.cbl
+9 -13
View File
@@ -119,9 +119,7 @@
*****************************************************************
* 作業領域 *
*****************************************************************
01 WRKARA.
*** 運用日付
03 WRK-U06 PIC 9(008).
01 WRKARA.
*** マッチングキー
03 WRK-R01KEY PIC X(008).
03 WRK-R02KEY PIC X(008).
@@ -182,16 +180,14 @@
*** 運用日付取得
INITIALIZE D01UBSPAR.
CALL 'SUB01DAT' USING D01UBSPAR.
IF D01FKICOD = ZERO
MOVE D01UBSUDATE TO WRK-U06
ELSE
INITIALIZE M00MHOPAR
MOVE CNS-MSGSUBEEK TO M00MSGCOD
MOVE 'SUB01DAT' TO M00UMKDATS22-01
MOVE D01FKICOD TO M00UMKDATS22-02
PERFORM 4000MSGOUTSOR
PERFORM 9999ABDSOR
END-IF.
IF D01FKICOD NOT = ZERO
INITIALIZE M00MHOPAR
MOVE CNS-MSGSUBEEK TO M00MSGCOD
MOVE 'SUB01DAT' TO M00UMKDATS22-01
MOVE D01FKICOD TO M00UMKDATS22-02
PERFORM 4000MSGOUTSOR
PERFORM 9999ABDSOR
END-IF.
*
*** 入出力ファイルOPEN
OPEN INPUT R01INNFIL
src/ZAN05CAL.cbl
+2 -6
View File
@@ -82,8 +82,6 @@
01 WRKARA.
*** 処理日付（ACCEPT FROM DATE用）
03 WRK-DATE-8 PIC 9(008).
*** 運用日付
03 WRK-U06 PIC 9(008).
*** キーブレイク制御
03 WRK-R01KEY PIC X(008).
03 WRK-PREV-APPL-ID PIC X(008).
@@ -181,9 +179,7 @@
*** 運用日付取得
INITIALIZE D01UBSPAR.
CALL 'SUB01DAT' USING D01UBSPAR.
IF D01FKICOD = ZERO
MOVE D01UBSUDATE TO WRK-U06
ELSE
IF D01FKICOD NOT = ZERO
INITIALIZE M00MHOPAR
MOVE CNS-MSGSUBEEK TO M00MSGCOD
MOVE 'SUB01DAT' TO M00UMKDATS22-01
@@ -397,4 +393,4 @@
CALL 'SUB03END' USING E01ABDPAR.
*
9999ABDSOR-EXT.
EXIT.
EXIT.