1 
 2 /*
 3 
 4           The procedure cobol_close_gen.pl1 generates the code which realizes
 5 the COBOL close statement.
 6 
 7           CLOSE fn eos
 8 
 9                     repeated if necessary
10 
11                     eos       b=0       no REEL/UNIT
12                                 1       REEL/UNIT
13 
14                               c=0       REWIND
15                                 1       no REWIND
16 
17                               f=00      no LOCK
18                                 01      LOCK
19 
20           mp.n                3
21           mp.ptr(1)           type-1("CLOSE")
22           mp.ptr(2)           type-12(file-name)
23           mp.ptr(3)           eos
24 
25 Flow Chart
26 
27 TAG(ioerror.retry_tag):
28 
29           if end_stmt.b
30           then      OP76(close_reel,good_tag)
31           else      if ^file_table.detach
32                     then      OP27(close_file,good_tag)
33                     else      OP38(close_file_only,good_tag)
34           GEN_IOERROR
35 
36 
37 TAG(good_tag):
38 
39           if        file_table.organization = 3   ind
40                     &
41                     file_table.alternate_keys ^- 0
42           then      IO_UTIL$FILE_DESC;OP89(alt_close_file,0)
43 */
44 
45 %include cobol_opr_close;
46