* $$ 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
//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