2012-03-27 23:13:14 +00:00
|
|
|
/******************************************************************************/
|
|
|
|
|
/* */
|
|
|
|
|
/* ZLIB */
|
|
|
|
|
/* */
|
|
|
|
|
/* Compile sources into modules and link them into a service program. */
|
|
|
|
|
/* */
|
|
|
|
|
/******************************************************************************/
|
|
|
|
|
|
|
|
|
|
PGM
|
|
|
|
|
|
|
|
|
|
/* Configuration adjustable parameters. */
|
|
|
|
|
|
|
|
|
|
DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10) +
|
|
|
|
|
VALUE('ZLIB') /* Source library. */
|
|
|
|
|
DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10) +
|
|
|
|
|
VALUE('SOURCES') /* Source member file. */
|
|
|
|
|
DCL VAR(&CTLFILE) TYPE(*CHAR) LEN(10) +
|
|
|
|
|
VALUE('TOOLS') /* Control member file. */
|
|
|
|
|
|
|
|
|
|
DCL VAR(&MODLIB) TYPE(*CHAR) LEN(10) +
|
|
|
|
|
VALUE('ZLIB') /* Module library. */
|
|
|
|
|
|
|
|
|
|
DCL VAR(&SRVLIB) TYPE(*CHAR) LEN(10) +
|
|
|
|
|
VALUE('LGPL') /* Service program library. */
|
|
|
|
|
|
|
|
|
|
DCL VAR(&CFLAGS) TYPE(*CHAR) +
|
|
|
|
|
VALUE('OPTIMIZE(40)') /* Compile options. */
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
DCL VAR(&TGTRLS) TYPE(*CHAR) +
|
|
|
|
|
VALUE('V5R3M0') /* Target release. */
|
|
|
|
|
|
2012-03-27 23:13:14 +00:00
|
|
|
|
|
|
|
|
/* Working storage. */
|
|
|
|
|
|
|
|
|
|
DCL VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(300) /* Command length. */
|
|
|
|
|
DCL VAR(&CMD) TYPE(*CHAR) LEN(512)
|
2014-09-21 17:33:12 +00:00
|
|
|
DCL VAR(&FIXDCMD) TYPE(*CHAR) LEN(512)
|
2012-03-27 23:13:14 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Compile sources into modules. */
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&FIXDCMD) VALUE('CRTCMOD' *BCAT &CFLAGS *BCAT +
|
|
|
|
|
'SYSIFCOPT(*IFS64IO)' *BCAT +
|
|
|
|
|
'DEFINE(''_LARGEFILE64_SOURCE''' *BCAT +
|
|
|
|
|
'''_LFS64_LARGEFILE=1'') TGTRLS(' *TCAT &TGTRLS *TCAT +
|
|
|
|
|
') SRCFILE(' *TCAT &SRCLIB *TCAT '/' *TCAT +
|
|
|
|
|
&SRCFILE *TCAT ') MODULE(' *TCAT &MODLIB *TCAT '/')
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'ADLER32)')
|
|
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
|
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'COMPRESS)')
|
|
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
|
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'CRC32)')
|
|
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
|
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'DEFLATE)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'GZCLOSE)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'GZLIB)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'GZREAD)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'GZWRITE)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'INFBACK)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'INFFAST)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'INFLATE)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'INFTREES)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'TREES)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'UNCOMPR)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
2014-09-21 17:33:12 +00:00
|
|
|
CHGVAR VAR(&CMD) VALUE(&FIXDCMD *TCAT 'ZUTIL)')
|
2012-03-27 23:13:14 +00:00
|
|
|
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Link modules into a service program. */
|
|
|
|
|
|
|
|
|
|
CRTSRVPGM SRVPGM(&SRVLIB/ZLIB) +
|
|
|
|
|
MODULE(&MODLIB/ADLER32 &MODLIB/COMPRESS +
|
|
|
|
|
&MODLIB/CRC32 &MODLIB/DEFLATE +
|
2014-09-21 17:33:12 +00:00
|
|
|
&MODLIB/GZCLOSE &MODLIB/GZLIB +
|
|
|
|
|
&MODLIB/GZREAD &MODLIB/GZWRITE +
|
|
|
|
|
&MODLIB/INFBACK &MODLIB/INFFAST +
|
|
|
|
|
&MODLIB/INFLATE &MODLIB/INFTREES +
|
|
|
|
|
&MODLIB/TREES &MODLIB/UNCOMPR +
|
|
|
|
|
&MODLIB/ZUTIL) +
|
|
|
|
|
SRCFILE(&SRCLIB/&CTLFILE) SRCMBR(BNDSRC) +
|
|
|
|
|
TEXT('ZLIB 1.2.7') TGTRLS(&TGTRLS)
|
2012-03-27 23:13:14 +00:00
|
|
|
|
|
|
|
|
ENDPGM
|
