1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
//BWBGEN JOB CLASS=C,REGION=0K
//*
//CREATE EXEC PGM=IEFBR14
//DD1 DD DSN=&&ZIPS,DISP=(,PASS),
// DCB=(RECFM=U,LRECL=0,BLKSIZE=6233),
// SPACE=(6233,(220,220,44)),UNIT=SYSALLDA
//*
//UNZIP1 PROC MINPREF='MINIZIP',BWBPREF='BWBASIC'
//MINI EXEC PGM=MINIUNZ,PARM='dd:input dd:output'
//STEPLIB DD DSN=&MINPREF..LINKLIB,DISP=SHR
//INPUT DD DSN=&BWBPREF..ALLZIPS,DISP=SHR
//OUTPUT DD DSN=&&ZIPS,DISP=(OLD,PASS)
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
// PEND
//*
//UNZIP2 PROC IN=,OUT=,MINPREF='MINIZIP',BWBPREF='BWBASIC'
//MINI EXEC PGM=MINIUNZ,PARM='-a dd:input dd:output'
//STEPLIB DD DSN=&MINPREF..LINKLIB,DISP=SHR
//INPUT DD DSN=&&ZIPS(&IN),DISP=(OLD,PASS)
//OUTPUT DD DSN=&BWBPREF..&OUT,DISP=SHR
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
// 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'
//
|