!JOB AMDRFEEC,MGR.CU1,DATA;OUTCLASS=LP,1 !PURGE DRFEETG1 !file DRFEETG2;DEV=DISC;DISC=600000;REC=-80,20,F,ASCII !comment Following replaced with Suprtool task.... !if 1=2 then !RUN PFASTTAG.PGMS.SPECTRUM;LIB=P B=MEMBRS *****pass******** 5 S=SHARE-FILE F ACC <> 92,94,98,99 O=LP REPORT NOPAGE D,ACCOUNT,13 D,SUFFIX,15 D,DESC-ABRV,20 D,ACC,26 D,ENTRY-DATE,34 D,PERIOD-LOW-BAL,44 D,LAST-CHG-DATE,52 D,BALANCE,62 D,REST-FLAG-11,66 D,REST-FLAG-12,70 END EXIT !EOD !RELEASE DRFEETG1 !PURGE DRFEETG2 !SORT INPUT DRFEETG1 OUTPUT DRFEETG2 KEY 1,13 KEY 14,2,DESC END !EOD !else !run Suprtool.pub.robelle base MEMBRS,5,****password***** get SHARE-FILE if ACC <> 92,94,98,99 define D-ACCOUNT,1,13,display define D-SUFFIX,1,2,display define D-DESC-ABRV,1,5,display define D-ACC,1,6,display define D-ENTRY-DATE,1,8,display define D-PERIOD-LOW-BAL,1,10,display define D-LAST-CHG-DATE,1,8,display define D-BALANCE,1,10,display define D-REST-FLAG-11,1,4,display define D-REST-FLAG-12,1,4,display sort ACCOUNT extract D-ACCOUNT = ACCOUNT extract D-SUFFIX = SUFFIX extract D-DESC-ABRV = DESC-ABRV extract D-ACC = ACC extract D-ENTRY-DATE = ENTRY-DATE extract D-PERIOD-LOW-BAL = PERIOD-LOW-BAL extract D-LAST-CHG-DATE = LAST-CHG-DATE extract D-BALANCE = BALANCE extract D-REST-FLAG-11 = REST-FLAG-11 extract D-REST-FLAG-12 = REST-FLAG-12 output DRFEETG2 exit !endif !PURGE DRFEETG1 !RENAME DRFEETG2,DRFEETG1 !COMMENT !COMMENT ** FLAG RECORDS WITH LOWBAL CARRIED FROM PREV MONTH !COMMENT !PURGE DRFEETGX !BUILD DRFEETGX;DEV=DISC;DISC=600000;REC=-80,20,F,ASCII !FILE DRFEETG1=DRFEETG1,OLD !FILE DRFEETGX=DRFEETGX,OLD !FILE RFILE=$NULL !REACTORB RCLOWFIX,,RCLOWFIZ,,,,,,1 $GS REPORT-RCLOWFIX EXIT ?($SCHEDDATE PIC YYYYMM01) !EOD !PURGE DRFEETG1 !RENAME DRFEETGX,DRFEETG1 !COMMENT START PASS # 2 !PURGE DRFEETG2 !BUILD DRFEETG2;DEV=DISC;DISC=200000;REC=-20,20,F,ASCII !FILE QSLIST=DRFEETG2,OLD;DEV=DISC;NOCCTL !comment Following replaced with Suprtool !if 1=2 then !RUN PFASTTAG.PGMS.SPECTRUM;LIB=P B=MEMBRS *****pass******** 5 S=MEMO-FILE F NUMBER = 3002,3004 O=LP REPORT NOPAGE D,ACCOUNT,13 D,SUFFIX,15 D,NUMBER,20 END EXIT !EOD !RELEASE DRFEETG2 !PURGE DRFEETG3 !SORT INPUT DRFEETG2 OUTPUT DRFEETG3 KEY 1,13 END !EOD !PURGE QSLIST !RENAME DRFEETG3,DRFEETG2 !else !run suprtool.pub.robelle base MEMBRS,5,***password**** get MEMO-FILE if NUMBER = 3002,3004 sort ACCOUNT define D-ACCOUNT,1,13,display define D-SUFFIX,1,2,display define D-NUMBER,1,5,display extract D-ACCOUNT = ACCOUNT extract D-SUFFIX = SUFFIX extract D-NUMBER = NUMBER output QSLIST exit !endif !COMMENT PASS # 3 !PURGE DRFEETG3 !BUILD DRFEETG3;DEV=DISC;DISC=600000;REC=-80,20,F,ASCII !FILE QSLIST=DRFEETG3,OLD;DEV=DISC;NOCCTL !comment The following replaced with Suprtool !if 1=2 then !RUN PFASTTAG.PGMS.SPECTRUM;LIB=P B=MEMBRS *****pass******** 5 S=RESPONSE-FILE F QUEST-CODE = "DFTORDER" O=LP REPORT NOPAGE D,ACCOUNT,13 D,SUFFIX,15 END EXIT !EOD !RELEASE DRFEETG3 !PURGE DRFEETG4 !SORT INPUT DRFEETG3 OUTPUT DRFEETG4 KEY 1,13 END !EOD !PURGE DRFEETG3 !RENAME DRFEETG4,DRFEETG3 !else !run suprtool.pub.robelle base MEMBRS,5,***password**** get RESPONSE-FILE if QUEST-CODE = "DFTORDER" sort ACCOUNT define D-ACCOUNT,1,13,display define D-SUFFIX,1,2,display extract D-ACCOUNT = ACCOUNT extract D-SUFFIX = SUFFIX output QSLIST exit !endif !COMMENT PASS # 4 !PURGE DRFEETG4 !BUILD DRFEETG4;DEV=DISC;DISC=1000000;REC=-80,20,F,ASCII !COMMENT !COMMENT RUN FIRST THROUGH CURRENT HISTORY DATA BASE !COMMENT !comment Following Replaced with Suprtool !if 1=2 then !RUN PFASTTAG.PGMS.SPECTRUM;LIB=P B=HISTRY *****pass******** S=SH-HISTORY F ENTRY-DATE IB ?($SCHEDDATE < 5 WEEKS PIC YYYYMMDD),& ?($SCHEDDATE PIC YYYYMMDD) & AND COMMAND = 69 AND AMOUNT-SH > 0 AND TRANSFER-SOR = 0 O=LP REPORT NOPAGE D,ACCOUNT,13 D,SUFFIX,15 D,AMOUNT-SH,30 D,EFFECTIVE-DATE,50 D,TRACE-NUM,70 END EXIT !EOD !else !run suprtool.pub.robelle base HISTRY,5,****pass***** get SH-HISTORY if ENTRY-DATE > ?($SCHEDDATE < 5 WEEKS PIC YYYYMMDD) & and ENTRY-DATE < ?($SCHEDDATE PIC YYYYMMDD) & and COMMAND = 69 and AMOUNT-SH > 0 and TRANSFER-SOR = 0 define D-ACCOUNT,1,13,display define D-SUFFIX,1,2,display define D-AMOUNT-SH,1,15,display define D-EFFECTIVE-DATE,1,20,display define D-TRACE-NUM,1,20,display extract D-ACCOUNT = ACCOUNT extract D-SUFFIX = SUFFIX extract D-AMOUNT-SH = AMOUNT-SH extract D-EFFECTIVE-DATE = EFFECTIVE-DATE extract D-TRACE-NUM = TRACE-NUM output DRFEETG4 set squeeze off exit !endif !COMMENT !COMMENT NOW LOOK THRU PREVIOUS HISTORY DATA BASE !COMMENT !comment Following replaced with Suprtool !if 1=2 then !PURGE DRFEETG5 !BUILD DRFEETG5;DEV=DISC;DISC=300000;REC=-80,20,F,ASCII !FILE QSLIST=DRFEETG5,OLD;DEV=DISC;NOCCTL;ACC=APPEND !RUN PFASTTAG.PGMS.SPECTRUM;LIB=P B=HISTRF.DATA *****pass******** 5 S=SH-HISTORY F ENTRY-DATE IB ?($SCHEDDATE < 5 WEEKS PIC YYYYMMDD),& ?($SCHEDDATE PIC YYYYMMDD) & AND COMMAND = 69 AND AMOUNT-SH > 0 AND TRANSFER-SOR = 0 AND & ACCOUNT NE 3547701 O=LP REPORT NOPAGE D,ACCOUNT,13 D,SUFFIX,15 D,AMOUNT-SH,30 D,EFFECTIVE-DATE,50 D,TRACE-NUM,70 END EXIT !PURGE DRFEETG6 !MERGE INPUT DRFEETG4,DRFEETG5 OUTPUT DRFEETG6 KEY 1,13 END !PURGE DRFEETG7 !SORT INPUT DRFEETG6 OUTPUT DRFEETG7 KEY 1,13 END !PURGE DRFEETG4 !PURGE DRFEETG5 !PURGE DRFEETG6 !RENAME DRFEETG7,DRFEETG4 !else !run suprtool.pub.robelle base HISTRF.DATA,5,****pass**** get SH-HISTORY if ENTRY-DATE > ?($SCHEDDATE < 5 WEEKS PIC YYYYMMDD),& and ENTRY-DATE < ?($SCHEDDATE PIC YYYYMMDD) & and COMMAND = 69 and AMOUNT-SH > 0 and TRANSFER-SOR = 0 & and ACCOUNT <> 3547701 define D-ACCOUNT,1,13,display define D-SUFFIX,1,2,display define D-AMOUNT-SH,1,15,display define D-EFFECTIVE-DATE,1,20,display define D-TRACE-NUM,1,20,display extract D-ACCOUNT = ACCOUNT extract D-SUFFIX = SUFFIX extract D-AMOUNT-SH = AMOUNT-SH extract D-EFFECTIVE-DATE = EFFECTIVE-DATE extract D-TRACE-NUM = TRACE-NUM output DRFEETG4,append xeq input DRFEETG4 key 1,13 output=input exit !endif !COMMENT START PASS # 5 !PURGE DRFEETG5 !BUILD DRFEETG5;DEV=DISC;DISC=100000;REC=-16,20,F,ASCII !FILE QSLIST=DRFEETG5,OLD;DEV=DISC;NOCCTL !comment The following replaced with Suprtool task !if 1=2 then !RUN PFASTTAG.PGMS.SPECTRUM;LIB=P B=MEMBRS *****pass******** 5 S=MEMBER-FILE F REST-FLAG-11 = 80,81,82 OR REST-FLAG-12 = 80,81,82 O=LP REPORT NOPAGE D,ACCOUNT,13 END EXIT !RELEASE DRFEETG5 !PURGE DRFEETG6 !SORT INPUT DRFEETG5 OUTPUT DRFEETG6 KEY 1,13 END !PURGE DRFEETG5 !RENAME DRFEETG6,DRFEETG5 !else !run suprtool.pub.robelle base MEMBRS,5,***password*** get MEMBER-FILE if REST-FLAG-11 = 80,81,82 or REST-FLAG-12 = 80,81,82 sort ACCOUNT define D-ACCOUNT,1,13,display extract D-ACCOUNT = ACCOUNT output QSLIST exit !endif !COMMENT **** YEAR 2000 COMPLIANT *** NO CENTURY ADDED TO PARMS !COMMENT !COMMENT THE PROGRAM WPTISDRF USES FOUR INPUT FILES: !COMMENT SHARETAG, PRDMEMOS, PRDHIST, DRTORDER. !COMMENT THESE FILES ARE DEFINED IN THE SOURCE CODE AS WELL !COMMENT AS IN THE PFASTTAG RUNS PRECEDING IN THIS JOB. !COMMENT THIS PROGRAM GENERATES 6 OUTPUT FILES: !COMMENT FOUR POSTING FILES (SUMMIT'S STANDARD PPOST FORMAT) !COMMENT WTDTAG, WVDTAG, WADTAG, WPDTAG !COMMENT A SUMMARY REPORT: FEERPT !COMMENT A INFORMATION ONLY TAG FILE: WAIVETAG !COMMENT THIS FINAL OUTPUT CONSISTS OF ALL ACCOUNTS NOT !COMMENT BEING FEED AND THE REASON WHY. THIS IS USED FOR !COMMENT TESTING AND VALIDATING FEE CALCULATIONS. !COMMENT !COMMENT CONTROL RECORDS: !COMMENT !COMMENT 1 999 (REPEAT UPTO 50 TIMES, TERMINATE WITH -1) a !COMMENT 2 999999999,999999999,AAAAAAAAAAAAAAAAAAAA b !COMMENT 3 999999999,999999999,AAAAAAAAAAAAAAAAAAAA c !COMMENT 4 999999999,999999999,AAAAAAAAAAAAAAAAAAAA d !COMMENT 5 999999999,999999999,AAAAAAAAAAAAAAAAAAAA e !COMMENT 6 999999999 f !COMMENT 7 999999999 g !COMMENT 8 99999999 (YYMMDD) h !COMMENT 9 99999999 (YYMMDD) i !COMMENT !COMMENT a GROUP NUMBERS OF RETIREMENT PAYROLL GROUPS !COMMENT b CONTROL ENTRY FOR WAD ACCOUNTS: !COMMENT Minimum Bal, Fee Amt, Fee Description !COMMENT c CONTROL ENTRY FOR WPD ACCOUNTS: !COMMENT Same as b !COMMENT d CONTROL ENTRY FOR WTD ACCOUNTS: !COMMENT Same as b !COMMENT e CONTROL ENTRY FOR WVD ACCOUNTS: !COMMENT Same as b !COMMENT f AGGREGATE MINIMUM BALANCE !COMMENT g PAYROLL MINIMUM BALANCE !COMMENT h BEGINNING OF MONTH DATE (YYMMDD) !COMMENT i END OF MONTH DATE (YYMMDD) !FILE SHARETAG=DRFEETG1,OLD;DEV=DISC;NOCCTL !FILE PRDMEMOS=DRFEETG2,OLD;DEV=DISC;NOCCTL !FILE PRDHIST=DRFEETG4,OLD;DEV=DISC;NOCCTL !FILE DRTORDER=DRFEETG3,OLD;DEV=DISC;NOCCTL !FILE CLOSEDMB=DRFEETG5,OLD;DEV=DISC;NOCCTL !PURGE POSTWTDF !BUILD POSTWTDF;DEV=DISC;DISC=200000;REC=-80,,F,ASCII;NOCCTL !FILE WTDTAG=POSTWTDF,OLD;DEV=DISC;NOCCTL !PURGE POSTWVDF !BUILD POSTWVDF;DEV=DISC;DISC=200000;REC=-80,,F,ASCII;NOCCTL !FILE WVDTAG=POSTWVDF,OLD;DEV=DISC;NOCCTL !PURGE POSTWADF !BUILD POSTWADF;DEV=DISC;DISC=200000;REC=-80,,F,ASCII;NOCCTL !FILE WADTAG=POSTWADF,OLD;DEV=DISC;NOCCTL !PURGE POSTWPDF !BUILD POSTWPDF;DEV=DISC;DISC=200000;REC=-80,,F,ASCII;NOCCTL !FILE WPDTAG=POSTWPDF,OLD;DEV=DISC;NOCCTL !FILE FEERPT=ISREPORT;DEV=LASER,1;CCTL !PURGE WAIVETAG !BUILD WAIVETAG;DEV=DISC;DISC=200000;REC=-80,,F,ASCII;NOCCTL !FILE WAIVETAG=WAIVETAG,OLD;DEV=DISC;NOCCTL !RUN WPTISDRF.PGMS.SPECTRUM;LIB=P 32 33 40 45 99 100 101 105 201 224 315 564 1502 2206 -1 50000,500,## AWPCWADFE 750000,1300,## AWPCWPDFE 100000,000,MONTHLY SERVICE FEE 50000,000,MONTHLY SERVICE FEE 500000 50000 ?($SCHEDDATE PIC YYMM01) ?($SCHEDDATE PIC YYMM?(EOMDAYS)) !COMMENT THIS PORTION OF THE JOB IS USED INITIALLY TO PRINT OUT !COMMENT DETAIL OF THE RESULTS OF THE JOB FOR INDEPENDENT VALIDATION !COMMENT OF THE RESULTS. THESE ARE NOT REPORTS THEY ARE DUMPS OF THE !COMMENT VARIOUS FILES CREATED. CARE SHOULD BE UTILIZED BY OPERATORS !COMMENT TO INSURE THESE DUMPS ARE KEPT TOGETHER. THIS PORTION OF !COMMENT THE JOB SHOULD BE USED ONLY IN THE INITIAL PHASES OF THIS !COMMENT PROCESS. IF PERMANENT DETAIL REPORTS ARE NEEDED, THE !COMMENT PROGRAM SHOULD BE MODIFIED AND THESE DUMPS DISCONTINUED. !FILE ISREPORT;DEV=LASER,1;CCTL !PRINT POSTWADF.DATA.CU1;OUT=*ISREPORT !PRINT POSTWPDF.DATA.CU1;OUT=*ISREPORT !PRINT POSTWVDF.DATA.CU1;OUT=*ISREPORT !PRINT POSTWTDF.DATA.CU1;OUT=*ISREPORT;END=50 !PRINT POSTWTDF.DATA.CU1;OUT=*ISREPORT;START=1000;END=1050 !PRINT POSTWTDF.DATA.CU1;OUT=*ISREPORT;START=5000;END=5050 !PRINT POSTWTDF.DATA.CU1;OUT=*ISREPORT;START=10000;END=10050 !PRINT POSTWTDF.DATA.CU1;OUT=*ISREPORT;START=20000;END=20050 !PRINT POSTWTDF.DATA.CU1;OUT=*ISREPORT;START=30000;END=30050 !PRINT WAIVETAG.DATA.CU1;OUT=*ISREPORT;END=50 !PRINT WAIVETAG.DATA.CU1;OUT=*ISREPORT;START=1000;END=1050 !PRINT WAIVETAG.DATA.CU1;OUT=*ISREPORT;START=5000;END=5050 !PRINT WAIVETAG.DATA.CU1;OUT=*ISREPORT;START=10000;END=10050 !PRINT WAIVETAG.DATA.CU1;OUT=*ISREPORT;START=20000;END=20050 !PRINT WAIVETAG.DATA.CU1;OUT=*ISREPORT;START=30000;END=30050 !COMMENT !TELLOP AMDRFEEC - END OF SERVICE FEE CALCULATIONS !COMMENT !COMMENT START EXCESSIVE DRAFT FEE CALCULATION EXCLUDING WPD/WCD !COMMENT !PURGE DRFTPST !FILE QSLIST=ISREPORT;DEV=LASER;CCTL !comment Following replaced with Suprtool !if 1-2 then !QUERY B=MEMBRS *****pass******** 1 AS LOCKOPTION=OFF S=SHARE-FILE F DESC-ABRV EQ "WVD","WAD" AND & MTD-DRAFT-WD GT 50 AND ACCOUNT NE 3243761,3547701 O=LP REPORT H1,"REPORT OF ACCOUNTS WITH MORE THAN 50 DRAFTS",80 H1,"?($SCHEDDATE PIC MM?(EOMDAYS)YYYY)",120,SPACE A2 H2,"ACCOUNT",15 H2,"SUFFIX",23 H2,"NUMBER OF DRAFTS WRITTEN",65,SPACE A3 D1,ACCOUNT,16 D1,"-",17 D1,SUFFIX,19 D1,MTD-DRAFT-WD,50 D1,"DRAFTS",58 S1,ACCOUNT END !FILE QSLIST=DRFTPST,NEW;DEV=DISC;DISC=90000;REC=-88,,F,ASCII;NOCCTL OUTPUT=LP REPORT NOPAGE D1," ",4 D1,ACCOUNT,13 D1,SUFFIX,15 R1,L,MTD-DRAFT-WD R1,S,"50" R1,M,"30" D1,R1,25,E1 E1,"-999999999" D1,"GS",27 D1,"SHFE## AWPCEXCFE",54 S1,ACCOUNT END EXIT !else !file suprlist=ISREPORT;DEV=LASER;CCTL !continue !purge SUPRWORK !run suprtool.pub.robelle base MEMBRS,5,****pass***** get SHARE-FILE if DESC-ABRV = "WVD","WAD" AND & MTD-DRAFT-WD > 50 AND ACCOUNT <> 3243761,3547701 sort ACCOUNT extract ACCOUNT, SUFFIX, MTD-DRAFT-WD output SUPRWORK,link xeq input SUPRWORK define D-ACCOUNT,1,15,display define D-SUFFIX,1,2,display define D-MTD-DRAFT-WD,1,30,display extract D-ACCOUNT = ACCOUNT extract "-" extract D-SUFFIX = SUFFIX extract D-MTD-DRAFT-WD = MTD-DRAFT-WD list standard title "REPORT OF ACCOUNTS WITH MORE THAN 50 DRAFTS" & heading & " ACCOUNT SUFFIX NUMBER OF DRAFTS WRITTEN" xeq input SUPRWORK extract " " extract D-ACCOUNT = ACCOUNT extract D-SUFFIX = SUFFIX extract D-MTD-DRAFT-WD = MTD-DRAFT-WD FILE QSLIST=DRFTPST,NEW;DEV=DISC;DISC=90000;REC=-88,,F,ASCII;NOCCTL output QSLIST !endif !COMMENT !PURGE WCDFTPST !FILE suprlist=ISREPORT;DEV=LASER;CCTL !if 1=2 then !QUERY B=MEMBRS *****pass******** AS LOCKOPTION=OFF S=SHARE-FILE F DESC-ABRV = "WCD" AND MTD-DRAFT-WD GT 20 O=LP REPORT H1,"WCD / REPORT OF ACCOUNTS WITH MORE THAN 20 DRAFTS",80 H1,"?($SCHEDDATE PIC MM?(EOMDAYS)YYYY)",120,SPACE A2 H2,"ACCOUNT",15 H2,"SUFFIX",23 H2,"NUMBER OF DRAFTS WRITTEN",65,SPACE A3 D1,ACCOUNT,16 D1,"-",17 D1,SUFFIX,19 D1,MTD-DRAFT-WD,50 D1,"DRAFTS",58 S1,ACCOUNT END !FILE QSLIST=WCDFTPST,NEW;DEV=DISC;DISC=90000;REC=-88,,F,ASCII;NOCCTL OUTPUT=LP REPORT NOPAGE D1," ",4 D1,ACCOUNT,13 D1,SUFFIX,15 R1,L,MTD-DRAFT-WD R1,S,"20" R1,M,"30" D1,R1,25,E1 E1,"-999999999" D1,"GS",27 D1,"SHFE## AWPCEXWCD",54 S1,ACCOUNT END EXIT !else !continue !purge SUPRWORK !run suprtool.pub.robelle base MEMBRS,5,****pass***** get SHARE-FILE if DESC-ABRV = "WCD" and MTD-DRAFT-WD > 20 sort ACCOUNT extract ACCOUNT, SUFFIX, MTD-DRAFT-WD output SUPRWORK,link xeq input SUPRWORK define D-ACCOUNT,1,15,display define D-SUFFIX,1,2,display define D-MTD-DRAFT-WD,1,30,display extract D-ACCOUNT = ACCOUNT extract "-" extract D-SUFFIX = SUFFIX extract D-MTD-DRAFT-WD = MTD-DRAFT-WD list standard title "REPORT OF ACCOUNTS WITH MORE THAN 20 DRAFTS" & heading & " ACCOUNT SUFFIX NUMBER OF DRAFTS WRITTEN" xeq input SUPRWORK extract " " extract D-ACCOUNT = ACCOUNT extract D-SUFFIX = SUFFIX extract D-MTD-DRAFT-WD = MTD-DRAFT-WD FILE QSLIST=WCDFTPST,NEW;DEV=DISC;DISC=90000;REC=-88,,F,ASCII;NOCCTL output QSLIST exit !endif !COMMENT !COMMENT !COMMENT !PURGE ECAFTPST !FILE suprlist=ISREPORT;DEV=LASER;CCTL !if 1=2 then !QUERY B=MEMBRS *****pass******** 1 AS LOCKOPTION=OFF S=SHARE-FILE F DESC-ABRV = "ECA" AND MTD-DRAFT-WD GT 0 O=LP REPORT H1,"ECA / REPORT OF ACCOUNTS WITH DRAFT ACTIVITY ",80 H1,"?($SCHEDDATE PIC MM?(EOMDAYS)YYYY)",120,SPACE A2 H2,"ACCOUNT",15 H2,"SUFFIX",23 H2,"NUMBER OF DRAFTS WRITTEN",65,SPACE A3 D1,ACCOUNT,16 D1,"-",17 D1,SUFFIX,19 D1,MTD-DRAFT-WD,50 D1,"DRAFTS",58 S1,ACCOUNT END !FILE QSLIST=ECAFTPST,NEW;DEV=DISC;DISC=90000;REC=-88,,F,ASCII;NOCCTL OUTPUT=LP REPORT NOPAGE D1," ",4 D1,ACCOUNT,13 D1,SUFFIX,15 R1,L,MTD-DRAFT-WD R1,S,"00" R1,M,"30" D1,R1,25,E1 E1,"-999999999" D1,"GS",27 D1,"SHFE## AWPCEXECA",54 S1,ACCOUNT END EXIT !else !continue !purge SUPRWORK !run suprtool.pub.robelle base MEMBRS,5,****pass***** get SHARE-FILE if DESC-ABRV = "ECA" and MTD-DRAFT-WD > 0 sort ACCOUNT extract ACCOUNT, SUFFIX, MTD-DRAFT-WD output SUPRWORK,link xeq input SUPRWORK define D-ACCOUNT,1,15,display define D-SUFFIX,1,2,display define D-MTD-DRAFT-WD,1,30,display extract D-ACCOUNT = ACCOUNT extract "-" extract D-SUFFIX = SUFFIX extract D-MTD-DRAFT-WD = MTD-DRAFT-WD list standard title "ECA / REPORT OF ACCOUNTS WITH DRAFT ACTIVITY" & heading & " ACCOUNT SUFFIX NUMBER OF DRAFTS WRITTEN" xeq input SUPRWORK extract " " extract D-ACCOUNT = ACCOUNT extract D-SUFFIX = SUFFIX extract D-MTD-DRAFT-WD = MTD-DRAFT-WD FILE QSLIST=ECAFTPST,NEW;DEV=DISC;DISC=90000;REC=-88,,F,ASCII;NOCCTL output QSLIST exit !endif !TELLOP AMDRFEEC - END OF EXCESSIVE DRAFT FEE CALCULATIONS !TELLOP  !TELLOP AMDRFEEC - END OF JOB !COMMENT !COMMENT MODIFIED BY/DATE REASON !COMMENT !COMMENT RAB 03/17/93 EXCLUDED ACCOUNT 3243761 PER DPR 3362 !COMMENT RAB 12/27/93 EXCLUDED ACCOUNT 2669544 PER DPR 4845 !COMMENT RAB 11/29/94 REMOVED ACCOUNT 2669544 FROM EXCLUSION PER JAT !COMMENT RAB 12/12/94 CHANGED FOR TIS !COMMENT RAB 01/31/95 ADDED NEW FEE CALC FOR MONTHLY SERVICE FEES !COMMENT RAB 04/27/95 ADDED WCD EXCESSIVE DRAFT FEE CALCULATION !COMMENT RAB 05/01/95 CHANGED DESCRIPTION FOR WCD EXC DR FEE !COMMENT RAB 07/27/95 CHNGD WTD/WVD SERVICE FEE TO 0 PER DPR 6510 !COMMENT RAB 08/15/95 CHNGD POSTING DESC FOR WAD/WPD PER DPR 6512 !COMMENT RAB 11/26/96 EXCLUDED ACCOUNT 3547701 PER JAT !COMMENT RAB 06/27/97 NEW FOR MAESTRO !COMMENT WJW 03/31/98 Exclude acc codes 95,98,96 from input file. Also !COMMENT added additional run to generate report and posting tagfile !COMMENT for ECA checking accounts. !COMMENT SFN 7/29/98 STEP 2 WITH RCLOWFIX IS ADDED TO CAPTURE !COMMENT ACCTS WITH PREV.MONTH LOWBAL CARRIED OVER TO THIS MONTH !COMMENT BUT COVERED BY DEPOSIT ON THE FIRST DAY OF THIS MONTH. !COMMENT !COMMENT !EOJ