compile.clp revision 1.1.1.1
1112158Sdas/******************************************************************************/ 2112158Sdas/* */ 3112158Sdas/* ZLIB */ 4112158Sdas/* */ 5112158Sdas/* Compile sources into modules and link them into a service program. */ 6112158Sdas/* */ 7112158Sdas/******************************************************************************/ 8112158Sdas 9112158Sdas PGM 10112158Sdas 11112158Sdas/* Configuration adjustable parameters. */ 12112158Sdas 13112158Sdas DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10) + 14112158Sdas VALUE('ZLIB') /* Source library. */ 15112158Sdas DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10) + 16112158Sdas VALUE('SOURCES') /* Source member file. */ 17112158Sdas DCL VAR(&CTLFILE) TYPE(*CHAR) LEN(10) + 18112158Sdas VALUE('TOOLS') /* Control member file. */ 19112158Sdas 20112158Sdas DCL VAR(&MODLIB) TYPE(*CHAR) LEN(10) + 21112158Sdas VALUE('ZLIB') /* Module library. */ 22112158Sdas 23112158Sdas DCL VAR(&SRVLIB) TYPE(*CHAR) LEN(10) + 24112158Sdas VALUE('LGPL') /* Service program library. */ 25112158Sdas 26112158Sdas DCL VAR(&CFLAGS) TYPE(*CHAR) + 27112158Sdas VALUE('OPTIMIZE(40)') /* Compile options. */ 28112158Sdas 29165743Sdas 30165743Sdas/* Working storage. */ 31112158Sdas 32174679Sdas DCL VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(300) /* Command length. */ 33174679Sdas DCL VAR(&CMD) TYPE(*CHAR) LEN(512) 34112158Sdas 35165743Sdas 36165743Sdas/* Compile sources into modules. */ 37165743Sdas 38112158Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 39112158Sdas '/ADLER32) SRCFILE(' *TCAT + 40112158Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 41112158Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 42112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 43112158Sdas 44112158Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 45112158Sdas '/COMPRESS) SRCFILE(' *TCAT + 46112158Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 47182709Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 48112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 49112158Sdas 50182709Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 51112158Sdas '/CRC32) SRCFILE(' *TCAT + 52112158Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 53112158Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 54112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 55112158Sdas 56112158Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 57112158Sdas '/DEFLATE) SRCFILE(' *TCAT + 58112158Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 59112158Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 60112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 61112158Sdas 62219557Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 63219557Sdas '/GZIO) SRCFILE(' *TCAT + 64219557Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 65219557Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 66219557Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 67219557Sdas 68219557Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 69219557Sdas '/INFBACK) SRCFILE(' *TCAT + 70219557Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 71219557Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 72219557Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 73219557Sdas 74219557Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 75219557Sdas '/INFFAST) SRCFILE(' *TCAT + 76219557Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 77219557Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 78219557Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 79219557Sdas 80219557Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 81219557Sdas '/INFLATE) SRCFILE(' *TCAT + 82219557Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 83219557Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 84112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 85227753Stheraven 86112158Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 87227753Stheraven '/INFTREES) SRCFILE(' *TCAT + 88112158Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 89227753Stheraven ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 90112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 91112158Sdas 92112158Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 93112158Sdas '/TREES) SRCFILE(' *TCAT + 94112158Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 95165743Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 96112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 97112158Sdas 98219557Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 99112158Sdas '/UNCOMPR) SRCFILE(' *TCAT + 100219557Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 101112158Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 102112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 103219557Sdas 104219557Sdas CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT + 105219557Sdas '/ZUTIL) SRCFILE(' *TCAT + 106112158Sdas &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT + 107112158Sdas ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS) 108112158Sdas CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN) 109187808Sdas 110187808Sdas 111227753Stheraven/* Link modules into a service program. */ 112187808Sdas 113187808Sdas CRTSRVPGM SRVPGM(&SRVLIB/ZLIB) + 114187808Sdas MODULE(&MODLIB/ADLER32 &MODLIB/COMPRESS + 115187808Sdas &MODLIB/CRC32 &MODLIB/DEFLATE + 116187808Sdas &MODLIB/GZIO &MODLIB/INFBACK + 117187808Sdas &MODLIB/INFFAST &MODLIB/INFLATE + 118227753Stheraven &MODLIB/INFTREES &MODLIB/TREES + 119219557Sdas &MODLIB/UNCOMPR &MODLIB/ZUTIL) + 120187808Sdas SRCFILE(&SRCLIB/&CTLFILE) SRCMBR(BNDSRC) + 121187808Sdas TEXT('ZLIB 1.2.3') TGTRLS(V4R4M0) 122187808Sdas 123187808Sdas ENDPGM 124187808Sdas