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

162 KiB

Raw History

View Raw