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

src/の21ファイルをIBM COBOL完全版に統一（production/側は意図的に簡略化されていた）

Browse Source
This commit is contained in:
qiuqiuqiu
2026-07-22 22:55:08 +08:00
parent 15f927ed82
commit 127ec7e6df
21 changed files with 529 additions and 183 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/KYU04CAL.cbl
+15 -4
View File
@@ -23,10 +23,18 @@
*
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.
SELECT R02INNFIL ASSIGN TO EXTERNAL KYU04R02
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT R03INNFIL ASSIGN TO EXTERNAL KYU04R03
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU04W03
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT W04OUTFIL ASSIGN TO EXTERNAL KYU04W04
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
*
DATA DIVISION.
FILE SECTION.
@@ -131,6 +139,9 @@
03 WRK-ALLOWANCE-TYPE PIC X(003).
03 WRK-ATTEND-TYPE PIC X(001).
03 WRK-AMOUNT PIC 9(009).
03 WS-PAD-CHAR PIC X(001) VALUE SPACE.
03 WS-FILE-STATUS PIC X(002).
*
*****************************************************************
* DB2ホスト変数 *