1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
*> This is in most part the tutorial code from
*> MicroFocus "external file handler" documentation.
*>
*> "Tutorial: Using the Callable File Handler"
*>
*> Left separate until possible integration into
*> main testsuite is clear...
*>
$SET SOURCEFORMAT "VARIABLE"
*
IDENTIFICATION DIVISION.
PROGRAM-ID. tutorial.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 opcode pic x(2).
78 OP-QUERY-FILE value x"0006".
78 OP-OPEN-INPUT value x"fa00".
78 OP-OPEN-OUTPUT value x"fa01".
78 OP-OPEN-I-O value x"fa02".
78 OP-WRITE value x"faf3".
78 OP-RELEASE value x"faf3".
78 OP-REWRITE value x"faf4".
78 OP-READ-NEXT value x"faf5".
78 OP-START-EQUAL value -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------LAG-PRIME value h"10".
78 KEY2KEYFLAG-SPARSE-KEY value h"02".
49 key-compression pic 9(2) comp-x.
78 KEY2COMPRESS-TRAILING-NULLS value h"08".
78 KEY2COMPRESS-TRAILING-SPACES value h"04".
78 KEY2COMPRESS-IDENTICAL-CHARS value h"02".
78 KEY2COMPRESS-FOLLOWING-DUP value h"01".
78 KEY2COMPRESS-NO-COMPRESSION value h"00".
78 KEY2COMPRESS-DEFAULT value KEY2COMPRESS-NO-COMPRESSION.
49 sparse-characters pic x(2).
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------LAG-PRIME value h"10".
78 KEY2KEYFLAG-SPARSE-KEY value h"02".
49 key-compression pic 9(2) comp-x.
78 KEY2COMPRESS-TRAILING-NULLS value h"08".
78 KEY2COMPRESS-TRAILING-SPACES value h"04".
78 KEY2COMPRESS-IDENTICAL-CHARS value h"02".
78 KEY2COMPRESS-FOLLOWING-DUP value h"01".
78 KEY2COMPRESS-NO-COMPRESSION value h"00".
78 KEY2COMPRESS-DEFAULT value KEY2COMPRESS-NO-COMPRESSION.
49 sparse-characters pic x(2).
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
