FZPSD72J Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FZPSD72J,CLASS=A,DISP=D,USER='FPS DAILY'
// JOB FZPSD72J (BFPD5210) DOS/VS SORT ISSUE MOE
* $$ LST CLASS=Q,DISP=H,LST=SYSLST,FNO=1PRT
/*                  ****** INPUT FILE ******
// DLBL SORTIN1,'FPS.SYS.BFPD4110.ISSUE.WORK.FILE',0,VSAM,CAT=WORK
/*                  ****** OUTPUT FILE ******
// DLBL SORTOUT,'FPS.SYS.BFPD5210.ISSUE.WORK.FILE',0,VSAM,             *
                CAT=WORK,RECORDS=35000,RECSIZE=841
// DLBL SORTOF2,'FPS.SYS.BFPD5210.DEC98.WORK.FILE',0,VSAM,             *
                CAT=WORK,RECORDS=35000,RECSIZE=841
// DLBL SORTOF3,'FPS.SYS.BFPD5210.ISSUE1.WORK.FILE',0,VSAM,            *
                CAT=WORK,RECORDS=35000,RECSIZE=841
// EXEC SORT
 OPTION PRINT=CRITICAL
 SORT FIELDS=(4,2,A,8,2,A,11,11,A,22,10,A,33,9,A,42,8,A,50,7,D),       *
               FORMAT=CH,WORK=4,FILESOUT=3
 RECORD TYPE=V,LENGTH=845
 OMIT COND=(10,12,CH,EQ,C'SSSPPPPPPPMM')
 INPFIL BLKSIZE=6144
 OUTFIL FILES=1,BLKSIZE=6144,
       OMIT=(10,3,CH,EQ,C'HO ',OR,
             10,3,CH,EQ,C'HXL',OR,
             10,3,CH,EQ,C'MH ',OR,
             10,3,CH,EQ,C'DF ',OR,
             10,3,CH,EQ,C'FSQ',OR,
             10,3,CH,EQ,C'BTO',OR,
             10,3,CH,EQ,C'AP ',OR,
             10,3,CH,EQ,C'AB ',OR,
             10,3,CH,EQ,C'ABF')
 OUTFIL FILES=2,BLKSIZE=6144,
       INCLUDE=(10,3,CH,EQ,C'HO ',OR,
                10,3,CH,EQ,C'HXL',OR,
                10,3,CH,EQ,C'MH ',OR,
                10,3,CH,EQ,C'DF ',OR,
                10,3,CH,EQ,C'FSQ',OR,
                10,3,CH,EQ,C'BTO',OR,
                10,3,CH,EQ,C'AP ',OR,
                10,3,CH,EQ,C'AB ',OR,
                10,3,CH,EQ,C'ABF')
 OUTFIL FILES=3,BLKSIZE=6144,
        OMIT=(10,3,CH,EQ,C'XXX')
 
 END
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//FZPSD72J JOB (FZPSD72J),'                    ',
//             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    I WORKCAT    SORTIN1  'FPS.SYS.BFPD4110.ISSUE.WORK.FILE'
//SORTIN   DD  DSN=FPS.SYS.BFPD4110.ISSUE.WORK.FILE,
//             DISP=SHR
//* SD VS    O WORKCAT    SORTOUT  'FPS.SYS.BFPD5210.ISSUE.WORK.FILE'
//SORTOF1  DD  DSN=FPS.SYS.BFPD5210.ISSUE.WORK.FILE,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(589,147),RLSE),
//             UNIT=SYSDA
//* SD VS    O WORKCAT             'FPS.SYS.BFPD5210.DEC98.WORK.FILE'
//SORTOF2  DD  DSN=FPS.SYS.BFPD5210.DEC98.WORK.FILE,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(589,147),RLSE),
//             UNIT=SYSDA
//* SD VS    O WORKCAT             'FPS.SYS.BFPD5210.ISSUE1.WORK.FILE'
//SORTOF3  DD  DSN=FPS.SYS.BFPD5210.ISSUE1.WORK.FILE,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(589,147),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
*OPTION PRINT=CRITICAL
 SORT  FIELDS=(4,2,A,8,2,A,11,11,A,22,10,A,33,9,A,42,8,A,50,7,         *
               D),FORMAT=CH
 RECORD TYPE=V,LENGTH=845
 OMIT COND=(10,12,CH,EQ,C'SSSPPPPPPPMM')
*INPFIL BLKSIZE=6144
 OUTFIL FILES=1,BLKSIZE=6144,
       OMIT=(10,3,CH,EQ,C'HO ',OR,
             10,3,CH,EQ,C'HXL',OR,
             10,3,CH,EQ,C'MH ',OR,
             10,3,CH,EQ,C'DF ',OR,
             10,3,CH,EQ,C'FSQ',OR,
             10,3,CH,EQ,C'BTO',OR,
             10,3,CH,EQ,C'AP ',OR,
             10,3,CH,EQ,C'AB ',OR,
             10,3,CH,EQ,C'ABF')
 OUTFIL FILES=2,BLKSIZE=6144,
       INCLUDE=(10,3,CH,EQ,C'HO ',OR,
                10,3,CH,EQ,C'HXL',OR,
                10,3,CH,EQ,C'MH ',OR,
                10,3,CH,EQ,C'DF ',OR,
                10,3,CH,EQ,C'FSQ',OR,
                10,3,CH,EQ,C'BTO',OR,
                10,3,CH,EQ,C'AP ',OR,
                10,3,CH,EQ,C'AB ',OR,
                10,3,CH,EQ,C'ABF')
 OUTFIL FILES=3,BLKSIZE=6144,
        OMIT=(10,3,CH,EQ,C'XXX')
 
 END
/*
//
   

Return to the Sample Job Stream List