* $$ JOB JNM=KMDAI195,CLASS=5,DISP=H,USER=0000KM0200000000
* $$ LST CLASS=A,DISP=D
// JOB KMDAI195
* // JA RERUNON X
// TLBL TAPEFIL,'KMAI1950,H,W'
*/***** DRPROD.PROC /BEGIN/ KMDAI195.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// KMDAI195.SYSIN 001 */
// EXEC RDTAPENO,SIZE=1024K
// EXEC DRREPORT
USER 'COMMONWEALTH AUTOMOBILE REINSURERS DATA ENTRY TAPE'
TAPEFIL: INPUT TAPE RECORD=175 UNIT=SYS021 BLOCK=1750 FIXED
LABEL=STANDARD REWIND=UNLOAD
DEFINE RECORD1 001-089 X
' 1 2 3 4 5 6 '
'123456789012345678901234567890123456789012345678901234567890123456789'
DEFINE RECORD2 090-175 X
GET TAPEFIL
GOTO EOJ WHEN TAPEFIL EQ 'E'
COMPUTE COUNT(8.0) EQ (COUNT + 1)
HEADING 'RECORD' 'NUMBER'
REPORT 'AIPSO RE-ENTRY RECORDS (AI195R)'
SELECT ALL
PRINT COUNT RECORD1
PRINT COUNT RECORD2
END
NOLOG
// MTC RUN,SYS021
/*
/&
// JA RERUNOFF
* $$ EOJ
Return to the Sample Job Stream List
//KMDAI195 JOB (KMDAI195),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//*/***** DRPROD.PROC /BEGIN/ KMDAI195.SYSIN 001 */
//*/***** DRPROD.PROC //END// KMDAI195.SYSIN 001 */
//*
//* --> PGM=RDTAPENO <-- DELETED
//*
//* STEP0010 PGM=DRREPORT
//*
//STEP0010 EXEC PGM=DRREPORT
//* MT I C 'KMAI1950,H,W'
//TAPEFIL DD DSN=CAR.KMAI1950,
// 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=175 UNIT=SYS021 BLOCK=1750 FIXED
LABEL=STANDARD REWIND=UNLOAD
DEFINE RECORD1 001-089 X
' 1 2 3 4 5 6 '
'123456789012345678901234567890123456789012345678901234567890123456789'
DEFINE RECORD2 090-175 X
GET TAPEFIL
GOTO EOJ WHEN TAPEFIL EQ 'E'
COMPUTE COUNT(8.0) EQ (COUNT + 1)
HEADING 'RECORD' 'NUMBER'
REPORT 'AIPSO RE-ENTRY RECORDS (AI195R)'
SELECT ALL
PRINT COUNT RECORD1
PRINT COUNT RECORD2
END
NOLOG
/*
//
Return to the Sample Job Stream List