Subsystem A: Add FILE STATUS + OPEN error checks to 6 KIN programs

Browse Source

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

...

This commit is contained in:

qiuqiuqiu

2026-06-24 23:59:33 +08:00

parent 235de714ea

commit 47866d2db4

12 changed files with 3166 additions and 0 deletions

Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL

Download Patch File Download Diff File Expand all files Collapse all files

bin/KIN01INP.exe

BIN

Binary file not shown.

bin/KIN02UPD.exe

BIN

Binary file not shown.

bin/KIN03EXP.exe

BIN

Binary file not shown.

bin/KIN04CHK.exe

BIN

Binary file not shown.

bin/KIN06CLD.exe

BIN

Binary file not shown.

bin/KIN07DAI.exe

BIN

Binary file not shown.