Skip to content

Commit 14ead4a

Browse files
yruslanyruslan
committed
#809 Add test suites for reading compressed files.
1 parent 92c67eb commit 14ead4a

File tree

10 files changed

+1808
-20
lines changed

10 files changed

+1808
-20
lines changed

‎data/test40_copybook.cob‎

Lines changed: 260 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,260 @@
1+
****************************************************************************
2+
* *
3+
* Copyright 2018 ABSA Group Limited *
4+
* *
5+
* Licensed under the Apache License, Version 2.0 (the "License"); *
6+
* you may not use this file except in compliance with the License. *
7+
* You may obtain a copy of the License at *
8+
* *
9+
* http://www.apache.org/licenses/LICENSE-2.0 *
10+
* *
11+
* Unless required by applicable law or agreed to in writing, software *
12+
* distributed under the License is distributed on an "AS IS" BASIS, *
13+
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. *
14+
* See the License for the specific language governing permissions and *
15+
* limitations under the License. *
16+
* *
17+
****************************************************************************
18+
19+
01 RECORD.
20+
21+
***********************************************************************
22+
******* EDGE CASES
23+
***********************************************************************
24+
10 ID PIC 9(7) BINARY.
25+
26+
********** String
27+
10 STRING-VAL PIC X(10).
28+
29+
********** Integral unsigned numbers formatted as strings
30+
10 NUM-STR-INT01 PIC 9(1).
31+
10 NUM-STR-INT02 PIC 9(2).
32+
10 NUM-STR-INT03 PIC 9(3).
33+
10 NUM-STR-INT04 PIC 9(4).
34+
10 NUM-STR-INT05 PIC 9(5).
35+
10 NUM-STR-INT06 PIC 9(8).
36+
10 NUM-STR-INT07 PIC 9(9).
37+
10 NUM-STR-INT08 PIC 9(10).
38+
10 NUM-STR-INT09 PIC 9(11).
39+
10 NUM-STR-INT10 PIC 9(17).
40+
10 NUM-STR-INT11 PIC 9(18).
41+
10 NUM-STR-INT12 PIC 9(19).
42+
10 NUM-STR-INT13 PIC 9(20).
43+
10 NUM-STR-INT14 PIC 9(37).
44+
45+
********** Integral signed numbers formatted as strings
46+
10 NUM-STR-SINT02 PIC S9(2).
47+
10 NUM-STR-SINT03 PIC S9(3).
48+
10 NUM-STR-SINT04 PIC S9(4).
49+
10 NUM-STR-SINT05 PIC S9(5).
50+
10 NUM-STR-SINT06 PIC S9(8).
51+
10 NUM-STR-SINT07 PIC S9(9).
52+
10 NUM-STR-SINT08 PIC S9(10).
53+
10 NUM-STR-SINT09 PIC S9(11).
54+
10 NUM-STR-SINT10 PIC S9(17).
55+
10 NUM-STR-SINT11 PIC S9(18).
56+
10 NUM-STR-SINT12 PIC S9(19).
57+
10 NUM-STR-SINT13 PIC S9(20).
58+
10 NUM-STR-SINT14 PIC S9(37).
59+
60+
********** Decimal numbers formatted as strings
61+
10 NUM-STR-DEC01 PIC 99V9.
62+
10 NUM-STR-DEC02 PIC 99V99.
63+
10 NUM-STR-DEC03 PIC 9(3)V99.
64+
10 NUM-STR-DEC04 PIC 9(4)V9(4).
65+
10 NUM-STR-DEC05 PIC 9(5)V9(4).
66+
10 NUM-STR-DEC06 PIC 9(5)V9(5).
67+
10 NUM-STR-DEC07 PIC 9(15)V99.
68+
10 NUM-STR-DEC08 PIC 9(16)V99.
69+
10 NUM-STR-DEC09 PIC 9(17)V99.
70+
10 NUM-STR-DEC10 PIC 9(18)V9(10).
71+
10 NUM-STR-SDEC01 PIC S99V9.
72+
10 NUM-STR-SDEC02 PIC S99V99.
73+
10 NUM-STR-SDEC03 PIC S9(3)V99.
74+
10 NUM-STR-SDEC04 PIC S9(4)V9(4).
75+
10 NUM-STR-SDEC05 PIC S9(5)V9(4).
76+
10 NUM-STR-SDEC06 PIC S9(5)V9(5).
77+
10 NUM-STR-SDEC07 PIC S9(15)V99.
78+
10 NUM-STR-SDEC08 PIC S9(16)V99.
79+
10 NUM-STR-SDEC09 PIC S9(17)V99.
80+
10 NUM-STR-SDEC10 PIC S9(18)V9(10).
81+
********** These types are currently not supported, added for the future
82+
10 NUM-STR-EDEC03 PIC S9(3).99.
83+
10 NUM-STR-EDEC04 PIC S9(4).9(4).
84+
10 NUM-STR-EDEC05 PIC S9(5).9(4).
85+
10 NUM-STR-EDEC06 PIC S9(5).9(5).
86+
87+
********** Binary formatted integral numbers
88+
10 NUM-BIN-INT01 PIC 9(1) COMP.
89+
10 NUM-BIN-INT02 PIC 9(2) COMP.
90+
10 NUM-BIN-INT03 PIC 9(3) COMP-0.
91+
10 NUM-BIN-INT04 PIC 9(4) COMP-4.
92+
10 NUM-BIN-INT05 PIC 9(5) COMP-5.
93+
10 NUM-BIN-INT06 PIC 9(8) BINARY.
94+
10 NUM-BIN-INT07 PIC 9(9) BINARY.
95+
10 NUM-BIN-INT08 PIC 9(10) BINARY.
96+
10 NUM-BIN-INT09 PIC 9(11) BINARY.
97+
10 NUM-BIN-INT10 PIC 9(17) BINARY.
98+
10 NUM-BIN-INT11 PIC 9(18) BINARY.
99+
10 NUM-BIN-INT12 PIC 9(19) BINARY.
100+
10 NUM-BIN-INT13 PIC 9(20) BINARY.
101+
10 NUM-BIN-INT14 PIC 9(37) BINARY.
102+
10 NUM-SBIN-SINT01 PIC S9(1) COMP.
103+
10 NUM-SBIN-SINT02 PIC S9(2) COMP.
104+
10 NUM-SBIN-SINT03 PIC S9(3) COMP.
105+
10 NUM-SBIN-SINT04 PIC S9(4) COMP.
106+
10 NUM-SBIN-SINT05 PIC S9(5) COMP.
107+
10 NUM-SBIN-SINT06 PIC S9(8) BINARY.
108+
10 NUM-SBIN-SINT07 PIC S9(9) BINARY.
109+
10 NUM-SBIN-SINT08 PIC S9(10) BINARY.
110+
10 NUM-SBIN-SINT09 PIC S9(11) BINARY.
111+
10 NUM-SBIN-SINT10 PIC S9(17) BINARY.
112+
10 NUM-SBIN-SINT11 PIC S9(18) BINARY.
113+
10 NUM-SBIN-SINT12 PIC S9(19) BINARY.
114+
10 NUM-SBIN-SINT13 PIC S9(20) BINARY.
115+
10 NUM-SBIN-SINT14 PIC S9(37) BINARY.
116+
117+
********** Binary formatted decimal numbers
118+
10 NUM-BIN-DEC01 PIC 99V9 COMP.
119+
10 NUM-BIN-DEC02 PIC 99V99 COMP.
120+
10 NUM-BIN-DEC03 PIC 9(3)V99 COMP.
121+
10 NUM-BIN-DEC04 PIC 9(4)V9(4) COMP.
122+
10 NUM-BIN-DEC05 PIC 9(5)V9(4) COMP.
123+
10 NUM-BIN-DEC06 PIC 9(5)V9(5) COMP.
124+
10 NUM-BIN-DEC07 PIC 9(15)V99 COMP.
125+
10 NUM-BIN-DEC08 PIC 9(16)V99 COMP.
126+
10 NUM-BIN-DEC09 PIC 9(17)V99 COMP.
127+
10 NUM-BIN-DEC10 PIC 9(18)V9(10) COMP.
128+
10 NUM-SBIN-DEC01 PIC S99V9 COMP.
129+
10 NUM-SBIN-DEC02 PIC S99V99 COMP.
130+
10 NUM-SBIN-DEC03 PIC S9(3)V99 COMP.
131+
10 NUM-SBIN-DEC04 PIC S9(4)V9(4) COMP.
132+
10 NUM-SBIN-DEC05 PIC S9(5)V9(4) COMP.
133+
10 NUM-SBIN-DEC06 PIC S9(5)V9(5) COMP.
134+
10 NUM-SBIN-DEC07 PIC S9(15)V99 COMP.
135+
10 NUM-SBIN-DEC08 PIC S9(16)V99 COMP.
136+
10 NUM-SBIN-DEC09 PIC S9(17)V99 COMP.
137+
10 NUM-SBIN-DEC10 PIC S9(18)V9(10) COMP.
138+
139+
********** BCD formatted integral numbers
140+
10 NUM-BCD-INT01 PIC 9(1) COMP-3.
141+
10 NUM-BCD-INT02 PIC 9(2) COMP-3.
142+
10 NUM-BCD-INT03 PIC 9(3) COMP-3.
143+
10 NUM-BCD-INT04 PIC 9(4) COMP-3.
144+
10 NUM-BCD-INT05 PIC 9(5) COMP-3.
145+
10 NUM-BCD-INT06 PIC 9(8) COMP-3.
146+
10 NUM-BCD-INT07 PIC 9(9) COMP-3.
147+
10 NUM-BCD-INT08 PIC 9(10) COMP-3.
148+
10 NUM-BCD-INT09 PIC 9(11) COMP-3.
149+
10 NUM-BCD-INT10 PIC 9(17) COMP-3.
150+
10 NUM-BCD-INT11 PIC 9(18) COMP-3.
151+
10 NUM-BCD-INT12 PIC 9(19) COMP-3.
152+
10 NUM-BCD-INT13 PIC 9(20) COMP-3.
153+
10 NUM-BCD-INT14 PIC 9(37) COMP-3.
154+
155+
10 NUM-BCD-SINT01 PIC S9(1) COMP-3.
156+
10 NUM-BCD-SINT02 PIC S9(2) COMP-3.
157+
10 NUM-BCD-SINT03 PIC S9(3) COMP-3.
158+
10 NUM-BCD-SINT04 PIC S9(4) COMP-3.
159+
10 NUM-BCD-SINT05 PIC S9(5) COMP-3.
160+
10 NUM-BCD-SINT06 PIC S9(8) COMP-3.
161+
10 NUM-BCD-SINT07 PIC S9(9) COMP-3.
162+
10 NUM-BCD-SINT08 PIC S9(10) COMP-3.
163+
10 NUM-BCD-SINT09 PIC S9(11) COMP-3.
164+
10 NUM-BCD-SINT10 PIC S9(17) COMP-3.
165+
10 NUM-BCD-SINT11 PIC S9(18) COMP-3.
166+
10 NUM-BCD-SINT12 PIC S9(19) COMP-3.
167+
10 NUM-BCD-SINT13 PIC S9(20) COMP-3.
168+
10 NUM-BCD-SINT14 PIC S9(37) COMP-3.
169+
170+
********** BCD formatted decimal numbers
171+
10 NUM-BCD-DEC01 PIC 99V9 COMP-3.
172+
10 NUM-BCD-DEC02 PIC 99V99 COMP-3.
173+
10 NUM-BCD-DEC03 PIC 9(3)V99 COMP-3.
174+
10 NUM-BCD-DEC04 PIC 9(4)V9(4) COMP-3.
175+
10 NUM-BCD-DEC05 PIC 9(5)V9(4) COMP-3.
176+
10 NUM-BCD-DEC06 PIC 9(5)V9(5) COMP-3.
177+
10 NUM-BCD-DEC07 PIC 9(15)V99 COMP-3.
178+
10 NUM-BCD-DEC08 PIC 9(16)V99 COMP-3.
179+
10 NUM-BCD-DEC09 PIC 9(17)V99 COMP-3.
180+
10 NUM-BCD-DEC10 PIC 9(18)V9(10) COMP-3.
181+
10 NUM-BCD-SDEC01 PIC S99V9 COMP-3.
182+
10 NUM-BCD-SDEC02 PIC S99V99 COMP-3.
183+
10 NUM-BCD-SDEC03 PIC S9(3)V99 COMP-3.
184+
10 NUM-BCD-SDEC04 PIC S9(4)V9(4) COMP-3.
185+
10 NUM-BCD-SDEC05 PIC S9(5)V9(4) COMP-3.
186+
10 NUM-BCD-SDEC06 PIC S9(5)V9(5) COMP-3.
187+
10 NUM-BCD-SDEC07 PIC S9(15)V99 COMP-3.
188+
10 NUM-BCD-SDEC08 PIC S9(16)V99 COMP-3.
189+
10 NUM-BCD-SDEC09 PIC S9(17)V99 COMP-3.
190+
10 NUM-BCD-SDEC10 PIC S9(18)V9(10) COMP-3.
191+
192+
********** sign trailing numbers
193+
10 NUM-SL-STR-INT01 PIC S9(9) SIGN IS
194+
LEADING SEPARATE.
195+
10 NUM-SL-STR-DEC01 PIC 99V99 SIGN IS
196+
LEADING SEPARATE CHARACTER.
197+
10 NUM-ST-STR-INT01 PIC S9(9) SIGN IS
198+
TRAILING SEPARATE.
199+
10 NUM-ST-STR-DEC01 PIC 99V99 SIGN
200+
TRAILING SEPARATE.
201+
10 NUM-SLI-STR-DEC01 PIC SV9(7) SIGN LEADING.
202+
10 NUM-STI-STR-DEC01 PIC SV9(7) SIGN TRAILING.
203+
10 NUM-SLI-DEBUG PIC X(7).
204+
10 NUM-STI-DEBUG PIC X(7).
205+
206+
***********************************************************************
207+
******* FLOATING POINT TYPES
208+
***********************************************************************
209+
210+
10 FLOAT-01 COMP-1.
211+
10 DOUBLE-01 COMP-2.
212+
213+
***********************************************************************
214+
******* COMMON TYPES
215+
***********************************************************************
216+
10 COMMON-8-BIN PIC 9(8) BINARY.
217+
10 COMMON-S3-BIN PIC S9(3) BINARY.
218+
10 COMMON-S94COMP PIC S9(04) COMP.
219+
10 COMMON-S8-BIN PIC S9(8) BINARY.
220+
10 COMMON-DDC97-BIN PIC S9V9(7) BINARY.
221+
10 COMMON-97COMP3 PIC 9(07) COMP-3.
222+
10 COMMON-915COMP3 PIC 9(15) COMP-3.
223+
10 COMMON-S95COMP3 PIC S9(5) COMP-3.
224+
10 COMMON-S999DCCOMP3 PIC S9(09)V99 COMP-3.
225+
10 COMMON-S913COMP3 PIC S9(13) COMP-3.
226+
10 COMMON-S913DCCOMP3 PIC S9(13)V99 COMP-3.
227+
10 COMMON-S911DCC2 PIC S9(11)V99 COMP-3.
228+
10 COMMON-S910DCC3 PIC S9(10)V999 COMP-3.
229+
10 COMMON-S03DDC PIC SV9(5) COMP-3.
230+
10 COMMON-U03DDC PIC V9(5) COMP-3.
231+
232+
10 COMMON-UPC5DDC PIC PPP9(5) COMP-3.
233+
10 COMMON-SPC5DDC PIC SPP99999 COMP-3.
234+
10 COMMON-UPI5DDC PIC 9(5)PPP COMP-3.
235+
10 COMMON-SPI5DDC PIC S99999PPP COMP-3.
236+
237+
10 COMMON-UPC5DISP PIC SPPP9(5).
238+
10 COMMON-UPI5DISP PIC S9(5)PPP.
239+
240+
10 COMMON-UPC1BIN PIC SPPP9 COMP.
241+
10 COMMON-UPI1BIN PIC S9PPPV COMP.
242+
10 COMMON-UPC3BIN PIC SPPP9(3) COMP.
243+
10 COMMON-UPI3BIN PIC S9(3)PPP COMP.
244+
10 COMMON-UPC5BIN PIC SPPP9(5) COMP.
245+
10 COMMON-UPI5BIN PIC S9(5)PPP COMP.
246+
10 COMMON-UPC10BIN PIC SPPP9(10) COMP.
247+
10 COMMON-UPI10BIN PIC S9(10)PPP COMP.
248+
249+
***********************************************************************
250+
******* EXOTIC AND COMPILER SPECIFIC
251+
***********************************************************************
252+
10 EX-NUM-INT01 PIC +9(8).
253+
10 EX-NUM-INT02 PIC 9(8)+.
254+
10 EX-NUM-INT03 PIC -9(8).
255+
10 EX-NUM-INT04 PIC Z(8)-.
256+
10 EX-NUM-DEC01 PIC +9(6)V99.
257+
10 EX-NUM-DEC02 PIC Z(6)VZZ-.
258+
10 EX-NUM-DEC03 PIC 9(6).99-.
259+
260+

‎data/test40_data/example.dat‎

146 KB
Binary file not shown.

‎data/test40_data/example.dat.bz2‎

56.7 KB
Binary file not shown.

‎data/test40_data/example.dat.gz‎

47.4 KB
Binary file not shown.

0 commit comments

Comments
 (0)