Return to the Sample Job Stream List

KMDCR099 Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=KMDCR099,CLASS=5,DISP=H,USER=0000KM0710000000
* $$ LST CLASS=A,DISP=D
// JOB KMDCR099
* // JA RERUNON X
// TLBL TAPEFIL,'KMCAR099,H,W'
*/***** DRPROD.PROC        /BEGIN/  KMDCR099.SYSIN     001 */
// ASSGN SYS004,DISK,VOL=PAK30D,SHR
// DLBL SORTIN1,'DR.SORTIN1',0,SD
// EXTENT SYS004,PAK30D,1,0,15,23765
// DLBL SORTOUT,'DR.SORTOUT',0,SD
// EXTENT SYS004,PAK30D,1,0,15,23765
// DLBL SORTWK1,'DR.SORTWK1',0,SD
// EXTENT SYS004,PAK30D,1,0,24000,26070
// DLBL DRWORK,'PROD.DR.WRK.FILE',0,DA
// EXTENT SYS117,PAK30F,1,0,5635,200
// DLBL DROUT,'PROD.DR.OUT.FILE',0,SD
// EXTENT SYS117,PAK30F,1,0,16000,1000
// DLBL DRLIB,'PROD.DR.LIBRARY',99/365,DA
// EXTENT SYS117,PAK30F,1,0,6625,200
*/***** DRPROD.PROC        //END//  KMDCR099.SYSIN     001 */
// EXEC RDTAPENO,SIZE=1024K
// EXEC DRREPORT
USER 'COMMONWEALTH AUTOMOBILE REINSURERS DATA ENTRY TAPE'
TAPEFIL: INPUT TAPE RECORD=80 UNIT=SYS021 BLOCK=800 FIXED
             LABEL=STANDARD REWIND=UNLOAD
DEFINE EIGHTY  001-080  X
'         1         2         3         4         5         6       '
'123456789012345678901234567890123456789012345678901234567890123456789'
 
GET TAPEFIL
GOTO EOJ WHEN TAPEFIL EQ 'E'
COMPUTE COUNT(8.0) EQ (COUNT + 1)
        HEADING 'RECORD' 'NUMBER'
 
REPORT 'CESSION DAILY TAPE (CAR099DE)'
SELECT ALL
PRINT COUNT EIGHTY
END
// MTC RUN,SYS021
NOLOG
/*
/&
// JA RERUNOFF
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//KMDCR099 JOB (KMDCR099),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*/***** DRPROD.PROC        /BEGIN/  KMDCR099.SYSIN     001 */
//*/***** DRPROD.PROC        //END//  KMDCR099.SYSIN     001 */
//*
//*  --> PGM=RDTAPENO <-- DELETED
//*
//*     STEP0010  PGM=DRREPORT
//*
//STEP0010 EXEC PGM=DRREPORT
//* MT I            C          'KMCAR099,H,W'
//TAPEFIL  DD  DSN=CAR.KMCAR099,
//             DISP=SHR
//* SD I            C          'PROD.DR.LIBRARY'
//DRLIB    DD  DSN=PROD.DR.LIBRARY,
//             DISP=SHR
//* SD W            C SORTIN1  'DR.SORTIN1'
//SORTIN   DD  DSN=&&SORTIN,
//             SPACE=(TRK,(23765,5941)),
//             UNIT=SYSDA
//* SD W            C          'DR.SORTOUT'
//SORTOUT  DD  DSN=&&SORTOUT,
//             SPACE=(TRK,(23765,5941)),
//             UNIT=SYSDA
//* SD W            C          'PROD.DR.WRK.FILE'
//DRWORK   DD  DSN=&&DRWORK,
//             SPACE=(TRK,(200,50)),
//             UNIT=SYSDA
//* SD O            C          'PROD.DR.OUT.FILE'
//DROUT    DD  DSN=PROD.DR.OUT.FILE,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1000,250),RLSE),
//             UNIT=SYSDA
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
USER 'COMMONWEALTH AUTOMOBILE REINSURERS DATA ENTRY TAPE'
TAPEFIL: INPUT TAPE RECORD=80 UNIT=SYS021 BLOCK=800 FIXED
             LABEL=STANDARD REWIND=UNLOAD
DEFINE EIGHTY  001-080  X
'         1         2         3         4         5         6       '
'123456789012345678901234567890123456789012345678901234567890123456789'
 
GET TAPEFIL
GOTO EOJ WHEN TAPEFIL EQ 'E'
COMPUTE COUNT(8.0) EQ (COUNT + 1)
        HEADING 'RECORD' 'NUMBER'
 
REPORT 'CESSION DAILY TAPE (CAR099DE)'
SELECT ALL
PRINT COUNT EIGHTY
END
/*
//
   

Return to the Sample Job Stream List