!JOB AURDVCU1,MGR.CU1,DATA;PRI=CS;OUTCLASS=LP,1 !COMMENT !COMMENT 033100 SAK ADDED NSV TO LIST OF DESC-ABRV !COMMENT 032900 SLI MODIFIED TO STOP ARCHIVE TO 9000 !COMMENT REMOVED XEQ LINES...RURD1?(DAY1)..3,O,?($?(MONTHEND) PIC MMDDYYYY) !COMMENT 022600 WPC ADDED FTP TO NAUTILUS ROUTINE !COMMENT 080499 LPT ADDED PIC STMT TO MONTHEND PARM !COMMENT 052799 SAK ADDED ROUTINE TO BOTTOM OF JOB TO SPLIT !COMMENT OUT IRA TRANSACTIONS FROM THE DDIVCHKO TAGFILE !COMMENT INTO DDIVIRA AND DDIVSHRO FILES FOR POSTING !COMMENT 033199 SUM SREIS ADD PURGE OF NEW FILE DDIVCHKO !COMMENT 032899 SUM SREIS ADD LISTF OF DDIV@ TO DISPLAY TAG FILES !COMMENT 032699 SUM SREIS UPDATE OPEN MODE AND PASS FOR QUERY !COMMENT 031099 RW UPDATE REMOVED PRI=BS !COMMENT 022699 SUM SREIS ADD ROUTINE TO CHECK FOR EXCEPTIONS !COMMENT 101098 RLW SETUP !COMMENT !COMMENT ____________________________________________________________ !COMMENT CALCULATE MONTHEND DIVIDENDS FOR REGULAR SHARE ACCOUNTS !COMMENT ____________________________________________________________ !COMMENT !COMMENT !COMMENT ... GENERATE TAG FILE FOR REGULAR SHARE ACCOUNTS... !COMMENT !COMMENT SAVINGS AND CERTIFICATE DIVIDENDS PAY ON CALENDAR MONTHEND... !COMMENT STATEMENT IS CYCLED ON LAST BUSINESS DAY OF THE CYCLE !COMMENT CHECKING AND MONEY MARKET DIVIDENDS ARE CYCLED... !COMMENT (9 CYCLES: 5TH,8TH,11TH,14TH,17TH,20TH,23RD,25TH,EOM) !COMMENT !COMMENT CYCLED DIVIDENDS (CHECKING AND MONEY MARKET ONLY) !COMMENT RCK REGULAR CHECKING !COMMENT SSF SSFCU CHECKING !COMMENT SCK SENIOR CHECKING !COMMENT MMA MONEY MARKET !COMMENT !COMMENT MONTHEND ONLY (SHARE SAVINGS) !COMMENT RSV REGULAR SAVINGS !COMMENT SSV SPECIAL SAVINGS !COMMENT CSP COLLEGE SAVINGS !COMMENT !COMMENT !PURGE TERDVCU1 !FILE QSLIST=TERDVCU1,NEW;DEV=DISC;REC=8,,F,ASCII;DISC=990000,32& ! ;NOCCTL !if 1=2 then ! comment query replaced with Suprtool (below) !RUN QUERY.PUB.SYS B=MEMBRS LOOKUP 5 S=SHARE-FILE ASSIGN LOCKOPTION=OFF OUTPUT=LP F ACCOUNT LT 999999000 AND REST-FLAG-11 LT 80 AND & REST-FLAG-12 LT 80 AND & DESC-ABRV="RSV","SSV","CSP","EST","GRD","REP","TST","UTM", & "NSV","IRA","IRO","IED","SEP","DCP","MTC" REPORT NOPAGE D1,"DIVD",4 D1,ACCOUNT,13 D1,SUFFIX,15 S,SUFFIX S,ACCOUNT END EXIT !endif !run suprtool.pub.robelle base membrs,5,LOOKUP get share-file if ACCOUNT < 999999000 and REST-FLAG-11 < 80 and & REST-FLAG-12 < 80 and & DESC-ABRV="RSV","SSV","CSP","EST","GRD","REP","TST","UTM", & "NSV","IRA","IRO","IED","SEP","DCP","MTC" sort suffix sort account define fld1,1,9,display define fld2,1,2,display sort suffix sort account extract "DIVD" extract fld1 = account extract fld2 = suffix output qslist exit !RELEASE TERDVCU1 !COMMENT !SHOWTIME !COMMENT !COMMENT ... CALCULATE DIVIDENDS ... !COMMENT !PURGE DDIVTAG !PURGE DDIVTAGS !PURGE DDIVTFRO !PURGE DDIVCHKO !PURGE RURD1?(DAY1).?(DAY1) !PURGE RURD2?(DAY1).?(DAY1) !PURGE RURD3?(DAY1).?(DAY1) !BUILD RURD1?(DAY1).?(DAY1);REC=-132,105,F,ASCII;CCTL;DISC=2000000 !BUILD RURD2?(DAY1).?(DAY1);REC=-132,105,F,ASCII;CCTL;DISC=2000000 !BUILD RURD3?(DAY1).?(DAY1);REC=-132,105,F,ASCII;CCTL;DISC=2000000 !FILE FTN10=RURD1?(DAY1).?(DAY1),OLD !FILE FTN11=RURD2?(DAY1).?(DAY1),OLD !FILE FTN12=RURD3?(DAY1).?(DAY1),OLD !FILE FTN18=HISTORY,OLD;MSG;SEMI;ACC=APPEND;GMULTI !FILE FTN20=TERDVCU1,OLD !SETJCW GETMR=0 !SETJCW LIMIT=0 !SETJCW OPENDB=0 !SETJCW OPENHSDB=0 !SETJCW EFFDATEOVEREOM=1 !SETJCW EFFDATEOVERRIDE=1 !SETJCW OPENMEMBRS=1 !SETJCW OPENHISTRY=0 !SETJCW SUPPRESS=0 !SETJCW TAGFILE=1 !SETJCW IGNORECERTS=1 !SETJCW ADDHISTREC=0 !SETDUMP !RUN PDIV.PGMS.SPECTRUM;LIB=P;MAXDATA=31232;NOCB SHARE TAG Y Y INCLUDE END INCLUDE END ?($?(MONTHEND) PIC MMDDYY) ?($?(MONTHEND) PIC MMDDYY) PRINT SHARE-DIVS D NONE NONE END !COMMENT !COMMENT SPLIT OUT IRA TRANSACTIONS FROM THE DDIVCHKO TAGFILE !COMMENT !PURGE DDIVIRAO !PURGE DDIVSHRO !QUAD T DDIVCHKO:U D E :I:(34) K DDIVIRAO:U Y T DDIVCHKO:U D I :I:(34) K DDIVSHRO:U Y E !EOD !COMMENT !LISTF DDIV@,2 !COMMENT !COMMENT 10101998 RW RE-NAME TODAY'S REPORTS !COMMENT !COMMENT ... ARCHIVE IMMEDIATELY ... !COMMENT !SETVAR MENDRFILE "N" !COMMENT !COMMENT !COMMENT !COMMENT FTP REPORT(S) TO NAUTILUS !COMMENT !RUN FTP.ARPA.SYS OPEN 172.16.99.2 USER SSFCU/NAUTILUS NAUTILUS CD MONTHLY PUT RURD1?(DAY1).?(DAY1) RURD1CU1.?($SCHEDDATE PIC MMDDYYYY) PUT RURD2?(DAY1).?(DAY1) RURD2CU1.?($SCHEDDATE PIC MMDDYYYY) PUT RURD3?(DAY1).?(DAY1) RURD3CU1.?($SCHEDDATE PIC MMDDYYYY) LS RURD1CU1.?($SCHEDDATE PIC MMDDYYYY) LS RURD2CU1.?($SCHEDDATE PIC MMDDYYYY) LS RURD3CU1.?($SCHEDDATE PIC MMDDYYYY) EXIT !COMMENT !COMMENT !COMMENT ... CHECK FOR INVALID EXCEPTIONS ... !COMMENT !RUN QUAD.UTIL.SYS T RURD1?(DAY1).?(DAY1) D A E'RECALCU' K TERECCU1:U Y T RURD1?(DAY1).?(DAY1) D A E'NEGATIV' K TENEGCU1:U Y E !EOD !IF FINFO("TERECCU1",19) <> 0 OR FINFO("TENEGCU1",19) <> 0 THEN ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR !EOD !ENDIF ! !EOJ