123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131 |
- //*
- //* LE COMPILE FOR UNZIP541.
- //* ALL STEPS SHOULD GET COND CODE 0 EXCEPT FOR PLINK.PLKED WHICH GETS 4.
- //*
- //CBC JCLLIB ORDER=CBC.SCBCPRC
- //UNZIP EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(UNZIP)',
- // OUTFILE='USERID.UNZIP.OBJ(UNZIP),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //CRC32 EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(CRC32)',
- // OUTFILE='USERID.UNZIP.OBJ(CRC32),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //CRYPT EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(CRYPT)',
- // OUTFILE='USERID.UNZIP.OBJ(CRYPT),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //ENVARGS EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(ENVARGS)',
- // OUTFILE='USERID.UNZIP.OBJ(ENVARGS),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //EXPLODE EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(EXPLODE)',
- // OUTFILE='USERID.UNZIP.OBJ(EXPLODE),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //EXTRACT EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(EXTRACT)',
- // OUTFILE='USERID.UNZIP.OBJ(EXTRACT),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //FILEIO EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(FILEIO)',
- // OUTFILE='USERID.UNZIP.OBJ(FILEIO),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //GLOBALS EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(GLOBALS)',
- // OUTFILE='USERID.UNZIP.OBJ(GLOBALS),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //INFLATE EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(INFLATE)',
- // OUTFILE='USERID.UNZIP.OBJ(INFLATE),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //LIST EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(LIST)',
- // OUTFILE='USERID.UNZIP.OBJ(LIST),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //MATCH EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(MATCH)',
- // OUTFILE='USERID.UNZIP.OBJ(MATCH),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //PROCESS EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(PROCESS)',
- // OUTFILE='USERID.UNZIP.OBJ(PROCESS),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //TTYIO EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(TTYIO)',
- // OUTFILE='USERID.UNZIP.OBJ(TTYIO),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //UNREDUCE EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(UNREDUCE)',
- // OUTFILE='USERID.UNZIP.OBJ(UNREDUCE),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //UNSHRINK EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(UNSHRINK)',
- // OUTFILE='USERID.UNZIP.OBJ(UNSHRINK),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //ZIPINFO EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(ZIPINFO)',
- // OUTFILE='USERID.UNZIP.OBJ(ZIPINFO),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //VMMVS EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
- // INFILE='USERID.UNZIP.C(VMMVS)',
- // OUTFILE='USERID.UNZIP.OBJ(VMMVS),DISP=SHR',
- // CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
- // CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
- //COMPILE.USERLIB DD DSN=USERID.UNZIP.H,DISP=SHR
- //PLINK EXEC PROC=EDCPL,COND=(4,LT),
- // OUTFILE='USERID.UNZIP.LOAD(UNZIP),DISP=SHR',
- // PPARM='NONCAL,MAP,MEMORY',
- // LPARM='LIST,MAP,XREF'
- //SYSPRINT DD SYSOUT=*
- //PLKED.SYSIN DD DSN=USERID.UNZIP.OBJ(UNZIP),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(CRC32),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(CRYPT),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(ENVARGS),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(EXPLODE),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(EXTRACT),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(FILEIO),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(GLOBALS),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(INFLATE),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(LIST),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(MATCH),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(PROCESS),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(TTYIO),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(UNREDUCE),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(UNSHRINK),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(ZIPINFO),DISP=SHR
- // DD DSN=USERID.UNZIP.OBJ(VMMVS),DISP=SHR
- //LKED.SYSLIB DD DISP=SHR,DSN=CEE.SCEELKED
|