60 lines
2.7 KiB
COBOL
60 lines
2.7 KiB
COBOL
*>
|
|
*>
|
|
*> Keyboard Keys Codes
|
|
*>
|
|
*>
|
|
77 CBL-KEY PIC 9(04) VALUE ZEROS.
|
|
88 KEY-ENTER VALUE 00 0013.
|
|
88 KEY-ESC VALUE 01 0027 00276.
|
|
88 KEY-F1 VALUE 02 0265.
|
|
88 KEY-F2 VALUE 03 0266.
|
|
88 KEY-F3 VALUE 04 0267.
|
|
88 KEY-F4 VALUE 05 0268.
|
|
88 KEY-F5 VALUE 06 0269.
|
|
88 KEY-F6 VALUE 07 0270.
|
|
88 KEY-F7 VALUE 08 0271.
|
|
88 KEY-F8 VALUE 09 0272.
|
|
88 KEY-F9 VALUE 10 0273.
|
|
88 KEY-F10 VALUE 11 0274.
|
|
88 KEY-32 VALUE 32 0259.
|
|
88 KEY-UP VALUE 32 0259.
|
|
88 KEY-33 VALUE 33 0367.
|
|
88 KEY-DOWN VALUE 33 0367.
|
|
88 KEY-FUNCAO VALUE 00 01 02 03 04 05 06
|
|
07 08 09 10 11 32 33
|
|
0013 0027 0265 0266
|
|
0267 0268 0269 0270
|
|
0271 0272 0273 0274
|
|
0259 0367.
|
|
|
|
*>
|
|
*>
|
|
*> File Status Codes
|
|
*>
|
|
*>
|
|
77 CBL-FS PIC X(02) VALUE SPACES.
|
|
88 FS-OK VALUE "00" "02" "04"
|
|
"05".
|
|
88 FS-EOF VALUE "10".
|
|
88 FS-INVALID-START VALUE "46" "22".
|
|
88 FS-DUPLICATE-KEY VALUE "22".
|
|
88 FS-KEY-NOT-FOUND VALUE "23".
|
|
88 FS-DISK-FULL VALUE "24".
|
|
88 FS-INEXISTENT-ISAM VALUE "30".
|
|
88 FS-FILE-NOT-FOUND VALUE "35".
|
|
88 FS-ACCESS-DENIED VALUE "37" "9!".
|
|
88 FS-FORMAT-ERROR VALUE "39" "44".
|
|
88 FS-ALREADY-OPEN VALUE "41".
|
|
88 FS-NOT-OPEN VALUE "42" "47".
|
|
88 FS-RECORD-NOT-FOUND VALUE "22".
|
|
88 FS-FILE-LOCKED VALUE "9A".
|
|
88 FS-RECORD-LOCKED VALUE "9D".
|
|
88 FS-CORRUPT-INDEX VALUE "9$" "9)" "9(".
|
|
|
|
*>
|
|
*>
|
|
*> Screen Save Area
|
|
*>
|
|
*>
|
|
77 CBL-SCREEN-BUFFER PIC X(8000) VALUE SPACES.
|