nilopaim/tinycobol
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

version 0.73.0

Browse Source
This commit is contained in:
nilopaim
2023-07-14 12:15:30 -03:00
parent 110d8a0419
commit 945dd1a809
1466 changed files with 374820 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
copys/TCKEYS.CPY
+59
View File
@@ -0,0 +1,59 @@
*>
*>
*> 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.