1 "         *************************************
 2 "
 3 "         BEGIN cobol_op_var_con.incl.alm
 4 "         Modified on 11/30/78 by FCH
 5 "         Created 7/9/76 by Bob Chang
 6 "
 7 "
 8 "         CONSTANT SECTION ---flexiable part.
 9 
10 "         *************************************
11 "
12 "
13 "         the following constants are cobol status codes used through the io operators.
14 io9_con: aci        /9   /
15 io10_con: aci       /10  /
16 io22_con: aci       /22  /
17 io30_con: aci       /30  /
18 s1032con: aci       /1032/
19 s1036con: aci       /1036/
20 s1090con: aci       /1090/
21 s1193con: aci       /1193/
22 s1293con: aci       /1293/
23 s1295con: aci       /1295/
24 s2036con: aci       /2036/
25 s2393con: aci       /2393/
26 s3031con: aci       /3031/
27 s3032con: aci       /3032/
28 s3410con: aci       /3410/
29 s4022con: aci       /4022/
30 s4031con: aci       /4031/
31 s4430con: aci       /4430/
32 s4432con: aci       /4432/
33 s4532con: aci       /4532/
34 s4630con: aci       /4630/
35 s4730con: aci       /4730/
36 s5432con: aci       /5432/
37 s5730con: aci       /5730/
38 s4632con: aci       /4632/
39 s6031con: aci       /6031/
40 s6732con: aci       /6732/
41 s7031con: aci       /7031/
42 s7430con: aci       /7430/
43 s7632con: aci       /7632/
44 atd_con:  oct       000000000000
45 high_con: oct       377777000000
46 optional_int:       oct       300000000000
47 optional_ext:       oct       240000000000
48 volume_desc:        oct       524000000015
49 volume_con:         aci       /volu/
50           aci       /me_s/
51           aci       /tatu/
52           aci       /s   /
53 feov_desc:          oct       524000000004
54 feov_con: aci       /feov/
55 ptr_desc: oct       464000000000
56 fb35_desc:          oct       404000000043
57 "
58 "
59 "         Please insert the next new constant before this line.
60 "
61 "         END cobol_op_var_con.incl.alm
62 "
63 "
64 "