1 /*
 2 cobol_operators_: delete statement
 3 
 4           OP41(seek_key)                write
 5 
 6                     SUBR_SEEK_OP(16)
 7 
 8           OP53(delete)
 9 
10                     SUBR_DELETE
11 
12           OP54(delete_error)            start,read,rewrite
13 
14                     check seek errors
15                     RTS(16)
16 
17           OP55(read_key)                rewrite
18 
19                     iox_$read_key
20                     RTS(17)
21 
22           OP56(init_delete)
23 
24           OP57(special_delete)
25 
26                     SUBR_SEEK_OP(25)
27                     iox_$position
28 
29           OP85(alt_special_delete)                restart
30 
31                     move fsbskel.key one pos to right
32                     prefix by 511, increment size
33                     RTS(55)
34 
35           OP86(alt_delete)
36 
37                     set fields in FSB after delete
38                     RTS(53)
39 
40           OP87(alt_rew_del)                       rewrite
41 
42                     $control("record_status")
43                     delete alt key values
44                     RTS(52)
45 
46           SUBR_SEEK_OP(i)               41,57,[67]
47 
48                     iox_$seek_key
49                     RTS(i)
50 
51           SUBR_DELETE                   53
52 
53                     iox_$delete
54 
55 */