bwBASIC/bwbasic4.jcl

//BWBGEN   JOB CLASS=C,REGION=0K
//*
//CREATE   EXEC PGM=IEFBR14
//DD1      DD DSN=&&ZIPS,DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),
// SPACE=(CYL,(20,10,20)),UNIT=SYSDA
//*
//UNZIP1   PROC PDPPREF='PDPCLIB',BWBPREF='BWBASIC'
//MINI     EXEC PGM=MVSUNZIP,PARM='dd:input dd:output binary'
//STEPLIB  DD DSN=&PDPPREF..LINKLIB,DISP=SHR
//INPUT    DD DSN=&BWBPREF..ALLZIPS,DISP=SHR
//OUTPUT   DD DSN=&&ZIPS,DISP=(OLD,PASS)
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=F,LRECL=132,BLKSIZE=132)
//SYSTERM  DD SYSOUT=*,DCB=(RECFM=F,LRECL=132,BLKSIZE=132)
//         PEND
//*
//UNZIP2   PROC IN=,OUT=,PDPPREF='PDPCLIB',BWBPREF='BWBASIC'
//MINI     EXEC PGM=MVSUNZIP,PARM='dd:input dd:output'
//STEPLIB  DD DSN=&PDPPREF..LINKLIB,DISP=SHR
//INPUT    DD DSN=&&ZIPS(&IN),DISP=(OLD,PASS)
//OUTPUT   DD DSN=&BWBPREF..&OUT,DISP=SHR
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=F,LRECL=132,BLKSIZE=132)
//SYSTERM  DD SYSOUT=*,DCB=(RECFM=F,LRECL=132,BLKSIZE=132)
//         PEND
//*
//S1 EXEC UNZIP1
//S2 EXEC UNZIP2,IN='BWBSRC',OUT='SOURCE'
//S3 EXEC UNZIP2,IN='BWBINC',OUT='INCLUDE'
//S4 EXEC UNZIP2,IN='BWBJCL',OUT='JCL'
//