Return to the Sample Job Stream List

CASORT1 Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FSTREP1,CLASS=8,DISP=D,PRI=5
* $$ LST CLASS=J,DISP=K,LST=SYSLST,PRI=3
// JOB CASORT1
*  *----------------J O B   I N   P R O G R E S S-----------------*
*  *                       CASORT1                                *
*  *                TYPE : RECOVERABLE                            *
*  *--------------------------------------------------------------*
/. STEP001
* $$ SLI ICCF=(PHSTLIB),LIB=2
// DLBL IJSYSUC,'VSAM.WORK.CATALOG',,VSAM
// DLBL SORTIN1,'FLAB.PRO.BABD145.CPAY.PAYMENTS',,VSAM
// DLBL SORTOT1,'P74DISB.CASH',,SD
// EXTENT ,POOL01,1,0,1,126
// DLBL SORTOT2,'PTD.BSDATA.INVFILE1',,SD
// EXTENT ,POOL01,1,0,1,126
// DLBL SORT1,'===.SORT1.WORK.FILE',0,SD           WORK FILE 1
// EXTENT ,TPROD2,1,0,1,2000
// DLBL SORT2,'===.SORT2.WORK.FILE',0,SD           WORK FILE 2
// EXTENT ,TPROD2,1,0,1,2000
* $$ SLI ICCF=(DYNMSORT),LIB=(2)
// EXEC SORT,SIZE=512K
   OPTION NOINC,PRINT=ALL,ROUTE=LAL,NODUMP
   SORT1 FIELDS=(1,35,CH,A)
   SORT2 FIELDS=(1,35,CH,A)
   INCLUDE1 COND=(1,2,CH,EQ,C'01')
   INCLUDE2 COND=(2,2,CH,EQ,C'11')
   RECORD TYPE=F,LENGTH=(150)
   INPFIL VSAM
   OUTFIL BLKSIZE=1500
   END
/*
IF $RC = 0 THEN
GOTO $EOJ
// EXEC ABENDRTN
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//CASORT1  JOB (CASORT1),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*  *----------------J O B   I N   P R O G R E S S-----------------*
//*  *                       CASORT1                                *
//*  *                TYPE : RECOVERABLE                            *
//*  *--------------------------------------------------------------*
//*/. STEP001
//*
//*     STEP0010  PGM=SORT
//*
//STEP0010 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* VS VS    I WORKCAT    SORTIN1  'FLAB.PRO.BABD145.CPAY.PAYMENTS'     SORT2
//SORTIN   DD  DSN=FLAB.PRO.BABD145.CPAY.PAYMENTS,
//             DISP=SHR
//* SD W              SORT1    '===.SORT1.WORK.FILE'
//SORTWK01 DD  DSN=&&SORTWK01,
//             SPACE=(TRK,(2000,500)),
//             UNIT=SYSDA
//* SD W              SORT2    '===.SORT2.WORK.FILE'
//SORTWK02 DD  DSN=&&SORTWK02,
//             SPACE=(TRK,(2000,500)),
//             UNIT=SYSDA
//* SD O SYS001 UA    SORTOT1  'P74DISB.CASH'                           SORT2
//SORTOUT1 DD  DSN=MVS.P74DISB.CASH(+1),
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(126,31),RLSE),
//             UNIT=SYSDA
//* SD O SYS001 UA    SORTOT2  'PTD.BSDATA.INVFILE1'                    SORT2
//SORTOUT2 DD  DSN=MVSPTD.BSDATA.INVFILE1(+1),
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(126,31),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSOUT   DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
*  OPTION NOINC,PRINT=ALL,ROUTE=LAL,NODUMP
   SORT  FIELDS=(1,35,CH,A)
*  SORT2 FIELDS=(1,35,CH,A)
   OUTFIL INCLUDE=(1,2,CH,EQ,C'01'),FNAMES=SORTOUT1
   OUTFIL INCLUDE=(2,2,CH,EQ,C'11'),FNAMES=SORTOUT2
   RECORD TYPE=F,LENGTH=(150)
*  INPFIL VSAM
*  OUTFIL BLKSIZE=1500
   END
/*
//*IF $RC = 0 THEN
//*GOTO $EOJ
//*
//*     STEP0020  PGM=ABENDRTN
//*
// IF (STEP0010.RC ^= 0) THEN
//STEP0020 EXEC PGM=ABENDRTN
// ENDIF
//
   

Return to the Sample Job Stream List