Return to the Sample Job Stream List

FZABW06J Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FZABW06J,USER='PMS...SARA'
* $$ LST CLASS=Q,DISP=H,COPY=1,LST=SYSLST
// JOB FZABW06J (BABSEXP2) CREATE NULL FILE FOR WTD EXPIRATIONS
// OPTION LOG
// ASSGN SYS002,SYSIPT
// DLBL SORTOUT,'HOAB.SD.WTD.HO.EXPIRE.FILE',0,VSAM,CAT=VSAM05,        -
               RECORDS=2000,RECSIZE=400
// EXEC SORT
 SORT FIELDS=COPY,EQUALS
 RECORD TYPE=F,LENGTH=80
 INPFIL BLKSIZE=80
 END
/*                         <--- EMPTY SYS002 FILE
// RESET SYS002                 (SORTIN)
// DLBL SORTIN1,'FPS.SYS.BFPW7050.PRINT.WORK.FILE',0,VSAM,CAT=WORK
// ASSGN SYS001,X'01E'          (SORTOUT)
// EXEC SORT
 SORT FIELDS=(1,07,A),FORMAT=BI,WORK=1,FILES=1
 RECORD TYPE=F,LENGTH=146
 OUTFIL LRECL=146,LINES=55
 END
/*
// ASSGN SYS001,SYSPCH
// DLBL SORTIN1,'CLAIMS.BCLWW080.HELP.LOAD',,VSAM,CAT=WORK
// EXEC SORT
// SORT FIELDS=COPY,FORMAT=BI
// RECORD TYPE=F,LENGTH=72
// INPFIL CRDSIZE=72
// OUTFIL PUNCH
// END
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//FZABW06J JOB (FZABW06J),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PGM=SORT
//*
//STEP0010 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* SD VS    O VSAM05              'HOAB.SD.WTD.HO.EXPIRE.FILE'         COPY
//SORTOUT  DD  DSN=SFB8.HOAB.SD.WTD.HO.EXPIRE.FILE,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(16,4),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 SORT FIELDS=COPY,EQUALS
 RECORD TYPE=F,LENGTH=80
*INPFIL BLKSIZE=80
 END
/*
//* CD I SYS002 00C                                                     COPY
//SORTIN   DD  *
/*
//*
//*     STEP0020  PGM=SORT
//*
//STEP0020 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* SD VS    I WORKCAT    SORTIN1  'FPS.SYS.BFPW7050.PRINT.WORK.FILE'
//SORTIN   DD  DSN=FPS.SYS.BFPW7050.PRINT.WORK.FILE,
//             DISP=SHR
//* PR O SYS001 01E
//SORTOUT  DD  SYSOUT=*
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 SORT  FIELDS=(1,07,A),FORMAT=BI
 RECORD TYPE=F,LENGTH=146
 OUTFIL LRECL=146,LINES=55
 END
/*
//*
//*     STEP0030  PGM=SORT
//*
//STEP0030 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* SD VS    I WORKCAT    SORTIN1  'CLAIMS.BCLWW080.HELP.LOAD'          COPY
//SORTIN   DD  DSN=CLAIMS.BCLWW080.HELP.LOAD,
//             DISP=SHR
//* CD O SYSPCH 00D                                                     COPY
//SORTOUT  DD  SYSOUT=*
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
   SORT  FIELDS=COPY
   RECORD TYPE=F,LENGTH=72
*  INPFIL CRDSIZE=72
*  OUTFIL PUNCH
   END
/*
//
   

Return to the Sample Job Stream List