1 /*
 2 cobol operators: open statement
 3 
 4           OP24(set_line_file_status)
 5 
 6           OP25(set_file_status)
 7 
 8           OP29(close_op_file)
 9 
10                     SUBR_CLOSE_FILE_ONLY
11                     SUBR_OPEN_FILE
12 
13           OP30(open_ext_file)
14 
15                     external file, check if open or locked
16 
17           OP31(open_int_file)
18 
19                     internal file, check if open or locked
20 
21           OP32(find_iocb)
22 
23 
24                     iox_$find_iocb)
25 
26           OP33(check_attach)
27 
28           OP34(attach_iocb)
29 
30                     iox_$attach_iocb
31 
32           OP35(open_file)
33 
34 
35                     SUBR_OPEN_FILE
36 
37           OP36(open_close_file)
38 
39                     SUBR_OPEN_FILE
40                     SUBR_CLOSE_FILE_ONLY
41 
42           OP37(check_file)
43 
44           OP78(alt_open_file)
45 
46                     set FSB fields for open statement
47                     $control("seek_head",>="511")
48                     RTS(46)
49 
50           SUBR_CLOSE_FILE_ONLY                    29,36
51 
52                     iox_$close
53                     RTS(12)
54 
55           SUBR_OPEN_FILE                          29,.35,36,[38]
56 
57 
58                     iox_$open
59                     RTS(15)
60 
61 */