1 /*
 2 cobol_operators_: rewrite statement
 3 
 4           OP41(seek_key)
 5 
 6           OP54(delete_error)            start,read,delete
 7 
 8                     RTS(16)
 9 
10           OP55(read_key)                delete
11 
12                     iox_$read_key
13                     RTS(17)
14 
15           OP58(special_rewrite)
16 
17                     SUBR_SEEK_OP(25)
18                     iox_$rewrite_record
19 
20           OP59(rewrite_record)
21 
22                     iox_$rewrite_record
23 
24           OP85(alt_special_delete)                 delete
25 
26                     move fsbskel.key one position to right
27                     prefix by 511, increment size
28                     RTS(55)
29 
30           OP93(alt_rewrite)             rewrite
31 
32                     $control("record_status")
33                     delete alternate key values
34                     RTS(52)
35 
36           OP88(alt_rewrite_add)
37 
38                     $control("record_status")
39                     add alternate record keys
40                     set fields in FSB after rewrite
41                     RTS(58)
42 
43           SUBR_SEEK_OP(i)               58,[67,41,57]
44 
45                     iox_$seek_key
46                     RTS(i)
47 
48 */