← Back to branch summary

~ubuntu-branches/ubuntu/utopic/critcl/utopic

« back to all changes in this revision

Viewing changes to examples/zlibwrap/zlib/old/as400/compile.clp

  • Committer: Package Import Robot
  • Author(s): Andrew Shadura
  • Date: 2013-05-11 00:08:06 UTC
  • Revision ID: package-import@ubuntu.com-20130511000806-7hq1zc3fnn0gat79
Tags: upstream-3.1.9
Import upstream version 3.1.9

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/zlibwrap/zlib/old/as400/compile.clp
 
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