|
12345678910111213141516171819202122 |
- //BWBGEN JOB CLASS=C,REGION=0K
- //*
- //TRANSFER PROC BWBPREF='BWBASIC',PDPPREF='PDPCLIB'
- //DELETE EXEC PGM=IEFBR14
- //DD1 DD DSN=&BWBPREF..ALLZIPS,DISP=(MOD,DELETE),
- // UNIT=SYSALLDA,SPACE=(TRK,(0))
- //*
- //COPY EXEC PGM=COPYFILE,PARM='-bb dd:in dd:out'
- //STEPLIB DD DSN=&PDPPREF..LINKLIB,DISP=SHR
- //IN DD DSN=HERC02.IN,DISP=OLD,
- // UNIT=TAPE,VOL=SER=PCTOMF,LABEL=(1,NL),
- // DCB=(RECFM=U,LRECL=0,BLKSIZE=32760)
- //OUT DD DSN=&BWBPREF..ALLZIPS,DISP=(,CATLG),
- // SPACE=(6233,(220,220),RLSE),UNIT=SYSALLDA,
- // DCB=(RECFM=U,LRECL=0,BLKSIZE=6233)
- //SYSIN DD DUMMY
- //SYSPRINT DD SYSOUT=*
- //SYSTERM DD SYSOUT=*
- // PEND
- //*
- //S1 EXEC TRANSFER
- //
|