bwBASIC/bwbasic3.m4

//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=SYSDA,SPACE=(TRK,(0))
//*
//MVSENDEC EXEC PGM=MVSENDEC,PARM='decb dd:input dd:output'
//STEPLIB  DD DSN=&PDPPREF..LINKLIB,DISP=SHR
//INPUT    DD DUMMY
//OUTPUT   DD DSN=&BWBPREF..ALLZIPS,DISP=(,CATLG),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),
// SPACE=(CYL,(20,10),RLSE),UNIT=SYSDA
//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 TRANSFER
//MVSENDEC.INPUT DD *
undivert(allzips.txt)/*
//