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

KIN03EXP: SELECT INTO → CURSOR(DECLARE/OPEN/FETCH/CLOSE) pattern; SUB01DAT: COPY ZANDATAC; 基本設計書A: KIN08DBU/KIN09CSV specs updated; 品質管理: coverage stats, keyword docs, test criteria

Browse Source
This commit is contained in:
qiuqiuqiu
2026-06-30 21:22:15 +08:00
parent a110bccdaf
commit baa5be54d2
40 changed files with 3382 additions and 350 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sub/SUB01DAT.cbl
+1 -3
View File
@@ -34,9 +34,7 @@
*****************************************************************
LINKAGE SECTION.
*
01 D01UBSPAR.
03 D01FKICOD PIC S9(004) COMP.
03 D01UBSUDATE PIC 9(008).
COPY ZANDATAC.
*
PROCEDURE DIVISION USING D01UBSPAR.
*****************************************************************
sub/SUB02MSG.cbl
+1 -12
View File
@@ -33,18 +33,7 @@
*****************************************************************
LINKAGE SECTION.
*
01 M00MHOPAR.
03 M00MSGCOD PIC 9(003).
03 M00UMKDATS22-01 PIC X(030).
03 M00UMKDATS22-02 PIC X(030).
03 M00UMKDATS22-03 PIC X(030).
03 M00UMKDATS22-04 PIC X(030).
03 M00UMKDATS22-05 PIC X(030).
03 M00UMKDATS22-06 PIC X(030).
03 M00UMKDATS22-07 PIC X(030).
03 M00UMKDATS22-08 PIC X(030).
03 M00UMKDATS22-09 PIC X(030).
03 M00UMKDATS22-10 PIC X(030).
COPY ZANMSGAC.
*
PROCEDURE DIVISION USING M00MHOPAR.
*****************************************************************
sub/SUB03END.cbl
+1 -2
View File
@@ -33,8 +33,7 @@
*****************************************************************
LINKAGE SECTION.
*
01 E01ABDPAR.
03 E01ABDCOD PIC 9(003).
COPY ZANENDAC.
*
PROCEDURE DIVISION USING E01ABDPAR.
*****************************************************************
sub/SUB04CHK.cbl
+5 -6
View File
@@ -27,7 +27,8 @@
*****************************************************************
01 WRKARA.
03 WRK-RETURN-CODE PIC 9(004).
03 WRK-SIGN PIC S9(004).
* 03 WRK-SIGN PIC S9(004).
03 WRK-NN PIC 9(004).
03 WRK-DIGIT PIC 9(004).
03 WRK-ALPHA PIC 9(004).
@@ -37,10 +38,7 @@
*****************************************************************
LINKAGE SECTION.
*
01 C01CHKPAR.
03 C01CHKTYP PIC X(008).
03 C01CHKDAT PIC X(080).
03 C01CHKRRC PIC 9(004).
COPY ZANCHKAC.
*
PROCEDURE DIVISION USING C01CHKPAR.
*****************************************************************
@@ -141,7 +139,8 @@
GO TO 3000CHKNUM-EXT
END-IF.
*** 数字(0-9)とスペースのみをカウント
INSPECT C01CHKDAT
MOVE ZERO TO WRK-NN.
INSPECT C01CHKDAT
TALLYING WRK-NN
FOR ALL "0" "1" "2" "3" "4"
"5" "6" "7" "8" "9"
sub/SUB05TIM.cbl
+1 -4
View File
@@ -34,10 +34,7 @@
*****************************************************************
LINKAGE SECTION.
*
01 T01TIMPAR.
03 T01TIMHRS PIC 9(004)V9(001).
03 T01TIMOUT PIC 9(004)V9(001).
03 T01TIMRRC PIC 9(004).
COPY ZANTIMAC.
*
PROCEDURE DIVISION USING T01TIMPAR.
*****************************************************************