qiuqiuqiu/cobol-tna-system
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
15 Commits 1 Branch 0 Tags
a08e33ea19b3ea4354a7eaa366a0c489080523c2
Commit Graph
3 Commits
Author SHA1 Message Date
qiuqiuqiu a08e33ea19 Add Subsystem A (KIN01INP/KIN02UPD/KIN03EXP) + update SUB04CHK/ZAN01CHK 2026-06-26 07:50:50 +08:00
qiuqiuqiu 27fb3d888b Remove Subsystem A src/bin from git (only production/ should be pushed) 2026-06-25 00:29:43 +08:00
qiuqiuqiu 47866d2db4 Subsystem A: Add FILE STATUS + OPEN error checks to 6 KIN programs 
KIN01INP/KIN02UPD/KIN03EXP/KIN04CHK/KIN06CLD/KIN07DAI:
- FILE STATUS added to all FILE-CONTROL SELECT statements
- WS-xx-STATUS variables declared in WORKING-STORAGE
- OPEN error: IF WS-xx-STATUS NOT = '00' -> CALL SUB03END
- KIN06CLD: added missing 9999ABDSOR section
- All programs build; KIN04CHK/KIN06CLD/KIN07DAI tests pass
 2026-06-24 23:59:33 +08:00