* $$ JOB JNM=FZCLD14J,USER='PROGRAMMING'
* $$ LST CLASS=Q,DISP=H,DEST=(,RSCS),LST=SYSLST
* $$ LST CLASS=G,DISP=K,LST=01E,USER='CLAIMS',FNO=LPO1
* $$ LST CLASS=Q,DISP=H,LST=02E,USER='CLAIMS.BOB'
// JOB FZCLD14J (BCLDB20) PRINT PRODUCITON DEPOSIT FILE FOR CLAIMS
// OPTION LOG
// ASSGN SYS001,X'01E'
// ASSGN SYS002,X'02E'
// DLBL SORTIN1,'PROD.DEPOSIT.LIST.MASTER.FILE',,VSAM,CAT=VSAM11
// EXEC SORT
RECORD TYPE=F,LENGTH=100
INPFIL VSAM,TOL
SORT FIELDS=(01,04,CH,A,05,03,CH,A),FILESOUT=2
OUTFIL FILES=1,PRINT,
OUTREC=(1:01,04, TRANS TYPE
10:05,03, OPERATOR ID
19:14,06, CLAIM
30:85,06, DRAFT/CHECK
40:91,02, BANK
50:20,30, PAYEE NAME
95:50,10,ZD,M2, AMOUNT
112:60,18, COMMENTS
132:X), PADDING
LRECL=131,
HEADER2=(01:'REF. PROG. BCLDB20',
50:'ALBERTA FARM BUREAU INSURANCE COMPANY',/,
01:'DATE ',&DATE,
45:'DRAFT AND CHECK LIST FOR ACCOUNTING DEPARTMENT',
119:'PAGE ',&PAGE,/,
1:130'-',/,
01:'TYPE',
08:'OPERATOR',
19:'CLAIM',
26:'DRAFT/CHECK',
39:'BANK',
50:'PAYEE NAME',
100:'AMOUNT',
112:'COMENTS',/,
1:130'-',/),
TRAILER1=(//,50:'--------- END OF REPORT ---------'),
SECTIONS=(01,04,SKIP=P,
TRAILER3=(2/,95:14'-',/,
15:COUNT,' TRANSACTIONS',
50:'TOTAL FOR TYPE ',01,04,
95:TOTAL=(50,10,ZD,EDIT=($I,III,IIT.TTS)),/,
95:14'-'),
05,03,SKIP=P,
TRAILER3=(95:14'-',/,
15:COUNT,' TRANSACTIONS',
50:'TOTAL FOR OPERATOR ',05,03,
95:TOTAL=(50,10,ZD,EDIT=($I,III,IIT.TTS)),/,
95:14'-'))
OUTFIL FILES=2,PRINT,
OUTREC=(1:01,04, TRANS TYPE
10:05,03, OPERATOR ID
19:14,06, CLAIM
30:85,06, DRAFT/CHECK
40:91,02, BANK
50:20,30, PAYEE NAME
95:50,10,ZD,M2, AMOUNT
112:60,18, COMMENTS
132:X), PADDING
LRECL=131,
HEADER2=(01:'REF. PROG. BCLDB20',
50:'ALBERTA FARM BUREAU INSURANCE COMPANY',/,
01:'DATE ',&DATE,
50:'LIST OF DRAFTS AND CHECKS NOT PRINTED',
119:'PAGE ',&PAGE,/,
1:130'-',/,
01:'TYPE',
08:'OPERATOR',
19:'CLAIM',
26:'DRAFT/CHECK',
39:'BANK',
50:'PAYEE NAME',
100:'AMOUNT',
112:'COMENTS',/,
1:130'-',/),
TRAILER1=(//,50:'--------- END OF REPORT ---------'),
TRAILER2=(//,05:'*** NOTE: THIS IS A PROOF LIST ',
'THAT WAS NOT PRINTED ON ',&DATE),
SECTIONS=(01,04,SKIP=P,
TRAILER3=(2/,95:14'-',/,
50:'TOTAL FOR TYPE ',01,04,
95:TOTAL=(50,10,ZD,EDIT=($I,III,IIT.TTS)),/,
95:14'-'),
05,03,SKIP=P,
TRAILER3=(95:14'-',/,
50:'TOTAL FOR OPERATOR ',05,03,
95:TOTAL=(50,10,ZD,EDIT=($I,III,IIT.TTS)),/,
95:14'-')),
INCLUDE=(100,01,CH,EQ,C'A')
OMIT COND=(01,01,CH,EQ,C'H')
END
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//FZCLD14J JOB (FZCLD14J),' ',
// 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
//* VS VS I VSAM11 SORTIN1 'PROD.DEPOSIT.LIST.MASTER.FILE'
//SORTIN DD DSN=PROD.DEPOSIT.LIST.MASTER.FILE,
// DISP=SHR
//* PR O SYS001 01E 0002
//SORTOF1 DD SYSOUT=(G,,LPO1)
//* PR O SYS002 02E 0003
//SORTOF2 DD SYSOUT=Q
//* PR O
//SYSOUT DD SYSOUT=*
//* CD I
//SYSIN DD *
RECORD TYPE=F,LENGTH=100
*INPFIL VSAM,TOL
SORT FIELDS=(01,04,CH,A,05,03,CH,A)
OUTFIL FILES=1,PRINT,
OUTREC=(1:01,04, TRANS TYPE
10:05,03, OPERATOR ID
19:14,06, CLAIM
30:85,06, DRAFT/CHECK
40:91,02, BANK
50:20,30, PAYEE NAME
95:50,10,ZD,M2, AMOUNT
112:60,18, COMMENTS
132:X), PADDING
LRECL=131,
HEADER2=(01:'REF. PROG. BCLDB20',
50:'ALBERTA FARM BUREAU INSURANCE COMPANY',/,
01:'DATE ',&DATE,
45:'DRAFT AND CHECK LIST FOR ACCOUNTING DEPARTMENT',
119:'PAGE ',&PAGE,/,
1:130'-',/,
01:'TYPE',
08:'OPERATOR',
19:'CLAIM',
26:'DRAFT/CHECK',
39:'BANK',
50:'PAYEE NAME',
100:'AMOUNT',
112:'COMENTS',/,
1:130'-',/),
TRAILER1=(//,50:'--------- END OF REPORT ---------'),
SECTIONS=(01,04,SKIP=P,
TRAILER3=(2/,95:14'-',/,
15:COUNT,' TRANSACTIONS',
50:'TOTAL FOR TYPE ',01,04,
95:TOTAL=(50,10,ZD,EDIT=($I,III,IIT.TTS)),/,
95:14'-'),
05,03,SKIP=P,
TRAILER3=(95:14'-',/,
15:COUNT,' TRANSACTIONS',
50:'TOTAL FOR OPERATOR ',05,03,
95:TOTAL=(50,10,ZD,EDIT=($I,III,IIT.TTS)),/,
95:14'-'))
OUTFIL FILES=2,PRINT,
OUTREC=(1:01,04, TRANS TYPE
10:05,03, OPERATOR ID
19:14,06, CLAIM
30:85,06, DRAFT/CHECK
40:91,02, BANK
50:20,30, PAYEE NAME
95:50,10,ZD,M2, AMOUNT
112:60,18, COMMENTS
132:X), PADDING
LRECL=131,
HEADER2=(01:'REF. PROG. BCLDB20',
50:'ALBERTA FARM BUREAU INSURANCE COMPANY',/,
01:'DATE ',&DATE,
50:'LIST OF DRAFTS AND CHECKS NOT PRINTED',
119:'PAGE ',&PAGE,/,
1:130'-',/,
01:'TYPE',
08:'OPERATOR',
19:'CLAIM',
26:'DRAFT/CHECK',
39:'BANK',
50:'PAYEE NAME',
100:'AMOUNT',
112:'COMENTS',/,
1:130'-',/),
TRAILER1=(//,50:'--------- END OF REPORT ---------'),
TRAILER2=(//,05:'*** NOTE: THIS IS A PROOF LIST ',
'THAT WAS NOT PRINTED ON ',&DATE),
SECTIONS=(01,04,SKIP=P,
TRAILER3=(2/,95:14'-',/,
50:'TOTAL FOR TYPE ',01,04,
95:TOTAL=(50,10,ZD,EDIT=($I,III,IIT.TTS)),/,
95:14'-'),
05,03,SKIP=P,
TRAILER3=(95:14'-',/,
50:'TOTAL FOR OPERATOR ',05,03,
95:TOTAL=(50,10,ZD,EDIT=($I,III,IIT.TTS)),/,
95:14'-')),
INCLUDE=(100,01,CH,EQ,C'A')
OMIT COND=(01,01,CH,EQ,C'H')
END
/*
//
Return to the Sample Job Stream List