diff options
Diffstat (limited to '')
-rw-r--r-- | as400/bndsrc (renamed from old/as400/bndsrc) | 51 | ||||
-rw-r--r-- | as400/readme.txt (renamed from old/as400/readme.txt) | 10 | ||||
-rw-r--r-- | as400/zlib.inc (renamed from old/as400/zlib.inc) | 102 | ||||
-rw-r--r-- | old/as400/compile.clp | 123 |
4 files changed, 155 insertions, 131 deletions
diff --git a/old/as400/bndsrc b/as400/bndsrc index 9cf94bb..06c3f43 100644 --- a/old/as400/bndsrc +++ b/as400/bndsrc | |||
@@ -34,6 +34,7 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB') | |||
34 | EXPORT SYMBOL("deflateCopy") | 34 | EXPORT SYMBOL("deflateCopy") |
35 | EXPORT SYMBOL("deflateReset") | 35 | EXPORT SYMBOL("deflateReset") |
36 | EXPORT SYMBOL("deflateParams") | 36 | EXPORT SYMBOL("deflateParams") |
37 | EXPORT SYMBOL("deflatePending") | ||
37 | EXPORT SYMBOL("deflatePrime") | 38 | EXPORT SYMBOL("deflatePrime") |
38 | EXPORT SYMBOL("deflateInit_") | 39 | EXPORT SYMBOL("deflateInit_") |
39 | EXPORT SYMBOL("deflateInit2_") | 40 | EXPORT SYMBOL("deflateInit2_") |
@@ -129,4 +130,54 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB') | |||
129 | 130 | ||
130 | EXPORT SYMBOL("zlibCompileFlags") | 131 | EXPORT SYMBOL("zlibCompileFlags") |
131 | 132 | ||
133 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | ||
134 | /* Version 1.2.5 additional entry points. */ | ||
135 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | ||
136 | |||
137 | /********************************************************************/ | ||
138 | /* *MODULE ADLER32 ZLIB 01/02/01 00:15:09 */ | ||
139 | /********************************************************************/ | ||
140 | |||
141 | EXPORT SYMBOL("adler32_combine") | ||
142 | EXPORT SYMBOL("adler32_combine64") | ||
143 | |||
144 | /********************************************************************/ | ||
145 | /* *MODULE CRC32 ZLIB 01/02/01 00:15:09 */ | ||
146 | /********************************************************************/ | ||
147 | |||
148 | EXPORT SYMBOL("crc32_combine") | ||
149 | EXPORT SYMBOL("crc32_combine64") | ||
150 | |||
151 | /********************************************************************/ | ||
152 | /* *MODULE GZLIB ZLIB 01/02/01 00:15:09 */ | ||
153 | /********************************************************************/ | ||
154 | |||
155 | EXPORT SYMBOL("gzbuffer") | ||
156 | EXPORT SYMBOL("gzoffset") | ||
157 | EXPORT SYMBOL("gzoffset64") | ||
158 | EXPORT SYMBOL("gzopen64") | ||
159 | EXPORT SYMBOL("gzseek64") | ||
160 | EXPORT SYMBOL("gztell64") | ||
161 | |||
162 | /********************************************************************/ | ||
163 | /* *MODULE GZREAD ZLIB 01/02/01 00:15:09 */ | ||
164 | /********************************************************************/ | ||
165 | |||
166 | EXPORT SYMBOL("gzclose_r") | ||
167 | |||
168 | /********************************************************************/ | ||
169 | /* *MODULE GZWRITE ZLIB 01/02/01 00:15:09 */ | ||
170 | /********************************************************************/ | ||
171 | |||
172 | EXPORT SYMBOL("gzclose_w") | ||
173 | |||
174 | /********************************************************************/ | ||
175 | /* *MODULE INFLATE ZLIB 01/02/01 00:15:09 */ | ||
176 | /********************************************************************/ | ||
177 | |||
178 | EXPORT SYMBOL("inflateMark") | ||
179 | EXPORT SYMBOL("inflatePrime") | ||
180 | EXPORT SYMBOL("inflateReset2") | ||
181 | EXPORT SYMBOL("inflateUndermine") | ||
182 | |||
132 | ENDPGMEXP | 183 | ENDPGMEXP |
diff --git a/old/as400/readme.txt b/as400/readme.txt index beae13f..5b96cec 100644 --- a/old/as400/readme.txt +++ b/as400/readme.txt | |||
@@ -1,4 +1,4 @@ | |||
1 | ZLIB version 1.2.3 for AS400 installation instructions | 1 | ZLIB version 1.2.5.1 for AS400 installation instructions |
2 | 2 | ||
3 | I) From an AS400 *SAVF file: | 3 | I) From an AS400 *SAVF file: |
4 | 4 | ||
@@ -70,7 +70,10 @@ II) From the original source distribution: | |||
70 | compress.c COMPRESS C ZLIB - Compress a memory buffer | 70 | compress.c COMPRESS C ZLIB - Compress a memory buffer |
71 | crc32.c CRC32 C ZLIB - Compute the CRC-32 of a data stream | 71 | crc32.c CRC32 C ZLIB - Compute the CRC-32 of a data stream |
72 | deflate.c DEFLATE C ZLIB - Compress data using the deflation algorithm | 72 | deflate.c DEFLATE C ZLIB - Compress data using the deflation algorithm |
73 | gzio.c GZIO C ZLIB - IO on .gz files | 73 | gzclose.c GZCLOSE C ZLIB - Close .gz files |
74 | gzlib.c GZLIB C ZLIB - Miscellaneous .gz files IO support | ||
75 | gzread.c GZREAD C ZLIB - Read .gz files | ||
76 | gzwrite.c GZWRITE C ZLIB - Write .gz files | ||
74 | infback.c INFBACK C ZLIB - Inflate using a callback interface | 77 | infback.c INFBACK C ZLIB - Inflate using a callback interface |
75 | inffast.c INFFAST C ZLIB - Fast proc. literals & length/distance pairs | 78 | inffast.c INFFAST C ZLIB - Fast proc. literals & length/distance pairs |
76 | inflate.c INFLATE C ZLIB - Interface to inflate modules | 79 | inflate.c INFLATE C ZLIB - Interface to inflate modules |
@@ -81,6 +84,7 @@ II) From the original source distribution: | |||
81 | H Original ZLIB C and ILE/RPG include files | 84 | H Original ZLIB C and ILE/RPG include files |
82 | crc32.h CRC32 C ZLIB - CRC32 tables | 85 | crc32.h CRC32 C ZLIB - CRC32 tables |
83 | deflate.h DEFLATE C ZLIB - Internal compression state | 86 | deflate.h DEFLATE C ZLIB - Internal compression state |
87 | gzguts.h GZGUTS C ZLIB - Definitions for the gzclose module | ||
84 | inffast.h INFFAST C ZLIB - Header to use inffast.c | 88 | inffast.h INFFAST C ZLIB - Header to use inffast.c |
85 | inffixed.h INFFIXED C ZLIB - Table for decoding fixed codes | 89 | inffixed.h INFFIXED C ZLIB - Table for decoding fixed codes |
86 | inflate.h INFLATE C ZLIB - Internal inflate state definitions | 90 | inflate.h INFLATE C ZLIB - Internal inflate state definitions |
@@ -108,4 +112,4 @@ Notes: For AS400 ILE RPG programmers, a /copy member defining the ZLIB | |||
108 | implementation does not handle conversion from/to ASCII, so | 112 | implementation does not handle conversion from/to ASCII, so |
109 | text data code conversions must be done explicitely. | 113 | text data code conversions must be done explicitely. |
110 | 114 | ||
111 | Always open zipped files in binary mode. | 115 | Mainly for the reason above, always open zipped files in binary mode. |
diff --git a/old/as400/zlib.inc b/as400/zlib.inc index a9a4f5c..d492ef3 100644 --- a/old/as400/zlib.inc +++ b/as400/zlib.inc | |||
@@ -1,7 +1,7 @@ | |||
1 | * ZLIB.INC - Interface to the general purpose compression library | 1 | * ZLIB.INC - Interface to the general purpose compression library |
2 | * | 2 | * |
3 | * ILE RPG400 version by Patrick Monnerat, DATASPHERE. | 3 | * ILE RPG400 version by Patrick Monnerat, DATASPHERE. |
4 | * Version 1.2.3.9 | 4 | * Version 1.2.5.1 |
5 | * | 5 | * |
6 | * | 6 | * |
7 | * WARNING: | 7 | * WARNING: |
@@ -22,16 +22,25 @@ | |||
22 | * | 22 | * |
23 | * Versioning information. | 23 | * Versioning information. |
24 | * | 24 | * |
25 | D ZLIB_VERSION C '1.2.3.9' | 25 | D ZLIB_VERSION C '1.2.5.1' |
26 | D ZLIB_VERNUM C X'1239' | 26 | D ZLIB_VERNUM C X'1251' |
27 | D ZLIB_VER_MAJOR C 1 | ||
28 | D ZLIB_VER_MINOR C 2 | ||
29 | D ZLIB_VER_REVISION... | ||
30 | D C 5 | ||
31 | D ZLIB_VER_SUBREVISION... | ||
32 | D C 0 | ||
27 | * | 33 | * |
28 | * Other equates. | 34 | * Other equates. |
29 | * | 35 | * |
30 | D Z_NO_FLUSH C 0 | 36 | D Z_NO_FLUSH C 0 |
37 | D Z_PARTIAL_FLUSH... | ||
38 | D C 1 | ||
31 | D Z_SYNC_FLUSH C 2 | 39 | D Z_SYNC_FLUSH C 2 |
32 | D Z_FULL_FLUSH C 3 | 40 | D Z_FULL_FLUSH C 3 |
33 | D Z_FINISH C 4 | 41 | D Z_FINISH C 4 |
34 | D Z_BLOCK C 5 | 42 | D Z_BLOCK C 5 |
43 | D Z_TREES C 6 | ||
35 | * | 44 | * |
36 | D Z_OK C 0 | 45 | D Z_OK C 0 |
37 | D Z_STREAM_END C 1 | 46 | D Z_STREAM_END C 1 |
@@ -72,6 +81,7 @@ | |||
72 | D z_streamp S * Stream struct ptr | 81 | D z_streamp S * Stream struct ptr |
73 | D gzFile S * File pointer | 82 | D gzFile S * File pointer |
74 | D z_off_t S 10i 0 Stream offsets | 83 | D z_off_t S 10i 0 Stream offsets |
84 | D z_off64_t S 20i 0 Stream offsets | ||
75 | * | 85 | * |
76 | ************************************************************************** | 86 | ************************************************************************** |
77 | * Structures | 87 | * Structures |
@@ -122,20 +132,36 @@ | |||
122 | D source 32767 const options(*varsize) Source buffer | 132 | D source 32767 const options(*varsize) Source buffer |
123 | D sourceLen 10U 0 value Source length | 133 | D sourceLen 10U 0 value Source length |
124 | * | 134 | * |
135 | /if not defined(LARGE_FILES) | ||
125 | D gzopen PR extproc('gzopen') | 136 | D gzopen PR extproc('gzopen') |
126 | D like(gzFile) | 137 | D like(gzFile) |
127 | D path * value options(*string) File pathname | 138 | D path * value options(*string) File pathname |
128 | D mode * value options(*string) Open mode | 139 | D mode * value options(*string) Open mode |
140 | /else | ||
141 | D gzopen PR extproc('gzopen64') | ||
142 | D like(gzFile) | ||
143 | D path * value options(*string) File pathname | ||
144 | D mode * value options(*string) Open mode | ||
145 | * | ||
146 | D gzopen64 PR extproc('gzopen64') | ||
147 | D like(gzFile) | ||
148 | D path * value options(*string) File pathname | ||
149 | D mode * value options(*string) Open mode | ||
150 | /endif | ||
129 | * | 151 | * |
130 | D gzdopen PR extproc('gzdopen') | 152 | D gzdopen PR extproc('gzdopen') |
131 | D like(gzFile) | 153 | D like(gzFile) |
132 | D fd 10i 0 value File descriptor | 154 | D fd 10I 0 value File descriptor |
133 | D mode * value options(*string) Open mode | 155 | D mode * value options(*string) Open mode |
134 | * | 156 | * |
157 | D gzbuffer PR 10I 0 extproc('gzbuffer') | ||
158 | D file value like(gzFile) File pointer | ||
159 | D size 10U 0 value | ||
160 | * | ||
135 | D gzsetparams PR 10I 0 extproc('gzsetparams') | 161 | D gzsetparams PR 10I 0 extproc('gzsetparams') |
136 | D file value like(gzFile) File pointer | 162 | D file value like(gzFile) File pointer |
137 | D level 10I 0 value | 163 | D level 10I 0 value |
138 | D strategy 10i 0 value | 164 | D strategy 10I 0 value |
139 | * | 165 | * |
140 | D gzread PR 10I 0 extproc('gzread') | 166 | D gzread PR 10I 0 extproc('gzread') |
141 | D file value like(gzFile) File pointer | 167 | D file value like(gzFile) File pointer |
@@ -160,22 +186,66 @@ | |||
160 | D file value like(gzFile) File pointer | 186 | D file value like(gzFile) File pointer |
161 | D flush 10I 0 value Type of flush | 187 | D flush 10I 0 value Type of flush |
162 | * | 188 | * |
189 | /if not defined(LARGE_FILES) | ||
163 | D gzseek PR extproc('gzseek') | 190 | D gzseek PR extproc('gzseek') |
164 | D like(z_off_t) | 191 | D like(z_off_t) |
165 | D file value like(gzFile) File pointer | 192 | D file value like(gzFile) File pointer |
166 | D offset value like(z_off_t) Offset | 193 | D offset value like(z_off_t) Offset |
167 | D whence 10i 0 value Origin | 194 | D whence 10i 0 value Origin |
195 | /else | ||
196 | D gzseek PR extproc('gzseek64') | ||
197 | D like(z_off_t) | ||
198 | D file value like(gzFile) File pointer | ||
199 | D offset value like(z_off_t) Offset | ||
200 | D whence 10i 0 value Origin | ||
201 | * | ||
202 | D gzseek64 PR extproc('gzseek64') | ||
203 | D like(z_off64_t) | ||
204 | D file value like(gzFile) File pointer | ||
205 | D offset value like(z_off64_t) Offset | ||
206 | D whence 10i 0 value Origin | ||
207 | /endif | ||
168 | * | 208 | * |
169 | D gzrewind PR 10i 0 extproc('gzrewind') | 209 | D gzrewind PR 10i 0 extproc('gzrewind') |
170 | D file value like(gzFile) File pointer | 210 | D file value like(gzFile) File pointer |
171 | * | 211 | * |
212 | /if not defined(LARGE_FILES) | ||
172 | D gztell PR extproc('gztell') | 213 | D gztell PR extproc('gztell') |
173 | D like(z_off_t) | 214 | D like(z_off_t) |
174 | D file value like(gzFile) File pointer | 215 | D file value like(gzFile) File pointer |
216 | /else | ||
217 | D gztell PR extproc('gztell64') | ||
218 | D like(z_off_t) | ||
219 | D file value like(gzFile) File pointer | ||
220 | * | ||
221 | D gztell64 PR extproc('gztell64') | ||
222 | D like(z_off64_t) | ||
223 | D file value like(gzFile) File pointer | ||
224 | /endif | ||
225 | * | ||
226 | /if not defined(LARGE_FILES) | ||
227 | D gzoffset PR extproc('gzoffset') | ||
228 | D like(z_off_t) | ||
229 | D file value like(gzFile) File pointer | ||
230 | /else | ||
231 | D gzoffset PR extproc('gzoffset64') | ||
232 | D like(z_off_t) | ||
233 | D file value like(gzFile) File pointer | ||
234 | * | ||
235 | D gzoffset64 PR extproc('gzoffset64') | ||
236 | D like(z_off64_t) | ||
237 | D file value like(gzFile) File pointer | ||
238 | /endif | ||
175 | * | 239 | * |
176 | D gzeof PR 10i 0 extproc('gzeof') | 240 | D gzeof PR 10i 0 extproc('gzeof') |
177 | D file value like(gzFile) File pointer | 241 | D file value like(gzFile) File pointer |
178 | * | 242 | * |
243 | D gzclose_r PR 10i 0 extproc('gzclose_r') | ||
244 | D file value like(gzFile) File pointer | ||
245 | * | ||
246 | D gzclose_w PR 10i 0 extproc('gzclose_w') | ||
247 | D file value like(gzFile) File pointer | ||
248 | * | ||
179 | D gzclose PR 10i 0 extproc('gzclose') | 249 | D gzclose PR 10i 0 extproc('gzclose') |
180 | D file value like(gzFile) File pointer | 250 | D file value like(gzFile) File pointer |
181 | * | 251 | * |
@@ -253,6 +323,11 @@ | |||
253 | D strm like(z_stream) Compression stream | 323 | D strm like(z_stream) Compression stream |
254 | D sourcelen 10U 0 value Compression level | 324 | D sourcelen 10U 0 value Compression level |
255 | * | 325 | * |
326 | D deflatePending PR 10I 0 extproc('deflatePending') Change level & strat | ||
327 | D strm like(z_stream) Compression stream | ||
328 | D pending 10U 0 Pending bytes | ||
329 | D bits 10I 0 Pending bits | ||
330 | * | ||
256 | D deflatePrime PR 10I 0 extproc('deflatePrime') Change level & strat | 331 | D deflatePrime PR 10I 0 extproc('deflatePrime') Change level & strat |
257 | D strm like(z_stream) Compression stream | 332 | D strm like(z_stream) Compression stream |
258 | D bits 10I 0 value Number of bits to insert | 333 | D bits 10I 0 value Number of bits to insert |
@@ -280,6 +355,18 @@ | |||
280 | D inflateReset PR 10I 0 extproc('inflateReset') End and init. stream | 355 | D inflateReset PR 10I 0 extproc('inflateReset') End and init. stream |
281 | D strm like(z_stream) Expansion stream | 356 | D strm like(z_stream) Expansion stream |
282 | * | 357 | * |
358 | D inflateReset2 PR 10I 0 extproc('inflateReset2') End and init. stream | ||
359 | D strm like(z_stream) Expansion stream | ||
360 | D windowBits 10I 0 value Log2(buffer size) | ||
361 | * | ||
362 | D inflatePrime PR 10I 0 extproc('inflatePrime') Insert bits | ||
363 | D strm like(z_stream) Expansion stream | ||
364 | D bits 10I 0 value Bit count | ||
365 | D value 10I 0 value Bits to insert | ||
366 | * | ||
367 | D inflateMark PR 10I 0 extproc('inflateMark') Get inflate info | ||
368 | D strm like(z_stream) Expansion stream | ||
369 | * | ||
283 | D inflateBackInit... | 370 | D inflateBackInit... |
284 | D PR 10I 0 extproc('inflateBackInit_') | 371 | D PR 10I 0 extproc('inflateBackInit_') |
285 | D strm like(z_stream) Expansion stream | 372 | D strm like(z_stream) Expansion stream |
@@ -328,4 +415,9 @@ | |||
328 | * | 415 | * |
329 | D get_crc_table PR * extproc('get_crc_table') Ptr to ulongs | 416 | D get_crc_table PR * extproc('get_crc_table') Ptr to ulongs |
330 | * | 417 | * |
418 | D inflateUndermine... | ||
419 | D PR 10I 0 extproc('inflateUndermine') | ||
420 | D strm like(z_stream) Expansion stream | ||
421 | D arg 10I 0 value Error code | ||
422 | * | ||
331 | /endif | 423 | /endif |
diff --git a/old/as400/compile.clp b/old/as400/compile.clp deleted file mode 100644 index 8554951..0000000 --- a/old/as400/compile.clp +++ /dev/null | |||
@@ -1,123 +0,0 @@ | |||
1 | /******************************************************************************/ | ||
2 | /* */ | ||
3 | /* ZLIB */ | ||
4 | /* */ | ||
5 | /* Compile sources into modules and link them into a service program. */ | ||
6 | /* */ | ||
7 | /******************************************************************************/ | ||
8 | |||
9 | PGM | ||
10 | |||
11 | /* Configuration adjustable parameters. */ | ||
12 | |||
13 | DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10) + | ||
14 | VALUE('ZLIB') /* Source library. */ | ||
15 | DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10) + | ||
16 | VALUE('SOURCES') /* Source member file. */ | ||
17 | DCL VAR(&CTLFILE) TYPE(*CHAR) LEN(10) + | ||
18 | VALUE('TOOLS') /* Control member file. */ | ||
19 | |||
20 | DCL VAR(&MODLIB) TYPE(*CHAR) LEN(10) + | ||
21 | VALUE('ZLIB') /* Module library. */ | ||
22 | |||
23 | DCL VAR(&SRVLIB) TYPE(*CHAR) LEN(10) + | ||
24 | VALUE('LGPL') /* Service program library. */ | ||
25 | |||
26 | DCL VAR(&CFLAGS) TYPE(*CHAR) + | ||
27 | VALUE('OPTIMIZE(40)') /* Compile options. */ | ||
28 | |||
29 | |||
30 | /* Working storage. */ | ||
31 | |||
32 | DCL VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(300) /* Command length. */ | ||
33 | DCL VAR(&CMD) TYPE(*CHAR) LEN(512) | ||
34 | |||
35 | |||
36 | /* Compile sources into modules. */ | ||
37 | |||
38 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
39 | '/ADLER32) SRCFILE(' *TCAT + | ||
40 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
41 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
42 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
43 | |||
44 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
45 | '/COMPRESS) SRCFILE(' *TCAT + | ||
46 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
47 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
48 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
49 | |||
50 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
51 | '/CRC32) SRCFILE(' *TCAT + | ||
52 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
53 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
54 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
55 | |||
56 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
57 | '/DEFLATE) SRCFILE(' *TCAT + | ||
58 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
59 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
60 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
61 | |||
62 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
63 | '/GZIO) SRCFILE(' *TCAT + | ||
64 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
65 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
66 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
67 | |||
68 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
69 | '/INFBACK) SRCFILE(' *TCAT + | ||
70 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
71 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
72 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
73 | |||
74 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
75 | '/INFFAST) SRCFILE(' *TCAT + | ||
76 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
77 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
78 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
79 | |||
80 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
81 | '/INFLATE) SRCFILE(' *TCAT + | ||
82 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
83 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
84 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
85 | |||
86 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
87 | '/INFTREES) SRCFILE(' *TCAT + | ||
88 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
89 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
90 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
91 | |||
92 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
93 | '/TREES) SRCFILE(' *TCAT + | ||
94 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
95 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
96 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
97 | |||
98 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
99 | '/UNCOMPR) SRCFILE(' *TCAT + | ||
100 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
101 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
102 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
103 | |||
104 | CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + | ||
105 | '/ZUTIL) SRCFILE(' *TCAT + | ||
106 | &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + | ||
107 | ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) | ||
108 | CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) | ||
109 | |||
110 | |||
111 | /* Link modules into a service program. */ | ||
112 | |||
113 | CRTSRVPGM SRVPGM(&SRVLIB/ZLIB) + | ||
114 | MODULE(&MODLIB/ADLER32 &MODLIB/COMPRESS + | ||
115 | &MODLIB/CRC32 &MODLIB/DEFLATE + | ||
116 | &MODLIB/GZIO &MODLIB/INFBACK + | ||
117 | &MODLIB/INFFAST &MODLIB/INFLATE + | ||
118 | &MODLIB/INFTREES &MODLIB/TREES + | ||
119 | &MODLIB/UNCOMPR &MODLIB/ZUTIL) + | ||
120 | SRCFILE(&SRCLIB/&CTLFILE) SRCMBR(BNDSRC) + | ||
121 | TEXT('ZLIB 1.2.3') TGTRLS(V4R4M0) | ||
122 | |||
123 | ENDPGM | ||