1 /*
 2 cobol_operators_: start_statement
 3 
 4           OP21(init_start)
 5 
 6           OP23(start_control)
 7 
 8                     iox_$control("seek_head")
 9                     RTS(11)
10 
11           OP54(delete_error)            read,delete,rewrite
12 
13                     RTS(16)
14 
15           OP67(read_seek_key) read
16 
17                     SUBR_SEEK_OP(16)
18 
19           OP79(alt_start)
20 
21                     set FSB fields for start statement
22                     RTS(48)
23 
24           OP82(alt_seek_key)                      read
25 
26                     move fsbskel.key in FSB one position to right
27                     prefix by key number, increment size
28                     RTS(54)
29 
30           SUBR_SEEK_OP(i)               67,[41,57,58]
31 
32                     iox_$seek_key
33                     RTS(i)
34 
35 */