1 /*
 2 cobol_operators_: read_statement
 3 
 4           OP54(delete_error)
 5 
 6                     RTS(16)
 7 
 8           OP63(init_read)
 9 
10           OP64(get_line)
11 
12                     iox_$get_line
13                     RTS(28)
14 
15           OP65(read_record)
16 
17                     READ_COMMON
18 
19           OP66(nonseq_read_record)
20 
21                     READ_COMMON
22 
23           OP67(read_seq_key)            start
24 
25                     SUBR_SEEK_OP(16)
26 
27 
28           OP69(read_key_for_read)
29 
30                     iox_$read_key
31                     RTS(26)
32 
33           OP80(alt_read_record)
34 
35                     set fields in FSB after read next statement
36                     RTS(49)
37 
38           OP81(alt_read_key)
39 
40                     set  fields in FSB after read key statement
41                     RTS(50)
42 
43           OP84(alt_read_key)            start
44 
45                     move fsbskel.key in FSB one position to right
46                     prefix by key number, increment size
47                     RTS(59)
48 
49           OP92(alt_find_rec)
50 
51                     if necessary then RESTORE_CRP (position for read_record)
52                     RTS(57)
53 
54           READ_COMMON                   65 ,66
55 
56                     iox_$read_record
57                     RTS(27)
58 
59           SUBR_SEEK_OP(i)               67,[41,57,58]
60 
61 
62                     iox_$seek_key
63                     RTS(i)
64 
65 */