1 /*
 2 cobol_operators_: close statement
 3 
 4           OP27(close_file)
 5 
 6                     SUBR_CLOSE_FILE
 7 
 8           OP38(close_file_only)
 9 
10                     SUBR_CLOSE_FILE_ONLY
11 
12           OP76(close_reel)
13 
14                     iox_$control
15                     iox_$position
16 
17           OP89(alt_close_file)
18 
19                     SET_FSBPTR
20                     set fields in the FSB
21                     RTS(47)
22 
23           SUBR_CLOSE_FILE               27
24 
25                     iox_$close
26                     RTS(12)
27                     iox_$detach
28 
29           SUBR_CLOSE_FILE_ONLY          38,[29,35,36]
30 
31                     iox_$close
32                     RTS(12)
33 
34 */