H*CTO, MON03 GROUP BEING COMPILED.HH*FTNH t FTN 3.3B (OPT = LPC) CMPACC PAGE 1 DATE: 08/30/84 TIME: 0031 t^ 1 PROGRAM CMPACC 00001^^ 1 1 / TREND-COMPRESS ACCAGE OR CLEAR SL-XXX 00002^ ^ C** CYBERCREDIT FINANCIAL SERVICES. 00004^^ C** CYBERCREDIT FIELD SUPPORT GROUPS 00005^^ C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00006^^ C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983 00007^^ C** 00008^^ C** ************ 09/20/83 ************ PROGRAMMER : RWE 00009^  ^ C*** CMPACC - CHECKS THE UTIFIL FOR THE 'TRND' KEY IF IT IS NOT 00012^^ C FOUND, IT ASSUMES THAT TREND IS BEING RUN. 00013^^ C ** IF IT IS FOUND AND THE RECORD EQUALS 'NO ' THEN 00014^^ C IT CLEARS ACCAGE & RSWFIL FILES, OTHERWISE IT ASSUMES 00015^^ C TREND ANALYSIS IS BEING RUN. 00016^^ C ** WHEN TREND IS BEING RUN CMPACC READS ACCAGE AND DELETES 00017^^ C ANY RECORDS WITH 'RSW' IN POSITION 35. CMPACC ALSO 00018^^ C CHECKS FOR DELETED RECORDS WHILE READING ACCAGE. 00019^^ C ** IF ANY RECORDS WERE DELETED OR ANY DELETED RECORDS 00020^^ C WERE FOUND DURING THE READ IT THEN COMPRESS'S ACCAGE. 00021^  ^ 2 EXTERNAL FMRDEL 00023^ ^ 3 INTEGER UDATA(15),UREQ(24),UREC(45),UKEY(15) 00025^^ 4 INTEGER ADATA(15),AREQ(24),NO(2),TRNDKY(2),CMPRS(14) 00026^^ 5 INTEGER RDATA(15),RREQ(24),RSW(2),DELETE,FIRST 00027^^ 6 INTEGER FMRDEL,FDEL,ID(4),LA(4) 00028^ ^ 7 DATA UDATA/'LAUTIFIL ',1,1,0/,UREQ/24*0/ 00030^^ 8 DATA ADATA/'LAACCAGE ',1,1,1/,AREQ/24*0/ 00031^^ 9 DATA RDATA/'LARSWFIL ',0,1,0/,RREQ/24*0/ 00032^^ 10 DATA NO/'NO '/,TRNDKY/'TRND'/,RSW/'RSW '/,LA/'LA '/ 00033^^ 11 DATA CMPRS/$D0A,$1716,'COMPRESSING ACCAGE FILE '/ 00034^^ 12 DATA UKEY/15*0/,FIRST/0/ 00035^  ^ C**** BEGIN ************************************** 00037^ ^ 13 ASSEM $C000,FMRDEL,$6800,FDEL 00039^ ^ 14 CALL PGMIN(ID,LU,MO,NP) 00041^ ^ C*** IF USERID NOT LA CHANGE TO CCS FILES ! 00043^^ 15 CALL CCSCST(ID,1,8,LA,1,8,ICM) 00044^^ 16 IF (ICM.EQ.0) GO TO 100 00045^^ 17 CALL CCSMVA(UDATA,3,6,UDATA,1,8) 00046^^ 18 CALL CCSMVA(ADATA,3,6,ADATA,1,8) 00047^^ 19 CALL CCSMVA(RDATA,3,6,RDATA,1,8) 00048^ ^ 20 100 CALL OPENFL(UREQ,UDATA,ISTAT) 00050^^ 21 IF (ISTAT.GE.0)GO TO 120 00051^^ 22 CALL FILERR(UDATA,3,ISTAT,LU) 00052^t FTN 3.3B (OPT = LPC) CMPACC PAGE 2 DATE: 08/30/84 TIME: 0031 t^ 23 GO TO 920 00053^^ 24 120 CONTINUE 00054^^ 25 CALL READR(UREQ,UREC,TRNDKY,ISTAT) 00055^^ 26 CALL CLOSFL(UREQ,ISTA1) 00056^^ 27 IF(AND(ISTAT,$200).EQ.$200.OR.AND(ISTAT,$100).EQ.$100)GO TO 300 00057^^ 28 IF(ISTAT.GE.0) GO TO 140 00058^^ 29 CALL FILERR(UDATA,13,ISTAT,LU) 00059^^ 30 GO TO 920 00060^^ 31 140 CALL CCSCST(UREC,5,3,NO,1,3,ICM) 00061^^ 32 IF (ICM.NE.0) GO TO 300 00062^ ^ C******* TREND ANALYSIS IS NOT BEING RUN CLEAR - ACCAGE & RSWFIL. 00064^ ^ 33 CALL CLEAR(AREQ,ADATA,ISTAT) 00066^^ 34 IF(ISTAT.GE.0) GO TO 160 00067^^ 35 CALL FILERR(ADATA,1,ISTAT,LU) 00068^^ 36 GO TO 920 00069^^ 37 160 CALL CLEAR(RREQ,RDATA,ISTAT) 00070^^ 38 IF (ISTAT.GE.0) GO TO 180 00071^^ 39 CALL FILERR(RDATA,1,ISTAT,LU) 00072^^ 40 GO TO 920 00073^ ^ 41 180 CONTINUE 00075^^ 42 DO 185 I = 1,24 00076^^ 43 185 AREQ(I) = 0 00077^^ 44 ADATA(13) = 1 00078^^ 45 CALL OPENFL(AREQ,ADATA,ISTAT) 00079^^ 46 IF (ISTAT.GE.0) GO TO 190 00080^^ 47 CALL FILERR(ADATA,3,ISTAT,LU) 00081^^ 48 GO TO 900 00082^ ^ 49 190 CALL CCSBLK(UREC,82) 00084^^ 50 CALL WRITER(AREQ,UREC,UREC,ISTAT) 00085^^ 51 IF (ISTAT.GE.0) GO TO 900 00086^^ 52 CALL FILERR(ADATA,11,ISTAT,LU) 00087^^ 53 GO TO 900 00088^t FTN 3.3B (OPT = LPC) CMPACC PAGE 3 DATE: 08/30/84 TIME: 0031 t ^ C*** READ ACCAGE CHECKING FOR 'RSW' OR DELETED RECORDS 00091^ ^ 54 300 CONTINUE 00093^^ 55 CALL WTREAD(LU,-1,CMPRS,28,0,0,0,ITC) 00094^ ^ 56 310 CALL OPENFL(AREQ,ADATA,ISTAT) 00096^^ 57 IF (ISTAT.GE.0) GO TO 320 00097^^ 58 CALL FILERR(ADATA,3,ISTAT,LU) 00098^^ 59 GO TO 900 00099^^ 60 320 CALL GETS(AREQ,UREC,UKEY,ISTAT) 00100^^ 61 IF(AND(ISTAT,$100).EQ.$100) GO TO 500 00101^^ 62 IF(ISTAT.GE.0) GO TO 340 00102^^ 63 CALL FILERR(ADATA,14,ISTAT,LU) 00103^^ 64 GO TO 900 00104^^ 65 340 CONTINUE 00105^^ 66 IF (FIRST.EQ.1) GO TO 350 00106^^ 67 FIRST = 1 00107^^ 68 CALL CCSCST(UREC,50,3,RSW,1,3,ICM) 00108^^ 69 IF (ICM.EQ.0) GO TO 350 00109^^ 70 DELETE = 1 00110^^ 71 GO TO 500 00111^^ 72 350 CONTINUE 00112^^ 73 IF(UREC(1).EQ.FDEL) DELETE = 1 00113^^ 74 IF(UREC(1).EQ.FDEL) GO TO 320 00114^^ 75 CALL CCSCST(UREC,35,3,RSW,1,3,ICM) 00115^^ 76 IF(ICM.NE.0) GO TO 320 00116^^ 77 360 CONTINUE 00117^^ 78 CALL DELREC(AREQ,UREC,ISTAT) 00118^^ 79 IF(ISTAT.GE.0) GO TO 370 00119^^ 80 CALL FILERR(ADATA,16,ISTAT,LU) 00120^^ 81 GO TO 900 00121^^ 82 370 DELETE = 1 00122^^ 83 GO TO 320 00123^t FTN 3.3B (OPT = LPC) CMPACC PAGE 4 DATE: 08/30/84 TIME: 0031 t ^ C****** COMPRESS ACCAGE IF ANY DELETES 00126^ ^ 84 500 CONTINUE 00128^^ 85 CALL CLOSFL(AREQ,ISTAT) 00129^^ 86 IF(ISTAT.GE.0) GO TO 520 00130^ ^ 87 GO TO 900 00132^ ^ 88 520 CONTINUE 00134^^ 89 IF (DELETE.NE.1) GO TO 920 00135^ ^ 90 ADATA(13) = -1 00137^^ 91 ADATA(15) = 0 00138^ ^ 92 DO 530 I = 1,24 00140^^ 93 530 AREQ(I) = 0 00141^^ 94 CALL OPENFL(AREQ,ADATA,ISTAT) 00142^^ 95 IF (ISTAT.GE.0) GO TO 540 00143^^ 96 CALL FILERR(ADATA,3,ISTAT,LU) 00144^^ 97 GO TO 900 00145^ ^ 98 540 CALL COMFIL(AREQ,UREC,ISTAT) 00147^^ 99 IF(AND(ISTAT,$100).EQ.$100) GO TO 900 00148^^ 100 IF(ISTAT.GE.0) GO TO 540 00149^^ 101 CALL FILERR(ADATA,17,ISTAT,LU) 00150^^ 102 GO TO 900 00151^  ^ 103 900 CALL CLOSFL(AREQ,ISTAT) 00153^^ 104 920 CALL PGMOUT 00154^^ 105 END 00155^t FTN 3.3B (OPT = LPC) CMPACC PAGE 5 DATE: 08/30/84 TIME: 0031 t  PROGRAM LENGTH $025E ( 606)   EXTERNALS 2 Q8STP FMRDEL PGMIN CCSCST CCSMVA OPENFL FILERR 22 READR CLOSFL CLEAR CCSBLK WRITER WTREAD GETS 2 DELREC COMFIL PGMOUT  t FTN 3.3B (OPT = LPC) CMPACC PAGE 6 DATE: 08/30/84 TIME: 0031 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < $ FFFE (-1) 00E4 55,90$d 0000 (0) 0003 7,8,9,12,16,21,28,32,34,38,43,46,51,55,57,62,69,76,79,86,91,93,95,100dd 0001 (1) 0002 7,8,9,15,17,18,19,31,35,39,42,44,55,66,67,68,70,73,74,75,82,89,90,92 d< 0003 (3) 00D9 17,18,19,22,31,47,58,68,75,96<" 0005 (5) 00E0 31 "( 0006 (6) 00DA 17,18,19 (. 0008 (8) 00D7 15,15,17,18,19 ." 000B (11) 00E3 52 "( 000D (13) 00DF 29,44,90 (" 000E (14) 00E7 63 "" 0010 (16) 00EA 80 "" 0011 (17) 00EB 101"" 001C (28) 00E5 55 "" 0023 (35) 00E9 75 "" 0032 (50) 00E8 68 "" 0052 (82) 00E2 49 "* 0100 (256) 00DE 27,27,61,99*$ 0200 (512) 00DD 27,27$   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < T ADATA INTEGER 0067 1,8,18,33,35,44,45,47,52,56,58,63,80,90,91,94,96,101 T* AND INTR.FN. 7FFF 27,27,61,99*H AREQ INTEGER 0076 1,8,33,43,45,50,56,60,78,85,93,94,98,103 H& CMPRS INTEGER 0092 1,11,55&, DELETE INTEGER 00C9 1,70,73,82,89,* FDEL INTEGER 00CB 6,13,73,74 ** FIRST INTEGER 00CA 1,12,66,67 ** I INTEGER 00E1 41,43,92,93*6 ICM INTEGER 00D8 15,16,31,32,68,69,75,766& ID INTEGER 00CC 6,14,15&" ISTA1 INTEGER 00DC 26 " ISTAT INTEGER 00DB 20,21,22,25,27,28,29,33,34,35,37,38,39,45,46,47,50,51,52,56,57,58,60,61,62,63,78,79,80,85,86,94,95 4 ,96,98,99,100,101,1034" ITC INTEGER 00E6 55 "& LA INTEGER 00D0 6,10,15&F LU INTEGER 00D4 14,22,29,35,39,47,52,55,58,63,80,96,101F" MO INTEGER 00D5 14 "& NO INTEGER 008E 1,10,31&" NP INTEGER 00D6 14 ", RDATA INTEGER 00A0 1,9,19,37,39 ,& RREQ INTEGER 00AF 1,9,37 &t FTN 3.3B (OPT = LPC) CMPACC PAGE 7 DATE: 08/30/84 TIME: 0031 t* RSW INTEGER 00C7 1,10,68,75 *& TRNDKY INTEGER 0090 1,10,25&. UDATA INTEGER 0004 1,7,17,20,22,29.& UKEY INTEGER 0058 1,12,60&B UREC INTEGER 002B 1,25,31,49,50,60,68,73,74,75,78,98 B, UREQ INTEGER 0013 1,7,20,25,26 ,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSBLK SUBROUTINE 018F 49 "* CCSCST SUBROUTINE 01DC 14,31,68,75*( CCSMVA SUBROUTINE 0104 16,18,19 ($ CLEAR SUBROUTINE 0154 32,37$( CLOSFL SUBROUTINE 0218 25,85,103(" COMFIL SUBROUTINE 0244 98 "" DELREC SUBROUTINE 0206 76 "@ FILERR SUBROUTINE 023D 21,29,35,39,47,52,58,63,80,96,101@" GETS SUBROUTINE 01BF 60 "* OPENFL SUBROUTINE 0235 20,45,56,94*" PGMIN SUBROUTINE 00F1 13 "" PGMOUT SUBROUTINE 025B 104" Q8STP INTEGER.FN. 025D " READR SUBROUTINE 012A 24 "" WRITER SUBROUTINE 0193 49 "" WTREAD SUBROUTINE 01A6 54 "   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 100 0119 16,20$$ 120 0129 21,24$$ 140 0147 28,31$$ 160 0163 34,37$$ 180 0171 38,41$$ 185 0174 41,43$$ 190 018E 46,49$( 300 01A5 27,32,54 (" 310 01AF 55 ". 320 01BE 57,60,74,76,83 .$ 340 01D4 62,65$( 350 01EC 66,69,72 (" 360 0205 76 "$ 370 0214 79,82$( 500 0217 61,71,84 ($ 520 021F 86,88$$ 530 022C 91,93$( 540 0243 95,98,100(t FTN 3.3B (OPT = LPC) CMPACC PAGE 8 DATE: 08/30/84 TIME: 0031 tB 900 0257 47,51,53,59,64,81,87,97,99,102,103 B2 920 025A 22,30,36,40,89,104 2 CMPACC 0000 1 t FTN 3.3B (OPT = LPC) COLSTS PAGE 1 DATE: 08/30/84 TIME: 0031 t^ 1 PROGRAM COLSTS 00001^^ 1 1 /CCS3.0 COLLECTOR STATISTICS REPORT SL-XXX 00002^ ^ C** CYBERCREDIT FINANCIAL SERVICES. 00004^^ C** CYBERCREDIT FIELD SUPPORT GROUPS 00005^^ C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00006^^ C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00007^^ C** 00008^^ C** ************ 04/30/84 ************ PROGRAMMER : RWE 00009^ ^ C**** PROGRAM DESCRIPTION : 00011^ ^ C THE COLLECTOR STATISTICS REPORT PROCESSOR PRINTS A REPORT OF THE 00013^^ C ACTIONS & RESULTS CODE ACTIVITY ON A DAILY, WEEKLY OR MONTHLY 00014^^ C BASIS. IT MAY ALSO ZERO OUT THE DAILY OR WEEKLY ACTIVITY 00015^^ C COUNTS AS REQUESTED VIA THE RPG SWITCH. IT USES THE FILE 'UTIFIL' 00016^^ C TO ACQUIRE THE ACTION AND RESULT CODES AND THE COLLECTOR NAMES 00017^^ C AND INITIALS. IT PROCESSES THE FILE 'COLSTATS' WHICH HAS BEEN 00018^^ C PREVIOUSLY GENERATED OR UPDATED BY THE TIME USAGE PROCESSOR. 00019^ ^ C THE RPG SWITCH IS USED TO DETERMINE WHICH PROCESSING IS TO BE 00021^^ C DONE AS FOLLOWS: 00022^^ C - DAILY COLLECTOR STATISTICS REPORT (U1 ON) 00023^^ C - WEEKLY COLLECTOR STATISTICS REPORT (U2 ON) 00024^^ C - MONTHLY COLLECTOR STATISTICS REPORT (U3 ON) 00025^^ C - ZERO THE DAILY COUNTS (U4 ON) 00026^^ C - ZERO THE WEEKLY COUNTS (U5 ON) 00027^^ C ( NOTE - THE MONTHLY COUNTS ARE ZEROED BY CLEARING THE 'COLSTATS' 00028^^ C FILE IN THE PROCEDURE STREAM) 00029^ ^ C THE REPORTS PRINT THE COLLECTOR STATISTICS FROM THE VARIOUS 00031^^ C ACTION AND RESULTS CODES COUNT. THERE IS MAXIMUM 32 CODES EACH. 00032^^ C ONLY 16 CODES ARE PRINTED ON A LISTING PAGE. THUS IF THE SYSTEM H 00033^^ C MORE THAN 16 CODES DEFINED, THE REPORT PAGE CONSISTS OF TWO LISTIN 00034^^ C PAGES. COLLECTOR TOTALS ARE PRINTED ONLY ON THE SECOND PAGE IN TH 00035^^ C CASE. THE TWO PAGES ARE NUMBERED A & B. 00036^^ C ACCURACY IS AS FOLLOWS: 00037^^ C TOTAL EACH CODE - 4 DIGITS 00038^^ C COLLECTOR TOTALS- 6 DIGITS 00039^^ C CODE TOTALS - 6 DIGITS 00040^^ C GRAND TOTAL - 6 DIGITS 00041^ ^ 2 INTEGER BYPASS,CNTNDX,CODE,CODEX,CODSUM(32),CODSUL(32) 00043^^ 2 +, COLSUM(128),COLSUL(128),COLID(2),COUNT(128,32) 00044^^ 2 +, INAME(9,128),ZEROS(2) 00045^ ^ 3 INTEGER DAILY(3),MONTHY(4),WEEKLY(3),ACTC(2),RESC(2) 00047^^ 3 +, EORMSG(11),GOTHDR,GRANDM,GRANDL,TOTL(3),IASCII(3) 00048^^ 3 +, ICNT(4),IVAL,IVAL2,JCNT,KEYCOL(4),NOCODE 00049^^ 3 +, PAGE,PAGEAB,PRT,RECUTI(40),RESULT(4) 00050^^ 3 +, OCOLID(2),UTKEY(2),UTCODB(40),UTCODE(32) 00051^ ^ 4 EQUIVALENCE ( UTCODE,UTCODB(3) ) 00053^ t FTN 3.3B (OPT = LPC) COLSTS PAGE 2 DATE: 08/30/84 TIME: 0031 t^ 5 DATA DAILY/'DAILY '/,MONTHY/'MONTHLY '/,WEEKLY/'WEEKLY'/ 00055^^ 5 +, TOTL/'TOTALS'/,RESULT/'RESULTS '/ 00056^^ 5 +, ACTC/'ACTC'/,RESC/'RESC'/ 00057^^ 5 +, BYPASS/0/,KEYCOL/4*0/,NOCODE/32/,ZEROS/'0000'/ 00058^^ 6 DATA EORMSG/'*** END OF REPORT ***'/ 00059^ ^ 7 INTEGER HDLIN5(66),HDLINX(66),HDLN6A(66),HDLN6B(66) 00061^ ^ 8 DATA HDLIN5/33*$2020,'ACTIONS ',29*$2020/ 00063^^ 8 +, HDLINX/66*$2020/ 00064^^ 8 +, HDLN6A/' COLLECTOR NAME ',58*$2020/ 00065^^ 8 +, HDLN6B/' COLLECTOR NAME ',55*$2020,'TOTAL '/ 00066^ ^ 9 INTEGER DAT1(15),LD1(4),REQ1(24),REC1(0012) 00068^ ^ 10 INTEGER UTFILE(4),SYPFIL(4) 00070^^ 11 DATA UTFILE/'UTIFIL '/,SYPFIL/'SYSPRT '/ 00071^ ^ 12 EQUIVALENCE ( REQ1(15), NUMRD ) 00073^^ 13 INTEGER HEAD(18) 00074^ ^ 14 DATA HEAD/$0D0A,$0A17,'EXECUTING COLSTS ',$0F16/ 00076^^ 15 DATA DAT1 /'LACOLSTSLA ',01,01,00/,REQ1/24*0/ 00077^ ^ 16 DATA LD1/'COLSTATS'/ 00079^ ^ 17 INTEGER USER(4),U(8),GRPBUF(10),DATE(3),HDR(20,3) 00081^^ 17 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00082^^ 17 +, IPAGE,MTOT(6),LTOT(6),TOT14(7),TEMP(8) 00083^ ^ 18 DATA PLU/12/,IPAGE/0/,MTOT/'000000000000'/ 00085^^ 18 +, IFOUND/0/,LTOT/'000000000000'/ 00086^^ 18 +, IWAY/3/,IMODE/3/,TOT14/'00000000000000'/ 00087^ ^ C**** SYSPRT PARAMETERS........ 00089^ ^ 19 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00091^ ^ 20 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00093^^ 20 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00094^^ 20 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00095^ ^ 21 DATA PLN/132/,NLU/05/,IPF/00/,NLINE/0/,ISERR/0/,NU/1/ 00097^ ^ 22 INTEGER L01(66),L02(66),L03(66),L04(66),L14(66) 00099^ ^ C POS. 01 +------------------ THRU ------------------+ 44 00101^^ 23 DATA L01/'1---------- HDR1 GOES HERE -------------- ' 00102^^ 23 +, ' COLLECTOR STATISTICS REPORT ' 00103^^ 23 +, ' PAGE '/ 00104^ ^ C POS. 01 +------------------ THRU ------------------+ 44 00106^^ 24 DATA L02/' ---------- HDR2 GOES HERE -------------- ' 00107^^ 24 +, ' AS OF: ' 00108^t FTN 3.3B (OPT = LPC) COLSTS PAGE 3 DATE: 08/30/84 TIME: 0031 t^ 24 +, ' '/ 00109^ ^ C POS. 01 +------------------ THRU ------------------+ 44 00111^^ 25 DATA L03/' ---------- HDR3 GOES HERE -------------- ' 00112^^ 25 +, ' ' 00113^^ 25 +, ' '/ 00114^ ^ C POS. 01 +------------------ THRU ------------------+ 44 00116^^ 26 DATA L04/' ' 00117^^ 26 +, ' ' 00118^^ 26 +, ' '/ 00119^^ C POS. 01 +------------------ THRU ------------------+ 44 00120^^ 27 DATA L14/' **COLSTS** ERROR IN FILE : XXXXXXXX ' 00121^^ 27 +, ' RUN ABORTED ********** ' 00122^^ 27 +, ' '/ 00123^t FTN 3.3B (OPT = LPC) COLSTS PAGE 4 DATE: 08/30/84 TIME: 0031 t ^ C**** 00126^^ C**** BEGIN PROGRAM ....... 00127^ ^ C*** GET EXTERNAL SWITCHS, USER INFO, HEADINGS, AND OTHER PARAMETERS 00129^ ^ 28 CALL GETSW ( U(1) ) 00131^^ 29 CALL PGMIN ( USER,LU,MODE,NPORT ) 00132^ ^ C*** CCS/LA LOOK-ALIKE..... 00134^ ^ 30 CALL CCSCST( DAT1,1,2,USER,1,8,ICM ) 00136^^ 31 IF ( ICM.EQ.0 ) GO TO 5 00137^^ 32 CALL CCSMVA( LD1,1,8,DAT1,1,16 ) 00138^^ 33 5 CONTINUE 00139^ ^ 34 CALL CCSMVA( USER,1,8,HEAD,23,8 ) 00141^^ 35 CALL WTREAD( LU,-1,HEAD,36,0,0,0,ITC ) 00142^^ 36 CALL UTHEAD( HDR,DATE ) 00143^ ^ 37 CALL GTSYSP( IWAY, 17 ) 00145^^ 38 CALL GTSYSP( IMODE, 18 ) 00146^^ 39 CALL PRTORF( IPF,PLU,NLU,NPORT,IWAY ) 00147^^ 40 CALL GETGRP( GRPBUF,IALL,IMODE ) 00148^ ^ C ..CHECK SWITCH SETTING 00150^^ C .. NOTE - ONLY FIRST BIT SET IN SWITCH IS PROCESSED. 00151^ ^ 41 DO 110 IU = 1,3 00153^^ 42 IF (U(IU) .EQ. 1) GO TO 100 00154^^ 43 110 CONTINUE 00155^ ^ 44 DO 120 IU = 4,5 00157^^ 45 IF (U(IU) .EQ. 1) GO TO 700 00158^^ 46 120 CONTINUE 00159^ ^ C .. NO SWITCHES SET, EXIT. 00161^^ 47 GO TO 9900 00162^ ^ C**** OPEN FILES AND GET UTIFIL RECORDS 00164^ ^ 48 100 CONTINUE 00166^^ 49 CALL SYSPRT( L01,0,SYSPRM,0 ) 00167^^ 50 IF( ISERR.LT.0 ) CALL CCSMVA( SYPFIL,1,8,UTFILE,1,8 ) 00168^^ 51 IF( ISERR.LT.0 ) GO TO 9820 00169^ ^ 52 CALL OPENFL( REQ1,DAT1,ISTAT ) 00171^^ 53 IF ( ISTAT.LT.0 ) GO TO 9800 00172^^ 54 REQ1(23) = 1 00173^ ^ 55 CALL EDIT( DATE,1,L02,70,1) 00175^^ C--- CALL CCSTIM( L02(40) ) 00176^^ 56 CALL CCSMVA( HDR(01,01),1,40,L01,2,40 ) 00177^^ 57 CALL CCSMVA( HDR(01,02),1,40,L02,2,40 ) 00178^t FTN 3.3B (OPT = LPC) COLSTS PAGE 5 DATE: 08/30/84 TIME: 0031 t^ 58 CALL CCSMVA( HDR(01,03),1,40,L03,2,40 ) 00179^^ 59 IF(NPORT.NE.0 .AND.IPF.NE.1) CALL CCSPUT( $0C,1,L01 ) 00180^ ^ C ..SET FOR PROCESSING ACTION CODE REPORT (ACTC) 00182^ ^ 60 130 CONTINUE 00184^^ 61 IBYTE = 8+(IU-1)*4 00185^ ^ 62 CALL CCSMVA( ACTC ,1,4,UTKEY,1,4 ) 00187^^ 63 140 CALL GETUTI( UTKEY,UTCODB,IFOUND,IFER,0 ) 00188^^ 64 IF( IFER.LT.0 ) GO TO 9820 00189^^ 65 IF( IFOUND.NE.0 ) GO TO 9820 00190^ ^ C ..CLEAR COUNT MATRIX AND COLLECTOR TOTALS 00192^^ 66 DO 230 I = 1,128 00193^^ 67 DO 225 J = 1,32 00194^^ 68 COUNT(I,J) = 0 00195^^ 69 225 CONTINUE 00196^^ 70 COLSUM(I) = 0 00197^^ 71 COLSUL(I) = 0 00198^^ 72 230 CONTINUE 00199^ ^ C ..INITIALIZE GRAND TOTAL 00201^^ 73 GRANDL = 0 00202^^ 74 GRANDM = 0 00203^^ C ..SET COLLECTOR INDEX = 0 (INITIALIZATION) 00204^^ 75 ICOLX = 0 00205^^ 76 CALL CCSMVA( INAME,1,0,INAME,1,40 ) 00206^ ^ C .. BEGIN PROCESSING OF COLSTATS RECORD 00208^^ C ..READ COLSTATS RECORD (UNLESS PREVIOUS REC. NOT PROCESSED YET) 00209^^ 77 235 IF (BYPASS .NE. 0) GO TO 240 00210^^ 78 CALL GETS ( REQ1, REC1, KEYCOL, ISTAT) 00211^^ C ..CHECK FOR EOF 00212^^ 79 IF (AND(ISTAT,$8100) .EQ. $8100) GO TO 300 00213^^ 80 IF( ISTAT.LT.0 ) GO TO 9800 00214^^ C ..CHECK FOR CHANGE IN CODE TYPE(ACTION TO RESULT); GO 00215^^ C .. PRINT REPORT. 00216^^ 81 240 IF (AND(REC1,$FF00) .NE. AND(UTKEY,$FF00)) GO TO 300 00217^^ C ..CLEAR BYPASS READ OF COLSTATS RECORD FLAG 00218^^ 82 BYPASS = 0 00219^^ C ..IF ICOLX(COLLECTOR INDEX) = 0(FIRST TIME) 00220^^ C .. DO NOT CHECK FOR NEW COLLECTOR 00221^^ 83 IF (ICOLX .NE. 0) GO TO 245 00222^^ C ..FIRST TIME PROCESSING 00223^^ C .. SET UP COLLECTOR ID 00224^^ 84 CALL CCSMVA (REC1, 2, 4, COLID, 1, 4) 00225^^ C ..SET COLLECTOR INDEX TO FIRST 00226^^ 85 ICOLX = 1 00227^^ C ..GO GET NAME,INITIAL FOR FIRST COLLECTOR 00228^^ 86 GO TO 255 00229^^ C ..IF NO CHANGE IN COLLECTOR, BYPASS PROCESSING FOR 00230^^ C .. LAST COLLECTOR 00231^^ 87 245 CALL CCSMVA (REC1, 2, 4, COLID, 1, 4) 00232^t FTN 3.3B (OPT = LPC) COLSTS PAGE 6 DATE: 08/30/84 TIME: 0031 t^ 88 IF (COLID(1) .EQ. OCOLID(1) .AND. COLID(2) .EQ. OCOLID(2)) 00233^^ 88 1 GO TO 260 00234^^ C ..NEW COLLECTOR LOGIC 00235^^ C ..SUM COLLECTOR CODES OF LAST COLLECTOR 00236^^ 89 ASSIGN 250 TO IRTN 00237^^ 90 GO TO 980 00238^^ C ..BUMP COLLECTOR INDEX 00239^^ 91 250 ICOLX = ICOLX + 1 00240^^ C ..GET COLLECTOR NAME, INITIAL FROM UTIFIL FILE. 00241^ ^ 92 255 CALL GETUTI( COLID,RECUTI,IFOUND,IFER,0 ) 00243^^ 93 IF( IFER.LT.0 ) GO TO 9820 00244^^ 94 IF( IFOUND.NE.0 ) CALL CCSMVA( COLID,1,4,RECUTI,5,4 ) 00245^ ^ C ..SAVE NAME AND INITIAL 00247^^ 95 CALL CCSMVA (RECUTI, 5, 15, INAME(1,ICOLX), 3, 16) 00248^^ 96 CALL CCSMVA (RECUTI, 20, 1, INAME(1,ICOLX), 1, 2) 00249^^ C ..UPDATE CURRENT COLLECTOR ID 00250^^ 97 OCOLID(1) = COLID(1) 00251^^ 98 OCOLID(2) = COLID(2) 00252^^ C ..SEARCH CODE ARRAY FOR MATCHING CODE TO GENERATE INDEX 00253^^ C .. FOR COUNT STORE IN COUNT MATRIX 00254^^ 99 260 CALL CCSMVA (REC1, 6, 2, CODE, 1, 2) 00255^^ 100 DO 270 I = 1,NOCODE 00256^^ 101 IF (UTCODE(I) .EQ. CODE) GO TO 280 00257^^ 102 270 CONTINUE 00258^^ C ..IF NO CODE FOUND, IQNORE COLSTATS RECORD 00259^^ 103 GO TO 295 00260^^ C ..CALC. CODE INDEX TO COUNT MATRIX 00261^^ 104 280 CONTINUE 00262^^ 105 CODEX = I 00263^ ^ C ..REMOVE FROM RECORD FOR PROCESSING 00265^^ 106 CALL CCSMVA (REC1, IBYTE, 4, ICNT, 1, 4) 00266^^ C ..CONVERT TO HEX 00267^^ 107 JCNT = (AND(ICNT(1),$0F00)/$100) * 10 00268^^ 108 JCNT = (JCNT + AND(ICNT(1),$F)) * 10 00269^^ 109 JCNT = (JCNT + (AND(ICNT(2),$0F00))/$100) * 10 00270^^ 110 JCNT = JCNT + AND(ICNT(2),$F) 00271^^ C ..ADD TO COUNT MATRIX 00272^^ 111 COUNT(ICOLX,CODEX) = COUNT(ICOLX,CODEX) + JCNT 00273^^ C ..ADD TO GRAND TOTAL 00274^^ C .. (2 WORD ARITHMETIC MODULE 10**4) 00275^^ 112 GRANDL = GRANDL + JCNT 00276^^ 113 IF (GRANDL .LT. 10000) GO TO 290 00277^^ 114 GRANDM = GRANDM + 1 00278^^ 115 GRANDL = GRANDL-10000 00279^^ 116 290 CONTINUE 00280^^ C .. END OF PROCESSING OF ONE COLSTATS RECORD 00281^^ 117 295 GO TO 235 00282^^ C ..SUM LAST COLLECTOR'S CODES 00283^^ 118 300 CONTINUE 00284^^ 119 IF( ICOLX.EQ.0 ) ICOLX = 1 00285^^ 120 ASSIGN 305 TO IRTN 00286^t FTN 3.3B (OPT = LPC) COLSTS PAGE 7 DATE: 08/30/84 TIME: 0031 t^ 121 GO TO 980 00287^ ^ C ..BEGIN CODE TOTALS PROCESSING 00289^^ C ..CALC. CODES TOTALS(2 WD ARITHMETIC MODULO 10**4) 00290^^ 122 305 DO 320 I=1,NOCODE 00291^^ 123 CODSUL(I) = 0 00292^^ 124 CODSUM(I) = 0 00293^^ 125 DO 310 J = 1,ICOLX 00294^^ 126 CODSUL(I) = CODSUL(I) + COUNT(J,I) 00295^^ 127 IF (CODSUL(I) .LT. 10000) GO TO 310 00296^^ 128 CODSUM(I) = CODSUM(I) + 1 00297^^ 129 CODSUL(I) = CODSUL(I)-10000 00298^^ 130 310 CONTINUE 00299^^ 131 320 CONTINUE 00300^ ^ C ..BEGIN REPORT GENERATION AND PRINT 00302^^ 132 400 CONTINUE 00303^ ^ C ..SET UP TYPE REPORT PER U1,U2,U3 00305^^ 133 422 GOTO (430, 440, 450), IU 00306^^ 134 430 CALL CCSMVA (DAILY, 1, 5, L01, 55, 5) 00307^^ 135 GO TO 460 00308^^ 136 440 CALL CCSMVA (WEEKLY, 1, 6, L01, 54, 6) 00309^^ 137 GO TO 460 00310^^ 138 450 CALL CCSMVA (MONTHY, 1, 7, L01, 53, 7) 00311^^ C ..RESET PAGE COUNTER 00312^^ 139 460 PAGE = 0 00313^^ C ..MOVE IN 'RESULTS' TEXT IF RESULT REPORT 00314^^ 140 IF (UTKEY .NE. $5245) GO TO 470 00315^^ 141 CALL CCSMVA (RESULT, 1, 7, HDLIN5, 67, 7) 00316^^ C ..SET UP FIRST 16 CODES 00317^^ 142 470 DO 480 I = 1,16 00318^^ 143 J = I*2 - 1 00319^^ 144 JJ = 26 + (I-1)*6 00320^^ 145 CALL CCSMVA (UTCODE, J, 2, HDLN6A, JJ, 2) 00321^^ 146 480 CONTINUE 00322^^ C ..BLANK FIELD FOR 'TOTAL' TEXT 00323^^ 147 CALL CCSMVA(I, 1, 0, HDLN6A, 127, 5) 00324^^ C .. NOTE - EACH PAGE OF REPORT MAY CONSIST OF 1 OR 2 LISTING 00325^^ C .. PAGES. IF TWO PAGES, THEY ARE CALLED PAGE A & B. 00326^^ C ..INITIALIZE PAGE TYPE(A OR BLANK IF 1 LISTING PAGE) 00327^^ C .. (DOUBLE * IS USED TO INDICATE FIRST NON-CODE ENTRY) 00328^^ 148 PAGEAB = $2020 00329^^ 149 IF (UTCODE(17) .NE. $2A2A) PAGEAB = $4120 00330^^ C ..IF MORE THAN 16 CODES, SET UP 2ND 16 CODES 00331^^ 150 IF (PAGEAB .EQ. $2020) GO TO 494 00332^^ 151 DO 490 I = 17,32 00333^^ 152 J = I*2 -1 00334^^ 153 JJ = 26 + (I-17)*6 00335^^ 154 CALL CCSMVA (UTCODE, J, 2, HDLN6B, JJ, 2) 00336^^ 155 490 CONTINUE 00337^^ 156 GO TO 500 00338^^ C ..MOVE 'TOTAL' TEXT FOR COLLECTOR TOTALS HEADING 00339^^ 157 494 CALL CCSMVA (TOTL, 1, 5, HDLN6A, 127, 5) 00340^t FTN 3.3B (OPT = LPC) COLSTS PAGE 8 DATE: 08/30/84 TIME: 0031 t^ C ..INITIALIZE INDICIES TO COUNT MATRIX 00341^^ 158 500 ICOLX = 0 00342^^ C 00343^^ C .. BEGIN PRINT PAGE LOGIC 00344^^ C ..SAVE ICOLX(COLLECTOR INDEX) FOR PAGE B PROCESSING 00345^^ 159 505 ICOLXV = ICOLX 00346^^ C ..BUMP PAGE COUNT 00347^^ 160 PAGE = PAGE + 1 00348^^ 161 IVAM = 0 00349^^ 162 IVAL = PAGE 00350^^ 163 ASSIGN 507 TO IRTN2 00351^^ 164 GO TO 990 00352^ ^ C*** PRINT HEADER LINES 1-5. RESENT LINE COUNT, SET PAGE TYPE. 00354^ ^ 165 507 CONTINUE 00356^^ 166 CALL CCSMVA (IASCII, 3, 4, L01, 125, 4) 00357^^ 167 510 CALL CCSMVA (PAGEAB, 1, 1, L01, 129, 1) 00358^^ 168 ICOLX = ICOLXV 00359^^ 169 LNCNT = 0 00360^^ 170 ASSIGN 520 TO IRTN 00361^^ 171 GO TO 900 00362^^ C ..PRINT HEADER LINES 6,7 PER PAGE TYPE (A OR B) 00363^^ 172 520 ASSIGN 530 TO IRTN 00364^^ 173 IF (PAGEAB .EQ. $4220) GO TO 904 00365^^ 174 GO TO 902 00366^^ C ..BUMP COLLECTOR INDEX 00367^^ 175 530 ICOLX = ICOLX + 1 00368^^ C ..CHECK FOR END 00369^^ 176 IF (ICOLX .GT. 128) GO TO 550 00370^^ C ..CHECK FOR ANY CODES; IF NONE, GO TO NEXT COLLECTOR 00371^^ 177 IF (COLSUM(ICOLX) .EQ. 0 .AND. COLSUL(ICOLX) .EQ. 0) GO TO 530 00372^^ C ..PRINT 1 LINE OF COLLECTOR ACTIVITY 00373^^ 178 ASSIGN 535 TO IRTN 00374^^ 179 IF (PAGEAB .EQ. $2020) GO TO 908 00375^^ 180 IF (PAGEAB .EQ. $4220) GO TO 910 00376^^ 181 GO TO 906 00377^^ C ..BUMP LINE COUNT (DOES NOT INCLUDE HEADER LINES) 00378^^ 182 535 LNCNT = LNCNT + 1 00379^^ C ..CHECK FOR ENOUGH LINES THIS PAGE 00380^^ 183 IF (LNCNT .LE. 40) GO TO 530 00381^^ C 00382^^ C ..END OF PAGE PROCESSING 00383^^ C ..IF SINGLE PAGE PER CODES, GO START NEXT PAGE OF REPORT 00384^^ 184 IF (PAGEAB .EQ. $2020) GO TO 505 00385^^ C ..FOR TWO PAGES PER CODES, SET TO PAGE B OR GO START 00386^^ C .. NEW REPORT PAGE 00387^^ 185 IF (PAGEAB .EQ. $4120) GO TO 540 00388^^ 186 PAGEAB = $4120 00389^^ 187 GO TO 505 00390^^ 188 540 PAGEAB = $4220 00391^^ 189 GO TO 510 00392^^ C ..PRINT TOTALS LINE 00393^^ C ..IF SINGLE PAGE PER CODES, PRINT TOTALS & EXIT 00394^t FTN 3.3B (OPT = LPC) COLSTS PAGE 9 DATE: 08/30/84 TIME: 0031 t^ 190 550 IF (PAGEAB .NE. $2020) GO TO 560 00395^^ C ..PRINT TOTALS FOR SINGLE PAGE PER CODES, SET RETURN TO 00396^^ C .. END REPORT PRINTING 00397^^ 191 ASSIGN 570 TO IRTN 00398^^ 192 GO TO 930 00399^^ C ..FOR TWO PAGES PER CODES, 00400^^ C ..PRINT TOTALS PAGE A, SET RETURN FOR PAGE B 00401^^ C ..OR PRINT TOTALS PAGE B, SET RETURN TO END REPORT PRINTING 00402^^ 193 560 ASSIGN 570 TO IRTN 00403^^ 194 IF (PAGEAB .EQ. $4220) GO TO 940 00404^^ 195 ASSIGN 540 TO IRTN 00405^^ 196 GO TO 920 00406^^ C ..IF THIS WAS ACTION REPORT, SET TO PROCESS RESULTS REPORT 00407^^ 197 570 IF (UTKEY(1) .NE. $4143) GO TO 580 00408^^ C ..SET FOR PROCESSING RESULTS REPORT(RESC) 00409^ ^ 198 CALL CCSMVA( RESC,1,4,UTKEY,1,4 ) 00411^ ^ 199 BYPASS = 1 00413^^ 200 GO TO 140 00414^^ C ..PRINT 'END OF REPORT' LINE, SET RETURN TO EXIT 00415^^ 201 580 ASSIGN 9900 TO IRTN 00416^^ 202 GO TO 970 00417^^ C 00418^^ C ..END OF REPORT LOGIC 00419^t FTN 3.3B (OPT = LPC) COLSTS PAGE 10 DATE: 08/30/84 TIME: 0031 t^ C ..BEGIN CLEAR COUNT LOGIC 00421^^ C 00422^^ C ..OPEN COLSTATS FILE 00423^ ^ 203 700 CONTINUE 00425^^ 204 DAT1(13) = 0 00426^^ 205 DAT1(14) = 400 00427^^ 206 DAT1(15) = -1 00428^^ 207 CALL OPENFL ( REQ1, DAT1 , ISTAT) 00429^^ 208 IF (ISTAT .LT. 0) GO TO 9800 00430^ ^ 209 710 CALL GETS ( REQ1,COUNT,KEYCOL,ISTAT ) 00432^ ^ 210 IF( AND( ISTAT,$8100).EQ.$8100 ) GO TO 9900 00434^^ 211 IF( ISTAT.LT.0 ) GO TO 9800 00435^ ^ C ..CLEAR COUNTS PER SWITCH(U4,U5); IU = 4,5 00437^^ 212 720 J = REQ1(15) 00438^^ 213 JJ = 8 + (IU-4)*4 - 20 00439^^ 214 DO 730 I = 1,J 00440^^ 215 JJ = JJ + 20 00441^^ 216 CALL CCSMVA (ZEROS, 1, 4, COUNT, JJ, 4) 00442^^ 217 730 CONTINUE 00443^ ^ 218 CALL UPDREC ( REQ1,COUNT,ISTAT ) 00445^^ 219 IF (ISTAT .LT. 0) GO TO 9800 00446^ ^ 220 GO TO 9900 00448^t FTN 3.3B (OPT = LPC) COLSTS PAGE 11 DATE: 08/30/84 TIME: 0031 t^ C .. PSEUDO SUBROUTINES 00450^^ C 00451^^ C ..PRINT HEADER LINES 1-5 00452^^ 221 900 CONTINUE 00453^^ 222 CALL SYSPRT( L01,1,SYSPRM,0 ) 00454^^ 223 CALL SYSPRT( L02,1,SYSPRM,0 ) 00455^^ 224 CALL SYSPRT( L03,1,SYSPRM,0 ) 00456^^ 225 CALL SYSPRT( L04,1,SYSPRM,0 ) 00457^^ 226 CALL SYSPRT( HDLIN5,1,SYSPRM,0 ) 00458^^ 227 GO TO IRTN 00459^ ^ C ..PRINT LINES 6,7 PAGE A 00461^^ 228 902 CALL SYSPRT( HDLN6A,1,SYSPRM,0 ) 00462^^ 229 GO TO 905 00463^ ^ C ..PRINT LINE 6,7 PAGE B 00465^^ 230 904 CALL SYSPRT( HDLN6B,1,SYSPRM,0 ) 00466^^ 231 905 CALL SYSPRT( L04,1,SYSPRM,0 ) 00467^^ 232 GO TO IRTN 00468^ ^ C ..PRINT 1 LINE OF COLLECTOR STATISTICS 00470^^ C ..ENTRY FOR PAGE A 00471^^ C ..BLANK FILL COLLECTOR TOTAL FIELD 00472^^ 233 906 CALL CCSMVA (I, 1, 0, HDLINX, 127, 5) 00473^^ 234 IB = 1 00474^^ 235 GO TO 914 00475^^ C .. ENTRY FOR SINGLE PAGE REPORT PAGE 00476^^ 236 908 IB = 1 00477^^ 237 GO TO 912 00478^^ C .. ENTRY FOR PAGE B 00479^^ 238 910 IB = 17 00480^^ C ..CONVERT & STORE COLLECTOR TOTAL 00481^^ 239 912 CONTINUE 00482^^ 240 IVAM = COLSUM(ICOLX) 00483^^ 241 IVAL = COLSUL(ICOLX) 00484^^ 242 ASSIGN 913 TO IRTN2 00485^^ 243 GO TO 990 00486^ ^ 244 913 CONTINUE 00488^^ 245 CALL CCSMVA( IASCII,01,06,HDLINX,126,06 ) 00489^ ^ 246 914 CONTINUE 00491^ ^ C ..CONVERT COUNTS & STORE IN LINE 00493^^ 247 ASSIGN 915 TO IRTN2 00494^^ 248 DO 916 I = 1,16 00495^^ 249 IF( UTCODE(IB).EQ.$2A2A ) GO TO 916 00496^^ 250 IVAM = 0 00497^^ 251 IVAL = COUNT(ICOLX,IB) 00498^^ C ..CONVERT 00499^^ 252 GO TO 990 00500^^ 253 915 JX = 24 + (I-1)*6 00501^^ 254 CALL CCSMVA (IASCII, 3, 4, HDLINX, JX, 4) 00502^^ 255 IB = IB + 1 00503^t FTN 3.3B (OPT = LPC) COLSTS PAGE 12 DATE: 08/30/84 TIME: 0031 t^ 256 916 CONTINUE 00504^^ C ..MOVE INITIAL, NAME TO LINE 00505^^ 257 CALL CCSMVA (INAME(1,ICOLX), 1, 17, HDLINX, 2, 17) 00506^^ C ..PRINT LINE 00507^^ 258 CALL SYSPRT( HDLINX,1,SYSPRM,0 ) 00508^^ 259 GO TO IRTN 00509^ ^ C ..PRINT TOTALS LINE LOGIC 00511^^ C .. ENTRY FOR PAGE A (NO GRAND TOTAL) 00512^^ C ..BLANK FILL GRAND TOTAL FIELD 00513^^ 260 920 CALL CCSMVA (I, 1, 0, HDLINX, 126, 6) 00514^^ 261 IB = 1 00515^^ 262 GO TO 960 00516^^ C .. ENTRY FOR SINGLE PAGE REPORT PAGE 00517^^ 263 930 IB = 1 00518^^ 264 GO TO 950 00519^^ C .. ENTRY FOR PAGE B 00520^^ 265 940 IB = 17 00521^ ^ C ..PLACE GRAND TOTAL IN LINE 00523^ ^ 266 950 CONTINUE 00525^^ 267 IVAM = GRANDM 00526^^ 268 IVAL = GRANDL 00527^^ 269 ASSIGN 955 TO IRTN2 00528^^ 270 GOTO 990 00529^ ^ 271 955 CONTINUE 00531^^ 272 CALL CCSMVA( IASCII,1,6,HDLINX,126,6 ) 00532^ ^ C ..MOVE 'TOTALS' TEXT TO LINE 00534^^ 273 960 CALL CCSMVA (TOTL , 1, 00, HDLINX, 1, 22) 00535^^ 274 CALL CCSMVA( TOTL , 1, 06, HDLINX,14, 06 ) 00536^ ^ C ..CONVERT TOTAL & STORE IN LINE 00538^^ 275 DO 965 I = 1,16 00539^^ 276 JX = 22 + (I-1)*6 00540^^ 277 IF( UTCODE(IB).EQ.$2A2A ) GO TO 965 00541^^ 278 IVAM = CODSUM(IB) 00542^^ 279 IVAL = CODSUL(IB) 00543^^ 280 ASSIGN 962 TO IRTN2 00544^^ 281 GO TO 990 00545^ ^ 282 962 CONTINUE 00547^^ 283 CALL CCSMVA (IASCII, 1, 6, HDLINX, JX, 6) 00548^^ 284 IB = IB + 1 00549^^ 285 965 CONTINUE 00550^ ^ 286 CALL SYSPRT( L04,1,SYSPRM,0 ) 00552^^ 287 CALL SYSPRT( HDLINX,1,SYSPRM,0 ) 00553^ ^ 288 CALL CCSMVA( HDLINX,1,0,HDLINX,1,132 ) 00555^^ 289 GO TO IRTN 00556^ t FTN 3.3B (OPT = LPC) COLSTS PAGE 13 DATE: 08/30/84 TIME: 0031 t^ C ..PRINT 'END OF REPORT' LINE 00558^^ 290 970 CALL CCSMVA (EORMSG, 1, 21, HDLINX, 59, 21) 00559^^ 291 CALL SYSPRT( L04,5,SYSPRM,0 ) 00560^^ 292 CALL SYSPRT( HDLINX,1,SYSPRM,0 ) 00561^^ 293 GO TO IRTN 00562^ ^ C ..SUM COLLECTOR'S CODES(2 WD ARITMETIC MODULO 10**4) 00564^^ 294 980 COLSUM(ICOLX) = 0 00565^^ 295 COLSUL(ICOLX) = 0 00566^^ 296 DO 982 I2 = 1,NOCODE 00567^^ 297 COLSUL(ICOLX) = COLSUL(ICOLX) + COUNT(ICOLX,I2) 00568^^ 298 IF (COLSUL(ICOLX) .LT. 10000) GO TO 982 00569^^ 299 COLSUM(ICOLX) = COLSUM(ICOLX) + 1 00570^^ 300 COLSUL(ICOLX) = COLSUL(ICOLX)-10000 00571^^ 301 982 CONTINUE 00572^^ 302 GO TO IRTN 00573^ ^ C ..CONVERT 'IVAL' TO 'ASCII' WITH ZERO SUPPRESSION 00575^^ 303 990 CONTINUE 00576^^ 304 CALL HXDEC( IVAM,MTOT(2) ) 00577^^ 305 CALL HXDEC( IVAL,LTOT(4) ) 00578^ ^ 306 CALL CCSADD( MTOT,4,LTOT,1,TOT14,1 ) 00580^^ 307 CALL EDIT ( TOT14,6,TEMP,1,3 ) 00581^^ 308 CALL CCSMVA( TEMP,2,6,IASCII,1,6 ) 00582^ ^ 309 GO TO IRTN2 00584^ ^ C**** ERROR SECTION FILE 1 00586^^ 310 9800 CONTINUE 00587^^ 311 IREQ = AND(REQ1(4),$FF) 00588^^ 312 IF (IREQ.LT.11) IREQ = IREQ-1 00589^^ 313 IF (IREQ.EQ.18) IREQ = 10 00590^^ 314 CALL FILERR( DAT1,IREQ,ISTAT,LU ) 00591^^ 315 CALL CCSMVA( DAT1,1,8,L14,32,8 ) 00592^^ 316 IERR = 1 00593^^ 317 GO TO 9900 00594^ ^ C**** ERROR SECTION FILE 3 00596^^ 318 9820 CONTINUE 00597^^ 319 CALL CCSMVA( UTFILE,1,8,L14,32,8 ) 00598^^ 320 IERR = 1 00599^^ 321 GO TO 9900 00600^ ^ C**** CLOSE THE FILES AND EXIT........ 00602^^ 322 9900 CONTINUE 00603^^ 323 IF (IERR.EQ.1) CALL SYSPRT( L14,1,SYSPRM,0 ) 00604^ ^ 324 CALL CLOSFL( REQ1,ISTAT ) 00606^^ 325 CALL GETUTI( UTKEY,REC1,IFOUND,IFER,2 ) 00607^^ 326 CALL SYSPRT( L04,0,SYSPRM,1 ) 00608^ ^ 327 CALL PGMOUT 00610^^ 328 END 00611^t FTN 3.3B (OPT = LPC) COLSTS PAGE 14 DATE: 08/30/84 TIME: 0031 t  PROGRAM LENGTH $1EE0 ( 7904)   EXTERNALS 2 Q8STP GETSW PGMIN CCSCST CCSMVA WTREAD UTHEAD 22 GTSYSP PRTORF GETGRP SYSPRT OPENFL EDIT CCSPUT 22 GETUTI GETS UPDREC HXDEC CCSADD FILERR CLOSFL 2 PGMOUT  t FTN 3.3B (OPT = LPC) COLSTS PAGE 15 DATE: 08/30/84 TIME: 0031 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < ( 8100 (-32511) 198C 79,79,210($ FF00 (-255) 198D 81,81$& FFFE (-1) 1978 35,206 & 0000 (0) 0003 5,15,18,21,31,35,49,50,51,53,59,63,64,65,68,70,71,73,74,75,76,77,80,82,83,92,93,94,119,123,124,139 ,147,158,161,169,177,204,208,211,219,222,223,224,225,226,228,230,231,233,250,258,260,273,286,287,: 288,291,292,294,295,323,326: 0001 (1) 0002 15,20,21,28,30,32,34,35,41,42,45,50,54,55,56,57,58,59,61,62,66,67,76,84,85,87,88,91,94,95,96,97,99 ,100,106,107,108,114,119,122,125,128,134,136,138,141,142,143,144,147,152,157,160,167,175,182,197, 198,199,206,214,216,222,223,224,225,226,228,230,231,233,234,236,245,248,253,255,257,258,260,261, 263,272,273,274,275,276,283,284,286,287,288,290,292,296,299,306,307,308,312,315,316,319,320,323, " 326"d 0002 (2) 1973 30,56,57,58,84,87,88,96,98,99,109,110,143,145,152,154,257,304,308,325d4 0003 (3) 197E 41,58,95,166,254,307 4T 0004 (4) 197F 44,61,62,84,87,94,106,166,198,213,216,254,305,306,311T< 0005 (5) 1980 44,94,95,134,147,157,233,291 <R 0006 (6) 1991 99,136,144,153,245,253,260,272,274,276,283,307,308 R* 0007 (7) 1997 138,138,141*: 0008 (8) 1974 30,32,34,50,61,213,315,319 :. 000A (10) 1993 107,108,109,313." 000C (12) 1984 59 "" 000E (14) 19AD 274"2 000F (15) 198F 95,108,110,206,212 20 0010 (16) 1976 32,95,142,248,2750: 0011 (17) 197B 37,149,151,153,238,257,265 :& 0012 (18) 197C 38,313 &* 0014 (20) 1990 96,213,215 *& 0015 (21) 19AF 290,290&& 0016 (22) 19AC 273,276&$ 0017 (23) 1977 34,54$. 0020 (32) 198A 67,151,315,319 ." 0024 (36) 1979 35 "2 0028 (40) 1983 56,56,57,58,76,183 2" 0035 (53) 1998 138"" 0036 (54) 1996 136"" 0037 (55) 1995 134"" 003B (59) 19B0 290"" 0043 (67) 199A 141"" 0046 (70) 1982 55 "" 007D (125) 19A3 166"* 007E (126) 19AA 245,260,272** 007F (127) 199C 147,157,233*8 0080 (128) 1988 66,68,111,126,176,251,2978" 0081 (129) 19A4 167"" 0084 (132) 19AE 288"" 00FF (255) 19B3 311"" 0190 (400) 19A8 205"t FTN 3.3B (OPT = LPC) COLSTS PAGE 16 DATE: 08/30/84 TIME: 0031 t& 0F00 (3840) 1992 107,109&2 2020 (8224) 199D 148,150,179,184,19026 2710 (10000) 1994 113,115,127,129,298,3006* 2A2A (10794) 199E 149,249,277** 4120 (16672) 199F 149,185,186*" 4143 (16707) 19A7 197". 4220 (16928) 19A6 173,180,188,194." 5245 (21061) 1999 140"   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & ACTC INTEGER 15D5 1,5,62 &< AND INTR.FN. 7FFF 79,81,107,108,109,110,210,311<, BYPASS INTEGER 0004 1,5,77,82,199,( CODE INTEGER 0005 1,99,101 (( CODEX INTEGER 0006 1,105,111(4 CODSUL INTEGER 0027 1,123,126,127,129,2794, CODSUM INTEGER 0007 1,124,128,278,6 COLID INTEGER 0147 1,84,87,88,92,94,97,98 6< COLSUL INTEGER 00C7 1,71,177,241,295,297,298,300 <4 COLSUM INTEGER 0047 1,70,177,240,294,299 4@ COUNT INTEGER 0149 1,68,111,126,209,216,218,251,297 @& DAILY INTEGER 15CB 1,5,134&D DAT1 INTEGER 1759 8,15,30,32,52,204,205,206,207,314,315D( DATE INTEGER 17C0 16,36,55 (& EORMSG INTEGER 15D9 1,6,290&4 GRANDL INTEGER 15E5 1,73,112,113,115,268 4, GRANDM INTEGER 15E4 1,74,114,267 ,$ GRPBUF INTEGER 17B6 16,40$* HDLIN5 INTEGER 1651 6,8,141,226*Z HDLINX INTEGER 1693 6,8,233,245,254,257,258,260,272,273,274,283,287,288,290,292Z2 HDLN6A INTEGER 16D5 6,8,145,147,157,2282* HDLN6B INTEGER 1717 6,8,154,230*. HDR INTEGER 17C3 16,36,56,57,58 .* HEAD INTEGER 1798 12,14,34,35* I INTEGER 1987 65,68,70,71,100,101,105,122,123,124,126,127,128,129,142,143,144,147,151,152,153,214,233,248,253, * 260,275,276*& I2 INTEGER 19B1 295,297&$ IALL INTEGER 1804 16,40$8 IASCII INTEGER 15E9 1,166,245,254,272,283,3088V IB INTEGER 19A9 233,234,236,238,249,251,255,261,263,265,277,278,279,284V( IBYTE INTEGER 1985 59,61,106($ ICM INTEGER 1975 30,31$4 ICNT INTEGER 15EC 1,106,107,108,109,1104 ICOLX INTEGER 198B 74,75,83,85,91,95,96,111,119,125,158,159,168,175,176,177,240,241,251,257,294,295,297,298,299,300 * ICOLXV INTEGER 19A0 158,159,168*. IERR INTEGER 19B4 315,316,320,323.. IFER INTEGER 1986 63,64,92,93,325.2 IFOUND INTEGER 1821 18,63,65,92,94,325 2* IMODE INTEGER 1803 16,18,38,40*t FTN 3.3B (OPT = LPC) COLSTS PAGE 17 DATE: 08/30/84 TIME: 0031 t. INAME INTEGER 1149 1,76,95,96,257 .$ IPAGE INTEGER 1805 16,18$. IPF INTEGER 1824 18,20,21,39,59 .2 IREQ INTEGER 19B2 310,311,312,313,3142Z IRTN INTEGER 198E 88,120,170,172,178,191,193,195,201,227,232,259,289,293,302 Z6 IRTN2 INTEGER 19A2 162,242,247,269,280,3096. ISERR INTEGER 1826 18,20,21,50,51 .R ISTAT INTEGER 1981 52,53,78,79,80,207,208,209,210,211,218,219,314,324 R" ITC INTEGER 197A 35 "6 IU INTEGER 197D 40,42,44,45,61,133,213 68 IVAL INTEGER 15F0 1,162,241,251,268,279,3058: IVAM INTEGER 19A1 160,161,240,250,267,278,304:* IWAY INTEGER 1802 16,18,37,39*D J INTEGER 1989 66,68,125,126,143,145,152,154,212,214D8 JCNT INTEGER 15F1 1,107,108,109,110,111,1128> JJ INTEGER 199B 143,144,145,153,154,213,215,216>2 JX INTEGER 19AB 253,253,254,276,2832* KEYCOL INTEGER 15F2 1,5,78,209 *F L01 INTEGER 1828 21,23,49,56,59,134,136,138,166,167,222 F. L02 INTEGER 186A 21,24,55,57,223., L03 INTEGER 18AC 21,25,58,224 ,8 L04 INTEGER 18EE 21,26,225,231,286,291,32680 L14 INTEGER 1930 21,27,315,319,3230& LD1 INTEGER 1768 8,16,32&. LNCNT INTEGER 19A5 168,169,182,183., LTOT INTEGER 180C 16,18,305,306,, LU INTEGER 17FF 16,29,35,314 ," MODE INTEGER 1972 29 "& MONTHY INTEGER 15CE 1,5,138&, MTOT INTEGER 1806 16,18,304,306,( NLINE INTEGER 1825 18,20,21 (* NLU INTEGER 1823 18,20,21,39*. NOCODE INTEGER 15F6 1,5,100,122,296.* NPORT INTEGER 1801 16,29,39,59*( NU INTEGER 1827 18,20,21 (" NUMRD INTEGER 177A 12 "* OCOLID INTEGER 1625 1,88,97,98 *, PAGE INTEGER 15F7 1,139,160,162,T PAGEAB INTEGER 15F8 1,148,149,150,167,173,179,180,184,185,186,188,190,194T( PLN INTEGER 1822 18,20,21 (( PLU INTEGER 1800 16,18,39 (8 REC1 INTEGER 1784 8,78,81,84,87,99,106,325 8, RECUTI INTEGER 15F9 1,92,94,95,96,H REQ1 INTEGER 176C 8,12,15,52,54,78,207,209,212,218,311,324 H& RESC INTEGER 15D7 1,5,198&& RESULT INTEGER 1621 1,5,141&& SYPFIL INTEGER 1794 8,11,50&d SYSPRM INTEGER 1822 18,20,49,222,223,224,225,226,228,230,231,258,286,287,291,292,323,326 d* TEMP INTEGER 1819 16,307,308 *, TOT14 INTEGER 1812 16,18,306,307,. TOTL INTEGER 15E6 1,5,157,273,274.* U INTEGER 17AE 16,28,42,45** USER INTEGER 17AA 16,29,30,34*& UTCODB INTEGER 1629 1,4,63 &t FTN 3.3B (OPT = LPC) COLSTS PAGE 18 DATE: 08/30/84 TIME: 0031 t: UTCODE INTEGER 162B 1,4,101,145,149,154,249,277:* UTFILE INTEGER 1790 8,11,50,319*: UTKEY INTEGER 1627 1,62,63,81,140,197,198,325 :& WEEKLY INTEGER 15D2 1,5,136&& ZEROS INTEGER 15C9 1,5,216&   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSADD SUBROUTINE 1E80 305"" CCSCST SUBROUTINE 19BF 29 " CCSMVA SUBROUTINE 1EAE 31,34,50,56,57,58,62,76,84,87,94,95,96,99,106,134,136,138,141,145,147,154,157,166,167,198,216,233, R 245,254,257,260,272,273,274,283,288,290,308,315,319R" CCSPUT SUBROUTINE 1A61 59 "" CLOSFL SUBROUTINE 1ECD 323"& EDIT SUBROUTINE 1E88 54,307 &" FILERR SUBROUTINE 1EA8 313"" GETGRP SUBROUTINE 19F6 39 "& GETS SUBROUTINE 1CFB 77,209 &" GETSW SUBROUTINE 19B6 27 "( GETUTI SUBROUTINE 1ED1 62,92,325($ GTSYSP SUBROUTINE 19E8 36,38$& HXDEC SUBROUTINE 1E79 303,305&& OPENFL SUBROUTINE 1CF0 51,207 &" PGMIN SUBROUTINE 19B9 28 "" PGMOUT SUBROUTINE 1EDD 326"" PRTORF SUBROUTINE 19EF 38 " Q8STP INTEGER.FN. 1EDF ^ SYSPRT SUBROUTINE 1EC7 48,222,223,224,225,226,228,230,231,258,286,287,291,292,323,326 ^" UPDREC SUBROUTINE 1D2C 217"" UTHEAD SUBROUTINE 19E4 35 "" WTREAD SUBROUTINE 19DA 34 "   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 5 19D2 31,33$$ 100 1A17 42,48$$ 110 1A03 40,43$$ 120 1A10 43,46$" 130 1A65 59 "& 140 1A72 62,200 &$ 225 1A94 66,69$$ 230 1A9F 65,72$& 235 1AB2 76,117 &$ 240 1ACA 77,81$$ 245 1AE8 83,87$$ 250 1B02 88,91$t FTN 3.3B (OPT = LPC) COLSTS PAGE 19 DATE: 08/30/84 TIME: 0031 t$ 255 1B03 85,92$$ 260 1B38 88,99$& 270 1B4D 99,102 && 280 1B50 101,104&& 290 1B91 113,116&& 295 1B91 102,117&( 300 1B94 79,81,118(& 305 1B9F 119,122&* 310 1BC4 124,127,130*& 320 1BC6 122,131&" 400 1BC8 131"" 422 1BC8 131"& 430 1BD6 131,134&& 440 1BDF 131,136&& 450 1BE7 131,138&* 460 1BEE 134,137,139*& 470 1BFD 140,142&& 480 1C11 142,146&& 490 1C41 150,155&& 494 1C47 150,157&& 500 1C4E 155,158&* 505 1C51 158,184,187*& 507 1C61 162,165&& 510 1C69 166,189&& 520 1C7B 169,172&. 530 1C86 172,175,177,183.& 535 1CA7 177,182&* 540 1CB7 185,188,195*& 550 1CBA 176,190&& 560 1CC2 190,193&* 570 1CCF 190,193,197*& 580 1CE0 197,201&& 700 1CE5 45,203 &" 710 1CFA 208"" 720 1D0C 211"& 730 1D29 213,217&& 900 1D37 170,221&& 902 1D53 173,228&& 904 1D59 173,230&& 905 1D5E 228,231&& 906 1D65 180,233&& 908 1D70 179,236&& 910 1D73 180,238&& 912 1D75 236,239&& 913 1D85 241,244&& 914 1D8C 234,246&& 915 1DA6 246,253&* 916 1DB7 247,249,256*& 920 1DD0 195,260&& 930 1DDA 191,263&& 940 1DDD 194,265&& 950 1DDF 263,266&& 955 1DEA 268,271&& 960 1DF1 261,273&t FTN 3.3B (OPT = LPC) COLSTS PAGE 20 DATE: 08/30/84 TIME: 0031 t& 962 1E1A 279,282&* 965 1E22 274,277,285*& 970 1E3C 201,290&* 980 1E50 88,121,294 ** 982 1E74 295,298,301*6 990 1E78 162,243,252,270,281,30364 9800 1E97 53,80,208,211,219,3104. 9820 1EB9 51,64,65,93,318.: 9900 1EC3 46,201,210,220,317,321,322 : COLSTS 0000 1 t FTN 3.3B (OPT = LPC) DAYS PAGE 1 DATE: 08/30/84 TIME: 0034 t^ 1 SUBROUTINE DAYS( BUF1,BYT1,BUF2,BYT2,ASCDAY,DCALC ) 00001^^ 1 + /CALCULATE DAYS DIFFERENCE FOR TWO DATES (RWE) 00002^ ^ C** CYBERCREDIT FINANCIAL SERVICES. 00004^^ C** CYBERCREDIT FIELD SUPPORT GROUPS 00005^^ C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00006^^ C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983 00007^^ C** 00008^^ C** ************ 01/13/84 ************ PROGRAMMER : RWE 00009^ ^ C**** THIS SUBROUTINE WILL CALCULATE THE NUMBER OF DAYS DIFFERENCE 00011^^ C**** FOR TWO DATES. 00012^ ^ C**** PARAMETERS... 00014^^ C**** 00015^^ C**** BUF1 - BUFFER CONTAINING THE FIRST DATE (PAST DATE) 00016^^ C**** BYT1 - CHARACTER INDEX OF DATE STARTING POSITION IN BUF1 00017^^ C**** BUF2 - BUFFER CONTAINING THE SECOND DATE (LATEST DATE) 00018^^ C**** BYT2 - CHARACTER INDEX OF DATE STARTING POSITION IN BUF2 00019^^ C**** ASCDAY- 3 WORD BUFFER TO RECEIVE # OF DAYS IN ASCII 00020^^ C**** ZERO FILLED RIGHT ADJUSTED. 00021^^ C**** DCALC- FLAG FOR # OF DAYS DIFFERENCE CALCULATION 00022^^ C**** 0 = TOTAL DAYS DIFFERENCE 00023^^ C**** NOT 0 = TOTAL WEEKDAYS DIFFERENCE - NO WEEKEND DAYS 00024^  ^ 2 INTEGER BUF1(1),BYT1,BUF2(1),BYT2,ASCDAY(3),DCALC 00026^^ 2 1, DATE1(3),DATE2(3),DELTA,T1,T2,T3,NDAYS 00027^^ 2 2, INYR1,INMO1,INDY1,IDYYR1,IDYWK1 00028^^ 2 3, INYR2,INMO2,INDY2,IDYYR2,IDYWK2 00029^ ^ 3 REAL DYCT1,DYCT2 00031^  ^ C****** START PROGRAM 00033^ ^ 4 NDAYS = 0 00035^ ^ C**** GET FIRST DATE & DO CALC 00037^^ 5 CALL CCSMVA(BUF1,BYT1,06,DATE1,01,06) 00038^^ 6 IF ( IDATVR( DATE1, 1 ) .LT. 0 ) GO TO 200 00039^^ C 00040^^ 7 INMO1 = ICCSAD(DATE1(1)) 00041^^ 8 INDY1 = ICCSAD(DATE1(2)) 00042^^ 9 INYR1 = ICCSAD(DATE1(3)) 00043^ ^ 10 CALL YMD1 (INYR1,INMO1,INDY1,DYCT1,IDYYR1,IDYWK1) 00045^ ^ C**** GET SECOND DATE & DO CALC 00047^^ 11 CALL CCSMVA(BUF2,BYT2,06,DATE2,01,06) 00048^^ 12 IF ( IDATVR( DATE2, 1 ) .LT. 0 ) GO TO 200 00049^^ C 00050^^ 13 INMO2 = ICCSAD(DATE2(1)) 00051^^ 14 INDY2 = ICCSAD(DATE2(2)) 00052^t FTN 3.3B (OPT = LPC) DAYS PAGE 2 DATE: 08/30/84 TIME: 0034 t^ 15 INYR2 = ICCSAD(DATE2(3)) 00053^ ^ 16 CALL YMD1 (INYR2,INMO2,INDY2,DYCT2,IDYYR2,IDYWK2) 00055^  ^ C******* CALCULATE DAYS DIFFERENCE 00057^ ^ 17 DELTA = DYCT2 - DYCT1 00059^^ 18 T1 = DELTA/7 00060^^ 19 T2 = DELTA - ( T1 * 7 ) 00061^^ 20 T2 = T2+IDYWK1 00062^^ 21 IF( DCALC.EQ.2 .AND. IDYWK1.GE.6 ) T2 = T2+1 00063^^ 22 T3 = 0 00064^^ 23 DO 150 IL = IDYWK1,T2 00065^^ 24 IF (IL.EQ.06. OR .IL.EQ.07) T3=T3+1 00066^^ 25 150 CONTINUE 00067^^ 26 NDAYS = DELTA - ( T1*2 )-T3 00068^^ 27 IF ( DCALC .EQ. 0 ) NDAYS = DYCT2 - DYCT1 00069^^ C*** IF ( NDAYS .LT. 0 ) NDAYS = 0 00070^ ^ C**** NOW CONVERT DAYS TO ASCII 00072^ ^ 28 200 CALL HXDEC(NDAYS,ASCDAY) 00074^ ^ 29 RETURN 00076^^ 30 END 00077^t FTN 3.3B (OPT = LPC) DAYS PAGE 3 DATE: 08/30/84 TIME: 0034 t  PROGRAM LENGTH $00B7 ( 183)   EXTERNALS 2 HFLOT Q8PKUP Q8PREP CCSMVA IDATVR ICCSAD YMD1 2 HXDEC  t FTN 3.3B (OPT = LPC) DAYS PAGE 4 DATE: 08/30/84 TIME: 0034 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < 6 0001 (1) 0000 2,5,6,7,11,12,13,21,24 6, 0006 (6) 001A 5,5,11,21,24 ,( 0007 (7) 001B 18,19,24 (   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & ASCDAY INTEGER 7FFF 1,2,28 &$ BUF1 INTEGER 7FFF 1,2,5$& BUF2 INTEGER 7FFF 1,2,11 &$ BYT1 INTEGER 7FFF 1,2,5$& BYT2 INTEGER 7FFF 1,2,11 &* DATE1 INTEGER 0001 2,5,6,7,8,9*0 DATE2 INTEGER 0004 2,11,12,13,14,15 0( DCALC INTEGER 7FFF 1,2,21,27(, DELTA INTEGER 0007 2,17,18,19,26,* DYCT1 REAL 0016 2,10,17,27 ** DYCT2 REAL 0018 2,16,17,27 *, IDYWK1 INTEGER 0010 2,10,20,21,23,$ IDYWK2 INTEGER 0015 2,16 $$ IDYYR1 INTEGER 000F 2,10 $$ IDYYR2 INTEGER 0014 2,16 $$ IL INTEGER 001C 22,24$& INDY1 INTEGER 000E 2,8,10 && INDY2 INTEGER 0013 2,14,16&& INMO1 INTEGER 000D 2,7,10 && INMO2 INTEGER 0012 2,13,16&& INYR1 INTEGER 000C 2,9,10 && INYR2 INTEGER 0011 2,15,16&, NDAYS INTEGER 000B 2,4,26,27,28 ,* T1 INTEGER 0008 2,18,19,26 *, T2 INTEGER 0009 2,19,20,21,23,* T3 INTEGER 000A 2,22,24,26 *t FTN 3.3B (OPT = LPC) DAYS PAGE 5 DATE: 08/30/84 TIME: 0034 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ CCSMVA SUBROUTINE 0020 4,11 $ HFLOT REAL.FN. 005E " HXDEC SUBROUTINE 0098 28 ". ICCSAD INTEGER.FN. 002F 7,8,9,13,14,15 .$ IDATVR INTEGER.FN. 0028 6,12 $ Q8PKUP INTEGER.FN. 00A4 Q8PREP INTEGER.FN. 00A1 $ YMD1 SUBROUTINE 0039 9,16 $   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 150 0083 22,25$& 200 0097 6,12,28& DAYS 009E 1  t FTN 3.3B (OPT = LPC) FIXINA PAGE 1 DATE: 08/30/84 TIME: 0034 t^ 1 PROGRAM FIXINA 00001^^ 1 1 /FIX INACCT FILE (NYGSBC) 10/81. LKL07 01/84 00002^ ^ C** CYBERCREDIT FINANCIAL SERVICES. 00004^^ C** CYBERCREDIT FIELD SUPPORT GROUPS 00005^^ C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00006^^ C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983 00007^^ C** 00008^^ C** ************ 12/21/83 ************ PROGRAMMER : RWE 00009^ ^ C*** REBUILD INACCT FILE : 00011^^ C FIRST CLEAR THE INACCT FILE THEN 00012^^ C READ THE DELQMST FILE AND CREATE A NEW 00013^^ C RECORD FOR EVERY INACTIVE ACCOUNT AND STORE 00014^^ C IT IN THE INACCT FILE. IF THE DATE THE ACCT. 00015^^ C WENT INACTIVE IS INVALID THEN USE TODAYS DATE. 00016^ ^ 2 EXTERNAL FMRDEL,FMEOFC 00018^^ 3 INTEGER FMRDEL,FDEL,FMEOFC,FEOF 00019^ ^ 4 INTEGER DLQREC(11004),DLQREQ(24),DDATA(15),DATE(6),KEY(15) 00021^^ 4 +, INAREC(292),INAREQ(24),IDATA(15),IDUSER(4),FREQ 00022^^ 4 +, RSWCT(3), RSW(3),DST,IST,EOF,STATCD,DQ(4),LA(4) 00023^^ 4 +, MSBCT(3), MSG(8) 00024^ ^ 5 EQUIVALENCE ( DLQREQ(15), NUMREC ) 00026^ ^ 6 DATA RSW/$0052,$0053,$0057/, RSWCT/3*0/,DQ/'DELQMST '/ 00028^^ 6 +, DLQREQ, INAREQ/48*0/,LA/'LA '/,EOF/0/ 00029^^ 6 +, DDATA/'LADLQMST',' ',4*$2020,0,11,0/ 00030^^ 6 +, IDATA/'LAINACCT',' ',4*$2020,0,1,-1/ 00031^^ 6 +, MSBCT/ 3*0/, MSG/$0D0A,' X - '/ 00032^  ^ C**** BEGIN REBIULD OF THE INACCT FILE ....... 00034^ ^ 7 ASSEM $C000,FMRDEL,$6800,FDEL 00036^^ 8 ASSEM $C000,FMEOFC,$6800,FEOF 00037^ ^ 9 CALL PGMIN(IDUSER,LUNIT,IMODE,NOPORT) 00039^^ 10 CALL CCSCST(IDUSER,1,8,LA,1,8,ICM) 00040^^ 11 IF(ICM.EQ.0) GO TO 5 00041^^ 12 CALL CCSMVA(DQ,1,8,DDATA,1,8) 00042^^ 13 CALL CCSMVA(IDATA,3,6,IDATA,1,8) 00043^^ 14 5 CONTINUE 00044^^ 15 ASSIGN 9000 TO IABORT 00045^^ 16 CALL PGMINT(IABORT,KK) 00046^ ^ C*** FIRST PICK UP THE SYSTEM DATE. 00048^^ 17 CALL UTHEAD( DLQREC, DATE ) 00049^ ^ 18 FREQ=1 00051^^ 19 CALL CLEAR(INAREQ,IDATA,ISTAT) 00052^^ 20 IF(ISTAT.LT.0)GO TO 7100 00053^t FTN 3.3B (OPT = LPC) FIXINA PAGE 2 DATE: 08/30/84 TIME: 0034 t^ 21 DO 50 IZ=1,24 00054^^ 22 50 INAREQ(IZ)=0 00055^^ 23 FREQ = 3 00056^^ 24 CALL OPENFL(INAREQ,IDATA,ISTAT) 00057^^ 25 IF (ISTAT .LT. 0) GOTO 7100 00058^^ 26 CALL OPENFL(DLQREQ,DDATA,ISTAT) 00059^^ 27 IF (ISTAT .LT. 0) GOTO 7000 00060^^ 28 DLQREQ(23) = 1 00061^^ 29 CALL LOKFIL(DLQREQ,JSTAT) 00062^ ^ 30 100 CONTINUE 00064^^ 31 CALL GETS(DLQREQ,DLQREC,KEY ,ISTAT) 00065^^ 32 IF(AND(ISTAT,$8100).EQ.$8100) GO TO 9000 00066^^ 33 IF (AND(ISTAT,$0100) .EQ. $0100) EOF = 1 00067^^ 34 IF (AND(ISTAT,$0100) .EQ. $0100) GO TO 150 00068^^ 35 FREQ = 14 00069^^ 36 IF (ISTAT .LT. 0) GOTO 7000 00070^ ^ 37 150 CONTINUE 00072^^ 38 INRECS = 0 00073^^ 39 DO 500 LOOP = 1,NUMREC 00074^^ 40 DST = 1000*LOOP-999 00075^^ 41 IF (DLQREC(DST) .EQ. FDEL) GO TO 500 00076^^ 42 IF (DLQREC(DST) .EQ. FEOF) GO TO 500 00077^ ^ 43 CALL CCSGET(DLQREC(DST),306,STATCD) 00079^ ^ C CHECK STATUS CODE FOR R,S, OR W 00081^^ 44 DO 200 I = 1,3 00082^^ 45 IF (STATCD .EQ. RSW(I)) GOTO 300 00083^^ 46 200 CONTINUE 00084^^ 47 GOTO 500 00085^^ 48 300 CONTINUE 00086^^ 49 INRECS=INRECS+1 00087^^ 50 IST = 12*INRECS-11 00088^ ^ 51 RSWCT(I) = RSWCT(I)+1 00090^ ^ C*** MSB MODULO 30,000 FOR DOUBLE PRECISION 00092^^ 52 IF ( RSWCT(I).LT.30000 ) GO TO 310 00093^^ 53 RSWCT(I) = 0 00094^^ 54 MSBCT(I) = MSBCT(I) + 1 00095^^ 55 310 CONTINUE 00096^ ^ 56 CALL CCSBLK(INAREC(IST),24) 00098^^ 57 CALL CCSMVA(DLQREC(DST),1,16,INAREC(IST),1,16) 00099^^ 58 CALL CCSPUT(STATCD,17,INAREC(IST)) 00100^^ 59 CALL CCSPUT( $50 ,18,INAREC(IST)) 00101^^ 60 CALL CCSMVA(DLQREC(DST),857,6,INAREC(IST),19,6) 00102^ ^ C**** VERIFY DATE ACCOUNT LAST UPDATED FROM HOST 00104^^ 61 IOK = IDATVR( DLQREC(DST), 857 ) 00105^^ 62 IF ( IOK.LT.0 ) CALL CCSMVA(DATE,1,6,INAREC(IST),19,6) 00106^^ 63 IF ( IOK.LT.0 ) CALL CCSMVA(DATE,1,6,DLQREC(DST),857,6) 00107^t FTN 3.3B (OPT = LPC) FIXINA PAGE 3 DATE: 08/30/84 TIME: 0034 t ^ 64 500 CONTINUE 00109^^ 65 IF (INRECS.EQ.0)GO TO 550 00110^^ 66 CALL PUTS(INAREQ,INAREC,INRECS,ISTAT) 00111^^ 67 FREQ = 11 00112^^ 68 IF (ISTAT.LT.0) GO TO 7100 00113^^ 69 550 CONTINUE 00114^^ 70 IF(JSTAT.LT.0) GO TO 560 00115^^ 71 CALL UPDREC(DLQREQ,DLQREC,ISTAT) 00116^^ 72 IF (ISTAT.GE.0) GO TO 560 00117^^ 73 FREQ = 15 00118^^ 74 GO TO 7000 00119^ ^ 75 560 CONTINUE 00121^^ 76 IF (EOF.EQ.1)GO TO 9000 00122^^ 77 GO TO 100 00123^ ^ C**** ERROR REPORTING......... 00125^^ 78 7000 CONTINUE 00126^^ 79 CALL FILERR(DDATA,FREQ,ISTAT,LUNIT) 00127^^ 80 GOTO 9500 00128^^ 81 7100 CONTINUE 00129^^ 82 CALL FILERR(IDATA,FREQ,ISTAT,LUNIT) 00130^^ 83 GOTO 9500 00131^ ^ C**** DISPLAY TOTALS AND THEN END..... 00133^ ^ 84 9000 CONTINUE 00135^^ 85 DO 9050 I = 1,3 00136^ ^ 86 CALL CCSPUT( RSW(I), 4, MSG ) 00138^^ 87 CALL HXDEC ( RSWCT(I), MSG(5)) 00139^^ 88 IF ( MSBCT(I).EQ.0 ) GO TO 9010 00140^^ 89 MSG(5) = $2030 + MSBCT(I)*3 + AND( MSG(5), $F ) 00141^^ 90 9010 CONTINUE 00142^^ 91 CALL WTREAD(05,-1,MSG,16,0,0,0,ITC) 00143^^ 92 9050 CONTINUE 00144^^ 93 CALL WTREAD(05,-1,MSG,02,0,0,0,ITC) 00145^ ^ 94 9500 CONTINUE 00147^^ 95 CALL CLOSFL(DLQREQ,ISTAT) 00148^^ 96 CALL CLOSFL(INAREQ,ISTAT) 00149^^ 97 CALL PGMOUT 00150^^ 98 END 00151^t FTN 3.3B (OPT = LPC) FIXINA PAGE 4 DATE: 08/30/84 TIME: 0034 t  PROGRAM LENGTH $2E86 ( 11910)   EXTERNALS 2 Q8STP FMRDEL FMEOFC PGMIN CCSCST CCSMVA PGMINT 22 UTHEAD CLEAR OPENFL LOKFIL GETS CCSGET CCSBLK 22 CCSPUT IDATVR PUTS UPDREC FILERR HXDEC WTREAD 2 CLOSFL PGMOUT  t FTN 3.3B (OPT = LPC) FIXINA PAGE 5 DATE: 08/30/84 TIME: 0034 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < $ 8100 (-32511) 2CB8 32,32$$ FFFE (-1) 2CCC 91,93$T 0000 (0) 0003 6,11,20,22,25,27,36,38,53,62,63,65,68,70,72,88,91,93 TZ 0001 (1) 0002 6,10,12,13,18,21,28,33,39,44,49,51,54,57,62,63,76,85,91,93 Z" 0002 (2) 2CCE 93 ". 0003 (3) 2CB0 13,23,44,85,89 ." 0004 (4) 2CC9 86 "$ 0005 (5) 2CCB 90,93$* 0006 (6) 2CB1 13,60,62,63** 0008 (8) 2CAE 10,10,12,13*$ 000F (15) 2CC8 73,89$( 0010 (16) 2CC1 57,57,91 (" 0011 (17) 2CC2 58 "" 0012 (18) 2CC4 59 "$ 0013 (19) 2CC6 60,62$$ 0018 (24) 2CB6 21,56$" 0050 (80) 2CC3 59 "( 0100 (256) 2CB9 33,33,34 (" 0132 (306) 2CBE 43 "( 0359 (857) 2CC5 60,61,63 (" 03E7 (999) 2CBD 40 "" 03E8 (1000) 2CBC 40 "" 2030 (8240) 2CCA 89 "" 7530 (30000) 2CC0 52 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * AND INTR.FN. 7FFF 32,33,34,89** DATE INTEGER 2B29 3,17,62,63 *, DDATA INTEGER 2B1A 3,6,12,26,79 ,> DLQREC INTEGER 0006 3,17,31,41,42,43,57,60,61,63,71>6 DLQREQ INTEGER 2B02 3,5,6,26,28,29,31,71,956& DQ INTEGER 2C98 3,6,12 &8 DST INTEGER 2C94 3,40,41,42,43,57,60,61,638( EOF INTEGER 2C96 3,6,33,76(& FDEL INTEGER 0004 3,7,41 && FEOF INTEGER 0005 3,8,42 &6 FREQ INTEGER 2C8D 3,18,23,35,67,73,79,82 6@ I INTEGER 2CBF 43,45,51,52,53,54,85,86,87,88,89 @$ IABORT INTEGER 2CB2 14,16$$ ICM INTEGER 2CAF 10,11$. IDATA INTEGER 2C7A 3,6,13,19,24,82.t FTN 3.3B (OPT = LPC) FIXINA PAGE 6 DATE: 08/30/84 TIME: 0034 t& IDUSER INTEGER 2C89 3,9,10 & IMODE INTEGER 2CAC 9 6 INAREC INTEGER 2B3E 3,56,57,58,59,60,62,66 62 INAREQ INTEGER 2C62 3,6,19,22,24,66,96 20 INRECS INTEGER 2CBA 37,38,49,50,65,660* IOK INTEGER 2CC7 60,61,62,63*6 IST INTEGER 2C95 3,50,56,57,58,59,60,62 6X ISTAT INTEGER 2CB4 19,20,24,25,26,27,31,32,33,34,36,66,68,71,72,79,82,95,96 X$ ITC INTEGER 2CCD 91,93$$ IZ INTEGER 2CB5 20,22$$ JSTAT INTEGER 2CB7 29,70$$ KEY INTEGER 2B2F 3,31 $" KK INTEGER 2CB3 16 "& LA INTEGER 2C9C 3,6,10 &$ LOOP INTEGER 2CBB 38,40$& LUNIT INTEGER 2CAB 9,79,82&, MSBCT INTEGER 2CA0 3,6,54,88,89 ,2 MSG INTEGER 2CA3 3,6,86,87,89,91,93 2 NOPORT INTEGER 2CAD 9 $ NUMREC INTEGER 2B10 5,39 $( RSW INTEGER 2C91 3,6,45,86(. RSWCT INTEGER 2C8E 3,6,51,52,53,87.* STATCD INTEGER 2C97 3,43,45,58 *   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSBLK SUBROUTINE 2DAB 55 " CCSCST SUBROUTINE 2CDE 9 " CCSGET SUBROUTINE 2D80 42 "0 CCSMVA SUBROUTINE 2DB7 11,13,57,60,62,630( CCSPUT SUBROUTINE 2E44 57,59,86 (" CLEAR SUBROUTINE 2D06 18 "$ CLOSFL SUBROUTINE 2E7B 94,96$$ FILERR SUBROUTINE 2E30 78,82$" GETS SUBROUTINE 2D38 29 "" HXDEC SUBROUTINE 2E4D 86 "" IDATVR INTEGER.FN. 2DE4 61 "" LOKFIL SUBROUTINE 2D34 28 "$ OPENFL SUBROUTINE 2D1E 23,26$ PGMIN SUBROUTINE 2CD8 8 " PGMINT SUBROUTINE 2CFC 14 "" PGMOUT SUBROUTINE 2E82 96 "" PUTS SUBROUTINE 2E0D 65 " Q8STP INTEGER.FN. 2E84 " UPDREC SUBROUTINE 2E1F 70 "" UTHEAD SUBROUTINE 2D00 16 "$ WTREAD SUBROUTINE 2E63 90,93$t FTN 3.3B (OPT = LPC) FIXINA PAGE 7 DATE: 08/30/84 TIME: 0034 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 5 2CF8 11,14$$ 50 2D11 20,22$$ 100 2D37 29,77$$ 150 2D58 34,37$$ 200 2D8E 43,46$$ 300 2D94 45,48$$ 310 2DA6 52,55$. 500 2E04 38,41,42,47,64 .$ 550 2E1A 65,69$( 560 2E29 70,72,75 (* 7000 2E2F 27,36,74,78** 7100 2E36 20,25,68,81** 9000 2E3C 14,32,76,84*$ 9010 2E62 88,90$$ 9050 2E6C 84,92$( 9500 2E7A 79,83,94 ( FIXINA 0000 1  t FTN 3.3B (OPT = LPC) QCST PAGE 1 DATE: 08/30/84 TIME: 0035 t^ 1 SUBROUTINE QCST(TS,S1,P1,L1,S2,P2,L2,COMPIN) 00001^^ 1 1 /C56 F CCS CCS 3.1 .PSRD 03/83 SL-173 00002^^ C 00003^^ C COMPARE STRING ONE WITH STRING TWO; INDICATE WHETHER STRING ONE 00004^^ C IS LESS-THAN, EQUAL-TO, OR GREATER-THAN STRING TWO. 00005^^ C 00006^^ C TS: TYPE OF STRINGS -- 00007^^ C N = NUMERIC, T = TOTAL; ALL OTHERS CONSIDERED ALPHANUMERIC. 00008^^ C IF EITHER STRING HAS LENGTH ZERO, BOTH STRINGS ARE ASSUMED 00009^^ C TO BE ALPHANUMERIC. 00010^^ C 00011^^ C S1: ARRAY CONTAINING STRING ONE 00012^^ C P1: STARTING BYTE NUMBER OF STRING ONE 00013^^ C L1: NUMBER OF BYTES IN STRING ONE 00014^^ C 00015^^ C S2: ARRAY CONTAINING STRING TWO 00016^^ C P2: STARTING BYTE NUMBER OF STRING TWO 00017^^ C L2: NUMBER OF BYTES IN STRING TWO 00018^^ C 00019^^ C COMPIN: COMPARE INDICATOR -- 00020^^ C <0 STRING ONE IS LESS-THAN STRING TWO 00021^^ C =0 STRING ONE EQUALS STRING TWO 00022^^ C >0 STRING ONE IS GREATER-THAN STRING TWO 00023^^ C 00024^^ C 00025^^ 2 INTEGER TS,S1,P1,L1,S2,P2,L2,COMPIN 00026^^ 2 1 , DIGIT1, DIGIT2 00027^^ 2 2 , SMAP(10), DMAP(10) 00028^^ C 00029^^ 3 DATA SMAP/$7D, $4A, $4B, $4C, $4D, $4E, $4F, $50, $51, $52/ 00030^^ 4 DATA DMAP/$30, $31, $32, $33, $34, $35, $36, $37, $38, $39/ 00031^^ C 00032^^ C--- IF STRING TYPE IS ALPHA, JUST DO STRAIGHT COMPARE. 00033^^ 5 IF(.NOT.(TS.EQ.$4E.OR.TS.EQ.$54)) GO TO 110 00034^^ C 00035^^ C--- SEE IF EITHER STRING HAS LENGTH ZERO. 00036^^ 6 IF(L1.EQ.0.OR.L2.EQ.0) GO TO 110 00037^^ C 00038^^ C--- COMPUTE BYTE INDEX TO LAST DIGIT OF EACH STRING. 00039^^ 7 LAST1 = P1 + L1 - 1 00040^^ 8 LAST2 = P2 + L2 - 1 00041^^ C 00042^^ C--- FETCH LAST DIGIT OF EACH STRING. 00043^^ 9 CALL CCSGET(S1,LAST1,DIGIT1) 00044^^ 10 CALL CCSGET(S2,LAST2,DIGIT2) 00045^^ C 00046^^ C--- SEE IF STRING ONE IS NON-NEGATIVE. 00047^^ 11 IF(DIGIT1.LT.$41 .OR. DIGIT1.GT.$49) GO TO 45 00048^^ 12 DIGIT1 = DIGIT1 - $10 00049^^ 13 CALL CCSPUT(DIGIT1,LAST1,S1) 00050^^ 14 45 CONTINUE 00051^^ 15 IF(DIGIT1.GE.$30.AND.DIGIT1.LE.$39) GO TO 100 00052^^ C 00053^^ C--- STRING ONE IS NEGATIVE; SEE IF STRING TWO IS NON-NEGATIVE. 00054^t FTN 3.3B (OPT = LPC) QCST PAGE 2 DATE: 08/30/84 TIME: 0035 t^ 16 IF(DIGIT2.GE.$30.AND.DIGIT2.LE.$39) GO TO 200 00055^^ C 00056^^ C--- BOTH STRINGS ARE NEGATIVE; MAKE THEM POSITIVE. 00057^^ 17 DO 50 I = 1,10 00058^^ 18 IF(DIGIT1.EQ.SMAP(I)) CALL CCSPUT(DMAP(I),LAST1,S1) 00059^^ 19 IF(DIGIT2.EQ.SMAP(I)) CALL CCSPUT(DMAP(I),LAST2,S2) 00060^^ 20 50 CONTINUE 00061^^ C 00062^^ C--- NOW COMPARE THESE POSITIVE STRINGS. 00063^^ 21 CALL CCSCST(S1,P1,L1,S2,P2,L2,COMPIN) 00064^^ C 00065^^ C--- COMPLEMENT THE COMPARISON INDICATOR IF IT IS NON-ZERO. 00066^^ 22 IF(COMPIN.NE.0) COMPIN = -COMPIN 00067^^ C 00068^^ C--- RESTORE LAST DIGIT OF EACH STRING, THEREBY MAKING THEM NEGATIVE. 00069^^ 23 CALL CCSPUT(DIGIT1,LAST1,S1) 00070^^ 24 CALL CCSPUT(DIGIT2,LAST2,S2) 00071^^ 25 GO TO 30000 00072^^ C 00073^^ C--- STRING ONE IS NON-NEGATIVE; SEE IF STRING TWO IS NON-NEGATIVE. 00074^^ 26 100 CONTINUE 00075^^ 27 IF(DIGIT2.LT.$41 .OR. DIGIT2.GT.$49) GO TO 105 00076^^ 28 DIGIT2 = DIGIT2 - $10 00077^^ 29 CALL CCSPUT(DIGIT2,LAST2,S2) 00078^^ 30 105 CONTINUE 00079^^ 31 IF(DIGIT2.GE.$30.AND.DIGIT2.LE.$39) GO TO 110 00080^^ C 00081^^ C--- STRING ONE IS GREATER-THAN STRING TWO. 00082^^ 32 COMPIN = 1 00083^^ 33 GO TO 30000 00084^^ C 00085^^ C--- BOTH STRINGS ARE NON-NEGATIVE. 00086^^ 34 110 CONTINUE 00087^^ 35 CALL CCSCST(S1,P1,L1,S2,P2,L2,COMPIN) 00088^^ 36 GO TO 30000 00089^^ C 00090^^ C--- STRING ONE IS LESS-THAN STRING TWO. 00091^^ 37 200 CONTINUE 00092^^ 38 COMPIN = -1 00093^^ C 00094^^ C 00095^^ 39 30000 RETURN 00096^^ 40 END 00097^t FTN 3.3B (OPT = LPC) QCST PAGE 3 DATE: 08/30/84 TIME: 0035 t  PROGRAM LENGTH $00E4 ( 228)   EXTERNALS & Q8PKUP Q8PREP CCSGET CCSPUT CCSCST & t FTN 3.3B (OPT = LPC) QCST PAGE 4 DATE: 08/30/84 TIME: 0035 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < 2 COMPIN INTEGER 7FFF 1,2,21,22,32,35,38 24 DIGIT1 INTEGER 0000 2,9,11,12,13,15,18,2348 DIGIT2 INTEGER 0001 2,10,16,19,24,27,28,29,318( DMAP INTEGER 000C 2,4,18,19(( I INTEGER 0018 16,18,19 (, L1 INTEGER 7FFF 1,2,6,7,21,35,, L2 INTEGER 7FFF 1,2,6,8,21,35,. LAST1 INTEGER 0016 6,7,9,13,18,23 .. LAST2 INTEGER 0017 7,8,10,19,24,29.* P1 INTEGER 7FFF 1,2,7,21,35** P2 INTEGER 7FFF 1,2,8,21,35*4 S1 INTEGER 7FFF 1,2,9,13,18,21,23,35 44 S2 INTEGER 7FFF 1,2,10,19,21,24,29,354( SMAP INTEGER 0002 2,3,18,19($ TS INTEGER 7FFF 1,2,5$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ CCSCST SUBROUTINE 007C 20,35$$ CCSGET SUBROUTINE 0036 8,10 $0 CCSPUT SUBROUTINE 0048 12,18,19,23,24,290 Q8PKUP INTEGER.FN. 00BF Q8PREP INTEGER.FN. 00BC    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 45 004C 11,14$$ 50 0076 16,20$$ 100 0094 15,26$$ 105 00A2 27,30$( 110 00AB 5,6,31,34($ 200 00B4 16,37$* 30000 00B6 24,33,36,39* QCST 00B9 1 t FTN 3.3B (OPT = LPC) REALN PAGE 1 DATE: 08/30/84 TIME: 0035 t^ 1 SUBROUTINE REALN ( INBF, NCH, ROUT, I2WRD ) 00001^^ 1 1 /CONVERT ASCII TO REAL - 2 WORD INTEGER SL-*** 00002^ ^ C** CYBERCREDIT FINANCIAL SERVICES. 00004^^ C** CYBERCREDIT FIELD SUPPORT GROUPS 00005^^ C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00006^^ C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983 00007^^ C** 00008^^ C** ************ 06/03/83 ************ PROGRAMMER : RWE 00009^ ^ 2 INTEGER INBF(1),I2WRD(1),R9SW,RPGSW 00011^^ 3 DOUBLE PRECISION IDBL,JWK,JXP,J,J10,R2 00012^^ 4 DATA R9SW /$E3/ 00013^ ^ C**** CLEAR FTN SCRATCH - DUE TO FTN BUG. 06/83 00015^^ C** 00016^^ C** ENA 0 / STA $C9 00017^^ 5 ASSEM $0A00, $60C9 00018^^ C*** LDQ LDA STA 00019^^ 6 ASSEM $E400,+R9SW,$C622,$6400,+RPGSW 00020^ ^ 7 J = 0 00022^^ 8 J10 = 10 00023^^ 9 ROUT = 0.0 00024^^ 10 IDBL = 0 00025^^ 11 DO 100 I = NCH, 1, -1 00026^^ 12 CALL CCSGET (INBF, I, IWK) 00027^^ 13 IWK = AND (IWK, $F) 00028^^ 14 JWK = IWK 00029^^ 15 JXP = J10**J 00030^^ 16 IDBL = (JWK * JXP) + IDBL 00031^^ 17 J = J + 1 00032^^ 18 100 CONTINUE 00033^^ 19 ROUT = IDBL 00034^^ 20 I2WRD(1) = 0 00035^^ 21 I2WRD(2) = 0 00036^^ 22 RTMP = ROUT 00037^^ 23 200 IF ( RTMP.LT.32768.0 ) GOTO 300 00038^^ 24 IDIV = RTMP/32767.0 00039^^ 25 I2WRD(1) = IDIV 00040^^ 26 R2 = IDIV*32767.0 00041^^ 27 RTMP = RTMP - R2 00042^^ 28 300 CONTINUE 00043^^ 29 I2WRD(2) = RTMP 00044^ ^ C**** RESTORE RPG EXTERNAL SWITCH SETTINGS !! 00046^ ^ 30 ASSEM $C400,+RPGSW,$E400,+R9SW,$6622 00048^ ^ 31 RETURN 00050^^ 32 END 00051^t FTN 3.3B (OPT = LPC) REALN PAGE 2 DATE: 08/30/84 TIME: 0035 t  PROGRAM LENGTH $00BD ( 189)   EXTERNALS 2 HFLOT Q8PKUP Q8PREP HDFLOT FLOAT DFLT DBLE 2 Q8QD2D CCSGET  t FTN 3.3B (OPT = LPC) REALN PAGE 3 DATE: 08/30/84 TIME: 0035 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : <  0000 0000 0062 9 , 0001 (1) 0000 2,11,17,20,25," 000F (15) 0017 13 "$ 47FF FF00 00A0 24,26$" 4840 0000 009E 23 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " AND INTR.FN. 7FFF 13 "$ I INTEGER 0015 10,12$. I2WRD INTEGER 7FFF 1,2,20,21,25,29.* IDBL DBLE.PREC. 0003 2,10,16,19 ** IDIV INTEGER 001A 23,24,25,26*& INBF INTEGER 7FFF 1,2,12 &( IWK INTEGER 0016 12,13,14 (( J DBLE.PREC. 000C 2,7,15,17(& J10 DBLE.PREC. 000F 2,8,15 && JWK DBLE.PREC. 0006 2,14,16&& JXP DBLE.PREC. 0009 2,15,16&$ NCH INTEGER 7FFF 1,11 $& R2 DBLE.PREC. 0012 2,26,27&( R9SW INTEGER 0001 2,4,6,30 (( ROUT REAL 7FFF 1,9,19,22(& RPGSW INTEGER 0002 2,6,30 &0 RTMP REAL 0018 21,22,23,24,27,290   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSGET SUBROUTINE 0040 11 " DBLE DBL.PRC.FN. 008C DFLT DBL.PRC.FN. 0059 FLOAT REAL.FN. 0083 HDFLOT DBL.PRC.FN. 0025 HFLOT REAL.FN. 0030 Q8PKUP INTEGER.FN. 00AD Q8PREP INTEGER.FN. 00AA Q8QD2D DBL.PRC.FN. 004D t FTN 3.3B (OPT = LPC) REALN PAGE 4 DATE: 08/30/84 TIME: 0035 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 100 005F 10,18$" 200 0073 22 "$ 300 0094 23,28$ REALN 00A7 1 t FTN 3.3B (OPT = LPC) RSWCHG PAGE 1 DATE: 08/30/84 TIME: 0035 t^ 1 PROGRAM RSWCHG 00001^^ 1 1 /XXX F CCS CCS3.0 .LA LKL07 SL-XXX 00002^ ^ C THIS PROGRAM IS TO CHECK EVERY RECORD IN THE TRANSACTION FILE 00004^^ C FOR ANY CHANGE OF AN ACCOUNT'S STATUS CODE. FOR THOSE ACCOUNTS 00005^^ C WHOSE STATUS CODES ARE CHANGED, THE DELQMST RECORD IS UPDATED 00006^^ C WITH THE SYSTEM DATE IN LAST HOST UPDATE FIELD. 00007^^ C 00008^^ C THE SCAN OF THE TRANSACTION FILE WILL LOOK FOR NON-FINANCIAL 00009^^ C UPDATE RECORDS (TYPE = '02') AND CHECK FOR UPDATE CODES MATCH- 00010^^ C ING THE CODE ASSIGNED TO STATUS CODE ON THE SUPERVISOR'S 00011^^ C CHANGE SCREEN. THE UPDATE CODE FOR STATUS CODE CHANGES IS 00012^^ C DETERMINED VIA THE SYSTEM MODULE 'GETCHF' (IN PROGRAM LIBRARY 00013^^ C IN RELOCATABLE FORM). THIS ROUTINE HAS THE FOLLOWING CALLING 00014^^ C SEQUENCE: 00015^^ C CALL GETCHF(SCREEN,XXXCHG) 00016^^ C WHERE 00017^^ C SCREEN = CHANGE SCREEN TEMPLATE RETRIEVED FROM THE SCREEN 00018^^ C FILE ('SCRNFILE'). 00019^^ C XXXCHG = IS A 3*N+1 ARRAY WHERE N IS THE MAXIMUM NUMBER OF 00020^^ C ITEMS THAT CAN APPEAR ON THE CHANGE SCREEN. INI- 00021^^ C TIALLY, XXXCHG MUST BE SET AS FOLLOWS: 00022^^ C WORD 1 = -N 00023^^ C ALL OTHER WORDS ARE TO BE SET TO ZERO. 00024^^ C ON RETURN, XXXCHG HAS THE FOLLOWING MEANING: 00025^^ C WORD 1 = N 00026^^ C WITH REMAINING WORDS GROUPED INTO THREES: 00027^^ C WORD 1 = X-Y POSITION OF CHANGE FIELD ON 00028^^ C SCREEN. 00029^^ C WORD 2 = LENGTH OF CHANGE ITEM (BITS 15 THR 00030^^ C 4) AND FIELD TYPE (BITS 3 THRU 0) 00031^^ C WORD 3 = STARTING POSITION IN FILE RECORD. 00032^^ C THE THREE WORDS DESCRIBING CHANGE ITEM 'XX' (THE NUMBER 00033^^ C KEYED TO CHANGE THE FIELD) ON THE CHANGE SCREEN IS FOUND 00034^^ C IN THE FOLLOWING WORDS IN XXXCHG: 00035^^ C WORD 3* 'XX' -1 = X-Y POSITION. 00036^^ C 3* 'XX' = LENGTH AND FIELD TYPE. 00037^^ C 3* 'XX' +1 = FILE POSITION. 00038^^ C TO OBTAIN THE UPDATE CODE USED TO REPORT ANY TRANSACTION TO 00039^^ C THE TRANSACTION FILE, TAKE THE ITEM NUMBER ASSIGNED TO THE 00040^^ C FIELD ON THE CHANGE SCREEN AND ADD THE FOLLOWING BIAS 00041^^ C (DEPENDENT ON SCREEN): 00042^^ C SCREEN BIAS 00043^^ C CUSTOMER CHANGE 0 00044^^ C COSIGNER CHANGE 30 00045^^ C SUPERVISOR CHANGE 60 00046^^ C THE FOLLOWING RESTRICTIONS APPLY ON THE MAXIMUM NUMBER OF 00047^^ C ITEMS (AND MAXIMUM ITEM NUMBER IN CASE OF NON-SEQUENTIAL NUM- 00048^^ C BERING OF ITEMS ON CHANGE SCREEN) THAT CAN APPEAR ON THE 00049^^ C CHANGE SCREENS: 00050^^ C SCREEN MAX (N) 00051^^ C CUSTOMER CHANGE 30 00052^^ C COSIGNER CHANGE 30 00053^^ C SPERVISOR CHANGE 20 00054^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 2 DATE: 08/30/84 TIME: 0035 t  ^ C FILE MANAGER REQUEST AND DATA BUFFERS. 00056^   ^ C SCREEN FILE. 00058^ ^ 2 INTEGER REQBFS(24) , IDATAS(15) , SRNREC(1002) 00060^ ^ 3 DATA REQBFS / 24*0 / 00062^^ C FILE ACCESS BY KEY 1, ONE RECORD PER RETRIEVE AND NO LOCKING. 00063^^ 4 DATA IDATAS / 'LASCNFIL' , 8*$2020 , 1 , 1 , 0 / 00064^  ^ C TRANSACTION FILE. 00066^ ^ 5 INTEGER REQBFT(24) , IDATAT(15) , TRNREC(03452) , TRECLN 00068^^ C*NOTE: RECORD SIZE = 69 WORDS. SPACE ALLOCATED FOR 50- 02/83*** 00069^ ^ 6 DATA REQBFT / 24*0 / 00071^^ C FILE ACCESS SEQUENTIAL BY RELATIVE RECORD NUMBER, 50 RECORDS 00072^^ C PER RETRIEVE AND NO LOCKING. 00073^^ 7 DATA IDATAT / 'LATRNSFL' , 8*$2020 , 0 , 50, 0 / 00074^^ C RECORD LENGTH = 69 WORDS. 00075^^ 8 DATA TRECLN / 69 / 00076^  ^ C*************************************************** RSWFIL MODS 9/80 ** 00078^^ 9 INTEGER DEQREQ(24),DEQDAT(15),DEQREC(1004),KEY1(9),WRSB(2) 00079^^ 10 INTEGER ACCREQ(24),ACCDAT(15),ACCREC(44),A99X(2,3),A999(2) 00080^^ 11 INTEGER RSWREQ(24),RSWDAT(15),RSWREC(44),A998(2),A997(2) 00081^ ^ 12 EQUIVALENCE (A997(1),A99X(1,1)),(A998(1),A99X(1,2)) , 00083^^ 12 + (A999(1),A99X(1,3)),(ACCREC(1),RSWREC(1)) 00084^^ 13 DATA WRSB / 'WRS ' / , A997 /'997 '/ , A998 /'998 '/ ,A999/'999 '/ 00085^^ 14 DATA DEQREQ/24*0/,DEQDAT/'LADLQMST ',1,1,0/ 00086^^ 15 DATA ACCREQ/24*0/,ACCDAT/'LAACCAGE ',1,1,0/ 00087^^ 16 DATA RSWREQ/24*0/,RSWDAT/'LARSWFIL ',0,1,0/ 00088^ ^ 17 INTEGER SCNDAT(4),DLQDAT(4) 00090^^ 18 DATA SCNDAT/'SCRNFILE'/,DLQDAT/'DELQMST '/ 00091^^ C 00092^^ C 00093^^ C*************************************************** ---------------- ** 00094^   ^ C SUPERVISOR SCREEN NUMBER. 00096^^ 19 INTEGER SUPSCN 00097^^ 20 DATA SUPSCN / 35 / 00098^ ^ C SUPERVISOR SCREEN CHANGE ITEM DESCRIPTION ARRAY. 00100^^ 21 INTEGER SUPCHG(61) 00101^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 3 DATE: 08/30/84 TIME: 0035 t^ 22 DATA SUPCHG / -20 , 60*0 / 00102^ ^ C STATUS CODE FILE POSITION IN MASTER FILE. 00104^^ 23 INTEGER STCDFP 00105^^ 24 DATA STCDFP / 306 / 00106^ ^ C NON-FINANCIAL RECORD TYPE CODE. 00108^^ 25 INTEGER NFUPCD 00109^^ 26 DATA NFUPCD / '02' / 00110^ ^ C BIAS FOR TRANSACTIONS FROM SUPERVISOR CHANGE SCREEN. 00112^^ 27 INTEGER SUPBAS 00113^^ 28 DATA SUPBAS / 60 / 00114^ ^ C STARTING WORD POSITION (RELATIVE TO WORD 1) IN TRANSACTION 00116^^ C FILE FOR RECORD TYPE AND UPDATE CODE. 00117^^ 29 INTEGER RECTYP , UPDCOD 00118^^ 30 DATA RECTYP / 14 / , UPDCOD / 15 / 00119^^ C STARTING BYTE POSITION IN TRANSACTION FILE RECORD FOR NEW DATA 00120^^ C ON NON-FINANCIAL UPDATE TRANSACTIONS. 00121^^ 31 INTEGER NEWDAT 00122^^ 32 DATA NEWDAT / 33 / 00123^ ^ C FIELD POSITIONS INACTIVE ACCOUNTS FILE FOR 00125^^ C STATUS CODE AND DATE. 00126^^ 33 INTEGER STATPS, DATPOS 00127^^ 34 DATA STATPS / 17 /, DATPOS / 19 / 00128^ ^ C NUMERIC CONSTANTS. 00130^^ 35 INTEGER ZERO , ONE , TWO , SIX , NUMLEN 00131^^ 36 DATA ZERO / 0 / , ONE / 1 / , TWO / 2 / , SIX / 6 / , 00132^^ 36 1 NUMLEN / 16 / 00133^ ^ C FILE MANAGER STATUS CONIDERATIONS ON RETRIEVES. 00135^^ 37 INTEGER EOF , WRONKY 00136^^ 38 DATA EOF / $100 / , WRONKY / $200 / 00137^ ^ C DUMMY VARIABLE. 00139^^ 39 INTEGER DUMMY 00140^ ^ C CONSOLE MESSAGE FOR STATUS CODE NOT FOUND ON SUPERVISOR 00142^^ C SCREEN. 00143^^ 40 INTEGER XYN , NOSTAT(29) , MESLEN 00144^^ 41 DATA XYN / -1 / 00145^^ 42 DATA NOSTAT / 'ERROR - STATUS CODE NOT FOUND ON SUPERVISOR CHANGE 00146^^ 42 1SCREEN.' / 00147^^ 43 DATA MESLEN / 58 / 00148^   ^ C EQUIVALENCES FOR NUMBER OF RECORDS RETRIEVED PER 'GETS' 00150^^ C REQUESTS FROM TRANSACTION FILE, MAXIMUM NUMBER OF RECORDS TO 00151^^ C RETRIEVE, AND NUMBER OF ITEMS ON SUPERVISOR CHANGE SCREEN. 00152^^ 44 INTEGER NUMREC , MAXREC , NITEM 00153^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 4 DATE: 08/30/84 TIME: 0035 t^ 45 EQUIVALENCE ( NUMREC , REQBFT(15) ) , ( MAXREC , IDATAT(14) ) , 00154^^ 45 1 ( NITEM , SUPCHG(1) ) 00155^   ^ C OTHER DECLARATIONS. 00157^^ 46 INTEGER ID(4) , TUPCOD , DATE(3) , AMONTO , ADAYTO , AYERTO 00158^^ 47 EXTERNAL AMONTO , ADAYTO , AYERTO 00159^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 5 DATE: 08/30/84 TIME: 0035 t^ C RETRIEVE SYSTEM DATE. 00161^^ 48 DATE(1) = AND($FFFF,AMONTO) 00162^^ 49 DATE(2) = AND($FFFF,ADAYTO) 00163^^ 50 DATE(3) = AND($FFFF,AYERTO) 00164^   ^ C CCS LOGIN. PROGRAM USAGE RESTRICTED TO MASTER CONSOLE. EXIT 00166^^ C IF USER NOT ON MASTER CONSOLE. 00167^^ 51 100 CALL PGMIN(ID,LU,I,J) 00168^^ 52 IF(J.NE.0) GO TO 900 00169^^ 53 CALL CCSCST(IDATAT,1,2,ID,1,8,ICM) 00170^^ 54 IF(ICM.EQ.0) GO TO 105 00171^^ 55 CALL CCSMVA(SCNDAT,1,8,IDATAS,1,8) 00172^^ 56 CALL CCSMVA(DLQDAT,1,8,DEQDAT,1,8) 00173^^ 57 CALL CCSMVA(IDATAT,3,6,IDATAT,1,8) 00174^^ 58 CALL CCSMVA(ACCDAT,3,6,ACCDAT,1,8) 00175^^ 59 CALL CCSMVA(RSWDAT,3,6,RSWDAT,1,8) 00176^^ 60 105 CONTINUE 00177^ ^ C LOGIN VERIFIED. OPEN SCREEN FILE AND RETRIEVE SUPERVISOR 00179^^ C SCREEN TEMPLATE. 00180^^ 61 CALL OPENFL(REQBFS,IDATAS,ISTAT) 00181^^ C CHECK FOR ERROR. JUMP TO ERROR ROUTINE IF ERROR. 00182^^ 62 IF(ISTAT.LT.0) GO TO 300 00183^^ C NO ERROR, RETRIEVE TEMPLATE. 00184^^ 63 CALL READR(REQBFS,SRNREC,SUPSCN,ISTAT) 00185^^ C CHECK FOR ERROR. JUMP TO ERROR ROUTINE IF ERROR. 00186^^ 64 IF(ISTAT.LT.0 .OR. AND(ISTAT,WRONKY).EQ.WRONKY) GO TO 310 00187^^ C NO ERROR, CLOSE FILE AND RETRIEVE SUPERVISOR CHANGE SCREEN 00188^^ C ITEM FIELD DESCRIPTIONS. 00189^^ 65 CALL CLOSFL(REQBFS,ISTAT) 00190^ ^ 66 CALL GETCHF(SRNREC,SUPCHG) 00192^  ^ C SCAN 'SUPCHG' ARRAY CHECKING EVERY THIRD WORD (FILE POSITION 00194^^ C OF CHANGE ITEM) STARTING WITH WORD FOUR FOR MATCH WITH START- 00195^^ C ING POSITION OF STATUS CODE. 00196^^ 67 DO 120 I=1,NITEM 00197^^ C CALCULATE POINTER TO NEXT WORD CONTAINING FILE POSITION. 00198^^ 68 J = 3*I + 1 00199^^ C CHECK FOR MATCH WITH STATUS CODE POSITION. CONTINUE TO NEXT 00200^^ C FIELD IF NO MATCH. 00201^^ 69 IF(SUPCHG(J).NE.STCDFP) GO TO 120 00202^ ^ C MATCH FOUND. ADD BIAS TO CHANGE ITEM NUMBER AND CONVERT THAT 00204^^ C NUMBER TO ASCII DECIMAL REPRESENTATION FOR CHECKING WITH 00205^^ C TRANSACTION FILE RECORD FIELD 'TYPE UPDATE CODE'. 00206^^ 70 TUPCOD = I + 60 00207^^ 71 TUPCOD = (TUPCOD/10)*$100 + TUPCOD-( (TUPCOD/10)*10 ) + $3030 00208^^ C GO SCAN TRANSACTION FILE. 00209^^ 72 GO TO 200 00210^ t FTN 3.3B (OPT = LPC) RSWCHG PAGE 6 DATE: 08/30/84 TIME: 0035 t^ C CONTINUE SCAN OF 'SUPCHG' ARRAY. 00212^^ 73 120 CONTINUE 00213^  ^ C STATUS CODE NOT FOUND ON SUPERVISOR SCREEN. EXIT PROGRAM 00215^^ 74 GO TO 800 00216^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 7 DATE: 08/30/84 TIME: 0035 t^ C PROCESS ALL RECORDS FROM TRANSACTION FILE AND FOR A CHANGE 00218^^ C TO THE STATUS CODE ON AN ACCOUNT, IF FOUND CHANGE DATE LAST 00219^^ C UPDATE FROM HOST TO SYSTEM DATE.(DATE ACCOUNT WENT INACTIVE) 00220^   ^ C OPEN TRANSACTION FILE AND INACTIVE ACCOUNTS FILE. 00222^^ 75 200 CALL OPENFL(REQBFT,IDATAT,ISTAT) 00223^^ C CHECK FOR ERROR. JUMP TO ERROR ROUTINE IF ERROR. 00224^^ 76 IF(ISTAT.LT.0) GO TO 330 00225^^ C*************************************************** RWSFIL MODS 9/80 ** 00226^^ C 00227^^ 77 CALL OPENFL(DEQREQ,DEQDAT,ISTAT) 00228^^ 78 IF (ISTAT.GE.0)GO TO 201 00229^^ 79 CALL FILERR(DEQDAT,3,ISTAT,LU) 00230^^ 80 GO TO 800 00231^^ 81 201 CALL OPENFL(ACCREQ,ACCDAT,ISTAT) 00232^^ 82 IF (ISTAT.GE.0)GO TO 202 00233^^ 83 CALL FILERR(ACCDAT,3,ISTAT,LU) 00234^^ 84 GO TO 800 00235^^ 85 202 CALL OPENFL(RSWREQ,RSWDAT,ISTAT) 00236^^ 86 IF (ISTAT.GE.0)GO TO 203 00237^^ 87 CALL FILERR(RSWDAT,3,ISTAT,LU) 00238^^ 88 GO TO 800 00239^^ 89 203 CONTINUE 00240^^ C 00241^^ C 00242^^ C*************************************************** ---------------- ** 00243^ ^ C RETRIEVE NEXT BLOCK OF RECORDS FROM TRANSACTION FILE. 00245^^ 90 210 CALL GETS(REQBFT,TRNREC,DUMMY,ISTAT) 00246^^ C CHECK FOR ERROR. JUMP TO ERROR ROUTINE IF FATAL ERROR. 00247^^ 91 IF(ISTAT.LT.0) GO TO 340 00248^ ^ C NO ERROR. LOOP THRU ALL RECORDS RETRIEVED (NUMBER RETRIEVED 00250^^ C RETURNED IN WORD 15 OF REQUEST BUFFER). LOOK FOR TRANSACTIONS 00251^^ C CHANGING AN ACCOUNT'S STATUS CODE. 00252^^ 92 DO 220 I=1,NUMREC 00253^^ C CALCULATE POINTER TO START WORD OF NEXT TRANSACTION RECORD. 00254^^ 93 J = TRECLN*(I-1) + 1 00255^ ^ C BYPASS RECORD IF RECORD TYPE IS NOT '02'. (BYPASSES ALL COL- 00257^^ C LECTOR ACTIVITIES). 00258^^ 94 K = J + RECTYP 00259^^ 95 IF(TRNREC(K).NE.NFUPCD) GO TO 220 00260^^ C FOUND NON-FINANCIAL UPDATE RECORD. BYPASS IF CHANGE WAS NOT TO 00261^^ C STATUS CODE OF ACCOUNT. 00262^^ 96 K = J + UPDCOD 00263^^ 97 IF(TRNREC(K).NE.TUPCOD) GO TO 220 00264^^ C*************************************************** RSWFIL MODS 9/80 ** 00265^ ^ 98 500 CONTINUE 00267^^ 99 CALL CCSMVA(TRNREC(J),1,16,KEY1,1,16) 00268^^ 100 CALL READR (DEQREQ,DEQREC,KEY1,ISTAT) 00269^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 8 DATE: 08/30/84 TIME: 0035 t^ 101 IF (AND(ISTAT,$300).NE.0 ) GO TO 215 00270^^ 102 IF (ISTAT.GE.0)GO TO 520 00271^^ 103 CALL FILERR(DEQDAT,13,ISTAT,LU) 00272^^ 104 GO TO 800 00273^^ 105 520 CONTINUE 00274^^ 106 DO 530 KP=1,4 00275^^ 107 CALL CCSCST(DEQREC,306,1,WRSB,KP,1,IC) 00276^^ 108 IF (IC.EQ.0) GO TO (550,550,550,540),KP 00277^^ 109 530 CONTINUE 00278^^ 110 GO TO 215 00279^ ^ 111 540 CONTINUE 00281^^ 112 CALL CCSMVA(DEQREC,1,16,ACCREC,1,82) 00282^^ 113 CALL WRITER(ACCREQ,ACCREC,ACCREC,ISTAT) 00283^^ 114 IF (ISTAT.GE.0.OR.AND(ISTAT,$10).EQ.$10)GO TO 215 00284^^ 115 CALL FILERR(ACCDAT,12,ISTAT,LU) 00285^^ 116 GO TO 800 00286^^ C*** UPDATE DELQMST RECORD WITH SYSTEM DATE IN POS. 857 00287^^ 117 550 CONTINUE 00288^^ 118 CALL CCSMVA( DATE, 1, 6, DEQREC, 857, 6 ) 00289^^ 119 CALL UPDREC( DEQREQ, DEQREC, ISTAT ) 00290^^ 120 IF ( ISTAT.GE.0 ) GO TO 555 00291^^ 121 CALL FILERR( DEQDAT, 15, ISTAT, LU ) 00292^ ^ 122 555 CALL CCSMVA(DEQREC,1,16,ACCREC,1,82) 00294^^ 123 CALL READR (ACCREQ,ACCREC,ACCREC,ISTAT) 00295^^ 124 IF (AND(ISTAT,$200).EQ.$200.OR.AND(ISTAT,$100).EQ.$100)GO TO 215 00296^^ 125 IF (ISTAT.GE.0)GO TO 560 00297^^ 126 CALL FILERR(ACCDAT,13,ISTAT,LU) 00298^^ 127 GO TO 800 00299^^ 128 560 CONTINUE 00300^^ 129 CALL DELREC(ACCREQ,ACCREC,ISTAT) 00301^^ 130 IF(ISTAT.GE.0)GO TO 570 00302^^ 131 CALL FILERR(ACCDAT,16,ISTAT,LU) 00303^^ 132 GO TO 800 00304^^ 133 570 ACCREC(1) = DEQREC(1) 00305^^ C*** 00306^^ C UPDATE PREVIOUS FEILDS 00307^^ 134 CALL CCSMVA(ACCREC,17,4,ACCREC,21,4) 00308^^ 135 CALL CCSMVA(ACCREC,35,3,ACCREC,38,3) 00309^^ 136 CALL CCSMVA(ACCREC,41,9,ACCREC,50,9) 00310^^ 137 CALL CCSMVA(ACCREC,59,9,ACCREC,68,9) 00311^^ C*** 00312^^ C NEW VALUES FROM MASTER RECORD 00313^^ 138 CALL CCSMVA(DEQREC,271,4,ACCREC,17,4) 00314^^ 139 CALL CCSMVA(A99X(1,KP),1,3,ACCREC,35,3) 00315^^ 140 CALL CCSMVA(DEQREC,905,9,ACCREC,41,9) 00316^^ 141 CALL CCSMVA(DEQREC,887,9,ACCREC,59,9) 00317^^ 142 CALL CCSMVA(DEQREC,963,4,ACCREC,25,4) 00318^^ 143 CALL CCSPUT(WRSB(KP),77,ACCREC) 00319^^ C 00320^^ 144 CALL PUTS (RSWREQ,ACCREC,ONE,ISTAT) 00321^^ 145 IF (ISTAT.GE.0) GO TO 215 00322^^ 146 CALL FILERR(RSWDAT,11,ISTAT,LU) 00323^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 9 DATE: 08/30/84 TIME: 0035 t^ 147 GO TO 800 00324^^ 148 215 CONTINUE 00325^ ^ C*************************************************** ---------------- ** 00327^ ^ C*** PSR 12/83 REMOVE CODE TO CREATE INACCT RECORD 00329^ ^ C*** INACCT FILE IS NOW HANDLED BY FIXINA WHICH SHOULD BE 00331^^ C RUN BEFORE RUNNING MHUPDT. 00332^ ^ C*** CARDS DELETED HERE.... 00334^ ^ C PROCESS NEXT TRANSACTION. 00336^^ 149 220 CONTINUE 00337^   ^ C ALL TRANSACTIONS FROM THIS BLOCK PROCESSED. CHECK IF THIS IS 00339^^ C THE LAST BLOCK FROM TRANSACTION FILE. IF NOT, GET NEXT BLOCK. 00340^^ 150 IF(NUMREC.GE.MAXREC) GO TO 210 00341^ ^ C LAST BLOCK PROCESSED. ALL TRANSACTIONS FROM TRANSACTION FILE 00343^^ C HAVE BEEN CHECKED. CLOSE ALL FILES AND EXIT. 00344^^ 151 GO TO 800 00345^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 10 DATE: 08/30/84 TIME: 0035 t^ C*********************************************************************** 00347^^ C FILE ERROR PROCESSING ROUTINES. * 00348^^ C*********************************************************************** 00349^   ^ C FILE ERROR USING 'SCRNFILE'. 00351^  ^ C OPEN FILE REQUEST. 00353^^ 152 300 J = 3 00354^^ 153 GO TO 320 00355^ ^ C READR REQUEST. 00357^^ 154 310 J = 13 00358^ ^ C REPORT ERROR, CLOSE ALL FILES AND EXIT. 00360^^ 155 320 CALL FILERR(IDATAS,J,ISTAT,LU) 00361^^ 156 GO TO 800 00362^   ^ C FILE ERROR USING 'TRNSFL'. 00364^  ^ C OPEN FILE REQUEST. 00366^^ 157 330 J = 3 00367^^ 158 GO TO 350 00368^ ^ C GETS REQUEST. CHECK FOR END-OF-FILE INDICATING ALL TRANS- 00370^^ C ACTIONS HAVE BEEN PROCESSED AND JOB IS COMPLETE. IF END- 00371^^ C OF-FILE, CLOSE ALL FILES AND EXIT. 00372^^ 159 340 IF(AND(ISTAT,EOF).EQ.EOF) GO TO 800 00373^^ C NO END-OF-FILE, FATAL ERROR. 00374^^ 160 J = 14 00375^ ^ C REPORT ERROR, CLOSE ALL FILES AND EXIT. 00377^^ 161 350 CALL FILERR(IDATAT,J,ISTAT,LU) 00378^^ 162 GO TO 800 00379^   ^ C*** PSR 12/83 CARDS DELETED HERE..... 00381^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 11 DATE: 08/30/84 TIME: 0035 t^ C EXIT SECTION. CLOSE ALL FILES 00383^  ^ C 'SCRNFILE'. 00385^^ 163 800 CALL CLOSFL(REQBFS,ISTAT) 00386^^ C*************************************************** RSWFIL MODS 9/80 ** 00387^^ C 'DELQMST' 00388^^ 164 CALL CLOSFL(DEQREQ,ISTAT) 00389^^ C 'ACCAGE' 00390^^ 165 CALL CLOSFL(ACCREQ,ISTAT) 00391^^ C 'RSWFIL' 00392^^ 166 CALL CLOSFL(RSWREQ,ISTAT) 00393^^ C 00394^^ C*************************************************** ---------------- ** 00395^^ C 'TRNSFL'. 00396^^ 167 CALL CLOSFL(REQBFT,ISTAT) 00397^^ C*** PSR 12/83 CARD DELETED HERE..... 00398^  ^ C RETURN CONTROL TO CCS EXECUTIVE. 00400^^ 168 900 CALL PGMOUT 00401^ ^ 169 END 00403^t FTN 3.3B (OPT = LPC) RSWCHG PAGE 12 DATE: 08/30/84 TIME: 0035 t  PROGRAM LENGTH $1956 ( 6486)   EXTERNALS 2 Q8STP AMONTO ADAYTO AYERTO PGMIN CCSCST CCSMVA 22 OPENFL READR CLOSFL GETCHF FILERR GETS WRITER 2& UPDREC DELREC CCSPUT PUTS PGMOUT & t FTN 3.3B (OPT = LPC) RSWCHG PAGE 13 DATE: 08/30/84 TIME: 0035 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < ( FFFF (65535) 16D3 48,49,50 (v 0001 (1) 0002 4,12,14,15,16,36,41,45,48,53,55,56,57,58,59,67,68,92,93,99,106,107,112,118,122,133,139 v& 0002 (2) 16D7 53,139 &D 0003 (3) 16DA 57,58,59,68,79,83,87,135,139,152,157 D. 0004 (4) 16E5 106,134,138,142., 0006 (6) 16DB 57,58,59,118 ,0 0008 (8) 16D8 53,55,56,57,58,5902 0009 (9) 16F2 136,136,137,140,1412$ 000A (10) 16DD 71,71$" 000B (11) 16FC 146"" 000C (12) 16E9 115"* 000D (13) 16E3 103,126,154*" 000F (15) 16EB 121"4 0010 (16) 16E1 99,99,112,114,122,1314& 0011 (17) 16ED 134,138&" 0015 (21) 16EE 134"" 0019 (25) 16FA 142"& 0023 (35) 16EF 135,139&" 0026 (38) 16F0 135"& 0029 (41) 16F1 136,140&" 0032 (50) 16F3 136"& 003B (59) 16F4 137,141&" 0044 (68) 16F5 137"" 004D (77) 16FB 143"& 0052 (82) 16E8 112,122&& 0100 (256) 16DE 71,124 &" 010F (271) 16F6 138"" 0132 (306) 16E6 107"& 0200 (512) 16EC 124,124&" 0300 (768) 16E2 101"" 0359 (857) 16EA 118"" 0377 (887) 16F8 141"" 0389 (905) 16F7 140"" 03C3 (963) 16F9 142"" 3030 (12336) 16DF 71 "t FTN 3.3B (OPT = LPC) RSWCHG PAGE 14 DATE: 08/30/84 TIME: 0035 t   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A997 INTEGER 1629 8,12,13&& A998 INTEGER 162B 8,12,13&& A999 INTEGER 162D 8,12,13&( A99X INTEGER 1629 8,12,139 (8 ACCDAT INTEGER 15EE 8,15,58,81,83,115,126,1318h ACCREC INTEGER 15FD 8,12,112,113,122,123,129,133,134,135,136,137,138,139,140,141,142,143,144 h6 ACCREQ INTEGER 15D6 8,15,81,113,123,129,1656: AND INTR.FN. 7FFF 48,49,50,64,101,114,124,159:. DATE INTEGER 16D0 45,48,49,50,118.$ DATPOS INTEGER 16A3 32,34$4 DEQDAT INTEGER 11D0 8,14,56,77,79,103,1214L DEQREC INTEGER 11DF 8,100,107,112,118,119,122,133,138,140,141,142L2 DEQREQ INTEGER 11B8 8,14,77,100,119,1642( DLQDAT INTEGER 165A 16,18,56 ($ DUMMY INTEGER 16AB 38,90$( EOF INTEGER 16A9 36,38,159(0 I INTEGER 16D5 51,67,68,70,92,930& IC INTEGER 16E7 107,108&$ ICM INTEGER 16D9 53,54$( ID INTEGER 16CB 45,51,53 (, IDATAS INTEGER 001B 1,4,55,61,155,2 IDATAT INTEGER 042C 4,7,45,53,57,75,1612 ISTAT INTEGER 16DC 61,62,63,64,65,75,76,77,78,79,81,82,83,85,86,87,90,91,100,101,102,103,113,114,115,119,120,121,123, b 124,125,126,129,130,131,144,145,146,155,159,161,163,164,165,166,167bN J INTEGER 16D6 51,52,68,69,93,94,96,99,152,154,155,157,160,161N. K INTEGER 16E0 93,94,95,96,97 .( KEY1 INTEGER 15CB 8,99,100 (2 KP INTEGER 16E4 105,107,108,139,1432J LU INTEGER 16D4 51,79,83,87,103,115,121,126,131,146,155,161J( MAXREC INTEGER 0439 43,45,150($ MESLEN INTEGER 16CA 38,43$$ NEWDAT INTEGER 16A1 30,32$( NFUPCD INTEGER 169D 24,26,95 (( NITEM INTEGER 165F 43,45,67 ($ NOSTAT INTEGER 16AD 38,42$$ NUMLEN INTEGER 16A8 34,36$, NUMREC INTEGER 0422 43,45,92,150 ,( ONE INTEGER 16A5 34,36,144(( RECTYP INTEGER 169F 28,30,94 (0 REQBFS INTEGER 0003 1,3,61,63,65,163 00 REQBFT INTEGER 0414 4,6,45,75,90,167 00 RSWDAT INTEGER 1647 8,16,59,85,87,1460$ RSWREC INTEGER 15FD 8,12 $. RSWREQ INTEGER 162F 8,16,85,144,166.( SCNDAT INTEGER 1656 16,18,55 ($ SIX INTEGER 16A7 34,36$& SRNREC INTEGER 002A 1,63,66&t FTN 3.3B (OPT = LPC) RSWCHG PAGE 15 DATE: 08/30/84 TIME: 0035 t$ STATPS INTEGER 16A2 32,34$( STCDFP INTEGER 169C 22,24,69 ($ SUPBAS INTEGER 169E 26,28$. SUPCHG INTEGER 165F 20,22,45,66,69 .( SUPSCN INTEGER 165E 18,20,63 (& TRECLN INTEGER 11B7 4,8,93 &, TRNREC INTEGER 043B 4,90,95,97,99,* TUPCOD INTEGER 16CF 45,70,71,97*$ TWO INTEGER 16A6 34,36$( UPDCOD INTEGER 16A0 28,30,96 (( WRONKY INTEGER 16AA 36,38,64 (, WRSB INTEGER 15D4 8,13,107,143 ,$ XYN INTEGER 16AC 38,41$$ ZERO INTEGER 16A4 34,36$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & CCSCST SUBROUTINE 182A 52,107 &` CCSMVA SUBROUTINE 1882 54,56,57,58,59,99,112,118,122,134,135,136,137,138,139,140,141,142`" CCSPUT SUBROUTINE 1903 142"6 CLOSFL SUBROUTINE 1943 64,163,164,165,166,167 6" DELREC SUBROUTINE 18A7 128"H FILERR SUBROUTINE 1912 78,83,87,103,115,121,126,131,146,155,161 H" GETCHF SUBROUTINE 1768 65 "" GETS SUBROUTINE 17CF 89 ". OPENFL SUBROUTINE 17C0 60,75,77,81,85 ." PGMIN SUBROUTINE 170A 50 "" PGMOUT SUBROUTINE 1953 168"" PUTS SUBROUTINE 1908 143" Q8STP INTEGER.FN. 1955 * READR SUBROUTINE 188A 62,100,123 *" UPDREC SUBROUTINE 1875 118"" WRITER SUBROUTINE 1853 112"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 1709 50 "$ 105 1745 54,60$( 120 1795 66,69,73 ($ 200 1799 71,75$$ 201 17B1 78,81$$ 202 17BF 82,85$$ 203 17CE 86,89$& 210 17CE 89,150 &6 215 1918 101,110,114,124,145,1486, 220 1918 91,95,97,149 ,t FTN 3.3B (OPT = LPC) RSWCHG PAGE 16 DATE: 08/30/84 TIME: 0035 t& 300 1925 62,152 && 310 1929 64,154 && 320 192B 152,155&& 330 1931 76,157 && 340 1934 91,159 && 350 193C 157,161&" 500 1803 97 "& 520 1826 102,105&& 530 1844 105,109&& 540 184B 108,111&* 550 186D 108,108,117*& 555 1881 120,122&& 560 18A6 125,128&& 570 18B5 130,133&R 800 1942 73,80,84,88,104,116,127,132,147,151,156,159,162,163R& 900 1952 52,168 & RSWCHG 0000 1 t FTN 3.3B (OPT = LPC) SRREQ PAGE 1 DATE: 08/30/84 TIME: 0036 t^ 1 PROGRAM SRREQ 00001^^ 1 1 /XXX F CCS CCS 3.0 .LA PSR 02/83 SL-149 00002^ ^ C COPYRIGHT CONTROL DATA CORPORATION 00004^^ C CYBERCREDIT SYSTEM 00005^^ C 00006^ ^ C THIS PROGRAM HANDLES THE SUPERVISOR REQUESTS INSTEAD OF IN 00008^^ C TIMUSE. IT IS EXECUTED IN LD/M 00009^ ^ 2 INTEGER LU,MODE,ID(4),PORT 00011^ ^ 3 INTEGER IOBUF(41),XYN,TC,COMPIN,ISTAT 00013^^ 4 DATA XYN/-1/ 00014^ ^ 5 INTEGER SR(2),BLANK(2),COID(2),SRID(2),ACTREC 00016^^ 6 DATA SR/'SR '/,BLANK/' '/,ACTREC/'01'/ 00017^ ^ 7 INTEGER ERRMSG(50),ERRLEN 00019^^ 8 DATA ERRLEN/100/ 00020^^ 9 DATA ERRMSG / 00021^^ 9 1 $D0A,'THE RECORD FOR COLLECTOR IS NOT IN THE UTILITY FI 00022^^ 9 2LE',$D0A,'THIS SR REQUEST WILL NOT BE PROCESSED ',$D0A/ 00023^ ^ 10 INTEGER DDATA(15),TDATA(15),UDATA(15),NUMREC,MAXREC 00025^^ 11 DATA DDATA/'LADLYWRK',8*$2020,0,1,0/ 00026^^ 12 DATA TDATA/'LATRNSFL',8*$2020,0,10 ,0/ 00027^^ 13 DATA UDATA/'LAUTIFIL',8*$2020,1,1,1/ 00028^ ^ 14 INTEGER DLYREQ(24),TRNREQ(24),UTIREQ(24) 00030^^ 15 DATA DLYREQ/24*0/,TRNREQ/24*0/,UTIREQ/24*0/ 00031^ ^ 16 INTEGER DLYWRK(20),TRNREC(690),UTIREC(40) 00033^^ 17 DATA DLYWRK/20*$2020/,TRNREC/690*$2020/,UTIREC/40*$2020/ 00034^ ^ C EQUIVALENCES FOR NUMBER OF RECORDS RETRIEVED PER 'GETS' 00036^^ C REQUEST FROM TRANSACTION FILE AND MAXIMUM NUMBER OF RECORDS 00037^^ C TO RETRIEVE 00038^^ 18 EQUIVALENCE (NUMREC,TDATA(15)) 00039^^ 19 EQUIVALENCE (MAXREC,TRNREQ(15)) 00040^ ^ 20 INTEGER AMONTO,ADAYTO,AYERTO,DATE(3) 00042^^ 21 EXTERNAL AMONTO,ADAYTO,AYERTO 00043^ ^ C RETRIEVE SYSTEM DATE 00045^^ 22 DATE(1) = AND($FFFF,AMONTO) 00046^^ 23 DATE(2) = AND($FFFF,ADAYTO) 00047^^ 24 DATE(3) = AND($FFFF,AYERTO) 00048^ ^ C BEGIN PROCESSING 00050^ ^ 25 CALL PGMIN(ID,LU,MODE,PORT) 00052^^ 26 CALL CCSCST(DDATA,1,2,ID,1,8,ICM) 00053^^ 27 IF(ICM.EQ.0) GO TO 5 00054^t FTN 3.3B (OPT = LPC) SRREQ PAGE 2 DATE: 08/30/84 TIME: 0036 t^ 28 CALL CCSMVA(DDATA,3,6,DDATA,1,8) 00055^^ 29 CALL CCSMVA(TDATA,3,6,TDATA,1,8) 00056^^ 30 CALL CCSMVA(UDATA,3,6,UDATA,1,8) 00057^^ 31 5 CONTINUE 00058^ ^ C OPEN FILES 00060^^ 32 50 CALL OPENFL(UTIREQ,UDATA,ISTAT) 00061^^ 33 IF(ISTAT.GE.0) GO TO 100 00062^^ 34 CALL FILERR(UDATA,3,ISTAT,LU) 00063^^ 35 GO TO 900 00064^ ^ 36 100 CALL OPENFL(TRNREQ,TDATA,ISTAT) 00066^^ 37 IF(ISTAT.GE.0) GO TO 150 00067^^ 38 CALL FILERR(TDATA,3,ISTAT,LU) 00068^^ 39 GO TO 900 00069^ ^ C**** FIRST CLEAR THE DLYWRK FILE 00071^ ^ 40 150 CONTINUE 00073^^ 41 CALL CLEAR(DLYREQ,DDATA,ISTAT) 00074^^ 42 DO 151 I = 1,24 00075^^ 43 151 DLYREQ(I) = 0 00076^ ^ 44 CALL OPENFL(DLYREQ,DDATA,ISTAT) 00078^^ 45 IF(ISTAT.GE.0) GO TO 200 00079^^ 46 CALL FILERR(DDATA,3,ISTAT,LU) 00080^^ 47 GO TO 900 00081^ ^ C READ THE TRANSACTION FILE BLOCK 00083^^ 48 200 CALL GETS(TRNREQ,TRNREC,TRNREC,ISTAT) 00084^^ 49 IF(AND(ISTAT,$8100).EQ.$8100) GO TO 800 00085^^ 50 IF(ISTAT.GE.0) GO TO 250 00086^^ 51 CALL FILERR(TDATA,14,ISTAT,LU) 00087^^ 52 GO TO 900 00088^ ^ C PROCESS THE BLOCK 00090^^ 53 250 DO 700 I = 1, MAXREC 00091^ ^ 54 J = 138*I-137 00093^ ^ C SEE IF THIS WAS AN ACTION RECORD 00095^^ 55 CALL CCSCST(TRNREC,J+28,2,ACTREC,1,2,COMPIN) 00096^^ 56 IF(COMPIN.NE.0) GO TO 700 00097^ ^ C SEE IF IT WAS A SUPERVISOR REQUEST 00099^^ 57 CALL CCSCST(TRNREC,J+36,2,SR,1,2,COMPIN) 00100^^ 58 IF(COMPIN.NE.0) GO TO 700 00101^  ^ C READ THE UTILITY FILE RECORD WITH COID TO GET SUPERVISOR 00104^^ 59 260 CALL CCSMVA(TRNREC,J+16,4,COID,1,4) 00105^^ 60 CALL READR(UTIREQ,UTIREC,COID,ISTAT) 00106^^ 61 IF(AND(ISTAT,$100).EQ.$100.OR.ISTAT.EQ.$200) GO TO 300 00107^^ 62 IF(ISTAT.GE.0) GO TO 270 00108^t FTN 3.3B (OPT = LPC) SRREQ PAGE 3 DATE: 08/30/84 TIME: 0036 t^ 63 CALL FILERR(UDATA,13,ISTAT,LU) 00109^^ 64 GO TO 800 00110^ ^ C FOUND RECORD LOOK FOR SUPERVISOR 00112^^ 65 270 CALL CCSMVA(UTIREC, 37 ,4,SRID,1,4) 00113^^ 66 CALL CCSCST(SRID,1,4,BLANK,1,4,COMPIN) 00114^^ 67 IF(COMPIN.EQ.0) CALL CCSMVA(SR,1,4,SRID,1,4) 00115^ ^ C NOW BUILD DLYWRK FILE 00117^^ 68 CALL CCSMVA(TRNREC,J,16,DLYWRK,1,16) 00118^^ 69 CALL CCSMVA(SRID,1,4,DLYWRK,17,4) 00119^^ 70 CALL CCSMVA(DATE,1,6,DLYWRK,21,6) 00120^^ C IS COMPLETE WRITE IT AND GO GET NEXT RECORD 00121^^ 71 CALL PUTS(DLYREQ,DLYWRK,1,ISTAT) 00122^^ 72 IF(ISTAT.GE.0) GO TO 290 00123^^ 73 CALL FILERR(DDATA,11,ISTAT,LU) 00124^^ 74 GO TO 900 00125^ ^ 75 290 CALL CCSBLK(DLYWRK,40) 00127^^ 76 GO TO 700 00128^ ^ C ERROR ON READING THE COLLECTOR ID IN UTILITY FILE-REPORT IT 00130^^ C AND CONTINUE 00131^^ 77 300 CALL CCSMVA(TRNREC,J+16,4,ERRMSG,28,4) 00132^^ 78 CALL WTREAD(LU,XYN,ERRMSG,ERRLEN,0,0,0,TC) 00133^ ^ 79 700 CONTINUE 00135^ ^ C ALL TRANSACTIONS FROM THIS BLOCK PROCESSED, CHECK IF THIS IS 00137^^ C THE LAST BLOCK FROM TRANSACTION FILE, IF NOT GET NEXT BLOCK 00138^^ 80 710 GO TO 200 00139^ ^ C LAST BLOCK PROCESSED CLOSE FILES AND EXIT 00141^^ 81 800 CALL CLOSFL(UTIREQ,ISTAT) 00142^^ 82 CALL CLOSFL(TRNREQ,ISTAT) 00143^^ 83 CALL CLOSFL(DLYREQ,ISTAT) 00144^ ^ 84 900 CALL PGMOUT 00146^^ 85 END 00147^t FTN 3.3B (OPT = LPC) SRREQ PAGE 4 DATE: 08/30/84 TIME: 0036 t  PROGRAM LENGTH $053E ( 1342)   EXTERNALS 2 Q8STP AMONTO ADAYTO AYERTO PGMIN CCSCST CCSMVA 22 OPENFL FILERR CLEAR GETS READR PUTS CCSBLK 2 WTREAD CLOSFL PGMOUT  t FTN 3.3B (OPT = LPC) SRREQ PAGE 5 DATE: 08/30/84 TIME: 0036 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < $ 8100 (-32511) 03E1 49,49$( FFFF (65535) 03DA 22,23,24 (L 0000 (0) 0003 11,12,15,27,33,37,43,45,50,56,58,62,67,72,78 LZ 0001 (1) 0002 4,11,13,22,26,28,29,30,42,53,55,57,59,65,66,67,68,69,70,71 Z( 0002 (2) 03DB 26,55,57 (0 0003 (3) 03DE 28,29,30,34,38,4604 0004 (4) 03E8 59,59,65,66,67,69,77 4* 0006 (6) 03DF 28,29,30,70** 0008 (8) 03DC 26,28,29,30*" 000B (11) 03EF 73 "" 000D (13) 03EB 63 "" 000E (14) 03E2 51 "( 0010 (16) 03E7 59,68,77 (" 0011 (17) 03ED 69 "" 0015 (21) 03EE 70 "$ 001C (28) 03E6 55,77$" 0025 (37) 03EC 65 "" 0028 (40) 03F0 75 "" 0089 (137) 03E5 54 "" 008A (138) 03E4 54 "$ 0100 (256) 03E9 61,61$" 0200 (512) 03EA 61 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & ACTREC INTEGER 0040 4,6,55 &. AND INTR.FN. 7FFF 22,23,24,49,61 .& BLANK INTEGER 003A 4,6,66 && COID INTEGER 003C 4,59,60&2 COMPIN INTEGER 0036 1,55,56,57,58,66,672. DATE INTEGER 03D7 19,22,23,24,70 .6 DDATA INTEGER 0074 9,11,26,28,41,44,46,73 64 DLYREQ INTEGER 00B9 13,15,41,43,44,71,83 44 DLYWRK INTEGER 00E9 15,17,68,69,70,71,75 4& ERRLEN INTEGER 0073 6,8,78 &( ERRMSG INTEGER 0041 6,9,77,78(* I INTEGER 03E0 41,43,53,54*$ ICM INTEGER 03DD 26,27$& ID INTEGER 0006 1,25,26& IOBUF INTEGER 000B 1 h ISTAT INTEGER 0037 1,32,33,34,36,37,38,41,44,45,46,48,49,50,51,60,61,62,63,71,72,73,81,82,83h4 J INTEGER 03E3 53,54,55,57,59,68,77 4t FTN 3.3B (OPT = LPC) SRREQ PAGE 6 DATE: 08/30/84 TIME: 0036 t8 LU INTEGER 0004 1,25,34,38,46,51,63,73,788& MAXREC INTEGER 00AF 9,19,53&$ MODE INTEGER 0005 1,25 $$ NUMREC INTEGER 0091 9,18 $$ PORT INTEGER 000A 1,25 $( SR INTEGER 0038 4,6,57,67(, SRID INTEGER 003E 4,65,66,67,69,$ TC INTEGER 0035 1,78 $2 TDATA INTEGER 0083 9,12,18,29,36,38,5126 TRNREC INTEGER 00FD 15,17,48,55,57,59,68,7760 TRNREQ INTEGER 00A1 13,15,19,36,48,8200 UDATA INTEGER 0092 9,13,30,32,34,63 0* UTIREC INTEGER 03AF 15,17,60,65*. UTIREQ INTEGER 00D1 13,15,32,60,81 .& XYN INTEGER 0034 1,4,78 &   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSBLK SUBROUTINE 0511 75 "* CCSCST SUBROUTINE 048D 25,55,57,66*< CCSMVA SUBROUTINE 04AF 27,29,30,59,65,67,68,69,70,77<" CLEAR SUBROUTINE 0446 40 "( CLOSFL SUBROUTINE 0531 81,82,83 (0 FILERR SUBROUTINE 04CC 33,38,46,51,63,730" GETS SUBROUTINE 0464 48 "( OPENFL SUBROUTINE 0427 31,36,44 (" PGMIN SUBROUTINE 03FE 24 "" PGMOUT SUBROUTINE 053B 84 "" PUTS SUBROUTINE 0502 70 " Q8STP INTEGER.FN. 053D " READR SUBROUTINE 04B7 59 "" WTREAD SUBROUTINE 0521 77 "   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 5 0426 27,31$" 50 0426 31 "$ 100 0437 33,36$$ 150 0445 37,40$$ 151 044C 41,43$( 200 0463 45,48,80 ($ 250 047A 50,53$" 260 04AB 58 "$ 270 04D3 62,65$$ 290 0510 72,75$$ 300 0515 61,77$t FTN 3.3B (OPT = LPC) SRREQ PAGE 7 DATE: 08/30/84 TIME: 0036 t. 700 052A 53,56,58,76,79 ." 710 052E 79 "( 800 0530 49,64,81 (0 900 053A 34,39,47,52,74,840 SRREQ 0000 1  t FTN 3.3B (OPT = LPC) SWITCH PAGE 1 DATE: 08/30/84 TIME: 0037 t^ 1 PROGRAM SWITCH 00001^^ 1 1 /S12 F RPG CCS 3.0 SL-149 00002^^ C*** RPG UTILITIES- MAIN PROGRAM FOR SWITCH 00003^^ C CREDIT COLLECTION SYSTEM VERSION 3.0 00004^^ C DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION 1979 00006^^ C 00007^^ C THIS IS A UTILITY PROGRAM TO SET PSEUDO EXTERNAL SWITCHES 00008^^ C FOR USE WITH RPG II (OR FORTRAN) PROGRAMS 00009^^ C EXECUTING UNDER ITOS 00010^^ C 00011^^ C CALLING SEQUENCE (FROM ITOS) 00012^^ C SWITCH 00013^^ C XXXXXXXX 00014^^ C 00015^^ C WHERE X IS EITHER 1 (SET) OR 0 (RESET) FOR SWITCH 1 TO 8 00016^^ C 00017^^ 2 INTEGER R9SWCH 00018^^ C R9SWCH IS THE LOCATION IN SYSDAT THAT CONTAINS THE 00019^^ C STATUS OF THE RPG INDICATORS U1 TO U8. 00020^^ C R9SWCH MUST BE AN UNPROTECTED LOCATION 00021^^ 3 INTEGER MSG(4),Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8 00022^^ 4 INTEGER STATUS,U1,U2,U3,U4,U5,U6,U7,U8 00023^^ 5 INTEGER X1,X2,X3,X4,X5,X6,X7,X8 00024^^ 6 INTEGER STSMSG(10),STSERR(12) 00025^^ 7 INTEGER ENTMSG(30),STSBUF(10) 00026^^ 8 EQUIVALENCE (STSMSG(7),MSG(1)) 00027^^ 9 BYTE (U1, STATUS(01=01)), (X1, STSBUF(1)(8=8)), (Y1, MSG(1)(8=8)) 00028^^ 10 BYTE (U2, STATUS(02=02)), (X2, STSBUF(1)(0=0)), (Y2, MSG(1)(0=0)) 00029^^ 11 BYTE (U3, STATUS(03=03)), (X3, STSBUF(2)(8=8)), (Y3, MSG(2)(8=8)) 00030^^ 12 BYTE (U4, STATUS(04=04)), (X4, STSBUF(2)(0=0)), (Y4, MSG(2)(0=0)) 00031^^ 13 BYTE (U5, STATUS(05=05)), (X5, STSBUF(3)(8=8)), (Y5, MSG(3)(8=8)) 00032^^ 14 BYTE (U6, STATUS(06=06)), (X6, STSBUF(3)(0=0)), (Y6, MSG(3)(0=0)) 00033^^ 15 BYTE (U7, STATUS(07=07)), (X7, STSBUF(4)(8=8)), (Y7, MSG(4)(8=8)) 00034^^ 16 BYTE (U8, STATUS(08=08)), (X8, STSBUF(4)(0=0)), (Y8, MSG(4)(0=0)) 00035^^ 17 INTEGER Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z8 00036^^ 18 BYTE (Z1, STSBUF(1) (15=09)) 00037^^ 19 BYTE (Z2, STSBUF(1) (07=01)) 00038^^ 20 BYTE (Z3, STSBUF(2) (15=09)) 00039^^ 21 BYTE (Z4, STSBUF(2) (07=01)) 00040^^ 22 BYTE (Z5, STSBUF(3) (15=09)) 00041^^ 23 BYTE (Z6, STSBUF(3) (07=01)) 00042^^ 24 BYTE (Z7, STSBUF(4) (15=09)) 00043^^ 25 BYTE (Z8, STSBUF(4) (07=01)) 00044^^ 26 EQUIVALENCE (NENT, STSBUF(5)) 00045^^ C LOCATION NENT CONTAINS THE ACTUAL NO OF CHARS READ 00046^^ 27 DATA ENTMSG/$D0A,' ENTER SWITCH VALUES ',$D15,12*$1515/ 00047^^ 28 DATA STSBUF / 'XXXXXXXX ' / 00048^^ 29 DATA STSMSG /$0D0A,' SWITCH = 00000000' / 00049^^ 30 DATA STSERR /$0D0A,' INVALID SWITCH ENTRY' / 00050^^ 31 INTEGER IDUSER(4),TERMLU 00051^^ C CURSOR COORDINATES 00052^^ 32 INTEGER W1 00053^^ 33 DATA W1 / -1 / , R9SWCH / $E3 / 00054^t FTN 3.3B (OPT = LPC) SWITCH PAGE 2 DATE: 08/30/84 TIME: 0037 t^ C---- SET FIRST TWO CHARS OF DISPLAY MSG TO 'CLEAR' AND 'E' 00055^^ C---- ENTMSG = $1845 00056^^ C CALL EXEC TO GET USER ID, LOGICAL UNIT, MODE AND PORT 00057^^ 34 CALL PGMIN (IDUSER,TERMLU,MODE,NOPORT) 00058^^ C INITIAL PICK-UP OF STATUS 00059^^ C LDA+ R9SWCH 00060^^ C STA STATUS 00061^^ 35 ASSEM $C400,$00E3 ,$6800,STATUS 00062^^ C DISPLAY SWITCH ENTER REQUEST (IF INTERACTIVE) AND READ VALUES 00063^^ 36 CALL WTREAD (TERMLU, W1, ENTMSG, 57, W1, STSBUF, 18, ICODE) 00064^^ C CHECK FOR VALID CHARACTERS IN INPUT BUFFER 00065^^ 37 DO 100 I = 1,4 00066^^ 38 LSB = AND ($FF,STSBUF(I)) 00067^^ 39 MSB = AND ($FF,STSBUF(I)/$100) 00068^^ 40 IF (MSB .EQ. $20) GO TO 110 00069^^ 41 IF (MSB .EQ. $30) GO TO 110 00070^^ 42 IF (MSB .EQ. $31) GO TO 110 00071^^ 43 IF (MSB .EQ. $FF) GO TO 110 00072^^ 44 IF (MSB .EQ. $58) GO TO 110 00073^^ C INVALID CHARACTER 00074^^ 45 GO TO 900 00075^^ 46 110 CONTINUE 00076^^ 47 IF (LSB .EQ. $20) GO TO 100 00077^^ 48 IF (LSB .EQ. $30) GO TO 100 00078^^ 49 IF (LSB .EQ. $31) GO TO 100 00079^^ 50 IF (LSB .EQ. $58) GO TO 100 00080^^ 51 IF (LSB .EQ. $FF) GO TO 100 00081^^ C INVALID CHARACTER 00082^^ 52 GO TO 900 00083^^ 53 100 CONTINUE 00084^^ C DECODE ASCII INPUT - REQD SWITCH SETTING 00085^^ C IF ENTERED VALUE IS 0 ($30) OR 1 ($31) SET BIT ACCORDINGLY 00086^^ C FOR ANY OTHER ENTERED CHARACTER, LEAVE SWITCH UNCHANGED 00087^^ 54 IF (Z1 .EQ. $18) U1 = X1 00088^^ 55 IF (Z2 .EQ. $18) U2 = X2 00089^^ 56 IF (Z3 .EQ. $18) U3 = X3 00090^^ 57 IF (Z4 .EQ. $18) U4 = X4 00091^^ 58 IF (Z5 .EQ. $18) U5 = X5 00092^^ 59 IF (Z6 .EQ. $18) U6 = X6 00093^^ 60 IF (Z7 .EQ. $18) U7 = X7 00094^^ 61 IF (Z8 .EQ. $18) U8 = X8 00095^^ C STORE DESIRED STATUS 00096^^ C LDA STATUS 00097^^ C STA+ R9SWCH 00098^^ 62 ASSEM $C800,STATUS,$60E3 00099^^ 63 200 CONTINUE 00100^^ C---- PICK UP PRESENT STATUS 00101^^ C---- LDA+ R9SWCH 00102^^ C---- STA STATUS 00103^^ 64 ASSEM $C400,$00E3 ,$6800,STATUS 00104^^ C SET UP ASCII MESSAGE TO DISPLAY SWITCH STATUS 00105^^ 65 Y1 = U1 00106^^ 66 Y2 = U2 00107^^ 67 Y3 = U3 00108^t FTN 3.3B (OPT = LPC) SWITCH PAGE 3 DATE: 08/30/84 TIME: 0037 t^ 68 Y4 = U4 00109^^ 69 Y5 = U5 00110^^ 70 Y6 = U6 00111^^ 71 Y7 = U7 00112^^ 72 Y8 = U8 00113^^ C DISPLAY SWITCH VALUES 00114^^ 73 CALL WTREAD (TERMLU, W1, STSMSG, 20, 0, 0, 0, ICODE ) 00115^^ C EXIT TO ITOS 00116^^ 74 999 CALL PGMOUT 00117^^ C ERROR MESSAGE 00118^^ 75 900 CONTINUE 00119^^ C DISPLAY SWITCH ERROR MESSAGE 00120^^ 76 CALL WTREAD (TERMLU, W1, STSERR, 24, 0, 0, 0, ICODE) 00121^^ C EXIT TO ITOS 00122^^ 77 GO TO 999 00123^^ 78 END 00124^t FTN 3.3B (OPT = LPC) SWITCH PAGE 4 DATE: 08/30/84 TIME: 0037 t  PROGRAM LENGTH $016C ( 364)   EXTERNALS  PGMIN WTREAD PGMOUT  t FTN 3.3B (OPT = LPC) SWITCH PAGE 5 DATE: 08/30/84 TIME: 0037 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < 0 0000 (0) 0002 10,12,14,16,73,760: 0001 (1) 0001 8,9,10,18,19,21,23,25,33,37:" 0012 (18) 004C 36 "" 0014 (20) 0053 73 ": 0018 (24) 0052 54,55,56,57,58,59,60,61,76 :" 0039 (57) 004B 36 " 007F (127) 016B * 00FF (255) 0050 38,39,43,51*   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ AND INTR.FN. 7FFF 38,39$& ENTMSG INTEGER 0025 1,27,36&( I INTEGER 004E 36,38,39 (( ICODE INTEGER 004D 36,73,76 ($ IDUSER INTEGER 0043 30,34$4 LSB INTEGER 004F 37,38,47,48,49,50,51 4" MODE INTEGER 0049 34 "4 MSB INTEGER 0051 38,39,40,41,42,43,44 4: MSG INTEGER 000A 1,8,9,10,11,12,13,14,15,16 :" NENT INTEGER 0013 25 "" NOPORT INTEGER 004A 34 "$ R9SWCH INTEGER 0003 1,33 $@ STATUS INTEGER 000E 1,9,10,11,12,13,14,15,16,35,62,64@^ STSBUF INTEGER 000F 1,9,10,11,12,13,14,15,16,18,19,20,21,22,23,24,25,26,28,36,38,39^& STSERR INTEGER 0019 1,30,76&( STSMSG INTEGER 0004 1,8,29,73(. TERMLU INTEGER 0047 30,34,36,73,76 .( U1 INTEGER 000E 1,9,54,65(* U2 INTEGER 000E 1,10,55,66 ** U3 INTEGER 000E 1,11,56,67 ** U4 INTEGER 000E 1,12,57,68 ** U5 INTEGER 000E 1,13,58,69 ** U6 INTEGER 000E 1,14,59,70 ** U7 INTEGER 000E 1,15,60,71 ** U8 INTEGER 000E 1,16,61,72 *. W1 INTEGER 0048 30,33,36,73,76 .& X1 INTEGER 000F 1,9,54 && X2 INTEGER 000F 1,10,55&& X3 INTEGER 0010 1,11,56&& X4 INTEGER 0010 1,12,57&& X5 INTEGER 0011 1,13,58&t FTN 3.3B (OPT = LPC) SWITCH PAGE 6 DATE: 08/30/84 TIME: 0037 t& X6 INTEGER 0011 1,14,59&& X7 INTEGER 0012 1,15,60&& X8 INTEGER 0012 1,16,61&& Y1 INTEGER 000A 1,9,65 && Y2 INTEGER 000A 1,10,66&& Y3 INTEGER 000B 1,11,67&& Y4 INTEGER 000B 1,12,68&& Y5 INTEGER 000C 1,13,69&& Y6 INTEGER 000C 1,14,70&& Y7 INTEGER 000D 1,15,71&& Y8 INTEGER 000D 1,16,72&( Z1 INTEGER 000F 16,18,54 (( Z2 INTEGER 000F 16,19,55 (( Z3 INTEGER 0010 16,20,56 (( Z4 INTEGER 0010 16,21,57 (( Z5 INTEGER 0011 16,22,58 (( Z6 INTEGER 0011 16,23,59 (( Z7 INTEGER 0012 16,24,60 (( Z8 INTEGER 0012 16,25,61 (   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " PGMIN SUBROUTINE 0055 33 "" PGMOUT SUBROUTINE 0160 73 "( WTREAD SUBROUTINE 0156 35,73,76 (   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < 4 100 0097 36,47,48,49,50,51,53 40 110 0086 40,41,42,43,44,460" 200 010F 62 "( 900 0161 44,52,75 ($ 999 015F 73,77$ SWITCH 0000 1 t FTN 3.3B (OPT = LPC) UPD500 PAGE 1 DATE: 08/30/84 TIME: 0037 t^ 1 PROGRAM UPD500 00001^^ 1 1 /QSS000 CCS 3.0 UPD500 SL-149 00002^ ^ C** CYBERCREDIT FINANCIAL SERVICES. 00004^^ C** CYBERCREDIT FIELD SUPPORT GROUPS 00005^^ C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00006^^ C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983 00007^^ C** 00008^^ C** ************ 03/08/83 ************ PROGRAMMER : RWE 00009^ ^ C****** IF A UPD500 PROGRAM IS REQUIRED... 00011^^ C****** THEN PROGRAM UPD400 CAN PROBABLY BE MODIFIED 00012^^ C****** TO HANDLE THE FINANCIAL DATA AND THEN BE RENAMED TO UPD500 00013^ ^ 2 INTEGER MSG1(22) 00015^ ^ 3 DATA MSG1 /$D0A,$720,'UPD500 REQUIRES A QSS FROM CONTROL DATA.'/ 00017^ ^ 4 10 CALL WTREAD(5,-1,MSG1,44,0,0,0,ITC) 00019^^ 5 CALL PGMOUT 00020^^ 6 END 00021^t FTN 3.3B (OPT = LPC) UPD500 PAGE 2 DATE: 08/30/84 TIME: 0037 t  PROGRAM LENGTH $002A ( 42)   EXTERNALS  Q8STP WTREAD PGMOUT  t FTN 3.3B (OPT = LPC) UPD500 PAGE 3 DATE: 08/30/84 TIME: 0037 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : <  FFFE (-1) 0019 4 0000 (0) 0001 4 0005 (5) 0018 3 002C (44) 001A 4    VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  ITC INTEGER 001B 4 $ MSG1 INTEGER 0002 1,3,4$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  PGMOUT SUBROUTINE 0027 4 Q8STP INTEGER.FN. 0029 WTREAD SUBROUTINE 001D 3    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  10 001C 3 UPD500 0000 1  t FTN 3.3B (OPT = LPC) VFYACF PAGE 1 DATE: 08/30/84 TIME: 0038 t^ 1 SUBROUTINE VFYACF(BUF) 00001^^ 1 1 /ROUTINE TO VERIFY ACTIVITY BLOCK LENGTH 00002^  ^ C REVISED 08/05/82 00004^^ C THIS ROUTINE VERIFIES THE LENGTH PORTION OF THE ON-LINE ACTIVITY 00005^^ C BLOCK. IF THE LENGTH EXCEEDS 360 OR CONTAINS AN INVALID CHAR, 00006^^ C THEN THE BLOCK IS BLANKED OUT. 00007^ ^ 2 INTEGER BUF(1) 00009^  ^ C SKIP TEST IF BLOCK IS BLANK 00011^^ 3 IF(BUF(154).EQ.$2020.AND.BUF(155).EQ.$2020) GO TO 15 00012^ ^ C VERIFY THAT ALL CHAR OF LENGTH ARE NUMERICS. 00014^^ 4 DO 10 I = 1,4 00015^^ 5 CALL CCSGET(BUF(154),I,J) 00016^^ 6 IF(J.LT.$30.OR.J.GT.$39) GO TO 20 00017^^ 7 IF(I.EQ.1.AND.J.NE.$30) GO TO 20 00018^^ 8 10 CONTINUE 00019^ ^ C VERIFY LENGTH DOES NOT EXCEED MAX OF 360 00021^^ 9 I = AND(BUF(154),$F) * 100 + ICCSAD(BUF(155)) 00022^^ 10 IF (I.GT.360) GO TO 20 00023^^ 11 15 RETURN 00024^ ^ C ERROR - CLEAR BLOCK & CONTINUE 00026^^ 12 20 CALL CCSBLK(BUF(154),360) 00027^^ 13 RETURN 00028^^ 14 END 00029^t FTN 3.3B (OPT = LPC) VFYACF PAGE 2 DATE: 08/30/84 TIME: 0038 t  PROGRAM LENGTH $004C ( 76)   EXTERNALS & Q8PKUP Q8PREP CCSGET ICCSAD CCSBLK & t FTN 3.3B (OPT = LPC) VFYACF PAGE 3 DATE: 08/30/84 TIME: 0038 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : <  000F (15) 0003 9 0064 (100) 0004 9 $ 0168 (360) 0005 10,12$" 2020 (8224) 0000 3,3"   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  AND INTR.FN. 7FFF 9 , BUF INTEGER 7FFF 1,2,3,5,9,12 ,* I INTEGER 0001 3,5,7,9,10 *$ J INTEGER 0002 5,6,7$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSBLK SUBROUTINE 0037 12 " CCSGET SUBROUTINE 0010 4 ICCSAD INTEGER.FN. 0029 9 Q8PKUP INTEGER.FN. 0043 Q8PREP INTEGER.FN. 0040    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 10 0023 3,8"$ 15 0034 3,11 $( 20 0036 6,7,10,12( VFYACF 003D 1  t FTN 3.3B (OPT = LPC) YMD1 PAGE 1 DATE: 08/30/84 TIME: 0038 t^ 1 SUBROUTINE YMD1(IYR,IMO,IDYMO,DYCT,IDYYR,IDYWK) 00001^^ C-----INPUTS IYR - YEAR ( 1 TO 99 ) 00002^^ C IMO - MONTH( 1 TO 12 ) 00003^^ C IDYMO - DAY OF MONTH ( 1 TO 31 ) 00004^^ C-----OUTPUTS DYCT - DAY OF CENTURY (FROM JAN 1, 1901) 00005^^ C IDYYR - DAY OF YEAR ( 1 TO 366 ) 00006^^ C IDYWK - DAY OF WEEK ( 1 TO 7, MON IS 1 ) 00007^^ C 00008^^ 2 LEAPYR = 2 00009^^ 3 IF ((IYR/4*4).EQ.IYR) LEAPYR = 1 00010^^ 4 IMT = IMO*275 00011^^ 5 IMT = IMT/9 00012^^ 6 IDYYR = IMT+IDYMO-30 00013^^ 7 IF (IMO.GT.2) IDYYR = IDYYR-LEAPYR 00014^^ 8 YR=IYR-1 00015^^ 9 DYYR=IDYYR 00016^^ 10 TDYCT=YR*1461 00017^^ 11 DYCT = TDYCT/4+DYYR 00018^^ 12 DYCT2= DYCT 00019^^ 13 DNUM=05*1000 00020^^ 14 DMINUS=7*343 00021^^ 15 IL = 0 00022^^ 16 5 IF(DYCT2.LT.DNUM )GO TO 6 00023^^ 17 IL = IL+1 00024^^ 18 DYCT2=DYCT2-DMINUS 00025^^ 19 GO TO 5 00026^^ 20 6 CONTINUE 00027^^ 21 IDYCT=DYCT2 00028^^ 22 DYCT = IL * DMINUS + IDYCT 00029^^ 23 IDYWK = IDYCT-IDYCT/7*7+1 00030^^ 24 RETURN 00031^^ 25 END 00032^t FTN 3.3B (OPT = LPC) YMD1 PAGE 2 DATE: 08/30/84 TIME: 0038 t  PROGRAM LENGTH $00AA ( 170)   EXTERNALS  HFLOT Q8PKUP Q8PREP FLOAT  t FTN 3.3B (OPT = LPC) YMD1 PAGE 3 DATE: 08/30/84 TIME: 0038 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < & 0004 (4) 0001 3,3,11 &$ 0007 (7) 0013 14,23$ 0009 (9) 0004 5 0113 (275) 0003 4 " 0157 (343) 0014 14 "" 03E8 (1000) 0010 13 "" 05B5 (1461) 000B 10 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * DMINUS REAL 0011 13,14,18,22*( DNUM REAL 000E 12,13,16 (* DYCT REAL 7FFF 1,11,12,22 *. DYCT2 REAL 000C 11,12,16,18,21 .& DYYR REAL 0007 8,9,11 &* IDYCT INTEGER 0016 20,21,22,23*" IDYMO INTEGER 7FFF 1,6"$ IDYWK INTEGER 7FFF 1,23 $& IDYYR INTEGER 7FFF 1,6,7,9&* IL INTEGER 0015 14,15,17,22*$ IMO INTEGER 7FFF 1,4,7$& IMT INTEGER 0002 3,4,5,6&$ IYR INTEGER 7FFF 1,3,8$& LEAPYR INTEGER 0000 1,2,3,7&& TDYCT REAL 0009 9,10,11&& YR REAL 0005 7,8,10 &   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  FLOAT REAL.FN. 0040 HFLOT REAL.FN. 0035 Q8PKUP INTEGER.FN. 009A Q8PREP INTEGER.FN. 0097 t FTN 3.3B (OPT = LPC) YMD1 PAGE 4 DATE: 08/30/84 TIME: 0038 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 5 0061 15,19$$ 6 0076 16,20$ YMD1 0094 1 t FTN 3.3B (OPT = LPC) YMD3 PAGE 1 DATE: 08/30/84 TIME: 0038 t^ 1 SUBROUTINE YMD3(IYR,IMO,IDYMO,DYCT,IDYYR,IDYWK) 00001^^ C-----INPUTS DYCT - DAY OF CENTURY (FROM JAN 1, 1901) 00002^^ C-----OUTPUTS IYR - YEAR ( 1 TO 99 ) 00003^^ C IMO - MONTH( 1 TO 12 ) 00004^^ C IDYMO - DAY OF MONTH ( 1 TO 31 ) 00005^^ C IDYYR - DAY OF YEAR ( 1 TO 366 ) 00006^^ C IDYWK - DAY OF WEEK ( 1 TO 7, MON IS 1 ) 00007^ ^ 2 IMD = DYCT/1461 00009^^ 3 TDYCT= DYCT-IMD+364 00010^^ 4 IYR = TDYCT/365 00011^^ 5 YR = IYR-1 00012^^ 6 TYDCT = YR*1461 00013^^ 7 DYCT2 = TYDCT/4 -0.5 00014^^ 8 DYYR = DYCT - DYCT2 00015^^ 9 IDYYR = DYYR 00016^^ 10 LEAPYR = 2 00017^^ 11 IF ((IYR/4*4).EQ.IYR) LEAPYR = 1 00018^^ 12 IF (LEAPYR.EQ.1) IDYYR = IDYYR+1 00019^^ 13 ITEMP = IDYYR 00020^^ 14 IF (ITEMP.GT.(61-LEAPYR)) ITEMP=ITEMP+LEAPYR 00021^^ 15 IMO =(ITEMP*9+269)/275 00022^^ 16 IDYMO= ITEMP-IMO*275/9+30 00023^^ 17 DYCT2 = DYCT 00024^^ 18 DNUM = 20*1000 00025^^ 19 DMINUS= 7*343 00026^^ 20 5 IF(DYCT2.LT.DNUM) GO TO 10 00027^^ 21 DYCT2 = DYCT2-DMINUS 00028^^ 22 GO TO 5 00029^^ 23 10 CONTINUE 00030^^ 24 IDYCT = DYCT2 00031^^ 25 IDYWK= IDYCT-IDYCT/7*7+1 00032^^ 26 RETURN 00033^^ 27 END 00034^t FTN 3.3B (OPT = LPC) YMD3 PAGE 2 DATE: 08/30/84 TIME: 0038 t  PROGRAM LENGTH $00D4 ( 212)   EXTERNALS  HFLOT Q8PKUP Q8PREP FLOAT  t FTN 3.3B (OPT = LPC) YMD3 PAGE 3 DATE: 08/30/84 TIME: 0038 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < $ 0004 (4) 000C 7,11 $$ 0007 (7) 0019 19,25$$ 0009 (9) 0011 15,16$" 010D (269) 0012 15 "$ 0113 (275) 0013 15,16$" 0157 (343) 001A 19 " 016C (364) 0004 3 016D (365) 0005 4 " 03E8 (1000) 0016 18 "" 05B5 (1461) 0001 2,6" 4040 0000 009E 7    VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( DMINUS REAL 0017 18,19,21 (( DNUM REAL 0014 17,18,20 (* DYCT REAL 7FFF 1,2,3,8,17 *0 DYCT2 REAL 000A 6,7,8,17,20,21,240$ DYYR REAL 000D 7,8,9$( IDYCT INTEGER 001B 23,24,25 ($ IDYMO INTEGER 7FFF 1,16 $$ IDYWK INTEGER 7FFF 1,25 $( IDYYR INTEGER 7FFF 1,9,12,13($ IMD INTEGER 0000 1,2,3$& IMO INTEGER 7FFF 1,15,16&. ITEMP INTEGER 0010 12,13,14,15,16 .( IYR INTEGER 7FFF 1,4,5,11 (, LEAPYR INTEGER 000F 9,10,11,12,14,$ TDYCT REAL 0002 2,3,4$$ TYDCT REAL 0008 5,6,7$$ YR REAL 0006 4,5,6$t FTN 3.3B (OPT = LPC) YMD3 PAGE 4 DATE: 08/30/84 TIME: 0038 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  FLOAT REAL.FN. 001D HFLOT REAL.FN. 0098 Q8PKUP INTEGER.FN. 00BD Q8PREP INTEGER.FN. 00BA    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 5 0090 19,22$$ 10 00A5 20,23$ YMD3 00B7 1 t FTN 3.3B (OPT = LPC) COLMAC PAGE 1 DATE: 08/30/84 TIME: 0038 t^ MACRO COLMAC B3100001^^ 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ C B3100003^^ C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ C B3100007^^ C B3100008^^ C B3100009^^ C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ C B3100011^^ 1 B3100012^^ C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ INTEGER IDATTB(15) B3100016^^ COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ COMMON/A/IDATTB B3100018^^ 1 B3100019^^ C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ INTEGER REQBFB(24) B3100023^^ COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ COMMON/A/REQBFB B3100025^^ 1 B3100026^^ C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^^ 1 B3100030^^ C FILE MANAGER RECORD BUFFERS. B3100031^^ INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ C B3100040^^ 1 B3100041^^ C INPUT/OUTPUT BUFFERS. B3100042^^ INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ COMMON/A/IOBUF,OBUF B3100045^^ 1 B3100046^^ C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ 1 (STRING(9),COM(1)) B3100050^^ COMMON/A/FSTACT,STRING B3100051^^ 1 B3100052^^ C SMALL VARIABLES AND BUFFERS. B3100053^^ INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^t FTN 3.3B (OPT = LPC) COLMAC PAGE 2 DATE: 08/30/84 TIME: 0038 t^ INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ INTEGER LTRNUM(50),ACTCNT B3100058^^ EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ 1 (DATE(3),YEAR) B3100060^^ COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^^ 2 B3100065^^ C CONSTANTS. B3100066^^ 1 B3100067^^ C NUMERIC. B3100068^^ INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^^ 1 B3100071^^ C ASCII CONSTANTS. B3100072^^ INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ INTEGER BLANKS B3100074^^ EQUIVALENCE (ASC01,TYPE1) B3100075^^ COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^^ 1 B3100077^^ C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^^ 1 B3100086^^ C DUMMY VARIABLE. B3100087^^ INTEGER DUMMY B3100088^^ COMMON/A/DUMMY B3100089^^ 1 B3100090^^ C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ INTEGER LOCKED,WRONKY,EOF B3100092^^ COMMON/A/LOCKED,WRONKY,EOF B3100093^^ 1 B3100094^^ C SCREEN DISPLAY CONSTANTS. B3100095^^ INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ COMMON/A/XYWORD,XYN,CLRSCR B3100097^^ 1 B3100098^^ C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ INTEGER INVCOM,ENCD,FE B3100101^^ COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ COMMON/A/INVCOM,ENCD,FE B3100103^^ 2 B3100104^^ C END OF COMMON DECLARATION. B3100105^^ END B3100106^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 1 DATE: 08/30/84 TIME: 0038 t^ 1 BLOCK DATA B1800001^^ 1 1 /B18 F CCS CCS 3.0 SL-149B1800002^^ C B1800003^^ C CYBERCREDIT SYSTEM VERSION 3 B1800004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B1800005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B1800006^^ C B1800007^^ C B1800008^^ C B1800009^^ C BLOCK DATA SUBPROGRAM FOR INITIALIZING COMMON VARIABLES FOR B1800010^^ C COLECT 2.0 B1800011^^ C B1800012^^ C BRING IN COMMON MACRO B1800013^ ^ M COLMAC B1800015^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 2 DATE: 08/30/84 TIME: 0038 t ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 3 DATE: 08/30/84 TIME: 0038 t ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C FILE MANAGER IDATA WORDS. B1800017^^ 57 DATA IDATDM/'DELQMST CCS20 ',1,1,1/ B1800018^^ 58 DATA IDATSC/'SCRNFILECCS20 ',1,1,0/ B1800019^^ 59 DATA IDATTR/'TRANFL CCS20 ',0,1,0/ B1800020^^ 60 DATA IDATDA/'DLYASSN CCS20 ',0,1,0/ B1800021^^ 61 DATA IDATAU/'ACTIVE CCS20 ',1,1,1/ B1800022^^ 62 DATA IDATTB/'TRNBCK CCS20 ',0,1,0/ B1800023^ ^ C FILE MANAGER REQUEST BUFFERS. MUST BE INITIALLY ZEROED. B1800025^^ 63 DATA REQBFD/24*0/ B1800026^^ 64 DATA REQBFS/24*0/ B1800027^^ 65 DATA REQBFT/24*0/ B1800028^^ 66 DATA REQBFA/24*0/ B1800029^^ 67 DATA REQBFB/24*0/ B1800030^^ 68 DATA REQBFF/24*0/ B1800031^ ^ C CHANGE SCREEN ITEM FILED DESCRIPTION ARRAYS. B1800033^^ 69 DATA CUSCHG/-30,90*-1/ B1800034^^ 70 DATA COSCHG/-30,90*-1/ B1800035^^ 71 DATA SUPCHG/-20,60*-1/ B1800036^ ^ C TRANSACTION FILE BUFFER, INITIALLY BLANK FILL. B1800038^^ 72 DATA TRNSBF/71*$2020/ B1800039^ ^ C SMALL VARIABLES OR CONSTANTS REQUIRING INITIALIZATION. B1800041^^ 73 DATA ACTRET/0/,NUMACT/64/,ONE/1/,TWO/2/,THREE/3/,FOUR/4/,FIVE/5/ B1800042^^ 74 DATA SIX/6/,NINE/9/,DUMMY/0/,XYWORD/$1B31,$17,$1600/,XYN/-1/ B1800043^^ 75 DATA ZERO/0/,OLDPOS/63/,NEWPOS/33/,INVENT/-3/,PPFLAG/285/ B1800044^^ 76 DATA NAMPOS/18/,NUMLEN/16/,LMASBL/'0360'/,OUTBYT/80/,LOCKED/$80/ B1800045^^ 77 DATA WRONKY/$200/,EOF/$100/,COMLEN/56/,STRLEN/72/,CURBAL/896/ B1800046^^ 78 DATA MPPAMT/1022/,MPPDAT/1016/,PPMADE/1041/,ASC01/'01'/,NXTFUN/-2/B1800047^^ 79 DATA ASC00/'00'/,TYPE2/'02'/,CSNXTF/-1/,CLRSCR/$1800/,BZ/'BZ'/ B1800048^^ 80 DATA INVRES/46/,CNTURY/$3A30/,TPPDAT/121/,TPPAMT/127/,OK/'OK'/ B1800049^^ 81 DATA MLTRAM/848/,MLTRDT/842/,COMRQD/60/,COMLNG/61/,SR/'SR'/ B1800050^^ 82 DATA PP/'PP'/,TNCD/99/,MNCD/275/,INVNCD/63/,RL/'RL'/ B1800051^^ 83 DATA QBREAK/-1/,CID/-1,-1/,TLDT/106/,TLTAMT/112/,NOACT/40/,FE/42/ B1800052^^ 84 DATA BLANKS/$2020/,ENCD/62/,UFLAG/0/,INVCOM/44/ B1800053^^ 85 DATA ACTCNT/1/,LTRNUM/50*$2020/ B1800054^  t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 4 DATE: 08/30/84 TIME: 0038 t^ 86 END B1800056^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 5 DATE: 08/30/84 TIME: 0038 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0000 ( 0)   t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 6 DATE: 08/30/84 TIME: 0038 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$( ACTCNT INTEGER 08B9 D 23,33,85 ($ ACTHST INTEGER 05C5 D 11,13$( ACTRET INTEGER 0851 D 23,31,73 ($ ACTYPE INTEGER 01DD D 11,16$$ ARCODE INTEGER 026E D 11,16$( ASC00 INTEGER 08C7 D 35,39,79 (* ASC01 INTEGER 08C8 D 35,38,39,78*( AVMAT INTEGER 0706 D 11,15,17 (( BLANKS INTEGER 08D0 D 35,39,84 (( BZ INTEGER 08CA D 35,39,79 (( CID INTEGER 0852 D 23,31,83 (( CLRSCR INTEGER 08ED D 50,52,79 (( CNTURY INTEGER 08CF D 35,39,80 ($ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$( COMLEN INTEGER 08D6 D 39,44,77 (( COMLNG INTEGER 08F3 D 52,55,81 ($ COMPIN INTEGER 084C D 23,30$$ COMREQ INTEGER 0882 D 23,32$( COMRQD INTEGER 08F2 D 52,55,81 (& COSCHG INTEGER 0145 D 9,11,70&$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 (( CSNXTF INTEGER 08F0 D 52,55,79 (( CURBAL INTEGER 08D8 D 39,45,77 (& CUSCHG INTEGER 00EA D 9,11,69&( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$( DUMMY INTEGER 08E5 D 46,48,74 (( ENCD INTEGER 08F7 D 52,56,84 (( EOF INTEGER 08E8 D 48,50,77 (( FE INTEGER 08F8 D 52,56,83 (( FIVE INTEGER 08C2 D 33,35,73 ($ FLDTYP INTEGER 084E D 23,30$( FOUR INTEGER 08C1 D 33,35,73 ($ FSTACT INTEGER 07FD D 20,23$& IDATAU INTEGER 003C D 1,4,61 && IDATDA INTEGER 002D D 1,4,60 && IDATDM INTEGER 0000 D 1,4,57 && IDATSC INTEGER 000F D 1,4,58 && IDATTB INTEGER 004B D 1,5,62 && IDATTR INTEGER 001E D 1,4,59 &$ INPBYT INTEGER 08D5 D 39,43$( INVCOM INTEGER 08F6 D 52,56,84 (t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 7 DATE: 08/30/84 TIME: 0038 t( INVENT INTEGER 08EE D 52,55,75 (( INVNCD INTEGER 08F4 D 52,55,82 (( INVRES INTEGER 08F1 D 52,55,80 ($ IOBUF INTEGER 07A6 D 17,20$( ISTAT INTEGER 084B D 23,29,30 ($ JDATE INTEGER 0886 D 23,33$$ KEY INTEGER 0866 D 23,31$$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$( LMASBL INTEGER 08C5 D 35,39,76 (( LOCKED INTEGER 08E6 D 48,50,76 ($ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$( LTRNUM INTEGER 0887 D 23,33,85 ($ LU INTEGER 0849 D 23,30$( MASREC INTEGER 01DD D 11,16,17 ($ MAXNCD INTEGER 086F D 23,31$( MLTRAM INTEGER 08DE D 39,45,81 (( MLTRDT INTEGER 08DF D 39,45,81 (( MNCD INTEGER 08E0 D 39,46,82 ($ MONTH INTEGER 0845 D 23,29$( MPPAMT INTEGER 08D9 D 39,45,78 (( MPPDAT INTEGER 08DA D 39,45,78 ($ NAEQRL INTEGER 08BC D 23,33$( NAMPOS INTEGER 08D3 D 39,44,76 ($ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$( NEWPOS INTEGER 08D2 D 39,44,75 (( NINE INTEGER 08C4 D 33,35,74 (( NOACT INTEGER 08F5 D 52,55,83 (( NUMACT INTEGER 0854 D 23,31,73 (( NUMLEN INTEGER 08D4 D 39,44,76 (( NXTFUN INTEGER 08EF D 52,55,78 ($ NXTYR INTEGER 0885 D 23,32$( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$( OK INTEGER 08CB D 35,39,80 (( OLDPOS INTEGER 08D1 D 39,44,75 (( ONE INTEGER 08BE D 33,35,73 ($ OSW INTEGER 084B D 23,29$* OUTBYT INTEGER 08D5 D 39,43,44,76*( PP INTEGER 08CD D 35,39,82 (( PPFLAG INTEGER 08E4 D 39,46,75 ($ PPLAG INTEGER 0880 D 23,32$( PPMADE INTEGER 08E2 D 39,46,78 (( QBREAK INTEGER 0855 D 23,31,83 (& REQBFA INTEGER 00A2 D 5,8,66 && REQBFB INTEGER 00D2 D 5,9,67 && REQBFD INTEGER 005A D 5,8,63 && REQBFF INTEGER 00BA D 5,8,68 && REQBFS INTEGER 0072 D 5,8,64 && REQBFT INTEGER 008A D 5,8,65 &t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 8 DATE: 08/30/84 TIME: 0038 t$ RES INTEGER 0825 D 20,22$( RL INTEGER 08CE D 35,39,82 (( SIX INTEGER 08C3 D 33,35,74 (( SR INTEGER 08CC D 35,39,81 ($ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 (( STRLEN INTEGER 08D7 D 39,44,77 ($ STRPOS INTEGER 084F D 23,30$& SUPCHG INTEGER 01A0 D 9,11,71&$ TC INTEGER 084A D 23,30$( THREE INTEGER 08C0 D 33,35,73 (( TLDT INTEGER 08E3 D 39,46,83 (( TLTAMT INTEGER 08DD D 39,45,83 (( TNCD INTEGER 08E1 D 39,46,82 (( TPPAMT INTEGER 08DB D 39,45,80 (( TPPDAT INTEGER 08DC D 39,45,80 ($ TRBKFL INTEGER 08BA D 23,33$* TRNSBF INTEGER 06BF D 11,14,17,72*( TWO INTEGER 08BF D 33,35,73 ($ TYPE1 INTEGER 08C8 D 35,38$( TYPE2 INTEGER 08C9 D 35,39,79 (( UFLAG INTEGER 0870 D 23,31,84 ($ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$( WRONKY INTEGER 08E7 D 48,50,77 (( XYN INTEGER 08EC D 50,52,74 (( XYWORD INTEGER 08E9 D 50,52,74 ($ YEAR INTEGER 0847 D 23,29$( ZERO INTEGER 08BD D 33,35,75 (   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  Q8QBDS 7FFF t FTN 3.3B (OPT = LPC) ACTEDT PAGE 1 DATE: 08/30/84 TIME: 0039 t^ 1 SUBROUTINE ACTEDT(ACTSTR,BUFF) B0200001^^ 1 1 /B02 F CCS CCS 3.0 SL-149B0200002^^ C B0200003^^ C CYBERCREDIT SYSTEM VERSION 3 B0200004^^ C DATA SYSTEMS - LA JOLLA DIVISON, LA JOLLA, CALIFORNIA B0200005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B0200006^^ C B0200007^^ C B0200008^^ C B0200009^^ C EDIT ACTIVITY STRING FOR OUTPUT. B0200010^^ C B0200011^^ C ROUTINE TO CONVERT THE COMPACTED ACTIVITY STRING RETRIEVED FROM B0200012^^ C A GETACT REQUEST INTO FORM ACCEPTABLE FOR OUTPUT. THE ROUTINE WILLB0200013^^ C CONVERT THE DATE AND MOVE THE OTHER FIELDS TO A ANOTHER BUFFER B0200014^^ C SEPARATING EACH FIELD WITH ONE SPACE. B0200015^^ C CALLING SEQUENCE: B0200016^^ C CALL ACTEDT(ACTSTR,BUFF) B0200017^^ C WHERE: B0200018^^ C ACTSTR = THE COMPACTED ACTIVITY STRING TO EXPAND. B0200019^^ C BUFF = OUTPUT BUFFER LOCATION TO RECEIVE THE ACTIVITY. B0200020^^ C B0200021^^ C THE FORMAT OF THE RETURNED ACTIVITY HAS ONE OF THE FOLLOWING TWO B0200022^^ C FORMAS DEPENDING ON WHETHER THE OPTION NOT TO DISPLAY THE COLLECTOB0200023^^ C ID OUTLINED BELOW IS CHOSEN: B0200024^^ C WITH COLLECTOR ID - B0200025^^ CXX/XX/XX AC RS LT COLL COMMENT FOR 56 CHARACTERS-----------------------B0200026^^ C WITHOUT COLLECTOR ID - B0200027^^ CXX/XX/XX AC RS LT COMMENT FOR 56 CHARACTERS----------------------------B0200028^^ C B0200029^  ^ C RETRIEVE COMMON MACRO. B0200031^^ M COLMAC B0200032^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^t FTN 3.3B (OPT = LPC) ACTEDT PAGE 2 DATE: 08/30/84 TIME: 0039 t^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^t FTN 3.3B (OPT = LPC) ACTEDT PAGE 3 DATE: 08/30/84 TIME: 0039 t^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B0200034^^ 57 INTEGER ACTSTR,BUFF B0200035^  ^ C INITIALIZE POINTERS FOR INPUT AND OUTPUT BUFFERS AND EDIT DATE INTB0200037^^ C OUTPUT BUFFER. B0200038^^ 58 J = 1 B0200039^^ 59 K = 1 B0200040^^ 60 CALL EDIT(ACTSTR,J,BUFF,K,J) B0200041^^ C INCREMENT POINTERS. B0200042^^ 61 J = J+6 B0200043^^ 62 K = K+9 B0200044^^ C MOVE IN ACTION, RESULT, AND LETTER CODES. B0200045^^ 63 DO 10 I=1,3 B0200046^^ 64 CALL CCSMVA(ACTSTR,J,TWO,BUFF,K,TWO) B0200047^^ C INCREMENT POINTERS. B0200048^^ 65 J = J+2 B0200049^^ 66 10 K = K+3 B0200050^^ C***********************************************************************B0200051^^ C IF DISPLAY OF THE COLLECTOR ID ASSOCIATED WITH EACH ACTIVITY IS NOB0200052^^ C DESIRED, INSERT A GO TO LABEL 20 STATEMENT HERE. B0200053^ t FTN 3.3B (OPT = LPC) ACTEDT PAGE 4 DATE: 08/30/84 TIME: 0039 t^ C***********************************************************************B0200055^^ C MOVE IN COLLECTOR ID. B0200056^^ 67 CALL CCSMVA(ACTSTR,J,FOUR,BUFF,K,FOUR) B0200057^^ C INCREMENT POINTERS. B0200058^^ 68 J = J+4 B0200059^^ 69 K = K+5 B0200060^^ C MOVE IN COMMENT B0200061^^ 70 20 CALL CCSMVA(ACTSTR,J,COMLEN,BUFF,K,COMLEN) B0200062^  ^ C OPERATION COMPLETE. RETURN. B0200064^^ 71 RETURN B0200065^^ 72 END B0200066^t FTN 3.3B (OPT = LPC) ACTEDT PAGE 5 DATE: 08/30/84 TIME: 0039 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0050 ( 80)   EXTERNALS  Q8PKUP Q8PREP EDIT CCSMVA  t FTN 3.3B (OPT = LPC) ACTEDT PAGE 6 DATE: 08/30/84 TIME: 0039 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$$ ACTRET INTEGER 0851 D 23,31$0 ACTSTR INTEGER 7FFF 1,57,60,64,67,70 0$ ACTYPE INTEGER 01DD D 11,16$$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$( ASC01 INTEGER 08C8 D 35,38,39 (( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$0 BUFF INTEGER 7FFF 1,57,60,64,67,70 0$ BZ INTEGER 08CA D 35,39$$ CID INTEGER 0852 D 23,31$$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$( COMLEN INTEGER 08D6 D 39,44,70 ($ COMLNG INTEGER 08F3 D 52,55$$ COMPIN INTEGER 084C D 23,30$$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$$ DUMMY INTEGER 08E5 D 46,48$$ ENCD INTEGER 08F7 D 52,56$$ EOF INTEGER 08E8 D 48,50$$ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$( FOUR INTEGER 08C1 D 33,35,67 ($ FSTACT INTEGER 07FD D 20,23$" I INTEGER 0002 62 "" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"t FTN 3.3B (OPT = LPC) ACTEDT PAGE 7 DATE: 08/30/84 TIME: 0039 t" IDATTR INTEGER 001E D 1,4"$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$$ INVENT INTEGER 08EE D 52,55$$ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$$ IOBUF INTEGER 07A6 D 17,20$( ISTAT INTEGER 084B D 23,29,30 (: J INTEGER 0000 57,58,60,61,64,65,67,68,70 :$ JDATE INTEGER 0886 D 23,33$: K INTEGER 0001 58,59,60,62,64,66,67,69,70 :$ KEY INTEGER 0866 D 23,31$$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$$ LMASBL INTEGER 08C5 D 35,39$$ LOCKED INTEGER 08E6 D 48,50$$ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$$ LU INTEGER 0849 D 23,30$( MASREC INTEGER 01DD D 11,16,17 ($ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$$ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$$ NINE INTEGER 08C4 D 33,35$$ NOACT INTEGER 08F5 D 52,55$$ NUMACT INTEGER 0854 D 23,31$$ NUMLEN INTEGER 08D4 D 39,44$$ NXTFUN INTEGER 08EF D 52,55$$ NXTYR INTEGER 0885 D 23,32$( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$$ ONE INTEGER 08BE D 33,35$$ OSW INTEGER 084B D 23,29$( OUTBYT INTEGER 08D5 D 39,43,44 ($ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$$ QBREAK INTEGER 0855 D 23,31$" REQBFA INTEGER 00A2 D 5,8"t FTN 3.3B (OPT = LPC) ACTEDT PAGE 8 DATE: 08/30/84 TIME: 0039 t" REQBFB INTEGER 00D2 D 5,9"" REQBFD INTEGER 005A D 5,8"" REQBFF INTEGER 00BA D 5,8"" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$$ SIX INTEGER 08C3 D 33,35$$ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $$ TC INTEGER 084A D 23,30$$ THREE INTEGER 08C0 D 33,35$$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$$ TRBKFL INTEGER 08BA D 23,33$( TRNSBF INTEGER 06BF D 11,14,17 (( TWO INTEGER 08BF D 33,35,64 ($ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$$ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$$ WRONKY INTEGER 08E7 D 48,50$$ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$$ YEAR INTEGER 0847 D 23,29$$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( CCSMVA SUBROUTINE 0016 63,67,70 (" EDIT SUBROUTINE 0007 59 " Q8PKUP INTEGER.FN. 0044 Q8PREP INTEGER.FN. 0041 t FTN 3.3B (OPT = LPC) ACTEDT PAGE 9 DATE: 08/30/84 TIME: 0039 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 10 001F 62,66$" 20 0034 69 " ACTEDT 003E 1  t FTN 3.3B (OPT = LPC) CHSCRN PAGE 1 DATE: 08/30/84 TIME: 0039 t^ 1 SUBROUTINE CHSCRN(REC,XXXCHG) B2500001^^ 1 1 /B25 F CCS CCS 3.0 SL-149B2500002^^ C B2500003^^ C CYBERCREDIT SYSTEM VERSION 3 B2500004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B2500005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B2500006^^ C B2500007^^ C B2500008^^ C B2500009^^ C PROCESS CHANGE SCREENS AND HANDLE SPECIAL SUPERVISOR FUNCTIONS. B2500010^^ C B2500011^^ C ROUTINE TO PROCESS THE BORROWER'S CHANGE SCREEN, THE COSIGNER'S B2500012^^ C SCREEN, AND THE SUPERVISOR'S CHANGE SCREEN. THE ROUTINE CHECKS THEB2500013^^ C ENTRY IN IOBUF FOR A NUMBER INDICATING A CHANGE TO AN ITEM ON THE B2500014^^ C SCREEN IS REQUESTED. THE REQUESTED CHANGE IS MADE TO THE MASTER B2500015^^ C OR COSIGNER RECORD CONTENTS, DISPLAYED ON THE SCREEN, ANY PREVIOUSB2500016^^ C VALUE OR DATE OF LAST CHANGE FIELDS UPDATE, AND FINALLY THE TRANS-B2500017^^ C ACTION IS LOGGED IN THE TRANSACTION FILE. IF THE ENTRY IN IOBUF ISB2500018^^ C A VALID FUNCTION OR ACTION CODE, CONTROL IS RETURNED TO THE CALLERB2500019^^ C ANY OTHER ENTRY IN IOBUF RESULTS IN AN ERROR UNLESS IT IS THE CHARB2500020^^ C ACTERS 'DL' OR 'UH' WHICH INDICATE A SPECIAL SUPERVISOR FUNCTION. B2500021^^ C CALLING SEQUENCE: B2500022^^ C CALL CHSCRN(REC,XXXCHG) B2500023^^ C WHERE: B2500024^^ C REC = THE RECORD THE SCREEN IS DISPLAYING, EITHER MASTER OR B2500025^^ C COSIGNER. B2500026^^ C XXXCHG = CHANGE SCREEN FILED DESCRIPTIONS FOR THE CURRENT SCREEN B2500027^^ C SCREEN DISPLAYED, EITHER CUSCHG, COSCHG, OR SUPCHG. FOR A B2500028^^ C DESCRIPTION OF THIS ARRAY, SEE THE 'GETCHF' SUBROUTINE. B2500029^^ C B2500030^^ C BRING IN COMMON MACRO. B2500031^ ^ M COLMAC B2500033^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 2 DATE: 08/30/84 TIME: 0039 t^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 3 DATE: 08/30/84 TIME: 0039 t^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B2500035^^ 57 INTEGER ASCN,CHBIAS(3),CHGDAT,DL,IDATAA(15),IDATDL(15),IDATUH(15) B2500036^^ 58 INTEGER INVDAT,QDAT,QPOS,UH,UPDFLG,REC(1),XXXCHG(1) B2500037^^ 59 DATA ASCN/$4E/,CHBIAS/0,30,60/,DL/'DL'/,INVDAT/64/,QDAT/300/ B2500038^^ 60 DATA QPOS/271/,UH/'UH'/,UPDFLG/295/,CHGDAT/863/ B2500039^^ 61 INTEGER OLKEYN B2500040^^ 62 DATA OLKEYN/1047/ B2500041^^ 63 DATA IDATAA/'ADDACT CCS20 ',0,1,0/ B2500042^^ 64 DATA IDATDL/'SREQDL CCS20 ',0,1,0/ B2500043^^ 65 DATA IDATUH/'UPHSTCM CCS20 ',0,1,0/ B2500044^ ^ C***********************************************************************B2500047^^ C EACH ITEM ON THE BORROWER'S CHANGE SCREEN AND SUPERVISOR'S SCREEN B2500048^^ C CAN HAVE A PREVIOUS VALUE FIELD AND/OR DATE OF LAST CHANGE FIELD B2500049^^ C ASSOCIATED WITH IT. THE ARRAY 'PRFLD' CONTAINS THE NECESSARY INFORB2500050^^ C MATION TO PERFORM THESE UPDATE TASKS. THE INFORMATION IN 'PRFLD' B2500051^^ C IS BY GROUPS OF THREE WORDS FOR EACH ITEM WITH THE FOLLOWING B2500052^^ C DEFINITION: B2500053^^ C WORD MEANING B2500054^^ C I STARTING POSITION IN FILE FOR THE ITEM ON THE CHANGE SCREB2500055^^ C I+1 STARTING POSITION IN FILE OF THE PREVIOUS VALUE FIELD FORB2500056^^ C THIS ITEM. A VALUE FOR THIS FIELD OF ZERO INDICATES NO B2500057^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 4 DATE: 08/30/84 TIME: 0039 t^ C PREVIOUS VALUE FIELD EXISTS FOR THIS ITEM. B2500058^^ C I+2 STARTING POSITION IN FILE OF DATE OF LAST CHANGE FIELD TOB2500059^^ C BE UPDATED WHEN THIS ITEM IS CHANGED. DO NOT CONFUSE THISB2500060^^ C DATE WITH POSITION 863 IN THE MASTER FILE, THE DATE THE B2500061^^ C ACCOUNT LAST CHANGED VIA CHANGE SCREEN, OR POSITION 300 B2500062^^ C IN THE MASTER FILE, DATE QUEUE CHANGED. THESE FIELDS ARE B2500063^^ C AUTOMATICALLY UPDATED WHEN A CHANGE OCCURS. A VALUE OF ZEB2500064^^ C FOR THIS FIELD INDICATES NO DATE OF LAST CHANGE FIELD IS B2500065^^ C ASSOCIATED WITH THIS ITEM. B2500066^^ C 'NITEM' IS THE START WORD OF THE LAST PREVIOUS FIELD DESCRIPTION B2500067^^ C IN 'PRFLD' ARRAY, I.E., NITEM = 3*(# ITEMS)-2 . B2500068^^ C ITEMS WITH PREVIOUS VALUE OR DATE OF LAST CHANGE FIELDS IN THIS B2500069^^ C VERSION ARE: (IN THE ORDER THEY APPEAR IN 'PRFLD') B2500070^^ C 1. BORROWER'S ADDRESS LINE 1. B2500071^^ C 2. BORROWER'S ADDRESS LINE 2. B2500072^^ C 3. BORROWER'S CITY/STATE. B2500073^^ C 4. BORROWER'S ZIP. B2500074^^ C 5. QUEUE ACCOUNT ASSIGNED. B2500075^ ^ 66 INTEGER PRFLD(15),NITEM B2500077^^ 67 DATA PRFLD/48,757,0,78,787,0,108,817,0,128,837,0,271,296,0/ B2500078^^ 68 DATA NITEM/13/ B2500079^^ C***********************************************************************B2500080^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 5 DATE: 08/30/84 TIME: 0039 t^ C B2500082^^ C GET FIRST CHARACTER OUT OF IOBUF. B2500083^^ 69 10 CALL CCSGET(IOBUF,ONE,J) B2500084^^ C CHECK IF NUMERIC. B2500085^^ 70 IF(J.GE.$30.AND.J.LE.$39) GO TO 100 B2500086^^ C NOT NUMERIC. IF SCREEN IS SUPERVISOR'S SCREEN, CHECK ENTRY FOR B2500087^^ C SPECIAL FUNCTIONS 'DL' AND 'UH'. B2500088^^ 71 IF(LS.NE.35) GO TO 50 B2500089^^ C ON SUPERVISOR'S SCREEN. B2500090^^ 72 IF(IOBUF(1).NE.DL.AND.IOBUF(1).NE.UH) GO TO 50 B2500091^ ^ C HAVE SPECIAL FUNCTIONS REQUEST. THIRD CHARACTER WILL INDICATE WHICB2500093^^ C ACCOUNT. B2500094^^ 73 CALL CCSGET(IOBUF,THREE,J) B2500095^^ C IF BLANK, USE ACCOUNT NUMBER OF ACCOUNT CURRENTLY DISPLAYED. B2500096^^ 74 IF(J.EQ.$20) GO TO 20 B2500097^^ C IF COMMA, USE ACCOUNT NUMBER INPUT AFTER REQUEST. B2500098^^ C IF NOT A BLANK OR COMMA, INVALID ENTRY. B2500099^^ 75 IF(J.NE.$2C) GO TO 60 B2500100^ ^ C ACCOUNT NUMBER WAS ENTERED. MOVE IT TO FILE BUFFER. B2500102^^ 76 CALL CCSMVA(IOBUF,FOUR,NUMLEN,OBUF,ONE,NUMLEN) B2500103^^ 77 GO TO 25 B2500104^ ^ C NO ACCOUNT NUMBER ENTERED. USE NUMBER FROM ACCOUNT ON DISPLAY. B2500106^^ 78 20 CALL CCSMVA(MASREC,ONE,NUMLEN,OBUF,ONE,NUMLEN) B2500107^ ^ C MOVE IN REQUESTOR'S ID. B2500109^^ 79 25 OBUF(9) = TRNSBF(9) B2500110^^ 80 OBUF(10) = TRNSBF(10) B2500111^ ^ C ZERO REQUEST BUFFER AND OPEN APPROPRIATE FILE TO SAVE REQUEST IN. B2500113^^ 81 DO 30 I=1,24 B2500114^^ 82 30 REQBFF(I) = 0 B2500115^^ 83 IF(IOBUF(1).EQ.DL) CALL OPENFL(REQBFF,IDATDL,ISTAT) B2500116^^ 84 IF(IOBUF(1).EQ.UH) CALL OPENFL(REQBFF,IDATUH,ISTAT) B2500117^^ C CHECK FOR ERROR. B2500118^^ 85 IF(ISTAT.LT.0) GO TO 35 B2500119^^ C NO ERROR, STORE RECORD INTO THE FILE IF USER NOT A TRAINEE. B2500120^^ 86 IF(UFLAG.EQ.0) CALL PUTS(REQBFF,OBUF,ONE,ISTAT) B2500121^^ C CHECK FOR ERROR. B2500122^^ 87 IF(ISTAT.LT.0) GO TO 40 B2500123^^ C NO ERROR, CLOSE FILE AND PROMPT FOR NEXT ENTRY. B2500124^^ 88 CALL CLOSFL(REQBFF,ISTAT) B2500125^^ 89 GO TO 270 B2500126^ ^ C FILE ERROR DURING OPEN REQUEST. B2500128^^ 90 35 J = 3 B2500129^^ 91 GO TO 45 B2500130^ ^ C FILE ERROR DURING PUTS REQUEST. B2500132^^ 92 40 J = 11 B2500133^^ C OUTPUT APPROPRIATE ERROR MESSAGE. B2500134^^ 93 45 IF(IOBUF(1).EQ.DL) CALL FILERR(IDATDL,J,ISTAT,LU) B2500135^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 6 DATE: 08/30/84 TIME: 0039 t^ 94 IF(IOBUF(1).EQ.UH) CALL FILERR(IDATUH,J,ISTAT,LU) B2500136^ ^ C FILE ERRORS ARE FATAL. CLOSE ALL FILES AND EXIT. B2500138^^ 95 CALL CLANEX B2500139^  ^ C CHECK IF ENTRY IS A FUNCTION OR ACTION CODE. RETURN IF YES. B2500141^^ 96 50 IOBUF(1) = ICHENT(IOBUF(1)) B2500142^^ 97 IF(IOBUF(1).GT.0) GO TO 280 B2500143^ ^ C NOT A FUNCTION OR ACTION CODE. INVALID ENTRY. B2500145^^ 98 60 CALL DISPLY(INVENT,DUMMY) B2500146^^ 99 GO TO 10 B2500147^  ^ C FIRST CHARACTER WAS NUMERIC, CHECK SECOND CHARACTER. B2500149^^ 100 100 CALL CCSGET(IOBUF,TWO,K) B2500150^^ C CHECK FOR A COMMA INDICATING ONE DIGIT NUMBER. B2500151^^ 101 IF(K.EQ.$2C) GO TO 120 B2500152^^ C NOT A COMMA. CHECK FOR NUMERIC INDICATING TWO DIGIT NUMBER. B2500153^^ 102 IF(K.GE.$30.AND.K.LE.$39) GO TO 110 B2500154^^ C NOT A COMMA OR NUMERIC ENTRY. INVALID ENTRY. B2500155^^ 103 GO TO 60 B2500156^  ^ C TWO DIGIT NUMERIC ENTRY. CONVERT TO A NUMBER. B2500158^^ 104 110 J = ICCSAD(IOBUF(1)) B2500159^^ C SET STARTING POSITION IN IOBUF FOR DATA. B2500160^^ 105 STRPOS = 4 B2500161^^ C CHECK THIRD CHARACTER FOR A COMMA. INVALID ENTRY IF NOT. B2500162^^ 106 CALL CCSGET(IOBUF,THREE,K) B2500163^^ 107 IF(K.NE.$2C) GO TO 60 B2500164^^ 108 GO TO 130 B2500165^ ^ C ONE DIGIT NUMERIC ENTRY. CONVERT TO A NUMBER. B2500167^^ 109 120 J = J - $30 B2500168^^ C SET STARTING POSITION IN IOBUF FOR DATA. B2500169^^ 110 STRPOS = 3 B2500170^  ^ C VERIFY ITEM NUMBER SELECTED IS WITHIN MAXIMUM ALLOWABLE NUMBER. B2500172^^ C INVALID ENTRY IF ITEM NUMBER IS OUT OF RANGE. B2500173^^ 111 130 IF(J.LT.1.OR.J.GT.XXXCHG(1)) GO TO 60 B2500174^ ^ C ITEM NUMBER IS WITHIN BOUNDS. CHECK IF A FIELD IS ASSOCIATED WITH B2500176^^ C THIS NUMBER. B2500177^^ 112 K = 3*J - 1 B2500178^^ C INVALID ENTRY IF NO FIELD ASSOCIATED WITH THIS ITEM NUMBER. B2500179^^ 113 IF(XXXCHG(K).LT.0) GO TO 60 B2500180^ ^ C EXTRACT LENGTH AND FIELD TYPE FROM DESCRIPTION. B2500182^^ 114 LENGTH = XXXCHG(K+1)/$10 B2500183^^ 115 FLDTYP = AND(XXXCHG(K+1),$F) B2500184^ t FTN 3.3B (OPT = LPC) CHSCRN PAGE 7 DATE: 08/30/84 TIME: 0039 t^ C CHANGES IN DATES REQUIRE VALIDATION. B2500186^^ 116 IF(FLDTYP.NE.1) GO TO 160 B2500187^ ^ C CHECK FOR FOUR OR SIX CHARACTER DATE ENTERED. B2500189^^ 117 150 I = STRPOS + 4 B2500190^^ 118 CALL CCSGET(IOBUF,I,L) B2500191^^ 119 IF(L.NE.$20) GO TO 155 B2500192^^ C SIX CHARACTER DATE, USE YEAR ENTERED. B2500193^ ^ C FOUR CHARACTER DATE. DETERMINE YEAR. B2500195^^ 120 L = YEAR B2500196^^ 121 CALL CCSCST(IOBUF,STRPOS,FOUR,DATE,ONE,FOUR,COMPIN) B2500197^^ 122 IF(COMPIN.LT.0) L=NXTYR B2500198^^ C SAVE YEAR. B2500199^^ 123 CALL CCSMVA(L,ONE,TWO,IOBUF,I,TWO) B2500200^^ C VALIDATE CHANGE IN DATE. B2500201^^ 124 155 IF(IDATVR(IOBUF,STRPOS).GE.0) GO TO 170 B2500202^^ C INVALID DATE. REPORT ERROR. B2500203^^ 125 CALL DISPLY(INVDAT,DUMMY) B2500204^^ 126 GO TO 10 B2500205^ ^ C IF CHANGE IS TO AN AMOUNT FIELD, CONVERT INPUT DATA INTO A STANDARB2500207^^ C NINE DIGIT AMOUNT FIELD. B2500208^^ 127 160 IF(FLDTYP.NE.3) GO TO 170 B2500209^ ^ C HAVE AMOUNT FIELD, CONVERT IT. B2500211^^ 128 CALL PIKAMT(IOBUF,STRPOS,KEY,ONE) B2500212^^ C MOVE AMOUNT BACK TO POSITION IN IOBUF. B2500213^^ 129 CALL CCSMVA(KEY,ONE,NINE,IOBUF,STRPOS,NINE) B2500214^   ^ C MOVE OLD DATA INTO TRANSACTION FILE BUFFER. B2500217^^ 130 170 CALL CCSMVA(REC,XXXCHG(K+2),LENGTH,TRNSBF,OLDPOS,LENGTH) B2500218^^ C MOVE NEW DATA INTO TRANSACTION FILE BUFFER. B2500219^^ 131 CALL CCSMVA(IOBUF,STRPOS,LENGTH,TRNSBF,NEWPOS,LENGTH) B2500220^^ C MOVE THE NEW DATA INTO THE FILE. B2500221^^ 132 CALL CCSMVA(IOBUF,STRPOS,LENGTH,REC,XXXCHG(K+2),LENGTH) B2500222^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 8 DATE: 08/30/84 TIME: 0039 t^ C B2500224^^ C CHECK IF FIELD HAS A PREVIOUS VALUE FIELD TO UPDATE. B2500225^^ C B2500226^^ 133 IF(LS-35) 200,205,240 B2500227^^ C B2500228^^ C BORROWER'S SCREEN. MOVE IN CHANGE DATE. B2500229^^ 134 200 CALL CCSMVA(DATE,ONE,SIX,REC,CHGDAT,SIX) B2500230^^ C SET BORROWER'S CHANGE SCREEN UPDATE FLAG INDICATING CHANGE MADE. B2500231^^ 135 CALL CCSPUT(ASC01,UPDFLG,MASREC) B2500232^^ C SET UPDATE TYPE FOR TRANSACTION. B2500233^^ 136 TRNSBF(16) = CHBIAS(1) + J B2500234^^ 137 GO TO 210 B2500235^ ^ C SUPERVISOR'S CHANGE SCREEN. CHECK IF ITEM CHANGED WAS QUEUE AND B2500237^^ C MOVE IN CHANGE DATE IF YES. B2500238^^ 138 205 IF(XXXCHG(K+2).NE.QPOS) GO TO 207 B2500239^^ C YES, QUEUE CHANGE OCCURRED. B2500240^^ 139 CALL CCSMVA(DATE,ONE,SIX,REC,QDAT,SIX) B2500241^^ C SET UPDATE TYPE FOR TRANSACTION. B2500242^^ 140 207 TRNSBF(16) = CHBIAS(3) + J B2500243^ ^ C CHECK IF ITEM CHANGED WAS ACCOUNT NAME. B2500245^^ 141 210 IF(XXXCHG(K+2).NE.NAMPOS) GO TO 230 B2500246^ ^ C NAME CHANGE OCCURRED. FLAG ACCOUNT BY WRITING ACCOUNT NUMBER TO THB2500248^^ C ADD ACCOUNT FILE INDICATING NAME CHANGE. MOVE ACCOUNT NUMBER TO OUB2500249^^ C PUT BUFFER. B2500250^^ 142 CALL CCSCST(DUMMY,ZERO,ZERO,MASREC,OLKEYN,SIX,COMPIN) B2500251^^ 143 CALL CCSMVA(REC,ONE,NUMLEN,OBUF,ONE,NUMLEN) B2500252^^ C PUT FLAG IN POSITION 17 INDICATING NAME CHANGE OCCURRED. B2500253^^ 144 CALL CCSPUT(ASCN,NUMLEN+1,OBUF) B2500254^^ C ZERO REQUEST BUFFER AND OPEN ADD ACCOUNT FILE. B2500255^^ 145 DO 211 I=1,24 B2500256^^ 146 211 REQBFF(I) = 0 B2500257^^ 147 CALL OPENFL(REQBFF,IDATAA,ISTAT) B2500258^^ C CHECK FOR ERROR. B2500259^^ 148 IF(ISTAT.LT.0) GO TO 215 B2500260^^ C NO ERROR, STORE THE RECORD INTO THE FILE IF USER NOT A TRAINEE. B2500261^^ 149 IF (UFLAG.EQ.0.AND.COMPIN.EQ.0) CALL PUTS (REQBFF,OBUF,ONE,ISTAT) B2500262^^ C CHECK FOR ERROR. B2500263^^ 150 IF(ISTAT.LT.0) GO TO 220 B2500264^^ C NO ERROR, CLOSE FILE. B2500265^^ 151 CALL CLOSFL(REQBFF,ISTAT) B2500266^^ C SAVE OLD KEY VALUE OF NAME FOR DELETE RECORD REQUEST IN NAME B2500267^^ C CHANGE ROUTINE IF FRESH NAME CHANGE. B2500268^^ 152 IF(COMPIN.EQ.0) CALL CCSMVA(TRNSBF,OLDPOS,SIX,MASREC,OLKEYN,SIX) B2500269^^ 153 GO TO 230 B2500270^ ^ C FILE ERROR DURING OPEN REQUEST. B2500272^^ 154 215 J = 3 B2500273^^ 155 GO TO 225 B2500274^^ C FILE ERROR DURING PUTS REQUEST. B2500275^^ 156 220 J = 11 B2500276^^ 157 225 CALL FILERR(IDATAA,J,ISTAT,LU) B2500277^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 9 DATE: 08/30/84 TIME: 0039 t^ C FATAL FILE ERROR, TERMINATE. B2500278^^ 158 CALL CLANEX B2500279^ ^ C CHECK IF THERE ARE PREVIOUS VALUE OR DATE OF LAST CHANGE FIELDS B2500281^^ C TO UPDATE FOR THIS ITEM. B2500282^^ 159 230 DO 235 I=1,NITEM,3 B2500283^^ 160 IF(XXXCHG(K+2).NE.PRFLD(I)) GO TO 235 B2500284^^ C FOUND ITEM CONTAINED IN 'PRFLD'. UPDATE PREVIOUS VALUE AND DATE OFB2500285^^ C LAST CHANGE FIELDS IF REQUIRED. B2500286^^ 161 IF(PRFLD(I+1).GT.0) B2500287^^ 161 1 CALL CCSMVA(TRNSBF,OLDPOS,LENGTH,REC,PRFLD(I+1),LENGTH) B2500288^^ 162 IF(PRFLD(I+2).GT.0) B2500289^^ 162 1 CALL CCSMVA(DATE,ONE,SIX,REC,PRFLD(I+2),SIX) B2500290^^ 163 GO TO 245 B2500291^^ 164 235 CONTINUE B2500292^^ 165 GO TO 245 B2500293^ ^ C COSIGNER'S SCREEN. NO PREVIOUS FIELDS. SET TRANSACTION UPDATE TYPEB2500295^^ 166 240 TRNSBF(16) = CHBIAS(2) + J B2500296^^ C SET FLAG TO INDICATE ACTIVITY ENTERED-RECORD MAY NEED TO BE CREATEB2500297^^ 167 COSFLG = 1 B2500298^  ^ C SET UP OUTPUT BUFFER. B2500300^^ 168 245 OBUF(1) = XYWORD(1) B2500301^^ 169 OBUF(2) = XXXCHG(K) B2500302^^ C CHECK IF FIELD NEEDS EDITING. B2500303^^ 170 IF(FLDTYP.EQ.1.OR.FLDTYP.EQ.4.OR.FLDTYP.EQ.6.OR.FLDTYP.EQ.3) B2500304^^ 170 1 GO TO 250 B2500305^^ C NOT EDIT REQUIRED. MOVE IN NEW DATA FOR WRITE. B2500306^^ 171 CALL CCSMVA(IOBUF,STRPOS,LENGTH,OBUF,FIVE,LENGTH) B2500307^^ C SET LENGTH FOR WRITE. ADD 4 BYTES FOR CURSOR POSITIONING. B2500308^^ 172 LENGTH = LENGTH + 4 B2500309^^ 173 GO TO 260 B2500310^ ^ C EDIT REQUIRED. EDIT ACCORDING TO FIELD TYPE. B2500312^^ 174 250 CALL EDIT(IOBUF,STRPOS,OBUF,FIVE,FLDTYP) B2500313^^ C SET LENGTH FOR WRITE. ADD 4 BYTE OF CURSOR POSITIONING AND 2 BYTESB2500314^^ C FOR EDIT CHARACTERS EXCEPT AMOUNT FIELDS WHICH HAVE ONLY 1 BYTE OFB2500315^^ C EDIT CHARACTERS. B2500316^^ 175 LENGTH = LENGTH + 6 B2500317^^ 176 IF(FLDTYP.EQ.3) LENGTH=LENGTH-1 B2500318^  ^ C SET RECORD TYPE AND UPDATE TYPE FOR TRANSACTION. B2500320^^ 177 260 TRNSBF(15) = TYPE2 B2500321^^ 178 TRNSBF(16) = (TRNSBF(16)/10 + $30)*$100 + B2500322^^ 178 1 (TRNSBF(16) - (TRNSBF(16)/10)*10 + $30) B2500323^^ 179 CALL SAVTRN B2500324^^ C OUTPUT NEW FIELD TO SCREEN. B2500325^^ 180 CALL WTREAD(LU,XYN,OBUF,LENGTH,ZERO,ZERO,ZERO,TC) B2500326^   t FTN 3.3B (OPT = LPC) CHSCRN PAGE 10 DATE: 08/30/84 TIME: 0039 t ^ C OPERATION COMPLETE. GET NEXT REQUEST. B2500328^^ 181 270 CALL DISPLY(CSNXTF,DUMMY) B2500329^^ 182 GO TO 10 B2500330^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 11 DATE: 08/30/84 TIME: 0039 t^ C CHECK FOR ENTRY OF A FUNCTION THAT MAY NOT CHANGE THE CURRENT SCREB2500332^ ^ C CHECK FOR ENTRY OF AN ACTION CODE INITIATING THE ACTIVITY SEQUENCEB2500334^^ 183 280 IF(IOBUF(1).LT.16) GO TO 285 B2500335^^ C YES, ACTIVITY SEQUENCE ENTRY SELECTED. B2500336^^ 184 CALL EACTSQ B2500337^^ C UPON RETURN, IOBUF(1) CONTAINS THE NEXT FUNCTION REQUEST. B2500338^^ 185 GO TO 10 B2500339^ ^ C CHECK FOR ENTRY OF 'EA' SELECTING TRAINING METHOD OF ENTRY FOR B2500341^^ C ACTIVITY. B2500342^^ 186 285 IF(IOBUF(1).NE.8) GO TO 290 B2500343^^ C 'EA' IS THE NEXT FUNCTION REQUEST. B2500344^^ 187 CALL EATRNG B2500345^^ C UPON RETURN, IOBUF(1) CONTAINS THE NEXT FUNCTION REQUEST. B2500346^^ 188 GO TO 10 B2500347^ ^ C CHECK FOR A PERMANENT COMMENT CHANGE REQUEST. B2500349^^ 189 290 IF(IOBUF(1).LT.10.OR.IOBUF(1).GT.12) RETURN B2500350^^ C HAVE PERMANENT COMMENT CHANGE REQUEST. B2500351^^ 190 CALL PCPROC B2500352^^ C PROMPT FOR ENTRY OF NEXT FUNCTION. B2500353^^ 191 GO TO 270 B2500354^  ^ 192 END B2500356^t FTN 3.3B (OPT = LPC) CHSCRN PAGE 12 DATE: 08/30/84 TIME: 0039 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0311 ( 785)   EXTERNALS 2 Q8PKUP Q8PREP CCSGET CCSMVA OPENFL PUTS CLOSFL 22 FILERR CLANEX ICHENT DISPLY ICCSAD CCSCST IDATVR 22 PIKAMT CCSPUT EDIT SAVTRN WTREAD EACTSQ EATRNG 2 PCPROC  t FTN 3.3B (OPT = LPC) CHSCRN PAGE 13 DATE: 08/30/84 TIME: 0039 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < 6 000A (10) 004E 178,178,182,185,188,1896& 000F (15) 004C 115,177&   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$$ ACTRET INTEGER 0851 D 23,31$$ ACTYPE INTEGER 01DD D 11,16$" AND INTR.FN. 7FFF 115"$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$, ASC01 INTEGER 08C8 D 35,38,39,135 ,( ASCN INTEGER 0000 56,59,144(( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$$ BZ INTEGER 08CA D 35,39$0 CHBIAS INTEGER 0001 56,59,136,140,1660( CHGDAT INTEGER 0004 56,60,134($ CID INTEGER 0852 D 23,31$$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$8 COMPIN INTEGER 084C D 23,30,121,122,142,149,1528$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $( COSFLG INTEGER 08BB D 23,33,167(( COSREC INTEGER 05C5 D 11,13,17 (( CSNXTF INTEGER 08F0 D 52,55,181($ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $8 DATE INTEGER 0845 D 23,29,30,121,134,139,162 8$ DAY INTEGER 0846 D 23,29$. DL INTEGER 0005 56,59,72,83,93 .4 DUMMY INTEGER 08E5 D 46,48,98,125,142,181 4$ ENCD INTEGER 08F7 D 52,56$t FTN 3.3B (OPT = LPC) CHSCRN PAGE 14 DATE: 08/30/84 TIME: 0039 t$ EOF INTEGER 08E8 D 48,50$$ FE INTEGER 08F8 D 52,56$, FIVE INTEGER 08C2 D 33,35,171,174,< FLDTYP INTEGER 084E D 23,30,115,116,127,170,174,176<, FOUR INTEGER 08C1 D 33,35,76,121 ,$ FSTACT INTEGER 07FD D 20,23$H I INTEGER 004A 80,82,117,118,123,145,146,159,160,161,162H, IDATAA INTEGER 0006 56,63,147,157," IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"* IDATDL INTEGER 0015 56,64,83,93*" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"" IDATTR INTEGER 001E D 1,4"* IDATUH INTEGER 0024 56,65,84,94*$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$( INVDAT INTEGER 0033 56,59,125(( INVENT INTEGER 08EE D 52,55,98 ($ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$ IOBUF INTEGER 07A6 D 17,20,69,72,73,76,83,84,93,94,96,97,100,104,106,118,121,123,124,128,129,131,132,171,174,183,186, " 189"X ISTAT INTEGER 084B D 23,29,30,83,84,85,86,87,88,93,94,147,148,149,150,151,157 Xb J INTEGER 0049 69,70,73,74,75,90,92,93,94,104,109,111,112,136,140,154,156,157,166 b$ JDATE INTEGER 0886 D 23,33$Z K INTEGER 004B 100,101,102,106,107,112,113,114,115,130,132,138,141,160,169Z, KEY INTEGER 0866 D 23,31,128,129,2 L INTEGER 004D 118,119,120,122,1232L LENGTH INTEGER 084D D 23,30,114,130,131,132,161,171,172,175,176,180L$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$$ LMASBL INTEGER 08C5 D 35,39$$ LOCKED INTEGER 08E6 D 48,50$, LS INTEGER 0848 D 23,30,71,133 ,$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$2 LU INTEGER 0849 D 23,30,93,94,157,18026 MASREC INTEGER 01DD D 11,16,17,78,135,142,1526$ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$( NAMPOS INTEGER 08D3 D 39,44,141($ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$( NEWPOS INTEGER 08D2 D 39,44,131(( NINE INTEGER 08C4 D 33,35,129(t FTN 3.3B (OPT = LPC) CHSCRN PAGE 15 DATE: 08/30/84 TIME: 0039 t( NITEM INTEGER 0048 65,68,159($ NOACT INTEGER 08F5 D 52,55$$ NUMACT INTEGER 0854 D 23,31$2 NUMLEN INTEGER 08D4 D 39,44,76,78,143,1442$ NXTFUN INTEGER 08EF D 52,55$( NXTYR INTEGER 0885 D 23,32,122(V OBUF INTEGER 07CF D 17,19,20,76,78,79,80,86,143,144,149,168,169,171,174,180V$ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$0 OLDPOS INTEGER 08D1 D 39,44,130,152,1610, OLKEYN INTEGER 0038 60,62,142,152,T ONE INTEGER 08BE D 33,35,69,76,78,86,121,123,128,129,134,139,143,149,162T$ OSW INTEGER 084B D 23,29$( OUTBYT INTEGER 08D5 D 39,43,44 ($ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$0 PRFLD INTEGER 0039 65,67,160,161,1620$ QBREAK INTEGER 0855 D 23,31$( QDAT INTEGER 0034 56,59,139(( QPOS INTEGER 0035 56,60,138(@ REC INTEGER 7FFF 1,58,130,132,134,139,143,161,162 @" REQBFA INTEGER 00A2 D 5,8"" REQBFB INTEGER 00D2 D 5,9"" REQBFD INTEGER 005A D 5,8"B REQBFF INTEGER 00BA D 5,8,82,83,84,86,88,146,147,149,151 B" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$8 SIX INTEGER 08C3 D 33,35,134,139,142,152,1628$ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$P STRPOS INTEGER 084F D 23,30,105,110,117,121,124,128,129,131,132,171,174P$ SUPCHG INTEGER 01A0 D 9,11 $( TC INTEGER 084A D 23,30,180(, THREE INTEGER 08C0 D 33,35,73,106 ,$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$$ TRBKFL INTEGER 08BA D 23,33$R TRNSBF INTEGER 06BF D 11,14,17,79,80,130,131,136,140,152,161,166,177,178 R, TWO INTEGER 08BF D 33,35,100,123,$ TYPE1 INTEGER 08C8 D 35,38$( TYPE2 INTEGER 08C9 D 35,39,177(, UFLAG INTEGER 0870 D 23,31,86,149 ,. UH INTEGER 0036 56,60,72,84,94 .( UPDFLG INTEGER 0037 56,60,135($ VALACT INTEGER 0706 D 11,15$t FTN 3.3B (OPT = LPC) CHSCRN PAGE 16 DATE: 08/30/84 TIME: 0039 t$ VALQ INTEGER 0856 D 23,31$$ WRONKY INTEGER 08E7 D 48,50$L XXXCHG INTEGER 7FFF 1,58,111,113,114,115,130,132,138,141,160,169 L( XYN INTEGER 08EC D 50,52,180(( XYWORD INTEGER 08E9 D 50,52,168(( YEAR INTEGER 0847 D 23,29,120(, ZERO INTEGER 08BD D 33,35,142,180,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & CCSCST SUBROUTINE 01D0 120,142&0 CCSGET SUBROUTINE 00F4 68,73,100,106,1180T CCSMVA SUBROUTINE 024B 75,78,123,129,130,131,132,134,139,143,152,161,162,171T& CCSPUT SUBROUTINE 01AC 134,144&& CLANEX SUBROUTINE 022D 94,158 && CLOSFL SUBROUTINE 0211 87,151 &* DISPLY SUBROUTINE 02CC 98,125,181 *" EACTSQ SUBROUTINE 02D6 183"" EATRNG SUBROUTINE 02DD 186"" EDIT SUBROUTINE 029B 174"( FILERR SUBROUTINE 0227 93,94,157(" ICCSAD INTEGER.FN. 0105 104"" ICHENT INTEGER.FN. 00E4 96 "" IDATVR INTEGER.FN. 0161 124"( OPENFL SUBROUTINE 01F5 83,84,147(" PCPROC SUBROUTINE 02E7 189"" PIKAMT SUBROUTINE 0173 127"& PUTS SUBROUTINE 0207 86,149 & Q8PKUP INTEGER.FN. 02F1 Q8PREP INTEGER.FN. 02EE " SAVTRN SUBROUTINE 02C0 178"" WTREAD SUBROUTINE 02C2 178"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < 4 10 004F 68,99,126,182,185,1884$ 20 0082 74,78$$ 25 0089 76,79$$ 30 0093 80,82$$ 35 00C6 85,90$$ 40 00CA 87,92$$ 45 00CC 90,93$( 50 00E3 71,72,96 (4 60 00ED 75,98,103,107,111,1134& 100 00F3 70,100 && 110 0104 102,104&t FTN 3.3B (OPT = LPC) CHSCRN PAGE 17 DATE: 08/30/84 TIME: 0039 t& 120 0114 101,109&& 130 0119 107,111&" 150 0138 116"& 155 0160 119,124&& 160 016F 116,127&* 170 017F 124,127,130*& 200 01A4 133,134&& 205 01B7 133,138&& 207 01C4 138,140&& 210 01C8 136,141&& 211 01EB 144,146&& 215 0220 148,154&& 220 0223 150,156&& 225 0226 154,157&* 230 022E 141,153,159** 235 0268 159,160,164*& 240 026E 133,166&* 245 0276 162,165,168*& 250 029A 170,174&& 260 02AA 172,177&* 270 02CB 88,181,191 *& 280 02D1 97,183 && 285 02D9 183,186&& 290 02E0 186,189& CHSCRN 02EB 1  t FTN 3.3B (OPT = LPC) CLANEX PAGE 1 DATE: 08/30/84 TIME: 0041 t^ 1 SUBROUTINE CLANEX B2700001^^ 1 1 /B27 F CCS CCS 3.0 SL-149B2700002^^ C B2700003^^ C CYBERCREDIT SYSTEM VERSION 3 B2700004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B2700005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B2700006^^ C B2700007^^ C B2700008^^ C B2700009^^ C CLOSE ALL OPEN FILES AND EXIT. B2700010^^ C B2700011^^ C TERMINATION MODULE TO CLOSE ALL OPEN FILES AND PERFORM THE LOG-OFFB2700012^^ C LOG-OFF IS DONE VIA A CHAIN REQUEST WITH AN EXIT COMMAND. B2700013^^ C B2700014^ ^ C RETRIEVE COMMON MACRO. B2700016^ ^ M COLMAC B2700018^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^t FTN 3.3B (OPT = LPC) CLANEX PAGE 2 DATE: 08/30/84 TIME: 0041 t^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ t FTN 3.3B (OPT = LPC) CLANEX PAGE 3 DATE: 08/30/84 TIME: 0041 t^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B2700020^^ 57 INTEGER EXITRQ(4) B2700021^^ 58 DATA EXITRQ/'EX '/ B2700022^   ^ C CLOSE DELINQUENT MASTER FILE. B2700025^^ 59 CALL CLOSFL(REQBFD,ISTAT) B2700026^ ^ C CLOSE SCREEN FILE. B2700028^^ 60 CALL CLOSFL(REQBFS,ISTAT) B2700029^ ^ C CLOSE MAIN TRANSCATION FILE. B2700031^^ 61 CALL CLOSFL(REQBFT,ISTAT) B2700032^ ^ C CLOSE DAILY ASSIGNMENT FILE. B2700034^^ 62 CALL CLOSFL(REQBFA,ISTAT) B2700035^ ^ C CLOSE FLOATER FILE OPEN. B2700037^^ 63 CALL CLOSFL(REQBFF,ISTAT) B2700038^ ^ C CLOSE SECONDARY BACKUP TRANSACTION FILE IF USED B2700040^^ 64 IF(TRBKFL.EQ.1) CALL CLOSFL(REQBFB,ISTAT) B2700041^ ^ C DELETE COLLECTOR FROM ACTIVE USER FILE, IF LOGGED ON. B2700043^^ 65 IF(CID(1).LT.0) GO TO 50 B2700044^ ^ C ZERO REQUEST BUFFER AND OPEN FILE. B2700046^^ 66 DO 10 I=1,24 B2700047^^ 67 10 REQBFF(I) = 0 B2700048^^ 68 CALL OPENFL(REQBFF,IDATAU,ISTAT) B2700049^^ C CHECK FOR ERROR. B2700050^^ 69 IF(ISTAT.LT.0) GO TO 25 B2700051^^ C RETRIEVE RECORD FROM FILE USEING COLLECTOR/LOG-ON ID AS KEY B2700052^^ 70 CALL READR (REQBFF,MASREC,TRNSBF(9),ISTAT) B2700053^^ C CHECK FOR ERROR. OR WRONG KEY RETRIEVAL. B2700054^^ 71 IF(ISTAT.LT.0.OR.AND(ISTAT,WRONKY).EQ.WRONKY) GO TO 30 B2700055^t FTN 3.3B (OPT = LPC) CLANEX PAGE 4 DATE: 08/30/84 TIME: 0041 t^ C CORRECT RECORD FOUND, DELETE IT. B2700056^^ 72 CALL DELREC(REQBFF,MASREC,ISTAT) B2700057^^ C CHECK FOR ERROR. B2700058^^ 73 IF(ISTAT.LT.0) GO TO 35 B2700059^^ C NO ERROR, CLOSE FILE AND EXIT. B2700060^^ 74 GO TO 45 B2700061^ ^ C FILE ERROR DURING LOG OFF FROM ACTIVE USER FILE. B2700063^ ^ C OPEN FILE ERROR. B2700065^^ 75 25 J = 3 B2700066^^ 76 GO TO 40 B2700067^ ^ C READR ERROR. B2700069^^ 77 30 J = 13 B2700070^^ 78 GO TO 40 B2700071^ ^ C DELREC ERROR. B2700073^^ 79 35 J = 16 B2700074^ ^ C REPORT ERROR, CLOSE FILE AND EXIT. B2700076^^ 80 40 CALL FILERR(IDATAU,J,ISTAT,LU) B2700077^ ^ C CLOSE FILE. B2700079^^ 81 45 CALL CLOSFL(REQBFF,ISTAT) B2700080^  ^ C EXECUTE CHAIN REQUEST TO PERFORM LOG-OFF. B2700082^^ 82 50 CALL CHAIN(EXITRQ) B2700083^  ^ 83 END B2700085^t FTN 3.3B (OPT = LPC) CLANEX PAGE 5 DATE: 08/30/84 TIME: 0041 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0069 ( 105)   EXTERNALS , CLOSFL OPENFL READR DELREC FILERR CHAIN , t FTN 3.3B (OPT = LPC) CLANEX PAGE 6 DATE: 08/30/84 TIME: 0041 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$$ ACTRET INTEGER 0851 D 23,31$$ ACTYPE INTEGER 01DD D 11,16$" AND INTR.FN. 7FFF 71 "$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$( ASC01 INTEGER 08C8 D 35,38,39 (( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$$ BZ INTEGER 08CA D 35,39$( CID INTEGER 0852 D 23,31,65 ($ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$$ COMPIN INTEGER 084C D 23,30$$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$$ DUMMY INTEGER 08E5 D 46,48$$ ENCD INTEGER 08F7 D 52,56$$ EOF INTEGER 08E8 D 48,50$( EXITRQ INTEGER 0000 56,58,82 ($ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$$ FOUR INTEGER 08C1 D 33,35$$ FSTACT INTEGER 07FD D 20,23$$ I INTEGER 0004 65,67$( IDATAU INTEGER 003C D 1,4,68,80(" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"t FTN 3.3B (OPT = LPC) CLANEX PAGE 7 DATE: 08/30/84 TIME: 0041 t" IDATTR INTEGER 001E D 1,4"$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$$ INVENT INTEGER 08EE D 52,55$$ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$$ IOBUF INTEGER 07A6 D 17,20$R ISTAT INTEGER 084B D 23,29,30,59,60,61,62,63,64,68,69,70,71,72,73,80,81 R. J INTEGER 0005 75,75,77,79,80 .$ JDATE INTEGER 0886 D 23,33$$ KEY INTEGER 0866 D 23,31$$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$$ LMASBL INTEGER 08C5 D 35,39$$ LOCKED INTEGER 08E6 D 48,50$$ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$( LU INTEGER 0849 D 23,30,80 (. MASREC INTEGER 01DD D 11,16,17,70,72 .$ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$$ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$$ NINE INTEGER 08C4 D 33,35$$ NOACT INTEGER 08F5 D 52,55$$ NUMACT INTEGER 0854 D 23,31$$ NUMLEN INTEGER 08D4 D 39,44$$ NXTFUN INTEGER 08EF D 52,55$$ NXTYR INTEGER 0885 D 23,32$( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$$ ONE INTEGER 08BE D 33,35$$ OSW INTEGER 084B D 23,29$( OUTBYT INTEGER 08D5 D 39,43,44 ($ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$$ QBREAK INTEGER 0855 D 23,31$& REQBFA INTEGER 00A2 D 5,8,62 && REQBFB INTEGER 00D2 D 5,9,64 &t FTN 3.3B (OPT = LPC) CLANEX PAGE 8 DATE: 08/30/84 TIME: 0041 t& REQBFD INTEGER 005A D 5,8,59 &4 REQBFF INTEGER 00BA D 5,8,63,67,68,70,72,814& REQBFS INTEGER 0072 D 5,8,60 && REQBFT INTEGER 008A D 5,8,61 &$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$$ SIX INTEGER 08C3 D 33,35$$ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $$ TC INTEGER 084A D 23,30$$ THREE INTEGER 08C0 D 33,35$$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$( TRBKFL INTEGER 08BA D 23,33,64 (* TRNSBF INTEGER 06BF D 11,14,17,70*$ TWO INTEGER 08BF D 33,35$$ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$$ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$( WRONKY INTEGER 08E7 D 48,50,71 ($ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$$ YEAR INTEGER 0847 D 23,29$$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CHAIN SUBROUTINE 0061 82 "4 CLOSFL SUBROUTINE 0007 58,60,61,62,63,64,81 4" DELREC SUBROUTINE 0047 71 "" FILERR SUBROUTINE 0058 80 "" OPENFL SUBROUTINE 002E 67 "" READR SUBROUTINE 0038 69 "t FTN 3.3B (OPT = LPC) CLANEX PAGE 9 DATE: 08/30/84 TIME: 0041 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 10 0024 65,67$$ 25 004F 69,75$$ 30 0052 71,77$$ 35 0055 73,79$( 40 0057 75,78,80 ($ 45 005D 73,81$$ 50 0060 65,82$ CLANEX 0065 1  t FTN 3.3B (OPT = LPC) DAAASC PAGE 1 DATE: 08/30/84 TIME: 0041 t^ 1 SUBROUTINE DAAASC B3500001^^ 1 1 /B35 F CCS CCS 3.0 SL-149B3500002^^ C B3500003^^ C CYBERCREDIT SYSTEM VERSION 3 B3500004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3500005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3500006^^ C B3500007^^ C B3500008^^ C B3500009^^ C DISPLAY ACTIVITY SCREENS. B3500010^^ C B3500011^^ C ROUTINE TO DISPLAY COLLECTION ACTIVITIES FROM THE MASTER RECORD B3500012^^ C AND ACTIVITY HISTORY FILE. DISPLAY BEGINS WITH THE FIRST ACTIVITY B3500013^^ C FROM THE MASTER RECORD AND CONTINUES WITH ACTIVITIES FROM IT UNTILB3500014^^ C THE STRING RETRIEVED MATCHES THE FIRST STRING FROM THE FIRST B3500015^^ C ACTIVITY HISTORY BLOCK FOR THIS ACCOUNT, IF IT EXISTS. THEN RETRIEB3500016^^ C VAL OF ACTIVITIES IS FROM THE ACTIVITY HISTORY BLOCKS FOR AS AS MAB3500017^^ C ACTIVITIES EXIST IN THE ACTIVITY HISTORY FILE FOR THIS ACCOUNT. B3500018^^ C THE ACTIVITIES ARE DISPLAYED ONE LINE AT A TIME STARTING ON THE LIB3500019^^ C SPECIFIED IN THE SCREEN DEFINITION. ACTIVITIES ARE OUTPUT THRU LINB3500020^^ C 21, THEN A PROMPT IS ISSUED FOR NEXT FUNCTION. AN ENTRY OF 'AA' WIB3500021^^ C CONTINUE THE DISPLAY IF MORE ACTIVITIES EXIST FOR THIS ACCOUNT. B3500022^^ C B3500023^  ^ C RETRIEVE THE COMMON MACRO. B3500025^ ^ M COLMAC B3500027^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^t FTN 3.3B (OPT = LPC) DAAASC PAGE 2 DATE: 08/30/84 TIME: 0041 t^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^t FTN 3.3B (OPT = LPC) DAAASC PAGE 3 DATE: 08/30/84 TIME: 0041 t^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B3500029^^ 57 INTEGER AA,CLRLIN(52),ENDLEN,ENDMSG(12),IDATAC(15),LACFBL(2) B3500030^^ 58 INTEGER LASTBL,LC,SAVLEN,SAVSTR(36) B3500031^^ 59 DATA AA/'AA'/,ENDLEN/23/,LACFBL/'0482'/,SAVLEN/-1/ B3500032^^ 60 DATA ENDMSG/'END OF ACTIVITY HISTORY '/ B3500033^^ 61 DATA IDATAC/'ACTFIL CCS20 ',1,1,0/ B3500034^^ 62 DATA CLRLIN/$1B31,0,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A, B3500035^^ 62 1 $16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16, B3500036^^ 62 2 $D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A, B3500037^^ 62 3 $16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,$16,$D0A,0,0/ B3500038^ ^ C INTIALIZE LAST BLOCK FLAG AND OUTPUT LINE COUNTER. B3500040^^ 63 LASTBL = 0 B3500041^^ 64 LC = 0 B3500042^^ C INITIALIZE RETURN VALUE FOR DISPLAY OF ADDITIONAL ACTIVITIES REQUEB3500043^^ 65 ASSIGN 455 TO IRTN2 B3500044^  ^ C B3500046^^ C OPEN ACTIVITY HISTORY FILE. B3500047^^ C B3500048^^ C ZERO REQUEST BUFFER. B3500049^^ 66 DO 10 I=1,24 B3500050^^ 67 10 REQBFF(I) = 0 B3500051^ ^ 68 CALL OPENFL(REQBFF,IDATAC,ISTAT) B3500053^^ C CHECK FOR ERROR. B3500054^t FTN 3.3B (OPT = LPC) DAAASC PAGE 4 DATE: 08/30/84 TIME: 0041 t^ 69 IF(ISTAT.LT.0) GO TO 800 B3500055^ ^ C NO ERROR. RETRIEVE FIRST ACTIVITY HISTORY BLOCK FOR THIS ACCOUNT. B3500057^^ C SET UP KEY FOR RETRIEVAL. B3500058^^ 70 CALL CCSMVA(MASREC,ONE,NUMLEN,KEY,ONE,NUMLEN) B3500059^^ 71 KEY(9) = ASC00 B3500060^ ^ 72 20 CALL READR(REQBFF,ACTHST,KEY,ISTAT) B3500062^ ^ C IF END-OF-FILE, NO BLOCK EXISTS FOR THIS ACCOUNT. B3500064^^ 73 IF(AND(ISTAT,EOF).EQ.EOF) GO TO 50 B3500065^^ C IF RECORD IS LOCKED, REPEAT REQUEST UNTIL RETRIEVAL IS SUCCESSFUL.B3500066^^ 74 IF(AND(ISTAT,LOCKED).EQ.LOCKED) GO TO 20 B3500067^^ C CHECK FOR OTHER ERRORS. B3500068^^ 75 IF(ISTAT.LT.0) GO TO 810 B3500069^^ C CHECK ACCOUNT IN BLOCK RETRIEVED AGAINST ACCOUNT NUMBER DESIRED. B3500070^^ 76 CALL CCSCST(MASREC,ONE,NUMLEN,ACTHST,ONE,NUMLEN,COMPIN) B3500071^^ C NO MATCH INDICATES RETRIEVED BLOCK NOT FOR THIS ACCOUNT AND NO BLOB3500072^^ C EXISTS FOR THE ACCOUNT. B3500073^^ 77 IF(COMPIN.NE.0) GO TO 50 B3500074^ ^ C FOUND FIRST ACTIVITY HISTORY BLOCK FOR ACCOUNT. RETRIEVE AND SAVE B3500076^^ C FIRST ACTIVITY FROM IT. B3500077^^ 78 OSW = ASC01 B3500078^^ 79 CALL GETACF(SAVSTR,ACTHST(10),LACFBL,OSW) B3500079^^ C HAVE FIRST ACTIVITY SAVED. START RETRIEVAL AND DISPLAY OF ACTIVITIB3500080^^ C FROM MASTER RECORD. B3500081^^ 80 GO TO 100 B3500082^  ^ C NO BLOCK EXISTS FOR THIS ACCOUNT. SET FLAG TO INDICATE ACCOUNT ONLB3500084^^ C HAS A MASTER FILE ACTIVITY BLOCK. B3500085^^ 81 50 LASTBL = -1 B3500086^t FTN 3.3B (OPT = LPC) DAAASC PAGE 5 DATE: 08/30/84 TIME: 0041 t^ C START RETRIEVING ACTIVITIES FROM MASTER RECORD. RESET OSW TO ALLOWB3500088^^ C RETRIEVAL TO START WITH THE FIRST ACTIVITY IN MASTER RECORD. B3500089^^ 82 100 OSW = ASC01 B3500090^ ^ C RETRIEVE NEXT ACTIVITY. B3500092^^ 83 110 CALL GETACF(STRING,MASREC(154),LMASBL,OSW) B3500093^^ C CHECK IF ALL ACTIVITIES HAVE BEEN RETRIEVED. B3500094^^ 84 IF(OSW.EQ.ASC01) GO TO 130 B3500095^ ^ C NO, HAVE AN ACTIVITY TO DISPLAY. COMPARE AGAINST STRING RETRIEVED B3500097^^ C FROM FIRST ACTIVITY HISTORY BLOCK. BYPASS THIS COMPARE IF NO BLOCKB3500098^^ C EXISTED FOR THIS ACCOUNT. B3500099^^ 85 IF(LASTBL.NE.0) GO TO 120 B3500100^^ C IF THE DATE MATCHES-BEGIN RETRIEVING FROM THE ACTIVITY FILE WHERE B3500101^^ C THE ACTIVITY COMMENTS HAVE BEEN SORTED IN PROPER ORDER TO FORM B3500102^^ C PARAGRAPHS B3500103^^ 86 CALL CCSCST(STRING,ONE,SIX,SAVSTR,ONE,SIX,COMPIN) B3500104^ ^ C IF STRINGS MATCH, START RETRIEVING AND DISPLAYING ACTIVITIES FROM B3500106^^ C NEW BLOCK. B3500107^^ 87 IF(COMPIN.EQ.0) GO TO 200 B3500108^ ^ C NO MATCH, OUTPUT THIS ACTIVITY TO SCREEN. B3500110^^ 88 120 ASSIGN 110 TO IRTN B3500111^^ 89 GO TO 400 B3500112^ ^ C END OF ACTIVITY RETRIEVAL FROM MASTER RECORD. CHECK IF THIS IS THEB3500114^^ C END OF ALL ACTIVITIES. B3500115^^ 90 130 IF(LASTBL.NE.0) GO TO 225 B3500116^ ^ C NOT THE END OF ACTIVITIES. MOVE ON TO START RETRIEVAL OF ACTIVITIEB3500118^^ C FROM ACTIVITY HISTORY FILE. B3500119^t FTN 3.3B (OPT = LPC) DAAASC PAGE 6 DATE: 08/30/84 TIME: 0041 t^ C START OF RETRIEVAL OF ACTIVITIES FROM NEW ACTIVITY HISTORY BLOCK. B3500121^^ C RESET OSW TO ALLOW RETRIVAL TO START WITH FIRST ACTIVITY. B3500122^^ 91 200 OSW = ASC01 B3500123^ ^ C RETRIEVE NEXT ACTIVITY. B3500125^^ 92 210 CALL GETACF(STRING,ACTHST(10),LACFBL,OSW) B3500126^^ C CHECK IF ALL ACTIVITIES HAVE BEEN RETREIVED FROM THIS BLOCK. B3500127^^ 93 IF(OSW.EQ.ASC01) GO TO 220 B3500128^ ^ C NO, OUTPUT THIS ACTIVITY. B3500130^^ 94 ASSIGN 210 TO IRTN B3500131^^ 95 GO TO 400 B3500132^  ^ C ACTIVITY HISTORY BLOCK IN USE EXHAUSTED, RETRIEVE NEXT BLOCK. B3500134^^ 96 220 CALL GETS(REQBFF,ACTHST,KEY,ISTAT) B3500135^^ C CHECK FOR END-OF-FILE INDICATING NO OTHER BLOCKS EXIST FOR THIS B3500136^^ C ACCOUNT. B3500137^^ 97 IF(AND(ISTAT,EOF).EQ.EOF) GO TO 225 B3500138^^ C CHECK FOR OTHER ERRORS. B3500139^^ 98 IF(ISTAT.LT.0) GO TO 820 B3500140^^ C CHECK ACCOUNT NUMBER IN BLOCK RETRIEVED AGAINST ACCOUNT NUMBER B3500141^^ C DESIRED. MATCH INDICATES ANOTHER BLOCK EXISTS FOR THIS ACCOUNT. B3500142^^ 99 CALL CCSCST(MASREC,ONE,NUMLEN,ACTHST,ONE,NUMLEN,COMPIN) B3500143^^ 100 IF(COMPIN.EQ.0) GO TO 200 B3500144^ ^ C NO MATCH AND NO MORE ACTIVITIES. SET FLAG TO INDICATE LAST BLOCK. B3500146^^ 101 225 LASTBL = 1 B3500147^^ C MOVE END OF ACTIVITY DISPLAY MESSAGE INTO OUTPUT BUFFER. B3500148^^ 102 230 CALL CCSMVA(ENDMSG,ONE,ENDLEN,OBUF,ONE,OUTBYT) B3500149^^ C THERE IS NO DISPLAY OF ADDITIONAL ACTIVITIES, SO ENTRY OF 'AA' FORB3500150^^ C NEXT FUNCTION IS INVALID. B3500151^^ 103 ASSIGN 420 TO IRTN2 B3500152^^ 104 GO TO 405 B3500153^t FTN 3.3B (OPT = LPC) DAAASC PAGE 7 DATE: 08/30/84 TIME: 0041 t^ C EDIT ACTIVITY STRING INTO OUTPUT BUFFER. B3500155^^ 105 400 CALL CCSBLK(OBUF,OUTBYT) B3500156^^ 106 CALL ACTEDT(STRING,OBUF) B3500157^^ C WRITE OUTPUT BUFFER TO THE SCREEN. B3500158^^ 107 405 CALL WTREAD(LU,XYN,OBUF,OUTBYT,ZERO,ZERO,ZERO,TC) B3500159^^ C INCREMENT LINE COUNT. B3500160^^ 108 LC = LC + 1 B3500161^^ C CHECK IF SCREEN FULL. RETURN TO GET NEXT ACTIVITY IF SCREEN NOT B3500162^^ 109 IF(LC.LT.(22-LINSTR).AND.LASTBL.LE.0) GO TO IRTN B3500163^ ^ C SCREEN IS FULL OR END OF ACTIVITIES ENCOUNTERED. PROMPT FOR NEXT B3500165^^ C FUNCTION. B3500166^^ 110 410 CALL DISPLY(NXTFUN,DUMMY) B3500167^ ^ C CHECK FOR ENTRY OF 'AA' TO DISPLAY ADDITIONAL ACTIVITIES. B3500169^^ 111 415 IF(IOBUF(1).EQ.AA) GO TO IRTN2 B3500170^ ^ C ENTRY NOT 'AA', CHECK FOR OTHER VALID ENTRIES. B3500172^^ 112 IOBUF(1) = ICHENT(IOBUF(1)) B3500173^^ C RETURN IF VALID ENTRY. B3500174^^ 113 IF(IOBUF(1).GT.0) GO TO 425 B3500175^ ^ C NOT A VALID ENTRY. OUTPUT ERROR MESSAGE AND CHECK NEXT ENTRY. B3500177^^ 114 420 CALL DISPLY(INVENT,DUMMY) B3500178^^ 115 GO TO 415 B3500179^   ^ C CHECK FOR ENTRY OF A FUNCTION THAT MAY NOT CHANGE THE CURRENT SCREB3500181^ ^ C CHECK FOR ENTRY OF AN ACTION CODE INITIATING THE ACTIVITY SEQUENCEB3500183^^ 116 425 IF(IOBUF(1).LT.16) GO TO 430 B3500184^^ C YES, ENTER ACTIVITY SEQUENCE SELECTED. B3500185^^ 117 CALL EACTSQ B3500186^^ C UPON RETURN, IOBUF(1) CONTAINS THE NEXT FUNCTION REQUEST. B3500187^^ 118 GO TO 415 B3500188^ ^ C CHECK FOR ENTRY OF 'EA', TRAINING METHOD OF ENTRY FOR ACTIVITIES. B3500190^^ 119 430 IF(IOBUF(1).NE.8) GO TO 435 B3500191^^ C 'EA' IS NEXT FUNCTION. B3500192^^ 120 CALL EATRNG B3500193^^ C UPON RETURN, IOBUF(1) CONTAINS THE NEXT FUNCTION REQUEST. B3500194^^ 121 GO TO 415 B3500195^ ^ C CHECK FOR PERMANENT COMMENT CHANGE REQUEST. B3500197^^ 122 435 IF (IOBUF(1).LT.10.OR.IOBUF(1).GT.12) GO TO 900 B3500198^^ C HAVE PERMANENT COMMENT CHANGE REQUEST. B3500199^^ 123 CALL PCPROC B3500200^^ C PROMPT FOR NEXT FUNCTION. B3500201^^ 124 GO TO 410 B3500202^t FTN 3.3B (OPT = LPC) DAAASC PAGE 8 DATE: 08/30/84 TIME: 0041 t^ C ADDITIONAL DISPLAY OF ACTIVITIES REQUESTED. SCREEN IS FULL SO CLEAB3500204^^ C ALL LINES USED IN THE DISPLAY OF THE ACTIVITIES AND RESET CURSOR TB3500205^^ C BEGINNING OF ACTIVITY DISPLAY. B3500206^^ 125 455 IF(SAVLEN.GT.0) GO TO 460 B3500207^^ C NUMBER OF LINES TO BLANK HAS NOT BEEN DETERMINED. SET UP CLRLIN B3500208^^ C BUFFER TO CLEAR ALL NECESSARY LINES. B3500209^^ 126 CLRLIN(2) = LINSTR - 1 B3500210^^ 127 SAVLEN = 2*(24 - LINSTR) B3500211^^ C SET CURSOR TO BEGINNING OF DISPLAY OF ACTIVITIES. B3500212^^ 128 CLRLIN(SAVLEN-1) = CLRLIN(1) B3500213^^ 129 CLRLIN(SAVLEN) = CLRLIN(2) B3500214^^ C SET LENGTH OF OUTPUT IN BYTES. B3500215^^ 130 SAVLEN = 2*SAVLEN B3500216^ ^ 131 460 CALL WTREAD(LU,XYN,CLRLIN,SAVLEN,ZERO,ZERO,ZERO,TC) B3500218^^ C RESET LINE COUNT. B3500219^^ 132 LC = 0 B3500220^^ C GO RETRIEVE NEXT ACTIVITIES AND DISPLAY THEM. B3500221^^ 133 GO TO IRTN B3500222^t FTN 3.3B (OPT = LPC) DAAASC PAGE 9 DATE: 08/30/84 TIME: 0041 t^ C FILE ERRORS. B3500224^ ^ C OPEN REQUEST. B3500226^^ 134 800 J = 3 B3500227^^ 135 GO TO 830 B3500228^ ^ C READR REQUEST. B3500230^^ 136 810 J = 13 B3500231^^ 137 GO TO 830 B3500232^ ^ C GETS REQUEST. B3500234^^ 138 820 J = 14 B3500235^ ^ C OUTPUT ERROR MESSAGE TO TERMINAL AND MASTER CONSOLE. B3500237^^ 139 830 CALL FILERR(IDATAC,J,ISTAT,LU) B3500238^ ^ C FILE ERRORS ARE FATAL. CLOSE ALL FILES AND EXIT. B3500240^^ 140 CALL CLANEX B3500241^    ^ C NORMAL EXIT, CLOSE ACTIVITY HISTORY FILE BEFORE RETURNING. B3500243^^ 141 900 CALL CLOSFL(REQBFF,ISTAT) B3500244^^ 142 RETURN B3500245^^ 143 END B3500246^t FTN 3.3B (OPT = LPC) DAAASC PAGE 10 DATE: 08/30/84 TIME: 0041 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $01CB ( 459)   EXTERNALS 2 OPENFL CCSMVA READR CCSCST GETACF GETS CCSBLK 22 ACTEDT WTREAD DISPLY ICHENT EACTSQ EATRNG PCPROC 2 FILERR CLANEX CLOSFL  t FTN 3.3B (OPT = LPC) DAAASC PAGE 11 DATE: 08/30/84 TIME: 0041 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( AA INTEGER 0000 56,59,111($ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$6 ACTHST INTEGER 05C5 D 11,13,72,76,79,92,96,996$ ACTRET INTEGER 0851 D 23,31$$ ACTYPE INTEGER 01DD D 11,16$( AND INTR.FN. 7FFF 73,74,97 ($ ARCODE INTEGER 026E D 11,16$( ASC00 INTEGER 08C7 D 35,39,71 (6 ASC01 INTEGER 08C8 D 35,38,39,78,82,84,91,936( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$$ BZ INTEGER 08CA D 35,39$$ CID INTEGER 0852 D 23,31$4 CLRLIN INTEGER 0001 56,62,126,128,129,1314$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$8 COMPIN INTEGER 084C D 23,30,76,77,86,87,99,100 8$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$, DUMMY INTEGER 08E5 D 46,48,110,114,$ ENCD INTEGER 08F7 D 52,56$( ENDLEN INTEGER 0035 56,59,102(( ENDMSG INTEGER 0036 56,60,102(* EOF INTEGER 08E8 D 48,50,73,97*$ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$$ FOUR INTEGER 08C1 D 33,35$$ FSTACT INTEGER 07FD D 20,23$$ I INTEGER 007B 64,67$, IDATAC INTEGER 0042 56,61,68,139 ," IDATAU INTEGER 003C D 1,4"t FTN 3.3B (OPT = LPC) DAAASC PAGE 12 DATE: 08/30/84 TIME: 0041 t" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"" IDATTR INTEGER 001E D 1,4"$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$( INVENT INTEGER 08EE D 52,55,114($ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$< IOBUF INTEGER 07A6 D 17,20,111,112,113,116,119,122<, IRTN INTEGER 007C 88,94,109,133,* IRTN2 INTEGER 007A 64,103,111 *J ISTAT INTEGER 084B D 23,29,30,68,69,72,73,74,75,96,97,98,139,141J2 J INTEGER 007D 134,134,136,138,1392$ JDATE INTEGER 0886 D 23,33$0 KEY INTEGER 0866 D 23,31,70,71,72,960* LACFBL INTEGER 0051 56,59,79,92*6 LASTBL INTEGER 0053 56,63,81,85,90,101,109 60 LC INTEGER 0054 56,64,108,109,1320$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$0 LINSTR INTEGER 0850 D 23,30,109,126,1270( LMASBL INTEGER 08C5 D 35,39,83 (( LOCKED INTEGER 08E6 D 48,50,74 ($ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$0 LU INTEGER 0849 D 23,30,107,131,13904 MASREC INTEGER 01DD D 11,16,17,70,76,83,99 4$ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$$ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$$ NINE INTEGER 08C4 D 33,35$$ NOACT INTEGER 08F5 D 52,55$$ NUMACT INTEGER 0854 D 23,31$. NUMLEN INTEGER 08D4 D 39,44,70,76,99 .( NXTFUN INTEGER 08EF D 52,55,110($ NXTYR INTEGER 0885 D 23,32$8 OBUF INTEGER 07CF D 17,19,20,102,105,106,107 8$ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$4 ONE INTEGER 08BE D 33,35,70,76,86,99,1024t FTN 3.3B (OPT = LPC) DAAASC PAGE 13 DATE: 08/30/84 TIME: 0041 t< OSW INTEGER 084B D 23,29,78,79,82,83,84,91,92,93<4 OUTBYT INTEGER 08D5 D 39,43,44,102,105,107 4$ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$$ QBREAK INTEGER 0855 D 23,31$" REQBFA INTEGER 00A2 D 5,8"" REQBFB INTEGER 00D2 D 5,9"" REQBFD INTEGER 005A D 5,8"2 REQBFF INTEGER 00BA D 5,8,67,68,72,96,1412" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$< SAVLEN INTEGER 0055 56,59,125,127,128,129,130,131<( SAVSTR INTEGER 0056 56,79,86 (( SIX INTEGER 08C3 D 33,35,86 ($ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$4 STRING INTEGER 0821 D 20,22,23,83,86,92,1064$ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $, TC INTEGER 084A D 23,30,107,131,$ THREE INTEGER 08C0 D 33,35$$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$$ TRBKFL INTEGER 08BA D 23,33$( TRNSBF INTEGER 06BF D 11,14,17 ($ TWO INTEGER 08BF D 33,35$$ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$$ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$$ WRONKY INTEGER 08E7 D 48,50$, XYN INTEGER 08EC D 50,52,107,131,$ XYWORD INTEGER 08E9 D 50,52$$ YEAR INTEGER 0847 D 23,29$, ZERO INTEGER 08BD D 33,35,107,131,t FTN 3.3B (OPT = LPC) DAAASC PAGE 14 DATE: 08/30/84 TIME: 0041 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACTEDT SUBROUTINE 013D 105"" CCSBLK SUBROUTINE 0139 105"( CCSCST SUBROUTINE 00C0 75,86,99 (& CCSMVA SUBROUTINE 012C 69,102 &" CLANEX SUBROUTINE 01BE 139"" CLOSFL SUBROUTINE 01C0 141"& DISPLY SUBROUTINE 015B 109,114&" EACTSQ SUBROUTINE 0176 116"" EATRNG SUBROUTINE 017C 119"" FILERR SUBROUTINE 01B8 139"( GETACF SUBROUTINE 00D0 78,83,92 (" GETS SUBROUTINE 010C 96 "" ICHENT INTEGER.FN. 0167 112"" OPENFL SUBROUTINE 0090 67 "" PCPROC SUBROUTINE 0187 122"" READR SUBROUTINE 00A7 71 "& WTREAD SUBROUTINE 0141 107,131&   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 10 0086 64,67$$ 20 00A6 71,74$( 50 00D6 73,77,81 ($ 100 00D9 79,82$$ 110 00DB 82,88$$ 120 00F3 85,88$$ 130 00F8 84,90$( 200 00FC 87,91,100($ 210 00FE 91,94$$ 220 010B 93,96$( 225 0129 90,97,101(" 230 012B 101"( 400 0138 88,95,105(& 405 0140 103,107&& 410 015A 109,124&. 415 015E 110,115,118,121.& 420 016E 102,114&& 425 0172 113,116&& 430 0178 116,119&& 435 017E 119,122&& 455 0189 64,125 && 460 01A1 125,131&& 800 01AE 69,134 &t FTN 3.3B (OPT = LPC) DAAASC PAGE 15 DATE: 08/30/84 TIME: 0041 t& 810 01B2 75,136 && 820 01B5 98,138 &* 830 01B7 134,137,139*& 900 01BF 122,141& DAAASC 01C6 1  t FTN 3.3B (OPT = LPC) DISPLY PAGE 1 DATE: 08/30/84 TIME: 0042 t^ 1 SUBROUTINE DISPLY(SCREEN,REC) B4300001^^ 1 1 /B43 F CCS CCS 3.0 SL-149B4300002^^ C B4300003^^ C CYBERCREDIT SYSTEM VERSION 3 B4300004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B4300005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B4300006^^ C B4300007^^ C B4300008^^ C B4300009^^ C DISPLAY SCREEN MODULE FOR COLECT 2.0 . B4300010^^ C B4300011^^ C THIS ROUTINE RETRIEVES A DESIRED SCREEN DEFINITION AND INTERPRETS B4300012^^ C THE DEFINITION TO DISPLAY A SCREEN. EACH DEFINITION CONTAINS A DESB4300013^^ C CRIPTION OF ALL FIELDS FOR DISPLAY ON THE SCREEN. DISPLY WILL PROCB4300014^^ C ONE FIELD AT A TIME FILLING UP AN OUTPUT BUFFER. WHEN IT IS FULL, B4300015^^ C BUFFER IS WRITTEN TO THE TERMINAL. UPON COMPLETION OF INTERPRETINGB4300016^^ C ALL SCREEN FIELDS, THE LAST OUTPUT STATEMENT ALSO REQUESTS INPUT FB4300017^^ C ANY SCREEN WITH A SCREEN NUMBER GREATER THAN 10. THE FORMAT OF THEB4300018^^ C SCREEN DEFINITION RECORD IS: B4300019^^ C B4300020^^ C SCREEN DEFINITION RECORD, SDEF: B4300021^^ C WORD VALUE B4300022^^ C I X-Y POSITION ON SCREEN FOR START OF ITEM. B4300023^^ C I+1 START WORD OF NEXT ITEM IN SCREEN DEFINTION. B4300024^^ C I+2 LENGTH OF UNEDITED ITEM IN BYTES. B4300025^^ C I+3 STARTING CHARACTER POSITION IN AN ARRAY, IF B4300026^^ C APPLICABLE. B4300027^^ C I+4 FIELD TYPE. (SEE BELOW). B4300028^^ C I+5 START OF CONSTANT SCREEN FIELD IF APPLICABLE. B4300029^^ C B4300030^^ C FIELD TYPES USED ARE: B4300031^^ C TYPE MEANING B4300032^^ C 0 CONSTANT SCREEN FIELD. B4300033^^ C 1 DATE. EDIT TO FORM MM/DD/YY. B4300034^^ C 2 ALPHANUMERIC FIELD FROM A FILE. B4300035^^ C 3 NINE DIGIT DOLLAR AMOUNT. EDIT TO 9999999.99 . B4300036^^ C 4 TEN DIGIT PHONE NUMBER. EDIT TO 999/999-9999 . B4300037^^ C 5 SIGNALS START OF ACTIVITY DISPLAY. B4300038^^ C 6 SOCIAL SECURITY NUMBER. EDIT TO 999-99-9999 . B4300039^^ C 7 CURRENT TIME DISPLAYED AS 24 HOUR MILITARY TIMEB4300040^^ C 8 CONSTANT SCREN FIELD LABELING A CHANGE SCREEN IB4300041^^ C 9 REQUESTS DISPLAY OF MOST RECENT ACTIVITY. B4300042^^ C B4300043^^ C ANY SCREEN WITH A NUMBER LESS THAN FORTY IS PRECEDED BY A CLEAR B4300044^^ C SCREEN REQUEST. ANY SCREEN WITH A NUMBER GREATER THAN NINE HAS INPB4300045^^ C EXPECTED IN IOBUF. ANY MASSAGE SCREEN (SCREENS 40-89) ARE PRECEDEDB4300046^^ C BY A CLEAR OF LINE 23. B4300047^^ C INTIAL OUTPUT BUFFER SIZE IS 80 BYTES. THE DIMENSIONED BUFFER SIZEB4300048^^ C MUST BE A LEAST ELEVEN BYTES LARGER TO ALLOW FOR OVERFLOW FROM THEB4300049^^ C EDIT ROUTINE. B4300050^  ^ C BRING IN COMMON MACRO. B4300052^ t FTN 3.3B (OPT = LPC) DISPLY PAGE 2 DATE: 08/30/84 TIME: 0042 t^ M COLMAC B4300054^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^t FTN 3.3B (OPT = LPC) DISPLY PAGE 3 DATE: 08/30/84 TIME: 0042 t^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ t FTN 3.3B (OPT = LPC) DISPLY PAGE 4 DATE: 08/30/84 TIME: 0042 t^ C LOCAL VARIABLES. B4300056^^ 57 INTEGER ASCNIN(5),ASCZER(5),AVALSP,CLRCUT,EDTLEN(10),LENSAV,NEEDSPB4300057^^ 58 INTEGER NOINP,NXTBYT,SDEF(1000),TIME(2),SCREEN,REC(1) B4300058^^ 59 DATA ASCNIN/5*$3939/,ASCZER/5*$3030/,CLRCUT/40/,NOINP/10/ B4300059^^ 60 DATA EDTLEN/0,8,0,10,12,0,11,4,0,0/ B4300060^  ^ C HARD CODED MESSAGE SCREENS. B4300062^^ 61 INTEGER HCMESG(82),HCSTLN(6) B4300063^^ 62 DATA HCMESG/'ENTER ITEM,CHANGE OR NEXT FUNCTION OR ACTION,RESULT,LB4300064^^ 62 1ETTER REQUEST,COMMENTENTER NEXT FUNCTION OR ACTION,RESULT,LETTER RB4300065^^ 62 2EQUEST,COMMENTINVALID REQUEST, PLEASE REENTER'/ B4300066^^ C STARTING POSITION AND LENGTHS OF EACH OF THE THREE MESSAGES. B4300067^^ 63 DATA HCSTLN/1,74,75,59,134,31/ B4300068^  ^ C INITIALIZE STARTING BYTE FOR OUTPUT BUFFER. B4300070^^ 64 NXTBYT = 1 B4300071^^ C CHECK IF SCREEN IS A HARD CODED MESSAGE SCREEN FUNCTION. B4300072^^ 65 IF(SCREEN.LT.0) GO TO 500 B4300073^^ C CHECK IF SCREEN IS A MESSAGE SCREEN REQUIRING A CLEAR LINE 23 B4300074^^ C BEFORE WRITING ON IT. B4300075^^ 66 IF(SCREEN.LT.40.OR.SCREEN.GT.89) GO TO 5 B4300076^^ C YES, MOVE IN CONTROLS TO CLEAR LINE 23. B4300077^^ 67 OBUF(1) = XYWORD(1) B4300078^^ 68 OBUF(2) = 22 B4300079^^ 69 OBUF(3) = XYWORD(3) B4300080^^ C SET NEXT BYTE AVAILABLE. B4300081^^ 70 NXTBYT = 6 B4300082^^ C NOT A MESSAGE SCREEN. RETRIEVE SCREEN DEFINITION FROM FILE. B4300083^^ 71 5 J = SCREEN B4300084^^ 72 CALL READR(REQBFS,SDEF,J,ISTAT) B4300085^^ C CHECK FOR SCREEN NOT PRESENT OR OTHER ERROR. B4300086^^ 73 IF(ISTAT.LT.0.OR.AND(ISTAT,WRONKY).EQ.WRONKY) GO TO 800 B4300087^^ C SCREEN DEFINITION RETRIEVED. INTIALIZE INDEX INTO DEFINITION RECORB4300088^^ 74 J = 2 B4300089^^ C CHECK IF CLEAR SCREEN FUNCTION SHOULD BE DONE FIRST. B4300090^^ 75 IF(SCREEN.GE.CLRCUT) GO TO 20 B4300091^^ C SCREEN TYPE INDICATES CLEAR SCREEN TO BE DONE. B4300092^^ 76 CALL WTREAD(LU,XYN,CLRSCR,ONE,ZERO,ZERO,ZERO,TC) B4300093^^ 77 GO TO 20 B4300094^ ^ C RETRIEVE INDEX FOR NEXT SCREEN DEFINITION FIELD. B4300096^^ 78 10 J = SDEF(J+1) B4300097^^ C CHECK IF SCREEN DISPLAY IS COMPLETE. B4300098^^ 79 IF(J.NE.0) GO TO 20 B4300099^^ C END OF SCREEN DEFINITION. CHECK IF INPUT IS TO BE RECEIVED. B4300100^^ 80 IF(SCREEN.GE.NOINP) GO TO 550 B4300101^^ C NO INPUT TO BE RECEIVED. WRITE OUTPUT BUFFER AND RETURN. B4300102^^ 81 ASSIGN 900 TO IRTN B4300103^^ 82 GO TO 400 B4300104^^ C PLACE CURSOR POSITIONING WORDS IN OUTPUT BUFFER. SINCE THE OUTPUT B4300105^^ C BUFFER IS SCANNED BY THE ITOS EXECUTIVE TO BIAS THE POSITIONING WOB4300106^^ C THE SEQUENCE CANNOT BE SEPARATED BY DIFFERENT WRITE OPERATIONS. B4300107^t FTN 3.3B (OPT = LPC) DISPLY PAGE 5 DATE: 08/30/84 TIME: 0042 t^ C CHECK IF ENOUGH BYTES ARE AVAILABLE IN THE OUTPUT BUFFER FOR THE B4300108^^ C FOUR BYTES OF CURSOR POSITIONING. B4300109^^ 83 20 IF(OUTBYT-NXTBYT-3) 30,40,50 B4300110^ ^ C NOT ENOUGH ROOM. WRITE OUTPUT BUFFER BEFORE MOVING IN CURSOR WORDSB4300112^^ 84 30 ASSIGN 50 TO IRTN B4300113^^ 85 GO TO 400 B4300114^ ^ C ENOUGH ROOM FOR CURSOR WORDS, BUT BUFFER IS THEN FULL. WRITE BEFORB4300116^^ C CONTINUING. NEVER PASS A FILLED OUTPUT BUFFER TO FIELD TYPE PROCESB4300117^^ C SING ROUTINES. B4300118^^ 86 40 CALL CCSMVA(XYWORD,ONE,TWO,OBUF,NXTBYT,TWO) B4300119^^ 87 NXTBYT = NXTBYT + 2 B4300120^^ 88 CALL CCSMVA(SDEF(J),ONE,TWO,OBUF,NXTBYT,TWO) B4300121^^ 89 NXTBYT = NXTBYT +2 B4300122^^ 90 ASSIGN 60 TO IRTN B4300123^^ C WRITE OUTPUT BUFFER. B4300124^^ 91 GO TO 400 B4300125^ ^ C ENOUGH ROOM FOR CURSOR WORDS. MOVE THEM INTO OUTPUT BUFFER. B4300127^^ 92 50 CALL CCSMVA(XYWORD,ONE,TWO,OBUF,NXTBYT,TWO) B4300128^^ 93 NXTBYT = NXTBYT + 2 B4300129^^ 94 CALL CCSMVA(SDEF(J),ONE,TWO,OBUF,NXTBYT,TWO) B4300130^^ 95 NXTBYT = NXTBYT + 2 B4300131^ ^ C BRANCHED GO TO TO JUMP TO APPROPRIATE ROUTINE TO FILL AND EDIT OUTB4300133^^ C BUFFER WITH FIELDS ACCORDING TO THEIR TYPE. B4300134^^ 96 60 I = SDEF(J+4) + 1 B4300135^^ C FIELD TYPE = 0 1 2 3 4 5 6 7 8 9 B4300136^^ 97 GO TO (200,100,200,100,100,150,100,300,200,160),I B4300137^t FTN 3.3B (OPT = LPC) DISPLY PAGE 6 DATE: 08/30/84 TIME: 0042 t^ C B4300139^^ C SCREEN TYPES REQUIRE EDIT. CHECK IF FIELDS HAVE NON-BLANK ENTRIES.B4300140^^ C IF FIELD IS ALL BLANK - BYPASS EDIT AND OUTPUT. B4300141^^ C IF FIELD IS ALL ZEROES - EDIT ONLY FOR AMOUNT FIELDS. B4300142^^ C IF FIELD IS NUMERIC - EDIT. B4300143^^ C IF FIELD IS APLHA - EDIT AS AN ALPHA FIELD ONLY FOR PHONE NUMBER AB4300144^^ C SOCIAL SECURITY NUMBER FIELDS. B4300145^^ C B4300146^^ C COMPARE AGAINST ALL ZERO FIELD. B4300147^^ 98 100 STRPOS = SDEF(J+3) B4300148^^ 99 LENGTH = SDEF(J+2) B4300149^^ 100 CALL CCSCST(REC,STRPOS,LENGTH,ASCZER,ONE,LENGTH,I) B4300150^^ C CHECK RETURN INDICATOR. B4300151^^ 101 IF(I) 130,110,120 B4300152^ ^ C ALL ZEROES PRESENT. EDIT ONLY IF FIELD IS AN AMOUNT FIELD. B4300154^^ 102 110 IF(SDEF(J+4).EQ.3) GO TO 300 B4300155^^ C NOT AN AMOUNT FIELD. BYPASS EDIT AND OUTPUT. B4300156^^ 103 GO TO 130 B4300157^ ^ C FIELD IS NOT ALL BLANK OR ALL ZEROES. COMPARE AGAINST ALL NINE FIEB4300159^^ C TO DETERMINE IF FIELD IS NUMERIC OR APLHA. B4300160^^ 104 120 CALL CCSCST(REC,STRPOS,LENGTH,ASCNIN,ONE,LENGTH,I) B4300161^^ C GO TO EDIT ROUTINE IF FIELD IS NUMERIC. B4300162^^ 105 IF(I.LT.0) GO TO 300 B4300163^^ C FIELD IS ALPHA. EDIT AS AN ALPHA FIELD IF PHONE NUMBER OR SOCIAL B4300164^^ C SECURITY NUMBER FIELD. B4300165^^ 106 IF(SDEF(J+4).GE.4) GO TO 200 B4300166^ ^ C NO FIELD PRESENT TO EDIT OR UNUSED FIELD TYPE. REMOVE X-Y POSITIONB4300168^^ C ING WORDS FOR THIS FIELD FROM OUTPUT BUFFER IF PRESENT. B4300169^^ 107 130 IF(NXTBYT.GT.4) NXTBYT=NXTBYT-4 B4300170^^ C GO PROCESS NEXT SCREEN FIELD. B4300171^^ 108 GO TO 10 B4300172^t FTN 3.3B (OPT = LPC) DISPLY PAGE 7 DATE: 08/30/84 TIME: 0042 t^ C ACTIVITY DISPLAY REQUESTED. SAVE STARTING LINE NUMBER. B4300174^^ 109 150 LINSTR = AND($FF,SDEF(J)) + 1 B4300175^^ C WRITE OUTPUT BUFFER. B4300176^^ 110 ASSIGN 950 TO IRTN B4300177^^ 111 GO TO 400 B4300178^ ^ C DISPLAY MOST RECENT ACTIVITY. CHECK IF THIS ACTIVITY HAS ALREADY B4300180^^ C BEEN RETRIEVED. B4300181^^ 112 160 IF(ACTRET.NE.0) GO TO 170 B4300182^ ^ C NO. RETRIEVE IT FROM MASTER FILE AND SET FLAG. B4300184^^ 113 ISTAT = ASC01 B4300185^^ 114 CALL GETACF(FSTACT,MASREC(154),LMASBL,ISTAT) B4300186^^ 115 ACTRET = 1 B4300187^ ^ C B4300189^^ C WRITE CURRENT CONTENTS OF OUTPUT BUFFER IF IT CONTAINS ANYTHING. B4300190^^ 116 170 IF(NXTBYT.EQ.1) GO TO 175 B4300191^^ 117 ASSIGN 175 TO IRTN B4300192^^ 118 GO TO 400 B4300193^ ^ C EDIT ACTIVITY INTO OUTPUT BUFFER AND WRITE IT. B4300195^^ 119 175 CALL CCSBLK(OBUF,OUTBYT) B4300196^^ 120 CALL ACTEDT(FSTACT,OBUF) B4300197^^ C SET NXTBYT FOR OUTPUT LENGTH. B4300198^^ 121 NXTBYT = 80 B4300199^^ 122 ASSIGN 10 TO IRTN B4300200^^ 123 GO TO 400 B4300201^t FTN 3.3B (OPT = LPC) DISPLY PAGE 8 DATE: 08/30/84 TIME: 0042 t^ C B4300203^^ C NO EDIT TO PERFORM. DIRECT MOVEMENT OF CHARACTERS WHICH IS INTER- B4300204^^ C RUPTIBLE WHEN BUFFER IS FULL. B4300205^^ C B4300206^^ C INTIALIZE STARTING CHARACTER POSITION IN SOURCE ARRAY. B4300207^^ 124 200 STRPOS = SDEF(J+3) B4300208^^ C CHECK IF OUTPUT BUFFER HAS ENOUGH ROOM FOR ALL OF THE FIELD. B4300209^^ 125 210 AVALSP = OUTBYT - (NXTBYT-1) B4300210^^ 126 NEEDSP = SDEF(J+2) - (STRPOS - SDEF(J+3)) B4300211^^ 127 IF(AVALSP.GE.NEEDSP) GO TO 220 B4300212^ ^ C NOT ENOUGH ROOM. MOVE ONLY ENOUGH CHARACTERS TO FILL OUTPUT BUFFERB4300214^^ 128 LENGTH = AVALSP B4300215^^ 129 GO TO 230 B4300216^ ^ C ENOUGH ROOM TO MOVE ENTIRE FIELD. B4300218^^ 130 220 LENGTH = NEEDSP B4300219^ ^ C PERFORM THE MOVE. B4300221^^ 131 230 IF(SDEF(J+4).EQ.0.OR.SDEF(J+4).EQ.8) GO TO 240 B4300222^^ C ALPHANUMERIC FIELD FROM FILE. SOURCE ARRAY IS FROM REC. B4300223^^ 132 CALL CCSMVA(REC,STRPOS,LENGTH,OBUF,NXTBYT,LENGTH) B4300224^^ 133 GO TO 250 B4300225^ ^ C CONSTANT SCREEN FIELD. SOURCE ARRAY IS FROM SCREEN DEFINITION FIELB4300227^^ 134 240 CALL CCSMVA(SDEF(J+5),STRPOS,LENGTH,OBUF,NXTBYT,LENGTH) B4300228^ ^ C CALCULATE NEXT BYTE AVAILABLE IN OUTPUT BUFFER. B4300230^^ 135 250 NXTBYT = NXTBYT + LENGTH B4300231^^ C OPERATION COMPLETE IF ALL OF FIELD MOVED. B4300232^^ 136 IF(NEEDSP.EQ.LENGTH) GO TO 10 B4300233^ ^ C OPERATION NOT COMPLETE. ONLY PART OF STRING MOVED. SAVE NEW STARTIB4300235^^ C CHARACTER OF SOURCE FIELD FOR NEXT MOVE. B4300236^^ 137 STRPOS = STRPOS + LENGTH B4300237^^ C WRITE FILLED OUTPUT BUFFER AND RETURN TO MOVE IN REMAINDER OF FIELB4300238^^ 138 ASSIGN 210 TO IRTN B4300239^^ 139 GO TO 400 B4300240^t FTN 3.3B (OPT = LPC) DISPLY PAGE 9 DATE: 08/30/84 TIME: 0042 t^ C B4300242^^ C EDIT FIELDS TO OUTPUT BUFFER. EDIT IS UNITERRUPTIBLE, SO OVERFLOW B4300243^^ C OF OUTPUT BUFFER IS ALLOWED AND CORRECTED AFTER THE EDIT. B4300244^^ C B4300245^^ C PERFORM THE EDIT. B4300246^^ 140 300 IF(SDEF(J+4).EQ.7) GO TO 310 B4300247^^ 141 CALL EDIT(REC,SDEF(J+3),OBUF,NXTBYT,SDEF(J+4)) B4300248^^ 142 GO TO 320 B4300249^ ^ C TIME REQUEST. B4300251^^ 143 310 CALL CCSTIM(TIME) B4300252^^ 144 CALL CCSMVA(TIME,ONE,FOUR,OBUF,NXTBYT,FOUR) B4300253^ ^ C CALCULATE NEXT AVAIABLE WORD IN OUTPUT BUFFER. B4300255^^ 145 320 I = SDEF(J+4) + 1 B4300256^^ 146 NXTBYT = NXTBYT + EDTLEN(I) B4300257^^ C CHECK IF OVERFLOW OF OUTPUT BUFFER OCCURRED. RETURN TO PROCESS NEXB4300258^^ C SCREEN FIELD IF NO OVERFLOW OCCURRED. B4300259^^ 147 IF(OUTBYT.GE.(NXTBYT-1)) GO TO 10 B4300260^ ^ C OVERFLOW OCCURRED. WRITE THE FILLED OUTPUT BUFFER AND THEN MOVE THB4300262^^ C THE OVERFLOW CHARACTERS TO THE BEGINNING OF THE BUFFER. B4300263^^ C SAVE THE NUMBER OF CHARACTERS TO MOVE. B4300264^^ 148 LENSAV = (NXTBYT - 1) - OUTBYT B4300265^^ C RESET NXTBYT FOR LENGTH CALCULATION IN OUTPUT SECTION. B4300266^^ 149 NXTBYT = OUTBYT + 1 B4300267^^ 150 ASSIGN 330 TO IRTN B4300268^^ 151 GO TO 400 B4300269^ ^ C PERFORM THE MOVE OF OVERFLOW CHARACTERS. B4300271^^ 152 330 CALL CCSMVA(OFAREA,ONE,LENSAV,OBUF,ONE,LENSAV) B4300272^^ C CALCULATE NEXT AVAILABLE WORD IN OUTPUT BUFFER. B4300273^^ 153 NXTBYT = LENSAV + 1 B4300274^^ C GO PROCESS NEXT SCREEN FIELD DEFINITION. B4300275^^ 154 GO TO 10 B4300276^t FTN 3.3B (OPT = LPC) DISPLY PAGE 10 DATE: 08/30/84 TIME: 0042 t^ C B4300278^^ C WRITE OUTPUT BUFFER ROUTINE. B4300279^^ C B4300280^^ C SET LENGTH OF OUTPUT BUFFER TO WRITE. B4300281^^ 155 400 LENGTH = NXTBYT - 1 B4300282^^ 156 CALL WTREAD(LU,XYN,OBUF,LENGTH,ZERO,ZERO,ZERO,TC) B4300283^^ C OPERATION FINISHED. RESET NEXT AVAILABLE WORD IN OUTPUT BUFFER ANDB4300284^^ C RETURN. B4300285^^ 157 NXTBYT = 1 B4300286^^ 158 GO TO IRTN B4300287^t FTN 3.3B (OPT = LPC) DISPLY PAGE 11 DATE: 08/30/84 TIME: 0042 t^ C B4300289^^ C HARD CODED MESSAGE SCREENS. B4300290^^ C B4300291^^ C CONVERT SCREEN TO GET MESSAGE SCREEN NUMBER. B4300292^^ 159 500 J = -2*SCREEN - 1 B4300293^^ C MOVE IN XY POSITIONING TO CLEAR AND WRITE ON LINE 23. B4300294^^ 160 OBUF(1) = XYWORD(1) B4300295^^ 161 OBUF(2) = 22 B4300296^^ 162 OBUF(3) = XYWORD(3) B4300297^^ C MOVE MESSSAGE TO OUTPUT BUFFER. B4300298^^ 163 CALL CCSMVA(HCMESG,HCSTLN(J),HCSTLN(J+1),OBUF,SIX,HCSTLN(J+1)) B4300299^^ C CALCULATE NEXT BYTE AVAILABLE. B4300300^^ 164 NXTBYT = HCSTLN(J+1) + 6 B4300301^t FTN 3.3B (OPT = LPC) DISPLY PAGE 12 DATE: 08/30/84 TIME: 0042 t^ C B4300303^^ C FINAL SCREEN OUTPUT WITH INPUT TO RECEIVE. B4300304^^ C B4300305^^ C CHECK IF OUTPUT BUFFER HAS ENOUGH ROOM FOR ALL FIVE BYTES NEEDED TB4300306^^ C CLEAR LINE 24. B4300307^^ 165 550 IF(NXTBYT.LE.76) GO TO 560 B4300308^ ^ C NOT ENOUGH ROOM. WRITE OUTPUT BUFFER BEFORE MOVING IN THE BYTES TOB4300310^^ C TO CLEAR LINE 24 B4300311^^ 166 ASSIGN 560 TO IRTN B4300312^^ 167 GO TO 400 B4300313^ ^ C MOVE IN BYTES TO CLEAR LINE 24. B4300315^^ 168 560 CALL CCSMVA(XYWORD,ONE,FIVE,OBUF,NXTBYT,FIVE) B4300316^  ^ C SET LENGTH OF OUTPUT BUFFER FOR WRITE. B4300318^^ 169 LENGTH = NXTBYT + 4 B4300319^^ C BLANK INPUT BUFFER. B4300320^^ 170 570 CALL CCSBLK(IOBUF,INPBYT) B4300321^^ C PEFORM WRITE/READ. INPUT BUFFER IS IOBUF. B4300322^^ 171 CALL WTREAD(LU,XYN,OBUF,LENGTH,XYN,IOBUF,INPBYT,TC) B4300323^ ^ C IF A RUBOUT WAS USED TO TERMINATE THE LINE, CLEAR LINE 24 AGAIN ANB4300325^^ C ACCEPT ANOTHER INPUT LINE. B4300326^^ 172 575 IF(TC.NE.4) GO TO 580 B4300327^^ C RUBOUT USED. B4300328^^ 173 CALL CCSMVA(XYWORD,ONE,FIVE,OBUF,ONE,FIVE) B4300329^^ 174 LENGTH = 5 B4300330^^ 175 GO TO 570 B4300331^ ^ C EDIT INPUT BUFFER REMOVING LEADING BLANKS. B4300333^^ 176 580 I = 1 B4300334^^ 177 CALL CCSGET(IOBUF,I,K) B4300335^^ C IF FIRST CHARACTER IS NON-BLANK, NO EDITING TO DO. RETURN. B4300336^^ 178 IF(K.NE.$20) GO TO 600 B4300337^^ C FIRST CHARACTER WAS BLANK. SCAN TO DETERMINE THE NUMBER OF LEADINGB4300338^^ C BLANKS. B4300339^^ 179 J = IOBUF(41) B4300340^^ 180 DO 590 I=2,J B4300341^^ 181 CALL CCSGET(IOBUF,I,K) B4300342^^ C IF NEXT CHARACTER NOT BLANK, GO PERFORM MOVE TO REMOVE BLANKS. B4300343^^ 182 IF(K.NE.$20) GO TO 595 B4300344^^ 183 590 CONTINUE B4300345^^ C ALL BLANK INPUT BUFFER. RETURN. B4300346^^ 184 IOBUF(41) = 0 B4300347^^ 185 GO TO 900 B4300348^ ^ C MOVE IOBUF LEFT TO REMOVE LEADING BLANKS. B4300350^^ 186 595 LENGTH = IOBUF(41) - I + 1 B4300351^^ 187 CALL CCSMVA(IOBUF,I,LENGTH,IOBUF,ONE,INPBYT) B4300352^^ C EDIT COMPLETE, RETURN. B4300353^^ C SAVE LENGTH OF ACTUAL INPUT. B4300354^^ 188 IOBUF(41) = LENGTH B4300355^t FTN 3.3B (OPT = LPC) DISPLY PAGE 13 DATE: 08/30/84 TIME: 0042 t ^ C SCAN INPUT BUFFER REMOVING ALL SPECIAL CHARACTERS (THOSE < $20). B4300357^^ 189 600 J = IOBUF(41) B4300358^^ 190 DO 610 I=1,J B4300359^^ 191 CALL CCSGET(IOBUF,I,K) B4300360^^ 192 IF(K.LT.$20) CALL CCSPUT(BLANKS,I,IOBUF) B4300361^^ 193 610 CONTINUE B4300362^^ 194 GO TO 900 B4300363^t FTN 3.3B (OPT = LPC) DISPLY PAGE 14 DATE: 08/30/84 TIME: 0042 t^ C B4300365^^ C FILE ERROR OR SELECTED SCREEN NOT PRESENT. B4300366^^ C B4300367^^ 195 800 J = 13 B4300368^^ C IN CASE OF SELECTED SCREEN NOT PRESENT, SET STATUS WORD TO SCREEN B4300369^^ C NUMBER REQUESTED BUT NOT FOUND. B4300370^^ 196 IF(AND(ISTAT,EOF).EQ.EOF.OR.AND(ISTAT,WRONKY).EQ.WRONKY) B4300371^^ 196 1 ISTAT=SCREEN B4300372^^ C REPORT ERROR. ERROR FATAL, CLOSE ALL FILES AND EXIT. B4300373^^ 197 CALL FILERR(IDATSC,J,ISTAT,LU) B4300374^^ 198 CALL CLANEX B4300375^  ^ C OUTPUT COMPLETE. NORMAL TERMINATION. B4300377^^ C RETRIEVE CHANGE SCREEN FIELD DESCRIPTIONS IF REQUIRED. B4300378^^ 199 900 IF(SCREEN.EQ.33.AND.CUSCHG(1).LT.0) CALL GETCHF(SDEF,CUSCHG) B4300379^^ C SUPERVISOR'S CHANGE SCREEN. B4300380^^ 200 IF(SCREEN.EQ.35.AND.SUPCHG(1).LT.0) CALL GETCHF(SDEF,SUPCHG) B4300381^^ C COSIGNER'S CHANGE SCREEN. B4300382^^ 201 IF(SCREEN.EQ.94.AND.COSCHG(1).LT.0) CALL GETCHF(SDEF,COSCHG) B4300383^ ^ C UPDATE LAST SCREEN DISPLAYED FLAG IF NOT A MESSAGE SCREEN. B4300385^^ 202 IF((SCREEN.GE.1.AND.SCREEN.LT.40).OR.SCREEN.GE.90) LS=SCREEN B4300386^ ^ C DISPLAY COMPLETE. RETURN. B4300388^^ 203 950 RETURN B4300389^^ 204 END B4300390^t FTN 3.3B (OPT = LPC) DISPLY PAGE 15 DATE: 08/30/84 TIME: 0042 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0728 ( 1832)   EXTERNALS 2 Q8PKUP Q8PREP READR WTREAD CCSMVA CCSCST GETACF 22 CCSBLK ACTEDT EDIT CCSTIM CCSGET CCSPUT FILERR 2 CLANEX GETCHF  t FTN 3.3B (OPT = LPC) DISPLY PAGE 16 DATE: 08/30/84 TIME: 0042 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < " 00FF (255) 045F 109"   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$, ACTRET INTEGER 0851 D 23,31,112,115,$ ACTYPE INTEGER 01DD D 11,16$* AND INTR.FN. 7FFF 73,109,196 *$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$, ASC01 INTEGER 08C8 D 35,38,39,113 ,( ASCNIN INTEGER 0000 56,59,104(( ASCZER INTEGER 0005 56,59,100(. AVALSP INTEGER 000A 56,125,127,128 .( AVMAT INTEGER 0706 D 11,15,17 (( BLANKS INTEGER 08D0 D 35,39,192($ BZ INTEGER 08CA D 35,39$$ CID INTEGER 0852 D 23,31$( CLRCUT INTEGER 000B 56,59,75 (( CLRSCR INTEGER 08ED D 50,52,76 ($ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$$ COMPIN INTEGER 084C D 23,30$$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$( COSCHG INTEGER 0145 D 9,11,201 ($ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$( CUSCHG INTEGER 00EA D 9,11,199 (( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$$ DUMMY INTEGER 08E5 D 46,48$( EDTLEN INTEGER 000C 56,60,146($ ENCD INTEGER 08F7 D 52,56$t FTN 3.3B (OPT = LPC) DISPLY PAGE 17 DATE: 08/30/84 TIME: 0042 t( EOF INTEGER 08E8 D 48,50,196($ FE INTEGER 08F8 D 52,56$, FIVE INTEGER 08C2 D 33,35,168,173,$ FLDTYP INTEGER 084E D 23,30$( FOUR INTEGER 08C1 D 33,35,144(, FSTACT INTEGER 07FD D 20,23,114,120,( HCMESG INTEGER 0404 60,62,163(, HCSTLN INTEGER 0456 60,63,163,164,d I INTEGER 045E 96,96,97,100,101,104,105,145,146,176,177,180,181,186,187,190,191,192 d" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"& IDATSC INTEGER 000F D 1,4,197&" IDATTB INTEGER 004B D 1,5"" IDATTR INTEGER 001E D 1,4"0 INPBYT INTEGER 08D5 D 39,43,170,171,1870$ INVCOM INTEGER 08F6 D 52,56$$ INVENT INTEGER 08EE D 52,55$$ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$T IOBUF INTEGER 07A6 D 17,20,170,171,177,179,181,184,186,187,188,189,191,192TD IRTN INTEGER 045D 80,84,90,110,117,122,138,150,158,166 D> ISTAT INTEGER 084B D 23,29,30,72,73,113,114,196,197 > J INTEGER 045C 71,71,72,74,78,79,88,94,96,98,99,102,106,109,124,126,131,134,140,141,145,159,163,164,179,180,189,* 190,195,197*$ JDATE INTEGER 0886 D 23,33$6 K INTEGER 0460 177,178,181,182,191,1926$ KEY INTEGER 0866 D 23,31$l LENGTH INTEGER 084D D 23,30,99,100,104,128,130,132,134,135,136,137,155,156,169,171,174,186,187,188 l. LENSAV INTEGER 0016 56,148,152,153 .$ LETREQ INTEGER 0881 D 23,32$( LINSTR INTEGER 0850 D 23,30,109(( LMASBL INTEGER 08C5 D 35,39,114($ LOCKED INTEGER 08E6 D 48,50$( LS INTEGER 0848 D 23,30,202($ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$4 LU INTEGER 0849 D 23,30,76,156,171,197 4, MASREC INTEGER 01DD D 11,16,17,114 ,$ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$$ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$2 NEEDSP INTEGER 0017 56,126,127,130,136 2$ NEWPOS INTEGER 08D2 D 39,44$$ NINE INTEGER 08C4 D 33,35$t FTN 3.3B (OPT = LPC) DISPLY PAGE 18 DATE: 08/30/84 TIME: 0042 t$ NOACT INTEGER 08F5 D 52,55$( NOINP INTEGER 0018 56,59,80 ($ NUMACT INTEGER 0854 D 23,31$$ NUMLEN INTEGER 08D4 D 39,44$ NXTBYT INTEGER 0019 56,64,70,83,86,87,88,89,92,93,94,95,107,116,121,125,132,134,135,141,144,146,147,148,149,153,155, 2 157,164,165,168,1692$ NXTFUN INTEGER 08EF D 52,55$$ NXTYR INTEGER 0885 D 23,32$x OBUF INTEGER 07CF D 17,19,20,67,68,69,86,88,92,94,119,120,132,134,141,144,152,156,160,161,162,163,168,171,173x( OFAREA INTEGER 07F7 D 17,19,152($ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$P ONE INTEGER 08BE D 33,35,76,86,88,92,94,100,104,144,152,168,173,187 P$ OSW INTEGER 084B D 23,29$> OUTBYT INTEGER 08D5 D 39,43,44,83,119,125,147,148,149>$ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$$ QBREAK INTEGER 0855 D 23,31$4 REC INTEGER 7FFF 1,58,100,104,132,141 4" REQBFA INTEGER 00A2 D 5,8"" REQBFB INTEGER 00D2 D 5,9"" REQBFD INTEGER 005A D 5,8"" REQBFF INTEGER 00BA D 5,8"& REQBFS INTEGER 0072 D 5,8,72 &" REQBFT INTEGER 008A D 5,8"$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$J SCREEN INTEGER 7FFF 1,58,65,66,71,75,80,159,196,199,200,201,202Jj SDEF INTEGER 001A 56,72,78,88,94,96,98,99,102,106,109,124,126,131,134,140,141,145,199,200,201j( SIX INTEGER 08C3 D 33,35,163($ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$D STRPOS INTEGER 084F D 23,30,98,100,104,124,126,132,134,137 D( SUPCHG INTEGER 01A0 D 9,11,200 (4 TC INTEGER 084A D 23,30,76,156,171,172 4$ THREE INTEGER 08C0 D 33,35$* TIME INTEGER 0402 56,143,144 *$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$$ TRBKFL INTEGER 08BA D 23,33$( TRNSBF INTEGER 06BF D 11,14,17 (0 TWO INTEGER 08BF D 33,35,86,88,92,940$ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$$ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$t FTN 3.3B (OPT = LPC) DISPLY PAGE 19 DATE: 08/30/84 TIME: 0042 t, WRONKY INTEGER 08E7 D 48,50,73,196 ,0 XYN INTEGER 08EC D 50,52,76,156,171 0@ XYWORD INTEGER 08E9 D 50,52,67,69,86,92,160,162,168,173@$ YEAR INTEGER 0847 D 23,29$, ZERO INTEGER 08BD D 33,35,76,156 ,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACTEDT SUBROUTINE 057A 119"& CCSBLK SUBROUTINE 0668 119,170&& CCSCST SUBROUTINE 051F 99,104 &* CCSGET SUBROUTINE 0686 176,181,191*J CCSMVA SUBROUTINE 0649 86,88,92,94,132,134,144,152,163,168,173,187J" CCSPUT SUBROUTINE 06C0 192"" CCSTIM SUBROUTINE 05E5 143"" CLANEX SUBROUTINE 06E1 197"" EDIT SUBROUTINE 05DD 140"" FILERR SUBROUTINE 06DB 196"" GETACF SUBROUTINE 0566 113"* GETCHF SUBROUTINE 06EA 199,200,201* Q8PKUP INTEGER.FN. 0716 Q8PREP INTEGER.FN. 0713 " READR SUBROUTINE 0480 71 "* WTREAD SUBROUTINE 061F 75,156,171 *   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 5 047D 66,71$6 10 04A7 77,108,122,136,147,154 6* 20 04B9 75,77,79,83*$ 30 04C1 83,84$$ 40 04C6 83,86$( 50 04E5 83,84,92 ($ 60 04FB 89,96$( 100 0515 96,97,98 (& 110 052D 101,102&& 120 0534 101,104&* 130 0546 101,103,107*& 150 054E 97,109 && 160 055D 97,112 && 170 056D 112,116&* 175 0575 116,117,119*, 200 0584 96,97,106,124,& 210 0587 124,138&& 220 05A0 127,130&& 230 05A2 128,131&t FTN 3.3B (OPT = LPC) DISPLY PAGE 20 DATE: 08/30/84 TIME: 0042 t& 240 05B3 131,134&& 250 05BE 132,135&. 300 05CE 97,102,105,140 .& 310 05E4 140,143&& 320 05EE 141,145&& 330 060E 149,152&D 400 061A 80,85,91,111,118,123,139,151,155,167 D& 500 062C 65,159 && 550 0656 80,165 &* 560 065D 165,166,168*& 570 0667 169,175&" 575 0674 171"& 580 0682 172,176&& 590 069E 179,183&& 595 06A3 182,186&& 600 06B1 178,189&& 610 06C4 189,193&& 800 06C7 73,195 &. 900 06E2 80,185,194,199 .& 950 070D 109,203& DISPLY 0710 1 t FTN 3.3B (OPT = LPC) EACTSQ PAGE 1 DATE: 08/30/84 TIME: 0044 t^ 1 SUBROUTINE EACTSQ B4800001^^ 1 1 /B48 F CCS CCS 3.0 SL-149B4800002^^ C B4800003^^ C CYBERCREDIT SYSTEM VERSION 3 B4800004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B4800005^^ C COPYRIGHT CONTROL DATA CORPORATION B4800006^^ C B4800007^^ C B4800008^^ C B4800009^^ C ENTER ACTIVITY SEQUENCE. B4800010^^ C B4800011^^ C ROUTINE TO HANDLE THE ENTER ACTIVITY ON ACCOUNT REQUEST. IT WILL IB4800012^^ C TERPRET THE INPUT ACTION CODE, RESULT CODE, LETTER REQUEST CODE, AB4800013^^ C COMMENT FROM THE INPUT LINE. A VALIDATION CHECK IS THEN MADE ON THB4800014^^ C INPUT ACTION/RESULT CODES. IF THE RESULT IS PROMISED TO PAY ('PP')B4800015^^ C ENTRY OF THE PROMISED TO PAY DATE AND AMOUNT IS REQUIRED. THEN, IFB4800016^^ C ANY LETTER IS REQUIRED OR REQUESTED, LETTER CODE, ADDRESSEE CODE, B4800017^^ C LETTER DATE, AND LETTER AMOUNT ARE ENTERED. IF A COMMENT IS REQUIRB4800018^^ C AND ONE HAS NOT BEEN ENTERED, ENTRY OF A COMMENT IS THEN MADE. B4800019^^ C FINALLY, THE NEXT CONTACT DATE IS ENTERED, UNLESS A SPECIAL VALUE B4800020^^ C IS TO BE USED. B4800021^^ C BRING IN COMMON MACRO. B4800022^ ^ M COLMAC B4800024^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 2 DATE: 08/30/84 TIME: 0044 t^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 3 DATE: 08/30/84 TIME: 0044 t^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B4800026^^ 57 INTEGER ELTRFD,EPPFLD,FELTR,FEPPFD,INVADC,INVLDT,INVLAM,INVLC B4800027^^ 58 INTEGER INVPPA,INVPPD,VPPFDS,VLTRFD B4800028^^ 59 INTEGER NA B4800029^ ^ 60 DATA ELTRFD/53/,EPPFLD/48/,FELTR/54/,FEPPFD/49/,INVADC/55/ B4800031^^ 61 DATA INVLDT/57/,INVLAM/58/,INVLC/56/,INVPPA/51/,INVPPD/50/ B4800032^^ 62 DATA VPPFDS/52/,VLTRFD/59/ B4800033^^ 63 DATA NA/'NA'/ B4800034^  ^ C CHECK STATUS CODE TO SEE IF ACTIVITY ALLOWED ON THIS ACCOUNT. B4800036^^ 64 J = STATCD B4800037^^ 65 IF(J.NE.$52.AND.J.NE.$53.AND.J.NE.$57) GO TO 40 B4800038^ ^ C NO ACITIVITY ALLOWED, STATUS CODE IS R, S, OR W. B4800040^^ 66 J = NOACT B4800041^^ 67 GO TO 410 B4800042^  ^ C B4800044^^ C CONVERT IOBUF(1) BACK TO AN ACTION CODE. B4800045^^ 68 40 J = IOBUF(1) - 15 B4800046^^ 69 IOBUF(1)=VALACT(J) B4800047^^ C BLANK STRING B4800048^^ 70 CALL CCSBLK(STRING,STRLEN) B4800049^ ^ C PUT CONTACT DATE IN STRING B4800051^^ 71 DO 50 I=1,3 B4800052^^ 72 50 STRING(I)=DATE(I) B4800053^^ C SAVE COLLECTOR ID IN STRING B4800054^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 4 DATE: 08/30/84 TIME: 0044 t^ 73 STRING(7)=CID(1) B4800055^^ 74 STRING(8)=CID(2) B4800056^ ^ C PUT ACTION CODE IN STRING B4800058^^ 75 ACT=IOBUF(1) B4800059^ ^ C CHECK THIRD CHARACTER. INPUT COMPLETE IF BLANK, MORE IF COMMA. B4800061^^ 76 100 CALL CCSGET(IOBUF,THREE,J) B4800062^^ 77 IF(J.EQ.$20) GO TO 150 B4800063^^ 78 IF(J.EQ.$2C) GO TO 110 B4800064^^ C NOT A BLANK OR COMMA, FORMAT ERROR B4800065^^ 79 J = FE B4800066^^ 80 GO TO 410 B4800067^ ^ C CHECK NEXT CHARACTER. DEFAULT RESULT CODE TO BE USED IF A COMMA B4800069^^ C OTHERWISE PUT THE TWO CHARACTER CODE INTO STRING. B4800070^^ 81 110 K = 4 B4800071^^ 82 CALL CCSGET(IOBUF,K,J) B4800072^^ 83 IF(J.EQ.$2C) GO TO 120 B4800073^^ 84 CALL CCSMVA(IOBUF,FOUR,TWO,RES,ONE,TWO) B4800074^^ 85 K = 6 B4800075^ ^ C CHECK NEXT CHARACTER. INPUT COMPLETE IF BLANK, MORE INPUT IF COMMAB4800077^^ 86 CALL CCSGET(IOBUF,K,J) B4800078^^ 87 IF(J.EQ.$20) GO TO 150 B4800079^^ 88 IF(J.EQ.$2C) GO TO 120 B4800080^ ^ C NOT A BLANK OR COMMA, FORMAT ERROR. B4800082^^ 89 115 J = FE B4800083^^ 90 GO TO 410 B4800084^ ^ C CHECK NEXT CHARACTER. DEFAULT LETTER REQUEST CODE TO BE USED IF A B4800086^^ C COMMA, OTHERWISE CHECK CODE FOR 'L' OR 'N' AND SAVE. B4800087^^ 91 120 K=K+1 B4800088^^ 92 CALL CCSGET(IOBUF,K,J) B4800089^^ 93 IF(J.EQ.$2C) GO TO 130 B4800090^^ 94 IF(J.EQ.$4E) GO TO 125 B4800091^^ 95 IF(J.NE.$4C) GO TO 115 B4800092^^ C FOUND 'L' FLAG THAT A LETTER HAS BEEN REQUESTED. B4800093^^ 96 LTR=J B4800094^^ 97 125 K=K+1 B4800095^^ C CHECK NEXT CHARACTER. INPUT COMPLETE IF A BLANK, SAVE COMMENT IFB4800096^^ C A COMMA B4800097^^ 98 CALL CCSGET(IOBUF,K,J) B4800098^^ 99 IF(J.EQ.$20) GO TO 150 B4800099^^ 100 IF(J.EQ.$2C) GO TO 130 B4800100^ ^ C NOT A BLANK OR COMMA, FORMAT ERROR. B4800102^^ 101 J = FE B4800103^^ 102 GO TO 410 B4800104^ ^ C SAVE COMMENT IF PRESENT. CALCULATE LENGTH. B4800106^^ 103 130 LENGTH = IOBUF(41) - K B4800107^ t FTN 3.3B (OPT = LPC) EACTSQ PAGE 5 DATE: 08/30/84 TIME: 0044 t^ C FORMAT ERROR IF NO COMMENT. B4800109^^ 104 IF(LENGTH.LE.0) GO TO 115 B4800110^ ^ C CHECK IF COMMENT IS TOO LONG B4800112^^ 105 IF(LENGTH.LE.COMLEN) GO TO 140 B4800113^ ^ C YES TOO LONG B4800115^^ 106 J = INVCOM B4800116^^ 107 GO TO 410 B4800117^ ^ C SAVE COMMENT B4800119^^ 108 140 K=K+1 B4800120^^ 109 CALL CCSMVA(IOBUF,K,LENGTH,COM,ONE,LENGTH) B4800121^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 6 DATE: 08/30/84 TIME: 0044 t^ C VERIFY ACTIVIY AND RETRIEVE LETTER AND COMMENT REQUIREMENT, AND B4800123^^ C NEXT CONTACT DATE. B4800124^^ 110 150 CALL AVMVAC(AVMAT,ACT,RES,LETREQ,COMREQ,NCD) B4800125^^ C CHECK FOR INVALID RESULT OR ACTION/RESULT COMBINATION B4800126^^ 111 IF(NCD.GE.0) GO TO 160 B4800127^^ 112 J = INVRES B4800128^^ 113 GO TO 410 B4800129^ ^ C CHECK IF RESULT = BZ FOR WHICH RL MUST BE PERFORMED B4800131^^ 114 160 IF(RES.EQ.BZ) GO TO 420 B4800132^^ C IF UTIFIL OLPM RECORD NA = 'Y' AND RESULT CODE = NA, IT SHOULD BE B4800133^^ C TREATED AS AN RL(REVIEW LATER) B4800134^^ 115 IF(NAEQRL.EQ.$59.AND.RES.EQ.NA) GO TO 420 B4800135^ ^ C VALID ACTIVITY - CHECK IF RESULT IS PP, PROMISED TO PAY. B4800137^^ 116 IF(RES.NE.PP) GO TO 200 B4800138^^ C YES, SAVE COMMITMENT DATE. B4800139^^ 117 CALL CCSMVA(DATE,ONE,SIX,MASREC,PPMADE,SIX) B4800140^^ C SET PROMISED TO PAY FLAG IN MASTER RECORD. SET TO A 'Y'. B4800141^^ 118 J = $59 B4800142^^ 119 CALL CCSPUT(J,PPFLAG,MASREC) B4800143^ ^ C PROMPT FOR PP DATE AND AMOUNT B4800145^^ 120 CALL DISPLY(EPPFLD,DUMMY) B4800146^ ^ C CHECK FIFTH CHARACTER TO DETERMINE IF FOUR OR SIX CHARACTER DATE B4800148^^ C ENTERED. B4800149^^ 121 165 CALL CCSGET(IOBUF,FIVE,J) B4800150^^ 122 IF(J.EQ.$2C) GO TO 170 B4800151^ ^ C SIX CHARACTER DATE. MOVE IT ALL IN. B4800153^^ 123 CALL CCSMVA(IOBUF,ONE,SIX,MASREC,MPPDAT,SIX) B4800154^ ^ C NEXT CHARACTER SHOULD BE A COMMA, FORMAT ERROR IF NOT B4800156^^ 124 K=7 B4800157^^ 125 CALL CCSGET(IOBUF,K,J) B4800158^^ 126 IF(J.EQ.$2C) GO TO 180 B4800159^^ 127 CALL DISPLY(FEPPFD,DUMMY) B4800160^^ 128 GO TO 165 B4800161^ ^ C FOUR CHARACTER DATE. MOVE IN MONTH AND DAY B4800163^^ 129 170 CALL CCSMVA(IOBUF,ONE,FOUR,MASREC,MPPDAT,FOUR) B4800164^ ^ C DETERMINE YEAR B4800166^^ 130 J=YEAR B4800167^^ 131 IF(IOBUF(1).LT.MONTH.OR.(IOBUF(1).EQ.MONTH.AND.IOBUF(2).LT.DAY)) B4800168^^ 131 1 J = NXTYR B4800169^^ C SAVE YEAR B4800170^^ 132 175 CALL CCSMVA(J,ONE,TWO,MASREC,MPPDAT+4,TWO) B4800171^^ 133 K=5 B4800172^ ^ C DATA MUST BE IN THE RANGE OF TODAY'S DATE TO A MAXIMUM OF C+P B4800174^^ C (FROM OLPM UTILITY FILE RECORD) DAYS IN THE FUTURE. B4800175^^ 134 180 IF(K.EQ.7) J=IOBUF(3) B4800176^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 7 DATE: 08/30/84 TIME: 0044 t^ C DETERMINE NUMBER OF YEARS FROM CURRENT YEAR. B4800177^^ 135 J = ICCSAD(J) - ICCSAD(YEAR) B4800178^^ C DETERMINE JULIAN CONVERSION OF DATE. RETURNED <0 IF NOT VALID. B4800179^^ 136 I = ICALJL(MASREC,MPPDAT) B4800180^^ C CALCULATE NUMBER OF DAYS INPUT DATE IS RELATIVE TO TODAY'S DATE. B4800181^^ 137 J = I + J*365 - JDATE B4800182^^ C CHECK IF DATE VALID AND WITHIN RANGE. B4800183^^ 138 IF(I.GT.0.AND.J.GE.0.AND.J.LE.MAXNCD+PPLAG) GO TO 185 B4800184^^ 139 CALL DISPLY(INVPPD,DUMMY) B4800185^^ 140 GO TO 165 B4800186^ ^ C DATE OK- RETRIEVE AMOUNT B4800188^^ 141 185 K=K+1 B4800189^^ 142 CALL PIKAMT(IOBUF,K,MASREC,MPPAMT) B4800190^^ C AMOUNT MUST BE LESS THAN THE CURRENT BALANCE B4800191^^ 143 CALL CCSCST(MASREC,MPPAMT,NINE,MASREC,CURBAL,NINE,COMPIN) B4800192^^ 144 IF(COMPIN.LE.0) GO TO 190 B4800193^^ 145 CALL DISPLY(INVPPA,DUMMY) B4800194^^ 146 GO TO 165 B4800195^ ^ C AMOUNT VALID. ASK FOR VALIDATION OF PROMISE TO PAY DATE AND AMOUNTB4800197^^ 147 190 CALL DISPLY(VPPFDS,MASREC) B4800198^ ^ C ENTRY OF 'OK' OR CARRIAGE RETURN VALIDATES. ANY OTHER ENTRY IS B4800200^^ C TREATED AS REENTRY OF THE FIELDS. B4800201^^ 148 IF(IOBUF(41).EQ.0.OR.IOBUF(1).EQ.OK) GO TO 195 B4800202^^ C***************************************************************138*A010B4800203^^ C ONE CARD DELETED B4800204^^ C***************************************************************138*A010B4800205^^ 149 GO TO 165 B4800206^ ^ C SAVE PROMISE TO PAY FIELDS IN TRANFL B4800208^^ 150 195 CALL CCSMVA(MASREC,MPPDAT,15,TRNSBF,TPPDAT,15) B4800209^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 8 DATE: 08/30/84 TIME: 0044 t^ C PROMPT FOR LETTER FIELDS IF REQUESTED OR REQUIRED B4800211^^ 151 200 IF(LTR.EQ.BLANKS.AND.LETREQ.EQ.0) GO TO 300 B4800212^^ 152 CALL DISPLY(ELTRFD,DUMMY) B4800213^ ^ C CHECK FOR VALID ADDRESSEE B4800215^^ 153 205 CALL CCSGET ( IOBUF, ONE, J ) B4800216^^ 154 IF(J.EQ.$42.OR.J.EQ.$48.OR.J.EQ.$31.OR.J.EQ.$32.OR.J.EQ.$33) B4800217^^ 154 1 GO TO 210 B4800218^^ 155 CALL DISPLY(INVADC,DUMMY) B4800219^^ 156 GO TO 205 B4800220^ ^ C SAVE ADDRESSEE CODE B4800222^^ 157 210 ACODE = J B4800223^ ^ C NEXT CHARACTER MUST BE A COMMA, FORMAT ERROR IF NOT. B4800225^^ 158 CALL CCSGET(IOBUF,TWO,J) B4800226^^ 159 IF(J.EQ.$2C) GO TO 220 B4800227^^ 160 215 CALL DISPLY(FELTR,DUMMY) B4800228^^ 161 GO TO 270 B4800229^ ^ C NEXT TWO CHARACTERS ARE LETTER CODE AND MUST BE NUMERIC. SAVE THEMB4800231^^ 162 220 CALL CCSGET(IOBUF,THREE,J) B4800232^^ 163 CALL CCSGET(IOBUF,FOUR,K) B4800233^^ 164 IF((J.GE.$30.AND.J.LE.$39).AND.(K.GE.$30.AND.K.LE.$39)) GO TO 225 B4800234^ ^ C LETTER NUMBER NOT NUMERIC OR NOT IN VALID LIST IN UTIFIL B4800236^^ 165 222 CALL DISPLY(INVLC,DUMMY) B4800237^^ 166 GO TO 270 B4800238^  ^ C VALIDATE THAT THE LETTER NUMBER ENTERED IS ONE OF THE VALID B4800241^^ C NUMBERS IN UTIFIL B4800242^^ 167 225 IFD = 0 B4800243^^ 168 DO 227 LL = 1,50 B4800244^^ 169 IF(LTRNUM(LL).NE.IOBUF(2)) GO TO 227 B4800245^^ 170 IFD = 1 B4800246^^ 171 LL = 50 B4800247^^ 172 227 CONTINUE B4800248^^ 173 IF(IFD.EQ.0) GO TO 222 B4800249^^ C VALID LETTER NUMBER FOUND-SAVE IT B4800250^^ 174 LTR = IOBUF(2) B4800251^ ^ C CHECK NEXT CHARACTER. INPUT COMPLETE IF BLANK, MORE IF COMMA. B4800253^^ 175 CALL CCSGET(IOBUF,FIVE,J) B4800254^^ 176 IF(J.EQ.$20) GO TO 260 B4800255^^ 177 IF(J.NE.$2C) GO TO 215 B4800256^^ C B4800257^^ C CHECK NEXT CHARACTER FOR A COMMA INDICATING DEFAULT LETTER DATE USB4800258^^ 178 K = 6 B4800259^^ 179 CALL CCSGET(IOBUF,K,J) B4800260^^ 180 IF(J.NE.$2C) GO TO 230 B4800261^ ^ C NO DATE ENTERED, LEAVE FIELD BLANK B4800263^^ 181 GO TO 255 B4800264^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 9 DATE: 08/30/84 TIME: 0044 t ^ C CHECK TENTH CHARACTER TO DETERMINE IF FOUR OR SIX CHARACTER DATE B4800266^^ C ENTERED. B4800267^^ 182 230 K = 10 B4800268^^ 183 CALL CCSGET(IOBUF,K,J) B4800269^^ 184 IF(J.EQ.$2C.OR.J.EQ.$20) GO TO 235 B4800270^ ^ C SIX CHARACTER DATE ENTERED B4800272^^ 185 CALL CCSMVA(IOBUF,SIX,SIX,TRNSBF,TLDT,SIX) B4800273^^ 186 K=12 B4800274^^ 187 GO TO 245 B4800275^ ^ C FOUR CHARACTER DATE B4800277^^ 188 235 CALL CCSMVA(IOBUF,SIX,FOUR,TRNSBF,TLDT,FOUR) B4800278^ ^ C DETERMINE YEAR B4800280^^ 189 J=YEAR B4800281^^ 190 IF(IOBUF(1).LT.MONTH.OR.(IOBUF(1).EQ.MONTH.AND.IOBUF(2).LT.DAY)) B4800282^^ 190 1 J = NXTYR B4800283^ ^ C SAVE YEAR B4800285^^ 191 240 CALL CCSMVA(J,ONE,TWO,TRNSBF,TLDT+4,TWO) B4800286^ ^ C CHECK FOR VALID DATE ENTRY B4800288^^ 192 245 IF(IDATVR(TRNSBF,TLDT).GE.0) GO TO 250 B4800289^^ 193 CALL DISPLY(INVLDT,DUMMY) B4800290^^ 194 GO TO 270 B4800291^ ^ C CHECK NEXT CHARACTER. INPUT COMPLETE IF BLANK,MORE INPUT IF COMMA B4800293^^ 195 250 CALL CCSGET(IOBUF,K,J) B4800294^^ 196 IF(J.EQ.$20) GO TO 260 B4800295^^ 197 IF(J.NE.$2C) GO TO 215 B4800296^ ^ C RETRIEVE THE AMOUNT ENTERED B4800298^^ 198 255 K=K+1 B4800299^^ 199 CALL PIKAMT(IOBUF,K,TRNSBF,TLTAMT) B4800300^ ^ C ASK FOR VALIDATION OF LETTER FIELDS B4800302^^ 200 260 TRNSBF(21) = LTR B4800303^^ 201 CALL DISPLY(VLTRFD,TRNSBF) B4800304^ ^ C CONTINUE IF REPLY = CR OR OK, OTHERWISE ENTRY REPRESENTS NEW B4800306^^ C FIELDS B4800307^^ 202 IF(IOBUF(41).EQ.0.OR.IOBUF(1).EQ.OK) GO TO 300 B4800308^ ^ C BLANK LETTER FIELDS IN TRANSACTION BUFFER AND RECEIVE REVISED FIELB4800310^^ 203 270 CALL CCSBLK(TRNSBF(53),NUMLEN) B4800311^^ 204 GO TO 205 B4800312^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 10 DATE: 08/30/84 TIME: 0044 t^ C CHECK IF COMMENT ENTRY REQUIRED AND NOT MADE B4800314^^ 205 300 IF(COMREQ.EQ.0.OR.(COM(1).NE.BLANKS)) GO TO 320 B4800315^^ 206 305 CALL DISPLY(COMRQD,DUMMY) B4800316^^ 207 310 IF (IOBUF(41).EQ.0) GO TO 305 B4800317^^ 208 LENGTH=IOBUF(41) B4800318^ ^ C SAVE COMMENT. REENTER IF COMMENT TOO LONG. B4800320^^ 209 IF(LENGTH.LE.COMLEN) GO TO 315 B4800321^^ 210 CALL DISPLY(COMLNG,DUMMY) B4800322^^ 211 GO TO 310 B4800323^^ 212 315 CALL CCSMVA(IOBUF,ONE,LENGTH,COM,ONE,LENGTH) B4800324^  ^ C PROMPT FOR ENTRY OF NCD UNLESS SPECIAL VALUE FOR NCD USED B4800326^^ 213 320 IF(ACT.EQ.SR) GO TO 360 B4800327^^ 214 IF(RES.EQ.PP) GO TO 365 B4800328^^ 215 IF(NCD.NE.0) GO TO 322 B4800329^ ^ C NO CHANGE ALLOWED FROM CURRENT NEXT CONTACT DATE. MOVE CURRENT NCDB4800331^^ C INTO TRANSACTION BUFFER. B4800332^^ 216 CALL CCSMVA(MASREC,MNCD,SIX,TRNSBF,TNCD,SIX) B4800333^^ 217 GO TO 385 B4800334^ ^ 218 322 CALL DISPLY(ENCD,DUMMY) B4800336^^ 219 325 IF(IOBUF(41).EQ.0) GO TO 370 B4800337^ ^ C CHECK FOR FOUR OR SIX CHARACTER DATE B4800339^^ 220 CALL CCSGET(IOBUF,FIVE,J) B4800340^^ 221 IF(J.EQ.$20) GO TO 335 B4800341^ ^ C SIX CHARACTERS B4800343^^ 222 DO 330 I=1,3 B4800344^^ 223 330 TRNSBF(I+49) = IOBUF(I) B4800345^^ 224 GO TO 345 B4800346^ ^ C FOUR CHARACTER DATE B4800348^^ 225 335 TRNSBF(50)=IOBUF(1) B4800349^^ 226 TRNSBF(51)=IOBUF(2) B4800350^^ 227 J=YEAR B4800351^^ 228 IF(IOBUF(1).LT.MONTH.OR.(IOBUF(1).EQ.MONTH.AND.IOBUF(2).LT.DAY)) B4800352^^ 228 1 J=NXTYR B4800353^^ 229 340 TRNSBF(52)=J B4800354^ ^ C NEXT CONTACT DATE MUST BE A VALID DATE WITHIN THE RANGE OF B4800356^^ C TODAY'S DATE AND A MAXIMUM OF A CUSTOMER DEFINED LIMIT IN THE B4800357^^ C FUTURE. B4800358^ ^ C DETERMINE YEARS DIFFERENCE FROM CURRENT YEAR. B4800360^^ 230 345 J = ICCSAD(TRNSBF(52)) - ICCSAD(YEAR) B4800361^^ C CALCULATE JULIAN DATE FOR INPUT DATE. RETURNED <0 IF NOT VALID. B4800362^^ 231 I = ICALJL(TRNSBF,TNCD) B4800363^^ C DETERMINE DATE RELATIVE TO TODAY IN DAYS. B4800364^^ 232 J = I + J*365 - JDATE B4800365^^ 233 IF(I.GT.0.AND.J.GE.0.AND.J.LE.MAXNCD) GO TO 385 B4800366^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 11 DATE: 08/30/84 TIME: 0044 t  ^ C INVALID DATE B4800369^^ 234 355 CALL DISPLY(INVNCD,DUMMY) B4800370^^ 235 GO TO 325 B4800371^ ^ C ACTION = SR. NCD AUTOMATICALLY SET ON TO NEXT DAY. B4800373^^ 236 360 NCD=ICALJL(DATE,ONE)+1 B4800374^^ 237 GO TO 375 B4800375^ ^ C RESULT = PP. NCD AUTOMATICALLY SET TO A CUSTOMER DEFINED NCD B4800377^^ C AFTER DAY PROMISED TO PAY. B4800378^^ 238 365 NCD=ICALJL(MASREC,MPPDAT)+PPLAG B4800379^^ C***************************************************************138*A010B4800380^^ C SAVE YEAR OF PP DATE. COULD HAVE ALREADY PLACED PP DATE B4800381^^ C IN NEXT YEAR. B4800382^^ 239 CALL CCSMVA(MASREC,MPPDAT+4,TWO,J,ONE,TWO) B4800383^^ 240 GO TO 377 B4800384^^ C***************************************************************138*A010B4800385^ ^ C DEFAULT NCD SELECTED. B4800387^^ 241 370 NCD = ICALJL(DATE,ONE) + NCD B4800388^ ^ C CONVERT NCD BACK TO CALENDAR DATE AND SAVE. B4800390^^ 242 375 J=YEAR B4800391^^ C***************************************************************138*A010B4800392^^ 243 377 IF(NCD.GT.365) J=NXTYR B4800393^^ C***************************************************************138*A010B4800394^ ^ C CONVERT NCD AND SAVE YEAR. B4800396^^ 244 380 CALL JULCAL(NCD,TRNSBF,TNCD) B4800397^^ 245 TRNSBF(52)=J B4800398^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 12 DATE: 08/30/84 TIME: 0044 t^ C SAVE INFORMATION IN TRANSACTION FILE B4800400^^ 246 385 DO 390 I=1,6 B4800401^^ 247 390 TRNSBF(I+15) = STRING(I) B4800402^  ^ C SAVE ACTIVITY COMMENT IN TRANSACTION BUFFER. B4800405^^ 248 CALL CCSMVA(COM,ONE,COMLEN,TRNSBF(22),ONE,COMLEN) B4800406^ ^ C SAVE LETTER DATE AND AMOUNT IN MASTER RECORD IF LETTER SENT. B4800408^^ 249 IF(LTR.NE.BLANKS) CALL CCSMVA(TRNSBF,TLDT,15,MASREC,MLTRDT,15) B4800409^ ^ C SAVE NCD IN MASTER RECORD B4800411^^ 250 CALL CCSMVA(TRNSBF,TNCD,SIX,MASREC,MNCD,SIX) B4800412^^ C SAVE THE ACTIVITY COUNT NUMBER B4800413^^ 251 CALL CCSPUT(ACTCNT,136,TRNSBF) B4800414^ ^ C SET TRANSACTION TYPE TO '01', COLLECTION ACTIVITY. B4800416^^ 252 TRNSBF(15) = TYPE1 B4800417^ ^ C SAVE TRANSACTION B4800419^^ 253 CALL SAVTRN B4800420^  ^ C SAVE ACTIVITY IN MASTER FILE. FORCE STRING INTO COLLECTION ACTIVITB4800422^^ C BLOCK. B4800423^^ 254 OSW = ASC01 B4800424^^ 255 CALL PUTACF(STRING,MASREC(154),LMASBL,OSW) B4800425^^ C BUMP ACTIVITY COUNT BY 1 B4800426^^ 256 ACTCNT = ACTCNT + 1 B4800427^ ^ C ACTIVITY COMPLETE. SET FLAG INDICATING A NEW ACTIVITY HAS BEEN B4800429^^ C ENTERED, THEN PROMPT FOR NEXT REQUEST. B4800430^^ 257 400 ACTRET = 0 B4800431^^ C SET NEXT SCREEN TO PROMPT FOR NEXT FUNCTION REQUEST. B4800432^^ 258 J = -2 B4800433^  ^ C DISPLAY NEXT SCREEN REQUESTED, EITHER ERROR MESSAGE OR NEXT FUNCTIB4800435^^ C PROMPT. B4800436^^ C DETERMINE IF MESSAGE IS FOR A CHANGE SCREEN OR NOT. B4800437^^ 259 410 IF(LS.EQ.33.OR.LS.EQ.35.OR.LS.EQ.94) J=J+1 B4800438^^ 260 CALL DISPLY(J,DUMMY) B4800439^^ C RETURN. B4800440^^ 261 GO TO 450 B4800441^ ^ C RL FOR BUSY RESULT. B4800443^^ 262 420 IOBUF(1)=RL B4800444^  ^ C RETURN. B4800446^^ 263 450 RETURN B4800447^^ 264 END B4800448^t FTN 3.3B (OPT = LPC) EACTSQ PAGE 13 DATE: 08/30/84 TIME: 0044 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $03D9 ( 985)   EXTERNALS 2 CCSBLK CCSGET CCSMVA AVMVAC CCSPUT DISPLY ICCSAD 22 ICALJL PIKAMT CCSCST IDATVR JULCAL SAVTRN PUTACF 2 t FTN 3.3B (OPT = LPC) EACTSQ PAGE 14 DATE: 08/30/84 TIME: 0044 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < 2 000F (15) 000E 68,150,247,249,252 2" 0088 (136) 0014 251" 00FF (255) 0026 . 016D (365) 0011 137,214,232,243.   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( ACODE INTEGER 06F3 D 11,14,157(0 ACT INTEGER 0824 D 20,22,75,110,213 0, ACTCNT INTEGER 08B9 D 23,33,251,256,$ ACTHST INTEGER 05C5 D 11,13$( ACTRET INTEGER 0851 D 23,31,257($ ACTYPE INTEGER 01DD D 11,16$$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$, ASC01 INTEGER 08C8 D 35,38,39,254 ,, AVMAT INTEGER 0706 D 11,15,17,110 ,0 BLANKS INTEGER 08D0 D 35,39,151,205,2490( BZ INTEGER 08CA D 35,39,114(* CID INTEGER 0852 D 23,31,73,74*$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$4 COM INTEGER 0829 D 20,22,109,205,212,24840 COMLEN INTEGER 08D6 D 39,44,105,209,2480( COMLNG INTEGER 08F3 D 52,55,210(, COMPIN INTEGER 084C D 23,30,143,144,, COMREQ INTEGER 0882 D 23,32,110,205,( COMRQD INTEGER 08F2 D 52,55,206($ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$( CURBAL INTEGER 08D8 D 39,45,143($ CUSCHG INTEGER 00EA D 9,11 $6 DATE INTEGER 0845 D 23,29,30,72,117,236,24160 DAY INTEGER 0846 D 23,29,131,190,2280\ DUMMY INTEGER 08E5 D 46,48,120,127,139,145,152,155,160,165,193,206,210,218,234,260\( ELTRFD INTEGER 0000 56,60,152(( ENCD INTEGER 08F7 D 52,56,218($ EOF INTEGER 08E8 D 48,50$( EPPFLD INTEGER 0001 56,60,120(t FTN 3.3B (OPT = LPC) EACTSQ PAGE 15 DATE: 08/30/84 TIME: 0044 t. FE INTEGER 08F8 D 52,56,79,89,101.( FELTR INTEGER 0002 56,60,160(( FEPPFD INTEGER 0003 56,60,127(0 FIVE INTEGER 08C2 D 33,35,121,175,2200$ FLDTYP INTEGER 084E D 23,30$4 FOUR INTEGER 08C1 D 33,35,84,129,163,188 4$ FSTACT INTEGER 07FD D 20,23$L I INTEGER 000F 70,72,136,137,138,222,223,231,232,233,246,247L" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"" IDATTR INTEGER 001E D 1,4". IFD INTEGER 0012 167,167,170,173.$ INPBYT INTEGER 08D5 D 39,43$( INVADC INTEGER 0004 56,60,155(( INVCOM INTEGER 08F6 D 52,56,106($ INVENT INTEGER 08EE D 52,55$$ INVLAM INTEGER 0006 56,61$( INVLC INTEGER 0007 56,61,165(( INVLDT INTEGER 0005 56,61,193(( INVNCD INTEGER 08F4 D 52,55,234(( INVPPA INTEGER 0008 56,61,145(( INVPPD INTEGER 0009 56,61,139(( INVRES INTEGER 08F1 D 52,55,112( IOBUF INTEGER 07A6 D 17,20,68,69,75,76,82,84,86,92,98,103,109,121,123,125,129,131,134,142,148,153,158,162,163,169,174,j 175,179,183,185,188,190,195,199,202,207,208,212,219,220,223,225,226,228,262j( ISTAT INTEGER 084B D 23,29,30 ( J INTEGER 000D 63,64,65,66,68,69,76,77,78,79,82,83,86,87,88,89,92,93,94,95,96,98,99,100,101,106,112,118,119,121, 122,125,126,130,131,132,134,135,137,138,153,154,157,158,159,162,164,175,176,177,179,180,183,184, r 189,190,191,195,196,197,220,221,227,228,229,230,232,233,239,242,243,245,258,259,260r, JDATE INTEGER 0886 D 23,33,137,232, K INTEGER 0010 81,81,82,85,86,91,92,97,98,103,108,109,124,125,133,134,141,142,163,164,178,179,182,183,186,195,198 $ ,199 $$ KEY INTEGER 0866 D 23,31$@ LENGTH INTEGER 084D D 23,30,103,104,105,109,208,209,212@, LETREQ INTEGER 0881 D 23,32,110,151,$ LINSTR INTEGER 0850 D 23,30$* LL INTEGER 0013 167,169,171*( LMASBL INTEGER 08C5 D 35,39,255($ LOCKED INTEGER 08E6 D 48,50$( LS INTEGER 0848 D 23,30,259(8 LTR INTEGER 0826 D 20,22,96,151,174,200,249 8( LTRNUM INTEGER 0887 D 23,33,169($ LU INTEGER 0849 D 23,30$h MASREC INTEGER 01DD D 11,16,17,117,119,123,129,132,136,142,143,147,150,216,238,239,249,250,255 h, MAXNCD INTEGER 086F D 23,31,138,233,$ MLTRAM INTEGER 08DE D 39,45$( MLTRDT INTEGER 08DF D 39,45,249(, MNCD INTEGER 08E0 D 39,46,216,250,0 MONTH INTEGER 0845 D 23,29,131,190,2280, MPPAMT INTEGER 08D9 D 39,45,142,143,@ MPPDAT INTEGER 08DA D 39,45,123,129,132,136,150,238,239@t FTN 3.3B (OPT = LPC) EACTSQ PAGE 16 DATE: 08/30/84 TIME: 0044 t( NA INTEGER 000C 56,63,115(( NAEQRL INTEGER 08BC D 23,33,115($ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$D NCD INTEGER 0883 D 23,32,110,111,215,236,238,241,243,244D$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$( NINE INTEGER 08C4 D 33,35,143(( NOACT INTEGER 08F5 D 52,55,66 ($ NUMACT INTEGER 0854 D 23,31$( NUMLEN INTEGER 08D4 D 39,44,203($ NXTFUN INTEGER 08EF D 52,55$4 NXTYR INTEGER 0885 D 23,32,131,190,228,2434( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$, OK INTEGER 08CB D 35,39,148,202,$ OLDPOS INTEGER 08D1 D 39,44$X ONE INTEGER 08BE D 33,35,84,109,117,123,129,132,153,191,212,236,239,241,248 X, OSW INTEGER 084B D 23,29,254,255,( OUTBYT INTEGER 08D5 D 39,43,44 (, PP INTEGER 08CD D 35,39,116,214,( PPFLAG INTEGER 08E4 D 39,46,119(, PPLAG INTEGER 0880 D 23,32,138,238,( PPMADE INTEGER 08E2 D 39,46,117($ QBREAK INTEGER 0855 D 23,31$" REQBFA INTEGER 00A2 D 5,8"" REQBFB INTEGER 00D2 D 5,9"" REQBFD INTEGER 005A D 5,8"" REQBFF INTEGER 00BA D 5,8"" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"< RES INTEGER 0825 D 20,22,84,110,114,115,116,214 <( RL INTEGER 08CE D 35,39,262(< SIX INTEGER 08C3 D 33,35,117,123,185,188,216,250<( SR INTEGER 08CC D 35,39,213(( STATCD INTEGER 0275 D 11,16,64 (< STRING INTEGER 0821 D 20,22,23,70,72,73,74,247,255 <( STRLEN INTEGER 08D7 D 39,44,70 ($ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $$ TC INTEGER 084A D 23,30$, THREE INTEGER 08C0 D 33,35,76,162 ,8 TLDT INTEGER 08E3 D 39,46,185,188,191,192,2498( TLTAMT INTEGER 08DD D 39,45,199(4 TNCD INTEGER 08E1 D 39,46,216,231,244,2504$ TPPAMT INTEGER 08DB D 39,45$( TPPDAT INTEGER 08DC D 39,45,150($ TRBKFL INTEGER 08BA D 23,33$ TRNSBF INTEGER 06BF D 11,14,17,150,185,188,191,192,199,200,201,203,216,223,225,226,229,230,231,244,245,247,248,249,250,& 251,252&8 TWO INTEGER 08BF D 33,35,84,132,158,191,239 8( TYPE1 INTEGER 08C8 D 35,38,252($ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$t FTN 3.3B (OPT = LPC) EACTSQ PAGE 17 DATE: 08/30/84 TIME: 0044 t( VALACT INTEGER 0706 D 11,15,69 ($ VALQ INTEGER 0856 D 23,31$( VLTRFD INTEGER 000B 56,62,201(( VPPFDS INTEGER 000A 56,62,147($ WRONKY INTEGER 08E7 D 48,50$$ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$< YEAR INTEGER 0847 D 23,29,130,135,189,227,230,242<$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " AVMVAC SUBROUTINE 00C0 110"& CCSBLK SUBROUTINE 02A2 69,203 &" CCSCST SUBROUTINE 017E 142"Z CCSGET SUBROUTINE 02F2 75,82,86,92,98,121,125,153,158,162,163,175,179,183,195,220 Z^ CCSMVA SUBROUTINE 035F 83,109,117,123,129,132,150,185,188,191,212,216,239,248,249,250 ^& CCSPUT SUBROUTINE 03A4 118,251&^ DISPLY SUBROUTINE 03C9 119,127,139,145,147,152,155,160,165,193,201,206,210,218,234,260^2 ICALJL INTEGER.FN. 0331 136,231,236,238,2412* ICCSAD INTEGER.FN. 0328 135,135,230*" IDATVR INTEGER.FN. 0273 192"" JULCAL SUBROUTINE 0375 243"& PIKAMT SUBROUTINE 028C 141,199&" PUTACF SUBROUTINE 03B1 254"" SAVTRN SUBROUTINE 03AC 252"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 40 0027 65,68$$ 50 0035 70,72$" 100 004A 75 "$ 110 005B 78,81$( 115 007A 88,95,104(( 120 007E 83,88,91 ($ 125 0092 94,97$* 130 00A3 93,100,103 *& 140 00B7 105,108&, 150 00BF 77,87,99,110 ,& 160 00D0 111,114&2 165 00FD 120,128,140,146,1492& 170 011D 122,129&" 175 013A 131"& 180 0147 126,134&& 185 0176 138,141&& 190 0190 144,147&t FTN 3.3B (OPT = LPC) EACTSQ PAGE 18 DATE: 08/30/84 TIME: 0044 t& 195 019E 148,150&& 200 01A6 116,151&* 205 01B5 152,156,204*& 210 01CF 154,157&* 215 01DC 159,177,197*& 220 01E1 159,162&& 222 01F6 164,173&& 225 01FC 164,167&* 227 020D 167,169,172*& 230 0232 180,182&& 235 024A 184,188&" 240 0266 190"& 245 0272 186,192&& 250 027D 192,195&& 255 0289 180,198&* 260 0291 176,196,200*. 270 02A1 160,166,194,203.* 300 02A7 151,202,205*& 305 02B3 205,207&& 310 02B6 206,211&& 315 02C6 209,212&& 320 02CE 205,213&& 322 02E9 215,218&& 325 02ED 218,235&& 330 02FD 221,223&& 335 0308 221,225&" 340 0324 228"& 345 0327 223,230&" 355 0349 233"& 360 034D 213,236&& 365 0354 214,238&& 370 0367 219,241&& 375 036C 236,242&& 377 036F 239,243&" 380 0374 243"* 385 037B 216,233,246*& 390 037E 246,247&" 400 03B8 256"8 410 03BD 66,80,90,102,107,113,259 8* 420 03CD 114,115,262*& 450 03D1 260,263& EACTSQ 03D4 1 t FTN 3.3B (OPT = LPC) EATRNG PAGE 1 DATE: 08/30/84 TIME: 0047 t^ 1 SUBROUTINE EATRNG B4900001^^ 1 1 /B49 F CCS CCS 3.0 SL-149B4900002^^ C B4900003^^ C CYBERCREDIT SYSTEM VERSION 3 B4900004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B4900005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B4900006^^ C B4900007^^ C B4900008^^ C B4900009^^ C TRAINING METHOD OF ENTRY FOR ACTIVITY. B4900010^^ C B4900011^^ C ROUTINE TO PERFORM THE TRAINING METHOD OF ENTERING AN ACTIVITY ON B4900012^^ C AN ACCOUNT. THIS CONSISTS OF PROMPTING FOR EACH FIELD INDIVIDUALLYB4900013^^ C NOT COMBINING LIKE FIELDS AS IN THE NORMAL METHOD. THE ROUTINE B4900014^^ C PROMPTS FIRST FOR ACTION AND RESULT CODES. AFTER VERIFICATION OF B4900015^^ C THE ACTION AND RESULT CODE, PROMISED TO PAY FIELDS ARE ENTERED IF B4900016^^ C RESULT WAS 'PP'. THEN A PROMPT FOR LETTER CODE IS ISSUED. A BYPASSB4900017^^ C OF LETTER FIELDS CAN BE DONE BY ENTERING NO LETTER CODE, PROVIDINGB4900018^^ C NO LETTER IS REQUIRED. AFTER ENTRY OF LETTER FIELDS, A PROMPT IS B4900019^^ C MADE FOR A COMMENT. NO ENTRY WILL BYPASS ANY COMMENT ENTRY UNLESS B4900020^^ C A COMMENT IS REQUIRED. FINALLY, A PROMPT IS ISSUED FOR ENTRY OF B4900021^^ C NEXT CONTACT DATE, UNLESS A SPECIAL VALUE IS TO BE USED. A PRE- B4900022^^ C DETERMINED DEFAULT NEXT CONTACT DATE CAN BE USED BY NOT ENTERING B4900023^^ C ONE. B4900024^  ^ C BRING IN COMMON MACRO. B4900026^^ M COLMAC B4900027^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^t FTN 3.3B (OPT = LPC) EATRNG PAGE 2 DATE: 08/30/84 TIME: 0047 t^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^t FTN 3.3B (OPT = LPC) EATRNG PAGE 3 DATE: 08/30/84 TIME: 0047 t^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B4900029^^ 57 INTEGER EACTCD,ERESCD,INVACT,EAPPD,EAEPPD,EAPPA,EAEPPA,EALCD B4900030^^ 58 INTEGER EALTRQ,EAELCD,EAACD,EAEACD,EALDT,EAELTD,EALTA,EAVLTR,EACOMB4900031^^ 59 INTEGER EAVPP B4900032^^ 60 INTEGER NA B4900033^ ^ 61 DATA EACTCD/70/,ERESCD/71/,INVACT/72/,EAPPD/74/,EAEPPD/75/ B4900035^^ 62 DATA EAPPA/76/,EAEPPA/77/,EALCD/78/,EALTRQ/79/,EAELCD/80/ B4900036^^ 63 DATA EAACD/81/,EAEACD/82/,EALDT/83/,EAELTD/84/,EALTA/85/ B4900037^^ 64 DATA EAVLTR/86/,EACOM/87/,EAVPP/88/ B4900038^^ 65 DATA NA/'NA'/ B4900039^  ^ C CHECK IF ACTIVITY IS ALLOWED ON THIS ACCOUNT. B4900041^^ 66 J = STATCD B4900042^^ 67 IF(J.NE.$52.AND.J.NE.$53.AND.J.NE.$57) GO TO 10 B4900043^^ C NO ACTIVITY ALLOWED, STATUS CODE IS R, S, OR W. B4900044^^ 68 J = NOACT B4900045^^ 69 GO TO 600 B4900046^ ^ C ACTIVITY ALLOWED, BLANK STRING AND PROMPT FOR ACTION CODE. B4900048^^ 70 10 CALL CCSBLK(STRING,STRLEN) B4900049^^ 71 CALL DISPLY(EACTCD,DUMMY) B4900050^^ C SAVE ACTION CODE. B4900051^^ 72 ACT = IOBUF(1) B4900052^ ^ C PROMPT FOR RESULT CODE. B4900054^t FTN 3.3B (OPT = LPC) EATRNG PAGE 4 DATE: 08/30/84 TIME: 0047 t^ 73 CALL DISPLY(ERESCD,DUMMY) B4900055^^ C SAVE RESULT CODE. B4900056^^ 74 RES = IOBUF(1) B4900057^ ^ C VERIFY ACTION AND RESULT CODES. B4900059^^ 75 CALL AVMVAC(AVMAT,ACT,RES,LETREQ,COMREQ,NCD) B4900060^^ 76 IF(NCD+1) 60,50,100 B4900061^ ^ C INVALID ACTION CODE. B4900063^^ 77 50 J = INVACT B4900064^^ 78 GO TO 600 B4900065^ ^ C INVALID RESULT CODE OR COMBINATION. B4900067^^ 79 60 J = INVRES B4900068^^ 80 GO TO 600 B4900069^ ^ C CHECK FOR RESULT OF BZ FOR WHICH AN RL FUNCTION NEEDS TO BE B4900071^^ C PERFORMED. B4900072^^ 81 100 IF(RES.EQ.BZ) GO TO 620 B4900073^^ C IF UTIFIL OLPM RECORD NA = 'Y' AND RESULT CODE = NA, IT SHOULD BE B4900074^^ C TREATED AS AN RL (REVIEW LATER) B4900075^^ 82 IF(NAEQRL.EQ.$59.AND.RES.EQ.NA) GO TO 620 B4900076^ ^ C CHECK FOR RESULT OF PROMISED TO PAY. B4900078^^ 83 IF(RES.NE.PP) GO TO 150 B4900079^ ^ C HAVE PROMISED TO PAY RESULT. MOVE IN DATE COMMITMENT MADE AND SET B4900081^^ C PROMISED TO PAY FLAG. B4900082^^ 84 CALL CCSMVA(DATE,ONE,SIX,MASREC,PPMADE,SIX) B4900083^^ 85 J = $59 B4900084^^ 86 CALL CCSPUT(J,PPFLAG,MASREC) B4900085^ ^ C PROMPT FOR PROMISED TO PAY DATE. B4900087^^ 87 CALL DISPLY(EAPPD,DUMMY) B4900088^^ C PICK UP FIRST FOUR CHARACTERS OF DATE. B4900089^^ 88 105 CALL CCSMVA(IOBUF,ONE,FOUR,MASREC,MPPDAT,FOUR) B4900090^^ C CHECK FOR FOUR OR SIX CHARACTER DATE ENTERED. B4900091^^ 89 IF(IOBUF(3).EQ.BLANKS) GO TO 110 B4900092^ ^ C HAVE SIX CHARACTER DATE, SAVE YEAR ENTERED. B4900094^^ 90 J = IOBUF(3) B4900095^^ 91 GO TO 120 B4900096^ ^ C HAVE FOUR CHARACTER DATE, DETERMINE YEAR. B4900098^^ 92 110 J = YEAR B4900099^^ 93 IF(IOBUF(1).LT.MONTH.OR.(IOBUF(1).EQ.MONTH.AND.IOBUF(2).LT.DAY)) B4900100^^ 93 1 J = NXTYR B4900101^ ^ C SAVE YEAR. B4900103^^ 94 120 CALL CCSMVA(J,ONE,TWO,MASREC,MPPDAT+4,TWO) B4900104^ ^ C DATE MUST BE IN RANGE OF TODAY'S DATE TO A MAXIMUM OF C+P (FROM B4900106^^ C OPLM RECORD IN UTILITY FILE) DAYS IN THE FUTURE. B4900107^ t FTN 3.3B (OPT = LPC) EATRNG PAGE 5 DATE: 08/30/84 TIME: 0047 t^ C DETERMINE NUMBER OF YEARS FROM CURRENT YEAR. B4900109^^ 95 J = ICCSAD(J) - ICCSAD(YEAR) B4900110^^ C DETERMINE JULIAN CONVERSION OF DATE. RETURNED <0 IF NOT VALID. B4900111^^ 96 I = ICALJL(MASREC,MPPDAT) B4900112^^ C CALCULATE NUMBER OF DAYS INPUT DATE IS RELATIVE TO TODAY'S DATE. B4900113^^ 97 J = I + J*365 - JDATE B4900114^^ C CHECK IF DATE VALID AND WITHIN RANGE. B4900115^^ 98 IF(I.GT.0.AND.J.GE.0.AND.J.LE.MAXNCD+PPLAG) GO TO 130 B4900116^^ C INVALID DATE, REENTER. B4900117^^ 99 CALL DISPLY(EAEPPD,DUMMY) B4900118^^ 100 GO TO 105 B4900119^ ^ C PROMPT FOR ENTRY OF PROMISED TO PAY AMOUNT. B4900121^^ 101 130 CALL DISPLY(EAPPA,DUMMY) B4900122^^ C RETRIEVE AMOUNT AS STANDARD NINE DIGIT AMOUNT FIELD. B4900123^^ 102 135 CALL PIKAMT(IOBUF,ONE,MASREC,MPPAMT) B4900124^ ^ C AMOUNT ENTERED MUST BE LESS THAN THE CURRENT BALANCE. B4900126^^ 103 CALL CCSCST(MASREC,MPPAMT,NINE,MASREC,CURBAL,NINE,COMPIN) B4900127^^ 104 IF(COMPIN.LE.0) GO TO 140 B4900128^^ C INVALID AMOUNT, BAD FIELD OR GREATER THAN THE CURRENT BALANCE. B4900129^^ 105 CALL DISPLY(EAEPPA,DUMMY) B4900130^^ 106 GO TO 135 B4900131^ ^ C VERIFY PORMISED TO PAY FIELDS. B4900133^^ 107 140 CALL DISPLY(EAVPP,MASREC) B4900134^^ C ENTRY OF CR OR OK VALIDATES, ANY OTHER ENTRY IS NEW PP DATE. B4900135^^ 108 IF(IOBUF(41).EQ.0.OR.IOBUF(1).EQ.OK) GO TO 145 B4900136^^ C NEW DATE ENTERED, GO RETRIEVE REVISED DATE AND AMOUNT. B4900137^^ 109 GO TO 105 B4900138^ ^ C SAVE PROMISED TO PAY FIELDS IN TRANASCTION BUFFER. B4900140^^ 110 145 CALL CCSMVA(MASREC,MPPDAT,15,TRNSBF,TPPDAT,15) B4900141^t FTN 3.3B (OPT = LPC) EATRNG PAGE 6 DATE: 08/30/84 TIME: 0047 t^ C PROMPT FOR ENTRY OF LETTER CODE. B4900143^^ 111 150 CALL DISPLY(EALCD,DUMMY) B4900144^^ C CHECK IF ANY ENTRY MADE. B4900145^^ 112 155 IF(IOBUF(41).NE.0) GO TO 160 B4900146^^ C NO ENTRY MADE, INVALID IF LETTER REQUIRED. B4900147^^ 113 IF(LETREQ.EQ.0) GO TO 300 B4900148^^ C LETTER REQUIRED. B4900149^^ 114 CALL DISPLY(EALTRQ,DUMMY) B4900150^^ 115 GO TO 155 B4900151^ ^ C CHECK FOR NUMERIC ENTRY ON LETTER CODE. B4900153^^ 116 160 CALL CCSGET(IOBUF,ONE,J) B4900154^^ 117 CALL CCSGET(IOBUF,TWO,K) B4900155^^ 118 IF(J.GE.$30.AND.J.LT.$3A.AND.K.GE.$30.AND.K.LT.$3A) GO TO 165 B4900156^^ C LETTER NUMBER NOT NUMERIC OR NOT IN VALID NUMBERS IN UTIFIL B4900157^^ 119 162 CALL DISPLY(EAELCD,DUMMY) B4900158^^ 120 GO TO 155 B4900159^ ^ C VALIDATE THAT THE NUMBER ENTERED IS IN UTIFIL B4900161^^ 121 165 IFD = 0 B4900162^^ 122 DO 166 LL = 1,50 B4900163^^ 123 IF(LTRNUM(LL).NE.IOBUF(1)) GO TO 166 B4900164^^ 124 IFD = 1 B4900165^^ 125 LL = 50 B4900166^^ 126 166 CONTINUE B4900167^^ 127 IF(IFD.EQ.0) GO TO 162 B4900168^^ C VALID LETTER NUMBER FOUND-SAVE IT B4900169^^ 128 LTR = IOBUF(1) B4900170^ ^ C PROMPT FOR ADDRESSEE CODE. B4900172^^ 129 CALL DISPLY(EAACD,DUMMY) B4900173^^ C MUST BE H, B, 1, 2, OR 3. B4900174^^ 130 170 CALL CCSGET(IOBUF,ONE,J) B4900175^^ 131 IF(J.EQ.$48.OR.J.EQ.$42.OR.J.EQ.$31.OR.J.EQ.$32.OR.J.EQ.$33) B4900176^^ 131 1 GO TO 175 B4900177^^ C INVALID ADDRESSEE ENTERED, REENTER. B4900178^^ 132 CALL DISPLY(EAEACD,DUMMY) B4900179^^ 133 GO TO 170 B4900180^ ^ C SAVE ADDRESSEE CODE. B4900182^^ 134 175 ACODE = J B4900183^^ C PROMPT FOR LETTER REQUEST DATE. B4900184^^ 135 CALL DISPLY(EALDT,DUMMY) B4900185^^ C CHECK FOR DEFAULT (NO) LETTER DATE ENTERED. B4900186^^ 136 180 IF(IOBUF(41).EQ.0) GO TO 200 B4900187^ ^ C NO, DATE ENTRY MADE. SAVE FIRST FOUR CHARACTERS. B4900189^^ 137 CALL CCSMVA(IOBUF,ONE,FOUR,TRNSBF,TLDT,FOUR) B4900190^^ C CHECK IF A FOUR OR SIX CHARACTER DATE ENTERED. B4900191^^ 138 IF(IOBUF(3).EQ.BLANKS) GO TO 185 B4900192^^ C SIX CHARACTER DATE, SAVE YEAR ENTERED. B4900193^^ 139 J = IOBUF(3) B4900194^^ 140 GO TO 190 B4900195^ t FTN 3.3B (OPT = LPC) EATRNG PAGE 7 DATE: 08/30/84 TIME: 0047 t^ C FOUR CHARACTER DATE, DETERMINE YEAR. B4900197^^ 141 185 J =YEAR B4900198^^ 142 IF(IOBUF(1).LT.MONTH.OR.(IOBUF(1).EQ.MONTH.AND.IOBUF(2).LT.DAY)) B4900199^^ 142 1 J = NXTYR B4900200^ ^ C SAVE YEAR. B4900202^^ 143 190 CALL CCSMVA(J,ONE,TWO,TRNSBF,TLDT+4,TWO) B4900203^^ C VERIFY DATE ENTERED. B4900204^^ 144 IF(IDATVR(TRNSBF,TLDT).GE.0) GO TO 200 B4900205^^ C INVALID DATE, REENTER. B4900206^^ 145 CALL DISPLY(EAELTD,DUMMY) B4900207^^ 146 GO TO 180 B4900208^ ^ C PROMPT FOR LETTER REQUEST AMOUNT. B4900210^^ 147 200 CALL DISPLY(EALTA,DUMMY) B4900211^^ C CHECK IF DEFAULT (NO) AMOUNT ENTERED. B4900212^^ 148 IF(IOBUF(41).EQ.0) GO TO 210 B4900213^^ C NO, RETRIEVE AMOUNT ENTERED. B4900214^^ 149 205 CALL PIKAMT(IOBUF,ONE,TRNSBF,TLTAMT) B4900215^ ^ C ASK FOR VERIFICATION OF LETTER DATE AND AMOUNT IF ANY ENTERED. B4900217^^ 150 210 IF(TRNSBF(54).EQ.BLANKS.AND.TRNSBF(57).EQ.BLANKS) GO TO 300 B4900218^^ 151 CALL DISPLY(EAVLTR,TRNSBF) B4900219^^ C ENTRY OF CR OR OK VALIDATES, OTHER ENTRIES ARE NEW DATE. B4900220^^ 152 IF(IOBUF(41).EQ.0.OR.IOBUF(1).EQ.OK) GO TO 300 B4900221^^ C RETRIEVE REVISED DATE AND AMOUNT. B4900222^^ 153 GO TO 180 B4900223^t FTN 3.3B (OPT = LPC) EATRNG PAGE 8 DATE: 08/30/84 TIME: 0047 t^ C PROMPT FOR ACTIVITY COMMENT. B4900225^^ 154 300 CALL DISPLY(EACOM,DUMMY) B4900226^^ C CHECK FOR ENTRY OF A COMMENT. B4900227^^ 155 305 IF(IOBUF(41).GT.0) GO TO 310 B4900228^^ C NONE ENTERED, CHECK IF A COMMENT IS REQUIRED. B4900229^^ 156 IF(COMREQ.EQ.0) GO TO 400 B4900230^^ C YES, A COMMENT IS REQUIRED, REENTER. B4900231^^ 157 J = COMRQD B4900232^^ 158 307 CALL DISPLY(J,DUMMY) B4900233^^ 159 GO TO 305 B4900234^ ^ C CHECK IF COMMENT ENTERED IS TOO LONG. B4900236^^ 160 310 IF(IOBUF(41).LE.COMLEN) GO TO 320 B4900237^^ C COMMENT TOO LONG, REPORT ERROR AND CHECK THE NEXT ENTRY. B4900238^^ 161 J = COMLNG B4900239^^ 162 GO TO 307 B4900240^ ^ C COMMENT OK, SAVE COMMENT ENTERED. B4900242^^ 163 320 CALL CCSMVA(IOBUF,ONE,IOBUF(41),COM,ONE,IOBUF(41)) B4900243^^ 164 GO TO 400 B4900244^   ^ C PROMPT FOR NEXT CONTACT DATE UNLESS A SPECIAL VALUE IS TO BE USED.B4900246^^ 165 400 IF(ACT.EQ.SR) GO TO 440 B4900247^^ 166 IF(RES.EQ.PP) GO TO 450 B4900248^^ 167 IF(NCD.GT.0) GO TO 410 B4900249^^ C NO CHANGE FROM CURRENT NEXT CONTACT DATE ALLOWED, SAVE CURRENT B4900250^^ C NEXT CONTACT DATE IN TRANSACTION BUFFER. B4900251^^ 168 CALL CCSMVA(MASREC,MNCD,SIX,TRNSBF,TNCD,SIX) B4900252^^ 169 GO TO 500 B4900253^ ^ C PROMPT FOR NEXT CONTACT DATE. B4900255^^ 170 410 CALL DISPLY(ENCD,DUMMY) B4900256^^ C CHECK IF DEFAULT NEXT CONTACT DATE TO BE USED. B4900257^^ 171 415 IF(IOBUF(41).EQ.0) GO TO 460 B4900258^ ^ C NO, ENTRY OF A DATE MADE. SAVE FIRST FOUR CHARACTERS OF IT. B4900260^^ 172 CALL CCSMVA(IOBUF,ONE,FOUR,TRNSBF,TNCD,FOUR) B4900261^^ C CHECK FOR FOUR OR SIX CHARACTER DATE ENTERED. B4900262^^ 173 IF(IOBUF(3).EQ.BLANKS) GO TO 420 B4900263^^ C SIX CHARACTER DATE, SAVE ENTERED YEAR. B4900264^^ 174 J = IOBUF(3) B4900265^^ 175 GO TO 425 B4900266^ ^ C FOUR CHARACTER DATE, DETERMINE YEAR. B4900268^^ 176 420 J = YEAR B4900269^^ 177 IF(IOBUF(1).LT.MONTH.OR.(IOBUF(1).EQ.MONTH.AND.IOBUF(2).LT.DAY)) B4900270^^ 177 1 J = NXTYR B4900271^ ^ C SAVE YEAR. B4900273^^ 178 425 CALL CCSMVA(J,ONE,TWO,TRNSBF,TNCD+4,TWO) B4900274^ ^ C NEXT CONTACT MUST BE WITHIN RANGE OF TODAY'S DATE AND A CUSTOMER B4900276^t FTN 3.3B (OPT = LPC) EATRNG PAGE 9 DATE: 08/30/84 TIME: 0047 t^ C DEFINED LIMIT IN THE FUTURE. B4900277^ ^ C DETERMINE YEARS DIFFERENCE FROM CURRENT YEAR. B4900279^^ 179 J = ICCSAD(J) - ICCSAD(YEAR) B4900280^^ C CALCULATE JULIAN DATE FOR INPUT DATE. B4900281^^ 180 I = ICALJL(TRNSBF,TNCD) B4900282^^ C DETERMINE DATE RELATIVE TO TODAY IN DAYS. B4900283^^ 181 J = I + J*365 - JDATE B4900284^^ 182 IF(I.GT.0.AND.J.GE.0.AND.J.LE.MAXNCD) GO TO 500 B4900285^^ C INVALID DATE, REENTER. B4900286^^ 183 430 CALL DISPLY(INVNCD,DUMMY) B4900287^^ 184 GO TO 415 B4900288^ ^ C ACTION CODE = SR, NEXT CONTACT DATE IS NEXT DAY. B4900290^^ 185 440 NCD = ICALJL(DATE,ONE) + 1 B4900291^^ 186 GO TO 470 B4900292^ ^ C RESULT CODE = PP, NEXT CONTACT IS CUSTOMER DEFINED GRACE PERIOD B4900294^^ C AFTER A BROKEN PROMISE TO PAY. B4900295^^ 187 450 NCD = ICALJL(MASREC,MPPDAT) + PPLAG B4900296^^ C***************************************************************138*A020B4900297^^ C SAVE YEAR OF PP DATE. COULD HAVE ALREADY PLACED PP DATE B4900298^^ C IN NEXT YEAR. B4900299^^ 188 CALL CCSMVA(MASREC,MPPDAT+4,TWO,J,ONE,TWO) B4900300^^ 189 GO TO 477 B4900301^^ C***************************************************************138*A020B4900302^ ^ C DEFUALT NEXT CONTACT DATE TO BE USED. B4900304^^ 190 460 NCD = ICALJL(DATE,ONE) + NCD B4900305^ ^ C CONVERT NEXT CONTACT DATE BACK TO CALENDAR DATE AND SAVE. B4900307^^ 191 470 J = YEAR B4900308^^ C***************************************************************138*A020B4900309^^ 192 477 IF(NCD.GT.365) J=NXTYR B4900310^^ C***************************************************************138*A020B4900311^^ 193 CALL JULCAL(NCD,TRNSBF,TNCD) B4900312^^ 194 TRNSBF(52) = J B4900313^t FTN 3.3B (OPT = LPC) EATRNG PAGE 10 DATE: 08/30/84 TIME: 0047 t^ C PUT CONTACT DATE IN STRING. B4900315^^ 195 500 DO 510 I=1,3 B4900316^^ 196 510 STRING(I) = DATE(I) B4900317^ ^ C SAVE COLLECTOR ID IN STRING. B4900319^^ 197 STRING(7) = CID(1) B4900320^^ 198 STRING(8) = CID(2) B4900321^ ^ C SAVE CONTACT DATE AND ACTIVITY CODE IN TRANSACTION BUFFER. B4900323^^ 199 DO 520 I=1,6 B4900324^^ 200 520 TRNSBF(I+15) = STRING(I) B4900325^ ^ C SAVE ACTIVITY COMMENT IN TRANSACTION BUFFER. B4900327^^ C SAVE THE ACTIVITY COUNT NUMBER B4900328^^ 201 CALL CCSPUT(ACTCNT,136,TRNSFB) B4900329^^ 202 CALL CCSMVA(COM,ONE,COMLEN,TRNSBF(22),ONE,COMLEN) B4900330^ ^ C SAVE LETTER DATE AND AMOUNT IN MASTER FILE IF LETTER SENT. B4900332^^ 203 IF(LTR.NE.BLANKS) CALL CCSMVA(TRNSBF,TLDT,15,MASREC,MLTRDT,15) B4900333^ ^ C SAVE NEXT CONTACT DATE IN MASTER RECORD. B4900335^^ 204 CALL CCSMVA(TRNSBF,TNCD,SIX,MASREC,MNCD,SIX) B4900336^ ^ C SET TRANSACTION TYPE TO '01', COLLECTION ACTIVITY. B4900338^^ 205 TRNSBF(15) = ASC01 B4900339^ ^ C BUMP ACTIVITY COUNT BY 1 B4900341^^ 206 ACTCNT = ACTCNT + 1 B4900342^^ C SAVE TRANSACTION. B4900343^^ 207 CALL SAVTRN B4900344^ ^ C SAVE ACTIVITY IN MASTER FILE. FORCE STRING INTO COLLECTION ACITIVTB4900346^^ C BLOCK. B4900347^^ 208 OSW = ASC01 B4900348^^ 209 CALL PUTACF(STRING,MASREC(154),LMASBL,OSW) B4900349^ ^ C ACTIVITY COMPLETE. SET FLAG INDICATING A NEW ACTIVITY HAS BEEN B4900351^^ C ENTERED. THEN PROMPT FOR NEXT FUNCTION. B4900352^^ 210 ACTRET = 0 B4900353^^ 211 J = -2 B4900354^t FTN 3.3B (OPT = LPC) EATRNG PAGE 11 DATE: 08/30/84 TIME: 0047 t^ C DISPLY NEXT SCREEN REQUESTED, EITHER ERROR SCREEN OR NEXT FUCNTIONB4900356^^ C PROMPT SCREEN. ALTER MESSAGE NUMBER IF MESSAGE IS FOR A CHANGE B4900357^^ C SCREEN. B4900358^^ 212 600 IF(LS.EQ.33.OR.LS.EQ.35.OR.LS.EQ.94) J=J+1 B4900359^^ 213 CALL DISPLY(J,DUMMY) B4900360^^ C RETURN. B4900361^^ 214 GO TO 650 B4900362^ ^ C RL NEXT FUNCTION REQUEST FOR BZ RESULT. B4900364^^ 215 620 IOBUF(1) = RL B4900365^ ^ C RETURN. B4900367^^ 216 650 RETURN B4900368^^ 217 END B4900369^t FTN 3.3B (OPT = LPC) EATRNG PAGE 12 DATE: 08/30/84 TIME: 0047 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $032E ( 814)   EXTERNALS 2 CCSBLK DISPLY AVMVAC CCSMVA CCSPUT ICCSAD ICALJL 22 PIKAMT CCSCST CCSGET IDATVR JULCAL SAVTRN PUTACF 2 t FTN 3.3B (OPT = LPC) EATRNG PAGE 13 DATE: 08/30/84 TIME: 0047 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < 2 000F (15) 0016 110,110,200,203,2052" 0088 (136) 001A 201" 00FF (255) 002E * 016D (365) 0015 97,181,192 *   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( ACODE INTEGER 06F3 D 11,14,134(. ACT INTEGER 0824 D 20,22,72,75,165., ACTCNT INTEGER 08B9 D 23,33,201,206,$ ACTHST INTEGER 05C5 D 11,13$( ACTRET INTEGER 0851 D 23,31,210($ ACTYPE INTEGER 01DD D 11,16$$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$0 ASC01 INTEGER 08C8 D 35,38,39,205,208 0* AVMAT INTEGER 0706 D 11,15,17,75*8 BLANKS INTEGER 08D0 D 35,39,89,138,150,173,203 8( BZ INTEGER 08CA D 35,39,81 (, CID INTEGER 0852 D 23,31,197,198,$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$, COM INTEGER 0829 D 20,22,163,202,, COMLEN INTEGER 08D6 D 39,44,160,202,( COMLNG INTEGER 08F3 D 52,55,161(, COMPIN INTEGER 084C D 23,30,103,104,, COMREQ INTEGER 0882 D 23,32,75,156 ,( COMRQD INTEGER 08F2 D 52,55,157($ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$( CURBAL INTEGER 08D8 D 39,45,103($ CUSCHG INTEGER 00EA D 9,11 $6 DATE INTEGER 0845 D 23,29,30,84,185,190,19660 DAY INTEGER 0846 D 23,29,93,142,177 0l DUMMY INTEGER 08E5 D 46,48,71,73,87,99,101,105,111,114,119,129,132,135,145,147,154,158,170,183,213l( EAACD INTEGER 000A 56,63,129(( EACOM INTEGER 0010 56,64,154(( EACTCD INTEGER 0000 56,61,71 (( EAEACD INTEGER 000B 56,63,132(t FTN 3.3B (OPT = LPC) EATRNG PAGE 14 DATE: 08/30/84 TIME: 0047 t( EAELCD INTEGER 0009 56,62,119(( EAELTD INTEGER 000D 56,63,145(( EAEPPA INTEGER 0006 56,62,105(( EAEPPD INTEGER 0004 56,61,99 (( EALCD INTEGER 0007 56,62,111(( EALDT INTEGER 000C 56,63,135(( EALTA INTEGER 000E 56,63,147(( EALTRQ INTEGER 0008 56,62,114(( EAPPA INTEGER 0005 56,62,101(( EAPPD INTEGER 0003 56,61,87 (( EAVLTR INTEGER 000F 56,64,151(( EAVPP INTEGER 0011 56,64,107(( ENCD INTEGER 08F7 D 52,56,170($ EOF INTEGER 08E8 D 48,50$( ERESCD INTEGER 0001 56,61,73 ($ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$0 FOUR INTEGER 08C1 D 33,35,88,137,172 0$ FSTACT INTEGER 07FD D 20,23$F I INTEGER 0014 95,96,97,98,180,181,182,195,196,199,200F" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"" IDATTR INTEGER 001E D 1,4". IFD INTEGER 0018 121,121,124,127.$ INPBYT INTEGER 08D5 D 39,43$( INVACT INTEGER 0002 56,61,77 ($ INVCOM INTEGER 08F6 D 52,56$$ INVENT INTEGER 08EE D 52,55$( INVNCD INTEGER 08F4 D 52,55,183(( INVRES INTEGER 08F1 D 52,55,79 ( IOBUF INTEGER 07A6 D 17,20,72,74,88,89,90,93,102,108,112,116,117,123,128,130,136,137,138,139,142,148,149,152,155,160, : 163,171,172,173,174,177,215:( ISTAT INTEGER 084B D 23,29,30 ( J INTEGER 0013 65,66,67,68,77,79,85,86,90,92,93,94,95,97,98,116,118,130,131,134,139,141,142,143,157,158,161,174,R 176,177,178,179,181,182,188,191,192,194,211,212,213R, JDATE INTEGER 0886 D 23,33,97,181 ,& K INTEGER 0017 117,118&$ KEY INTEGER 0866 D 23,31$$ LENGTH INTEGER 084D D 23,30$, LETREQ INTEGER 0881 D 23,32,75,113 ,$ LINSTR INTEGER 0850 D 23,30$* LL INTEGER 0019 121,123,125*( LMASBL INTEGER 08C5 D 35,39,209($ LOCKED INTEGER 08E6 D 48,50$( LS INTEGER 0848 D 23,30,212(, LTR INTEGER 0826 D 20,22,128,203,( LTRNUM INTEGER 0887 D 23,33,123($ LU INTEGER 0849 D 23,30$^ MASREC INTEGER 01DD D 11,16,17,84,86,88,94,96,102,103,107,110,168,187,188,203,204,209^, MAXNCD INTEGER 086F D 23,31,98,182 ,t FTN 3.3B (OPT = LPC) EATRNG PAGE 15 DATE: 08/30/84 TIME: 0047 t$ MLTRAM INTEGER 08DE D 39,45$( MLTRDT INTEGER 08DF D 39,45,203(, MNCD INTEGER 08E0 D 39,46,168,204,0 MONTH INTEGER 0845 D 23,29,93,142,177 0, MPPAMT INTEGER 08D9 D 39,45,102,103,: MPPDAT INTEGER 08DA D 39,45,88,94,96,110,187,188 :( NA INTEGER 0012 56,65,82 (( NAEQRL INTEGER 08BC D 23,33,82 ($ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$B NCD INTEGER 0883 D 23,32,75,76,167,185,187,190,192,193B$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$( NINE INTEGER 08C4 D 33,35,103(( NOACT INTEGER 08F5 D 52,55,68 ($ NUMACT INTEGER 0854 D 23,31$$ NUMLEN INTEGER 08D4 D 39,44$$ NXTFUN INTEGER 08EF D 52,55$4 NXTYR INTEGER 0885 D 23,32,93,142,177,192 4( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$, OK INTEGER 08CB D 35,39,108,152,$ OLDPOS INTEGER 08D1 D 39,44$b ONE INTEGER 08BE D 33,35,84,88,94,102,116,130,137,143,149,163,172,178,185,188,190,202 b, OSW INTEGER 084B D 23,29,208,209,( OUTBYT INTEGER 08D5 D 39,43,44 (, PP INTEGER 08CD D 35,39,83,166 ,( PPFLAG INTEGER 08E4 D 39,46,86 (, PPLAG INTEGER 0880 D 23,32,98,187 ,( PPMADE INTEGER 08E2 D 39,46,84 ($ QBREAK INTEGER 0855 D 23,31$" REQBFA INTEGER 00A2 D 5,8"" REQBFB INTEGER 00D2 D 5,9"" REQBFD INTEGER 005A D 5,8"" REQBFF INTEGER 00BA D 5,8"" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"8 RES INTEGER 0825 D 20,22,74,75,81,82,83,166 8( RL INTEGER 08CE D 35,39,215(0 SIX INTEGER 08C3 D 33,35,84,168,204 0( SR INTEGER 08CC D 35,39,165(( STATCD INTEGER 0275 D 11,16,66 (> STRING INTEGER 0821 D 20,22,23,70,196,197,198,200,209>( STRLEN INTEGER 08D7 D 39,44,70 ($ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $$ TC INTEGER 084A D 23,30$$ THREE INTEGER 08C0 D 33,35$4 TLDT INTEGER 08E3 D 39,46,137,143,144,2034( TLTAMT INTEGER 08DD D 39,45,149(< TNCD INTEGER 08E1 D 39,46,168,172,178,180,193,204<$ TPPAMT INTEGER 08DB D 39,45$( TPPDAT INTEGER 08DC D 39,45,110($ TRBKFL INTEGER 08BA D 23,33$t FTN 3.3B (OPT = LPC) EATRNG PAGE 16 DATE: 08/30/84 TIME: 0047 tp TRNSBF INTEGER 06BF D 11,14,17,110,137,143,144,149,150,151,168,172,178,180,193,194,200,202,203,204,205 p" TRNSFB REAL 001B 201"8 TWO INTEGER 08BF D 33,35,94,117,143,178,188 8$ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$$ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$$ WRONKY INTEGER 08E7 D 48,50$$ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$: YEAR INTEGER 0847 D 23,29,92,95,141,176,179,191:$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " AVMVAC SUBROUTINE 0042 74 "" CCSBLK SUBROUTINE 0030 70 "" CCSCST SUBROUTINE 00E6 102"* CCSGET SUBROUTINE 011F 116,117,130*T CCSMVA SUBROUTINE 02A1 83,88,94,110,137,143,163,168,172,178,188,202,203,204 T& CCSPUT SUBROUTINE 02DE 85,201 &n DISPLY SUBROUTINE 031E 70,73,87,99,101,105,107,111,114,119,129,132,135,145,147,151,154,158,170,183,213n2 ICALJL INTEGER.FN. 0271 96,180,185,187,190 2( ICCSAD INTEGER.FN. 0269 95,95,179(" IDATVR INTEGER.FN. 01B4 144"" JULCAL SUBROUTINE 02B7 192"& PIKAMT SUBROUTINE 01C8 101,149&" PUTACF SUBROUTINE 0308 208"" SAVTRN SUBROUTINE 0303 206"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 10 002F 67,70$$ 50 004F 76,77$$ 60 0053 76,79$$ 100 0058 76,81$* 105 0082 87,100,109 *$ 110 0093 89,92$$ 120 00A8 90,94$& 130 00DC 98,101 && 135 00DF 101,106&& 140 00F7 104,107&& 145 0106 108,110&& 150 010E 83,111 &* 155 0111 111,115,120*t FTN 3.3B (OPT = LPC) EATRNG PAGE 17 DATE: 08/30/84 TIME: 0047 t& 160 011E 112,116&& 162 0135 118,127&& 165 0139 118,121&* 166 0149 121,123,126*& 170 0159 129,133&& 175 0171 131,134&* 180 017A 135,146,153*& 185 0190 138,141&& 190 01A7 139,143&* 200 01BF 136,144,147*" 205 01C7 148"& 210 01CD 148,150&. 300 01EC 113,150,152,154.& 305 01EF 154,159&& 307 01FB 157,162&& 310 01FF 155,160&& 320 0209 160,163&* 400 0212 156,164,165*& 410 022E 167,170&& 415 0231 170,184&& 420 0246 173,176&& 425 025C 174,178&" 430 028A 182"& 440 028F 165,185&& 450 0296 166,187&& 460 02A9 171,190&& 470 02AE 185,191&& 477 02B0 188,192&* 500 02BE 168,182,195*& 510 02C0 195,196&& 520 02D4 198,200&, 600 0312 68,78,80,212 ,( 620 0322 81,82,215(& 650 0326 213,216& EATRNG 0329 1  t FTN 3.3B (OPT = LPC) FCOLEC PAGE 1 DATE: 08/30/84 TIME: 0049 t^ 1 SUBROUTINE FCOLEC B5100001^^ 1 1 /B51 F CCS CCS 3.0 SL-149B5100002^^ C B5100003^^ C CYBERCREDIT SYSTEM VERSION 3 B5100004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B5100005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B5100006^^ C B5100007^^ C B5100008^^ C B5100009^^ C COLECT ON-LINE PROGRAM MAIN MODULE. B5100010^^ C B5100011^^ C THIS PROGRAM HANDLES THE FOLLOWING FUNCTIONS: B5100012^^ C 1. LOGIN VALIDATION AND INTIALIZATION. B5100013^^ C 2. SELECTION SCREEN HANDLER. B5100014^^ C 3. AUTOMATIC DAILY ASSIGNMENT FILE PROCESSOR. B5100015^^ C 4. COSIGNER'S NAME SEARCH. B5100016^^ C 5. ACCOUNT NUMBER RETRIEVAL OF AN ACCOUNT. B5100017^^ C 6. SCREEN HANDLER FOR ALL ACCOUNT SCREENS. B5100018^^ C B5100019^ ^ C RETRIEVE COMMON MACRO. B5100021^ ^ M COLMAC B5100023^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 2 DATE: 08/30/84 TIME: 0049 t^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 3 DATE: 08/30/84 TIME: 0049 t ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B5100025^^ 57 INTEGER ASTRKS,AUTO,BUSY,COLFLG,COLPTR(2),COS1PS,DASCRN B5100026^^ 58 INTEGER COSRN1,COSRN2,COSLEN,COSNSR,COSRCH,CURRQP,DAREC(20),DCSCRNB5100027^^ 59 INTEGER DUPKEY,EOFDA,EXIT,FNSCRN,ID(1),INVLOG,INVSEL,LOGIN B5100028^^ 60 INTEGER MASCRN,NAMESR,NOTFND,NUMBSR,OAACCT,OLPM(2),QINIT,RDELET B5100029^^ 61 INTEGER RLCNT,RLCNTS(15),RLPTR(30),SAVLEN,SELECT,SUPSRN,WRONGQ B5100030^^ 62 INTEGER RLFLAG,IDATAM(15),IDATCS(15),IDATQ(15),IDATUT(15),RLWAIT B5100031^^ 63 INTEGER LTR1(2),LTR2(2),LSUB,LL,COSKEY(8),NOFILE B5100032^^ 64 EQUIVALENCE (RDELET,DUPKEY),(DAREC(1),ID(1)) B5100033^^ 65 DATA ASTRKS/'**'/,AUTO/'A '/,BUSY/36/,COLFLG/-1/,NNINPT/0/ B5100034^^ 66 DATA COLPTR/0,0/,COS1PS/20/,COSRN1/4/,COSRN2/94/,COSLEN/115/ B5100035^^ 67 DATA COSNSR/'C,'/,DCSCRN/33/,DUPKEY/$10/,EOFDA/1/,EXIT/'E '/ B5100036^^ 68 DATA FNSCRN/20/,INVSEL/65/,LOGIN/30/,WRONGQ/38/ B5100037^^ 69 DATA MASCRN/10/,NAMESR/'B,'/,NOTFND/37/,NUMBSR/'N,'/,OAACCT/246/ B5100038^^ 70 DATA OLPM/'OLPM'/,QINIT/0/,RLCNT/0/,RLCNTS/15*0/,RLPTR/30*0/ B5100039^^ 71 DATA RLFLAG/0/,SELECT/31/,SUPSRN/35/,COSRCH/34/,DASCRN/2/ B5100040^^ 72 DATA LTR1/'LTR1'/,LTR2/'LTR2'/,NOFILE/$8002/ B5100041^^ 73 DATA IDATAM/'ACTVERTBCCS20 ',0,1,0/ B5100042^^ 74 DATA IDATCS/'COSIGNERCCS20 ',1,1,1/ B5100043^^ 75 DATA IDATQ /'DAQUE CCS20 ',1,1,0/ B5100044^^ 76 DATA IDATUT/'UTIFIL CCS20 ',1,1,0/ B5100045^  ^ C ASCII MONTH, DAY, AND YEAR IN SYSTEM. B5100047^^ 77 EXTERNAL AMONTO,ADAYTO,AYERTO B5100048^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 4 DATE: 08/30/84 TIME: 0049 t^ C B5100050^^ C LOGIN AND INTIALIZATION SECTION. B5100051^^ C B5100052^ ^ C RETRIEVE LOGICAL UNIT FOR I/O. B5100054^^ 78 CALL PGMIN(ID,LU,I,J) B5100055^ ^ C OPEN SCREEN FILE. B5100057^^ 79 CALL OPENFL(REQBFS,IDATSC,ISTAT) B5100058^^ C CHECK FOR ERROR. B5100059^^ 80 IF(ISTAT.GE.0) GO TO 5 B5100060^^ C FILE ERROR IN SCREEN FILE. B5100061^^ 81 CALL FILERR(IDATSC,THREE,ISTAT,LU) B5100062^^ 82 CALL CLANEX B5100063^ ^ C PROMPT FOR ENTRY OF COLLECTOR ID FOR USE WITHIN COLECT. B5100065^^ 83 5 CALL DISPLY(LOGIN,DUMMY) B5100066^ ^ C CHECK FOR ENTRY OF AN ID. B5100068^^ 84 IF(IOBUF(41).GT.0) GO TO 15 B5100069^^ C ILLEGAL LOGIN. B5100070^^ 85 10 CALL CLANEX B5100071^ ^ C DETERMINE IF THIS IS A TRAINEE SIGNING ON. B5100073^^ 86 15 CALL CCSGET(IOBUF,ONE,K) B5100074^^ 87 IF(K.NE.$54) GO TO 17 B5100075^^ C YES, HAVE A TRAINEE. SET FLAG TO BYPASS FILE WRITE OPERATIONS AND B5100076^^ C MOVE COLLECTOR ID TO BEGINNING OF IOBUF. B5100077^^ 88 UFLAG = -1 B5100078^^ 89 CALL CCSMVA(IOBUF,TWO,FOUR,IOBUF,ONE,FOUR) B5100079^ ^ C OPEN UTILITY FILE AND RETRIEVE COLLECTOR ID RECORD. B5100081^^ 90 17 CALL OPENFL(REQBFF,IDATUT,ISTAT) B5100082^^ C CHECK FOR ERROR. B5100083^^ 91 IF(ISTAT.LT.0) GO TO 50 B5100084^ ^ C NO ERROR, RETRIEVE RECORD USING COLLECTOR ID AS KEY. B5100086^^ 92 CALL READR(REQBFF,MASREC,IOBUF,ISTAT) B5100087^^ C IF WRONG KEY OR END-OF-FILE, RECORD DOES NOT EXIST. ILLEGAL LOGIN.B5100088^^ 93 IF(AND(ISTAT,WRONKY).EQ.WRONKY.OR.AND(ISTAT,EOF).EQ.EOF) GO TO 10 B5100089^^ C CHECK FOR OTHER ERRORS. B5100090^^ 94 IF(ISTAT.LT.0) GO TO 55 B5100091^ ^ C HAVE VALID COLLECTOR. SAVE COLLECTOR ID, AND STORE COLLECTOR ID, B5100093^^ C PORT NUMBER, AND LOGIN TIME IN ACTIVE USER FILE. B5100094^ ^ 95 OBUF(1) = MASREC(1) B5100096^^ 96 OBUF(2) = MASREC(2) B5100097^^ 97 OBUF(3) = J B5100098^^ 98 CALL CCSTIM(OBUF(4)) B5100099^^ C OPEN THE ACTIVE USER FILE. B5100100^^ 99 CALL OPENFL(REQBFD,IDATAU,ISTAT) B5100101^^ C CHECK FOR ERROR. B5100102^^ 100 IF(ISTAT.LT.0) GO TO 25 B5100103^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 5 DATE: 08/30/84 TIME: 0049 t^ C NO ERROR, SAVE THE RECORD. B5100104^^ 101 CALL WRITER(REQBFD,OBUF,OBUF(1),ISTAT) B5100105^^ C IF DUPLICATE KEY WRITE ATTEMPT, ILLEGAL LOGIN. ANOTHER USER HAS THB5100106^^ C COLLECTOR ID IN USE. B5100107^^ 102 IF(AND(ISTAT,DUPKEY).EQ.DUPKEY) GO TO 10 B5100108^^ C CHECK FOR OTHER ERROR. B5100109^^ 103 IF(ISTAT.LT.0) GO TO 30 B5100110^^ C COLLECTOR LOGGED AS ACTIVE. CLOSE ACTIVE USER FILE AND ZERO REQUESB5100111^^ C BUFFER USED. B5100112^^ 104 CALL CLOSFL(REQBFD,ISTAT) B5100113^^ 105 DO 20 I=1,24 B5100114^^ 106 20 REQBFD(I) = 0 B5100115^^ 107 GO TO 40 B5100116^  ^ C FILE ERROR WHILE LOGGING COLLECTOR INTO ACTIVE USER FILE. B5100118^ ^ C OPEN FILE ERROR. B5100120^^ 108 25 J = 3 B5100121^^ 109 GO TO 35 B5100122^ ^ C WRITER ERROR. B5100124^^ 110 30 J = 12 B5100125^ ^ C REPORT ERROR, CLOSE ALL FILES, AND EXIT. B5100127^^ 111 35 CALL FILERR(IDATAU,J,ISTAT,LU) B5100128^^ 112 CALL CLANEX B5100129^  ^ C SAVE COLLECTOR ID AND COLLECTOR TYPE: < 0, CLERICAL; = 0, COLLECTOB5100131^^ C AND > 0, SUPERVISOR. ACTUAL LOG-IN ID SAVED IN TRANSACTION B5100132^^ C FILE BUFFER. CID CONTAINS FIRST FOUR CHARCTERS OF THE LAST NAME B5100133^^ C WHICH IS USED IN PLACE OF COLLECTOR ID IN ACTIVITY HISTORY B5100134^^ C DISPLAY. B5100135^^ 113 40 CID(1) = MASREC(3) B5100136^^ 114 CID(2) = MASREC(4) B5100137^^ 115 TRNSBF(9) = MASREC(1) B5100138^^ 116 TRNSBF(10) = MASREC(2) B5100139^^ 117 COLTYP = AND(MASREC(18),$F) - 1 B5100140^ ^ C SAVE QUEUES, ASSIGNED AND ALLOWED. B5100142^^ 118 K = 40 B5100143^^ 119 DO 45 I=1,32 B5100144^^ C RETRIEVE NEXT CHARACTER FROM QUEUE ASSIGNMENT LIST. B5100145^^ 120 42 CALL CCSGET(MASREC,I+K,J) B5100146^^ C CHECK FOR A COMMA INDICATING BREAK BETWEEN ASSIGNED AND ALLOWED. B5100147^^ 121 IF(J.NE.$2C) GO TO 45 B5100148^^ C FOUND COMA. SAVE THE WORD THE BREAK BETWEEN QUEUES OCCURRED. B5100149^^ C CHECK FOR MORE THAN ONE COMMA INDICATING ERROR IN RECORD SETUP. B5100150^^ 122 IF(QBREAK.NE.-1) GO TO 60 B5100151^^ 123 QBREAK = (I+1)/2 B5100152^^ C SKIP OVER COMMA TO START SAVING ALLOWED QUEUES. B5100153^^ 124 K = K + 1 B5100154^^ 125 GO TO 42 B5100155^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 6 DATE: 08/30/84 TIME: 0049 t ^ C SAVE THIS CHARACTER IN VALID QUEUE LIST. B5100157^^ 126 45 CALL CCSPUT(J,I,VALQ) B5100158^  ^ C RETRIEVE ON-LINE PARAMETERS RECORD. CONTAINS COUNT FOR RL CODE, DAB5100160^^ C LAG FOR BROKEN PROMOSES TO PAY CHECK, AND MAXIMUM DAYS IN THE FUTUB5100161^^ C THE COLLECTOR CAN SET NEXT CONTACT DATE. B5100162^^ 127 CALL READR(REQBFF,MASREC,OLPM,ISTAT) B5100163^^ C UTILITY FILE SETUP ERROR IF RECORD DOES NOT EXIST. B5100164^^ 128 IF(AND(ISTAT,WRONKY).EQ.WRONKY.OR.AND(ISTAT,EOF).EQ.EOF) GO TO 60 B5100165^^ C CHECK FOR OTHER ERRORS. B5100166^^ 129 IF(ISTAT.LT.0) GO TO 55 B5100167^^ C NO ERROR, SAVE ON-LINE PARAMETERS. B5100168^^ 130 RLWAIT = ICCSAD(MASREC(4)) + 1 B5100169^^ 131 PPLAG = ICCSAD(MASREC(6)) B5100170^^ 132 MAXNCD = ICCSAD(MASREC(8)) B5100171^^ C SAVE THE Y OR N FROM THE NA RECORD B5100172^^ 133 CALL CCSGET(MASREC,20,NAEQRL) B5100173^^ C SET UP WORK AREAS TO VALIDATE LETTER NUMBERS FROM THE LTR1 AND B5100174^^ C LTR2 RECORDS B5100175^^ 134 CALL READR(REQBFF,MASREC,LTR1,ISTAT) B5100176^^ 135 IF(AND(ISTAT,WRONKY).EQ.WRONKY.OR.AND(ISTAT,EOF).EQ.EOF) GO TO 60 B5100177^^ C CHECK FOR OTHER ERROR B5100178^^ 136 IF(ISTAT.LT.0) GO TO 55 B5100179^^ 137 LSUB = 0 B5100180^^ 138 DO 46 LL = 3,27 B5100181^^ 139 IF(MASREC(LL).EQ.ASTRKS) GO TO 47 B5100182^^ 140 LSUB = LSUB + 1 B5100183^^ 141 LTRNUM(LSUB) = MASREC(LL) B5100184^^ 142 46 CONTINUE B5100185^^ 143 47 CALL READR(REQBFF,MASREC,LTR2,ISTAT) B5100186^^ C IF NO LTR2 RECORD-CLOSFL B5100187^^ 144 IF(AND(ISTAT,WRONKY).EQ.WRONKY.OR.AND(ISTAT,EOF).EQ.EOF) GO TO 49 B5100188^^ C CHECK FOR OTHER ERROR B5100189^^ 145 IF(ISTAT.LT.0) GO TO 55 B5100190^^ C RECORD FOUND-SAVE THE REST OF THE NUMBERS B5100191^^ 146 DO 48 LL = 3,27 B5100192^^ 147 IF(MASREC(LL).EQ.ASTRKS) GO TO 49 B5100193^^ 148 LSUB = LSUB + 1 B5100194^^ 149 LTRNUM(LSUB) = MASREC(LL) B5100195^^ 150 48 CONTINUE B5100196^^ C CLOSE UTILITY FILE AND CONTINUE INTIALIZATION. B5100197^^ 151 49 CALL CLOSFL(REQBFF,ISTAT) B5100198^^ 152 GO TO 70 B5100199^  ^ C FILE ERRORS DURING UTILITY FILE OPERATIONS. B5100201^ ^ C OPEN FILE ERROR. B5100203^^ 153 50 J = 3 B5100204^^ 154 GO TO 65 B5100205^ ^ C READR ERROR. B5100207^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 7 DATE: 08/30/84 TIME: 0049 t^ 155 55 J = 13 B5100208^^ 156 GO TO 65 B5100209^ ^ C MORE THAN ONE COMMA OR OLPM OR LTR1 RECORD DOES NOT EXIST B5100211^^ 157 60 J = -1 B5100212^ ^ C REPORT ERROR, CLOSE ALL FILES AND EXIT. B5100214^^ 158 65 CALL FILERR(IDATUT,J,ISTAT,LU) B5100215^^ 159 CALL CLANEX B5100216^  ^ C PICK UP CURRENT DATE. B5100218^^ 160 70 MONTH = AND($FFFF,AMONTO) B5100219^^ 161 DAY = AND($FFFF,ADAYTO) B5100220^^ 162 YEAR = AND($FFFF,AYERTO) B5100221^^ C PICK UP JULIAN DATE. B5100222^^ 163 JDATE = ICALJL(DATE,ONE) B5100223^^ C DETERMINE NEXT YEAR. B5100224^^ 164 NXTYR = YEAR + 1 B5100225^^ C CHECK AND CORRECT ANY DECADE ROLL OVER. B5100226^^ 165 IF(AND($F,NXTYR).LT.$A) GO TO 74 B5100227^^ 166 NXTYR = NXTYR + $F6 B5100228^^ C CHECK AND CORRECT ANY CENTURY ROLL OVER. B5100229^^ 167 IF(NXTYR.EQ.CNTURY) NXTYR=ASC00 B5100230^ ^ C RETRIEVE ACTIVITY VERIFICATION MATRIX. B5100232^^ C ZERO REQUEST BUFFER. B5100233^^ 168 74 DO 75 I=1,24 B5100234^^ 169 75 REQBFF(I) = 0 B5100235^^ C OPEN FILE. B5100236^^ 170 CALL OPENFL(REQBFF,IDATAM,ISTAT) B5100237^^ C CHECK FOR ERROR. B5100238^^ 171 IF(ISTAT.LT.0) GO TO 80 B5100239^^ C NO ERROR, RETRIEVE THE MATRIX. B5100240^^ 172 CALL GETS(REQBFF,AVMAT,KEY,ISTAT) B5100241^^ C CHECK FOR ERROR. B5100242^^ 173 IF(ISTAT.LT.0) GO TO 85 B5100243^^ C NO ERROR, CLOSE FILE AND CONTINUE INITIALIZATION. B5100244^^ 174 CALL CLOSFL(REQBFF,ISTAT) B5100245^ ^ C DETERMINE THE NUMBER OF ACTION CODES IN USE. B5100247^^ 175 DO 77 NUMACT=1,32 B5100248^^ 176 IF(VALACT(NUMACT).EQ.ASTRKS) GO TO 79 B5100249^^ 177 77 CONTINUE B5100250^ ^ 178 79 NUMACT = NUMACT - 1 B5100252^ ^ 179 GO TO 95 B5100254^  ^ C FILE ERRORS DURING ACTIVITY VERIFICATION MATRIX RETRIEVAL. B5100256^ ^ C OPEN FILE ERROR. B5100258^^ 180 80 J = 3 B5100259^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 8 DATE: 08/30/84 TIME: 0049 t^ 181 GO TO 90 B5100260^ ^ C GETS ERROR. B5100262^^ 182 85 J = 14 B5100263^ ^ C REPORT ERROR, CLOSE ALL FILES, AND EXIT. B5100265^^ 183 90 CALL FILERR(IDATAM,J,ISTAT,LU) B5100266^^ 184 CALL CLANEX B5100267^  ^ C RETRIEVE STARTING POSITION FOR QUEUE IN DAILY ASSIGNMENT FILE. B5100269^^ C USE FIRST QUEUE COLLECTOR ASSIGNED. B5100270^^ 185 95 KEY(1) = VALQ(1) B5100271^^ 186 KEY(2) = VALQ(2) B5100272^^ C SET POINTER TO INDICATE CURRENT QUEUE. B5100273^^ 187 CURRQP = 1 B5100274^^ 188 ASSIGN 125 TO IRTN B5100275^ ^ C ZERO REQUEST BUFFER. B5100277^^ 189 99 DO 100 I=1,24 B5100278^^ 190 100 REQBFF(I) = 0 B5100279^^ C OPEN FILE. B5100280^^ 191 CALL OPENFL(REQBFF,IDATQ,ISTAT) B5100281^^ C CHECK FOR ERROR. B5100282^^ 192 IF(ISTAT.LT.0) GO TO 110 B5100283^^ C RETRIEVE STARTING RELATIVE RECORD NUMBER FOR THIS QUEUE. B5100284^^ 193 CALL READR(REQBFF,MASREC,KEY,ISTAT) B5100285^^ C IF RECORD DOES NOT EXIST, NO AUTOMATIC FILE EXISTS FOR THIS QUEUE.B5100286^^ 194 IF(AND(ISTAT,WRONKY).EQ.WRONKY.OR.AND(ISTAT,EOF).EQ.EOF) GO TO 105B5100287^^ C CHECK FOR OTHER ERRORS. B5100288^^ 195 IF(ISTAT.LT.0) GO TO 115 B5100289^^ C NO ERROR, SAVE STARTING RELATIVE RECORD NUMBER. B5100290^^ 196 COLPTR(1) = MASREC(3) B5100291^^ 197 COLPTR(2) = MASREC(4) B5100292^^ C SET FLAG INDICATING AUTOMATIC FILE RETRIEVED. B5100293^^ 198 COLFLG = 0 B5100294^^ C CLOSE FILE AND CONTINUE INITIALIZATION OR RETURN. B5100295^^ 199 105 CALL CLOSFL(REQBFF,ISTAT) B5100296^^ 200 GO TO IRTN B5100297^  ^ C FILE ERRORS DURING QUEUE START RETRIEVAL. B5100299^ ^ C OPEN FILE ERROR. B5100301^^ 201 110 J = 3 B5100302^^ 202 GO TO 120 B5100303^ ^ C READR REQUEST ERROR. B5100305^^ 203 115 J = 13 B5100306^ ^ C REPORT ERROR, CLOSE ALL FILES, AND EXIT. B5100308^^ 204 120 CALL FILERR(IDATQ,J,ISTAT,LU) B5100309^^ 205 CALL CLANEX B5100310^ t FTN 3.3B (OPT = LPC) FCOLEC PAGE 9 DATE: 08/30/84 TIME: 0049 t ^ C OPEN ALL REMAINING FILE FOR USE. B5100312^^ C ANY ERRORS ARE WITH AN OPENFL REQUEST. B5100313^^ 206 125 J = 3 B5100314^ ^ C OPEN DELINQUENT MASTER. B5100316^^ 207 CALL OPENFL(REQBFD,IDATDM,ISTAT) B5100317^^ C CHECK FOR ERROR. B5100318^^ C SET REQUEST BUFFER FLAG FOR OVERRIDE LOCKED RECORDS WHEN RETRIEVALB5100319^^ C IS WITH NO RECORD LOCKING. B5100320^^ 208 REQBFD(23) = 1 B5100321^^ 209 IF(ISTAT.GE.0) GO TO 145 B5100322^^ C FILE ERROR IN DELINQUENT MASTER. B5100323^^ 210 130 CALL FILERR(IDATDM,J,ISTAT,LU) B5100324^^ 211 CALL CLANEX B5100325^ ^ C OPEN PRIMARY TRANSACTION FILE. B5100327^^ 212 145 CALL OPENFL(REQBFT,IDATTR,ISTAT) B5100328^^ C CHECK FOR ERROR. B5100329^^ 213 IF(ISTAT.GE.0) GO TO 155 B5100330^^ C FILE ERROR IN PRIMARY TRANSACTION FILE. B5100331^^ 214 150 CALL FILERR(IDATTR,J,ISTAT,LU) B5100332^^ 215 CALL CLANEX B5100333^ ^ C OPEN SECONDARY TRANSACTION FILE IF USED. B5100335^^ 216 155 CONTINUE B5100336^^ C IF SECOND TRANSACTION FILE EXISTS ON THE SYSTEM, IT IS ASSUMED B5100337^^ C THAT THE BACKUP OPTION IS DESIRED-SO IF THE OPENFL REQUEST B5100338^^ C FINDS THE FILE, A FLAG IS SET AND PASSED TO THE SAVTRN ROUTINE. B5100339^^ C * IF TRBKFL = 0 -NO FILE FOUND - IF TRBKFL = 1 - FILE FOUND B5100340^^ 217 TRBKFL = 0 B5100341^^ 218 CALL OPENFL(REQBFB,IDATTB,ISTAT) B5100342^^ C CHECK FOR FILE PRESENT B5100343^^ 219 157 IF(AND(ISTAT,NOFILE).EQ.NOFILE) GO TO 165 B5100344^^ C CHECK FOR OTHER ERROR B5100345^^ 220 IF(ISTAT.LT.0) GO TO 160 B5100346^^ C FILE FOUND AND NO ERRORS-SET FLAG FOR UPDATING B5100347^^ 221 TRBKFL = 1 B5100348^^ 222 GO TO 165 B5100349^^ C FILE ERROR IN SECONDARY TRANSACTION FILE-REPORT IT AND EXIT B5100350^^ 223 160 CALL FILERR(IDATTB,J,ISTAT,LU) B5100351^^ 224 CALL CLANEX B5100352^ ^ C OPEN DAILY ASSIGNMENT FILE. B5100354^^ 225 165 CALL OPENFL(REQBFA,IDATDA,ISTAT) B5100355^^ C CHECK FOR ERROR. B5100356^^ 226 IF(ISTAT.GE.0) GO TO 175 B5100357^^ C FILE ERROR IN DAILY ASSIGNMENT FILE. B5100358^^ 227 170 CALL FILERR(IDATDA,J,ISTAT,LU) B5100359^^ 228 CALL CLANEX B5100360^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 10 DATE: 08/30/84 TIME: 0049 t^ C DISPLAY AND HANDLE SELECTION SCREEN B5100362^ ^ 229 175 CALL DISPLY(SELECT,DUMMY) B5100364^^ C DETERMINE SELECTION. B5100365^^ 230 180 IF(IOBUF(1).EQ.AUTO) GO TO 200 B5100366^^+ + AUTOMATIC B5100367^^ 231 IF(IOBUF(1).EQ.NAMESR) GO TO 300 B5100368^^+ + NAME SEARCH B5100369^^ 232 IF(IOBUF(1).EQ.COSNSR) GO TO 400 B5100370^^+ + COSIGNER NAME SEARCH B5100371^^ 233 IF(IOBUF(1).EQ.NUMBSR) GO TO 500 B5100372^^+ + ACCOUNT NUMBER SEARCH B5100373^^ 234 IF(IOBUF(1).EQ.EXIT) GO TO 190 B5100374^^+ + EXIT B5100375^ ^ C INVALID SELECTION. B5100377^^ 235 CALL DISPLY(INVSEL,DUMMY) B5100378^^ 236 GO TO 180 B5100379^  ^ C EXIT REQUEST. CLOSE ALL FIELS AND EXIT. B5100381^^ 237 190 CALL CLANEX B5100382^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 11 DATE: 08/30/84 TIME: 0049 t^ C AUTOMATIC MODE. THIS SECTION SELECTS THE NEXT ACCOUNT IN THE ASSIGB5100384^^ C QUEUE FOR REQVIEQ. ON ENTRY, COLFLG INDICATES WHERE IN THE AUTOMATB5100385^^ C FILE THE COLLECTOR IS. B5100386^^ C B5100387^^ C COLFLG < 0 NO AUTOMATIC FILE IN USE. B5100388^^ C COLFLG = 0 AUTOMATIC MODE SET UP AND IN USE. B5100389^^ C COLFLG > 0 AUTOMATIC MODE HAS BEEN INTERRUPTED, READY TO RESUMB5100390^^ C B5100391^ ^ C CHECK FOR NO AUTOMATIC FILE. IF NO, RETRIEVE NEXT QUEUE AND START B5100393^^ C AUTOMATIC FILE WITH THAT QUEUE. B5100394^^ 238 200 IF(COLFLG.LT.0) GO TO 800 B5100395^ ^ C CHECK IF THIS IS RESUMATION OF INTERRUPTED AUTO. B5100397^^ 239 202 IF ( COLFLG .GT. 0 ) GO TO 230 B5100398^ ^ C NO, AUTOMATIC FILE READY FOR USE. CHECK IF THIS IS THE FIRST ACCOUB5100400^^ C FOR THIS QUEUE. IF YES, A READR MUST BE DONE TO POSITION POINTER IB5100401^^ C DAILY ASSIGNMENT FILE. OTHERWISE, THE NEXT ACCOUNT IN SEQUENCE CANB5100402^^ C BE RETRIEVED. B5100403^^ 240 IF ( QINIT .NE. 0 ) GO TO 207 B5100404^^ 241 205 CALL READR ( REQBFA, DAREC, COLPTR, ISTAT ) B5100405^^ C SET FLAG INDICATING NOT THE FIRST ACCOUNT IN QUEUE. B5100406^^ 242 QINIT = 1 B5100407^^ C SET REQUEST ERROR IN CASE OFF ERROR. B5100408^^ 243 J = 13 B5100409^^ 244 GO TO 210 B5100410^ ^ C RETRIEVE NEXT ACCOUNT FROM DAILY ASSIGNMENT. B5100412^^ 245 207 CALL GETS(REQBFA,DAREC,COLPTR,ISTAT) B5100413^^ C SET REQUEST ERROR IN CASE OF ERROR. B5100414^^ 246 J = 14 B5100415^ ^ C CHECK FOR ERROR OTHER THAN END-OF-FILE. B5100417^^ 247 210 IF(ISTAT.LT.0.AND.AND(ISTAT,EOF).NE.EOF) GO TO 170 B5100418^^ C END-OF-FILE OR CHANGE IN QUEUE DENOTES END OF DAILY ASSIGNMENTS B5100419^^ C FOR THIS QUEUE. MOVE ON TO START REVIEW IN NEXT ASSIGNED QUEUE. B5100420^^ C EXCEPTION WILL BE ANY ACCOUNT FROM THE RL QUEUE. B5100421^^ 248 215 IF((AND(ISTAT,EOF).EQ.EOF.OR.DAREC(9).NE.VALQ(CURRQP).OR. B5100422^^ 248 1 DAREC(10).NE.VALQ(CURRQP+1)).AND.RLFLAG.EQ.0) GO TO 805 B5100423^^ C ACCOUNT ASSIGNED IN QUEUE. PROCEED IF ACCOUNT HAS HAD NO ACTIVITY B5100424^^ C ON IT TODAY. RETRIEVE MASTER RECORD FOR ACCOUNT AND CHECK LAST B5100425^^ C CONTACT DATE. IF ACCOUNT IS BUSY, MOVE ON TO REVIEW NEXT ACCOUNT B5100426^^ C ASSIGNED. B5100427^^ 249 ASSIGN 220 TO IRTN B5100428^^ 250 ASSIGN 225 TO IRTN2 B5100429^^ C MOVE ACCOUNT NUMBER TO IOBUF. B5100430^^ 251 CALL CCSMVA(DAREC,ONE,NUMLEN,IOBUF,ONE,NUMLEN) B5100431^^ 252 GO TO 515 B5100432^ ^ C ACCOUNT RETRIEVED. CHECK LAST CONTACT DATE. PERFORM GETACT ON MASTB5100434^^ C FILE COLLECTION ACTIVITY BLOCK TO GET FIRST ACTIVITY. SET STATUS B5100435^^ C WORD TO RESET AND RETRIEVE FIRST ACTIVITY FOR BLOCK. B5100436^^ 253 220 OSW = ASC01 B5100437^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 12 DATE: 08/30/84 TIME: 0049 t^ C BLANK STRING AND RETRIEVE FIRST ACTIVITY STRING FROM MASTER FILE. B5100438^^ 254 CALL GETACF(FSTACT,MASREC(154),LMASBL,OSW) B5100439^^ C SKIP REVIEW OF THIS ACCOUNT IF CONTACT DATE SHOWS IT ALREADY WORKEB5100440^^ C TODAY UNLESS ACCOUNT IS FROM THE 'RL' QUEUE. B5100441^^ 255 IF(RLFLAG.NE.0) GO TO 222 B5100442^^ 256 IF(FSTACT(1).EQ.DATE(1).AND.FSTACT(2).EQ.DATE(2).AND.FSTACT(3).EQ.B5100443^^ 256 1 DATE(3)) GO TO 225 B5100444^^ C SKIP REVIEW OF THIS ACCOUNT IF ACCOUNT REVIEW CODE HAS BEEN SET BYB5100445^^ C SUPERVISOR. B5100446^^ 257 IF(ARCODE.NE.$20) GO TO 225 B5100447^ ^ C ACCOUNT READY AND ELLIGIBLE FOR REVIEW. SAVE RELATIVE RECORD NUMBEB5100449^^ C OF THIS ACCOUNT IN DAILY ASSIGNMENT FILE. B5100450^^ 258 222 COLPTR(1) = REQBFA(16) B5100451^^ 259 COLPTR(2) = REQBFA(17) B5100452^^ C SET FLAG INDICATING FIRST ACTIVITY RETRIEVED FOR THIS ACCOUNT. B5100453^^ 260 ACTRET = 1 B5100454^^ 261 GO TO 525 B5100455^  ^ C ACCOUNT IN AUTOMATIC FILE BUSY. PROCEED TO NEXT SCHEDULED ACCOUNT B5100457^^ C AS IF THIS ACCOUNT HAD BEEN DISPLAYED AND A 'NA' NEXT FUNCTION B5100458^^ C REQUEST PERFORMED. B5100459^^ 262 225 IF ( RLFLAG .EQ. 0 ) GO TO 207 B5100460^^ C ACCOUNT WAS FROM RL QUEUE. SKIP IT AND RESET TO GET NEXT ACCOUNT B5100461^^ C IN SEQUENCE PRIOR TO THE BREAK FOR REVIEW OF THIS ACCOUNT. B5100462^^ 263 GO TO 915 B5100463^  ^ C RESUME INTERRUPTED AUTO. RESET FLAG. B5100465^^ 264 230 COLFLG = 0 B5100466^^ C MOVE TO LAST ACCOUNT BEFORE INTERRUPTION. B5100467^^ 265 CALL READR(REQBFA,DAREC,COLPTR,ISTAT) B5100468^^ C CHECK FOR ERROR. B5100469^^ 266 IF(ISTAT.GE.0) GO TO 235 B5100470^^ C FILE ERROR. B5100471^^ 267 J = 13 B5100472^^ 268 GO TO 170 B5100473^ ^ C CHECK IF INTERRUPTION WAS TO REVIEW AN RL ACCOUNT. IF NO, RESUME B5100475^^ C REVIEW WITH THIS ACCOUNT. B5100476^^ 269 235 IF(RLFLAG)240,215,250 B5100477^ ^ C ACCOUNT IS AN RL QUEUE ACCOUNT. REVIEW IT AND SET FLAG TO RESUME B5100479^^ C REVIEW AFTER THIS INTERRUPTION WITH NEXT ACCOUNT IN ASSIGNMENT B5100480^^ C AFTER THE PREVIOUS ACCOUNT REVIEWED. B5100481^^ 270 240 RLFLAG = 1 B5100482^^ 271 GO TO 215 B5100483^ ^ C THIS ACCOUNT WAS THE LAST ACCOUNT REVIEWED BEFORE THE RL ACCOUNT. B5100485^^ C CLEAR RL FLAG AND RESUME REVIEW WITH NEXT ACCOUNT IN DAILY ASSIGN-B5100486^^ C MENT FILE. B5100487^^ 272 250 RLFLAG = 0 B5100488^^ 273 GO TO 207 B5100489^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 13 DATE: 08/30/84 TIME: 0049 t^ C BORROWER'S NAME SEARCH. B5100491^ ^ 274 300 CALL NMSRCH B5100493^ ^ C CHECK IF INPUT NAME FOUND. RETURN TO SELECTION SCREEN IF NOT FOUNDB5100495^^ C IF FOUND, RETRIEVE ACCOUNT BY NUMBER. B5100496^^ 275 IF(IOBUF(1).LT.0) GO TO 175 B5100497^^ 276 GO TO 510 B5100498^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 14 DATE: 08/30/84 TIME: 0049 t^ C COSIGNER'S NAME SEARCH. B5100500^ ^ C CHECK IF ANY CHARACTERS ENTERED FOR NAME. B5100502^^ 277 400 IF(IOBUF(41).EQ.2) GO TO 460 B5100503^ ^ C SAVE NAME, CANNOT BE MORE THAN 30 CHARACTERS LONG. B5100505^^ 278 SAVLEN = IOBUF(41) - 2 B5100506^^ 279 IF(SAVLEN.GT.30) SAVLEN = 30 B5100507^^ 280 CALL CCSMVA(IOBUF,THREE,SAVLEN,NAMSAV,ONE,SAVLEN) B5100508^ ^ C ZERO REQUEST BUFFER. B5100510^^ 281 DO 410 I=1,24 B5100511^^ 282 410 REQBFF(I) = 0 B5100512^^ C SET LOCKING INDICATOR FOR NO LOCKING. B5100513^^ 283 IDATCS(15) = 0 B5100514^^ C OPEN FILE. B5100515^^ 284 CALL OPENFL(REQBFF,IDATCS,ISTAT) B5100516^^ C RESET LOCKING INDICATOR TO RECORD LOCKING FOR NEXT FILE ACCESS. B5100517^^ 285 IDATCS(15) = 1 B5100518^^ C SET FLAG TO OVERRIDE LOCKED RECORDS. B5100519^^ 286 REQBFF(23) = 1 B5100520^^ C CHECK FOR ERROR. B5100521^^ 287 IF(ISTAT.LT.0) GO TO 485 B5100522^ ^ C SEQUENTIALLY RETRIEVE FROM FILE COMPARING NAMES. B5100524^^ 288 420 CALL GETS(REQBFF,COSREC,KEY,ISTAT) B5100525^^ C CHECK FOR END-OF-FILE TERMINATING SEARCH. B5100526^^ 289 IF(AND(ISTAT,EOF).EQ.EOF) GO TO 460 B5100527^^ C CHECK FOR OTHER ERROR. B5100528^^ 290 425 IF(ISTAT.LT.0) GO TO 490 B5100529^ ^ C COMPARE EACH COSIGNER NAME WITH INPUT NAME. B5100531^^ 291 DO 440 I=1,3 B5100532^^ C SET POINTER TO NEXT COSIGNER NAME. B5100533^^ 292 K = COSLEN*(I-1) + 20 B5100534^^ C RETRIEVE FIRST CHARACTER OF NEXT COSIGNER NAME. IF BLANK, CONTINUEB5100535^^ C SEARCH WITH NEXT RECORD. IF NON-BLANK, COMPARE AGAINST DESIRED NAMB5100536^^ 293 CALL CCSGET(COSREC,K,J) B5100537^^ 294 IF(J.EQ.$20) GO TO 420 B5100538^ ^ C COMPARE NAMES. B5100540^^ 295 CALL CCSCST(NAMSAV,ONE,SAVLEN,COSREC,K,SAVLEN,COMPIN) B5100541^^ C IF NO MATCH, CONTINUE SEARCH. B5100542^^ 296 IF(COMPIN.NE.0) GO TO 440 B5100543^ ^ C MATCH FOUND, DISPLAY COSIGNER INFORMATION. IF THIS IS COSIGNER 1 OB5100545^^ C 2, MOVE THEIR INFORMATION INTO COSIGNER 1'S POSITION FOR DISPLAY B5100546^^ C PURPOSES. B5100547^^ 297 IF(I.NE.1) CALL CCSMVA(COSREC,K,COSLEN,COSREC,COS1PS,COSLEN) B5100548^^ 298 CALL DISPLY(COSRCH,COSREC) B5100549^^ C CHECK ENTRY FOR SELECTION. REPLY OF 'CARRIAGE RETURN' CONTINUES B5100550^^ C SEARCH. B5100551^^ 299 430 IF(IOBUF(41).EQ.0) GO TO 440 B5100552^^ C RETRIEVE FIRST CHARACTER OF REPLY. B5100553^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 15 DATE: 08/30/84 TIME: 0049 t^ 300 CALL CCSGET(IOBUF,ONE,J) B5100554^^ C CHECK FOR A 'C' INDICATING CORRECT NAME FOUND. B5100555^^ 301 IF(J.EQ.$43) GO TO 450 B5100556^^ C CHECK FOR A 'D' INDICATING DISCONTINUE SEARCH. B5100557^^ 302 IF(J.EQ.$44) GO TO 460 B5100558^ ^ C INVALID ENTRY. B5100560^^ 303 CALL DISPLY(INVENT,DUMMY) B5100561^^ 304 GO TO 430 B5100562^^ 305 440 CONTINUE B5100563^ ^ C ALL THREE COSIGNERS IN THIS RECORD CHECKED. RETRIEVE AND CHECK NEXB5100565^^ C RECORD. B5100566^^ 306 GO TO 420 B5100567^  ^ C FOUND DESIRED ACCOUNT. SAVE ACCOUNT NUMBER IN IOBUF FOR LOOKUP. B5100569^^ 307 450 CALL CCSMVA(COSREC,ONE,NUMLEN,IOBUF,ONE,NUMLEN) B5100570^^ C CLOSE COSIGNER FILE AND GO RETRIEVE ACCOUNT. B5100571^^ 308 CALL CLOSFL(REQBFF,ISTAT) B5100572^^ 309 GO TO 510 B5100573^  ^ C SELECTED NAME NOT PRESENT. CLOSE FILE, DISPLAY MESSAGE THAT NAME WB5100575^^ C NOT FOUND AND RETURN TO SELECTION SCREEN. B5100576^^ 310 460 CALL CLOSFL(REQBFF,ISTAT) B5100577^^ 311 CALL DISPLY(NOTFND,DUMMY) B5100578^^ 312 GO TO 180 B5100579^  ^ C FILE ERROR DURING COSIGNER NAME SEARCH. B5100581^ ^ C OPEN FILE ERROR. B5100583^^ 313 485 J = 3 B5100584^^ 314 GO TO 495 B5100585^ ^ C GETS REQUEST ERROR. B5100587^^ 315 490 J = 14 B5100588^ ^ C REPORT ERROR, CLOSE ALL FILES AND EXIT. B5100590^^ 316 495 CALL FILERR(IDATCS,J,ISTAT,LU) B5100591^^ 317 CALL CLANEX B5100592^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 16 DATE: 08/30/84 TIME: 0049 t^ C ACCOUNT NUMBER RETRIEVAL/SEARCH. ACCOUNT NUMBER IS IN IOBUF. B5100594^ ^ C LEFT JUSTIFY ACCOUNT NUMBER IN IOBUF. B5100596^^ 318 500 CALL CCSMVA(IOBUF,THREE,NUMLEN,IOBUF,ONE,NUMLEN) B5100597^ ^ C SET UP RETURN VALUES FOR ERRORS AND NO ERRORS. B5100599^^ 319 510 ASSIGN 520 TO IRTN B5100600^^ 320 ASSIGN 530 TO IRTN2 B5100601^^ C SET NAME OR ACCOUNT NUMBER INPUT FLAG. B5100602^^ 321 NNINPT = 1 B5100603^ ^ C RETRIEVE ACCOUNT BY NUMBER. B5100605^^ 322 515 CALL READR(REQBFD,MASREC,IOBUF,ISTAT) B5100606^^ C IF RECORD IS LOCKED OR RECORD NOT FOUND, RETURN THRU IRTN2 B5100607^^ 323 IF(AND(ISTAT,LOCKED).EQ.LOCKED.OR.AND(ISTAT,WRONKY).EQ.WRONKY.OR. B5100608^^ 323 1 AND(ISTAT,EOF).EQ.EOF) GO TO IRTN2 B5100609^ ^ C CHECK FOR OTHER ERROR. B5100611^^ 324 IF(ISTAT.GE.0) GO TO IRTN B5100612^^ C FILE ERROR. B5100613^^ 325 J = 13 B5100614^^ 326 GO TO 130 B5100615^  ^ C CORRECT ACCOUNT FOUND IN SEARCH. INSURE ACCOUNT IS IN A QUEUE ALLOB5100617^^ C FOR THIS COLLECTOR AND THE SUPERVISOR'S ACCOUNT REVIEW CODE IS NOTB5100618^^ C SET. IN EITHER CASE, THE COLLECTOR IS NOT ALLOWED TO REVIEW THIS B5100619^^ C ACCOUNT. B5100620^^ 327 520 IF(ICHEKQ(MASREC(136)).GE.0) GO TO 525 B5100621^^ C NOT ALLOWED TO REVIEW. B5100622^^ 328 CALL DISPLY(WRONGQ,DUMMY) B5100623^^ 329 GO TO 180 B5100624^ ^ C ACCOUNT READY FOR REVIEW. SET UP TRANSACTION FILE AND DISPLAY MASTB5100626^^ C SCREEN. B5100627^^ 330 525 CALL CCSMVA(MASREC,ONE,NUMLEN,TRNSBF,ONE,NUMLEN) B5100628^^ C SAVE STARTING TIME. B5100629^^ 331 CALL CCSTIM(TRNSBF(11)) B5100630^^ 332 GO TO 600 B5100631^ ^ C SELECTED ACCOUNT NOT PRESENT OR BUSY ON SEARCH. DISPLAY SELECTION B5100633^^ C SCREEN WITH APPROPRIATE MESSAGE. B5100634^^ C***************************************************************PDM*0084B5100635^^ 333 530 IF(AND(ISTAT,WRONKY).EQ.WRONKY .OR. AND(ISTAT,EOF).EQ.EOF) B5100636^^ 333 1GO TO 535 B5100637^^ 334 CALL DISPLY(BUSY,DUMMY) B5100638^^ C***************************************************************PDM*0084B5100639^^ 335 GO TO 540 B5100640^ ^ C***************************************************************PDM*0084B5100642^^ 336 535 CALL DISPLY(NOTFND,DUMMY) B5100643^^ C***************************************************************PDM*0084B5100644^^ C PROCESS ENTRY FROM SELECTION SCREEN. B5100645^^ 337 540 GO TO 180 B5100646^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 17 DATE: 08/30/84 TIME: 0049 t^ C SCREEN HANDLER. DISPLAYS SCREENS AND PERFORMS COLLECTOR FUNCTIONS B5100648^^ C REQUESTED. B5100649^ ^ C DISPLAY MASTER SCREEN ACCORDING TO TYPE. B5100651^^ C CHECK IF USER IS A CLERICAL. DISPLAY CHANGE SCREEN IF YES. B5100652^^ 338 600 IF(COLTYP.LT.0) GO TO 625 B5100653^^ 339 CALL DISPLY(MASCRN+ACTYPE,MASREC) B5100654^ ^ C CHECK ENTRY FOR NEXT REQUEST. B5100656^^ 340 605 IOBUF(1) = ICHENT(IOBUF(1)) B5100657^^ C CHECK FOR VALID ENTRY. B5100658^^ 341 IF(IOBUF(1).GT.0) GO TO 615 B5100659^ ^ C INVALID ENTRY FROM SCREEN. ASK FOR REENTRY. B5100661^^ 342 610 CALL DISPLY(INVENT,DUMMY) B5100662^^ 343 GO TO 605 B5100663^  ^ C BRANCHED GO TO TO PROCESS INPUT FUNCTION. B5100665^^ 344 615 GO TO B5100666^^ 344 1(600,620,625,630,660,650,690,730,740,750,750,750,800,820,840,850),B5100667^^ C CR DA DC DF NA RL CS EA DS P1 P2 P3 NQ OA SS XX B5100668^^ 344 2 IOBUF(1) B5100669^  ^ C DISPLAY ACTIVITY SCREEN REQUESTED. B5100671^^ 345 620 CALL DISPLY(DASCRN,MASREC) B5100672^^ 346 CALL DAAASC B5100673^^ C UPON RETURN, IOBUF(1) CONTAINS A VALID NEXT FUNCTION REQUEST. B5100674^^ 347 GO TO 615 B5100675^  ^ C DISPLAY CUSTOMER CHANGE SCREEN REQUEST. B5100677^^ 348 625 CALL DISPLY(DCSCRN,MASREC) B5100678^^ C PERFORM CHANGE SCREEN FUNCTIONS. B5100679^^ 349 CALL CHSCRN(MASREC,CUSCHG) B5100680^^ C UPON RETURN, IOBUF(1) CONTAINS A VALID NEXT FUNCTION REQUEST. B5100681^^ 350 GO TO 615 B5100682^  ^ C DISPLAY FINANCIAL HISTORY SCREEN BY ACCOUNT TYPE. B5100684^^ 351 630 CALL DISPLY(FNSCRN+ACTYPE,MASREC) B5100685^^ C CHECK ENTRY FOR NEXT FUNCTION REQUEST. B5100686^^ 352 GO TO 605 B5100687^  ^ C REVIEW ACCOUNT LATER REQUEST. NOT A VALID FUNCTION UNLESS AUTOMATIB5100689^^ C MODE IN USE. ALSO, ROOM MUST BE AVALIABLE IN THE RL QUEUE. B5100690^^ 353 650 IF(NNINPT.NE.0.OR.RLCNT.GE.15) GO TO 610 B5100691^^ C ROOM AVAILABLE IN QUEUE. INCREMENT COUNTER OF ACCOUNTS IN THIS QUEB5100692^^ 354 RLCNT = RLCNT + 1 B5100693^^ C SAVE DAILY ASSIGNMENT FILE RELATIVE RECORD NUMBER OF THIS ACCOUNT.B5100694^^ 355 J = 2*RLCNT - 1 B5100695^^ 356 RLPTR(J) = COLPTR(1) B5100696^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 18 DATE: 08/30/84 TIME: 0049 t^ 357 RLPTR(J+1) = COLPTR(2) B5100697^^ C ESTABLISH WAIT COUNT FOR THIS ACCOUNT. B5100698^^ 358 K = 0 B5100699^^ 359 J = RLCNT - 1 B5100700^^ 360 IF(J.LT.2) GO TO 657 B5100701^^ 361 DO 655 I=2,J B5100702^^ 362 655 K = K + RLCNTS(I) B5100703^^ 363 657 K = RLWAIT - RLCNTS(1) - K B5100704^^ 364 IF(K.LT.1) K=1 B5100705^^ 365 RLCNTS(RLCNT) = K B5100706^^ 366 GO TO 670 B5100707^  ^ C REVIEW OF NEXT ASSIGNED ACCOUNT REQUEST. ONLY VALID IF AUTOMATIC FB5100709^^ C IN USE. B5100710^^ 367 660 IF(COLFLG.LT.0) GO TO 800 B5100711^ ^ C CHECK IF NEXT ACCOUNT FOR REVIEW SHOULD BE AN RL ACCOUNT, OR THE B5100713^^ C NEXT ACCOUNT IN DAILY ASSIGNMENT AFTER THE INTERRUPTION FOR REVIEB5100714^^ C OF AN RL ACCOUNT. B5100715^^ 368 665 IF(RLCNTS(1).EQ.1) GO TO 680 B5100716^^ 369 670 ASSIGN 202 TO IRTN B5100717^^ 370 GO TO 900 B5100718^  ^ C NEXT ACCOUNT FOR REVIEW IS AN RL ACCOUNT, OR THE NEXT ACCOUNT IS B5100720^^ C ACCOUNT AFTER INTERRUPTION. DON'T SET FLAG IN LATTER CASE. B5100721^^ 371 680 IF(RLFLAG.NE.1) RLFLAG = -1 B5100722^^ 372 GO TO 900 B5100723^  ^ C COSIGNER SCREEN DISPLAY REQUEST. B5100725^ ^ 373 690 DO 695 I=1,24 B5100727^^ 374 695 REQBFF(I) = 0 B5100728^ ^ C OPEN COSIGNER FILE. B5100730^^ 375 CALL OPENFL(REQBFF,IDATCS,ISTAT) B5100731^^ C CHECK FOR ERROR. B5100732^^ 376 IF(ISTAT.LT.0) GO TO 485 B5100733^ ^ C NO ERROR. SET UP ACCOUNT NUMBER KEY FOR RETRIEVAL. B5100735^^ 377 CALL CCSMVA(MASREC,ONE,NUMLEN,KEY,ONE,NUMLEN) B5100736^ ^ C PERFORM READR TO RETRIEVE RECORD. B5100738^^ C MOVE KEY TO SAVE AREA B5100739^^ 378 CALL CCSMVA(KEY,1,16,COSKEY,1,16) B5100740^^ 379 CALL READR(REQBFF,COSREC,KEY,ISTAT) B5100741^^ 380 COSFLG = 0 B5100742^^ 381 IF(AND(ISTAT,WRONKY).NE.WRONKY.AND.AND(ISTAT,EOF).NE.EOF) B5100743^^ 381 1 GO TO 700 B5100744^^ C RECORD DOES NOT EXIST. B5100745^^ C DISPLAY THE SCREEN WITH BLANKS AND IF THE OPERATOR ENTERS DATA- B5100746^^ C CREATE A RECORD B5100747^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 19 DATE: 08/30/84 TIME: 0049 t^ 382 CALL CCSBLK(COSREC,500) B5100748^^ 383 CALL DISPLY(COSRN1,MASREC) B5100749^^ 384 CALL DISPLY(COSRN2,COSREC) B5100750^^ 385 CALL CHSCRN(COSREC,COSCHG) B5100751^^ C A RECORD MUST BE CREATED IF AN ENTRY WAS MADE-UNLESS TRAINEE B5100752^^ 386 IF(COSFLG.EQ.0.OR.UFLAG.EQ.-1) GO TO 710 B5100753^^ C UPDATE COSIGNER FLAG IN MASTER FILE B5100754^^ 387 CALL CCSPUT($31,938,MASREC) B5100755^^ 388 CALL CCSMVA(COSKEY,1,16,COSREC,1,16) B5100756^^ 389 CALL WRITER(REQBFF,COSREC,COSKEY,ISTAT) B5100757^^ 390 IF(ISTAT.GE.0) GO TO 710 B5100758^^ 391 J = 12 B5100759^^ 392 GO TO 495 B5100760^^ C RECORD WAS FOUND ON ORIGINAL READ B5100761^ ^ C CHECK FOR OTHER ERROR. B5100763^^ 393 700 IF(ISTAT.GE.0) GO TO 705 B5100764^^ C FILE ERROR. SET REQUEST TYPE. B5100765^^ 394 J = 13 B5100766^^ 395 GO TO 495 B5100767^ ^ C NO ERRORS, RECORD RETRIEVED. DISPLAY COSIGNER SCREEN AND PERFORM B5100769^^ C COSIGNER SCREEN FUNCTIONS. B5100770^^ 396 705 CALL DISPLY(COSRN1,MASREC) B5100771^^ 397 CALL DISPLY(COSRN2,COSREC) B5100772^^ 398 CALL CHSCRN(COSREC,COSCHG) B5100773^^ C ON RETURN, IOBUF(1) CONTAINS A VALID NEXT FUNCTION REQUEST. SAVE B5100774^^ C COSIGNER RECORD IF NOT A TRAINEE LOGGED ON. B5100775^^ 399 IF(UFLAG.EQ.0) CALL UPDREC(REQBFF,COSREC,ISTAT) B5100776^^ C CHECK FOR ERROR. B5100777^^ 400 IF(ISTAT.GE.0) GO TO 710 B5100778^^ C FILE ERROR DURING UPDATE RECORD REQUEST. B5100779^^ 401 J = 15 B5100780^^ 402 GO TO 495 B5100781^ ^ C SET RETURN VALUE TO PROCESS NEXT REQUEST. B5100783^^ 403 710 ASSIGN 615 TO IRTN B5100784^ ^ C RETURN. B5100786^^ 404 715 CALL CLOSFL(REQBFF,ISTAT) B5100787^^ 405 GO TO IRTN B5100788^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 20 DATE: 08/30/84 TIME: 0049 t^ C TRAINING METHOD OF ENTRY FOR ACTIVITY SEQUENCE. B5100790^^ 406 730 CALL EATRNG B5100791^^ 407 GO TO 605 B5100792^  ^ C RETURN TO SELECTION SCREEN REQUESTED. SET NAME OR ACCOUNT NUMBER B5100794^^ C INPUT FLAG TO AVOID LOSING CURRENT ACCOUNT IF IT IS FROM RL QUEUE.B5100795^^ 408 740 NNINPT = 1 B5100796^^ C SET FLAG TO INDICATE INTERRUPTION OF AUTOMATIC MODE OCCURRED IF ITB5100797^^ C IS ACTIVE. B5100798^^ 409 IF(COLFLG.EQ.0) COLFLG = 1 B5100799^^ C SET RETURN LOCATION TO DISPLAY SELECTION SCREEN. SAVE THE MASTER B5100800^^ C RECORD. B5100801^^ 410 ASSIGN 175 TO IRTN B5100802^^ 411 GO TO 900 B5100803^  ^ C PERMANENT COMMENT CHANGE REQUESTED. B5100805^^ 412 750 CALL PCPROC B5100806^^ C PROMPT FOR ENTRY OF NEXT FUNCTION. B5100807^^ 413 CALL DISPLY(NXTFUN,DUMMY) B5100808^^ 414 GO TO 605 B5100809^  ^ C MOVE TO NEXT ASSIGNED QUEUE REQUEST. B5100811^ ^ C SAVE CURRENT DELQ MSTR RECORD IF ONE IS PRESENT B5100813^^ 415 800 IF ( COLFLG .LT. 0 .AND. NNINPT .EQ. 0 ) GO TO 805 B5100814^^ 416 ASSIGN 805 TO IRTN B5100815^^ 417 NNINPT = 1 B5100816^^ 418 GO TO 900 B5100817^ ^ C MOVE POINTER TO NEXT QUEUE IN VALID QUEUE ARRAY. B5100819^^ 419 805 CURRQP = CURRQP + 2 B5100820^^ C CHECK IF THIS IS THE END OF ASSIGNED QUEUES. B5100821^^ 420 IF(CURRQP.LT.QBREAK.OR.(QBREAK.EQ.-1.AND.CURRQP.LT.16)) GO TO 810 B5100822^^ C NO MORE QUEUES TO REVIEW FOR THIS COLLECTOR, END OF DAILY ASSIGN- B5100823^^ C MENTS. B5100824^^ 421 CALL DISPLY(EOFDA,DUMMY) B5100825^^ 422 CALL CLANEX B5100826^ ^ C HAVE NEXT ASSIGNED QUEUE. RETRIEVE STARTING POSITION FOR THIS QUEUB5100828^^ C IN THE DAILY ASSIGNMENT FILE. B5100829^^ 423 810 ASSIGN 815 TO IRTN B5100830^^ C SET FLAG INDICATING NO AUTOMATIC FILE IN USE. THIS FLAG WILL BE B5100831^^ C RESET WHEN STARTING POSITION IN DAILY ASSIGNMENT FILE IS RETRIEVEDB5100832^^ 424 COLFLG = -1 B5100833^^ C SET UP IN KEY THE NEXT QUEUE THE STARTING POSITION IS TO BE B5100834^^ C RETRIEVED FOR. B5100835^^ 425 KEY(1) = VALQ(CURRQP) B5100836^^ 426 KEY(2) = VALQ(CURRQP+1) B5100837^^ C GO RETRIEVE STARTING POSITION. B5100838^^ 427 GO TO 99 B5100839^ t FTN 3.3B (OPT = LPC) FCOLEC PAGE 21 DATE: 08/30/84 TIME: 0049 t^ C CHECK IF NEXT QUEUE ASSIGNED HAS AN AUTOMATIC FILE. IF NO, TRY B5100841^^ C NEXT ASSIGNED QUEUE. B5100842^^ 428 815 IF(COLFLG.LT.0) GO TO 800 B5100843^^ C**************************************************************138*AD12 B5100844^^ C NEXT QUEUE VALID AND HAS ASSIGNED ACCOUNTS. IF RL WAS ACTIVE B5100845^^ C (LOOKING AT RL ACCOUNT), CANCEL THE RESUME WITH LAST ACCOUNT B5100846^^ C REQUEST AND MOVE REMAINING ACCOUNTS IN RL QUEUE UP. ALSO SET B5100847^^ C FLAGS TO RESUME AUTOMATIC WITH FIRST ACCOUNT IN CURRENTLY B5100848^^ C RETRIEVED QUEUE. B5100849^^ 429 IF( RLFLAG .EQ. 0 ) GO TO 817 B5100850^^ C YES, LAST ACCOUNT FROM RL QUEUE. B5100851^^ 430 RLFLAG = 0 B5100852^^ 431 QINIT = 1 B5100853^^ 432 GO TO 925 B5100854^ ^ C NO, ACCOUNT NOT FROM RL QUEUE. SET FLAG INDICATING FIRST B5100856^^ C ACCOUNT IN NEW QUEUE UP FOR REVIEW. B5100857^^ 433 817 QINIT = 0 B5100858^^ C***************************************************************138*A012B5100859^^ 434 GO TO 205 B5100860^  ^ C DISPLAY ACCOUNT LINKED THRU OTHER ACCOUNT NUMBER IN MASTER FILE. B5100862^ ^ C SAVE ACCOUNT NUMBER TO LOOK FOR. B5100864^^ 435 820 CALL CCSMVA(MASREC,OAACCT,NUMLEN,IOBUF,ONE,NUMLEN) B5100865^^ C SET FLAG TO INDICATE INTERRUPTED AUTOMATIC MODE. B5100866^^ 436 IF(COLFLG.EQ.0) COLFLG = 1 B5100867^^ C SET NAME OR ACCOUNT NUMBER INPUT FLAG SO THAT A RETURN TO AUTOMATIB5100868^^ C MODE, IF ACITVE, WILL RETURN TO CURRENT ACCOUNT DISPLAYED. B5100869^^ 437 NNINPT = 1 B5100870^^ C SET RETURN LOCATION TO ACCOUNT NUMBER LOOK UP. B5100871^^ 438 ASSIGN 510 TO IRTN B5100872^^ C SAVE MASTER RECORD. B5100873^^ 439 GO TO 900 B5100874^  ^ C DISPLAY AND HANDLE SUPERVISOR SCREEN. B5100876^ ^ C DISPLAY SCREEN. B5100878^^ 440 840 CALL DISPLY(SUPSRN,MASREC) B5100879^^ C PERFORM SUPERVISOR SCREEN FUNCTIONS. B5100880^^ 441 CALL CHSCRN(MASREC,SUPCHG) B5100881^^ C UPON RETURN, IOBUF(1) CONTAINS A VALIDATED NEXT FUNCTION REQUEST. B5100882^^ 442 GO TO 615 B5100883^  ^ C ACTIVITY ENTRY, NORMAL METHOD. B5100885^^ 443 850 CALL EACTSQ B5100886^^ C UPON RETURN, IOBUF(1) CONTAINS A NEXT FUNCTION REQUEST. B5100887^^ 444 GO TO 605 B5100888^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 22 DATE: 08/30/84 TIME: 0049 t^ C SAVE DELINQUENT MASTER RECORD IF NOT A TRAINEE LOGGED ON. B5100890^^ 445 900 IF(UFLAG.EQ.0) CALL UPDREC(REQBFD,MASREC,ISTAT) B5100891^^ C CLEAR FIRST ACTIVITY RETRIEVED FLAG. B5100892^^ 446 ACTRET = 0 B5100893^^ C CHECK FOR ERROR. B5100894^^ 447 IF(ISTAT.GE.0) GO TO 910 B5100895^^ C BYPASS ERROR IF NOT LOCKED B5100896^^ 448 IF(AND(ISTAT,$8080).EQ.$8080) GO TO 910 B5100897^^ C FILE ERROR DURING UPDATE RECORD REQUEST. B5100898^^ 449 J = 15 B5100899^^ 450 GO TO 130 B5100900^  ^ C RL ACTIVE CHECK AND COUNTER. B5100902^ ^ C IF AUTOMATIC NOT ACTIVE, BYPASS RL CHECK. B5100904^^ 451 910 IF(NNINPT.NE.0) GO TO 950 B5100905^ ^ C BRANCH ACCORDING TO RL PHASE. B5100907^^ 452 915 IF(RLFLAG) 930,940,920 B5100908^ ^ C RLFLAG = 1. HAVE JUST FINISHED REVIEWING AN RL ACCOUNT. NOW RESUMEB5100910^^ C REVIEW WITH NEXT ACCOUNT IN DAILY ASSIGNMENT FILE. RESET POINTER B5100911^^ C TO ACCOUNT PRECEDING IT. B5100912^^ 453 920 COLPTR(1) = RLPTR(1) B5100913^^ 454 COLPTR(2) = RLPTR(2) B5100914^^ C MOVE ACCOUNTS WAITING IN RL QUEUE UP. B5100915^^ C MOVE POINTERS AND WAIT COUNTERS. B5100916^^ C***************************************************************138*A012B5100917^^ 455 925 LENGTH = 2*RLCNT B5100918^^ ****************************************************************138*A012B5100919^^ 456 CALL CCSMVA(RLCNTS,THREE,LENGTH,RLCNTS,ONE,LENGTH) B5100920^^ 457 LENGTH = 2*LENGTH B5100921^^ 458 CALL CCSMVA(RLPTR,FIVE,LENGTH,RLPTR,ONE,LENGTH) B5100922^^ 459 RLCNT = RLCNT - 1 B5100923^^ 460 GO TO 935 B5100924^ ^ C RLFLAG = -1. FIRST ACCOUNT IN RL QUEUE IS NOW UP FOR REVIEW. SET B5100926^^ C RECORD POINTER TO THIS ACCOUNT AND SAVE POINTER OF CURRENT ACCOUNTB5100927^^ 461 930 J = RLPTR(1) B5100928^^ 462 RLPTR(1) = COLPTR(1) B5100929^^ 463 COLPTR(1) = J B5100930^^ 464 J = RLPTR(2) B5100931^^ 465 RLPTR(2) = COLPTR(2) B5100932^^ 466 COLPTR(2) = J B5100933^^ C SET RETURN TO READR TO READ SPECIFIC RECORD IN DAILY ASSIGNMENTS. B5100934^^ 467 935 ASSIGN 230 TO IRTN B5100935^ ^ C RLFLAG = 0. RL NOT ACTIVE, DECREMENT WAIT COUNT FOR ACCOUNTS IN RLB5100937^^ C QUEUE. B5100938^^ 468 940 IF(RLCNTS(1).GT.1) RLCNTS(1) = RLCNTS(1) -1 B5100939^ ^ C ZERO NAME AND ACCOUNT NUMBER INPUT FLAG. B5100941^^ 469 950 NNINPT = 0 B5100942^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 23 DATE: 08/30/84 TIME: 0049 t^ C RESET ACTIVITY COUNT NUMBER B5100943^^ 470 ACTCNT = 1 B5100944^ ^ C GO PERFORM NEXT FUNCTION REQUEST. B5100946^^ 471 GO TO IRTN B5100947^    ^ C END OF MODULE. THERE IS NO RETURN FROM THIS MODULE. THE ONLY EXIT B5100949^^ C IS THRU THE SUBROUTINE CLANEX. B5100950^^ 472 END B5100951^t FTN 3.3B (OPT = LPC) FCOLEC PAGE 24 DATE: 08/30/84 TIME: 0049 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0751 ( 1873)   EXTERNALS 2 AMONTO ADAYTO AYERTO PGMIN OPENFL FILERR CLANEX 22 DISPLY CCSGET CCSMVA READR CCSTIM WRITER CLOSFL 22 CCSPUT ICCSAD ICALJL GETS GETACF NMSRCH CCSCST 22 ICHEKQ ICHENT DAAASC CHSCRN CCSBLK UPDREC EATRNG 2 PCPROC EACTSQ  t FTN 3.3B (OPT = LPC) FCOLEC PAGE 25 DATE: 08/30/84 TIME: 0049 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < & 8080 (-32639) 00BF 448,448&* FFFF (65535) 00B7 160,161,162* 0001 (1) 0000 13,15,16,18,19,22,29,59,64,65,67,73,74,75,76,88,95,101,105,113,115,117,119,122,123,124,130,140,148 ,157,164,168,175,178,185,187,189,196,208,221,230,231,232,233,234,242,248,256,258,260,270,275,281, 285,286,291,292,297,321,340,341,344,354,355,356,357,359,363,364,368,371,373,378,386,388,408,409, Z 417,420,424,425,426,431,436,437,453,459,461,462,463,468,470Z: 000F (15) 00B5 117,165,283,285,353,401,449:. 0010 (16) 00BB 378,378,388,420.& 0014 (20) 00B6 133,292&" 0031 (49) 00BD 387"" 00F6 (246) 00B8 166" 00FF (255) 03EE " 01F4 (500) 00BC 382"" 03AA (938) 00BE 387"   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$( ACTCNT INTEGER 08B9 D 23,33,470($ ACTHST INTEGER 05C5 D 11,13$, ACTRET INTEGER 0851 D 23,31,260,446,, ACTYPE INTEGER 01DD D 11,16,339,351,l AND INTR.FN. 7FFF 93,93,102,117,128,135,144,160,161,162,165,194,219,247,248,289,323,333,381,448l( ARCODE INTEGER 026E D 11,16,257(( ASC00 INTEGER 08C7 D 35,39,167(, ASC01 INTEGER 08C8 D 35,38,39,253 ,0 ASTRKS INTEGER 0001 56,65,139,147,1760( AUTO INTEGER 0002 56,65,230(, AVMAT INTEGER 0706 D 11,15,17,172 ,$ BLANKS INTEGER 08D0 D 35,39$( BUSY INTEGER 0003 56,65,334($ BZ INTEGER 08CA D 35,39$, CID INTEGER 0852 D 23,31,113,114,$ CLRSCR INTEGER 08ED D 50,52$( CNTURY INTEGER 08CF D 35,39,167(L COLFLG INTEGER 0004 56,65,198,238,239,264,367,409,415,424,428,436L` COLPTR INTEGER 0005 56,66,196,197,241,245,258,259,265,356,357,453,454,462,463,465,466`, COLTYP INTEGER 0884 D 23,32,117,338,$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$t FTN 3.3B (OPT = LPC) FCOLEC PAGE 26 DATE: 08/30/84 TIME: 0049 t, COMPIN INTEGER 084C D 23,30,295,296,$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$( COS1PS INTEGER 0007 56,66,297(, COSCHG INTEGER 0145 D 9,11,385,398 ,, COSFLG INTEGER 08BB D 23,33,380,386,. COSKEY INTEGER 00A8 59,378,388,389 ., COSLEN INTEGER 000B 56,66,292,297,( COSNSR INTEGER 000C 56,67,232(( COSRCH INTEGER 000D 56,71,298(d COSREC INTEGER 05C5 D 11,13,17,288,293,295,297,298,307,379,382,384,385,388,389,397,398,399 d, COSRN1 INTEGER 0009 56,66,383,396,, COSRN2 INTEGER 000A 56,66,384,397,$ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$: CURRQP INTEGER 000E 56,187,248,419,420,425,426 :( CUSCHG INTEGER 00EA D 9,11,349 (8 DAREC INTEGER 000F 56,64,241,245,248,251,2658( DASCRN INTEGER 0008 56,71,345(0 DATE INTEGER 0845 D 23,29,30,163,256 0( DAY INTEGER 0846 D 23,29,161(( DCSCRN INTEGER 0023 56,67,348(P DUMMY INTEGER 08E5 D 46,48,83,229,235,303,311,328,334,336,342,413,421 P, DUPKEY INTEGER 0024 56,64,67,102 ,$ ENCD INTEGER 08F7 D 52,56$P EOF INTEGER 08E8 D 48,50,93,128,135,144,194,247,248,289,323,333,381 P( EOFDA INTEGER 0025 56,67,421(( EXIT INTEGER 0026 56,67,234($ FE INTEGER 08F8 D 52,56$( FIVE INTEGER 08C2 D 33,35,458($ FLDTYP INTEGER 084E D 23,30$( FNSCRN INTEGER 0027 56,68,351(( FOUR INTEGER 08C1 D 33,35,89 (, FSTACT INTEGER 07FD D 20,23,254,256,n I INTEGER 00B2 78,105,106,119,120,123,126,168,169,189,190,281,282,291,292,297,361,362,373,374 n( ID INTEGER 000F 56,64,78 (, IDATAM INTEGER 0065 59,73,170,183,* IDATAU INTEGER 003C D 1,4,99,111 *8 IDATCS INTEGER 0074 59,74,283,284,285,316,3758* IDATDA INTEGER 002D D 1,4,225,227** IDATDM INTEGER 0000 D 1,4,207,210*, IDATQ INTEGER 0083 59,75,191,204,( IDATSC INTEGER 000F D 1,4,79,81(* IDATTB INTEGER 004B D 1,5,218,223** IDATTR INTEGER 001E D 1,4,212,214*, IDATUT INTEGER 0092 59,76,90,158 ,$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$, INVENT INTEGER 08EE D 52,55,303,342,$ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$( INVSEL INTEGER 0028 59,68,235(| IOBUF INTEGER 07A6 D 17,20,84,86,89,92,230,231,232,233,234,251,275,277,278,280,299,300,307,318,322,340,341,344,435|V IRTN INTEGER 00B9 187,200,249,319,324,369,403,405,410,416,423,438,467,471Vt FTN 3.3B (OPT = LPC) FCOLEC PAGE 27 DATE: 08/30/84 TIME: 0049 t* IRTN2 INTEGER 00BA 249,320,323* ISTAT INTEGER 084B D 23,29,30,79,80,81,90,91,92,93,94,99,100,101,102,103,104,111,127,128,129,134,135,136,143,144,145, 151,158,170,171,172,173,174,183,191,192,193,194,195,199,204,207,209,210,212,213,214,218,219,220, 223,225,226,227,241,245,247,248,265,266,284,287,288,289,290,308,310,316,322,323,324,333,375,376, J 379,381,389,390,393,399,400,404,445,447,448J J INTEGER 00B3 78,97,108,110,111,120,121,126,153,155,157,158,180,182,183,201,203,204,206,210,214,223,227,243,246, ~ 267,293,294,300,301,302,313,315,316,325,355,356,357,359,360,361,391,394,401,449,461,463,464,466~( JDATE INTEGER 0886 D 23,33,163(T K INTEGER 00B4 86,87,118,120,124,292,293,295,297,358,362,363,364,365TL KEY INTEGER 0866 D 23,31,172,185,186,193,288,377,378,379,425,426L4 LENGTH INTEGER 084D D 23,30,455,456,457,4584$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$: LL INTEGER 00A7 59,138,139,141,146,147,149 :( LMASBL INTEGER 08C5 D 35,39,254(( LOCKED INTEGER 08E6 D 48,50,323(( LOGIN INTEGER 0029 59,68,83 ($ LS INTEGER 0848 D 23,30$6 LSUB INTEGER 00A6 59,137,140,141,148,149 6$ LTR INTEGER 0826 D 20,22$( LTR1 INTEGER 00A2 59,72,134(( LTR2 INTEGER 00A4 59,72,143(, LTRNUM INTEGER 0887 D 23,33,141,149,N LU INTEGER 0849 D 23,30,78,81,111,158,183,204,210,214,223,227,316N( MASCRN INTEGER 002A 59,69,339( MASREC INTEGER 01DD D 11,16,17,92,95,96,113,114,115,116,117,120,127,130,131,132,133,134,139,141,143,147,149,193,196,197, b 254,322,327,330,339,345,348,349,351,377,383,387,396,435,440,441,445b( MAXNCD INTEGER 086F D 23,31,132($ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$( MONTH INTEGER 0845 D 23,29,160($ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$( NAEQRL INTEGER 08BC D 23,33,133(( NAMESR INTEGER 002B 59,69,231($ NAMPOS INTEGER 08D3 D 39,44$, NAMSAV INTEGER 0871 D 23,32,280,295,$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$$ NINE INTEGER 08C4 D 33,35$B NNINPT INTEGER 00B1 65,321,353,408,415,417,437,451,469 B$ NOACT INTEGER 08F5 D 52,55$( NOFILE INTEGER 00B0 59,72,219(, NOTFND INTEGER 002C 59,69,311,336,0 NUMACT INTEGER 0854 D 23,31,175,176,1780( NUMBSR INTEGER 002D 59,69,233(< NUMLEN INTEGER 08D4 D 39,44,251,307,318,330,377,435<( NXTFUN INTEGER 08EF D 52,55,413(4 NXTYR INTEGER 0885 D 23,32,164,165,166,1674( OAACCT INTEGER 002E 59,69,435(8 OBUF INTEGER 07CF D 17,19,20,95,96,97,98,101 8$ OFAREA INTEGER 07F7 D 17,19$t FTN 3.3B (OPT = LPC) FCOLEC PAGE 28 DATE: 08/30/84 TIME: 0049 t$ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$( OLPM INTEGER 002F 59,70,127(Z ONE INTEGER 08BE D 33,35,86,89,163,251,280,295,300,307,318,330,377,435,456,458Z, OSW INTEGER 084B D 23,29,253,254,( OUTBYT INTEGER 08D5 D 39,43,44 ($ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$( PPLAG INTEGER 0880 D 23,32,131($ PPMADE INTEGER 08E2 D 39,46$0 QBREAK INTEGER 0855 D 23,31,122,123,42004 QINIT INTEGER 0031 59,70,240,242,431,4334$ RDELET INTEGER 0024 59,64$: REQBFA INTEGER 00A2 D 5,8,225,241,245,258,259,265:& REQBFB INTEGER 00D2 D 5,9,218&B REQBFD INTEGER 005A D 5,8,99,101,104,106,207,208,322,445 B REQBFF INTEGER 00BA D 5,8,90,92,127,134,143,151,169,170,172,174,190,191,193,199,282,284,286,288,308,310,374,375,379,389, & 399,404&& REQBFS INTEGER 0072 D 5,8,79 && REQBFT INTEGER 008A D 5,8,212&$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$@ RLCNT INTEGER 0032 59,70,353,354,355,359,365,455,459@< RLCNTS INTEGER 0033 59,70,362,363,365,368,456,468<L RLFLAG INTEGER 0064 59,71,248,255,262,269,270,272,371,429,430,452LH RLPTR INTEGER 0042 59,70,356,357,453,454,458,461,462,464,465H* RLWAIT INTEGER 00A1 59,130,363 *2 SAVLEN INTEGER 0060 59,278,279,280,295 2( SELECT INTEGER 0061 59,71,229($ SIX INTEGER 08C3 D 33,35$$ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$( SUPCHG INTEGER 01A0 D 9,11,441 (( SUPSRN INTEGER 0062 59,71,440($ TC INTEGER 084A D 23,30$4 THREE INTEGER 08C0 D 33,35,81,280,318,456 4$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$, TRBKFL INTEGER 08BA D 23,33,217,221,8 TRNSBF INTEGER 06BF D 11,14,17,115,116,330,331 8( TWO INTEGER 08BF D 33,35,89 ($ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$4 UFLAG INTEGER 0870 D 23,31,88,386,399,445 4( VALACT INTEGER 0706 D 11,15,176(< VALQ INTEGER 0856 D 23,31,126,185,186,248,425,426<( WRONGQ INTEGER 0063 59,68,328(D WRONKY INTEGER 08E7 D 48,50,93,128,135,144,194,323,333,381 Dt FTN 3.3B (OPT = LPC) FCOLEC PAGE 29 DATE: 08/30/84 TIME: 0049 t$ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$, YEAR INTEGER 0847 D 23,29,162,164,$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSBLK SUBROUTINE 0611 381"" CCSCST SUBROUTINE 0478 294"2 CCSGET SUBROUTINE 046F 86,120,133,293,300 2R CCSMVA SUBROUTINE 06C6 88,251,280,297,307,318,330,377,378,388,435,456,458 R& CCSPUT SUBROUTINE 0629 126,387&& CCSTIM SUBROUTINE 051A 97,331 &. CHSCRN SUBROUTINE 06DD 348,385,398,441.P CLANEX SUBROUTINE 06A3 81,85,112,159,184,205,211,215,224,228,237,317,422P: CLOSFL SUBROUTINE 0667 103,151,174,199,308,310,404:" DAAASC SUBROUTINE 056F 345"r DISPLY SUBROUTINE 069F 83,229,235,298,303,311,328,334,336,339,342,345,348,351,383,384,396,397,413,421,440 r" EACTSQ SUBROUTINE 06E3 443"" EATRNG SUBROUTINE 066D 406"F FILERR SUBROUTINE 04C9 80,111,158,183,204,210,214,223,227,316 F" GETACF SUBROUTINE 03BF 253"* GETS SUBROUTINE 0455 171,245,288*" ICALJL INTEGER.FN. 023C 163"* ICCSAD INTEGER.FN. 01B2 130,131,132*" ICHEKQ INTEGER.FN. 0508 327"" ICHENT INTEGER.FN. 0542 340"" NMSRCH SUBROUTINE 0418 274"H OPENFL SUBROUTINE 05E1 78,90,99,170,191,207,212,218,225,284,375 H" PCPROC SUBROUTINE 067E 412"" PGMIN SUBROUTINE 00C1 76 "B READR SUBROUTINE 05FB 91,127,134,143,193,241,265,322,379 B& UPDREC SUBROUTINE 06EB 399,445&& WRITER SUBROUTINE 0635 100,389&   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 5 00D7 80,83$( 10 00E0 84,93,102($ 15 00E1 84,86$$ 17 00F4 87,90$& 20 0144 104,106&& 25 014E 100,108&& 30 0152 103,110&& 35 0154 108,111&& 40 015C 106,113&t FTN 3.3B (OPT = LPC) FCOLEC PAGE 30 DATE: 08/30/84 TIME: 0049 t& 42 0176 119,125&* 45 018E 118,121,126*& 46 01EB 137,142&& 47 01F0 139,143&& 48 0211 145,150&* 49 0216 144,147,151*& 50 021B 91,153 &2 55 021F 94,129,136,145,155 2. 60 0222 122,128,135,157.* 65 0224 153,156,158*& 70 022C 151,160&& 74 0253 165,168&& 75 0256 168,169&& 77 0280 174,177&& 79 0285 176,178&& 80 0289 171,180&& 85 028C 173,182&& 90 028E 180,183&& 95 0294 178,185&& 99 02A3 187,427&& 100 02A5 187,190&& 105 02D7 194,199&& 110 02DD 192,201&& 115 02E1 195,203&& 120 02E3 201,204&& 125 02EB 187,206&* 130 02F9 209,326,450*& 145 02FF 209,212&" 150 0306 213"& 155 030C 213,216&" 157 0313 218"& 160 031F 220,223&* 165 0325 219,222,225** 170 032C 226,247,268*. 175 0332 226,229,275,410.2 180 0336 229,236,312,329,3372& 190 035B 234,237&& 200 035C 230,238&& 202 0362 238,369&& 205 036C 240,434&. 207 0378 240,245,262,273.& 210 0380 243,247&* 215 038B 247,269,271*& 220 03BB 248,253&& 222 03E1 255,258&. 225 03EF 249,256,257,262.* 230 03F5 239,264,467*& 235 0407 266,269&& 240 040F 269,270&& 250 0413 269,272&& 300 0417 231,274&& 400 0421 232,277&& 410 043B 280,282&* 420 0454 287,294,306*t FTN 3.3B (OPT = LPC) FCOLEC PAGE 31 DATE: 08/30/84 TIME: 0049 t" 425 0461 289"& 430 0493 298,304&. 440 04A8 290,296,299,305.& 450 04AE 301,307&. 460 04BB 277,289,302,310.* 485 04C3 287,313,376*& 490 04C6 290,315&2 495 04C8 313,316,392,395,4022& 500 04D0 233,318&. 510 04D7 275,309,319,438.& 515 04E2 251,322&& 520 0507 319,327&* 525 0512 260,327,330*& 530 051D 319,333&& 535 052B 333,336&& 540 052E 334,337&* 600 0530 331,338,344*6 605 0541 339,343,352,407,414,4446& 610 054A 341,353&6 615 054E 341,344,347,350,403,4426& 620 056B 344,345&* 625 0571 338,344,348*& 630 0579 344,351&& 650 0583 344,353&& 655 05AA 360,362&& 657 05B0 360,363&& 660 05BE 344,367&" 665 05C4 367"& 670 05C7 365,369&& 680 05CD 368,371&& 690 05D5 344,373&& 695 05D7 373,374&& 700 0643 381,393&& 705 064A 393,396&. 710 0662 386,390,400,403." 715 0666 403"& 730 066C 344,406&& 740 0670 344,408&* 750 067D 344,344,412*2 800 0684 238,344,367,415,4282. 805 0690 248,415,416,419.& 810 06A4 420,423&& 815 06B3 423,428&& 817 06C1 429,433&& 820 06C5 344,435&& 840 06D9 344,440&& 850 06E2 344,443&6 900 06E6 369,372,411,418,439,4456* 910 0700 447,448,451*& 915 0705 262,452&& 920 070B 452,453&& 925 0713 431,455&& 930 072D 452,461&& 935 0739 459,467&t FTN 3.3B (OPT = LPC) FCOLEC PAGE 32 DATE: 08/30/84 TIME: 0049 t& 940 073C 452,468&& 950 0743 451,469& FCOLEC 074C 1 t FTN 3.3B (OPT = LPC) GETCHF PAGE 1 DATE: 08/30/84 TIME: 0054 t^ 1 SUBROUTINE GETCHF(SDEF,XXXCHG) B5700001^^ 1 1 /B57 F CCS CCS 3.0 SL-149B5700002^^ C B5700003^^ C CYBERCREDIT SYSTEM VERSION 3 B5700004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B5700005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B5700006^^ C B5700007^^ C B5700008^^ C B5700009^^ C RETRIEVE CHANGE SCREEN FIELD ITEM INFORMATION. B5700010^^ C B5700011^^ C ROUTINE TO RETRIEVE CURSOR POSITIONING, LENGTH, FIELD TYPE AND STAB5700012^^ C ING POSITION IN FILE FOR EACH ITEM APPEARING ON A CHANGE SCREEN. B5700013^^ C CALLING SEQUENCE: B5700014^^ C CALL GETCHF(SDEF,XXXCHG) B5700015^^ C WHERE: B5700016^^ C SDEF - IS THE SCREEN DEFINITION RECORD FOR THIS CHANGE SCREEN. B5700017^^ C XXXCHG - IS THE (3 X N) + 1 ARRAY CONTAINING THE DESCRIPTION OF B5700018^^ C THE ITEMS ON THE CHANGE SCREEN. THE FIRST WORD CONTAINS THE B5700019^^ C MAXIMUM NUMBER OF ITEMS ALLOWABLE ON THIS CHANGE SCREEN. B5700020^^ C THEREAFTER THE INFORMATION OCCURS IN GROUPS OF THREE FOR EACB5700021^^ C CHANGE SCREEN ITEM. FOR ITEM 'N' ON THE CHANGE SCREEN, THE B5700022^^ C FOLLOWING WORDS CONTAIN THE FIELD DESCRIPTION: B5700023^^ C 3*N - 1 = XY CURSOR POSITIONING FOR THIS FIELD ON SCREEN.B5700024^^ C 3*N = LENGTH (BITS 15-4) AND FIELD TYPE (BITS 3-0) B5700025^^ C 3*N + 1 = STARTING POSITION OF FIELD IN FILE. B5700026^^ C THE ROUTINE SCANS THE SCREEN DEFINITION RECORD LOOKING FOR FIELD B5700027^^ C TYPE EQUAL TO EIGHT. THIS SIGNIFIES THAT THE NEXT FIELD DESCRIPTIOB5700028^^ C IS A CHANGE SCREEN ITEM. THE ITEM NUMBER IS THE NUMBER REPRESENTEDB5700029^^ C BY THE FIRST TWO BYTES OF THE CONSTANT SCREEN FIELD OF TYPE EIGHT.B5700030^^ C B5700031^ ^ 2 INTEGER SDEF(1),XXXCHG(1) B5700033^  ^ C INTIALIZE POINTER INTO SCREEN DEFINITION RECORD TO THE START OF THB5700035^^ C FIRST FIELD DESCRIPTION. B5700036^^ 3 J = 2 B5700037^^ C SET FLAG TO INDICATE CHANGE SCREEN ITEMS HAVE BEEN RETRIEVED FOR B5700038^^ C THIS SCREEN B5700039^^ 4 XXXCHG(1) = -XXXCHG(1) B5700040^ ^ C RETURN IF ALL OF SCREEN DEFINITION RECORD SCANNED. B5700042^^ 5 100 IF(SDEF(J+1).EQ.0) RETURN B5700043^^ C CHECK FIELD TYPE. IF = 8, PICK UP FIELD DESCRIPTION OF ITEM. B5700044^^ 6 IF(SDEF(J+4).EQ.8) GO TO 300 B5700045^^ C FIELD TYPE NOT = 8, CONTINUE SCANNING. B5700046^^ 7 200 J = SDEF(J+1) B5700047^^ 8 GO TO 100 B5700048^ ^ C FOUND CHANGE SCREEN ITEM. EXTRACT ITEM NUMBER OF FIELD. IF ITEM B5700050^^ C NUMBER IS LARGER THAN THE ALLOWABLE MAXIMUM, BYPASS AND CONTINUE B5700051^^ C SCANNING. B5700052^^ 9 300 I = ICCSAD(SDEF(J+5)) B5700053^t FTN 3.3B (OPT = LPC) GETCHF PAGE 2 DATE: 08/30/84 TIME: 0054 t^ 10 IF(I.GT.XXXCHG(1)) GO TO 200 B5700054^^ C ITEM NUMBER VALID. SAVE FIELD DESCRIPTION. ADVANCE POINTER TO STAB5700055^^ C OF FIELD DESCRIPTION. B5700056^^ 11 J = SDEF(J+1) B5700057^^ C CALCULATE POSITIONS IN XXXCHG TO PUT INFORMATION. B5700058^^ 12 I = 3*I - 1 B5700059^^ C SAVE XY CURSOR POSITIONING. B5700060^^ 13 XXXCHG(I) = SDEF(J) B5700061^^ C SAVE LENGH AND FIELD TYPE. B5700062^^ 14 XXXCHG(I+1) = $10*SDEF(J+2) + SDEF(J+4) B5700063^^ C SAVE STARTING POSITION IN FILE. B5700064^^ 15 XXXCHG(I+2) = SDEF(J+3) B5700065^^ C OPERATION COMPLETE. CONTINUE SCAN. B5700066^^ 16 GO TO 100 B5700067^  ^ 17 END B5700069^t FTN 3.3B (OPT = LPC) GETCHF PAGE 3 DATE: 08/30/84 TIME: 0054 t  PROGRAM LENGTH $0060 ( 96)   EXTERNALS  Q8PKUP Q8PREP ICCSAD  t FTN 3.3B (OPT = LPC) GETCHF PAGE 4 DATE: 08/30/84 TIME: 0054 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < 2 I INTEGER 0001 9,9,10,12,13,14,15 26 J INTEGER 0000 2,3,5,6,7,9,11,13,14,1566 SDEF INTEGER 7FFF 1,2,5,6,7,9,11,13,14,1560 XXXCHG INTEGER 7FFF 1,2,4,10,13,14,150   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  ICCSAD INTEGER.FN. 001B 9 Q8PKUP INTEGER.FN. 0049 Q8PREP INTEGER.FN. 0046    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < & 100 0007 4,8,16 &$ 200 0010 6,10 $" 300 0017 6,9" GETCHF 0041 1 t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 1 DATE: 08/30/84 TIME: 0055 t^ 1 INTEGER FUNCTION ICHEKQ(QUEUE) B6200001^^ 1 1 /B62 F CCS CCS 3.0 SL-149B6200002^^ C B6200003^^ C CYBERCREDIT SYSTEM VERSION 3 B6200004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B6200005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B6200006^^ C B6200007^^ C B6200008^^ C B6200009^^ C CHECK IF ACCOUNT IN ALLOWED QUEUE. B6200010^^ C B6200011^^ C FUNCTION TO DETERMINE IF AN INPUT QUEUE IS IN A COLLECTOR'S B6200012^^ C LIST OF QUEUES HE IS ALLOWED TO REVIEW ACCOUNTS FROM. RETURNED B6200013^^ C VALUES FOR THE FUNCTION ARE: B6200014^^ C = 0 COLLECTOR ALLOWED TO REVIEW ACCOUNT IN THIS QUEUE. B6200015^^ C < 0 COLLECTOR NOT ALLOWED TO REVIEW ACCOUNTS IN THIS QUEUB6200016^^ C B6200017^^ C BRING IN COMMON MACRO. B6200018^ ^ M COLMAC B6200020^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 2 DATE: 08/30/84 TIME: 0055 t^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 3 DATE: 08/30/84 TIME: 0055 t^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B6200022^^ 57 INTEGER QUEUE(1),ALL(2) B6200023^^ 58 DATA ALL/'ALL '/ B6200024^  ^ C***********************************************************************B6200026^^ C IF A BYPASS OF QUEUE CHECKING IS DESIRED, REMOVE THE COMMENT B6200027^^ C INDICATORS FROM THE FOLLOWING EXECUTABLE STATEMENTS. B6200028^^ C ICHEKQ = 0 B6200029^^ C GO TO 100 B6200030^^ C***********************************************************************B6200031^  ^ C CHECK IF ACCOUNT REVIEW CODE IS SET AND USER IS NOT A SUPERVISOR. B6200033^^ 59 IF(ARCODE.NE.$20.AND.COLTYP.LE.0) GO TO 30 B6200034^^ C CHECK ALLOWED QUEUES FOR ENTRY OF 'ALL'. A VALUE OF -1 FOR QBREAK B6200035^^ C MEANS ONLY ASSIGNED QUEUES WERE GIVEN AND NO CHECK FOR 'ALL' NEED B6200036^^ C BE PERFORMED. B6200037^^ 60 IF(QBREAK.EQ.-1) GO TO 10 B6200038^ ^ C CHECK FOR ALLOWED QUEUE VALUE OF 'ALL' B6200040^^ 61 IF(VALQ(QBREAK).NE.ALL(1)) GO TO 10 B6200041^^ 62 IF(VALQ(QBREAK+1).NE.ALL(2)) GO TO 10 B6200042^^ C ANY QUEUE VALID. SET VALID QUEUE SWITCH. B6200043^^ 63 ICHEKQ = 0 B6200044^^ 64 GO TO 100 B6200045^ ^ C CHECK FOR QUEUE BEING IN VALID QUEUE ARRAY. B6200047^^ 65 10 DO 20 I=1,8 B6200048^^ C CALCULATE POINTER TO NEXT QUEUE IN VALID QUEUE ARRAY. B6200049^^ 66 K = 2*I - 1 B6200050^^ C CHECK FOR A MATCH. B6200051^^ 67 IF(VALQ(K).NE.QUEUE(1)) GO TO 20 B6200052^^ 68 IF(VALQ(K+1).NE.QUEUE(2)) GO TO 20 B6200053^^ C MATCH FOUND, SET VALID QUEUE SWITCH. B6200054^t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 4 DATE: 08/30/84 TIME: 0055 t^ 69 ICHEKQ = 0 B6200055^^ 70 GO TO 100 B6200056^ ^ C NO MATCH, CONTINUE CHECKING WITH NEXT QUEUE. B6200058^^ 71 20 CONTINUE B6200059^ ^ C QUEUE NOT AN ALLOWED QUEUE. SET INVALID SWITCH. B6200061^^ 72 30 ICHEKQ = -1 B6200062^ ^ C RETURN. B6200064^^ 73 100 RETURN B6200065^^ 74 END B6200066^t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 5 DATE: 08/30/84 TIME: 0055 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0050 ( 80)   EXTERNALS  Q8PKUP Q8PREP  t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 6 DATE: 08/30/84 TIME: 0055 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : <  00FF (255) 0023    VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$$ ACTRET INTEGER 0851 D 23,31$$ ACTYPE INTEGER 01DD D 11,16$* ALL INTEGER 0001 57,58,61,62*( ARCODE INTEGER 026E D 11,16,59 ($ ASC00 INTEGER 08C7 D 35,39$( ASC01 INTEGER 08C8 D 35,38,39 (( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$$ BZ INTEGER 08CA D 35,39$$ CID INTEGER 0852 D 23,31$$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$( COLTYP INTEGER 0884 D 23,32,59 ($ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$$ COMPIN INTEGER 084C D 23,30$$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$$ DUMMY INTEGER 08E5 D 46,48$$ ENCD INTEGER 08F7 D 52,56$$ EOF INTEGER 08E8 D 48,50$$ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$$ FOUR INTEGER 08C1 D 33,35$t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 7 DATE: 08/30/84 TIME: 0055 t$ FSTACT INTEGER 07FD D 20,23$$ I INTEGER 0003 65,66$* ICHEKQ INTEGER 0000 1,63,69,72 *" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"" IDATTR INTEGER 001E D 1,4"$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$$ INVENT INTEGER 08EE D 52,55$$ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$$ IOBUF INTEGER 07A6 D 17,20$( ISTAT INTEGER 084B D 23,29,30 ($ JDATE INTEGER 0886 D 23,33$* K INTEGER 0004 65,66,67,68*$ KEY INTEGER 0866 D 23,31$$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$$ LMASBL INTEGER 08C5 D 35,39$$ LOCKED INTEGER 08E6 D 48,50$$ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$$ LU INTEGER 0849 D 23,30$( MASREC INTEGER 01DD D 11,16,17 ($ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$$ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$$ NINE INTEGER 08C4 D 33,35$$ NOACT INTEGER 08F5 D 52,55$$ NUMACT INTEGER 0854 D 23,31$$ NUMLEN INTEGER 08D4 D 39,44$$ NXTFUN INTEGER 08EF D 52,55$$ NXTYR INTEGER 0885 D 23,32$( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$$ ONE INTEGER 08BE D 33,35$$ OSW INTEGER 084B D 23,29$t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 8 DATE: 08/30/84 TIME: 0055 t( OUTBYT INTEGER 08D5 D 39,43,44 ($ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$. QBREAK INTEGER 0855 D 23,31,60,61,62 .* QUEUE INTEGER 7FFF 1,57,67,68 *" REQBFA INTEGER 00A2 D 5,8"" REQBFB INTEGER 00D2 D 5,9"" REQBFD INTEGER 005A D 5,8"" REQBFF INTEGER 00BA D 5,8"" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$$ SIX INTEGER 08C3 D 33,35$$ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $$ TC INTEGER 084A D 23,30$$ THREE INTEGER 08C0 D 33,35$$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$$ TRBKFL INTEGER 08BA D 23,33$( TRNSBF INTEGER 06BF D 11,14,17 ($ TWO INTEGER 08BF D 33,35$$ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$$ VALACT INTEGER 0706 D 11,15$0 VALQ INTEGER 0856 D 23,31,61,62,67,680$ WRONKY INTEGER 08E7 D 48,50$$ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$$ YEAR INTEGER 0847 D 23,29$$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8PKUP INTEGER.FN. 004A Q8PREP INTEGER.FN. 0047 t FTN 3.3B (OPT = LPC) ICHEKQ PAGE 9 DATE: 08/30/84 TIME: 0055 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < * 10 0024 60,61,62,65** 20 0039 65,67,68,71*$ 30 003E 59,72$( 100 0040 63,70,73 ( ICHEKQ 0044  t FTN 3.3B (OPT = LPC) ICHENT PAGE 1 DATE: 08/30/84 TIME: 0055 t^ 1 INTEGER FUNCTION ICHENT(ENTRY) B6300001^^ 1 1 /B63 F CCS CCS 3.0 SL-149B6300002^^ C B6300003^^ C CYBERCREDIT SYSTEM VERSION 3 B6300004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B6300005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B6300006^^ C B6300007^^ C B6300008^^ C B6300009^^ C CHECK ENTRY FOR FUNCTION CODE AND ACTION CODE. B6300010^^ C B6300011^^ C INTEGER FUNCTION TO CHECK IF AN ENTRY IS A VALID FUNCTION CODE OR B6300012^^ C VALID ACTION CODE. IF IT IS A VALID FUNCTION CODE, RETURN THE INDEB6300013^^ C OF THE CODE. IF 'ENTRY' IS AN ACTION CODE, RETURNED FUNCTIONAL VALB6300014^^ C IS 19. IF 'ENTRY' IS NOT A VALID CODE, RETURNED VALUE IS ZERO. B6300015^^ C CALLING SEQUENCE: B6300016^^ C VARIABLE = ICHENT(ENTRY) B6300017^^ C WHERE 'ENTRY' IS THE CODE TO BE SEARCHED FOR. B6300018^^ C B6300019^ ^ C BRING IN COMMON MACRO. B6300021^ ^ M COLMAC B6300023^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^t FTN 3.3B (OPT = LPC) ICHENT PAGE 2 DATE: 08/30/84 TIME: 0055 t^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^t FTN 3.3B (OPT = LPC) ICHENT PAGE 3 DATE: 08/30/84 TIME: 0055 t ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ 57 INTEGER ENTRY,VALFUN(15),NUMFUM B6300025^ ^ 58 DATA VALFUN/' DADCDFNARLCSEADSP1P2P3NQOASS'/,NUMFUN/15/ B6300027^  ^ C CHECK IF ENTRY IS A FUNCTION CODE. B6300029^^ 59 DO 10 I=1,NUMFUN B6300030^^ 60 IF(ENTRY.EQ.VALFUN(I)) GO TO 30 B6300031^^ 61 10 CONTINUE B6300032^^ C NOT A FUNCTION CODE. CHECK IF ENTRY IS AN ACTION CODE. BYPASS THISB6300033^^ C CHECK IF USER IS CLERICAL USER. B6300034^^ 62 IF(COLTYP.LT.0) GO TO 25 B6300035^^ 63 DO 20 I=1,NUMACT B6300036^^ 64 IF(ENTRY.EQ.VALACT(I)) GO TO 40 B6300037^^ 65 20 CONTINUE B6300038^^ C NOT A VALID FUNCTION OR ACTION CODE. RETURN VALUE = 0. B6300039^^ 66 25 ICHENT = 0 B6300040^^ 67 GO TO 70 B6300041^ ^ C ENTRY WAS A VALID FUNCTION CODE. RETURN INDEX. B6300043^^ 68 30 ICHENT = I B6300044^^ 69 GO TO 50 B6300045^ ^ C ENTRY WAS A VALID ACTION CODE. RETURN ITS INDEX. B6300047^^ 70 40 ICHENT = NUMFUN + I B6300048^ ^ C CHECK IF FUNCTION CODE OR ACTION CODE VALID WITH THIS COLLECTOR TYB6300050^^ C FOR CLERICAL USERS, THE ONLY VALID FUNCTIONS ARE DC(3), NA(5), CS(B6300051^^ C DS(9), NQ(13), AND OA(14) B6300052^^ 71 50 IF(COLTYP.GE.0) GO TO 60 B6300053^^ 72 IF(ICHENT.NE.3.AND.ICHENT.NE.5.AND.ICHENT.NE.7.AND.ICHENT.NE.9. B6300054^^ 72 1 AND.ICHENT.NE.13.AND.ICHENT.NE.14) ICHENT=0 B6300055^t FTN 3.3B (OPT = LPC) ICHENT PAGE 4 DATE: 08/30/84 TIME: 0055 t^ 73 GO TO 70 B6300056^ ^ C FOR COLLECTOR USER, SS(15) IS AN INVALID REQUEST. FOR SUPERVISORSB6300058^^ C NO FUNCTION IS INVALID. B6300059^^ 74 60 IF(COLTYP.EQ.0.AND.ICHENT.EQ.15) ICHENT=0 B6300060^ ^ 75 70 RETURN B6300062^^ 76 END B6300063^t FTN 3.3B (OPT = LPC) ICHENT PAGE 5 DATE: 08/30/84 TIME: 0055 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $006B ( 107)   EXTERNALS  Q8PKUP Q8PREP  t FTN 3.3B (OPT = LPC) ICHENT PAGE 6 DATE: 08/30/84 TIME: 0055 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$$ ACTRET INTEGER 0851 D 23,31$$ ACTYPE INTEGER 01DD D 11,16$$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$( ASC01 INTEGER 08C8 D 35,38,39 (( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$$ BZ INTEGER 08CA D 35,39$$ CID INTEGER 0852 D 23,31$$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$. COLTYP INTEGER 0884 D 23,32,62,71,74 .$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$$ COMPIN INTEGER 084C D 23,30$$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$$ DUMMY INTEGER 08E5 D 46,48$$ ENCD INTEGER 08F7 D 52,56$* ENTRY INTEGER 7FFF 1,57,60,64 *$ EOF INTEGER 08E8 D 48,50$$ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$$ FOUR INTEGER 08C1 D 33,35$$ FSTACT INTEGER 07FD D 20,23$0 I INTEGER 0011 58,60,63,64,68,7000 ICHENT INTEGER 0000 1,66,68,70,72,74 0" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"t FTN 3.3B (OPT = LPC) ICHENT PAGE 7 DATE: 08/30/84 TIME: 0055 t" IDATTR INTEGER 001E D 1,4"$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$$ INVENT INTEGER 08EE D 52,55$$ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$$ IOBUF INTEGER 07A6 D 17,20$( ISTAT INTEGER 084B D 23,29,30 ($ JDATE INTEGER 0886 D 23,33$$ KEY INTEGER 0866 D 23,31$$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$$ LMASBL INTEGER 08C5 D 35,39$$ LOCKED INTEGER 08E6 D 48,50$$ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$$ LU INTEGER 0849 D 23,30$( MASREC INTEGER 01DD D 11,16,17 ($ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$$ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$$ NINE INTEGER 08C4 D 33,35$$ NOACT INTEGER 08F5 D 52,55$( NUMACT INTEGER 0854 D 23,31,63 (( NUMFUN INTEGER 0010 58,59,70 ($ NUMLEN INTEGER 08D4 D 39,44$$ NXTFUN INTEGER 08EF D 52,55$$ NXTYR INTEGER 0885 D 23,32$( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$$ ONE INTEGER 08BE D 33,35$$ OSW INTEGER 084B D 23,29$( OUTBYT INTEGER 08D5 D 39,43,44 ($ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$$ QBREAK INTEGER 0855 D 23,31$" REQBFA INTEGER 00A2 D 5,8"" REQBFB INTEGER 00D2 D 5,9"t FTN 3.3B (OPT = LPC) ICHENT PAGE 8 DATE: 08/30/84 TIME: 0055 t" REQBFD INTEGER 005A D 5,8"" REQBFF INTEGER 00BA D 5,8"" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$$ SIX INTEGER 08C3 D 33,35$$ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $$ TC INTEGER 084A D 23,30$$ THREE INTEGER 08C0 D 33,35$$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$$ TRBKFL INTEGER 08BA D 23,33$( TRNSBF INTEGER 06BF D 11,14,17 ($ TWO INTEGER 08BF D 33,35$$ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$( VALACT INTEGER 0706 D 11,15,64 (( VALFUN INTEGER 0001 57,58,60 ($ VALQ INTEGER 0856 D 23,31$$ WRONKY INTEGER 08E7 D 48,50$$ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$$ YEAR INTEGER 0847 D 23,29$$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8PKUP INTEGER.FN. 0067 Q8PREP INTEGER.FN. 0064 t FTN 3.3B (OPT = LPC) ICHENT PAGE 9 DATE: 08/30/84 TIME: 0055 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 10 001D 58,61$$ 20 0030 62,65$$ 25 0032 62,66$$ 30 0035 60,68$$ 40 0038 64,70$$ 50 003B 68,71$$ 60 0055 71,74$( 70 005D 66,73,75 ( ICHENT 0061  t FTN 3.3B (OPT = LPC) NMSRCH PAGE 1 DATE: 08/30/84 TIME: 0056 t^ 1 SUBROUTINE NMSRCH B8300001^^ 1 1 /B83 F CCS CCS 3.0 SL-149B8300002^^ C B8300003^^ C CYBERCREDIT SYSTEM VERSION 3 B8300004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B8300005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B8300006^^ C B8300007^^ C B8300008^^ C B8300009^^ C PERFORM NAME SEARCH ON BORROWER'S NAME. B8300010^^ C B8300011^^ C ROUTINE TO SEARCH THE DELINQUENT MASTER FILE FOR A SELECTED NAME. B8300012^^ C THE MASTER FILE HAS TWO KEYS, THE SECONDARY BEING THE FIRST SIX B8300013^^ C CHARACTERS OF THE BORROWER'S NAME. AN INITIAL 'READR' REQUEST IS DB8300014^^ C TO POSITION TO THE START OF THOSE RECORDS WITH THE CORRECT KEY, B8300015^^ C THEN SUCCESSIVE 'GETS' REQUESTS ARE PERFORMED TO EXTRACT ALL B8300016^^ C ACCOUNTS MATCHING THE INPUT NAME. AS THE ACCOUNTS ARE FOUND, ONE B8300017^^ C LINE FOR EACH IS DISPLAYED CONTAINING THE ACCOUNT NAME, ADDRESS LIB8300018^^ C ONE, AND THE ACCOUNT NUMBER. A MAXIMUM OF NINE NAMES ARE DISPLAYEDB8300019^^ C PER SCREEN. A PROMPT IS THEN ISSUED FOR SELECTION OF AN ACCOUNT B8300020^^ C LISTED ON THE SCREEN, DISCONTINUATION OF SEARCH, OR CONTINUATION B8300021^^ C OF SEARCH. IF NO NAME MATCHING THE REQUESTED NAME IS FOUND, A B8300022^^ C MESSAGE TO THAT EFFECT IS OUTPUT AND CONTROL RETURNED TO CALLER. B8300023^^ C THE RETURN INDICATORS FOR NAME FOUND OR NOT FOUND IS THE ACCOUNT B8300024^^ C NUMBER ARRAY. IF THE DESIRED ACCOUNT IS FOUND, THE ACCOUNT NUMBER B8300025^^ C IS SAVED IN THE ACCOUNT NUMBER ARRAY. IF THE DESIRED ACCOUNT IS NOB8300026^^ C FOUND, THE FIRST POSITION OF THE ACCOUNT NUMBER ARRAY IS SET TO -1B8300027^^ C UPON COMPLETION OF SEARCH, AN 'END OF SEARCH' MESSAGE IS OUTPUT. B8300028^^ C B8300029^^ C RETRIEVE THE COMMON MACRO. B8300030^ ^ M COLMAC B8300032^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^t FTN 3.3B (OPT = LPC) NMSRCH PAGE 2 DATE: 08/30/84 TIME: 0056 t^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^t FTN 3.3B (OPT = LPC) NMSRCH PAGE 3 DATE: 08/30/84 TIME: 0056 t ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B8300034^^ 57 INTEGER ACTNPS,AD1PS,ADLEN,ADPOS,ENDLEN,ENDMSG(9),KEYLEN B8300035^^ 58 INTEGER LF,NAMLEN,SERMES,SAVLEN,SAVW13 B8300036^^ 59 DATA ACTNPS/63/,AD1PS/48/,ADLEN/27/,ADPOS/35/,ENDLEN/60/,LF/$A00/ B8300037^^ 60 DATA NAMLEN/30/,SERMES/66/ B8300038^^ 61 DATA ENDMSG/$D0D,' END OF SEARCH'/ B8300039^^ 62 DATA ENDLEN/18/ B8300040^t FTN 3.3B (OPT = LPC) NMSRCH PAGE 4 DATE: 08/30/84 TIME: 0056 t^ C TWEAK FILE MANAGER REQUEST BUFFER FOR DELINQUENT MASTER FILE TO B8300042^^ C ALLOW RETRIEVAL BY KEY 2, THE FIRST SIX CHARACTERS OF BORROWER'S B8300043^^ C NAME. B8300044^^ 63 REQBFD(14) = 2 B8300045^ ^ C SAVE CURRENT VALUE OF WORD 13 OF REQUEST BUFFER, THEN CLEAR B8300047^^ C RECORD LOCKING FLAG. B8300048^^ 64 SAVW13 = REQBFD(13) B8300049^^ 65 REQBFD(13) = AND($7FFF,REQBFD(13)) B8300050^ ^ C INTIALIZE RETURN VALUE FOR CONTINUE SEARCH REQUEST. B8300052^^ 66 ASSIGN 190 TO IRTN B8300053^ ^ C GET LENGTH OF INPUT NAME TO SEARCH FOR. B8300055^^ 67 SAVLEN = IOBUF(41) - 2 B8300056^^ C LENGTH CANNOT BE GREATER THAN 30. B8300057^^ 68 IF(SAVLEN.GT.30) SAVLEN = 30 B8300058^^ C IF LENGTH IS ZERO, RETURN NAME NOT FOUND. B8300059^^ 69 IF(SAVLEN.EQ.0) GO TO 850 B8300060^ ^ C INITIALIZE OUTPUT COUNTER. B8300062^^ 70 N = 0 B8300063^^ C BLANK KEY POSITIONS OF NAME SAVE ARRAY. B8300064^^ 71 CALL CCSBLK(NAMSAV,SIX) B8300065^^ C SAVE NAME. B8300066^^ 72 CALL CCSMVA(IOBUF,THREE,SAVLEN,NAMSAV,ONE,SAVLEN) B8300067^^ C SAVE FILE KEY TO PERFORM READR REQUEST WITH. B8300068^^ 73 DO 50 I=1,3 B8300069^^ 74 50 KEY(I) = NAMSAV(I) B8300070^ ^ C SET LENGTH OF KEY FOR LATER COMPARISONS. B8300072^^ 75 KEYLEN = 6 B8300073^^ C IF LENGTH IS LESS THAN SIX, THE KEYLEN IS SAVLEN. B8300074^^ 76 IF(SAVLEN.LT.6) KEYLEN = SAVLEN B8300075^ ^ C CLEAR SCREEN. B8300077^^ 77 CALL WTREAD(LU,XYN,CLRSCR,ONE,ZERO,ZERO,ZERO,TC) B8300078^  ^ C PERFORM INITIAL READR. B8300080^^ 78 CALL READR(REQBFD,MASREC,KEY,ISTAT) B8300081^^ C CHECK FOR END OF FILE TERMINATING SEARCH. B8300082^^ 79 IF(AND(ISTAT,EOF).EQ.EOF) GO TO 115 B8300083^^ C CHECK FOR OTHER ERROR B8300084^^ 80 70 IF(ISTAT.LT.0) GO TO 800 B8300085^t FTN 3.3B (OPT = LPC) NMSRCH PAGE 5 DATE: 08/30/84 TIME: 0056 t^ C CHECK FOR MATCH BY KEYLEN CHARACTERS. SEARCH IS COMPLETE IF THE B8300087^^ C RETRIEVED NAME IS GREATER THAN THE NAME IN SEARCH FOR KEYLEN CHAR-B8300088^^ C ACTERS. B8300089^^ C***************************************************************138*A008B8300090^^ 81 100 CALL CCSCST(KEY,ONE,KEYLEN,NAMSAV,ONE,KEYLEN,COMPIN) B8300091^^ C***************************************************************138*A008B8300092^^ 82 IF(COMPIN.LE.0) GO TO 120 B8300093^^ C END OF SEARCH. SET FLAG AND DISPLAY END OF SEARCH MESSAGE. B8300094^^ 83 115 N = -AND($F,N) B8300095^^ 84 CALL WTREAD(LU,XYN,ENDMSG,ENDLEN,ZERO,ZERO,ZERO,TC) B8300096^^ C SET RETURN VALUE FOR CONTINUE SEARCH REQUEST TO AN INVALID REQUESTB8300097^^ 85 ASSIGN 170 TO IRTN B8300098^^ 86 GO TO 160 B8300099^ ^ C COMPARISON BY KEYLEN OK. CHECK FOR MATCH BY ENTIRE LENGTH OF INPUTB8300101^^ C NAME. BYPASS THIS CHECK IF KEYLEN IS THE LENGTH OF INPUT NAME. B8300102^^ C***************************************************************138*A008B8300103^^ 87 120 CALL CCSCST(MASREC,NAMPOS,SAVLEN,NAMSAV,ONE,SAVLEN,COMPIN) B8300104^^ C***************************************************************138*A008B8300105^^ 88 IF(COMPIN.NE.0) GO TO 150 B8300106^ ^ C ACCOUNT MATCHING NAME FOUND. BLANK OUTPUT BUFFER AND MOVE IN NAME,B8300108^^ C ADDRESS, AND ACCOUNT NUMBER FOR DISPLAY. B8300109^^ 89 140 CALL CCSBLK(OBUF,OUTBYT) B8300110^^ 90 CALL CCSMVA(MASREC,NAMPOS,NAMLEN,OBUF,FOUR,NAMLEN) B8300111^^ 91 CALL CCSMVA(MASREC,AD1PS,ADLEN,OBUF,ADPOS,ADLEN) B8300112^^ 92 CALL CCSMVA(MASREC,ONE,NUMLEN,OBUF,ACTNPS,NUMLEN) B8300113^^ C PLACE ITEM NUMBER IN FRONT OF LINE. B8300114^^ 93 N = N + 1 B8300115^^ 94 OBUF(1) = LF + $30 + N B8300116^^ C PUT LINE FEED/CARRIAGE RETURN AT END OF OBUF. B8300117^^ 95 OBUF(40) = LF + $D B8300118^^ C OUTPUT LINE DISPLAYING THIS ACCOUNT. B8300119^^ 96 CALL WTREAD(LU,XYN,OBUF,OUTBYT,ZERO,ZERO,ZERO,TC) B8300120^ ^ C SAVE ACCOUNT NUMBER. B8300122^^ 97 K = 16*(N-1) + 1 B8300123^^ 98 CALL CCSMVA(MASREC,ONE,NUMLEN,COSREC,K,NUMLEN) B8300124^ ^ C CHECK IF SCREEN FULL. B8300126^^ 99 IF(N.GE.9) GO TO 155 B8300127^ ^ C SCREEN NOT FULL. RETRIEVE NEXT NAME. B8300129^^ 100 150 CALL GETS(REQBFD,MASREC,KEY,ISTAT) B8300130^^ C CHECK FOR END-OF-FILE INDICATING END OF SEARCH. B8300131^^ 101 IF(AND(ISTAT,EOF).EQ.EOF) GO TO 115 B8300132^^ C CHECK FOR ERROR OTHER THAN RECORD LOCKED. B8300133^^ 102 IF(ISTAT.LT.0.AND.AND(ISTAT,LOCKED).NE.LOCKED) GO TO 810 B8300134^^ C NO ERROR. CHECK RETRIEVED NAME. B8300135^^ 103 GO TO 100 B8300136^  ^ C SCREEN FULL. OUTPUT PROMPT FOR ACTION DESIRED. SET 'N' TO ALLOW ANB8300138^^ C ACCOUNT SELECTION BY INDEX NUMBER. B8300139^t FTN 3.3B (OPT = LPC) NMSRCH PAGE 6 DATE: 08/30/84 TIME: 0056 t^ 104 155 N = -9 B8300140^^ 105 160 CALL DISPLY(SERMES,DUMMY) B8300141^^ C CHECK FOR A CARRIAGE RETURN TO CONTINUE SEARCH. B8300142^^ 106 165 IF(IOBUF(41).EQ.0) GO TO IRTN B8300143^^ C CHECK FIRST CHARACTER. B8300144^^ 107 CALL CCSGET(IOBUF,ONE,J) B8300145^^ C CHECK FOR A 'D', DISCONTINE SEARCH. B8300146^^ 108 IF(J.EQ.$44) GO TO 850 B8300147^^ C CHECK FOR A NUMBER ($30-$39) INDICATING ACCOUNT SELECTION. B8300148^^ 109 IF(J.GE.$31.AND.J.LE.$39) GO TO 180 B8300149^ ^ C INVALID RESPONSE. REPORT ERROR AND ASK FOR REENTRY. B8300151^^ 110 170 CALL DISPLY(INVENT,DUMMY) B8300152^^ 111 GO TO 165 B8300153^  ^ C NAME FOUND AND SELECTED. MOVE ACCOUNT NUMBER TO IOBUF AND RETURN. B8300155^^ C VERIFY SELECTED NUMBER HAS AN ACCOUNT NUMBER ASSOCIATED WITH B8300156^^ C IT ON THE SCREEN. B8300157^^ 112 180 J = AND($F,J) B8300158^^ 113 IF(J+N.GT.0) GO TO 170 B8300159^^ C SELECTED NUMBER OK, FIND AND MOVE ACCOUNT NUMBER. B8300160^^ 114 J = 16*(J-1) + 1 B8300161^^ 115 CALL CCSMVA(COSREC,J,NUMLEN,IOBUF,ONE,NUMLEN) B8300162^^ 116 GO TO 900 B8300163^ ^ C CONTINUE SEARCH. B8300165^^ C SEARCH STILL ACTIVE, RESET N, CLEAR SCREEN, AND GET NEXT ACCOUNT. B8300166^^ 117 190 N = 0 B8300167^^ 118 CALL WTREAD(LU,XYN,CLRSCR,ONE,ZERO,ZERO,ZERO,TC) B8300168^^ 119 GO TO 150 B8300169^t FTN 3.3B (OPT = LPC) NMSRCH PAGE 7 DATE: 08/30/84 TIME: 0056 t^ C B8300171^^ C FILE ERRORS. B8300172^^ C B8300173^ ^ C READR REQUEST. B8300175^^ 120 800 J = 13 B8300176^^ 121 GO TO 820 B8300177^ ^ C GETS REQUEST. B8300179^^ 122 810 J = 14 B8300180^^ 123 820 CALL FILERR(IDATDM,J,ISTAT,LU) B8300181^^ C FILE ERRORS ARE FATAL, CLOSE ALL FILES AND EXIT. B8300182^^ 124 CALL CLANEX B8300183^  ^ C ACCOUNT NAME NOT FOUND. RETURN WITH INDICATOR SET TO -1. B8300185^^ 125 850 IOBUF(1) = -1 B8300186^  ^ C NORMAL EXIT. RESET FILE MANAGER REQUEST BUFFER TO ALLOW RETRIEVAL B8300188^^ C BY KEY 1, ACCOUNT NUMBER. B8300189^^ 126 900 REQBFD(14) = 1 B8300190^^ C RESET WORD 13 OF REQUEST BUFFER FOR RECORD LOCKING. B8300191^^ 127 REQBFD(13) = SAVW13 B8300192^^ 128 RETURN B8300193^^ 129 END B8300194^t FTN 3.3B (OPT = LPC) NMSRCH PAGE 8 DATE: 08/30/84 TIME: 0056 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $015B ( 347)   EXTERNALS 2 CCSBLK CCSMVA WTREAD READR CCSCST GETS DISPLY 2 CCSGET FILERR CLANEX  t FTN 3.3B (OPT = LPC) NMSRCH PAGE 9 DATE: 08/30/84 TIME: 0056 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < & 000F (15) 0018 83,112 &" 7FFF (32767) 0014 65 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$( ACTNPS INTEGER 0000 56,59,92 ($ ACTRET INTEGER 0851 D 23,31$$ ACTYPE INTEGER 01DD D 11,16$( AD1PS INTEGER 0001 56,59,91 (( ADLEN INTEGER 0002 56,59,91 (( ADPOS INTEGER 0003 56,59,91 (4 AND INTR.FN. 7FFF 65,79,83,101,102,112 4$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$( ASC01 INTEGER 08C8 D 35,38,39 (( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$$ BZ INTEGER 08CA D 35,39$$ CID INTEGER 0852 D 23,31$, CLRSCR INTEGER 08ED D 50,52,77,118 ,$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$0 COMPIN INTEGER 084C D 23,30,81,82,87,880$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$. COSREC INTEGER 05C5 D 11,13,17,98,115.$ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$, DUMMY INTEGER 08E5 D 46,48,105,110,$ ENCD INTEGER 08F7 D 52,56$t FTN 3.3B (OPT = LPC) NMSRCH PAGE 10 DATE: 08/30/84 TIME: 0056 t* ENDLEN INTEGER 0004 56,59,62,84*( ENDMSG INTEGER 0005 56,61,84 (, EOF INTEGER 08E8 D 48,50,79,101 ,$ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$( FOUR INTEGER 08C1 D 33,35,90 ($ FSTACT INTEGER 07FD D 20,23$$ I INTEGER 0017 72,74$" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"& IDATDM INTEGER 0000 D 1,4,123&" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"" IDATTR INTEGER 001E D 1,4"$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$( INVENT INTEGER 08EE D 52,55,110($ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$: IOBUF INTEGER 07A6 D 17,20,67,72,106,107,115,125:( IRTN INTEGER 0015 65,85,106(@ ISTAT INTEGER 084B D 23,29,30,78,79,80,100,101,102,123@F J INTEGER 001A 107,108,109,112,113,114,115,120,122,123F$ JDATE INTEGER 0886 D 23,33$( K INTEGER 0019 96,97,98 (2 KEY INTEGER 0866 D 23,31,74,78,81,100 2* KEYLEN INTEGER 000E 56,75,76,81*$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$* LF INTEGER 000F 56,59,94,95*$ LINSTR INTEGER 0850 D 23,30$$ LMASBL INTEGER 08C5 D 35,39$( LOCKED INTEGER 08E6 D 48,50,102($ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$6 LU INTEGER 0849 D 23,30,77,84,96,118,123 6> MASREC INTEGER 01DD D 11,16,17,78,87,90,91,92,98,100 >$ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$@ N INTEGER 0016 69,70,83,93,94,97,99,104,113,117 @$ NAEQRL INTEGER 08BC D 23,33$( NAMLEN INTEGER 0010 56,60,90 (* NAMPOS INTEGER 08D3 D 39,44,87,90*4 NAMSAV INTEGER 0871 D 23,32,71,72,74,81,87 4$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$4 NAMSAV INTEGER 0871 D 23,32,71,72,74,81,87 4$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$t FTN 3.3B (OPT = LPC) NMSRCH PAGE 11 DATE: 08/30/84 TIME: 0056 t$ NINE INTEGER 08C4 D 33,35$$ NOACT INTEGER 08F5 D 52,55$$ NUMACT INTEGER 0854 D 23,31$. NUMLEN INTEGER 08D4 D 39,44,92,98,115.$ NXTFUN INTEGER 08EF D 52,55$$ NXTYR INTEGER 0885 D 23,32$< OBUF INTEGER 07CF D 17,19,20,89,90,91,92,94,95,96<$ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$B ONE INTEGER 08BE D 33,35,72,77,81,87,92,98,107,115,118B$ OSW INTEGER 084B D 23,29$. OUTBYT INTEGER 08D5 D 39,43,44,89,96 .$ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$$ QBREAK INTEGER 0855 D 23,31$" REQBFA INTEGER 00A2 D 5,8"" REQBFB INTEGER 00D2 D 5,9": REQBFD INTEGER 005A D 5,8,63,64,65,78,100,126,127:" REQBFF INTEGER 00BA D 5,8"" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$4 SAVLEN INTEGER 0012 56,67,68,69,72,76,87 4( SAVW13 INTEGER 0013 56,64,127(( SERMES INTEGER 0011 56,60,105(( SIX INTEGER 08C3 D 33,35,71 ($ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $2 TC INTEGER 084A D 23,30,77,84,96,118 2( THREE INTEGER 08C0 D 33,35,72 ($ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$$ TRBKFL INTEGER 08BA D 23,33$( TRNSBF INTEGER 06BF D 11,14,17 ($ TWO INTEGER 08BF D 33,35$$ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$$ UFLAG INTEGER 0870 D 23,31$$ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$$ WRONKY INTEGER 08E7 D 48,50$2 XYN INTEGER 08EC D 50,52,77,84,96,118 2$ XYWORD INTEGER 08E9 D 50,52$t FTN 3.3B (OPT = LPC) NMSRCH PAGE 12 DATE: 08/30/84 TIME: 0056 t$ YEAR INTEGER 0847 D 23,29$2 ZERO INTEGER 08BD D 33,35,77,84,96,118 2   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ CCSBLK SUBROUTINE 0038 70,89$$ CCSCST SUBROUTINE 0074 80,87$" CCSGET SUBROUTINE 0106 106"2 CCSMVA SUBROUTINE 00D4 71,90,91,92,98,115 2" CLANEX SUBROUTINE 0148 123"& DISPLY SUBROUTINE 00FC 105,110&" FILERR SUBROUTINE 0142 123"" GETS SUBROUTINE 00E0 100"" READR SUBROUTINE 0061 77 ", WTREAD SUBROUTINE 0132 76,84,96,118 ,   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 50 0045 72,74$" 70 006E 79 "& 100 0073 80,103 &( 115 0082 79,83,101($ 120 0094 82,87$" 140 00A0 88 "* 150 00DF 88,100,119 *& 155 00F9 99,104 && 160 00FB 85,105 && 165 00FF 105,111&* 170 0115 84,110,113 *& 180 0119 109,112&& 190 012E 65,117 && 800 013C 80,120 && 810 013F 102,122&& 820 0141 120,123&* 850 0149 69,108,125 *& 900 014C 115,126& NMSRCH 0156 1 t FTN 3.3B (OPT = LPC) PCPROC PAGE 1 DATE: 08/30/84 TIME: 0057 t^ 1 SUBROUTINE PCPROC B8600001^^ 1 1 /B86 F CCS CCS 3.0 SL-149B8600002^^ C B8600003^^ C CYBERCREDIT SYSTEM VERSION 3 B8600004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B8600005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B8600006^^ C B8600007^^ C B8600008^^ C B8600009^^ C PERMANENT COMMENT CHANGE REQUEST PROCESSOR. B8600010^^ C B8600011^^ C ROUTINE TO SAVE THE NEW PERMANENT COMMENT IN THE MASTER RECORD ANDB8600012^^ C THE NEW AND THE OLD PERMANENT COMMENT IN THE TRANSACTION FILE. B8600013^ ^ C SET STARTING POSITION IN FILE OF PERMANENT COMMENTS, LENGTH OF B8600015^^ C PERMANENT COMMENTS, AND TRANSACTION TYPE UPDATE CODE BIAS FOR B8600016^^ C PERMANENT COMMENT TRANSACTIONS. B8600017^  ^ C MOVE IN COMMON MACRO. B8600019^ ^ M COLMAC B8600021^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^t FTN 3.3B (OPT = LPC) PCPROC PAGE 2 DATE: 08/30/84 TIME: 0057 t^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ t FTN 3.3B (OPT = LPC) PCPROC PAGE 3 DATE: 08/30/84 TIME: 0057 t^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. B8600023^^ 57 INTEGER PCSTRT,PCLEN,PCTRAN B8600024^^ 58 DATA PCSTRT/667/,PCLEN/30/,PCTRAN/'91'/ B8600025^  ^ C DETERMINE WHICH PERMANENT COMMENT TO CHANGE. B8600027^^ 59 J = IOBUF(1) - 10 B8600028^^ C CALCULATE POINTER TO THIS PERMANENT COMMENT. B8600029^^ 60 I = 30*J + PCSTRT B8600030^^ C SAVE OLD PERMANENT COMMENT IN TRANSACTION BUFFER. B8600031^^ 61 CALL CCSMVA(MASREC,I,PCLEN,TRNSBF,OLDPOS,PCLEN) B8600032^^ C SAVE NEW PERMANENT COMMENT IN TRANSACTION FILE. B8600033^^ 62 CALL CCSMVA(IOBUF,FOUR,PCLEN,TRNSBF,NEWPOS,PCLEN) B8600034^^ C SAVE NEW PERMANENT COMMENT IN MASTER RECORD. B8600035^^ 63 CALL CCSMVA(IOBUF,FOUR,PCLEN,MASREC,I,PCLEN) B8600036^ ^ C SET RECORD TYPE FOR TRANSACTION FILE. B8600038^^ 64 TRNSBF(15) = TYPE2 B8600039^^ C SET TYPE UPDATE. B8600040^^ 65 TRNSBF(16) = PCTRAN + J B8600041^^ C SAVE THE TRANSACTION. B8600042^^ 66 CALL SAVTRN B8600043^ ^ C RETURN. B8600045^^ 67 RETURN B8600046^^ 68 END B8600047^t FTN 3.3B (OPT = LPC) PCPROC PAGE 4 DATE: 08/30/84 TIME: 0057 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0034 ( 52)   EXTERNALS  CCSMVA SAVTRN  t FTN 3.3B (OPT = LPC) PCPROC PAGE 5 DATE: 08/30/84 TIME: 0057 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$$ ACTRET INTEGER 0851 D 23,31$$ ACTYPE INTEGER 01DD D 11,16$$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$( ASC01 INTEGER 08C8 D 35,38,39 (( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$$ BZ INTEGER 08CA D 35,39$$ CID INTEGER 0852 D 23,31$$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$$ COMPIN INTEGER 084C D 23,30$$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$$ DUMMY INTEGER 08E5 D 46,48$$ ENCD INTEGER 08F7 D 52,56$$ EOF INTEGER 08E8 D 48,50$$ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$* FOUR INTEGER 08C1 D 33,35,62,63*$ FSTACT INTEGER 07FD D 20,23$* I INTEGER 0004 59,60,61,63*" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"" IDATTB INTEGER 004B D 1,5"" IDATTR INTEGER 001E D 1,4"$ INPBYT INTEGER 08D5 D 39,43$t FTN 3.3B (OPT = LPC) PCPROC PAGE 6 DATE: 08/30/84 TIME: 0057 t$ INVCOM INTEGER 08F6 D 52,56$$ INVENT INTEGER 08EE D 52,55$$ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$. IOBUF INTEGER 07A6 D 17,20,59,62,63 .( ISTAT INTEGER 084B D 23,29,30 (* J INTEGER 0003 58,59,60,65*$ JDATE INTEGER 0886 D 23,33$$ KEY INTEGER 0866 D 23,31$$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$$ LMASBL INTEGER 08C5 D 35,39$$ LOCKED INTEGER 08E6 D 48,50$$ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$$ LU INTEGER 0849 D 23,30$. MASREC INTEGER 01DD D 11,16,17,61,63 .$ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$$ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$( NEWPOS INTEGER 08D2 D 39,44,62 ($ NINE INTEGER 08C4 D 33,35$$ NOACT INTEGER 08F5 D 52,55$$ NUMACT INTEGER 0854 D 23,31$$ NUMLEN INTEGER 08D4 D 39,44$$ NXTFUN INTEGER 08EF D 52,55$$ NXTYR INTEGER 0885 D 23,32$( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$( OLDPOS INTEGER 08D1 D 39,44,61 ($ ONE INTEGER 08BE D 33,35$$ OSW INTEGER 084B D 23,29$( OUTBYT INTEGER 08D5 D 39,43,44 (. PCLEN INTEGER 0001 56,58,61,62,63 .( PCSTRT INTEGER 0000 56,58,60 (( PCTRAN INTEGER 0002 56,58,65 ($ PP INTEGER 08CD D 35,39$$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$$ QBREAK INTEGER 0855 D 23,31$" REQBFA INTEGER 00A2 D 5,8"t FTN 3.3B (OPT = LPC) PCPROC PAGE 7 DATE: 08/30/84 TIME: 0057 t" REQBFB INTEGER 00D2 D 5,9"" REQBFD INTEGER 005A D 5,8"" REQBFF INTEGER 00BA D 5,8"" REQBFS INTEGER 0072 D 5,8"" REQBFT INTEGER 008A D 5,8"$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$$ SIX INTEGER 08C3 D 33,35$$ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $$ TC INTEGER 084A D 23,30$$ THREE INTEGER 08C0 D 33,35$$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$$ TRBKFL INTEGER 08BA D 23,33$4 TRNSBF INTEGER 06BF D 11,14,17,61,62,64,65 4$ TWO INTEGER 08BF D 33,35$$ TYPE1 INTEGER 08C8 D 35,38$( TYPE2 INTEGER 08C9 D 35,39,64 ($ UFLAG INTEGER 0870 D 23,31$$ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$$ WRONKY INTEGER 08E7 D 48,50$$ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$$ YEAR INTEGER 0847 D 23,29$$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( CCSMVA SUBROUTINE 000E 60,62,63 (" SAVTRN SUBROUTINE 002C 65 "t FTN 3.3B (OPT = LPC) PCPROC PAGE 8 DATE: 08/30/84 TIME: 0057 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  PCPROC 0030 1 t FTN 3.3B (OPT = LPC) PIKAMT PAGE 1 DATE: 08/30/84 TIME: 0057 t^ 1 SUBROUTINE PIKAMT(INBUF,ISTR,OBUF,OSTR) C0400001^^ 1 1 /C04 F CCS CCS 3.0 SL-149C0400002^^ C C0400003^^ C CYBERCREDIT SYSTEM VERSION 3 C0400004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0400005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C0400006^^ C C0400007^^ C C0400008^^ C C0400009^^ C EDIT INPUT AMOUNT FIELD. C0400010^^ C C0400011^^ C ROUTINE TO CONVERT AN INPUT AMOUNT INTO A STANDARD NINE DIGIT AMOUC0400012^^ C FIELD. THIS ROUTINE ALLOWS VARIABLE FORM INPUT OF DOLLAR AMOUNTS. C0400013^^ C IF A DECIMAL POINT IS ENTERED, DOLLARS AND CENTS POSITIONS ARE KEYC0400014^^ C OFF THE POSITION OF THE DECIMAL POINT. ABSENCE OF A DECIMAL POINT C0400015^^ C IMPLIES THE AMOUNT ENTERED REPRESENTS DOLLARS, UP TO AN AMOUNT SEVC0400016^^ C DIGITS LONG. C0400017^^ C C0400018^^ C CALLING SEQUENCE: C0400019^^ C CALL PIKAMT(INBUF,ISTR,OBUF,OSTR) C0400020^^ C WHERE: C0400021^^ C INBUF = ARRAY INPUT AMOUNT IS FROM. C0400022^^ C ISTR = STARTING POSITION IN INPUT ARRAY FOR AMOUNT. C0400023^^ C OBUF = OUTPUT ARRAY TO RECEIVE THE STANDARD NINE DIGIT FIELD. C0400024^^ C OSTR = STARTING POSITION IN OBUF TO PUT THE NINE DIGIT FIELD. C0400025^^ C C0400026^ ^ 2 INTEGER INBUF,ISTR,OBUF,OSTR C0400028^  ^ C ZERO FILL OUTPUT FIELD. C0400030^^ 3 J = $30 C0400031^^ 4 L = OSTR + 8 C0400032^^ 5 DO 10 I=OSTR,L C0400033^^ 6 10 CALL CCSPUT(J,I,OBUF) C0400034^  ^ C SCAN INPUT BUFFER FOR A DECIMAL POINT OR BLANK. C0400036^^ 7 L = ISTR + 8 C0400037^^ 8 DO 20 I=ISTR,L C0400038^^ 9 CALL CCSGET(INBUF,I,J) C0400039^^ 10 IF(J.EQ.$20) GO TO 30 C0400040^^ 11 IF(J.EQ.$2E) GO TO 35 C0400041^^ C IF ENTRY NOT A BLANK, DECIMAL POINT, OR A NUMBER, FILL OUTPUT C0400042^^ C BUFFER WITH NINES. C0400043^^ 12 IF(J.LT.$30.OR.J.GE.$3A) GO TO 50 C0400044^^ 13 20 CONTINUE C0400045^ ^ C NO BLANK OR DECIMAL POINT ENCOUNTERED. MOVE FIRST SEVEN DIGITS AS C0400047^^ C A DOLLAR FIELD. C0400048^^ 14 I = I - 3 C0400049^^ 15 GO TO 45 C0400050^  t FTN 3.3B (OPT = LPC) PIKAMT PAGE 2 DATE: 08/30/84 TIME: 0057 t^ C FOUND BLANK. MOVE IN ALL PLACES TO THE LEFT AS A DOLLAR AMOUNT. C0400052^^ 16 30 I = I - 1 C0400053^^ 17 GO TO 45 C0400054^  ^ C FOUND DECIMAL POINT, MOVE IN NEXT TWO CHARACTERS AS CENTS IF THEY C0400056^^ C ARE NUMERIC. C0400057^^ 18 35 I = I - 1 C0400058^^ 19 DO 40 L=2,3 C0400059^^ 20 CALL CCSGET(INBUF,I+L,J) C0400060^^ C IF CHARACTER IS NOT BLANK AND NOT NUMERIC, FILL OUTPUT BUFFER WITHC0400061^^ C NINES. IF BLANK, END OF MOVE. C0400062^^ 21 IF(J.EQ.$20) GO TO 45 C0400063^^ 22 IF(J.LT.$30.OR.J.GE.$3A) GO TO 50 C0400064^^ 23 CALL CCSPUT(J,OSTR+5+L,OBUF) C0400065^^ 24 40 CONTINUE C0400066^  ^ C MOVE IN DOLLAR FIELD. CALCULATE LENGTH OF ENTERED DOLLAR FIELD. C0400068^^ 25 45 I = I - ISTR + 1 C0400069^^ C NO FIELD PRESENT IF LENGTH NOT POSITIVE INTEGER. C0400070^^ 26 IF(I.LE.0) GO TO 50 C0400071^^ C FIELD PRESENT, CALCULATE STARTING POSITION IN OBUF FOR FIELD. C0400072^^ 27 L = 7 - I + OSTR C0400073^^ 28 CALL CCSMVA(INBUF,ISTR,I,OBUF,L,I) C0400074^^ 29 GO TO 90 C0400075^ ^ C ERROR, NOT ALL CHARACTERS NUMERIC. RETURN OUTPUT BUFFER FILLED WITC0400077^^ C NINES. C0400078^^ 30 50 J = $39 C0400079^^ 31 L = OSTR + 8 C0400080^^ 32 DO 60 I=OSTR,L C0400081^^ 33 60 CALL CCSPUT(J,I,OBUF) C0400082^  ^ C OPERATION COMPLETE, RETURN. C0400084^^ 34 90 RETURN C0400085^^ 35 END C0400086^t FTN 3.3B (OPT = LPC) PIKAMT PAGE 3 DATE: 08/30/84 TIME: 0057 t  PROGRAM LENGTH $00AA ( 170)   EXTERNALS & Q8PKUP Q8PREP CCSPUT CCSGET CCSMVA & t FTN 3.3B (OPT = LPC) PIKAMT PAGE 4 DATE: 08/30/84 TIME: 0057 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < D I INTEGER 0002 4,6,8,9,14,16,18,20,25,26,27,28,32,33D* INBUF INTEGER 7FFF 1,2,9,20,28*, ISTR INTEGER 7FFF 1,2,7,8,25,28,B J INTEGER 0000 2,3,6,9,10,11,12,20,21,22,23,30,33 B> L INTEGER 0001 3,4,5,7,8,19,20,23,27,28,31,32 >. OBUF INTEGER 7FFF 1,2,6,23,28,33 .2 OSTR INTEGER 7FFF 1,2,4,5,23,27,31,322   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ CCSGET SUBROUTINE 001F 8,20 $" CCSMVA SUBROUTINE 0071 27 "& CCSPUT SUBROUTINE 0087 6,23,33& Q8PKUP INTEGER.FN. 0096 Q8PREP INTEGER.FN. 0093    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 10 000D 4,6"$ 20 0033 7,13 $$ 30 003A 10,16$$ 35 003E 11,18$$ 40 005E 18,24$* 45 0063 14,17,21,25** 50 007A 12,22,26,30*$ 60 0086 31,33$$ 90 008D 28,34$ PIKAMT 0090 1 t FTN 3.3B (OPT = LPC) SAVTRN PAGE 1 DATE: 08/30/84 TIME: 0057 t^ 1 SUBROUTINE SAVTRN C1800001^^ 1 1 /C18 F CCS CCS 3.0 SL-149C1800002^^ C C1800003^^ C CYBERCREDIT SYSTEM VERSION 3 C1800004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1800005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1800006^^ C C1800007^^ C C1800008^^ C C1800009^^ C SAVE TRANSACTION IN TRANSACTION FILE(S). C1800010^^ C C1800011^^ C ROUTINE TO LOG ALL TRANSACTIONS (ACTIVITY AND NON-FINANCIAL CHANGEC1800012^^ C INTO THE MAIN TRANSACTION FILE AND THE SECONDARY/BACKUP TRANSACTIOC1800013^^ C FILE IF USED. C1800014^^ C C1800015^  ^ C RETRIEVE COMMON MACRO. C1800017^ ^ M COLMAC C1800019^^ M 1 1 /B31 F CCS CCS 3.0 SL-149B3100002^^ M C B3100003^^ M C CYBERCREDIT SYSTEM VERSION 3 B3100004^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3100005^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3100006^^ M C B3100007^^ M C B3100008^^ M C B3100009^^ M C MACRO COMMON DECLARATIONS FOR ON-LINE COLECT 2.0 PROGRAMS. B3100010^^ M C B3100011^ ^ M C FILE MANAGER IDATA WORDS FOR DELINQUENT MASTER, SCREEN, TRANSACTIOB3100013^^ M C DAILY ASSIGNMENT, AND TRANSACTION BACKUP FILES. B3100014^^ M 2 INTEGER IDATDM(15),IDATSC(15),IDATTR(15),IDATDA(15),IDATAU(15) B3100015^^ M 3 INTEGER IDATTB(15) B3100016^^ M 4 COMMON/A/IDATDM,IDATSC,IDATTR,IDATDA,IDATAU B3100017^^ M 5 COMMON/A/IDATTB B3100018^ ^ M C FILE MANAGER REQUEST BUFFERS FOR DELINQUENT MASTER, SCREEN, TRANS-B3100020^^ M C ACTION, DAILY ASSIGNMENT, TRANSACTION BACKUP, AND FLOATER FILES. B3100021^^ M 6 INTEGER REQBFD(24),REQBFS(24),REQBFT(24),REQBFA(24),REQBFF(24) B3100022^^ M 7 INTEGER REQBFB(24) B3100023^^ M 8 COMMON/A/REQBFD,REQBFS,REQBFT,REQBFA,REQBFF B3100024^^ M 9 COMMON/A/REQBFB B3100025^ ^ M C CHANGE SCREEN ITEM FIELD DESCRIPTION ARRAYS. B3100027^^ M 10 INTEGER CUSCHG(91),COSCHG(91),SUPCHG(61) B3100028^^ M 11 COMMON/A/CUSCHG,COSCHG,SUPCHG B3100029^ ^ M C FILE MANAGER RECORD BUFFERS. B3100031^^ M 12 INTEGER MASREC(1000),COSREC(250),TRNSBF(71),AVMAT(160),ACODE, B3100032^^ M 12 1 ACTHST(250),ACTYPE,NCOS,VALACT(32),ARCODE,STATCD B3100033^^ M 13 EQUIVALENCE (COSREC(1),ACTHST(1)) B3100034^^ M 14 BYTE (ACODE,TRNSBF(53)(15=8)) B3100035^t FTN 3.3B (OPT = LPC) SAVTRN PAGE 2 DATE: 08/30/84 TIME: 0057 t^ M 15 EQUIVALENCE(AVMAT(1),VALACT(1)) B3100036^^ M 16 BYTE (ACTYPE,MASREC(1)(11=8)),(NCOS,MASREC(469)(3=0)), B3100037^^ M 16 1 (ARCODE,MASREC(146)(15=8)),(STATCD,MASREC(153)(7=0)) B3100038^^ M 17 COMMON/A/MASREC,COSREC,TRNSBF,AVMAT B3100039^^ M C B3100040^ ^ M C INPUT/OUTPUT BUFFERS. B3100042^^ M 18 INTEGER IOBUF(41),OBUF(46),OFAREA(1) B3100043^^ M 19 EQUIVALENCE (OBUF(41),OFAREA(1)) B3100044^^ M 20 COMMON/A/IOBUF,OBUF B3100045^ ^ M C FIRST ACTIVITY STRING AND WORKING ACTIVITY STRING. B3100047^^ M 21 INTEGER FSTACT(36),STRING(36),ACT,RES,LTR,COM(28) B3100048^^ M 22 EQUIVALENCE (STRING(4),ACT),(STRING(5),RES),(STRING(6),LTR), B3100049^^ M 22 1 (STRING(9),COM(1)) B3100050^^ M 23 COMMON/A/FSTACT,STRING B3100051^ ^ M C SMALL VARIABLES AND BUFFERS. B3100053^^ M 24 INTEGER DATE(3),LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100054^^ M 25 INTEGER ACTRET,CID(2),NUMACT,QBREAK,VALQ(16),KEY(9),MAXNCD,MONTH B3100055^^ M 26 INTEGER NAMSAV(15),PPLAG,LETREQ,COMREQ,NCD,OSW,DAY,YEAR,UFLAG B3100056^^ M 27 INTEGER COLTYP,NXTYR,JDATE,TRBKFL,COSFLG,NAEQRL B3100057^^ M 28 INTEGER LTRNUM(50),ACTCNT B3100058^^ M 29 EQUIVALENCE (ISTAT,OSW),(DATE(1),MONTH),(DATE(2),DAY), B3100059^^ M 29 1 (DATE(3),YEAR) B3100060^^ M 30 COMMON/A/DATE,LS,LU,TC,ISTAT,COMPIN,LENGTH,FLDTYP,STRPOS,LINSTR B3100061^^ M 31 COMMON/A/ACTRET,CID,NUMACT,QBREAK,VALQ,KEY,MAXNCD,UFLAG B3100062^^ M 32 COMMON/A/NAMSAV,PPLAG,LETREQ,COMREQ,NCD,COLTYP,NXTYR B3100063^^ M 33 COMMON/A/JDATE,LTRNUM,ACTCNT,TRBKFL,COSFLG,NAEQRL B3100064^  ^ M C CONSTANTS. B3100066^ ^ M C NUMERIC. B3100068^^ M 34 INTEGER ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100069^^ M 35 COMMON/A/ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,NINE B3100070^ ^ M C ASCII CONSTANTS. B3100072^^ M 36 INTEGER LMASBL(2),ASC00,ASC01,TYPE1,TYPE2,BZ,OK,SR,PP,RL,CNTURY B3100073^^ M 37 INTEGER BLANKS B3100074^^ M 38 EQUIVALENCE (ASC01,TYPE1) B3100075^^ M 39 COMMON/A/LMASBL,ASC00,ASC01,TYPE2,BZ,OK,SR,PP,RL,CNTURY,BLANKS B3100076^ ^ M C FILE POSITIONS AND LENGTHS AND BUFFER LENGTHS. B3100078^^ M 40 INTEGER OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,INPBYT,COMLEN,STRLEN B3100079^^ M 41 INTEGER CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100080^^ M 42 INTEGER MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100081^^ M 43 EQUIVALENCE (OUTBYT,INPBYT) B3100082^^ M 44 COMMON/A/OLDPOS,NEWPOS,NAMPOS,NUMLEN,OUTBYT,COMLEN,STRLEN B3100083^^ M 45 COMMON/A/CURBAL,MPPAMT,MPPDAT,TPPAMT,TPPDAT,TLTAMT,MLTRAM,MLTRDT B3100084^^ M 46 COMMON/A/MNCD,TNCD,PPMADE,TLDT,PPFLAG B3100085^ ^ M C DUMMY VARIABLE. B3100087^^ M 47 INTEGER DUMMY B3100088^t FTN 3.3B (OPT = LPC) SAVTRN PAGE 3 DATE: 08/30/84 TIME: 0057 t^ M 48 COMMON/A/DUMMY B3100089^ ^ M C FILE MANAGER STATUS CONSIDERATIONS. B3100091^^ M 49 INTEGER LOCKED,WRONKY,EOF B3100092^^ M 50 COMMON/A/LOCKED,WRONKY,EOF B3100093^ ^ M C SCREEN DISPLAY CONSTANTS. B3100095^^ M 51 INTEGER XYWORD(3),XYN,CLRSCR B3100096^^ M 52 COMMON/A/XYWORD,XYN,CLRSCR B3100097^ ^ M C MESSAGE SCREEN NUMBERS FOR MESSAGES USED IN MORE THAN ONE MODULE. B3100099^^ M 53 INTEGER INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100100^^ M 54 INTEGER INVCOM,ENCD,FE B3100101^^ M 55 COMMON/A/INVENT,NXTFUN,CSNXTF,INVRES,COMRQD,COMLNG,INVNCD,NOACT B3100102^^ M 56 COMMON/A/INVCOM,ENCD,FE B3100103^  ^ M C END OF COMMON DECLARATION. B3100105^ ^ C LOCAL VARIABLES. C1800021^^ 57 INTEGER BLKLEN,PUTSR C1800022^^ 58 DATA BLKLEN/114/,PUTSR/11/ C1800023^^ 59 EXTERNAL SECON C1800024^  ^ C PUT STOP TIME INTO TRNASACTION BUFFER. C1800026^^ 60 CALL CCSTIM(TRNSBF(13)) C1800027^^ 61 TRNSBF(69) = AND($FFFF,SECON) C1800028^ ^ C SAVE TRANSACTION IN MAIN FILE IF USER NOT A TRAINEE. C1800030^^ 62 IF(UFLAG.EQ.0) CALL PUTS(REQBFT,TRNSBF,ONE,ISTAT) C1800031^^ C CHECK FOR ERROR. C1800032^^ 63 IF(ISTAT.LT.0) GO TO 100 C1800033^ ^ C***********************************************************************C1800035^^ C IF A SECOND TRANSACTION FILE IS PRESENT ON THE SYSTEM (SEE OPENFL C1800036^^ C IN FCOLEC) IT IS ASSUMED THAT THE TRANSACTION REPLAY OPTION IS C1800037^^ C DESIRED. IF THE FLAG 'TRBKFL' = 0-NO BACKUP, IF = 1-BACKUP C1800038^^ 64 IF(TRBKFL.EQ.0) GO TO 50 C1800039^^ C CHECK IF USER IS A TRAINEE C1800040^^ 65 IF(UFLAG.EQ.0) CALL PUTS(REQBFB,TRNSBF,ONE,ISTAT) C1800041^^ C CHECK FOR ERROR C1800042^^ 66 IF(ISTAT.GE.0) GO TO 50 C1800043^^ C ERROR OCCURRED, REPORT IT, CLOSE ALL FILES AND EXIT C1800044^^ 67 CALL FILERR(IDATTB,PUTSR,ISTAT,LU) C1800045^^ 68 CALL CLANEX C1800046^^ C***********************************************************************C1800047^ ^ C TRANSACTION SAVES COMPLETE. BLANK TRANSACTION BUFFER AND RETURN. C1800049^^ 69 50 CALL CCSBLK(TRNSBF(13),BLKLEN) C1800050^^ 70 RETURN C1800051^  ^ C FILE ERROR ON PUTS REQUEST TO MAIN TRANSACTION FILE. C1800053^t FTN 3.3B (OPT = LPC) SAVTRN PAGE 4 DATE: 08/30/84 TIME: 0057 t^ C REPORT ERROR, CLOSE ALL FILES, AND EXIT. C1800054^^ 71 100 CALL FILERR(IDATTR,PUTSR,ISTAT,LU) C1800055^^ 72 CALL CLANEX C1800056^  ^ 73 END C1800058^t FTN 3.3B (OPT = LPC) SAVTRN PAGE 5 DATE: 08/30/84 TIME: 0057 t COMMON  LABEL $08F9 ( 2297)    PROGRAM LENGTH $0043 ( 67)   EXTERNALS , SECON CCSTIM PUTS FILERR CLANEX CCSBLK , t FTN 3.3B (OPT = LPC) SAVTRN PAGE 6 DATE: 08/30/84 TIME: 0057 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < " FFFF (65535) 0002 61 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ ACODE INTEGER 06F3 D 11,14$$ ACT INTEGER 0824 D 20,22$$ ACTCNT INTEGER 08B9 D 23,33$$ ACTHST INTEGER 05C5 D 11,13$$ ACTRET INTEGER 0851 D 23,31$$ ACTYPE INTEGER 01DD D 11,16$" AND INTR.FN. 7FFF 61 "$ ARCODE INTEGER 026E D 11,16$$ ASC00 INTEGER 08C7 D 35,39$( ASC01 INTEGER 08C8 D 35,38,39 (( AVMAT INTEGER 0706 D 11,15,17 ($ BLANKS INTEGER 08D0 D 35,39$( BLKLEN INTEGER 0000 56,58,69 ($ BZ INTEGER 08CA D 35,39$$ CID INTEGER 0852 D 23,31$$ CLRSCR INTEGER 08ED D 50,52$$ CNTURY INTEGER 08CF D 35,39$$ COLTYP INTEGER 0884 D 23,32$$ COM INTEGER 0829 D 20,22$$ COMLEN INTEGER 08D6 D 39,44$$ COMLNG INTEGER 08F3 D 52,55$$ COMPIN INTEGER 084C D 23,30$$ COMREQ INTEGER 0882 D 23,32$$ COMRQD INTEGER 08F2 D 52,55$$ COSCHG INTEGER 0145 D 9,11 $$ COSFLG INTEGER 08BB D 23,33$( COSREC INTEGER 05C5 D 11,13,17 ($ CSNXTF INTEGER 08F0 D 52,55$$ CURBAL INTEGER 08D8 D 39,45$$ CUSCHG INTEGER 00EA D 9,11 $( DATE INTEGER 0845 D 23,29,30 ($ DAY INTEGER 0846 D 23,29$$ DUMMY INTEGER 08E5 D 46,48$$ ENCD INTEGER 08F7 D 52,56$$ EOF INTEGER 08E8 D 48,50$$ FE INTEGER 08F8 D 52,56$$ FIVE INTEGER 08C2 D 33,35$$ FLDTYP INTEGER 084E D 23,30$t FTN 3.3B (OPT = LPC) SAVTRN PAGE 7 DATE: 08/30/84 TIME: 0057 t$ FOUR INTEGER 08C1 D 33,35$$ FSTACT INTEGER 07FD D 20,23$" IDATAU INTEGER 003C D 1,4"" IDATDA INTEGER 002D D 1,4"" IDATDM INTEGER 0000 D 1,4"" IDATSC INTEGER 000F D 1,4"& IDATTB INTEGER 004B D 1,5,67 && IDATTR INTEGER 001E D 1,4,71 &$ INPBYT INTEGER 08D5 D 39,43$$ INVCOM INTEGER 08F6 D 52,56$$ INVENT INTEGER 08EE D 52,55$$ INVNCD INTEGER 08F4 D 52,55$$ INVRES INTEGER 08F1 D 52,55$$ IOBUF INTEGER 07A6 D 17,20$: ISTAT INTEGER 084B D 23,29,30,62,63,65,66,67,71 :$ JDATE INTEGER 0886 D 23,33$$ KEY INTEGER 0866 D 23,31$$ LENGTH INTEGER 084D D 23,30$$ LETREQ INTEGER 0881 D 23,32$$ LINSTR INTEGER 0850 D 23,30$$ LMASBL INTEGER 08C5 D 35,39$$ LOCKED INTEGER 08E6 D 48,50$$ LS INTEGER 0848 D 23,30$$ LTR INTEGER 0826 D 20,22$$ LTRNUM INTEGER 0887 D 23,33$* LU INTEGER 0849 D 23,30,67,71*( MASREC INTEGER 01DD D 11,16,17 ($ MAXNCD INTEGER 086F D 23,31$$ MLTRAM INTEGER 08DE D 39,45$$ MLTRDT INTEGER 08DF D 39,45$$ MNCD INTEGER 08E0 D 39,46$$ MONTH INTEGER 0845 D 23,29$$ MPPAMT INTEGER 08D9 D 39,45$$ MPPDAT INTEGER 08DA D 39,45$$ NAEQRL INTEGER 08BC D 23,33$$ NAMPOS INTEGER 08D3 D 39,44$$ NAMSAV INTEGER 0871 D 23,32$$ NCD INTEGER 0883 D 23,32$$ NCOS INTEGER 03B1 D 11,16$$ NEWPOS INTEGER 08D2 D 39,44$$ NINE INTEGER 08C4 D 33,35$$ NOACT INTEGER 08F5 D 52,55$$ NUMACT INTEGER 0854 D 23,31$$ NUMLEN INTEGER 08D4 D 39,44$$ NXTFUN INTEGER 08EF D 52,55$$ NXTYR INTEGER 0885 D 23,32$( OBUF INTEGER 07CF D 17,19,20 ($ OFAREA INTEGER 07F7 D 17,19$$ OK INTEGER 08CB D 35,39$$ OLDPOS INTEGER 08D1 D 39,44$* ONE INTEGER 08BE D 33,35,62,65*$ OSW INTEGER 084B D 23,29$( OUTBYT INTEGER 08D5 D 39,43,44 ($ PP INTEGER 08CD D 35,39$t FTN 3.3B (OPT = LPC) SAVTRN PAGE 8 DATE: 08/30/84 TIME: 0057 t$ PPFLAG INTEGER 08E4 D 39,46$$ PPLAG INTEGER 0880 D 23,32$$ PPMADE INTEGER 08E2 D 39,46$* PUTSR INTEGER 0001 56,58,67,71*$ QBREAK INTEGER 0855 D 23,31$" REQBFA INTEGER 00A2 D 5,8"& REQBFB INTEGER 00D2 D 5,9,65 &" REQBFD INTEGER 005A D 5,8"" REQBFF INTEGER 00BA D 5,8"" REQBFS INTEGER 0072 D 5,8"& REQBFT INTEGER 008A D 5,8,62 &$ RES INTEGER 0825 D 20,22$$ RL INTEGER 08CE D 35,39$$ SIX INTEGER 08C3 D 33,35$$ SR INTEGER 08CC D 35,39$$ STATCD INTEGER 0275 D 11,16$( STRING INTEGER 0821 D 20,22,23 ($ STRLEN INTEGER 08D7 D 39,44$$ STRPOS INTEGER 084F D 23,30$$ SUPCHG INTEGER 01A0 D 9,11 $$ TC INTEGER 084A D 23,30$$ THREE INTEGER 08C0 D 33,35$$ TLDT INTEGER 08E3 D 39,46$$ TLTAMT INTEGER 08DD D 39,45$$ TNCD INTEGER 08E1 D 39,46$$ TPPAMT INTEGER 08DB D 39,45$$ TPPDAT INTEGER 08DC D 39,45$( TRBKFL INTEGER 08BA D 23,33,64 (6 TRNSBF INTEGER 06BF D 11,14,17,60,61,62,65,696$ TWO INTEGER 08BF D 33,35$$ TYPE1 INTEGER 08C8 D 35,38$$ TYPE2 INTEGER 08C9 D 35,39$* UFLAG INTEGER 0870 D 23,31,62,65*$ VALACT INTEGER 0706 D 11,15$$ VALQ INTEGER 0856 D 23,31$$ WRONKY INTEGER 08E7 D 48,50$$ XYN INTEGER 08EC D 50,52$$ XYWORD INTEGER 08E9 D 50,52$$ YEAR INTEGER 0847 D 23,29$$ ZERO INTEGER 08BD D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSBLK SUBROUTINE 0033 69 "" CCSTIM SUBROUTINE 0004 58 "$ CLANEX SUBROUTINE 0031 67,72$$ FILERR SUBROUTINE 002B 66,71$$ PUTS SUBROUTINE 0010 62,65$t FTN 3.3B (OPT = LPC) SAVTRN PAGE 9 DATE: 08/30/84 TIME: 0057 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < ( 50 0032 64,66,69 ($ 100 0037 63,71$ SAVTRN 003F 1   H*CTO, MON04 GROUP BEING COMPILED.HH*FTNH t FTN 3.3B (OPT = LPC) UPDMAC PAGE 1 DATE: 08/30/84 TIME: 0058 t^ MACRO UPDMAC C3600001^^ 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ C C3600006^^ C*** DUMMY VARIABLE. C3600007^^ INTEGER DUMMY C3600008^^ COMMON / UPD / DUMMY C3600009^^ C*** FLAG WORDS. C3600010^^ C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ INTEGER ACCTFD C3600012^^ C* END-OF-FILE ON INPUT FLAG. C3600013^^ INTEGER EOFFLG C3600014^^ C* TRANSACTION REJECTED FLAG. C3600015^^ INTEGER TRNREJ C3600016^^ C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ INTEGER SECTRF C3600018^^ C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ INTEGER UPDAGE C3600020^^ C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ INTEGER TOTPRT C3600022^^ COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ C* STATUS CODE. C3600026^^ INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ COMMON / UPD / REQBRF, IDATRF C3600054^t FTN 3.3B (OPT = LPC) UPDMAC PAGE 2 DATE: 08/30/84 TIME: 0058 t^ C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ INTEGER REQBTS(24), IDATTS(15) C3600061^^ COMMON / UPD / REQBTS, IDATTS C3600062^^ C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ INTEGER REQBPR(24), IDATPR(15) C3600065^^ COMMON / UPD / REQBPR, IDATPR C3600066^^ C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ INTEGER REQBIN(24), IDATIN(15) C3600069^^ COMMON / UPD / REQBIN, IDATIN C3600070^^ C*** FILE MANAGER STATUS WORD. C3600071^^ INTEGER ISTAT C3600072^^ C* STATUS CONSIDERATIONS. C3600073^^ C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ C* RECORD LOCKED. C3600075^^ INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ C*** TRANSACTION INPUT BUFFER. C3600078^^ INTEGER INPBUF(893) C3600079^^ COMMON / UPD / INPBUF C3600080^^ C*** PRINT OUTPUT BUFFERS. C3600081^^ C* STANDARD DETAIL LINE BUFFER. C3600082^^ INTEGER DETLIN(68) C3600083^^ COMMON / UPD / DETLIN C3600084^^ C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ INTEGER LINCNT, PAGCNT(6) C3600086^^ COMMON / UPD / LINCNT, PAGCNT C3600087^^ C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ C*** ACCAGE FILE. C3600089^^ INTEGER ALRACC(14) C3600090^^ COMMON / UPD / ALRACC C3600091^^ C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ INTEGER IFLAG, TEMP(8) C3600093^^ COMMON / UPD / IFLAG, TEMP C3600094^^ C*** TODAY'S DATE. C3600095^^ INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ COMMON / UPD / DATE C3600098^^ C*** EXTERNAL SWITCH. C3600099^^ C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ INTEGER R9SWCH, SWITCH, U(8) C3600101^^ COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ C*** TAPE INPUT LOGICAL UNITS. C3600103^^ C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ INTEGER TAPE, MT1 C3600105^^ COMMON / UPD / TAPE, MT1 C3600106^^ C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^t FTN 3.3B (OPT = LPC) UPDMAC PAGE 3 DATE: 08/30/84 TIME: 0058 t^ C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ C* DELINQUENT DATE. C3600110^^ INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ COMMON / UPD / TDLDT C3600113^^ C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ INTEGER MNCHG, MUPDT C3600120^^ COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ C*** FILES. C3600124^^ C* QUEUE AND PREVIOUS QUEUE. C3600125^^ INTEGER RQUE, RPQUE C3600126^^ C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ INTEGER RTCD, RSTC C3600128^^ C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ INTEGER RDYDL, RPDYDL C3600130^^ C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ INTEGER RPYOF, RPPYOF C3600132^^ C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ INTEGER RADLQ, RPADLQ C3600134^^ COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ C* CODE FLAG FOR TYPE. C3600138^^ INTEGER AFLG C3600139^^ COMMON / UPD / AFLG C3600140^^ C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ INTEGER ASREAC(36), COMFLD C3600142^^ EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ COMMON / UPD / ASREAC C3600144^^ C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ INTEGER TKEY(8) C3600146^^ COMMON / UPD / TKEY C3600147^^ C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ INTEGER KHDRX(2), KUPDY(2) C3600150^^ COMMON / UPD / KHDRX, KUPDY C3600151^^ C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^t FTN 3.3B (OPT = LPC) UPDMAC PAGE 4 DATE: 08/30/84 TIME: 0058 t^ C* DELINQUENT BUCKETS. C3600163^^ INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ INTEGER UPDPAD(6) C3600172^^ C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ INTEGER UPDPPY(6) C3600174^^ COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ C* REJECTS C3600184^^ INTEGER NUMREJ(6) C3600185^^ COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ INTEGER UPDY C3600188^^ COMMON / UPD / UPDY C3600189^^ C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ INTEGER COLHD(66,2), COLHDT(3) C3600192^^ EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ COMMON / UPD / HDLIN, COLHD C3600194^^ C*** TRANSACTION CODES. C3600195^^ C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ C*** TERMINAL LOGICAL UNIT. C3600199^^ INTEGER TLU C3600200^^ COMMON / UPD / TLU C3600201^^ C*** COMPARE STRING RETURN INDICATOR. C3600202^^ INTEGER COMPIN C3600203^^ COMMON / UPD / COMPIN C3600204^^ C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ INTEGER ACTIVE C3600206^^ COMMON / UPD / ACTIVE C3600207^^ C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ INTEGER NDAONE(5) C3600209^^ COMMON / UPD / NDAONE C3600210^^ C*** ASCII CONSTANTS. C3600211^^ C* BLANKS, '01', '0360' . C3600212^^ INTEGER BLANKS, A01, A0360(2) C3600213^^ COMMON / UPD / BLANKS, A01, A0360 C3600214^^ C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^t FTN 3.3B (OPT = LPC) UPDMAC PAGE 5 DATE: 08/30/84 TIME: 0058 t^ INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ INTEGER N26, N27, N28 C3600218^^ INTEGER N30, N35 C3600219^^ INTEGER N40 C3600220^^ INTEGER N55 C3600221^^ INTEGER N66 C3600222^^ INTEGER N80, N82 C3600223^^ INTEGER N96 C3600224^^ INTEGER N132 C3600225^^ COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ COMMON / UPD / N26, N27, N28 C3600228^^ COMMON / UPD / N30, N35 C3600229^^ COMMON / UPD / N40 C3600230^^ COMMON / UPD / N55 C3600231^^ COMMON / UPD / N66 C3600232^^ COMMON / UPD / N80, N82 C3600233^^ COMMON / UPD / N96 C3600234^^ COMMON / UPD / N132 C3600235^^ C*** END OF MACRO DECLARATION. C3600236^^ . C3600237^^ END C3600238^ t FTN 3.3B (OPT = LPC) ADDIT PAGE 1 DATE: 08/30/84 TIME: 0058 t^ 1 SUBROUTINE ADDIT B0500001^^ 1 1 /B05 F CCS CCS 3.0 SL-149B0500002^^ C PERFORM ADD SPECIFIC OPERATIONS B0500003^^ C CYBERCREDIT SYSTEM VERSION 3 B0500004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B0500005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B0500006^^ C B0500007^ ^ C ADDIT IS RESPONSIBLE FOR PERFORMING ALL UNIQUE OPERATIONS TO B0500009^^ C ADD THE ACCOUNT TO THE DELINQUENT DATA BASE. THIS INCLUDES B0500010^^ C ADDING THE ACCOUNT TO THE ADDACT FILE, ESTABLISHING MASTER FILE B0500011^^ C FIELDS, ADDING AMOUNT DELINQUENT AND CURRENT PAYOFF/TOTAL DUE B0500012^^ C TO TOTALS, AND ADDING THE ACCOUNT TO THE ACCAGE FILE. THE ACCOUNTB0500013^^ C IS ADDED TO THE ADDACT FILE TO FLAG THE ACCOUNT AS A NEW ACCOUNT B0500014^^ C ELIGIBLE FOR UPDATE FROM HISTORY FILES IN A LATER PROCESS. THE B0500015^^ C ACCAGE FILE CONTAINS AN AGING RECORD FOR EVERY ACTIVE ACCOUNT. B0500016^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: B0500017^^ C 1. FORMAT ADDACT FILE RECORD FOR ACCOUNT. B0500018^^ C 2. ADD ACCOUNT TO ADDACT FILE. B0500019^^ C 3. SAVE ACCOUNT NUMBER FROM TRANSACTION INPUT BUFFER. B0500020^^ C 4. SAVE QUEUE ASSIGNED BY HOST FROM TRANSACTION INPUT BUFFER. B0500021^^ C 5. SET NEXT CONTACT DATE TO SYSTEM DATE. B0500022^^ C 6. BLANK DATE LAST UPDATED BY A/R SYSTEM (FIELD SET TO SYSTEM B0500023^^ C DATE BY UNCUPD ROUTINE, BUT MUST BE CLEARED HERE TO PROVIDEB0500024^^ C ONLY INTERNAL RECORD FLAG OF NEW ACCOUNT). B0500025^^ C 7. SET DATE FIRST APPEARS IN CCS TO SYSTEM DATE. B0500026^^ C 8. INCREMENT ADD TRANSACTION COUNTER. B0500027^^ C 9. ADD AMOUNT DELINQUENT TO ADD AMOUNT DELINQUENT BUCKET. B0500028^^ C 10. ADD CURRENT PAYOFF/TOTAL DUE TO ADD CURRENT PAYOFF/TOTAL B0500029^^ C DUE BUCKET. B0500030^^ C 11. FORMAT DETAIL OUTPUT LINE FOR ADD. B0500031^^ C 12. FORMAT ACCAGE FILE RECORD FOR ACCOUNT. B0500032^^ C 13. ADD ACCOUNT TO ACCAGE FILE. B0500033^^ C 14. IF ACCOUNT NOT ALREADY PRESENT, CONTINUE B0500034^^ C ELSE, RETRIEVE ACCOUNT FROM ACCAGE FILE B0500035^^ C BLANK ALL BUT ACCOUNT NUMBER FIELD B0500036^^ C UPDATE ACCOUNT ON ACCAGE FILE. B0500037^^ C 15. RETURN. B0500038^  ^ C**** RETRIEVE COMMON DECALRATION MACRO. B0500040^^ M UPDMAC B0500041^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^t FTN 3.3B (OPT = LPC) ADDIT PAGE 2 DATE: 08/30/84 TIME: 0058 t^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^t FTN 3.3B (OPT = LPC) ADDIT PAGE 3 DATE: 08/30/84 TIME: 0058 t^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^t FTN 3.3B (OPT = LPC) ADDIT PAGE 4 DATE: 08/30/84 TIME: 0058 t^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^t FTN 3.3B (OPT = LPC) ADDIT PAGE 5 DATE: 08/30/84 TIME: 0058 t^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^t FTN 3.3B (OPT = LPC) ADDIT PAGE 6 DATE: 08/30/84 TIME: 0058 t^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) ADDIT PAGE 7 DATE: 08/30/84 TIME: 0058 t^ C**** LOCAL DECLARATIONS. B0500042^ ^ C**** ADD FLAG FOR ADDACT FILE RECORD. B0500044^^ 133 INTEGER ADDFLG B0500045^^ 134 DATA ADDFLG / $41 / B0500046^^ C** A B0500047^  ^ C***********************************************************************B0500049^^ C* BEGIN PROGRAM. *B0500050^^ C***********************************************************************B0500051^ ^ C**** FORMAT ADDACT FILE RECORD FOR ACCOUNT B0500053^^ C** ACCOUNT NUMBER B0500054^^ 135 100 CALL CCSMVA ( INPBUF, N4, N16, RECBAD, N1 ,N16 ) B0500055^^ C** ADD FLAG. B0500056^^ 136 CALL CCSPUT ( ADDFLG, AFLG, RECBAD ) B0500057^ ^ C**** ADD ACCOUNT TO ADDACT FILE. B0500059^^ 137 110 CALL PUTS ( REQBAD, RECBAD, N1, ISTAT ) B0500060^^ C** IF NO FILE ERROR, CONTINUE B0500061^^ 138 IF ( ISTAT .GE. 0 ) GO TO 120 B0500062^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM UPDEND). B0500063^^ 139 CALL FILERR ( IDATAD, N11, ISTAT, TLU ) B0500064^^ 140 CALL UPDEND B0500065^ ^ C**** SAVE ACCOUNT NUMBER FROM INPUT BUFFER. B0500067^^ 141 120 CALL CCSMVA ( INPBUF, N4, N16, RECBDM, N1, N16 ) B0500068^ ^ C**** SAVE QUEUE ASSIGNED BY HOST FROM INPUT BUFFER. B0500070^^ 142 130 CALL CCSMVA ( INPBUF, TQUE, N4, RECBDM, MQUE, N4 ) B0500071^ ^ C**** SET NEXT CONTACT DATE TO SYSTEM DATE. B0500073^^ 143 140 CALL CCSMVA ( DATE, N1, N6, RECBDM, MNXTC, N6 ) B0500074^ ^ C**** BLANK DATE LAST UPDATED BY S/R SYSTEM. B0500076^^ 144 150 CALL CCSMVA ( DUMMY, N0, N0, RECBDM, MSTDT, N6 ) B0500077^ ^ C**** SET DATE FIRST APPEARS IN CCS TO SYSTEM DATE. B0500079^^ 145 160 CALL CCSMVA ( DATE, N1, N6, RECBDM, MCCDT, N6 ) B0500080^ ^ C**** INCREMENT ADD TRANSACTION COUNTER. B0500082^^ 146 170 CALL CCSADD ( NDAONE, N2, NUMADD, N1, NUMADD, N1 ) B0500083^ ^ C**** ADD AMOUNT DELINQUENT TO ADD AMOUNT DELINQUENT BUCKET. B0500085^^ 147 180 CALL CCSADD ( RECBDM, MADLQ, ADDAD, N1, ADDAD, N1 ) B0500086^ ^ C**** ADD CURRENT PAYOFF/TOTAL DUE TO ADD CURRENT PAYOFF/TOTAL DUE B0500088^^ C**** BUCKET. B0500089^^ 148 190 CALL CCSADD ( RECBDM, MPYOF, ADDPAY, N1, ADDPAY, N1 ) B0500090^ ^ C**** FORMAT DETAIL LINE FOR OUTPUT. B0500092^^ 149 200 CALL FORMLN ( N4 ) B0500093^ t FTN 3.3B (OPT = LPC) ADDIT PAGE 8 DATE: 08/30/84 TIME: 0058 t^ C**** FORMAT ACCAGE RECORD FOR ACCOUNT. B0500095^^ C** BLANK FILL RECORD EXCEPT FOR ACCOUNT NUMBER. B0500096^^ 150 210 CALL CCSMVA ( RECBDM, N1, N16, RECBAG, N1, N82 ) B0500097^ ^ C**** ADD ACCOUNT TO ACCAGE FILE. B0500099^^ 151 220 CALL WRITER ( REQBAG, RECBAG, RECBAG, ISTAT ) B0500100^^ C** IF NO FATAL FILE ERROR, CONTINUE B0500101^^ 152 IF ( ISTAT .GE. 0 .OR. AND( ISTAT, DUPKEY ) .NE. 0 ) B0500102^^ 152 + GO TO 230 B0500103^^ C** ELSE, REPORT FATAL FILE ERROR AND EXIT (NO RETURN FROM B0500104^^ C** UPDEND). B0500105^^ 153 CALL FILERR ( IDATAG, N12, ISTAT, TLU ) B0500106^^ 154 CALL UPDEND B0500107^ ^ C**** IF RECORD NOT ON FILE PREVIOUSLY, CONTINUE B0500109^^ 155 230 IF ( ISTAT .GE. 0 ) GO TO 300 B0500110^^ C** ELSE, RETRIEVE EXISTING RECORD FROM FILE. B0500111^^ 156 CALL READR ( REQBAG, RECBAG, RECBAG, ISTAT ) B0500112^^ C** IF NO FILE ERROR, CONTINUE B0500113^^ 157 IF ( ISTAT .GE. 0 .AND. AND( ISTAT, WRONKY ) .NE. WRONKY ) B0500114^^ 157 + GO TO 240 B0500115^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM B0500116^^ C** UPDEND) B0500117^^ 158 CALL FILERR ( IDATAG, N13, ISTAT, TLU ) B0500118^^ 159 CALL UPDEND B0500119^^ C** UPDATE EXISTING ACCOUNT RECORD ON ACCAGE FILE B0500120^^ 160 240 CALL CCSBLK ( RECBAG(9), N66 ) B0500121^^ 161 CALL UPDREC ( REQBAG, RECBAG, ISTAT ) B0500122^^ C** IF NO FILE ERROR, CONTINUE B0500123^^ 162 IF ( ISTAT .GE. 0 ) GO TO 250 B0500124^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM B0500125^^ C** UPDEND) B0500126^^ 163 CALL FILERR ( IDATAG, N15, ISTAT, TLU ) B0500127^^ 164 CALL UPDEND B0500128^^ C** ADD ERROR TO DETAIL LINE - ACCOUNT ALREADY IN ACCAGE. B0500129^^ 165 250 CALL CCSMVA ( ALRACC, N1, N27, DETLIN(52), N1, N27 ) B0500130^ ^ C**** ADD SPECIFIC OPERATIONS COMPLETE, RETURN. B0500132^^ 166 300 RETURN B0500133^^ 167 END B0500134^t FTN 3.3B (OPT = LPC) ADDIT PAGE 9 DATE: 08/30/84 TIME: 0058 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $00B5 ( 181)   EXTERNALS 2 CCSMVA CCSPUT PUTS FILERR UPDEND CCSADD FORMLN 2 WRITER READR CCSBLK UPDREC  t FTN 3.3B (OPT = LPC) ADDIT PAGE 10 DATE: 08/30/84 TIME: 0058 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&( ADDAD INTEGER 0B80 D 83,88,147(* ADDFLG INTEGER 0000 132,134,136*( ADDPAY INTEGER 0B92 D 83,89,148(( AFLG INTEGER 0B19 D 68,70,136(( ALRACC INTEGER 0AD6 D 43,45,165(& AND INTR.FN. 7FFF 152,157&( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&0 DATE INTEGER 0AED D 47,49,50,143,145 0$ DAY INTEGER 0AEE D 47,49$( DETLIN INTEGER 0A8B D 39,41,165(& DUMMY INTEGER 0000 D 1,3,144&( DUPKEY INTEGER 070C D 34,37,152($ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$( IDATAD INTEGER 0568 D 17,19,139(0 IDATAG INTEGER 05EF D 21,23,153,158,1630$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$0 INPBUF INTEGER 070E D 37,39,135,141,1420X ISTAT INTEGER 0708 D 34,37,137,138,139,151,152,153,155,156,157,158,161,162,163X$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$( MADLQ INTEGER 0B06 D 57,60,147(t FTN 3.3B (OPT = LPC) ADDIT PAGE 11 DATE: 08/30/84 TIME: 0058 t( MCCDT INTEGER 0B0B D 57,60,145($ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$( MNXTC INTEGER 0B0A D 57,60,143($ MONTH INTEGER 0AED D 47,49$( MPYOF INTEGER 0B04 D 57,60,148(( MQUE INTEGER 0B08 D 57,60,142($ MSTC INTEGER 0B07 D 57,60$( MSTDT INTEGER 0B05 D 57,60,144($ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$* N0 INTEGER 0D39 D 112,123,144*N N1 INTEGER 0D3A D 112,123,135,137,141,143,145,146,147,148,150,165N& N10 INTEGER 0D43 D 112,124&* N11 INTEGER 0D44 D 112,124,139** N12 INTEGER 0D45 D 112,124,153** N13 INTEGER 0D46 D 112,124,158*& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&* N15 INTEGER 0D48 D 112,124,163*2 N16 INTEGER 0D49 D 112,124,135,141,1502& N17 INTEGER 0D4A D 112,124&* N2 INTEGER 0D3B D 112,123,146*& N26 INTEGER 0D4B D 112,125&* N27 INTEGER 0D4C D 112,125,165*& N28 INTEGER 0D4D D 112,125&& N3 INTEGER 0D3C D 112,123&& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&6 N4 INTEGER 0D3D D 112,123,135,141,142,1496& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&2 N6 INTEGER 0D3F D 112,123,143,144,1452* N66 INTEGER 0D52 D 112,129,160*& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&* N82 INTEGER 0D54 D 112,130,150*& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&* NDAONE INTEGER 0D30 D 108,110,146*( NUMADD INTEGER 0BB0 D 89,94,146($ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$t FTN 3.3B (OPT = LPC) ADDIT PAGE 12 DATE: 08/30/84 TIME: 0058 t$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$0 RECBAD INTEGER 055D D 17,19,135,136,1370< RECBAG INTEGER 05C4 D 21,23,25,150,151,156,160,161 <$ RECBCS INTEGER 047F D 15,17$H RECBDM INTEGER 001F D 10,12,13,141,142,143,144,145,147,148,150 H$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$( REQBAD INTEGER 0545 D 17,19,137(0 REQBAG INTEGER 05AC D 21,23,151,156,1610$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$6 TLU INTEGER 0D2D D 102,104,139,153,158,1636$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$( TQUE INTEGER 0B00 D 54,56,142(& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&t FTN 3.3B (OPT = LPC) ADDIT PAGE 13 DATE: 08/30/84 TIME: 0058 t& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$( WRONKY INTEGER 0709 D 34,37,157($ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * CCSADD SUBROUTINE 0044 145,147,148*" CCSBLK SUBROUTINE 0091 160"> CCSMVA SUBROUTINE 00A6 134,141,142,143,144,145,150,165>" CCSPUT SUBROUTINE 000A 135". FILERR SUBROUTINE 009E 138,153,158,163." FORMLN SUBROUTINE 005A 148"" PUTS SUBROUTINE 000F 136"" READR SUBROUTINE 007C 155". UPDEND SUBROUTINE 00A4 139,154,159,164." UPDREC SUBROUTINE 0095 160"" WRITER SUBROUTINE 0064 150"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0001 134"" 110 000E 136"& 120 0020 138,141&" 130 0027 141"" 140 002E 142"" 150 0035 143"" 160 003C 144"" 170 0043 145"" 180 004B 146"" 190 0052 147"" 200 0059 148"" 210 005C 149"t FTN 3.3B (OPT = LPC) ADDIT PAGE 14 DATE: 08/30/84 TIME: 0058 t" 220 0063 150"& 230 0077 152,155&& 240 0090 157,160&& 250 00A5 162,165&& 300 00AD 155,166& ADDIT 00B0 1 t FTN 3.3B (OPT = LPC) CHNGNF PAGE 1 DATE: 08/30/84 TIME: 0059 t^ 1 SUBROUTINE CHNGNF ( MASREC, FLDPOS, NEWFLD, NWFPOS, FLDLEN, FLAG )B2400001^^ 1 1 /B24 F CCS CCS 3.0 SL-149B2400002^^ C COMMON ROUTINE FOR NON-FINANCIAL FIELD CHANGE HANDLING B2400003^^ C CYBERCREDIT SYSTEM VERSION 3 B2400004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B2400005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B2400006^^ C B2400007^ ^ C CHNGNF SHOULD BE USED TO CHANGE ANY NON-FINANCIAL FIELD IN THE B2400009^^ C CCS DELINQUENT MASTER FILE RECORD. IT WILL AUTOMATICALLY UPDATE B2400010^^ C PREVIOUS VALUE FIELDS, MULTIPLE PREVIOUS VALUE FIELDS, AND ALLOW B2400011^^ C AN UPDATE OF A DATE OF LAST CHANGE FIELD, IF ONE IS ASSOCIATED B2400012^^ C WITH THE FIELD BEING CHANGED. THE PASSED PARAMETERS ARE: B2400013^^ C MASREC - THE DELINQUENT MASTER FILE RECORD BUFFER FOR THE B2400014^^ C ACCOUNT BEING UPDATED B2400015^^ C FLDPOS - START CHARACTER POSITION OF FIELD IN MASTER FILE B2400016^^ C RECORD B2400017^^ C NEWFLD - ARRAY CONTAINING THE NEW FIELD CONTENTS B2400018^^ C NWFPOS - START CHARACTER POSITION IN NEWFLD ARRAY OF THE NEW B2400019^^ C FIELD CONTENTS B2400020^^ C FLDLEN - LENGTH (IN CHARACTERS) OF FIELD BEING UPDATED B2400021^^ C FLAG - CONTROLS UPDATING OF FIELD WITH BLANKS; IF NON-ZERO,B2400022^^ C UPDATE REQUESTS BLANKING A FIELD ARE ALLOWED. B2400023^^ C CHNGNF USES AN INTERNAL TABLE, "PRVFLD", TO CONTROL UPDATING OF B2400024^^ C FIELDS. ONLY FIELDS WITH A PREVIOUS VALUE FIELD OR DATE OF LAST B2400025^^ C CHANGE MUST HAVE AN ENTRY IN THIS TABLE. EACH TABLE ENTRY IS B2400026^^ C THREE WORDS LONG AND HAS THE FOLLOWING MEANING: B2400027^^ C 1ST WORD - START CHARACTER POSITION OF FIELD IN FILE B2400028^^ C 2ND WORD - START CHARACTER POSTION OF PREVIOUS VALUE FIELD IN B2400029^^ C FILE; IF NONE, VALUE IS ZERO. B2400030^^ C 3RD WORD - START CHARACTER POSITION OF DATE OF LAST CHANGE B2400031^^ C FIELD IN FILE; IF NONE, VALUE IS ZERO. B2400032^^ C THE FOLLOWING NOTES SPECIFY ADDITIONAL LIMITATIONS, FEATURES, AND B2400033^^ C RESTRCITIONS: B2400034^^ C 1) CHNGNF DOES NOT (AND SHOULD NOT BE MODIFIED TO) PERFORM THEB2400035^^ C ADDITIONAL FUNCTIONS AND LOGIC REQUIRED TO HANDLE CHANGES B2400036^^ C TO THE BORROWER'S NAME (SECONDARY KEY). AFTER THIS LOGIC B2400037^^ C HAS BEEN PERFORMED BY THE CALLING PROGRAM, THE BORROWER'S B2400038^^ C NAME CAN BE PROCESSED LIKE A CHANGE TO ANY OTHER FIELD B2400039^^ C USING THIS ROUTINE. THIS INCLUDES TRACKING OF PREVIOUS B2400040^^ C NAME(S) AND DATE OF CHANGE, IF DESIRED BY THE CUSTOMER. B2400041^^ C THE NET OF THIS LIMITATION IS THE FIELD USED TO SAVE THE B2400042^^ C OLD SECONDARY KEY OF THE MASTER FILE DURING ITS CHANGE B2400043^^ C (CHARACTER POSITION 1047-1052) SHOULD NOT APPEAR AS A PRE- B2400044^^ C VIOUS VALUE FELD IN THE TABLE "PRVFLD". B2400045^^ C 2) CHNGNF WILL PERFORM NO OPERATIONS WHEN THE FIELD BEING B2400046^^ C UPDATED ALEADY HAS THE SAME CONTENTS AS THE NEW FIELD. B2400047^^ C THIS PREVENTS LOSS OF GOOD PREVIOUS VALUE DATA. B2400048^^ C 3) CHNGNF WILL NOT CYCLE BLANK FIELDS THRU PREVIOUS VALUE B2400049^^ C FIELDS. HOWEVER, CHANGE REQUESTS CAN BLANK A FIELD IF B2400050^^ C THE OPERATION IS VALIDATED BY THE FLAG PASSED. B2400051^^ C 4) CHNGNF HAS THE CAPABILITY TO UPDATE MULTIPLE PREVIOUS B2400052^^ C VALUE FIELDS THRU A SINGLE CHANGE REQUEST. HOWEVER, CARE B2400053^^ C MUST BE EXERCISED IN ESTABLISHING THE CONTENTS OF THE B2400054^t FTN 3.3B (OPT = LPC) CHNGNF PAGE 2 DATE: 08/30/84 TIME: 0059 t^ C TABLE "PRVFLD" TO PREVENT A FATAL LOOP. B2400055^^ C 5) THE FIELD LENGTH IS A PASSED PARAMETER INSTEAD OF A WORD B2400056^^ C IN THE "PRVFLD" TABLE BECAUSE IT ALLOWS UPDATING OF CON- B2400057^^ C TIGUOUS FIELDS (AND CONTIGUOUS PREVIOUS VALUE FIELDS) AS B2400058^^ C A BLOCK TO MAINTAIN UPDATING INTEGRITY. AN EXAMPLE WOULD B2400059^^ C BE THE MASTER FILE FIELDS FOR BORROWER'S ADDRESS. B2400060^^ C 6) THE INTENDED USE OF THE FLAG PARAMETER IS TO KEEP PROGRAMS B2400061^^ C NOT INTIMATELY INVOLVED IN THE COLLECTION PROCESS (SUCH B2400062^^ C AS UPDATE AND UPD400) FROM DESTROYING WITH BLANKS VALID B2400063^^ C OR AT LEAST MORE CURRENT DATA ENTERED OR SEEN BY A COLLEC- B2400064^^ C TOR THRU PROGRAMS INTIMATELY INVOLVED IN THE COLLECTION B2400065^^ C PROCESS (SUCH AS COLECT). B2400066^^ C 7) CURRENT DESIGN OF CHNGNF HAS THE "PRVFLD" TABLE INTERNALLY B2400067^^ C CODED. LATER VERSIONS CAN MODIFY THE INITIALIZATION B2400068^^ C SECTION TO RETRIEVE THIS TABLE FROM AN EXTERNAL PLACE B2400069^^ C SUCH AS FROM UTILITY FILE RECORDS. B2400070^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: B2400071^^ C 1. IF DATE HAS BEEN RETRIEVED, CONTINUE B2400072^^ C ELSE, RETRIEVE SYSTEM DATE B2400073^^ C NOTE AS PLACE FOR RETRIVEAL OF "PRVFLD" TABLE FROM B2400074^^ C EXTERNAL SOURCE. B2400075^^ C 2. IF NEW FIELD SAME AS OLD FIELD, RETURN B2400076^^ C ELSE, CONTINUE. B2400077^^ C 3. IF OLD FIELD (CURRENT MASTER RECORD CONTENTS) BLANK, GO B2400078^^ C PEFORM ONLY THAT UPDATE AND RETURN (GO TO STEP 4) B2400079^^ C ELSE, IF NEW FIELD NON-BLANK, CONTINUE B2400080^^ C ELSE, IF BLANK UPDATE ALLOWED (FLAG NON-ZERO), B2400081^^ C CONTINUE B2400082^^ C ELSE, RETURN B2400083^^ C INITIALIZE POINTER INTO OPERATION STACK B2400084^^ C SET SEARCH FIELD TO START CHARACTER POSITION OF FIELD B2400085^^ C BEING CHANGED (FLDPOS) B2400086^^ C *TABLOK*STARTING WITH FIRST TABLE ENTRY OF "PRVFLD" THRU LAST B2400087^^ C TABLE ENTRY, DO B2400088^^ C IF END-OF-TABLE, TERMINATE LOOP B2400089^^ C ELSE, IF SEARCH FIELD DOES NOT MATCH TABLE B2400090^^ C ENTRY, CONTINUE B2400091^^ C ELSE, INCREMENT STACK POINTER B2400092^^ C ADD TABLE ENTRY ID TO STACK B2400093^^ C IF FIELD DOES NOT HAVE PREVIOUS VALUE B2400094^^ C FIELD (DATE OF LAST CHANGE ONLY), B2400095^^ C TERMINATE LOOP B2400096^^ C ELSE, SET SEARCH FIELD TO START B2400097^^ C CHARACTER POSITION OF PREVIOUS B2400098^^ C VALUE FIELD B2400099^^ C RESTART TABLE LOOK UP LOOP (TABLOK)B2400100^^ C CONTINUE LOOP. B2400101^^ C IF STACK POINTER IS ZERO, CONTINUE B2400102^^ C ELSE, STARTING WITH LAST OPERATION STACK ENTRY B2400103^^ C GOING BACKWARDS TO FIRST ENTRY, DO B2400104^^ C IF PREVIOUS VALUE FIELD START CHARACTER POSI- B2400105^^ C TION INDICATED BY STACK POINTER IS ZERO, B2400106^^ C CONTINUE B2400107^^ C ELSE, MOVE FIELD INDICATED BY STACK B2400108^t FTN 3.3B (OPT = LPC) CHNGNF PAGE 3 DATE: 08/30/84 TIME: 0059 t^ C POINTER INTO ITS PREVIOUS VALUE FIELD B2400109^^ C IF DATE OF LAST CHANGE FIELD START CHARACTER B2400110^^ C POSITION INDICATED BY STACK POINTER IS ZERO, B2400111^^ C CONTINUE B2400112^^ C ELSE, UPDATE DATE OF LAST CHANGE FIELD B2400113^^ C WITH SYSTEM DATE B2400114^^ C CONTINUE LOOP. B2400115^^ C 4. PERFORM UPDATE OF FIELD REQUESTED IN PARAMETERS. B2400116^^ C 5. RETURN. B2400117^  ^ C**** DECLARATIONS. B2400119^ ^ C**** PASSED PARAMETERS. B2400121^^ 2 INTEGER MASREC(1), FLDPOS, NEWFLD(1), NWFPOS, FLDLEN, FLAG B2400122^ ^ C**** DATE EXTERNALS AND INTERNALS. B2400124^^ 3 EXTERNAL AMONTO, ADAYTO, AYERTO B2400125^^ 4 INTEGER DATE(3) B2400126^^ 5 DATA DATE / 3 * -1 / B2400127^ ^ C**** COMPARE STRING RETURN INDICATOR. B2400129^^ 6 INTEGER COMPIN B2400130^ ^ C**** OPERATION STACK AND POINTER. B2400132^^ 7 INTEGER OPSTAK(10), STAKPT B2400133^ ^ C**** SEARCH FIELD WITH WHICH TABLE IS SCANNED. B2400135^^ 8 INTEGER SERFLD B2400136^ ^ C**** PREVIOUS VALUE FIELD AND DATE OF LAST CHANGE TABLE - "PRVFLD".B2400138^^ 9 INTEGER PRVFLD(30), P1(3), P2(3), P3(3), P4(3), P5(3), P6(3) B2400139^^ 10 INTEGER P7(3), P8(3), P9(3), P10(3) B2400140^^ 11 EQUIVALENCE ( PRVFLD( 1), P1(1) ), ( PRVFLD( 4), P2(1) ), B2400141^^ 11 + ( PRVFLD( 7), P3(1) ), ( PRVFLD(10), P4(1) ), B2400142^^ 11 + ( PRVFLD(13), P5(1) ), ( PRVFLD(16), P6(1) ), B2400143^^ 11 + ( PRVFLD(19), P7(1) ), ( PRVFLD(22), P8(1) ), B2400144^^ 11 + ( PRVFLD(25), P9(1) ), ( PRVFLD(28), P10(1) ) B2400145^^ 12 DATA P1 / 48, 757, 0 / B2400146^^+ + 1. MADR1/MADBL B2400147^^ 13 DATA P2 / 78, 787, 0 / B2400148^^+ + 2. MADR2 B2400149^^ 14 DATA P3 / 108, 817, 0 / B2400150^^+ + 3. MCS B2400151^^ 15 DATA P4 / 128, 837, 0 / B2400152^^+ + 4. MZP B2400153^^ 16 DATA P5 / 271, 296, 300 / B2400154^^+ + 5. MQUE B2400155^^ 17 DATA P6 / -1, 0, 0 / B2400156^^+ + 6. NOT USED B2400157^^ 18 DATA P7 / -1, 0, 0 / B2400158^^+ + 7. NOT USED B2400159^^ 19 DATA P8 / -1, 0, 0 / B2400160^^+ + 8. NOT USED B2400161^^ 20 DATA P9 / -1, 0, 0 / B2400162^^+ + 9. NOT USED B2400163^^ 21 DATA P10 / -1, 0, 0 / B2400164^^+ + 10. NOT USED B2400165^ ^ C**** MAXIMUM NUMBER OF ENTRIES IN TABLE. B2400167^^ 22 INTEGER NUMENT B2400168^^ 23 DATA NUMENT / 10 / B2400169^t FTN 3.3B (OPT = LPC) CHNGNF PAGE 4 DATE: 08/30/84 TIME: 0059 t^ C***********************************************************************B2400171^^ C* BEGIN PROGRAM. *B2400172^^ C***********************************************************************B2400173^ ^ C**** IF DATE HAS BEEN RETRIEVED, CONTINUE B2400175^^ 24 100 IF ( DATE .GE. 0 ) GO TO 200 B2400176^^ C** ELSE, RETRIEVE SYSTEM DATE B2400177^^ 25 DATE(1) = AND ( $FFFF, AMONTO ) B2400178^^ 26 DATE(2) = AND ( $FFFF, ADAYTO ) B2400179^^ 27 DATE(3) = AND ( $FFFF, AYERTO ) B2400180^^ C** **NOTE: THIS IS A ONE TIME INITIALIZATION SECTION. THIS WOULD B2400181^^ C** BE THE PLACE FOR RETRIEVAL OF "PRVFLD" FROM EXTERNAL SOURCE. B2400182^^ C** CONTINUE. B2400183^   ^ C**** IF NEW FIELD SAME AS OLD FIELD, RETURN B2400185^^ 28 200 CALL CCSCST ( MASREC, FLDPOS, FLDLEN, NEWFLD, NWFPOS, FLDLEN, B2400186^^ 28 + COMPIN ) B2400187^^ 29 IF ( COMPIN .EQ. 0 ) GO TO 500 B2400188^^ C** ELSE, CONTINUE. B2400189^ ^ C**** IF OLD FIELD (CURRENT MASTER FILE RECORD CONTENTS) BLANK, PERFORM B2400191^^ C**** ONLY THE UPDATE REQUESTED AND RETURN B2400192^^ 30 210 CALL CCSCST ( MASREC, FLDPOS, FLDLEN, 0, 0, 0, COMPIN ) B2400193^^ 31 IF ( COMPIN .EQ. 0 ) GO TO 400 B2400194^^ C** ELSE, IF NEW FIELD NON-BLANK, CONTINUE B2400195^^ 32 CALL CCSCST ( NEWFLD, NWFPOS, FLDLEN, 0, 0, 0, COMPIN ) B2400196^^ 33 IF ( COMPIN .NE. 0 ) GO TO 220 B2400197^^ C** ELSE, IF BLANK UPDATE ALLOWED (FLAG NONZERO), CONTINUE B2400198^^ 34 IF ( FLAG .NE. 0 ) GO TO 220 B2400199^^ C** ELSE, RETURN B2400200^^ 35 GO TO 500 B2400201^^ C** INITIALIZE POINTER INTO OPERATION STACK B2400202^^ 36 220 STAKPT = 0 B2400203^^ C** SET SEARCH FIELD TO START CHARACTER POSITION OF FIELD BEING B2400204^^ C** CHANGED B2400205^^ 37 SERFLD = FLDPOS B2400206^^ C***TABLOK*STARTING WITH FIRST TABLE ENTRY OF "PRVFLD" THRU LAST TABLE B2400207^^ C** ENTRY, DO (J IS POINTER TO CURRENT 3 WORD ENTRY) B2400208^^ 38 230 DO 250 I=1,NUMENT B2400209^^ 39 J = 3*I - 2 B2400210^^ C** IF END-OF-TABLE, TERMINATE LOOP B2400211^^ 40 IF ( PRVFLD(J) .LT. 0 ) GO TO 260 B2400212^^ C** ELSE, IF SEARCH FIELD DOES NOT MATCH TABLE ENTRY, B2400213^^ C** CONTINUE B2400214^^ 41 IF ( SERFLD .NE. PRVFLD(J) ) GO TO 250 B2400215^^ C** ELSE, INCREMENT STACK POINTER B2400216^^ 42 STAKPT = STAKPT + 1 B2400217^^ C** ADD TABLE ENTRY ID FOR CURRENT FIELD TO STACK B2400218^^ 43 OPSTAK(STAKPT) = I B2400219^^ C** IF FIELD DOES NOT HAVE A PREVIOUS VALUE FIELD B2400220^^ C** (DATE OF LAST CHANGE ONLY), TERMINATE LOOP B2400221^^ 44 IF ( PRVFLD(J+1) .EQ. 0 ) GO TO 260 B2400222^t FTN 3.3B (OPT = LPC) CHNGNF PAGE 5 DATE: 08/30/84 TIME: 0059 t^ C** ELSE, SET SEARCH FIELD TO START CHARACTER B2400223^^ C** POSITION OF PREVIOUS VALUE FIELD B2400224^^ 45 SERFLD = PRVFLD(J+1) B2400225^^ C** RESTART TABLE LOOK UP LOOP (TABLOK) WITH B2400226^^ C** THIS NEW FIELD B2400227^^ 46 GO TO 230 B2400228^^ C** CONTINUE LOOP B2400229^^ 47 250 CONTINUE B2400230^ ^ C** IF THERE ARE NO PRVIOUS VALUE FIELDS OR DATE OF LAST CHANGE B2400232^^ C** FIELDS TO PROCESS, CONTINUE B2400233^^ 48 260 IF ( STAKPT .EQ. 0 ) GO TO 400 B2400234^^ C** ELSE, STARTING WITH LAST OPERATION STACK ENTRY POINTED B2400235^^ C** TO BY STACK POINTER GOING BACKWARDS TO FIRST ENTRY, DO B2400236^^ C** (J IS POINTER TO CURRENT 3 WORD DESCRIPTION BEING PRO- B2400237^^ C** CESSED) B2400238^^ 49 300 DO 350 I=STAKPT,0,-1 B2400239^^ 50 J = 3*OPSTAK(I) - 2 B2400240^^ C** IF PREVIOUS VALUE FIELD DOES NOT EXIST FOR FIELD B2400241^^ C** INDICATED BY STACK POINTER, CONTINUE B2400242^^ 51 IF ( PRVFLD(J+1) .EQ. 0 ) GO TO 310 B2400243^^ C** ELSE, UPDATE PREVIOUS VALUE FIELD AS INDICATED B2400244^^ C** BY "PRVFLD" B2400245^^ 52 CALL CCSMVA ( MASREC, PRVFLD(J) , FLDLEN, B2400246^^ 52 + MASREC, PRVFLD(J+1), FLDLEN) B2400247^^ C** IF DATE OF LAST CHANGE DOES NOT EXIST FOR FIELD B2400248^^ C** INDICATED BY STACK POINTER, CONTINUE B2400249^^ 53 310 IF ( PRVFLD(J+2) .EQ. 0 ) GO TO 350 B2400250^^ C** ELSE, UPDATE DATE OF LAST CHANGE FIELD WITH B2400251^^ C** SYSTEM DATE B2400252^^ 54 CALL CCSMVA ( DATE , 1 , 6, B2400253^^ 54 + MASREC, PRVFLD(J+2), 6 ) B2400254^^ C** CONTINUE LOOP. B2400255^^ 55 350 CONTINUE B2400256^  ^ C**** PERFORM UPDATE REQUESTED IN PARAMETERS. B2400258^^ 56 400 CALL CCSMVA ( NEWFLD, NWFPOS, FLDLEN, MASREC, FLDPOS, FLDLEN ) B2400259^  ^ C**** CHANGE COMPLETE, RETURN. B2400261^^ 57 500 RETURN B2400262^^ 58 END B2400263^t FTN 3.3B (OPT = LPC) CHNGNF PAGE 6 DATE: 08/30/84 TIME: 0059 t  PROGRAM LENGTH $010E ( 270)   EXTERNALS 2 Q8PKUP Q8PREP AMONTO ADAYTO AYERTO CCSCST CCSMVA 2 t FTN 3.3B (OPT = LPC) CHNGNF PAGE 7 DATE: 08/30/84 TIME: 0059 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < ( FFFF (65535) 0031 25,26,27 (d 0000 (0) 0001 12,13,14,15,17,18,19,20,21,24,29,30,31,32,33,34,36,40,44,48,49,51,53 dP 0001 (1) 0000 2,5,11,17,18,19,20,21,25,38,42,44,45,49,51,52,54 P$ 0006 (6) 0034 54,54$   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( AND INTR.FN. 7FFF 25,26,27 (2 COMPIN INTEGER 0005 5,28,29,30,31,32,3322 DATE INTEGER 0002 2,5,24,25,26,27,54 2& FLAG INTEGER 7FFF 1,2,34 &2 FLDLEN INTEGER 7FFF 1,2,28,30,32,52,56 2. FLDPOS INTEGER 7FFF 1,2,28,30,37,56.. I INTEGER 0032 37,39,43,49,50 .@ J INTEGER 0033 38,39,40,41,44,45,50,51,52,53,54 @2 MASREC INTEGER 7FFF 1,2,28,30,52,54,56 2, NEWFLD INTEGER 7FFF 1,2,28,32,56 ,( NUMENT INTEGER 0030 21,23,38 (, NWFPOS INTEGER 7FFF 1,2,28,32,56 ,& OPSTAK INTEGER 0006 5,43,50&& P1 INTEGER 0012 5,11,12&& P10 INTEGER 002D 5,11,21&& P2 INTEGER 0015 5,11,13&& P3 INTEGER 0018 5,11,14&& P4 INTEGER 001B 5,11,15&& P5 INTEGER 001E 5,11,16&& P6 INTEGER 0021 5,11,17&& P7 INTEGER 0024 5,11,18&& P8 INTEGER 0027 5,11,19&& P9 INTEGER 002A 5,11,20&< PRVFLD INTEGER 0012 5,11,40,41,44,45,51,52,53,54 <* SERFLD INTEGER 0011 5,37,41,45 *0 STAKPT INTEGER 0010 5,36,42,43,48,49 0t FTN 3.3B (OPT = LPC) CHNGNF PAGE 8 DATE: 08/30/84 TIME: 0059 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( CCSCST SUBROUTINE 0045 28,30,32 (( CCSMVA SUBROUTINE 00B6 51,54,56 ( Q8PKUP INTEGER.FN. 00E0 Q8PREP INTEGER.FN. 00DD    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0035 23 "$ 200 0044 24,28$" 210 0052 29 "( 220 006E 33,34,36 ($ 230 0072 37,46$( 250 0097 37,41,47 (( 260 0099 40,44,48 (" 300 009D 48 "$ 310 00BD 51,53$( 350 00CD 48,53,55 (( 400 00D0 31,48,56 (( 500 00D7 29,35,57 ( CHNGNF 00DA 1 t FTN 3.3B (OPT = LPC) CONUPD PAGE 1 DATE: 08/30/84 TIME: 0059 t^ 1 SUBROUTINE CONUPD B3200001^^ 1 1 /B32 F CCS CCS 3.0 SL-149B3200002^^ C CONDITIONAL UPDATE OF NON-FINANCIAL FIELDS B3200003^^ C CYBERCREDIT SYSTEM VERSION 3 B3200004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA CALIFORNIA B3200005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3200006^^ C B3200007^ ^ C CONUPD WILL UPDATE ALL NON-FINANCIAL FIELDS (ADDRESS, PHONE B3200009^^ C NUMBERS, ETC.) WITH THE FIELDS FROM THE INPUT BUFFER WHEN THE B3200010^^ C FOLLOWING CONDITIONS ARE MET: B3200011^^ C 1) THE COLLECTOR HAS NEVER MADE A NON-FINANCIAL CHANGE TO B3200012^^ C ACCOUNT INFORMATION (DONE THRU BORROWER'S CHANGE SCREEN B3200013^^ C FUNCTIONS ONLY), OR, THE NUMBER OF DAYS SINCE THE LAST B3200014^^ C CHANGE IS GREATER THAN THE CONTENTS OF THE UPDY PARAMETER B3200015^^ C IN THE UTILITY FILE AND THE PARAMETER IS NOT EQUAL TO B3200016^^ C '999'. THE LAST CONDITION ALLOWS THE USER THE CAPABILITY B3200017^^ C TO HAVE UPDATE REJECT ALL UPDATES OF NON-FINANCIAL FIELDS B3200018^^ C FROM THE HOST A/R SYSTEM. B3200019^^ C 2) THE NEW FIELD CONTENTS ARE NOT BLANK. B3200020^^ C THE NON-FINANCIAL FIELDS UPDATED ARE DETAILED IN THE FOLLOWING B3200021^^ C TABLE: B3200022^^ C START STARTB3200023^^ C FIELD LENGTH POS POS B3200024^^ C NAME DESCRIPTION (CHAR) INPUT FILE B3200025^^ C ------------------------------------------------------------------B3200026^^ C MSLCD BORROWER'S SALUTATION CODE 1 20 17B3200027^^ C MADRB BORROWER'S ADDRESS BLOCK - LINE1, LINE2, 85 51 48B3200028^^ C CITY/STATE, AND ZIP (UPDATED AS ONE FIELD B3200029^^ C TO PRESERVE ADDRESS INTEGRITY BETWEEN B3200030^^ C MULTIPLE UPDATES) B3200031^^ C MPHN BORROWER'S PHONE 10 136 133B3200032^^ C MEXT BORROWER'S EXTENSION/COMMENT 4 146 143B3200033^^ C MBNM BUSINESS NAME 30 150 147B3200034^^ C MBAD BUSINESS ADDRESS 30 180 177B3200035^^ C MBCS BUSINESS CITY/STATE 20 210 207B3200036^^ C MBZP BUSINESS ZIP 5 230 227B3200037^^ C MBPH BUSINESS PHONE 10 235 232B3200038^^ C MBEX BUSINESS EXTENSION/COMMENT 4 245 242B3200039^^ C MADL ADDITIONAL ACCOUNT NUMBER 16 249 246B3200040^^ C MSOC SOCIAL SECURITY NUMBER 9 265 262B3200041^ ^ C THE INTERNAL TABLE "NONFTB" CONTAINS THE FOLLOWING THREE WORD B3200043^^ C ENTRY DESCRIBING EACH FIELD: B3200044^^ C 1ST WORD - START CHARACTER POSITION OF FIELD IN MASTER FILE B3200045^^ C RECORD. IF THIS FIELD IS ZERO, THIS ENTRY IS A B3200046^^ C NULL ENTRY. IF THIS FIELD IS LESS THAN ZERO, THIS B3200047^^ C SIGNALS THE LAST ENTRY IN THE TABLE (END-OF-TABLE).B3200048^^ C 2ND WORD - START CHARACTER POSITION OF NEW FIELD CONTENTS B3200049^^ C IN INPUT BUFFER B3200050^^ C 3RD WORD - LENGTH OF FIELD (IN CHARACTERS) B3200051^^ C A SEPARATE SUBROUTINE IS USED TO PERFORM THE UPDATING. THIS B3200052^^ C SUBROUTINE WILL TRACK PREVIOUS VALUE FIELDS, MULTIPLE PREVIOUS B3200053^^ C VALUE FIELDS, AND A DATE OF LAST CHANGE FOR THE FIELD. ANOTHER B3200054^t FTN 3.3B (OPT = LPC) CONUPD PAGE 2 DATE: 08/30/84 TIME: 0059 t^ C FUNCTION OF CONUPD IS TO PROCESS CHANGES TO THE BORROWER'S NAME. B3200055^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: B3200056^^ C 1. IF ACCOUNT HAS NEVER BEEN CHANGED VIA CHANGE SCREEN (OR B3200057^^ C BY UPDATE FROM HISTORY PROCEDURE), CONTINUE B3200058^^ C ELSE, IF UPDY PARAMETER IN UTILITY FILE RECORD SET B3200059^^ C TO '999', CONTINUE B3200060^^ C ELSE, CALCULATE NUMBER OF DAYS SINCE LAST CHANGE B3200061^^ C IF DAYS SINCE LAST CHANGE GREATER THAN OR EQUAL B3200062^^ C TO NUMBER OF DAYS SPECIFIED IN UPDY PARAMETER, B3200063^^ C PERFORM UPDATE OF FIELDS (GO TO STEP 2) B3200064^^ C ELSE, CONTINUE B3200065^^ C ADD COMMENT TO DETAIL LINE - NO NON-FINANCIALS B3200066^^ C ACCEPTED B3200067^^ C RETURN. B3200068^^ C 2. STARTING WITH FIRST FIELD DESCRIPTION OF "NONFTB" THRU B3200069^^ C LAST FIELD DESCRIPTION, DO B3200070^^ C IF END-OF-TABLE, TERMINATE LOOP B3200071^^ C ELSE, PERFORM UPDATE OF FIELD B3200072^^ C CONTINUE LOOP. B3200073^^ C 3. IF NAME IS NOT CHANGED, CONTINUE B3200074^^ C ELSE, IF OLD SECONDARY KEY SAVE AREA IS NON-BLANK, B3200075^^ C CONTINUE B3200076^^ C ELSE, UPDATE SECONDARY KEY SAVE AREA WITH CURRENTB3200077^^ C KEY B3200078^^ C FORMAT ADDACT FILE RECORD FOR ACCOUNT B3200079^^ C ADD ACCOUNT TO THE ADDACT FILE B3200080^^ C UPDATE NAME WITH NEW NAME. B3200081^^ C 4. RETURN B3200082^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. B3200084^^ M UPDMAC B3200085^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^t FTN 3.3B (OPT = LPC) CONUPD PAGE 3 DATE: 08/30/84 TIME: 0059 t^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^t FTN 3.3B (OPT = LPC) CONUPD PAGE 4 DATE: 08/30/84 TIME: 0059 t^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^t FTN 3.3B (OPT = LPC) CONUPD PAGE 5 DATE: 08/30/84 TIME: 0059 t^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^t FTN 3.3B (OPT = LPC) CONUPD PAGE 6 DATE: 08/30/84 TIME: 0059 t^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) CONUPD PAGE 7 DATE: 08/30/84 TIME: 0059 t^ C**** LOCAL DECLARATIONS. B3200086^ ^ C**** VARIABLES USED IN DAYS SINCE LAST CHANGE CALCULATION. B3200088^^ 133 INTEGER CURYR, CHGYR, YRDIFF, JCUR, JCHG, JDIFF B3200089^ ^ C**** NAME CHANGE FLAG FOR ADDACT FILE. B3200091^^ 134 INTEGER NMCFLG B3200092^^ 135 DATA NMCFLG / $4E / B3200093^^ C** N B3200094^ ^ C**** ERROR NOTE TO DETAIL LINE - NO NON-FINANCIALS ACCEPTED. B3200096^^ 136 INTEGER NONFFA(14) B3200097^^ 137 DATA NONFFA / '- NO NON-FINANCIALS ACCEPTED' / B3200098^ ^ C**** NON-FINANCIAL FIELD UPDATE TABLE - "NONFTB" . B3200100^^ 138 INTEGER NONFTB(45) B3200101^^ 139 INTEGER F1(3), F2(3), F3(3), F4(3), F5(3), F6(3), F7(3) B3200102^^ 140 INTEGER F8(3), F9(3), F10(3), F11(3), F12(3), F13(3), F14(3) B3200103^^ 141 INTEGER F15(3) B3200104^^ 142 EQUIVALENCE ( NONFTB( 1), F1(1) ), ( NONFTB( 4), F2(1) ), B3200105^^ 142 + ( NONFTB( 7), F3(1) ), ( NONFTB(10), F4(1) ), B3200106^^ 142 + ( NONFTB(13), F5(1) ), ( NONFTB(16), F6(1) ), B3200107^^ 142 + ( NONFTB(19), F7(1) ), ( NONFTB(22), F8(1) ), B3200108^^ 142 + ( NONFTB(25), F9(1) ), ( NONFTB(28), F10(1) ), B3200109^^ 142 + ( NONFTB(31), F11(1) ), ( NONFTB(34), F12(1) ) B3200110^^ 143 EQUIVALENCE ( NONFTB(37), F13(1) ), ( NONFTB(40), F14(1) ), B3200111^^ 143 + ( NONFTB(43), F15(3) ) B3200112^ ^ 144 DATA F1 / 17, 20, 1 / B3200114^^+ + 1. MSLCD B3200115^^ 145 DATA F2 / 48, 51, 85 / B3200116^^+ + 2. MADRBL - (MADR1/MADR2/MCS/MZP)B3200117^^ 146 DATA F3 / 133, 136, 10 / B3200118^^+ + 3. MPHN B3200119^^ 147 DATA F4 / 143, 146, 4 / B3200120^^+ + 4. MEXT B3200121^^ 148 DATA F5 / 147, 150, 30 / B3200122^^+ + 5. MBNM B3200123^^ 149 DATA F6 / 177, 180, 30 / B3200124^^+ + 6. MBAD B3200125^^ 150 DATA F7 / 207, 210, 20 / B3200126^^+ + 7. MBCS B3200127^^ 151 DATA F8 / 227, 230, 5 / B3200128^^+ + 8. MBZP B3200129^^ 152 DATA F9 / 232, 235, 10 / B3200130^^+ + 9. MBPH B3200131^^ 153 DATA F10 / 242, 245, 4 / B3200132^^+ + 10. MBEX B3200133^^ 154 DATA F11 / 246, 249, 16 / B3200134^^+ + 11. MADL B3200135^^ 155 DATA F12 / 262, 265, 9 / B3200136^^+ + 12. MSOC B3200137^^ 156 DATA F13 / -1, 0, 0 / B3200138^^+ + 13. NOT USED B3200139^^ 157 DATA F14 / -1, 0, 0 / B3200140^^+ + 14. NOT USED B3200141^^ 158 DATA F15 / -1, 0, 0 / B3200142^^+ + 15. NOT USED B3200143^ ^ C**** MAXIMUM NUMBER OF ENTRIES IN TABLE. B3200145^^ 159 INTEGER NUMENT B3200146^^ 160 DATA NUMENT / 15 / B3200147^t FTN 3.3B (OPT = LPC) CONUPD PAGE 8 DATE: 08/30/84 TIME: 0059 t^ C***********************************************************************B3200149^^ C* BEGIN PROGRAM. *B3200150^^ C***********************************************************************B3200151^ ^ C**** IF ACCOUNT HAS NEVER BEEN CHANGED VIA THE BORROWER'S CHANGE (OR B3200153^^ C**** BY UPDATE FROM HISTORY PROCEDURE), CONTINUE B3200154^^ 161 100 CALL CCSCST ( RECBDM, MUPDT, N6, DUMMY, N0, N0, COMPIN ) B3200155^^ 162 IF ( COMPIN .EQ. 0 ) GO TO 120 B3200156^^ C** ELSE, IF UPDY PARAMETER SET TO REJECT ALL NON-FINANCIAL B3200157^^ C** CHANGES WHEN AN UPDATE HAS BEEN MADE BY A COLLECTOR, CONTINUEB3200158^^ 163 IF ( UPDY .EQ. 999 ) GO TO 110 B3200159^^ C** ELSE, CALCULATE NUMBER OF DAYS SINCE LAST COLLECTOR B3200160^^ C** CHANGE B3200161^^ C** YEAR DIFFERENCE (INCLUDING CENTURY ROLL OVER ) B3200162^^ 164 CURYR = ICCSAD ( YEAR ) B3200163^^ 165 CHGYR = ICCSAD ( RECBDM(434) ) B3200164^^ 166 IF ( CURYR .LT. CHGYR ) CURYR = CURYR + 100 B3200165^^ 167 YRDIFF = CURYR - CHGYR B3200166^^ C** DAYS DIFFERENCE B3200167^^ 168 JCUR = ICALJL ( DATE, N1 ) B3200168^^ 169 JCHG = ICALJL ( RECBDM, MUPDT ) B3200169^^ 170 JDIFF = YRDIFF*365 + JCUR - JCHG B3200170^^ C** IF DAYS SINCE LAST CHANGE GREATER THAN OR EQUAL TO B3200171^^ C** NUMBER OF DAYS SPECIFIED IN UPDY PARAMETER OF UTILITY B3200172^^ C** FILE, PERFORM FIELD UPDATING B3200173^^ 171 IF ( YRDIFF .GE. 4 .OR. JDIFF .GE. UPDY ) GO TO 120 B3200174^^ C** ELSE, CONTINUE B3200175^ ^ C** ADD COMMENT TO DETAIL LINE - NO NON-FINANCIALS ACCEPTED B3200177^^ 172 110 CALL CCSMVA ( NONFFA, N1, N28, DETLIN(53), N1, N28 ) B3200178^^ C** RETURN. B3200179^^ 173 GO TO 200 B3200180^ ^ C**** STARTING WITH FIRST FIELD DESCRIPTION OF "NONFTB" THRU LAST FIELD B3200182^^ C**** DESCRIPTION, DO (J IS POINTER TO CURRENT 3 WORD FIELD DESCRIPTION)B3200183^^ 174 120 DO 130 I=1,NUMENT B3200184^^ 175 J = 3*I - 2 B3200185^^ C** IF START CHARACTER POSITION IN MASTER FILE RECORD IS ZERO, B3200186^^ 176 CONTINUE B3200187^^ 177 IF ( NONFTB(J) .EQ. 0 ) GO TO 130 B3200188^^ C** ELSE, IF END-OF-TABLE, TERMINATE LOOP B3200189^^ 178 IF ( NONFTB(J) .LT. 0 ) GO TO 140 B3200190^^ C** ELSE, PERFORM FIELD UPDATE B3200191^^ 179 CALL CHNGNF ( RECBDM, NONFTB(J), INPBUF, B3200192^^ 179 + NONFTB(J+1), NONFTB(J+2), N0 ) B3200193^^ C** CONTINUE LOOP. B3200194^^ 180 130 CONTINUE B3200195^ ^ C**** IF NAME HAS NOT CHANGED, RETURN B3200197^^ 181 140 CALL CCSCST ( RECBDM, MNAM, N30, INPBUF, TNAM, N30, COMPIN ) B3200198^^ 182 IF ( COMPIN .EQ. 0 ) GO TO 150 B3200199^^ C** ELSE, IF OLD SECONDARY KEY SAVE AREA NON-BLANK, CONTINUE B3200200^^ 183 CALL CCSCST ( RECBDM, MNCHG, N6, DUMMY, N0, N0, COMPIN ) B3200201^^ 184 IF ( COMPIN .EQ. 0 ) GO TO 150 B3200202^t FTN 3.3B (OPT = LPC) CONUPD PAGE 9 DATE: 08/30/84 TIME: 0059 t^ C** ELSE, UPDATE SECONDARY KEY SAVE AREA WITH CURRENT KEY B3200203^^ 185 CALL CCSMVA ( RECBDM, MNAM, N6, RECBDM, MNCHG, N6 ) B3200204^^ C** FORMAT ADDACT FILE RECORD FOR ACCOUNT B3200205^^ 186 CALL CCSMVA ( RECBDM, N1, N16, RECBAD, N1, N16 ) B3200206^^ 187 CALL CCSPUT ( NMCFLG, AFLG, RECBAD ) B3200207^^ C** ADD ACCOUNT TO ADDACT FILE B3200208^^ 188 CALL PUTS ( REQBAD, RECBAD, N1, ISTAT ) B3200209^^ C** IF NO FILE ERROR, CONTINUE B3200210^^ 189 IF ( ISTAT .GE. 0 ) GO TO 150 B3200211^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM B3200212^^ C** UPDEND) B3200213^^ 190 CALL FILERR ( IDATAD, N11, ISTAT, TLU ) B3200214^^ 191 CALL UPDEND B3200215^ ^ C** UPDATE NAME WITH NEW NAME. B3200217^^ 192 150 CALL CCSMVA ( INPBUF, TNAM, N30, RECBDM, MNAM, N30 ) B3200218^  ^ C**** CONDITIONAL UPDATE OF NON-FINANCIAL FIELDS COMPLETE, RETURN. B3200220^^ 193 200 RETURN B3200221^^ 194 END B3200222^t FTN 3.3B (OPT = LPC) CONUPD PAGE 10 DATE: 08/30/84 TIME: 0059 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $0103 ( 259)   EXTERNALS 2 CCSCST ICCSAD ICALJL CCSMVA CHNGNF CCSPUT PUTS 2 FILERR UPDEND  t FTN 3.3B (OPT = LPC) CONUPD PAGE 11 DATE: 08/30/84 TIME: 0059 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < " 016D (365) 0044 170"" 03E7 (999) 0043 163"   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$( AFLG INTEGER 0B19 D 68,70,187($ ALRACC INTEGER 0AD6 D 43,45$( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$. CHGYR INTEGER 0001 132,165,166,167.( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$> COMPIN INTEGER 0D2E D 104,106,161,162,181,182,183,184>. CURYR INTEGER 0000 132,164,166,167., DATE INTEGER 0AED D 47,49,50,168 ,$ DAY INTEGER 0AEE D 47,49$( DETLIN INTEGER 0A8B D 39,41,172(* DUMMY INTEGER 0000 D 1,3,161,183*$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $* F1 INTEGER 0015 137,142,144** F10 INTEGER 0030 137,142,153** F11 INTEGER 0033 137,142,154** F12 INTEGER 0036 137,142,155** F13 INTEGER 0039 137,143,156** F14 INTEGER 003C 137,143,157** F15 INTEGER 003D 137,143,158** F2 INTEGER 0018 137,142,145** F3 INTEGER 001B 137,142,146** F4 INTEGER 001E 137,142,147** F5 INTEGER 0021 137,142,148** F6 INTEGER 0024 137,142,149*t FTN 3.3B (OPT = LPC) CONUPD PAGE 12 DATE: 08/30/84 TIME: 0059 t* F7 INTEGER 0027 137,142,150** F8 INTEGER 002A 137,142,151** F9 INTEGER 002D 137,142,152*$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$& I INTEGER 0045 174,175&( IDATAD INTEGER 0568 D 17,19,190($ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$0 INPBUF INTEGER 070E D 37,39,179,181,19200 ISTAT INTEGER 0708 D 34,37,188,189,19002 J INTEGER 0046 174,175,177,178,1792* JCHG INTEGER 0004 132,169,170** JCUR INTEGER 0003 132,168,170** JDIFF INTEGER 0005 132,170,171*$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$0 MNAM INTEGER 0B0C D 57,61,181,185,1920, MNCHG INTEGER 0B0D D 57,61,183,185,$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$, MUPDT INTEGER 0B0E D 57,61,161,169,2 N0 INTEGER 0D39 D 112,123,161,179,18326 N1 INTEGER 0D3A D 112,123,168,172,186,1886& N10 INTEGER 0D43 D 112,124&* N11 INTEGER 0D44 D 112,124,190*& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&* N16 INTEGER 0D49 D 112,124,186*& N17 INTEGER 0D4A D 112,124&& N2 INTEGER 0D3B D 112,123&& N26 INTEGER 0D4B D 112,125&t FTN 3.3B (OPT = LPC) CONUPD PAGE 13 DATE: 08/30/84 TIME: 0059 t& N27 INTEGER 0D4C D 112,125&* N28 INTEGER 0D4D D 112,125,172*& N3 INTEGER 0D3C D 112,123&. N30 INTEGER 0D4E D 112,126,181,192.& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&2 N6 INTEGER 0D3F D 112,123,161,183,1852& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&* NMCFLG INTEGER 0006 132,135,187** NONFFA INTEGER 0007 135,137,172*6 NONFTB INTEGER 0015 137,142,143,177,178,1796$ NUMADD INTEGER 0BB0 D 89,94$* NUMENT INTEGER 0042 158,160,174*$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$0 RECBAD INTEGER 055D D 17,19,186,187,1880( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$L RECBDM INTEGER 001F D 10,12,13,161,165,169,179,181,183,185,186,192 L$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$( REQBAD INTEGER 0545 D 17,19,188($ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$t FTN 3.3B (OPT = LPC) CONUPD PAGE 14 DATE: 08/30/84 TIME: 0059 t$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$* TLU INTEGER 0D2D D 102,104,190*, TNAM INTEGER 0AFD D 54,56,181,192,$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$, UPDY INTEGER 0BDA D 94,96,163,171,$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$( YEAR INTEGER 0AEF D 47,49,164(. YRDIFF INTEGER 0002 132,167,170,171.t FTN 3.3B (OPT = LPC) CONUPD PAGE 15 DATE: 08/30/84 TIME: 0059 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * CCSCST SUBROUTINE 00C2 160,181,183*. CCSMVA SUBROUTINE 0082 172,185,186,192." CCSPUT SUBROUTINE 00DE 186"" CHNGNF SUBROUTINE 00AC 178"" FILERR SUBROUTINE 00ED 189"& ICALJL INTEGER.FN. 006C 168,169&& ICCSAD INTEGER.FN. 005B 164,165&" PUTS SUBROUTINE 00E3 187"" UPDEND SUBROUTINE 00F3 190"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0047 160"& 110 0081 163,172&* 120 008A 162,171,174** 130 00B3 174,177,180*& 140 00B5 178,181&. 150 00F4 182,184,189,192.& 200 00FB 172,193& CONUPD 00FE 1  t FTN 3.3B (OPT = LPC) COSUPD PAGE 1 DATE: 08/30/84 TIME: 0101 t^ 1 SUBROUTINE COSUPD B3300001^^ 1 1 /B33 F CCS CCS 3.0 SL-149B3300002^^ C PERFORM COSIGNER ADDITION B3300003^^ C CYBERCREDIT SYSTEM VERSION 3 B3300004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3300005^^ C COPYRIGHT COTROL DATA CORPORATION, 1979 B3300006^^ C B3300007^ ^ C COSUPD WILL ADD COSIGNERS TO THE DELINQUENT ACCOUNT DATA BASE. B3300009^^ C THE ACCOUNT IS ADDED TO THE COSIGNER FILE ONLY IF THE FOLLOWING B3300010^^ C TWO CONDITIONS ARE MET: B3300011^^ C 1) COSIGNER NAME 1, 2, OR 3 IN THE TRANSACTION INPUT BUFFER B3300012^^ C IS NON-BLANK, B3300013^^ C AND 2) THE ACCOUNT DOES NOT ALREADY EXIST IN THE COSIGNER FILE. B3300014^^ C THE LATTER CONDITION LIMITS UPDATE TO ADDING OF COSIGNERS ONLY. B3300015^^ C IT DOES NOT UPDATE EXISTING COSIGNER INFORMATION. THIS WOULD HAVEB3300016^^ C TO BE PERFORMED BY THE NON-FINANCIAL UPDATE PROCESS, UPD400. ANY B3300017^^ C ADD, UPDATE, OR REACTIVATION TRANSACTION CAN PERFORM AN ADDITION B3300018^^ C TO THE COSIGNER FILE, PROVIDING THE TWO CONDITIONS STATED ABOVE B3300019^^ C ARE MET. THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: B3300020^^ C 1. IF COSIGNER 1, 2, AND 3 NAMES ARE NON-BLANK, CONTINUE B3300021^^ C ELSE, RETURN. B3300022^^ C 2. FORMAT COSIGNER FILE RECORD FOR ACCOUNT. B3300023^^ C 3. ADD ACCOUNT TO COSIGNER FILE. B3300024^^ C 4. IF ACCOUNT NOT ALREADY ON COSIGNER FILE, CONTINUE B3300025^^ C ELSE, IF NOT ADD OPERATION, CONTINUE B3300026^^ C ELSE, RETRIEVE ACCOUNT FROM COSIGNER FILE B3300027^^ C IF ACCOUNT BUSY, RETRY RETRIEVAL REQUEST B3300028^^ C ELSE, UPDATE ACCOUNT ON COSIGNER FILE. B3300029^^ C 5. RETURN. B3300030^^ C THE LOGIC IN STEP 4 COVERS THE CIRCUMSTANCE AN ACCOUNT IS BEING B3300031^^ C ADDED TO THE DELQMST FILE, BUT THE COSIGNER FILE ALREADY HAS A B3300032^^ C RECORD FOR THAT ACCOUNT (WHICH CAN HAPPEN THRU OPERATOR/SYSTEM B3300033^^ C ERRORS IN SAVE AND HISTORY). IN THIS CASE, THE ACCOUNT IN THE B3300034^^ C COSIGNER FILE IS UPDATED WITH NEW COSIGNER INFORMATION FROM THE B3300035^^ C THE INPUT BUFFER. B3300036^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. B3300038^^ M UPDMAC B3300039^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^t FTN 3.3B (OPT = LPC) COSUPD PAGE 2 DATE: 08/30/84 TIME: 0101 t^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^t FTN 3.3B (OPT = LPC) COSUPD PAGE 3 DATE: 08/30/84 TIME: 0101 t^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^t FTN 3.3B (OPT = LPC) COSUPD PAGE 4 DATE: 08/30/84 TIME: 0101 t^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^t FTN 3.3B (OPT = LPC) COSUPD PAGE 5 DATE: 08/30/84 TIME: 0101 t^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^t FTN 3.3B (OPT = LPC) COSUPD PAGE 6 DATE: 08/30/84 TIME: 0101 t^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) COSUPD PAGE 7 DATE: 08/30/84 TIME: 0101 t^ C**** LOCAL DECLARATIONS. B3300040^ ^ C**** START CHARACTER POSITIONS OF COSIGNER NAME FIELDS IN INPUT B3300042^^ C**** BUFFER. B3300043^^ 133 INTEGER TCN1, TCN2, TCN3 B3300044^^ 134 DATA TCN1 / 1442 / B3300045^^ 135 DATA TCN2 / 1557 / B3300046^^ 136 DATA TCN3 / 1672 / B3300047^ ^ C**** START CHARACTER POSTION AND LENGTH OF COSIGNER INFORMATION IN B3300049^^ C**** INPUT BUFFER. B3300050^^ 137 INTEGER TCOS, LCOS B3300051^^ 138 DATA TCOS / 1440 / B3300052^^ 139 DATA LCOS / 345 / B3300053^  ^ C***********************************************************************B3300055^^ C* BEGIN PROGRAM. *B3300056^^ C***********************************************************************B3300057^ ^ C**** IF COSIGNER 1, 2, OR 3 NAMES ARE NON-BLANK, CONTINUE B3300059^^ 140 100 CALL CCSCST ( INPBUF, TCN1, N30, DUMMY, N0, N0, COMPIN ) B3300060^^ 141 IF ( COMPIN .NE. 0 ) GO TO 110 B3300061^^ 142 CALL CCSCST ( INPBUF, TCN2, N30, DUMMY, N0, N0, COMPIN ) B3300062^^ 143 IF ( COMPIN .NE. 0 ) GO TO 110 B3300063^^ 144 CALL CCSCST ( INPBUF, TCN3, N30, DUMMY, N0, N0, COMPIN ) B3300064^^ 145 IF ( COMPIN .NE. 0 ) GO TO 110 B3300065^^ C** ELSE, RETURN. B3300066^^ 146 GO TO 200 B3300067^ ^ C**** FORMAT COSIGNER FILE RECORD FOR THIS ACCOUNT. B3300069^^ 147 110 CALL CCSMVA ( RECBDM, N1, N16, RECBCS, N1, N17 ) B3300070^^ 148 CALL CCSMVA ( INPBUF, TCOS, LCOS, RECBCS(9), N2, LCOS ) B3300071^ ^ C**** ADD ACCOUNT TO COSIGNER FILE B3300073^^ 149 120 CALL WRITER ( REQBCS, RECBCS, RECBCS, ISTAT ) B3300074^^ C** IF NO FILE ERROR, CONTINUE B3300075^^ 150 IF ( ISTAT .GE. 0 .OR. AND( ISTAT, DUPKEY ) .NE. 0 ) B3300076^^ 150 + GO TO 130 B3300077^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). B3300078^^ 151 CALL FILERR ( IDATCS, N12, ISTAT, TLU ) B3300079^^ 152 CALL UPDEND B3300080^ ^ C**** IF ACCOUNT DID NOT ALREADY EXIST ON COSIGNER FILE, CONTINUE B3300082^^ 153 130 IF ( ISTAT .GE. 0 ) GO TO 200 B3300083^^ C** ELSE, IF THIS IS NOT AN ADD TRANSACTION, CONTINUE B3300084^^ 154 IF ( ACCTFD .NE. 0 ) GO TO 200 B3300085^^ C** ELSE, RETRIEVE ACCOUNT FROM COSIGNER FILE B3300086^^ 155 CALL READR ( REQBCS, RECBCS, RECBCS, ISTAT ) B3300087^^ C** IF NO FILE ERROR, CONTINUE B3300088^^ 156 IF ( ISTAT .GE. 0 .OR. AND( ISTAT, BUSY ) .NE. 0 ) B3300089^^ 156 + GO TO 140 B3300090^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM B3300091^^ C** UPDEND). B3300092^t FTN 3.3B (OPT = LPC) COSUPD PAGE 8 DATE: 08/30/84 TIME: 0101 t^ 157 CALL FILERR ( IDATCS, N13, ISTAT, TLU ) B3300093^^ 158 CALL UPDEND B3300094^^ C** UPDATE ACCOUNT ON COSIGNER FILE B3300095^^ 159 140 CALL CCSMVA ( INPBUF, TCOS, LCOS, RECBCS(9), N2, LCOS )B3300096^^ 160 CALL UPDREC ( REQBCS, RECBCS, ISTAT ) B3300097^^ C** IF NO FILE ERROR, CONTINUE B3300098^^ 161 IF ( ISTAT .GE. 0 ) GO TO 200 B3300099^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM B3300100^^ C** UPDEND). B3300101^^ 162 CALL FILERR ( IDATCS, N15, ISTAT, TLU ) B3300102^^ 163 CALL UPDEND B3300103^  ^ C**** COSIGNER ADDITION FUNCTIONS COMPLETE, RETURN. B3300105^^ 164 200 RETURN B3300106^^ 165 END B3300107^t FTN 3.3B (OPT = LPC) COSUPD PAGE 9 DATE: 08/30/84 TIME: 0101 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $008A ( 138)   EXTERNALS 2 CCSCST CCSMVA WRITER FILERR UPDEND READR UPDREC 2 t FTN 3.3B (OPT = LPC) COSUPD PAGE 10 DATE: 08/30/84 TIME: 0101 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&( ACCTFD INTEGER 0001 D 3,10,154 ($ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$& AND INTR.FN. 7FFF 150,156&( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&( BUSY INTEGER 070D D 34,37,156(( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$> COMPIN INTEGER 0D2E D 104,106,140,141,142,143,144,145>( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$. DUMMY INTEGER 0000 D 1,3,140,142,144.( DUPKEY INTEGER 070C D 34,37,150($ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$0 IDATCS INTEGER 0536 D 15,17,151,157,1620$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$8 INPBUF INTEGER 070E D 37,39,140,142,144,148,1598L ISTAT INTEGER 0708 D 34,37,149,150,151,153,155,156,157,160,161,162L$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$. LCOS INTEGER 0004 136,139,148,159.$ LINCNT INTEGER 0ACF D 41,43$$ MADLQ INTEGER 0B06 D 57,60$t FTN 3.3B (OPT = LPC) COSUPD PAGE 11 DATE: 08/30/84 TIME: 0101 t$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$2 N0 INTEGER 0D39 D 112,123,140,142,1442* N1 INTEGER 0D3A D 112,123,147*& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&* N12 INTEGER 0D45 D 112,124,151** N13 INTEGER 0D46 D 112,124,157*& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&* N15 INTEGER 0D48 D 112,124,162** N16 INTEGER 0D49 D 112,124,147** N17 INTEGER 0D4A D 112,124,147*. N2 INTEGER 0D3B D 112,123,148,159.& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&& N3 INTEGER 0D3C D 112,123&2 N30 INTEGER 0D4E D 112,126,140,142,1442& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$t FTN 3.3B (OPT = LPC) COSUPD PAGE 12 DATE: 08/30/84 TIME: 0101 t$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 (< RECBCS INTEGER 047F D 15,17,147,148,149,155,159,160<, RECBDM INTEGER 001F D 10,12,13,147 ,$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$0 REQBCS INTEGER 0467 D 15,17,149,155,1600$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$* TCN1 INTEGER 0000 132,134,140** TCN2 INTEGER 0001 132,135,142** TCN3 INTEGER 0002 132,136,144*. TCOS INTEGER 0003 136,138,148,159.$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$2 TLU INTEGER 0D2D D 102,104,151,157,1622$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $t FTN 3.3B (OPT = LPC) COSUPD PAGE 13 DATE: 08/30/84 TIME: 0101 t$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * CCSCST SUBROUTINE 0006 139,142,144** CCSMVA SUBROUTINE 002B 147,148,159** FILERR SUBROUTINE 0049 150,157,162*" READR SUBROUTINE 005A 154"* UPDEND SUBROUTINE 004F 151,158,163*" UPDREC SUBROUTINE 0075 159"" WRITER SUBROUTINE 003A 148"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0005 139". 110 002A 141,143,145,147." 120 0039 148"& 130 0050 150,153&& 140 006D 156,159&2 200 0082 145,153,154,161,1642 COSUPD 0085 1  t FTN 3.3B (OPT = LPC) FORMLN PAGE 1 DATE: 08/30/84 TIME: 0102 t^ 1 SUBROUTINE FORMLN ( TTYPE ) B5300001^^ 1 1 /B53 F CCS CCS 3.0 SL-149B5300002^^ C FORMAT DETAIL OUTPUT LINE B5300003^^ C CYBERCREDIT SYSTEM VERSION 3 B5300004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B5300005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B5300006^^ C B5300007^ ^ C FORMLN IS RESPONSIBLE FOR FORMATTING THE DETAIL OUTPUT LINE FOR B5300009^^ C EACH TRANSACTION. THE TRANSACTION TYPE IS PASSED AS A PARAMETER B5300010^^ C AND HAS THE FOLLOWING MEANING: B5300011^^ C VALUE TYPE OF TRANSACTION B5300012^^ C ------------------------------------------------------- B5300013^^ C 1 WRITEOFF B5300014^^ C 2 RELEASE B5300015^^ C 3 SATISFY B5300016^^ C 4 ADD B5300017^^ C 5 UPDATE B5300018^^ C 6 REACTIVATION B5300019^^ C 7 REJECT - ACCOUNT INACTIVE FOR 30X CODE B5300020^^ C 8 REJECT - NO ACCOUNT FOR 30X CODE B5300021^^ C 9 REJECT - INVALID TRANSACTION CODE B5300022^ ^ C THE FOLLOWING TABLE SHOWS EACH COLUMN OF THE UPDATE REPORT AND B5300024^^ C WHICH COLUMNS ARE FILLED WITH WHICH FIELDS OF THE INPUT BUFFER B5300025^^ C AND MASTER FILE RECORD: B5300026^ ^ C TRAN TRAN ACCOUNT ACCOUNT DELQ DELQ ACTION B5300028^^ C TYPE CODE NUMBER NAME DATE AMT PAYOFF (COMMENT) B5300029^^ C ------------------------------------------------------------------B5300030^^ C W/O TCD TACCT MNAM TWDTD - TWAMT WRITEOFF B5300031^^ C REL TCD TACCT MNAM TWDTD - TWAMT RELEASE B5300032^^ C SAT TCD TACCT MNAM TWDTD - TWAMT SATISFY B5300033^^ C ADD TCD TACCT TNAM TDLDT TADLQ TPYOF ADD B5300034^^ C UPD TCD TACCT TNAM TDLDT TADLQ TPYOF UPDATE B5300035^^ C REAC TCD TACCT TNAM TDLDT TADLQ TPYOF REACTIVATIONB5300036^^ C REJ7 TCD TACCT MNAM - - - REJECT B5300037^^ C REJ8 TCD TACCT - - - - REJECT B5300038^^ C REJ9 TCD TACCT - - - - REJECT B5300039^ ^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: B5300041^^ C 1. MOVE IN ACTION/COMMENT FIELD ACCORDING TO TRANSACTION TYPE.B5300042^^ C 2. MOVE IN TRANSACTION CODE. B5300043^^ C 3. MOVE IN ACCOUNT NUMBER. B5300044^^ C 4. IF TRANSACTION TYPE IS REJECT TYPE 8 OR 9, RETURN B5300045^^ C ELSE, IF TRANSACTION TYPE IS ADD, UPDATE, OR REACTIVA-B5300046^^ C TION, MOVE NAME FROM INPUT BUFFER TO DETAIL LINE B5300047^^ C ELSE, MOVE NAME FROM MASTER FILE RECORD BUFFER TOB5300048^^ C DETAIL LINE. B5300049^^ C 5. IF TRANSACTION TYPE IS REJECT TYPE 7, RETURN B5300050^^ C ELSE, IF TRANSACTION TYPE IS INACTIVATION, MOVE INACT-B5300051^^ C IVATED DATE AND AMOUNT USED TO INACTIVATE INTO DELIN- B5300052^^ C QUENT DATE AND PAYOFF B5300053^^ C ELSE, MOVE IN DELINQUENT DATE B5300054^t FTN 3.3B (OPT = LPC) FORMLN PAGE 2 DATE: 08/30/84 TIME: 0102 t^ C MOVE IN DELINQUENT AMOUNT B5300055^^ C MOVE IN CURRENT PAYOFF. B5300056^^ C 6. RETURN B5300057^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. B5300059^^ M UPDMAC B5300060^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^t FTN 3.3B (OPT = LPC) FORMLN PAGE 3 DATE: 08/30/84 TIME: 0102 t^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^t FTN 3.3B (OPT = LPC) FORMLN PAGE 4 DATE: 08/30/84 TIME: 0102 t^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^t FTN 3.3B (OPT = LPC) FORMLN PAGE 5 DATE: 08/30/84 TIME: 0102 t^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^t FTN 3.3B (OPT = LPC) FORMLN PAGE 6 DATE: 08/30/84 TIME: 0102 t^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) FORMLN PAGE 7 DATE: 08/30/84 TIME: 0102 t^ C**** LOCAL DECLARATIONS. B5300061^ ^ C**** PASSED PARAMETER - TRANSACTION TYPE. B5300063^^ 133 INTEGER TTYPE B5300064^ ^ C**** ACTION/COMMENT FIELD TABLE FOR TRANSACTIONS B5300066^^ 134 INTEGER ACTION(18,9), WOFACT(18), RELACT(18), SATACT(18) B5300067^^ 135 INTEGER ADDACT(18), UPDACT(18), REAACT(18), RJ7ACT(18) B5300068^^ 136 INTEGER RJ8ACT(18), RJ9ACT(18) B5300069^^ 137 EQUIVALENCE ( ACTION(1,1), WOFACT(1) ), ( ACTION(1,2), RELACT(1) )B5300070^^ 137 +, ( ACTION(1,3), SATACT(1) ), ( ACTION(1,4), ADDACT(1) )B5300071^^ 137 +, ( ACTION(1,5), UPDACT(1) ), ( ACTION(1,6), REAACT(1) )B5300072^^ 137 +, ( ACTION(1,7), RJ7ACT(1) ), ( ACTION(1,8), RJ8ACT(1) )B5300073^^ 137 +, ( ACTION(1,9), RJ9ACT(1) ) B5300074^^ 138 DATA WOFACT / 'WRITEOFF ' / B5300075^^ 139 DATA RELACT / 'RELEASE ' / B5300076^^ 140 DATA SATACT / 'SATISFY ' / B5300077^^ 141 DATA ADDACT / 'ADD ' / B5300078^^ 142 DATA UPDACT / 'UPDATE ' / B5300079^^ 143 DATA REAACT / 'REACTIVATE ' / B5300080^^ 144 DATA RJ7ACT / 'REJECT - ACCOUNT NOT ACTIVE FOR 30X ' / B5300081^^ 145 DATA RJ8ACT / 'REJECT - NO ACCOUNT FOR 30X CODE ' / B5300082^^ 146 DATA RJ9ACT / 'REJECT - INVALID TRANSACTION CODE ' / B5300083^  ^ C***********************************************************************B5300085^^ C* BEGIN PROGRAM. *B5300086^^ C***********************************************************************B5300087^ ^ C**** MOVE IN APPROPRIATE ACTION/COMMENT FIELD. B5300089^^ 147 100 CALL CCSMVA ( ACTION(1,TTYPE), N1, N35, DETLIN(49), N2, N35 ) B5300090^ ^ C**** MOVE IN TRANSACTION CODE. B5300092^^ 148 110 CALL CCSMVA ( INPBUF, N1, N3, DETLIN, N4, N3 ) B5300093^ ^ C**** MOVE IN ACCOUNT NUMBER B5300095^^ 149 120 CALL CCSMVA ( INPBUF, N4, N16, DETLIN, N9, N16 ) B5300096^ ^ C**** IF TRANSACTION TYPE IS REJECT TYPE 8 OR 9, RETURN B5300098^^ 150 130 IF ( TTYPE .GE. 8 ) GO TO 200 B5300099^^ C** ELSE, IF TRANSACTION IS ADD, UPDATE, OR REACTIVATION, MOVE B5300100^^ C** NAME FROM INPUT BUFFER TO DETAIL LINE B5300101^^ 151 IF ( TTYPE .GE. 4 .AND. TTYPE .LT. 7 ) GO TO 140 B5300102^^ C** ELSE, MOVE NAME FROM MASTER FILE RECORD BUFFER INTO B5300103^^ C** DETAIL LINE B5300104^^ 152 CALL CCSMVA ( RECBDM, MNAM, N30, DETLIN, N28, N30 ) B5300105^^ 153 GO TO 150 B5300106^^ C** MOVE NAME FROM INPUT BUFFER INTO DETAIL LINE. B5300107^^ 154 140 CALL CCSMVA ( INPBUF, TNAM, N30, DETLIN, N28, N30 ) B5300108^ ^ C**** IF TRANSACTION TYPE IS REJECT TYPE 7, RETURN B5300110^^ 155 150 IF ( TTYPE .EQ. 7 ) GO TO 200 B5300111^^ C** ELSE, IF TRANSACTION IS INACTIVATION (WRITEOFF, RELEASE, OR B5300112^^ C** SATISFY), MOVE INACTIVATED DATE TO DELINQUENT DATE AND AMOUNTB5300113^t FTN 3.3B (OPT = LPC) FORMLN PAGE 8 DATE: 08/30/84 TIME: 0102 t^ C** USED TO INACTIVATE TO PAYOFF B5300114^^ 156 IF ( TTYPE .LT. 4 ) GO TO 160 B5300115^^ C** ELSE, MOVE IN DELINQUENT DATE B5300116^^ 157 CALL EDIT ( INPBUF, TDLDT, DETLIN(31), N1, N1 ) B5300117^^ C** MOVE IN DELINQUENT AMOUNT B5300118^^ 158 CALL EDIT ( INPBUF, TADLQ, DETLIN(36), N2, N3 ) B5300119^^ C** MOVE IN CURRENT PAYOFF B5300120^^ 159 CALL EDIT ( INPBUF, TPYOF, DETLIN(42), N2, N3 ) B5300121^^ C** RETURN. B5300122^^ 160 GO TO 200 B5300123^ ^ C** INACTIVATING TRANSACTION - MOVE INACTIVE DATE AND AMOUNT TO B5300125^^ C** INACTIVATE TO DELINQUENT DATE AND PAYOFF. B5300126^^ 161 160 CALL EDIT ( INPBUF, TWDTD, DETLIN(31), N1, N1 ) B5300127^^ 162 CALL EDIT ( INPBUF, TWAMT, DETLIN(42), N2, N3 ) B5300128^  ^ C**** DETAIL LINE FORMATTING COMPLETE, RETURN. B5300130^^ 163 200 RETURN B5300131^^ 164 END B5300132^t FTN 3.3B (OPT = LPC) FORMLN PAGE 9 DATE: 08/30/84 TIME: 0102 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $010C ( 268)   EXTERNALS  Q8PKUP Q8PREP CCSMVA EDIT  t FTN 3.3B (OPT = LPC) FORMLN PAGE 10 DATE: 08/30/84 TIME: 0102 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$* ACTION INTEGER 0000 133,137,147*& ACTIVE INTEGER 0D2F D 106,108&* ADDACT INTEGER 0036 133,137,141*$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$L DETLIN INTEGER 0A8B D 39,41,147,148,149,152,154,157,158,159,161,162L" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$D INPBUF INTEGER 070E D 37,39,148,149,154,157,158,159,161,162D$ ISTAT INTEGER 0708 D 34,37$$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$$ MADLQ INTEGER 0B06 D 57,60$t FTN 3.3B (OPT = LPC) FORMLN PAGE 11 DATE: 08/30/84 TIME: 0102 t$ MCCDT INTEGER 0B0B D 57,60$( MNAM INTEGER 0B0C D 57,61,152($ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&6 N1 INTEGER 0D3A D 112,123,147,148,157,1616& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&* N16 INTEGER 0D49 D 112,124,149*& N17 INTEGER 0D4A D 112,124&6 N2 INTEGER 0D3B D 112,123,147,158,159,1626& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&. N28 INTEGER 0D4D D 112,125,152,154.6 N3 INTEGER 0D3C D 112,123,148,158,159,1626. N30 INTEGER 0D4E D 112,126,152,154.* N35 INTEGER 0D4F D 112,126,147*. N4 INTEGER 0D3D D 112,123,148,149.& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&* N9 INTEGER 0D42 D 112,123,149*& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$t FTN 3.3B (OPT = LPC) FORMLN PAGE 12 DATE: 08/30/84 TIME: 0102 t$ RDYDL INTEGER 0B13 D 61,68$* REAACT INTEGER 005A 133,137,143*$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$, RECBDM INTEGER 001F D 10,12,13,152 ,$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$* RELACT INTEGER 0012 133,137,139*$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$* RJ7ACT INTEGER 006C 133,137,144** RJ8ACT INTEGER 007E 133,137,145** RJ9ACT INTEGER 0090 133,137,146*$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$* SATACT INTEGER 0024 133,137,140*$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$( TADLQ INTEGER 0B01 D 54,56,158($ TAPE INTEGER 0AFA D 52,54$( TDLDT INTEGER 0B03 D 54,57,157($ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$& TLU INTEGER 0D2D D 102,104&t FTN 3.3B (OPT = LPC) FORMLN PAGE 13 DATE: 08/30/84 TIME: 0102 t( TNAM INTEGER 0AFD D 54,56,154($ TOTPRT INTEGER 0006 D 3,10 $( TPYOF INTEGER 0B02 D 54,56,159($ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $8 TTYPE INTEGER 7FFF 1,133,147,150,151,155,1568( TWAMT INTEGER 0AFF D 54,56,162(( TWDTD INTEGER 0AFE D 54,56,161($ U INTEGER 0AF2 D 50,52$* UPDACT INTEGER 0048 133,137,142*$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$* WOFACT INTEGER 0000 133,137,138*$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < 2 CCSMVA SUBROUTINE 00A8 146,148,149,152,15422 EDIT SUBROUTINE 00E0 156,158,159,161,1622 Q8PKUP INTEGER.FN. 0108 Q8PREP INTEGER.FN. 0105    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 00A2 146"" 110 00AF 147"" 120 00B6 148"" 130 00BD 149"& 140 00D0 151,154&& 150 00D7 152,155&& 160 00F3 156,161&. 200 00FF 150,155,160,163. FORMLN 0102 1  t FTN 3.3B (OPT = LPC) FUPDAT PAGE 1 DATE: 08/30/84 TIME: 0102 t^ 1 SUBROUTINE FUPDAT B5600001^^ 1 1 /B56 F CCS CCS 3.0 SL-149B5600002^^ C UPDATE MAIN PROCESSOR MODULE B5600003^^ C CYBERCREDIT SYSTEM VERSION 3 B5600004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B5600005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B5600006^^ C B5600007^ ^ C THIS IS THE CENTRAL PROCESSOR FOR COMPLETE UPDATE PROCESSING. B5600009^^ C IT IS RESPONSIBLE FOR PROCESSING THE UPDATE TAPE, PERFORMING THE B5600010^^ C REQUIRED UPDATE OPERATION (ADD, UPDATE, REACTIVATE, OR INACTIVATE B5600011^^ C AN ACCOUNT), AND ON END-OF-FILE ON INPUT, PRINT REQUIRED TOTALS B5600012^^ C AND EXIT. THE FOLLOWING MAJOR SUBROUTINES ARE USED: B5600013^^ C UPINIT - PERFORMS INITIALIZATION FUNCTIONS, SUCH AS OPENING B5600014^^ C FILES AND RETRIEVING REQUIRED PARAMETERS. B5600015^^ C LABHAN - PROCESSES TAPE LABELS, IF PRESENT. DOES NOT PERFORM B5600016^^ C ANY CHECKING OF LABELS, BUT IS EASILY MODIFIED TO B5600017^^ C PERFORM CHECKING. B5600018^^ C NXTRAN - READS NEXT TRANSACTION (RECORD) FROM INPUT SPECIFIED B5600019^^ C IN SWITCH SETTINGS (SEE BELOW FOR SWITCH SETTINGS). B5600020^^ C TOTALP - PERFORMS PRINTING OF TOTALS AT COMPLETION OF UPDATE. B5600021^^ C UPDEND - EXIT PROCESSOR WHICH CLOSES THE OPEN FILES AND B5600022^^ C RETURNS CONTROL TO THE CCS EXECUTIVE. THIS MODULE B5600023^^ C IS USED FOR NORMAL TERMINATION (END-OF-FILE ON INPUT)B5600024^^ C AND ABNORMAL TERMINATION (FATAL FILE ERRORS). B5600025^^ C GETMAS - ATTEMPTS RETRIEVAL OF ACCOUNT SPECIFIED BY TAPE B5600026^^ C TRANSACTION FROM DELQMST (MASTER) FILE. B5600027^^ C RSWIT - PEFORMS OPERATIONS ON THE ACCOUNT SPECIFIC FOR B5600028^^ C RELEASE, WRITE-OFF, OR SATISFY INACTIVATING TRANS- B5600029^^ C ACTIONS. B5600030^^ C UNCUPD - PERFORMS UNCONDITIONAL UPDATE OF MASTER FILE B5600031^^ C "FINANCIAL" FIELDS. THIS MODULE IS USED FOR ALL B5600032^^ C ADD, UPDATE, AND REACTIVATION TRANSACTIONS. B5600033^^ C CONUPD - PERFORMS CONDITIONAL UPDATE OF MASTER FILE "NON- B5600034^^ C FINANCIAL" FIELDS. THIS MODULE IS USED FOR ALL B5600035^^ C ADD, UPDATE, AND REACTIVATION TRANSACTIONS. B5600036^^ C ADDIT - PERFORMS OPERATIONS ON THE ACCOUNT SPECIFIC FOR NEW B5600037^^ C (ADDED) ACCOUNTS. B5600038^^ C COSUPD - PERFORMS COSIGNER ADDITION FUNCTION FOR ALL ADD, B5600039^^ C UPDATE, AND REACTIVATION TRANSACTIONS. B5600040^^ C UPDIT - PERFORMS OPERATIONS ON THE ACCOUNT SPECIFIC FOR B5600041^^ C EXISTING ACTIVE ACCOUNTS (UPDATE TRANSACTIONS). B5600042^^ C REACIT - PERFORMS OPERATIONS ON THE ACCOUNT SPECIFIC FOR B5600043^^ C EXISTING INACTIVE ACCOUNTS (UPDATE TRANSACTIONS). B5600044^^ C PRTLIN - PRINTS DETAIL OR TOTAL LINE WITH TOP-OF-FORM AND B5600045^^ C HEADINGS IF REQUIRED. THE OUTPUT UNIT (PRINTER OR B5600046^^ C FILE) IS SPECIFIED BY THE SWITCH SETTINGS BELOW. B5600047^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 2 DATE: 08/30/84 TIME: 0102 t^ C EXTERNAL SWITCH SETTINGS (SWITCH SETTINGS USED NORMALLY FOR RPG B5600049^^ C PROGRAMS) GOVERN INPUT AND OUTPUT. THE SWITCHES ARE TO BE SET B5600050^^ C IMMEDIATELY PRIOR TO EXECUTION OF THIS PROGRAM VIA THE CCS SWITCH B5600051^^ C UTILITY. THE SWITCHES U1 THRU U8 HAVE THE FOLLOWING MEANINGS B5600052^^ C WITHIN THE UPDATE PROCESSING: B5600053^^ C POSITION (ON B5600054^^ C SWITCH =1, OFF=0) MEANING B5600055^^ C ------ ------------ ----------------------------------- B5600056^^ C U1 SELECTS ASCII OR EBCDIC INPUT B5600057^^ C ON INPUT IS EBCDIC FORMAT. B5600058^^ C OFF INPUT IS ASCII FORMAT. B5600059^^ C U2 SELECTS TAPE OR FILE INPUT UNIT. B5600060^^ C ON INPUT FROM FILE "UPDPRINT". B5600061^^ C OFF INPUT FROM MAGNETIC TAPE. B5600062^^ C U3 SELECTS TAPE UNIT FOR INPUT (IGNORED B5600063^^ C IF U2 ON). B5600064^^ C ON INPUT UNIT IS MAG TAPE UNIT 1. B5600065^^ C OFF INPUT UNIT IS MAG TAPE UNIT 0. B5600066^^ C U4 SELECTS LIST OR FILE PRINT OUTPUT B5600067^^ C UNIT. B5600068^^ C ON PRINT OUTPUT WILL BE TO FILE B5600069^^ C "UPDPRINT". B5600070^^ C OFF PRINT OUTPUT WILL BE SYSTEM B5600071^^ C PRINTER. B5600072^^ C U5 NOT USED. B5600073^^ C U6 NOT USED. B5600074^^ C U7 NOT USED. B5600075^^ C U8 NOT USED. B5600076^ ^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS (WITH SUBROUTINES IN- B5600078^^ C VOLVED HIGHLIGHTED): B5600079^^ C 1. PERFORM INITIALIZATION FUNCTIONS (*UPINIT*) AND PROCESS B5600080^^ C TAPE LABELS (*LABHAN*). B5600081^^ C 2. RETRIEVE NEXT TRANSACTION INPUT (*NXTRAN*); IF END-OF-FILE,B5600082^^ C PRINT TOTALS (*TOTALP*) AND PERFORM EXIT FUNCTIONS B5600083^^ C (*UPDEND*); ELSE, PROCESS ACCOUNT BY TRANSACTION INDICATED:B5600084^^ C TRANSACTION MASTER ACCOUNT B5600085^^ C CODE RECORD PRESENT ACTIVE ACCOUNT PROCESS B5600086^^ C ----------- -------------- ------- --------------- B5600087^^ C 30X - - INACTIVATION B5600088^^ C BLANK NO - ADD B5600089^^ C BLANK YES YES UPDATE B5600090^^ C BLANK YES NO REACTIVATION B5600091^^ C OTHER - - TRANSACTION B5600092^^ C REJECT B5600093^^ C B5600094^^ C 3. THE INACTIVATION PROCESS INVOLVES THE FOLLOWING STEPS: B5600095^^ C PERFORM INACTIVATION SPECIFIC OPERATIONS (*RSWIT*). B5600096^^ C IF TRANSACTION ACCEPTED, UPDATE ACCOUNT ON MASTER B5600097^^ C FILE B5600098^^ C ELSE RESET TRANSACTION REJECTED FLAG B5600099^^ C INCREMENT REJECTED TRANSACTION COUNT. B5600100^^ C PRINT DETAIL LINE (*PRTLIN*). B5600101^^ C CONTINUE WITH NEXT TRANSACTION. B5600102^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 3 DATE: 08/30/84 TIME: 0102 t^ C 4. THE ADD PROCESS INVOLVES THE FOLLOWING STEPS: B5600103^^ C PERFORM UNCONDITIONAL UPDATE OF FINANCIAL FIELDS B5600104^^ C (*UNCUPD*). B5600105^^ C PERFORM CONDITIONAL UPDATE OF NON-FINANCIAL FIELDS B5600106^^ C (*CONUPD*). B5600107^^ C PERFORM ADD SPECIFIC OPERATIONS (*ADDIT*). B5600108^^ C PERFORM COSIGNER ADDITION FUNCTION (*COSUPD*). B5600109^^ C ADD ACCOUNT TO MASTER FILE. B5600110^^ C PRINT DETAIL LINE (*PRTLIN*). B5600111^^ C CONTINUE WITH NEXT TRANSACTION. B5600112^^ C 5. THE UPDATE PROCESS INVOLVES THE FOLLOWING STEPS: B5600113^^ C PERFORM UPDATE SPECIFIC OPERATIONS (*UPDIT*). B5600114^^ C PERFORM UNCONDITIONAL UPDATE OF FINANCIAL FIELDS B5600115^^ C (*UNCUPD*). B5600116^^ C PERFORM CONDITIONAL UPDATE OF NON-FINANCIAL FIELDS B5600117^^ C (*CONUPD*). B5600118^^ C PERFORM COSIGNER ADDITION FUNCTION (*COSUPD*). B5600119^^ C UPDATE ACCOUNT ON MASTER FILE. B5600120^^ C PRINT DETAIL LINE (*PRTLIN*). B5600121^^ C CONTINUE WITH NEXT TRANSACTION. B5600122^^ C 6. THE REACTIVATION PROCESS INVOLVES THE FOLLOWING STEPS: B5600123^^ C PERFORM REACTIVATION SPECIFIC OPERATIONS (*REACIT*).B5600124^^ C PERFORM UNCONDITIONAL UPDATE OF FINANCIAL FIELDS B5600125^^ C (*UNCUPD*). B5600126^^ C PERFORM CONDITIONAL UPDATE OF NON-FINANCIAL FIELDS B5600127^^ C (*CONUPD*). B5600128^^ C PERFORM COSIGNER ADDITION FUNCTION (*COSUPD*). B5600129^^ C UPDATE ACCOUNT ON MASTER FILE. B5600130^^ C PRINT DETAIL LINE (*PRTLIN*). B5600131^^ C CONTINUE WITH NEXT TRANSACTION. B5600132^^ C 7. FOR REJECTED TRANSACTIONS DUE TO INVALID TRANSACTION CODE, B5600133^^ C THE FOLLOWING IS PERFORMED: B5600134^^ C FORMAT DETAIL LINE FOR REJECTED TRANSACTION. B5600135^^ C INCREMENT REJECTED TRANSACTION COUNT. B5600136^^ C PRINT DETAIL LINE (*PRTLIN*). B5600137^^ C CONTINUE WITH NEXT TRANSACTION. B5600138^ ^ C WITHIN EACH SUBROUTINE, THERE WILL BE SIMILAR COMMENTARY CONCERN- B5600140^^ C ING FUNCTIONS PERFORMED. THE MAJORITY OF DATA SPACE IS DELCLARED B5600141^^ C IN LABELLED COMMON AND IS INITIALIZED IN A BLOCK DATA SUBPROGRAM. B5600142^^ C THE COMMON DECLARATIONS ARE CONTAINED WITHIN A MACRO CALLED B5600143^^ C "UPDMAC". B5600144^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 4 DATE: 08/30/84 TIME: 0102 t^ C BRING IN COMMON DECLARATION MACRO. B5600146^^ M UPDMAC B5600147^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 5 DATE: 08/30/84 TIME: 0102 t^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 6 DATE: 08/30/84 TIME: 0102 t^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 7 DATE: 08/30/84 TIME: 0102 t^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 8 DATE: 08/30/84 TIME: 0102 t^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 9 DATE: 08/30/84 TIME: 0102 t^ C***********************************************************************B5600148^^ C* BEGIN PROGRAM. B5600149^^ C***********************************************************************B5600150^   ^ C***********************************************************************B5600152^^ C* PERFORM INITIALIZATION FUNCTIONS SUCH AS OPENING FILES, B5600153^^ C* RETRIEVING SYSTEM DATE AND REPORT HEADINGS. B5600154^^ C***********************************************************************B5600155^ ^ 133 100 CALL UPINIT B5600157^  ^ C***********************************************************************B5600159^^ C* PROCESS TAPE LABELS, IF PRESENT. B5600160^^ C***********************************************************************B5600161^ ^ 134 110 CALL LABHAN B5600163^   ^ C***********************************************************************B5600165^^ C* BEGIN MAIN TRANSACTION PROCESSING LOOP. B5600166^^ C***********************************************************************B5600167^ ^ C***********************************************************************B5600169^^ C* READ NEXT INPUT TRANSACTION. B5600170^^ C***********************************************************************B5600171^ ^ 135 200 CALL NXTRAN B5600173^ ^ C**** IF NOT END-OF-FILE, CONTINUE TO PROCESS TRANSACTION B5600175^^ 136 210 IF ( EOFFLG .EQ. 0 ) GO TO 220 B5600176^^ C** ELSE, PRINT TOTALS AND EXIT (NO RETURN FROM UPDEND). B5600177^^ 137 CALL TOTALP B5600178^^ 138 CALL UPDEND B5600179^ ^ C***********************************************************************B5600181^^ C* RETRIEVE ACCOUNT FROM MASTER FILE. B5600182^^ C***********************************************************************B5600183^ ^ 139 220 CALL GETMAS B5600185^ ^ C**** IF RSW TRANSACTION (TRANSACTION CODE EQUAL TO 301, 302, OR B5600187^^ C**** 303) PERFORM REQUIRED OPERATIONS TO INACTIVATE ACCOUNT. B5600188^^ 140 230 CALL CCSCST ( INPBUF, N1, N3, TRN303, N1, N3, COMPIN ) B5600189^^ 141 IF ( COMPIN .EQ. 0 ) GO TO 300 B5600190^^ 142 CALL CCSCST ( INPBUF, N1, N3, TRN302, N1, N3, COMPIN ) B5600191^^ 143 IF ( COMPIN .EQ. 0 ) GO TO 300 B5600192^^ 144 CALL CCSCST ( INPBUF, N1, N3, TRN301, N1, N3, COMPIN ) B5600193^^ 145 IF ( COMPIN .EQ. 0 ) GO TO 300 B5600194^^ C** ELSE, CONTINUE AND PROCESS TRANSACTION. B5600195^^ 146 GO TO 240 B5600196^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 10 DATE: 08/30/84 TIME: 0102 t^ C***********************************************************************B5600198^^ C***********************************************************************B5600199^^ C* INACTIVATION SEQUENCE. B5600200^^ C***********************************************************************B5600201^ ^ C** PERFORM INACTIVATION SPECIFIC OPERATIONS. B5600203^^ 147 300 CALL RSWIT B5600204^^ C** IF TRANSACTION REJECTED, BYPASS MASTER FILE UPDATE AND B5600205^^ C** RESET TRANSACTION REJECTED FLAG AND INCREMENT REJECTED B5600206^^ C** TRANSACTION COUNT B5600207^^ 148 IF ( TRNREJ .NE. 0 ) GO TO 325 B5600208^^ C** ELSE, UPDATE ACCOUNT ON MASTER FILE. B5600209^^ 149 CALL UPDREC ( REQBDM, RECBDM, ISTAT ) B5600210^^ C** IF NO FILE ERROR, CONTINUE B5600211^^ 150 IF ( ISTAT .GE. 0 ) GO TO 350 B5600212^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM B5600213^^ C** UPDEND). B5600214^^ 151 CALL FILERR ( IDATDM, N15, ISTAT, TLU ) B5600215^^ 152 CALL UPDEND B5600216^ ^ C** RESET TRANSACTION REJECTED FLAG. B5600218^^ 153 325 TRNREJ = 0 B5600219^^ C** INCREMENT REJECTED TRANSACTION COUNT. B5600220^^ 154 CALL CCSADD ( NDAONE, N2, NUMREJ, N1, NUMREJ, N1 ) B5600221^ ^ C** PRINT DETAIL OUTPUT LINE. B5600223^^ 155 350 CALL PRTLIN ( DETLIN ) B5600224^ ^ C** CONTINUE WITH NEXT TRANSACTION. B5600226^^ 156 GO TO 700 B5600227^^ C***********************************************************************B5600228^   ^ C**** IF BLANK TRANSACTION CODE, CONTINUE TO PROCESS AS AN ADD, B5600230^^ C**** UPDATE, OR REACTIVATION TRANSACTION B5600231^^ 157 240 CALL CCSCST ( INPBUF, N1, N3, TRNBLK, N1, N3, COMPIN ) B5600232^^ 158 IF ( COMPIN .EQ. 0 ) GO TO 260 B5600233^^ C** ELSE, PROCESS REJECTED TRANSACTION - ILLEGAL TRANS- B5600234^^ C** ACTION CODE. B5600235^^ C** FORMAT DETAIL OUTPUT LINE. B5600236^^ 159 CALL FORMLN ( N9 ) B5600237^^ C** INCREMENT REJECTED TRANSACTION COUNT. B5600238^^ 160 CALL CCSADD ( NDAONE, N2, NUMREJ, N1, NUMREJ, N1 ) B5600239^^ C** PRINT DETAIL OUTPUT LINE. B5600240^^ 161 CALL PRTLIN ( DETLIN ) B5600241^ ^ C** CONTINUE WITH NEXT TRANSACTION. B5600243^^ 162 GO TO 700 B5600244^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 11 DATE: 08/30/84 TIME: 0102 t^ C**** BLANK TRANSACTION CODE FOUND. IF ACCOUNT FOUND IN MASTER B5600246^^ C**** FILE, CONTINUE TO PROCESS AS UPDATE OR REACTIVATION B5600247^^ 163 260 IF ( ACCTFD .NE. 0 ) GO TO 270 B5600248^^ C** ELSE, PERFORM REQUIRED OPERATIONS TO ADD ACCOUNT. B5600249^ ^ C***********************************************************************B5600251^^ C***********************************************************************B5600252^^ C* ADD SEQUENCE. B5600253^^ C***********************************************************************B5600254^ ^ C** PERFORM UNCONDITIONAL UPDATE OF FINANCIAL FIELDS. B5600256^^ 164 400 CALL UNCUPD B5600257^^ C** PERFORM CONDITIONAL UPDATE OF NON-FINANCIAL FIELDS. B5600258^^ 165 CALL CONUPD B5600259^^ C** PERFORM ADD SPECIFIC OPERATIONS. B5600260^^ 166 CALL ADDIT B5600261^^ C** PERFORM COSIGNER UPDATE FUNCTION. B5600262^^ 167 CALL COSUPD B5600263^^ C** ADD ACCOUNT TO MASTER FILE. B5600264^^ 168 CALL WRITER ( REQBDM, RECBDM, RECBDM, ISTAT ) B5600265^^ C IF NO FILE ERROR, CONTINUE B5600266^^ 169 IF ( ISTAT .GE. 0 ) GO TO 450 B5600267^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM B5600268^^ C** UPDEND). B5600269^^ 170 CALL FILERR ( IDATDM, N12, ISTAT, TLU ) B5600270^^ 171 CALL UPDEND B5600271^^ C** PRINT DETAIL LINE. B5600272^^ 172 450 CALL PRTLIN ( DETLIN ) B5600273^^ C** CONTINUE TO PROCESS NEXT TRANSACTION. B5600274^^ 173 GO TO 700 B5600275^^ C***********************************************************************B5600276^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 12 DATE: 08/30/84 TIME: 0102 t^ C**** ACCOUNT PRESENTLY ON MASTER FILE. IF ACCOUNT IS INACTIVE, B5600278^^ C**** CONTINUE TO PROCESS REACTIVATION TRANSACTION. B5600279^^ 174 270 IF ( ACCTST .NE. ACTIVE ) GO TO 600 B5600280^^ C** ELSE, PERFORM REQUIRED OPERATIONS TO UPDATE ACCOUNT. B5600281^ ^ C***********************************************************************B5600283^^ C***********************************************************************B5600284^^ C* UPDATE SEQUENCE. B5600285^^ C***********************************************************************B5600286^ ^ C** PERFORM UPDATE SPECIFIC OPERATIONS. B5600288^^ 175 500 CALL UPDIT B5600289^^ C** PERFORM UNCONDITIONAL UPDATE OF FINANCIAL FIELDS. B5600290^^ C***********************************************************************B5600286^ ^ C** PERFORM UPDATE SPECIFIC OPERATIONS. B5600288^^ 175 500 CALL UPDIT B5600289^^ C** PERFORM UNCONDITIONAL UPDATE OF FINANCIAL FIELDS. B5600290^^ 176 CALL UNCUPD B5600291^^ C** PERFORM CONDITIONAL UPDATE OF NON-FINANCIAL FIELDS. B5600292^^ 177 CALL CONUPD B5600293^^ C** PERFORM COSIGNER UPDATE FUNCTIONS. B5600294^^ 178 CALL COSUPD B5600295^^ C** UPDATE ACCOUNT ON MASTER FILE. B5600296^^ 179 CALL UPDREC ( REQBDM, RECBDM, ISTAT ) B5600297^^ C** IF NO FILE ERROR, CONTINUE B5600298^^ 180 IF ( ISTAT .GE. 0 ) GO TO 550 B5600299^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM B5600300^^ C** UPDEND). B5600301^^ 181 CALL FILERR ( IDATDM, N15, ISTAT, TLU ) B5600302^^ 182 CALL UPDEND B5600303^^ C** PRINT DETAIL LINE. B5600304^^ 183 550 CALL PRTLIN ( DETLIN ) B5600305^^ C** CONTINUE WITH NEXT TRANSACTION. B5600306^^ 184 GO TO 700 B5600307^^ C***********************************************************************B5600308^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 13 DATE: 08/30/84 TIME: 0102 t^ C***********************************************************************B5600310^^ C***********************************************************************B5600311^^ C* REACTIVATION SEQUENCE. B5600312^^ C***********************************************************************B5600313^ ^ C** PERFORM REACTIVATION SPECIFIC OPERATIONS. B5600315^^ 185 600 CALL REACIT B5600316^^ C** PERFORM UNCONDITIONAL UPDATE OF FINANCIAL FIELDS. B5600317^^ 186 CALL UNCUPD B5600318^^ C** PERFORM CONDITIONAL UPDATE OF NON-FINANCIAL FIELDS. B5600319^^ 187 CALL CONUPD B5600320^^ C** PERFORM COSIGNER UPDATE FUNCTIONS. B5600321^^ 188 CALL COSUPD B5600322^^ C** UPDATE ACCOUNT ON MASTER FILE. B5600323^^ 189 CALL UPDREC ( REQBDM, RECBDM, ISTAT ) B5600324^^ C** IF NO FILE ERROR, CONTINUE B5600325^^ 190 IF ( ISTAT .GE. 0 ) GO TO 650 B5600326^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). B5600327^^ 191 CALL FILERR ( IDATDM, N15, ISTAT, TLU ) B5600328^^ 192 CALL UPDEND B5600329^^ C** PRINT DETAIL LINE B5600330^^ 193 650 CALL PRTLIN ( DETLIN ) B5600331^^ C** CONTINUE WITH NEXT TRANSACTION. B5600332^^ 194 GO TO 700 B5600333^^ C***********************************************************************B5600334^   ^ C***********************************************************************B5600336^^ C* END OF TRANSACTION PROCESSING LOOP. GO PROCESS NEXT TRANSACTION. B5600337^^ C***********************************************************************B5600338^ ^ 195 700 GO TO 200 B5600340^  ^ C**** NO RETURN FROM THIS SUBROUTINE. EXIT IS THRU UPDEND SUBROUTINE. B5600342^^ 196 END B5600343^t FTN 3.3B (OPT = LPC) FUPDAT PAGE 14 DATE: 08/30/84 TIME: 0102 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $00D2 ( 210)   EXTERNALS 2 UPINIT LABHAN NXTRAN TOTALP UPDEND GETMAS CCSCST 22 RSWIT UPDREC FILERR CCSADD PRTLIN FORMLN UNCUPD 2, CONUPD ADDIT COSUPD WRITER UPDIT REACIT , t FTN 3.3B (OPT = LPC) FUPDAT PAGE 15 DATE: 08/30/84 TIME: 0102 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : <  00FF (255) 00B0    VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&( ACCTFD INTEGER 0001 D 3,10,163 (( ACCTST INTEGER 00B7 D 10,12,174(* ACTIVE INTEGER 0D2F D 106,108,174*$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$F COMPIN INTEGER 0D2E D 104,106,140,141,142,143,144,145,157,158F( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$8 DETLIN INTEGER 0A8B D 39,41,155,161,172,183,1938" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$( EOFFLG INTEGER 0002 D 3,10,136 ($ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$4 IDATDM INTEGER 0409 D 10,13,151,170,181,1914$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$t FTN 3.3B (OPT = LPC) FUPDAT PAGE 16 DATE: 08/30/84 TIME: 0102 t4 INPBUF INTEGER 070E D 37,39,140,142,144,1574T ISTAT INTEGER 0708 D 34,37,149,150,151,168,169,170,179,180,181,189,190,191T$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&> N1 INTEGER 0D3A D 112,123,140,142,144,154,157,160>& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&* N12 INTEGER 0D45 D 112,124,170*& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&2 N15 INTEGER 0D48 D 112,124,151,181,1912& N16 INTEGER 0D49 D 112,124&& N17 INTEGER 0D4A D 112,124&. N2 INTEGER 0D3B D 112,123,154,160.& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&6 N3 INTEGER 0D3C D 112,123,140,142,144,1576& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&* N9 INTEGER 0D42 D 112,123,159*& N96 INTEGER 0D55 D 112,131&. NDAONE INTEGER 0D30 D 108,110,154,160.$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$, NUMREJ INTEGER 0BD4 D 92,94,154,160,( NUMRSW INTEGER 0BC2 D 89,92,94 (t FTN 3.3B (OPT = LPC) FUPDAT PAGE 17 DATE: 08/30/84 TIME: 0102 t$ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$8 RECBDM INTEGER 001F D 10,12,13,149,168,179,189 8$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$4 REQBDM INTEGER 0007 D 10,13,149,168,179,1894$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$6 TLU INTEGER 0D2D D 102,104,151,170,181,1916t FTN 3.3B (OPT = LPC) FUPDAT PAGE 18 DATE: 08/30/84 TIME: 0102 t$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$* TRN301 INTEGER 0D25 D 100,102,144** TRN302 INTEGER 0D27 D 100,102,142** TRN303 INTEGER 0D29 D 100,102,140** TRNBLK INTEGER 0D2B D 100,102,157*, TRNREJ INTEGER 0003 D 3,10,148,153 ,$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ADDIT SUBROUTINE 007D 163"& CCSADD SUBROUTINE 0050 153,160&. CCSCST SUBROUTINE 0011 139,142,144,157.* CONUPD SUBROUTINE 007B 163,177,187** COSUPD SUBROUTINE 007F 163,178,188*. FILERR SUBROUTINE 00C0 150,170,181,191." FORMLN SUBROUTINE 0067 158"" GETMAS SUBROUTINE 000F 139"" LABHAN SUBROUTINE 0003 132"" NXTRAN SUBROUTINE 0005 132"2 PRTLIN SUBROUTINE 0058 155,161,172,183,1932" REACIT SUBROUTINE 00B2 185"" RSWIT SUBROUTINE 0036 147"" TOTALP SUBROUTINE 000B 136"* UNCUPD SUBROUTINE 0079 163,176,186*2 UPDEND SUBROUTINE 008F 136,152,171,182,1922" UPDIT SUBROUTINE 009C 174"* UPDREC SUBROUTINE 00B7 148,179,189*" UPINIT SUBROUTINE 0001 132"" WRITER SUBROUTINE 0081 163"t FTN 3.3B (OPT = LPC) FUPDAT PAGE 19 DATE: 08/30/84 TIME: 0102 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0000 132"" 110 0002 132"& 200 0004 132,195&" 210 0006 132"& 220 000E 136,139&" 230 0010 139"& 240 005B 145,157&& 260 0073 158,163&& 270 0093 163,174&. 300 0035 141,143,145,147.& 325 004D 148,153&& 350 0057 150,155&" 400 0078 163"& 450 0090 169,172&" 500 009B 174"& 550 00AD 180,183&& 600 00B1 174,185&& 650 00C6 190,193&6 700 00C9 155,162,173,184,194,1956 FUPDAT 00CD 1  t FTN 3.3B (OPT = LPC) GETMAS PAGE 1 DATE: 08/30/84 TIME: 0104 t^ 1 SUBROUTINE GETMAS B5800001^^ 1 1 /B58 F CCS CCS 3.0 SL-149B5800002^^ C RETRIEVE ACCOUNT FROM MASTER FILE B5800003^^ C CYBERCREDIT SYSTEM VERSION 3 B5800004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B5800005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B5800006^^ C B5800007^ ^ C GETMAS IS RESPONSIBLE FOR RETRIEVING THE ACCOUNT SPECIFIED IN B5800009^^ C THE TRANSACTION INPUT BUFFER. THE ACCOUNT IS RETRIEVED BY THE B5800010^^ C ACCOUNT NUMBER WHICH OCCUPIES CHARACTER POSITIONS 4-19 OF THE B5800011^^ C THE INPUT BUFFER. THIS ROUTINE WILL SUCCESSFULLY TERMINATE ON B5800012^^ C ONE OF THE FOLLOWING CONDITIONS: B5800013^^ C 1) SPECIFIED ACCOUNT FOUND AND IS NOT BUSY (UPDATE PROCESSING B5800014^^ C NOW HAS RECORD LOCKED), B5800015^^ C OR 2) SPECIFIED ACCOUNT IS NOT PRESENT IN THE FILE. B5800016^^ C IN THE LATTER CASE, THE TRANSACTION MAY BE AN ADD, AND THE MASTER B5800017^^ C RECORD MUST BE BLANKED TO ALLOW CONSTRUCTION OF A NEW MASTER B5800018^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: B5800019^^ C 1. ATTEMPT RETRIEVAL OF ACCOUNT BY NUMBER IN TRANSACTION B5800020^^ C INPUT BUFFER. B5800021^^ C 2. IF THE ACCOUNT IS NOT FOUND, CONTINUE B5800022^^ C ELSE, IF ACCOUNT IS BUSY, RETRY RETRIEVAL REQUEST B5800023^^ C (STEP 1) B5800024^^ C ELSE, SET FLAG TO INDICATE ACCOUNT FOUND B5800025^^ C RETURN. B5800026^^ C 3. SET FLAG TO INDICATE ACCOUNT NOT FOUND. B5800027^^ C 4. BLANK MASTER RECORD IN CASE THIS IS AN ADD TRANSACTION. B5800028^^ C 5. RETURN. B5800029^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. B5800031^^ M UPDMAC B5800032^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^t FTN 3.3B (OPT = LPC) GETMAS PAGE 2 DATE: 08/30/84 TIME: 0104 t^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^t FTN 3.3B (OPT = LPC) GETMAS PAGE 3 DATE: 08/30/84 TIME: 0104 t^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^t FTN 3.3B (OPT = LPC) GETMAS PAGE 4 DATE: 08/30/84 TIME: 0104 t^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^t FTN 3.3B (OPT = LPC) GETMAS PAGE 5 DATE: 08/30/84 TIME: 0104 t^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) GETMAS PAGE 6 DATE: 08/30/84 TIME: 0104 t^ C***********************************************************************B5800033^^ C* BEGIN PROGRAM. *B5800034^^ C***********************************************************************B5800035^ ^ C**** ATTEMPT RETRIEVAL OF ACCOUNT FROM MASTER FILE B5800037^^ C** ESTABLISH ACCOUNT NUMBER KEY TO RETRIEVE BY B5800038^^ 133 100 CALL CCSMVA ( INPBUF, N4, N16, TKEY, N1, N16 ) B5800039^^ C** RETRIEVE B5800040^^ 134 110 CALL READR ( REQBDM, RECBDM, TKEY, ISTAT ) B5800041^^ C** IF NO FATAL FILE ERROR, CONTINUE B5800042^^ 135 IF ( ISTAT .GE. 0 .OR. AND( ISTAT, EOF ) .NE. 0 .OR. B5800043^^ 135 + AND( ISTAT, BUSY ) .NE. 0 ) GO TO 120 B5800044^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM UPDEND). B5800045^^ 136 CALL FILERR ( IDATDM, N13, ISTAT, TLU ) B5800046^^ 137 CALL UPDEND B5800047^ ^ C**** IF ACCOUNT IS NOT FOUND, CONTINUE B5800049^^ 138 120 IF ( AND( ISTAT, WRONKY ) .NE. 0 .OR. B5800050^^ 138 + AND( ISTAT, EOF ) .NE. 0 ) GO TO 130 B5800051^^ C** ELSE, IF ACCOUNT IS BUSY, RETRY RETRIEVAL REQUEST B5800052^^ 139 IF ( AND( ISTAT, BUSY ) .NE. 0 ) GO TO 110 B5800053^^ C** ELSE, SET FLAG TO INDICATE ACCOUNT FOUND B5800054^^ 140 ACCTFD = 1 B5800055^^ C** RETURN B5800056^^ 141 GO TO 200 B5800057^ ^ C**** SET FLAG TO INDICATE ACCOUNT NOT FOUND. B5800059^^ 142 130 ACCTFD = 0 B5800060^ ^ C**** BLANK MASTER RECORD IN CASE THIS IS AN ADD TRANSACTION. B5800062^^ 143 140 CALL CCSBLK ( RECBDM, 2000 ) B5800063^  ^ C**** MASTER RECORD RETRIEVAL COMPLETE, RETURN. B5800065^^ 144 200 RETURN B5800066^^ 145 END B5800067^t FTN 3.3B (OPT = LPC) GETMAS PAGE 7 DATE: 08/30/84 TIME: 0104 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $0045 ( 69)   EXTERNALS & CCSMVA READR FILERR UPDEND CCSBLK & t FTN 3.3B (OPT = LPC) GETMAS PAGE 8 DATE: 08/30/84 TIME: 0104 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < " 07D0 (2000) 0000 143"   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&, ACCTFD INTEGER 0001 D 3,10,140,142 ,$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$. AND INTR.FN. 7FFF 135,135,138,139.( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&, BUSY INTEGER 070D D 34,37,135,139,( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$, EOF INTEGER 070B D 34,37,135,138,$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$( IDATDM INTEGER 0409 D 10,13,136($ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$t FTN 3.3B (OPT = LPC) GETMAS PAGE 9 DATE: 08/30/84 TIME: 0104 t$ IFLAG INTEGER 0AE4 D 45,47$( INPBUF INTEGER 070E D 37,39,133(8 ISTAT INTEGER 0708 D 34,37,134,135,136,138,1398$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&* N1 INTEGER 0D3A D 112,123,133*& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&* N13 INTEGER 0D46 D 112,124,136*& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&* N16 INTEGER 0D49 D 112,124,133*& N17 INTEGER 0D4A D 112,124&& N2 INTEGER 0D3B D 112,123&& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&& N3 INTEGER 0D3C D 112,123&& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&* N4 INTEGER 0D3D D 112,123,133*& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$t FTN 3.3B (OPT = LPC) GETMAS PAGE 10 DATE: 08/30/84 TIME: 0104 t( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$0 RECBDM INTEGER 001F D 10,12,13,134,143 0$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$( REQBDM INTEGER 0007 D 10,13,134($ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$, TKEY INTEGER 0B3E D 73,75,133,134,t FTN 3.3B (OPT = LPC) GETMAS PAGE 11 DATE: 08/30/84 TIME: 0104 t* TLU INTEGER 0D2D D 102,104,136*$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$( WRONKY INTEGER 0709 D 34,37,138($ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSBLK SUBROUTINE 003B 142"" CCSMVA SUBROUTINE 0002 132"" FILERR SUBROUTINE 001F 135"" READR SUBROUTINE 000A 133"" UPDEND SUBROUTINE 0025 136"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0001 132"& 110 0009 133,139&& 120 0026 135,138&& 130 0038 138,142&" 140 003A 142"& 200 003E 140,144& GETMAS 0041 1  t FTN 3.3B (OPT = LPC) LABHAN PAGE 1 DATE: 08/30/84 TIME: 0104 t^ 1 SUBROUTINE LABHAN B6700001^^ 1 1 /B67 F CCS CCS 3.0 SL-149B6700002^^ C PROCESS TAPE LABELS, IF PRESENT B6700003^^ C CYBERCREDIT SYSTEM VERSION 3 B6700004^^ C DATA SYSTEM, LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B6700005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B6700006^^ C B6700007^ ^ C LABHAN IS RESPONSIBLE FOR READING AND BYPASSING TAPE LABELS. IF B6700009^^ C SWITCH U2 IS ON, INPUT IS NOT FROM TAPE (BUT FROM FILE B6700010^^ C "UPDINPUT") AND HENCE, THERE ARE NO LABELS TO PROCESS. THIS B6700011^^ C ROUTINE DOES NOT PERFORM ANY CHECKING OF THE LABELS, BUT CAN BE B6700012^^ C EASILY MODIFIED TO DO CHECKING. A NOT AT STATEMENT LABEL 300 B6700013^^ C DENOTES THE PLACE FOR CHECKING OF THE LABELS AND ALSO LISTS B6700014^^ C VARIABLES AND SUBROUTINES AVAILABLE TO ASSIST THE CHECKING OPERA- B6700015^^ C TION. LABHAN ASSUMES A LABELLED TAPE IS THREE 80 CHARACTER LABEL B6700016^^ C RECORDS, FOLLOWED BY AN END-OF-FILE MARK, FOLLOWED BY THE TAPE B6700017^^ C TRANSACTIONS FOR UPDATE, AND TERMINATED BY ANOTHER END-OF-FILE B6700018^^ C MARK. B6700019^^ C B6700020^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: B6700021^^ C 1. IF INPUT IS NOT FROM TAPE (SWITCH U2 SET), CONTINUE B6700022^^ C ELSE, READ 3 RECORDS FROM TAPE AND SAVE LABEL RECORDS B6700023^^ C IF NO END-OF-FILE READ AND ALL RECORDS 80 CHARACTERS B6700024^^ C IN LENGTH, CONTINUE B6700025^^ C ELSE, REWIND TAPE AND SET FLAG FOR NO LABELS B6700026^^ C FOUND B6700027^^ C PROCEED TO LABEL CHECKING AREA B6700028^^ C READ NEXT TAPE RECORD B6700029^^ C IF END-OF-FILE, CONTINUE B6700030^^ C ELSE, REWIND TAPE ANS SET FLAG FOR NO LABELS B6700031^^ C INTERNALLY DOCUMENT AS LABEL CHECKING AREA. B6700032^^ C 2. CLOSE UTILITY FILE. B6700033^^ C 3. CLEAR END-OF-FILE FLAG. B6700034^^ C 4. RETURN. B6700035^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. B6700037^^ M UPDMAC B6700038^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^t FTN 3.3B (OPT = LPC) LABHAN PAGE 2 DATE: 08/30/84 TIME: 0104 t^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^t FTN 3.3B (OPT = LPC) LABHAN PAGE 3 DATE: 08/30/84 TIME: 0104 t^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^t FTN 3.3B (OPT = LPC) LABHAN PAGE 4 DATE: 08/30/84 TIME: 0104 t^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^t FTN 3.3B (OPT = LPC) LABHAN PAGE 5 DATE: 08/30/84 TIME: 0104 t^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^t FTN 3.3B (OPT = LPC) LABHAN PAGE 6 DATE: 08/30/84 TIME: 0104 t^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) LABHAN PAGE 7 DATE: 08/30/84 TIME: 0104 t^ C**** LOCAL DECLARATIONS. B6700039^^ C**** TAPE LABEL RECORDS SAVE AREA. B6700040^^ 133 INTEGER THDRS(120), THDR1(40), THDR2(40), TVOL1(40) B6700041^^ 134 EQUIVALENCE ( THDR1(1), THDRS( 1) ) B6700042^^ 135 EQUIVALENCE ( THDR2(1), THDRS(41) ) B6700043^^ 136 EQUIVALENCE ( TVOL1(1), THDRS(81) ) B6700044^ ^ C**** LABEL FOUND FLAG. B6700046^^ 137 INTEGER LABFND B6700047^^ 138 DATA LABFND / 1 / B6700048^  ^ C***********************************************************************B6700050^^ C* BEGIN PROGRAM. *B6700051^^ C***********************************************************************B6700052^ ^ C**** IF NOT TAPE INPUT (SWITCH U2 SET), CONTINUE B6700054^^ 139 100 IF ( U(2) .NE. 0 ) GO TO 400 B6700055^^ C** ELSE, READ FIRST THREE RECORDS OF TAPE AND SAVE LABELS B6700056^^ 140 200 DO 240 I=1,3 B6700057^^ C** CALCULATE POINTER INTO LABEL SAVE AREA B6700058^^ 141 J = 80*I - 79 B6700059^^ C** READ NEXT TAPE RECORD (FORCE READ THRU NXTRAN) B6700060^^ 142 210 CALL NXTRAN B6700061^^ C** IF NO END-OF-FILE AND RECORD 80 CHARACTERS LONG, CONTINUE B6700062^^ 143 220 IF ( EOFFLG .EQ. 0 .AND. INPBUF(893) .EQ. 80 ) GO TO 230 B6700063^^ C** ELSE, REWIND TAPE AND SET FLAG FOR UNLABELLED TAPE B6700064^^ 144 CALL TAPMOT ( TAPE, N3 ) B6700065^^ 145 LABFND = 0 B6700066^^ C** PROCEED TO LABEL CHECKING AREA B6700067^^ 146 GO TO 300 B6700068^^ C** SAVE LABEL READ B6700069^^ 147 230 CALL CCSMVA ( INPBUF, N1, N80, THDRS, J, N80 ) B6700070^^ C** GET NEXT LABEL RECORD. B6700071^^ 148 240 CONTINUE B6700072^ ^ C**** READ NEXT RECORD TO CHECK FOR LABEL BLOCK END-OF-FILE. B6700074^^ 149 250 CALL NXTRAN B6700075^^ C**** IF END-OF-FILE, CONTINUE B6700076^^ 150 IF ( EOFFLG .NE. 0 ) GO TO 300 B6700077^^ C** ELSE, REWIND TAPE AND SET FLAG FOR UNLABELLED TAPE. B6700078^^ 151 CALL TAPMOT ( TAPE, N3 ) B6700079^^ 152 LABFND = 0 B6700080^t FTN 3.3B (OPT = LPC) LABHAN PAGE 8 DATE: 08/30/84 TIME: 0104 t^ C**** LABEL CHECKING, IF DESIRED, IS TO BE PEFORMED HERE. THE FOLLOWINGB6700082^^ C**** FIELDS AND SUBROUTINES ARE AVAILABLE FOR USE: B6700083^^ C**** 1. THDR1 - CONTENTS OF FIRST LABEL RECORD. B6700084^^ C**** 2. THDR2 - CONTENTS OF SECOND LABEL RECORD. B6700085^^ C**** 3. THDR3 - CONTENTS OF THIRD LABEL RECORD. B6700086^^ C**** 4. LABFND - LABEL FOUND FLAG; ZERO IF NO LABEL FOUND. B6700087^^ C**** 5. REQBUT, B6700088^^ C**** RECBUT - REQUEST BUFFER AND RECORD BUFFER (RESPECTIVELY) FOB6700089^^ C**** UTILITY FILE READ (ONLY) REQUESTS. B6700090^^ C**** 6. TLU - TERMINAL LOGICAL UNIT NUMBER. B6700091^^ C**** 7. PRTLIN - SUBROUTINE TO PRINT LINE TO LIST DEVICE (FILE OR B6700092^^ C**** SYSTEM PRINTER DEPENDING UPON SWITCH U4 SETTING). B6700093^^ C**** CALLING SEQUENCE : CALL PRTLIN ( LINE ) B6700094^^ C**** WHERE LINE IS THE 132 CHARACTER LINE TO PRINT. B6700095^ ^ C**** CURRENT DEFAULT IS FOR NO LABEL CHECKING. B6700097^^ 153 300 CONTINUE B6700098^   ^ C**** UTILITY FILE NO LONGER REQUIRED, CLOSE IT. B6700100^^ 154 400 CALL CLOSFL ( REQBUT, ISTAT ) B6700101^ ^ C**** RESET END-OF-FILE FLAG. B6700103^^ 155 410 EOFFLG = 0 B6700104^ ^ C**** TAPE LABEL PROCESSING COMPLETE, RETURN. B6700106^^ 156 500 RETURN B6700107^^ 157 END B6700108^t FTN 3.3B (OPT = LPC) LABHAN PAGE 9 DATE: 08/30/84 TIME: 0104 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $00BA ( 186)   EXTERNALS  NXTRAN TAPMOT CCSMVA CLOSFL  t FTN 3.3B (OPT = LPC) LABHAN PAGE 10 DATE: 08/30/84 TIME: 0104 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$0 EOFFLG INTEGER 0002 D 3,10,143,150,155 0$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$& I INTEGER 0079 139,141&$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$, INPBUF INTEGER 070E D 37,39,143,147,( ISTAT INTEGER 0708 D 34,37,154(* J INTEGER 007A 140,141,147*$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$. LABFND INTEGER 0078 136,138,145,152.$ LINCNT INTEGER 0ACF D 41,43$t FTN 3.3B (OPT = LPC) LABHAN PAGE 11 DATE: 08/30/84 TIME: 0104 t$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&* N1 INTEGER 0D3A D 112,123,147*& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&& N16 INTEGER 0D49 D 112,124&& N17 INTEGER 0D4A D 112,124&& N2 INTEGER 0D3B D 112,123&& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&. N3 INTEGER 0D3C D 112,123,144,151.& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&* N80 INTEGER 0D53 D 112,130,147*& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$t FTN 3.3B (OPT = LPC) LABHAN PAGE 12 DATE: 08/30/84 TIME: 0104 t$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$( RECBDM INTEGER 001F D 10,12,13 ($ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$( REQBUT INTEGER 0418 D 13,15,154($ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$, TAPE INTEGER 0AFA D 52,54,144,151,$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$& THDR1 INTEGER 0000 132,134&& THDR2 INTEGER 0028 132,135&2 THDRS INTEGER 0000 132,134,135,136,1472$ TKEY INTEGER 0B3E D 73,75$& TLU INTEGER 0D2D D 102,104&$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $t FTN 3.3B (OPT = LPC) LABHAN PAGE 13 DATE: 08/30/84 TIME: 0104 t$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $& TVOL1 INTEGER 0050 132,136&$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$( U INTEGER 0AF2 D 50,52,139($ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSMVA SUBROUTINE 0098 147"" CLOSFL SUBROUTINE 00AE 154"& NXTRAN SUBROUTINE 0087 141,149&& TAPMOT SUBROUTINE 0091 143,151&   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 007B 138"" 200 0080 139"" 210 0086 141"" 220 0088 141"& 230 0097 143,147&& 240 009F 139,148&" 250 00A4 148"* 300 00AD 145,150,153*& 400 00AD 139,154&" 410 00B1 154"" 500 00B3 155" LABHAN 00B6 1  t FTN 3.3B (OPT = LPC) NXTRAN PAGE 1 DATE: 08/30/84 TIME: 0105 t^ 1 SUBROUTINE NXTRAN B8500001^^ 1 1 /B85 F CCS CCS 3.0 SL-149B8500002^^ C READ NEXT TRANSACTION (RECORD) B8500003^^ C CYBERCREDIT SYSTEM VERSION 3 B8500004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B8500005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 B8500006^^ C B8500007^ ^ C NXTRAN IS RESPONSIBLE FOR READING THE TRANSACTIONS OR RECORDS FROMB8500009^^ C THE INPUT DEVICE SELECTED BY THE SWITCH U2 SETTING: B8500010^^ C SWITCH U2 B8500011^^ C SETTING INPUT FROM B8500012^^ C --------- ---------- B8500013^^ C ON FILE "UPDINPUT" B8500014^^ C OFF MAG TAPE B8500015^^ C B8500016^^ C FOR INPUT FROM TAPE, THE LOGICAL UNIT SELECTION (UNIT 0 OR UNIT 1)B8500017^^ C WAS MADE IN THE UPINIT MODULE, AGAIN BASED ON A SWITCH SETTING B8500018^^ C (U3). ON END-OF-FILE ON TAPE OR FILE INPUT, THE FLAG EOFFLG IS B8500019^^ C SET TO SIGNAL END OF UPDATE PROCESSING. A FINAL FUNCTION OF B8500020^^ C NXTRAN IS TO CONVERT THE INPUT, IF SWITCH U1 IS ON, FROM EBCDIC B8500021^^ C TO ASCII. THIS OPERATION IS PERFORMED BY A SEPARATE ASSEMBLER B8500022^^ C LANGUAGE SUBROUTINE. THE OVERALL PROGRAM FLOW IS AS FOLLOWS: B8500023^^ C 1. IF SWITCH U2 NOT SET, CONTINUE B8500024^^ C ELSE, READ NEXT RECORD FROM "UPDINPUT" FILE B8500025^^ C IF NOT END-OF-FILE, CONTINUE WITH INPUT CONVERSION B8500026^^ C (STEP 3) B8500027^^ C ELSE, SET EOFFLG B8500028^^ C RETURN. B8500029^^ C 2. READ NEXT RECORD FROM TAPE B8500030^^ C IF NOT END-OF-FILE, CONTINUE B8500031^^ C ELSE, SET EOFFLG B8500032^^ C RETURN. B8500033^^ C 3. IF SWITCH U1 SET, CONVERT INPUT BUFFER FROM EBCDIC TO ASCIIB8500034^^ C ELSE, CONTINUE. B8500035^^ C 4. RETURN. B8500036^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. B8500038^^ M UPDMAC B8500039^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^t FTN 3.3B (OPT = LPC) NXTRAN PAGE 2 DATE: 08/30/84 TIME: 0105 t^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^t FTN 3.3B (OPT = LPC) NXTRAN PAGE 3 DATE: 08/30/84 TIME: 0105 t^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^t FTN 3.3B (OPT = LPC) NXTRAN PAGE 4 DATE: 08/30/84 TIME: 0105 t^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^t FTN 3.3B (OPT = LPC) NXTRAN PAGE 5 DATE: 08/30/84 TIME: 0105 t^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^t FTN 3.3B (OPT = LPC) NXTRAN PAGE 6 DATE: 08/30/84 TIME: 0105 t^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) NXTRAN PAGE 7 DATE: 08/30/84 TIME: 0105 t^ C**** LOCAL DECLARATIONS. B8500040^ ^ C**** INPUT BUFFER LENGTH. B8500042^^ 133 INTEGER INPLEN B8500043^^ 134 DATA INPLEN / 1784 / B8500044^ ^ C**** TAPE STATUS FUNCTION AND END-OF-FILE STATUS. B8500046^^ 135 INTEGER STATIT, TAPEOF B8500047^^ 136 DATA TAPEOF / $0800 / B8500048^ ^ C**** COMPLETION ADDRESS FOR READ REQUEST. B8500050^^ 137 INTEGER ICOMPL B8500051^^ 138 ASSIGN 140 TO ICOMPL B8500052^   ^ C***********************************************************************B8500054^^ C* BEGIN PROGRAM. *B8500055^^ C***********************************************************************B8500056^ ^ C**** IF SWITCH U2 NOT SET, CONTINUE B8500058^^ 139 100 IF ( U(2) .EQ. 0 ) GO TO 130 B8500059^^ C** ELSE, READ NEXT RECORD FROM UPDINPUT FILE B8500060^^ 140 110 CALL GETS ( REQBIN, INPBUF, DUMMY, ISTAT ) B8500061^^ C** IF NO FILE ERROR OR END-OF-FILE, CONTINUE WITH INPUT CONVER- B8500062^^ C** SION, IF REQUIRED B8500063^^ 141 IF ( ISTAT .GE. 0 ) GO TO 150 B8500064^^ C** ELSE, IF END-OF-FILE, CONTINUE B8500065^^ 142 IF ( AND( ISTAT, EOF ) .NE. 0 ) GO TO 120 B8500066^^ C** ELSE, REPORT FATAL FILE ERROR AND EXIT (NO RETURN B8500067^^ C** FROM UPDEND) B8500068^^ 143 CALL FILERR ( IDATIN, N14, ISTAT, TLU ) B8500069^^ 144 CALL UPDEND B8500070^^ C** SET EOFFLG (END-OF-FILE FLAG) B8500071^^ 145 120 EOFFLG = 1 B8500072^^ C** RETURN. B8500073^^ 146 GO TO 200 B8500074^ ^ C**** READ NEXT RECORD FROM TAPE. B8500076^^ 147 130 CALL FREAD ( TAPE, INPBUF, INPLEN, ICOMPL, IFLAG, TEMP ) B8500077^^ 148 CALL DISP B8500078^^ C** IF NOT END-OF-FILE, CONTINUE B8500079^^ 149 140 IF ( AND( STATIT(TAPE), TAPEOF ) .EQ. 0 ) GO TO 150 B8500080^^ C** ELSE, SET EOFFLG (END-OF-FILE FLAG) B8500081^^ 150 EOFFLG = 1 B8500082^^ C** RETURN B8500083^^ 151 GO TO 200 B8500084^ ^ C**** IF SWITCH U1 SET, CONVERT INPUT FROM EBCDIC TO ASCII B8500086^^ 152 150 IF ( U(1) .NE. 0 ) CALL CCSE2A ( INPBUF, INPLEN , N0 ) B8500087^^ C** ELSE, CONTINUE. B8500088^  ^ C**** INPUT COMPLETE, RETURN. B8500090^t FTN 3.3B (OPT = LPC) NXTRAN PAGE 8 DATE: 08/30/84 TIME: 0105 t^ 153 200 RETURN B8500091^^ 154 END B8500092^t FTN 3.3B (OPT = LPC) NXTRAN PAGE 9 DATE: 08/30/84 TIME: 0105 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $004C ( 76)   EXTERNALS 2 STATIT GETS FILERR UPDEND FREAD DISP CCSE2A 2 t FTN 3.3B (OPT = LPC) NXTRAN PAGE 10 DATE: 08/30/84 TIME: 0105 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$& AND INTR.FN. 7FFF 142,149&( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$& DUMMY INTEGER 0000 D 1,3,140&$ DUPKEY INTEGER 070C D 34,37$( EOF INTEGER 070B D 34,37,142(, EOFFLG INTEGER 0002 D 3,10,145,150 ,$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$* ICOMPL INTEGER 0002 136,138,147*$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$( IDATIN INTEGER 06F9 D 32,34,143($ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$( IFLAG INTEGER 0AE4 D 45,47,147(0 INPBUF INTEGER 070E D 37,39,140,147,1520. INPLEN INTEGER 0000 132,134,147,152.4 ISTAT INTEGER 0708 D 34,37,140,141,142,1434$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$t FTN 3.3B (OPT = LPC) NXTRAN PAGE 11 DATE: 08/30/84 TIME: 0105 t$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$* N0 INTEGER 0D39 D 112,123,152*& N1 INTEGER 0D3A D 112,123&& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&* N14 INTEGER 0D47 D 112,124,143*& N15 INTEGER 0D48 D 112,124&& N16 INTEGER 0D49 D 112,124&& N17 INTEGER 0D4A D 112,124&& N2 INTEGER 0D3B D 112,123&& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&& N3 INTEGER 0D3C D 112,123&& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$t FTN 3.3B (OPT = LPC) NXTRAN PAGE 12 DATE: 08/30/84 TIME: 0105 t$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$( RECBDM INTEGER 001F D 10,12,13 ($ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$( REQBIN INTEGER 06E1 D 32,34,140($ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$, TAPE INTEGER 0AFA D 52,54,147,149,* TAPEOF INTEGER 0001 134,136,149*$ TDLDT INTEGER 0B03 D 54,57$( TEMP INTEGER 0AE5 D 45,47,147($ TKEY INTEGER 0B3E D 73,75$* TLU INTEGER 0D2D D 102,104,143*$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$t FTN 3.3B (OPT = LPC) NXTRAN PAGE 13 DATE: 08/30/84 TIME: 0105 t& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$, U INTEGER 0AF2 D 50,52,139,152,$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSE2A SUBROUTINE 0041 152"" DISP SUBROUTINE 0030 147"" FILERR SUBROUTINE 001C 142"" FREAD SUBROUTINE 0028 147"" GETS SUBROUTINE 000C 139"& STATIT INTEGER.FN. 0032 134,149&" UPDEND SUBROUTINE 0022 143"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0006 138"" 110 000B 139"& 120 0023 142,145&& 130 0027 139,147&& 140 0031 136,149&* 150 003C 141,149,152** 200 0045 145,151,153* NXTRAN 0048 1  t FTN 3.3B (OPT = LPC) PRTLIN PAGE 1 DATE: 08/30/84 TIME: 0106 t^ 1 SUBROUTINE PRTLIN ( LINE ) C0900001^^ 1 1 /C09 F CCS CCS 3.0 SL-149C0900002^^ C PRINT DETAIL OR TOTAL LINE C0900003^^ C CYBERCREDIT SYSTEM VERSION 3 C0900004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C0900005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C0900006^^ C C0900007^ ^ C PRTLIN IS RESPONSIBLE FOR "PRINTING" THE PASSED LINE TO THE LIST C0900009^^ C UNIT SPECIFIED BY THE SWITCH SETTINGS. IF SWITCH U4 IS NOT SET, C0900010^^ C OUTPUT IS TO THE SYSTEM PRINTER. IF SWITCH U4 IS SET, OUTPUT WILLC0900011^^ C BE TO THE FILE "UPDPRINT". PRTLIN WILL PRINT REPORT AND COLUMN C0900012^^ C HEADINGS IF NEEDED. THE FOLLOWING RESTRICTIONS APPLY TO THE LINE C0900013^^ C PASSED TO BE PRINTED: C0900014^^ C 1) MAXMIMUM OF 132 CHARACTERS. C0900015^^ C 2) MUST BE FOLLOWED BY TWO UNUSED WORDS. THESE ARE REQUIRED C0900016^^ C BY THE FILE MANAGER FOR FILE OUTPUT. C0900017^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: C0900018^^ C 1. IF INITIALIZATION OPERATIONS COMPLETE, CONTINUE C0900019^^ C ELSE, INITIALIZE FWRITE COMPLETION ADDRESSES. C0900020^^ C 2. IF LINE-COUNT DOES NOT FORCE NEW PAGE, CONTINUE C0900021^^ C ELSE, RESET LINE COUNT (TO FOUR) C0900022^^ C INCREMENT PAGE COUNT C0900023^^ C IF SWITCH U4 IS SET, "PRINT" REPORT HEADINGS TO FILE C0900024^^ C "UPDPRINT" C0900025^^ C ELSE, PRINT REPORT HEADINGS TO SYSTEM PRINTER C0900026^^ C IF IN TOTALS PRINTING, CONTINUE C0900027^^ C ELSE, INCREMENT LINE COUNT BY 3 C0900028^^ C IF SWITCH U4 IS SET, "PRINT" COLUMN HEADINGS TO C0900029^^ C FILE "UPDPRINT" C0900030^^ C ELSE, PRINT COLUMN HEADINGS TO SYSTEM C0900031^^ C PRINTER. C0900032^^ C 3. IF SWITCH U4 SET, "PRINT" LINE TO FILE "UPDPRINT" C0900033^^ C ELSE, PRINT LINE TO SYSTEM PRINTER. C0900034^^ C 4. BLANK LINE BUFFER JUST PRINTED. C0900035^^ C 5. INCREMENT LINE COUNT. C0900036^^ C 6. RETURN. C0900037^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. C0900039^^ M UPDMAC C0900040^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^t FTN 3.3B (OPT = LPC) PRTLIN PAGE 2 DATE: 08/30/84 TIME: 0106 t^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^t FTN 3.3B (OPT = LPC) PRTLIN PAGE 3 DATE: 08/30/84 TIME: 0106 t^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^t FTN 3.3B (OPT = LPC) PRTLIN PAGE 4 DATE: 08/30/84 TIME: 0106 t^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^t FTN 3.3B (OPT = LPC) PRTLIN PAGE 5 DATE: 08/30/84 TIME: 0106 t^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^t FTN 3.3B (OPT = LPC) PRTLIN PAGE 6 DATE: 08/30/84 TIME: 0106 t^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) PRTLIN PAGE 7 DATE: 08/30/84 TIME: 0106 t^ C**** LOCAL DECLARATIONS C0900041^ ^ C**** SYSTEM LINE PRINTER LOGICAL UNIT C0900043^^ 133 INTEGER LP C0900044^^ 134 DATA LP / 9 / C0900045^ ^ C**** MAXIMUM NUMBER OF LINES PER PAGE - INCLUDING HEADINGS. C0900047^^ 135 INTEGER MAXLPP C0900048^^ 136 DATA MAXLPP / 56 / C0900049^^ C**** SYSTEM LINE PRINTER LOGICAL UNIT C0900043^^ 133 INTEGER LP C0900044^^ 134 DATA LP / 9 / C0900045^ ^ C**** MAXIMUM NUMBER OF LINES PER PAGE - INCLUDING HEADINGS. C0900047^^ 135 INTEGER MAXLPP C0900048^^ 136 DATA MAXLPP / 56 / C0900049^ ^ C**** FWRITE COMPLETION ADDRESSES. C0900051^^ 137 INTEGER COMPL1, COMPL2, COMPL3, COMPL4, COMPL5, COMPL6 C0900052^^ 138 DATA COMPL1 / 0 / C0900053^  ^ C***********************************************************************C0900055^^ C* BEGIN PROGRAM. *C0900056^^ C***********************************************************************C0900057^ ^ C**** IF COMPLETION ADDRESS ALREADY INITIALIZED, CONTINUE C0900059^^ 139 100 IF ( COMPL1 .NE. 0 ) GO TO 110 C0900060^^ C** ELSE, INITIALIZE ONE TIME THE COMPLETION ADDRESSES FOR C0900061^^ C** FWRITE REQUESTS. C0900062^^ 140 ASSIGN 120 TO COMPL1 C0900063^^ 141 ASSIGN 130 TO COMPL2 C0900064^^ 142 ASSIGN 150 TO COMPL3 C0900065^^ 143 ASSIGN 160 TO COMPL4 C0900066^^ 144 ASSIGN 180 TO COMPL5 C0900067^^ 145 ASSIGN 200 TO COMPL6 C0900068^ ^ C**** IF LINE COUNT DOES NOT FORCE NEW PAGE, CONTINUE C0900070^^ 146 110 IF ( LINCNT .LE. MAXLPP ) GO TO 180 C0900071^^ C** ELSE, RESET LINE COUNT C0900072^^ 147 LINCNT = 4 C0900073^^ C** INCREMENT PAGE COUNT C0900074^^ 148 CALL CCSADD ( NDAONE, N2, PAGCNT, N1, PAGCNT, N1 ) C0900075^^ C** MOVE PAGE COUNT TO REPORT HEADINGS C0900076^^ 149 HDLIN(63,2) = PAGCNT(5) C0900077^^ 150 HDLIN(64,2) = PAGCNT(6) C0900078^^ C* ZERO SUPPRESS PAGE COUNT C0900079^^ 151 DO 115 I=1,3 C0900080^^ 152 CALL CCSGET ( HDLIN(63,2), I, J ) C0900081^^ 153 IF ( J .NE. $30 ) GO TO 116 C0900082^^ 154 CALL CCSPUT ( BLANKS, I, HDLIN(63,2) ) C0900083^^ 155 115 CONTINUE C0900084^^ C** IF SWITCH U4 SET, "PRINT" REPORT HEADINGS TO FILE "UPDPRINT" C0900085^^ 156 116 IF ( U(4) .NE. 0 ) GO TO 140 C0900086^^ C** ELSE, PRINT REPORT HEADINGS ON SYSTEM LINE PRINTER C0900087^^ 157 CALL FWRITE( LP, HDLIN(1,1), N132, COMPL1, IFLAG, TEMP)C0900088^^ 158 CALL DISP C0900089^^ 159 120 CALL FWRITE( LP, HDLIN(1,2), N132, COMPL2, IFLAG, TEMP)C0900090^^ 160 CALL DISP C0900091^^ 161 130 CALL FWRITE( LP, HDLIN(1,3), N132, COMPL3, IFLAG, TEMP)C0900092^^ 162 CALL DISP C0900093^t FTN 3.3B (OPT = LPC) PRTLIN PAGE 8 DATE: 08/30/84 TIME: 0106 t ^ C** PRINT REPORT HEADINGS TO FILE "UPDPRINT". C0900095^^ 163 140 CALL PUTS ( REQBPR, HDLIN, N3, ISTAT ) C0900096^^ C** IF NO FILE ERROR, CONTINUE C0900097^^ 164 IF ( ISTAT .GE. 0 ) GO TO 150 C0900098^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND) C0900099^^ 165 CALL FILERR ( IDATPR, N11, ISTAT, TLU ) C0900100^^ 166 CALL UPDEND C0900101^ ^ C** IF IN TOTALS PRINTING, CONTINUE (BYPASS COLUMN HEADINGS C0900103^^ C** PRINTING) C0900104^^ 167 150 IF( TOTPRT .NE. 0 ) GO TO 180 C0900105^^ C** ELSE, INCREMENT LINE COUNT BY 3 C0900106^^ 168 LINCNT = LINCNT + 3 C0900107^^ C** IF SWITCH U4 SET, "PRINT" COLUMN HEADINGS TO FILE C0900108^^ C** "UPDPRINT" C0900109^^ 169 IF ( U(4) .NE. 0 ) GO TO 170 C0900110^^ C** ELSE, PRINT COLUMN HEADINGS ON SYSTEM LINE PRINTER C0900111^^ 170 CALL FWRITE( LP, COLHD(1,1), N132, COMPL4, C0900112^^ 170 + IFLAG, TEMP ) C0900113^^ 171 CALL DISP C0900114^^ 172 160 CALL FWRITE( LP, COLHD(1,2), N132, COMPL5, C0900115^^ 172 + IFLAG, TEMP ) C0900116^^ 173 CALL DISP C0900117^ ^ C** PRINT COLUMN HEADINGS TO FILE "UPDPRINT" C0900119^^ 174 170 CALL PUTS ( REQBPR, COLHD, N2, ISTAT ) C0900120^^ C** IF NO FILE ERROR, CONTINUE C0900121^^ 175 IF ( ISTAT .GE. 0 ) GO TO 180 C0900122^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM C0900123^^ C** UPDEND). C0900124^^ 176 CALL FILERR ( IDATPR, N11, ISTAT, TLU ) C0900125^^ 177 CALL UPDEND C0900126^ ^ C**** IF SWITCH U4 SET, "PRINT" LINE TO FILE "UPDPRINT" C0900128^^ 178 180 IF ( U(4) .NE. 0 ) GO TO 190 C0900129^^ C** ELSE, PRINT LINE TO SYSTEM LINE PRINTER. C0900130^^ 179 CALL FWRITE ( LP, LINE, N132, COMPL6, IFLAG, TEMP ) C0900131^^ 180 CALL DISP C0900132^ ^ C** PRINT LINE TO FILE "UPDPRINT". C0900134^^ 181 190 CALL PUTS ( REQBPR, LINE, N1, ISTAT ) C0900135^^ C** IF NO FILE ERROR, CONTINUE C0900136^^ 182 IF ( ISTAT .GE. 0 ) GO TO 200 C0900137^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C0900138^^ 183 CALL FILERR ( IDATPR, N11, ISTAT, TLU ) C0900139^^ 184 CALL UPDEND C0900140^ ^ C**** BLANK OUTPUT LINE. C0900142^^ 185 200 CALL CCSBLK ( LINE, N132 ) C0900143^ ^ C**** INCREMENT LINE-COUNT. C0900145^^ 186 210 LINCNT = LINCNT + 1 C0900146^ t FTN 3.3B (OPT = LPC) PRTLIN PAGE 9 DATE: 08/30/84 TIME: 0106 t ^ C**** LINE OUTPUT COMPLETE, RETURN. C0900148^^ 187 220 RETURN C0900149^^ 188 END C0900150^t FTN 3.3B (OPT = LPC) PRTLIN PAGE 10 DATE: 08/30/84 TIME: 0106 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $00D7 ( 215)   EXTERNALS 2 Q8PKUP Q8PREP CCSADD CCSGET CCSPUT FWRITE DISP 2 PUTS FILERR UPDEND CCSBLK  t FTN 3.3B (OPT = LPC) PRTLIN PAGE 11 DATE: 08/30/84 TIME: 0106 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$( ASREAC INTEGER 0B1A D 70,72,73 (* BLANKS INTEGER 0D35 D 110,112,154*$ BUSY INTEGER 070D D 34,37$4 COLHD INTEGER 0CA1 D 96,99,100,170,172,1744$ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&2 COMPL1 INTEGER 0002 136,138,139,140,1572* COMPL2 INTEGER 0003 136,141,159** COMPL3 INTEGER 0004 136,142,161** COMPL4 INTEGER 0005 136,143,170** COMPL5 INTEGER 0006 136,144,172** COMPL6 INTEGER 0007 136,145,179*( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$H HDLIN INTEGER 0BDB D 96,99,100,149,150,152,154,157,159,161,163H$ HDLINT INTEGER 0CA0 D 96,99$* I INTEGER 0008 150,152,154*$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$0 IDATPR INTEGER 06D2 D 30,32,165,176,1830$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$< IFLAG INTEGER 0AE4 D 45,47,157,159,161,170,172,179<$ INPBUF INTEGER 070E D 37,39$t FTN 3.3B (OPT = LPC) PRTLIN PAGE 12 DATE: 08/30/84 TIME: 0106 tH ISTAT INTEGER 0708 D 34,37,163,164,165,174,175,176,181,182,183H& J INTEGER 0009 152,153&$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$4 LINCNT INTEGER 0ACF D 41,43,146,147,168,1864, LINE INTEGER 7FFF 1,179,181,185,> LP INTEGER 0000 132,134,157,159,161,170,172,179>$ MADLQ INTEGER 0B06 D 57,60$* MAXLPP INTEGER 0001 134,136,146*$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&. N1 INTEGER 0D3A D 112,123,148,181.& N10 INTEGER 0D43 D 112,124&2 N11 INTEGER 0D44 D 112,124,165,176,1832& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&B N132 INTEGER 0D56 D 112,132,157,159,161,170,172,179,185B& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&& N16 INTEGER 0D49 D 112,124&& N17 INTEGER 0D4A D 112,124&. N2 INTEGER 0D3B D 112,123,148,174.& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&* N3 INTEGER 0D3C D 112,123,163*& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&* NDAONE INTEGER 0D30 D 108,110,148*$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$t FTN 3.3B (OPT = LPC) PRTLIN PAGE 13 DATE: 08/30/84 TIME: 0106 t$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$0 PAGCNT INTEGER 0AD0 D 41,43,148,149,1500$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$( RECBDM INTEGER 001F D 10,12,13 ($ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$0 REQBPR INTEGER 06BA D 30,32,163,174,1810$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$t FTN 3.3B (OPT = LPC) PRTLIN PAGE 14 DATE: 08/30/84 TIME: 0106 t< TEMP INTEGER 0AE5 D 45,47,157,159,161,170,172,179<$ TKEY INTEGER 0B3E D 73,75$2 TLU INTEGER 0D2D D 102,104,165,176,1832$ TNAM INTEGER 0AFD D 54,56$( TOTPRT INTEGER 0006 D 3,10,167 ($ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$0 U INTEGER 0AF2 D 50,52,156,169,1780$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSADD SUBROUTINE 002A 147"" CCSBLK SUBROUTINE 00C2 185"" CCSGET SUBROUTINE 003C 151"" CCSPUT SUBROUTINE 0044 153"6 DISP SUBROUTINE 005B 157,160,162,171,173,1806* FILERR SUBROUTINE 0077 164,176,183*6 FWRITE SUBROUTINE 0053 156,159,161,170,172,1796* PUTS SUBROUTINE 006D 163,174,181* Q8PKUP INTEGER.FN. 00D0 Q8PREP INTEGER.FN. 00CD * UPDEND SUBROUTINE 007D 165,177,184*t FTN 3.3B (OPT = LPC) PRTLIN PAGE 15 DATE: 08/30/84 TIME: 0106 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 000A 138"& 110 0020 139,146&& 115 0048 150,155&& 116 004D 153,156&& 120 005C 139,159&& 130 0064 140,161&& 140 006C 156,163&* 150 007E 141,164,167*& 160 0092 142,172&& 170 009A 169,174&2 180 00A8 143,146,167,175,1782& 190 00B3 178,181&* 200 00C1 144,182,185*" 210 00C5 185"" 220 00C7 186" PRTLIN 00CA 1  t FTN 3.3B (OPT = LPC) REACIT PAGE 1 DATE: 08/30/84 TIME: 0107 t^ 1 SUBROUTINE REACIT C1400001^^ 1 1 /C14 F CCS CCS 3.0 SL-149C1400002^^ C PERFORM REACTIVATION SPECIFIC OPERATIONS C1400003^^ C CYBERCREDIT SYSTEM VERSION 3 C1400004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1400005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1400006^^ C C1400007^ ^ C REACIT IS RESPONSIBLE FOR PERFORMING ALL UNIQUE OPERATIONS C1400009^^ C REQUIRED TO REACTIAVTE AN ACCOUNT. A REACTIVATION IS DEFINED AS C1400010^^ C A RETURN TO DELINQUENCY OF AN ACCOUNT WHICH WAS PREVIOUSLY DELIN- C1400011^^ C QUENT ON CCS AND HAS NOT MOVED TO THE HISTORY FILES. A DELINQUENTC1400012^^ C MASTER RECORD EXISTS FOR THE ACCOUNT, BUT THE STATUS CODE INDI- C1400013^^ C CATES THE ACCOUNT IS NOT ACTIVE (STATUS CODE NON-BLANK). OPER- C1400014^^ C ATIONS PERFORMED INCLUDE ADDING THE ACCOUNT TO THE ACTIVE ACCOUNTSC1400015^^ C TREND ANALYSIS AGING FILE (ACCAGE), ADDING AMOUNT DELINQUENT AND C1400016^^ C CURRENT PAYOFF/TOTAL DUE TO TOTALS, CLEARING AND ESTABLISHING SOMEC1400017^^ C CRITICAL MASTER FILE FIELDS, AND, IF THE OPTION IS SELECTED BY C1400018^^ C INTERNAL CODE, A CANNED ACTIVITY WITH COMMENT IS ADDED TO THE C1400019^^ C PERMANENT ACTIVITY HISTORY OF THE ACCOUNT. THIS LATTER FEATURE ISC1400020^^ C ENABLED BY MAKING THE FIRST WORD OF THE COMMENT FIELD IN THE C1400021^^ C ACTIVITY STRING "ASREAC" NON-BLANK (BY PATCH OR CHANGE OF CODE C1400022^^ C AND REINSTALLATION). THE ACTIVITY STRING IS A NORMAL STRING WITH C1400023^^ C THE FOLLOWING DEFINITION: C1400024^^ C START NUM C1400025^^ C CHAR CHAR DESCRIPTION C1400026^^ C --------------------------------------------------------- C1400027^^ C 1 6 SYSTEM DATE C1400028^^ C 7 2 ACTION CODE - SET TO "CO" C1400029^^ C 9 2 RESULT CODE - BLANK C1400030^^ C 11 2 LETTER CODE - BLANK C1400031^^ C 13 4 COLECTOR ID - SET TO "HOST" C1400032^^ C 17 55 COMMENT - USER SELECTED C1400033^^ C USAGE OF THIS FEATURE WILL AFFECT THE TIME USAGE AND COLLECTOR C1400034^^ C STATISTICS REPORT. THE "HOST" ID WILL SHOW AS A COLLECTOR SINCE C1400035^^ C UPDATE WILL LOG THESE ACTIVITIES IN THE TRANSACTION FILE(S). THE C1400036^^ C GENERALIZED PROGRAM FLOW IS AS FOLLOWS: C1400037^^ C 1. BLANK STATUS CODE . C1400038^^ C 2. SAVE QUEUE ASSIGNED BY HOST FROM INPUT BUFFER. C1400039^^ C 3. SET NEXT CONTACT DATE TO SYSTEM DATE. C1400040^^ C 4. BLANK PROMISE TO PAY FIELDS (REQUIRED IN CASE PREVIOUS C1400041^^ C DELINQUENCY SATISIFIED WITH PROMISE PENDING - WOULD NOT C1400042^^ C BE TRACKED BY DACRTE SINCE ACCOUNT WAS INACTIVE). C1400043^^ C 5. FORMAT DETIAL LINE FOR REACTIVATION TRANSACTION. C1400044^^ C 6. INCREMENT REACTIVATION TRANSACTION COUNT. C1400045^^ C 7. ADD AMOUNT DELINQUENT TO REACTIVATION AMOUNT DELINQUENT C1400046^^ C BUCKET. C1400047^^ C 8. ADD CURRENT PAYOFF/TOTAL DUE TO REACTIVATION CURRENT C1400048^^ C PAYOFF/TOTAL DUE BUCKET. C1400049^^ C 9. FORMAT ACCAGE FILE RECORD FOR ACCOUNT. C1400050^^ C 10. ADD ACCOUNT TO ACCAGE FILE. C1400051^^ C 11. IF ACCOUNT NOT ALREADY PRESENT ON ACCAGE FILE, CONTINUE C1400052^^ C ELSE, RETRIEVE ACCOUNT FROM ACCAGE FILE C1400053^^ C UPDATE ACCOUNT ON ACCAGE FILE C1400054^t FTN 3.3B (OPT = LPC) REACIT PAGE 2 DATE: 08/30/84 TIME: 0107 t^ C ADD ERROR NOTE TO DETAIL LINE - ACCOUNT ALREADY IN C1400055^^ C ACCAGE FILE. C1400056^^ C 12. IF COMMENT FIELD IN REACTIVATION ACTIVITY STRING BLANK, C1400057^^ C CONTINUE C1400058^^ C ELSE, FORCE ACTIVITY STRING INTO MASTER RECORD C1400059^^ C ACTIVITY BLOCK C1400060^^ C FORMAT TRANSACTION FILE RECORD WITH THIS ACTIVITY C1400061^^ C ADD TRANSACTION TO PRIMARY TRANSACTION FILE C1400062^^ C IF SECONDARY TRANSACTION FILE NOT IN USE, CONTINUE C1400063^^ C ELSE, ADD TRANSACTION TO SECONDARY TRANSACTION C1400064^^ C FILE. C1400065^^ C 13. RETURN. C1400066^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. C1400068^^ M UPDMAC C1400069^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^t FTN 3.3B (OPT = LPC) REACIT PAGE 3 DATE: 08/30/84 TIME: 0107 t^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^t FTN 3.3B (OPT = LPC) REACIT PAGE 4 DATE: 08/30/84 TIME: 0107 t^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^t FTN 3.3B (OPT = LPC) REACIT PAGE 5 DATE: 08/30/84 TIME: 0107 t^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^t FTN 3.3B (OPT = LPC) REACIT PAGE 6 DATE: 08/30/84 TIME: 0107 t^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) REACIT PAGE 7 DATE: 08/30/84 TIME: 0107 t^ C**** LOCAL DECLARATIONS. C1400070^ ^ C**** START CHARACTER POSITION OF PROMISE TO PAY FIELDS IN MASTER C1400072^^ C**** FILE RECORD. MPP1 = DATE AND AMOUNT; MPP2 = NUMBER KEPT, C1400073^^ C**** NUMBER BROKEN, AND COMMITMENT DATE. C1400074^^ 133 INTEGER MPP1, MPP2 C1400075^^ 134 DATA MPP1 / 1016 / C1400076^^ 135 DATA MPP2 / 1037 / C1400077^  ^ C***********************************************************************C1400079^^ C* BEGIN PROGRAM. *C1400080^^ C***********************************************************************C1400081^ ^ C**** BLANK STATUS CODE. C1400083^^ 136 100 ACCTST = BLANKS C1400084^ ^ C**** SAVE QUEUE ASSIGNED BY HOST FROM INPUT BUFFER. C1400086^^ 137 110 CALL CCSMVA ( INPBUF, TQUE, N4, RECBDM, MQUE, N4 ) C1400087^ ^ C**** SET NEXT CONTACT DATE TO SYSTEM DATE. C1400089^^ 138 120 CALL CCSMVA ( DATE, N1, N6, RECBDM, MNXTC, N6 ) C1400090^ ^ C**** BLANK PROMISE TO PAY FIELDS. C1400092^^ 139 130 CALL CCSMVA ( DUMMY, N0, N0, RECBDM, MPP1, N15 ) C1400093^^ 140 CALL CCSMVA ( DUMMY, N0, N0, RECBDM, MPP2, N10 ) C1400094^ ^ C**** FORMAT DETAIL LINE FOR REACTIVATION TRANSACTION. C1400096^^ 141 140 CALL FORMLN ( N6 ) C1400097^ ^ C**** INCREMENT REACTIVATION TRANSACTION COUNT. C1400099^^ 142 150 CALL CCSADD ( NDAONE, N2, NUMREA, N1, NUMREA, N1 ) C1400100^ ^ C**** ADD AMOUNT DELIQNUENT TO REACTIVATION AMOUNT DELINQUENT BUCKET. C1400102^^ C**** NOTE: FIELD MUST BE FROM INPUT BUFFER SINCE UNCUPD ROUTINE HAS C1400103^^ C**** EXECUTED YET TO UPDATE FIELDS IN MASTER FILE. C1400104^^ 143 160 CALL CCSADD ( INPBUF, TADLQ, REAAD, N1, REAAD, N1 ) C1400105^ ^ C**** ADD CURRENT PAYOFF/TOTAL DUE TO REACTIVATION CURRENT PAYOFF/TOTAL C1400107^^ C**** DUE BUCKET. NOTE: CURRENT PAYOFF/TOTAL DUE MUST BE FROM INPUT C1400108^^ C**** BUFFER. C1400109^^ 144 170 CALL CCSADD ( INPBUF, TPYOF, REAPAY, N1, REAPAY, N1 ) C1400110^ ^ C**** FORMAT ACCAGE FILE RECORD FOR ACCOUNT. C1400112^^ 145 180 CALL CCSMVA ( RECBDM, N1, N16, RECBAG, N1, N82 ) C1400113^ ^ C**** ADD ACCOUNT TO ACCAGE FILE. C1400115^^ 146 190 CALL WRITER ( REQBAG, RECBAG, RECBAG, ISTAT ) C1400116^^ C** IF NO FILE ERROR, CONTINUE C1400117^^ 147 IF ( ISTAT .GE. 0 .OR. AND( ISTAT, DUPKEY ) .NE. 0 ) C1400118^^ 147 + GO TO 200 C1400119^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C1400120^^ 148 CALL FILERR ( IDATAG, N12, ISTAT, TLU ) C1400121^^ 149 CALL UPDEND C1400122^t FTN 3.3B (OPT = LPC) REACIT PAGE 8 DATE: 08/30/84 TIME: 0107 t ^ C**** IF ACCOUNT NOT ALREADY PRESENT ON ACCAGE FILE, CONTINUE C1400124^^ 150 200 IF ( ISTAT .GE. 0 ) GO TO 230 C1400125^^ C** ELSE, RETRIEVE ACCOUNT FROM ACCAGE FILE C1400126^^ 151 CALL READR ( REQBAG, RECBAG, RECBAG, ISTAT ) C1400127^^ C** IF NO FILE ERROR, CONTINUE C1400128^^ 152 IF ( ISTAT .GE. 0 .AND. AND( ISTAT, WRONKY ) .EQ. 0 ) C1400129^^ 152 + GO TO 210 C1400130^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM C1400131^^ C** UPDEND C1400132^^ 153 CALL FILERR ( IDATAG, N13, ISTAT, TLU ) C1400133^^ 154 CALL UPDEND C1400134^^ C** UPDATE ACCOUNT ON ACCAGE FILE C1400135^^ 155 210 CALL CCSBLK ( RECBAG(9), N66 ) C1400136^^ 156 CALL UPDREC ( REQBAG, RECBAG, ISTAT ) C1400137^^ C** IF NO FILE ERROR, CONTINUE C1400138^^ 157 IF ( ISTAT .GE. 0 ) GO TO 220 C1400139^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM C1400140^^ C** UPDEND) C1400141^^ 158 CALL FILERR ( IDATAG, N15, ISTAT, TLU ) C1400142^^ 159 CALL UPDEND C1400143^^ C** ADD ERROR NOTE TO DETAIL LINE - ACCOUNT ALREADY IN ACCAGE C1400144^^ C** FILE. C1400145^^ 160 220 CALL CCSMVA ( ALRACC, N1, N27, DETLIN(53), N1, N27 ) C1400146^ ^ C**** IF COMMENT IN REACTIVATION ACTIVITY STRING BLANK, CONTINUE C1400148^^ 161 230 IF ( COMFLD .EQ. BLANKS ) GO TO 250 C1400149^^ C** ELSE, FORCE ACTIVITY INTO MASTER FILE ACTIVITY BLOCK C1400150^^ 162 ISTAT = A01 C1400151^^ 163 CALL PUTACF ( ASREAC, RECBDM(154), A0360, ISTAT ) C1400152^^ C** FORMAT TRANSACTION FILE RECORD FOR THIS ACTIVITY C1400153^^ 164 CALL CCSMVA ( RECBDM, N1, N16, RECBTF, N1, N16 ) C1400154^^ 165 CALL CCSMVA ( ASREAC(7), N1, N4, RECBTF, N17, N4 ) C1400155^^ 166 CALL CCSTIM ( RECBTF(11) ) C1400156^^ 167 RECBTF(13) = RECBTF(11) C1400157^^ 168 RECBTF(14) = RECBTF(12) C1400158^^ 169 CALL CCSMVA ( ASREAC, N1, N12, RECBTF(16), N1, N12 ) C1400159^^ 170 CALL CCSMVA ( ASREAC(9), N1, N55, RECBTF(22), N1, N96 ) C1400160^^ C** ADD TRANSACTION TO PRIMARY TRANSACTION FILE C1400161^^ 171 CALL PUTS ( REQBTP, RECBTF, N1, ISTAT ) C1400162^^ C** IF NO FILE ERROR, CONTINUE C1400163^^ 172 IF ( ISTAT .GE. 0 ) GO TO 240 C1400164^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C1400165^^ 173 CALL FILERR ( IDATTP, N11, ISTAT, TLU ) C1400166^^ 174 CALL UPDEND C1400167^^ C** IF SECONDARY TRANSACTION FILE NOT IN USE, CONTINUE C1400168^^ 175 240 IF ( SECTRF .EQ. 0 ) GO TO 250 C1400169^^ C** ELSE, ADD TRANSACTION TO SECONDARY TRANSACTION FILE C1400170^^ 176 CALL PUTS ( REQBTS, RECBTF, N1, ISTAT ) C1400171^^ C** IF NO FILE ERROR, CONTINUE C1400172^^ 177 IF ( ISTAT .GE. 0 ) GO TO 250 C1400173^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM C1400174^^ C** UPDEND). C1400175^^ 178 CALL FILERR ( IDATTS, N11, ISTAT, TLU ) C1400176^t FTN 3.3B (OPT = LPC) REACIT PAGE 9 DATE: 08/30/84 TIME: 0107 t^ 179 CALL UPDEND C1400177^  ^ C**** REACTIVATION SPECIFIC OPERATION COMPLETE, RETURN. C1400179^^ 180 250 RETURN C1400180^^ 181 END C1400181^t FTN 3.3B (OPT = LPC) REACIT PAGE 10 DATE: 08/30/84 TIME: 0107 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $00F2 ( 242)   EXTERNALS 2 CCSMVA FORMLN CCSADD WRITER FILERR UPDEND READR 2& CCSBLK UPDREC PUTACF CCSTIM PUTS & t FTN 3.3B (OPT = LPC) REACIT PAGE 11 DATE: 08/30/84 TIME: 0107 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * A01 INTEGER 0D36 D 110,112,162** A0360 INTEGER 0D37 D 110,112,163*$ ACCTFD INTEGER 0001 D 3,10 $( ACCTST INTEGER 00B7 D 10,12,136(& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$( ALRACC INTEGER 0AD6 D 43,45,160(& AND INTR.FN. 7FFF 147,152&8 ASREAC INTEGER 0B1A D 70,72,73,163,165,169,170 8. BLANKS INTEGER 0D35 D 110,112,136,161.$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$( COMFLD INTEGER 0B22 D 70,72,161(& COMPIN INTEGER 0D2E D 104,106&, DATE INTEGER 0AED D 47,49,50,138 ,$ DAY INTEGER 0AEE D 47,49$( DETLIN INTEGER 0A8B D 39,41,160(* DUMMY INTEGER 0000 D 1,3,139,140*( DUPKEY INTEGER 070C D 34,37,147($ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$$ IDATAD INTEGER 0568 D 17,19$0 IDATAG INTEGER 05EF D 21,23,148,153,1580$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$( IDATTP INTEGER 0684 D 26,28,173(( IDATTS INTEGER 06AB D 28,30,178($ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$0 INPBUF INTEGER 070E D 37,39,137,143,1440l ISTAT INTEGER 0708 D 34,37,146,147,148,150,151,152,153,156,157,158,162,163,171,172,173,176,177,178l$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$t FTN 3.3B (OPT = LPC) REACIT PAGE 12 DATE: 08/30/84 TIME: 0107 t$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$( MNXTC INTEGER 0B0A D 57,60,138($ MONTH INTEGER 0AED D 47,49$* MPP1 INTEGER 0000 132,134,139** MPP2 INTEGER 0001 132,135,140*$ MPYOF INTEGER 0B04 D 57,60$( MQUE INTEGER 0B08 D 57,60,137($ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$. N0 INTEGER 0D39 D 112,123,139,140.V N1 INTEGER 0D3A D 112,123,138,142,143,144,145,160,164,165,169,170,171,176V* N10 INTEGER 0D43 D 112,124,140*. N11 INTEGER 0D44 D 112,124,173,178.. N12 INTEGER 0D45 D 112,124,148,169.* N13 INTEGER 0D46 D 112,124,153*& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&. N15 INTEGER 0D48 D 112,124,139,158.. N16 INTEGER 0D49 D 112,124,145,164.* N17 INTEGER 0D4A D 112,124,165** N2 INTEGER 0D3B D 112,123,142*& N26 INTEGER 0D4B D 112,125&* N27 INTEGER 0D4C D 112,125,160*& N28 INTEGER 0D4D D 112,125&& N3 INTEGER 0D3C D 112,123&& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&. N4 INTEGER 0D3D D 112,123,137,165.& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&* N55 INTEGER 0D51 D 112,128,170*. N6 INTEGER 0D3F D 112,123,138,141.* N66 INTEGER 0D52 D 112,129,155*& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&* N82 INTEGER 0D54 D 112,130,145*& N9 INTEGER 0D42 D 112,123&* N96 INTEGER 0D55 D 112,131,170** NDAONE INTEGER 0D30 D 108,110,142*$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$( NUMREA INTEGER 0BBC D 89,94,142($ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$t FTN 3.3B (OPT = LPC) REACIT PAGE 13 DATE: 08/30/84 TIME: 0107 t$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$( REAAD INTEGER 0B8C D 83,88,143(( REAPAY INTEGER 0B9E D 83,89,144($ RECBAD INTEGER 055D D 17,19$< RECBAG INTEGER 05C4 D 21,23,25,145,146,151,155,156 <$ RECBCS INTEGER 047F D 15,17$D RECBDM INTEGER 001F D 10,12,13,137,138,139,140,145,163,164 D$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$H RECBTF INTEGER 063D D 26,28,164,165,166,167,168,169,170,171,176H$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$0 REQBAG INTEGER 05AC D 21,23,146,151,1560$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$( REQBTP INTEGER 0625 D 26,28,171(( REQBTS INTEGER 0693 D 28,30,176($ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$( SECTRF INTEGER 0004 D 3,10,175 ($ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$( TADLQ INTEGER 0B01 D 54,56,143($ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$: TLU INTEGER 0D2D D 102,104,148,153,158,173,178:$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $( TPYOF INTEGER 0B02 D 54,56,144(( TQUE INTEGER 0B00 D 54,56,137(& TRN301 INTEGER 0D25 D 100,102&t FTN 3.3B (OPT = LPC) REACIT PAGE 14 DATE: 08/30/84 TIME: 0107 t& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$( WRONKY INTEGER 0709 D 34,37,152($ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * CCSADD SUBROUTINE 002A 141,143,144*" CCSBLK SUBROUTINE 0076 155"F CCSMVA SUBROUTINE 0088 136,138,139,140,145,160,164,165,169,170F" CCSTIM SUBROUTINE 00AE 165"2 FILERR SUBROUTINE 00D1 147,153,158,173,1782" FORMLN SUBROUTINE 0027 140"" PUTACF SUBROUTINE 009A 162"& PUTS SUBROUTINE 00C7 170,176&" READR SUBROUTINE 0062 150"2 UPDEND SUBROUTINE 00D7 148,154,159,174,1792" UPDREC SUBROUTINE 007A 155"" WRITER SUBROUTINE 0047 145"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0002 135"" 110 0009 136"" 120 0011 137"" 130 0018 138"" 140 0026 140"" 150 0029 141"" 160 0031 142"" 170 0038 143"" 180 003F 144"" 190 0046 145"t FTN 3.3B (OPT = LPC) REACIT PAGE 15 DATE: 08/30/84 TIME: 0107 t& 200 005D 147,150&& 210 0075 152,155&& 220 0087 157,160&& 230 008F 150,161&& 240 00D8 172,175&. 250 00EA 161,175,177,180. REACIT 00ED 1  t FTN 3.3B (OPT = LPC) RSWIT PAGE 1 DATE: 08/30/84 TIME: 0108 t^ 1 SUBROUTINE RSWIT C1600001^^ 1 1 /C16 F CCS CCS 3.0 SL-149C1600002^^ C PERFORM INACTIVATION SPECIFIC OPERATIONS C1600003^^ C CYBERCREDIT SYSTEM VERSION 3 C1600004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1600005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1600006^^ C C1600007^ ^ C RSWIT PERFORM THE OPERATIONS REQUIRED TO INACTIVATE AN ACCOUNT C1600009^^ C ON THE MASTER FILE. THIS INVOLVES THE FOLLOWING STEPS: C1600010^^ C 1. IF ACCOUNT FOUND ON MASTER FILE, CONTINUE C1600011^^ C ELSE, SET REJETED TRANSACTION FLAG C1600012^^ C FORMAT DETAIL OUTPUT LINE FOR ERROR - NO ACCOUNT FOR C1600013^^ C 30X CODE C1600014^^ C RETURN. C1600015^^ C 2. IF ACCCOUNT ACTIVE, CONTINUE C1600016^^ C ELSE, SET REJECTED TRANSACTION FLAG C1600017^^ C FORMAT DETAIL OUTPUT LINE FOR ERROR - ACCOUNT INACTIVEC1600018^^ C FOR 30X CODE C1600019^^ C RETURN. C1600020^^ C 3. UPDATE STATUS CODE ACCORDING TO TRANSACTION CODE: C1600021^^ C TRAN CODE STATUS CODE C1600022^^ C --------- ----------- C1600023^^ C 301 W (WRITE-OFF) C1600024^^ C 302 R (RELEASE) C1600025^^ C 303 S (SATISFY) C1600026^^ C C1600027^^ C 4. UPDATE DATE LAST UPDATE BY A/R SYSTEM. C1600028^^ C 5. INCREMENT TRANSACTION COUNTER. C1600029^^ C 6. ADD CURRENT PAYOFF/TOTAL DUE TO PREVIOUS CURRENT PAYOFF/ C1600030^^ C TOTAL DUE. C1600031^^ C 7. ADD AMOUNT DELINQUENT TO PREVIOUS AMOUNT DELINQUENT. C1600032^^ C 8. ADD AMOUNT TO INACTIVATE TO PAYOFF. C1600033^^ C 9. UPDATE CURRETN PAYOFF/TOTAL DUE WITH AMOUNT TO INACTIVATE. C1600034^^ C 10. FORMAT DETAIL OUTPUT LINE FOR INACTIVATION. C1600035^^ C 11. FORMAT INACCT FILE RECORD FOR ACCOUNT. C1600036^^ C 12. ADD ACCOUNT TO INACCT FILE. C1600037^^ C 13. RETRIEVE ACCOUNT FROM ACCAGE FILE. C1600038^^ C 14. IF ACCOUNT FOUND, CONTINUE C1600039^^ C ELSE, ADD ERROR NOTE TO DETAIL LINE - ACCOUNT NOT C1600040^^ C FOUND IN ACCAGE FILE C1600041^^ C RETURN. C1600042^^ C 15. DELETE ACCOUNT FROM ACCAGE FILE. C1600043^^ C 16. FORMAT RSWFIL FILE RECORD FOR ACCOUNT. C1600044^^ C 17. ADD ACCOUNT TO RSWFIL FILE. C1600045^^ C 18. RETURN. C1600046^ ^ C**** RETRIEVE COMMON DECALRATION MACRO. C1600048^^ M UPDMAC C1600049^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^t FTN 3.3B (OPT = LPC) RSWIT PAGE 2 DATE: 08/30/84 TIME: 0108 t^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^t FTN 3.3B (OPT = LPC) RSWIT PAGE 3 DATE: 08/30/84 TIME: 0108 t^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^t FTN 3.3B (OPT = LPC) RSWIT PAGE 4 DATE: 08/30/84 TIME: 0108 t^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^t FTN 3.3B (OPT = LPC) RSWIT PAGE 5 DATE: 08/30/84 TIME: 0108 t^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^t FTN 3.3B (OPT = LPC) RSWIT PAGE 6 DATE: 08/30/84 TIME: 0108 t^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) RSWIT PAGE 7 DATE: 08/30/84 TIME: 0108 t^ C**** LOCAL DECLARATIONS. C1600050^ ^ C**** STATUS CODES FOR WRITE-OFF, RELEASE, AND SATISFY. C1600052^^ 133 INTEGER RSWCOD(3) C1600053^^ 134 DATA RSWCOD / $57, $52, $53 / C1600054^^ C** W R S C1600055^ ^ C**** DAYS DELINQUENT CODE IN AGING FILES FOR INACTIVE ACCOUNTS. C1600057^^ 135 INTEGER A99X(2,3), A999(2), A998(2), A997(2) C1600058^^ 136 EQUIVALENCE ( A997(1), A99X(1,1) ), C1600059^^ 136 + ( A998(1), A99X(1,2) ), C1600060^^ 136 + ( A999(1), A99X(1,3) ) C1600061^^ 137 DATA A999 / '999 ' / C1600062^^ 138 DATA A998 / '998 ' / C1600063^^ 139 DATA A997 / '997 ' / C1600064^ ^ C**** START CHARACTER POSITION OF FIELDS IN INACCT FILE. C1600066^^ 140 INTEGER ISTC, IWDTD C1600067^^ 141 DATA ISTC / 17 / C1600068^^ 142 DATA IWDTD / 19 / C1600069^ ^ C**** DETAIL LINE ERROR MESSAGE FOR ACCOUNT NOT FOUND IN ACCAGE C1600071^^ C**** FILE. C1600072^^ 143 INTEGER NOACCG(13) C1600073^^ 144 DATA NOACCG / '- ACCOUNT NOT IN ACCAGE ' / C1600074^   ^ C***********************************************************************C1600076^^ C* BEGIN PROGRAM. *C1600077^^ C***********************************************************************C1600078^  ^ C**** IF ACCOUNT FOUND IN MASTER FILE, CONTINUE C1600080^^ 145 100 IF ( ACCTFD .NE. 0 ) GO TO 150 C1600081^^ C** ELSE, SET REJECTED TRANSACTION FALG C1600082^^ 146 TRNREJ = 1 C1600083^^ C** FORMAT DETAIL OUTPUT LINE FOR ERROR - NO ACCOUNT FOR 30X C1600084^^ C** CODE C1600085^^ 147 CALL FORMLN ( N8 ) C1600086^^ C** RETURN. C1600087^^ 148 GO TO 400 C1600088^ ^ C**** IF ACCOUNT ACTIVE, CONTINUE C1600090^^ 149 150 IF ( ACCTST .EQ. ACTIVE ) GO TO 200 C1600091^^ C** ELSE, SET REJECTED TRANSACTION FLAG C1600092^^ 150 TRNREJ = 1 C1600093^^ C** FORMAT DETAIL OUTPUT LINE FOR ERROR - ACCOUNT INACTIVE FOR C1600094^^ C** 30X CODE C1600095^^ 151 CALL FORMLN ( N7 ) C1600096^^ C** RETURN. C1600097^^ 152 GO TO 400 C1600098^ ^ C**** UPDATE STATUS CODE. VALUE OF I CALCULATED IS POINTER INTO MANY C1600100^t FTN 3.3B (OPT = LPC) RSWIT PAGE 8 DATE: 08/30/84 TIME: 0108 t^ C**** ARRAYS. IT IS THE LAST DIGIT OF THE TRANSACTION CODE. C1600101^^ 153 200 I = AND ( INPBUF(2), $0F00 ) / $100 C1600102^^ 154 ACCTST = RSWCOD(I) C1600103^ ^ C**** UPDATE DATE LAST UPDATE BY A/R SYSTEM. C1600105^^ 155 210 CALL CCSMVA ( INPBUF, TWDTD, N6, RECBDM, MSTDT, N6 ) C1600106^ ^ C**** INCREMENT TRANSACTION COUNTER. C1600108^^ 156 220 CALL CCSADD ( NDAONE, N2, NUMRSW(1,I), N1, NUMRSW(1,I), N1 ) C1600109^ ^ C**** ADD CURRENT PAYOFF/TOTAL DUE TO R, S, OR W PREVIOUS CURRENT C1600111^^ C**** PAYOFF/TOTAL DUE BUCKET. C1600112^^ 157 230 CALL CCSADD ( RECBDM, MPYOF, RSWPPY(1,I), N1, RSWPPY(1,I), N1 ) C1600113^ ^ C**** ADD AMOUNT DELINQUENT TO R, S, OR W PREVIOUS AMOUNT DELINQUENT C1600115^^ C**** BUCKET. C1600116^^ 158 240 CALL CCSADD ( RECBDM, MADLQ, RSWPAD(1,I), N1, RSWPAD(1,I), N1 ) C1600117^ ^ C**** ADD AMOUNT TO INACTIVATE TO R, S, OR W PAYOFF BUCKET. C1600119^^ 159 250 CALL CCSADD ( INPBUF, TWAMT, RSWPAY(1,I), N1, RSWPAY(1,I), N1 ) C1600120^ ^ C**** UPDATE CURRENT PAYOFF/TOTAL DUE WITH AMOUNT TO INACTIVATE. C1600122^^ 160 260 CALL CCSMVA ( INPBUF, TWAMT, N9, RECBDM, MPYOF, N9 ) C1600123^ ^ C**** FORMAT DETAIL OUTPUT LINE. C1600125^^ 161 270 CALL FORMLN ( I ) C1600126^ ^ C**** FORMAT INACCT FILE FILE RECORD FOR ACCOUNT. C1600128^^ C** ACCOUNT NUMBER. C1600129^^ 162 280 CALL CCSMVA ( INPBUF, TACCTP, N16, RECBIA, N1, N16 ) C1600130^^ C** STATUS CODE. C1600131^^ 163 CALL CCSMVA ( RECBDM, MSTC, N1, RECBIA, ISTC, N2 ) C1600132^^ C** INACTIVE DATE. C1600133^^ 164 CALL CCSMVA ( INPBUF, TWDTD, N6, RECBIA, IWDTD, N6 ) C1600134^ ^ C**** ADD ACCOUNT TO INACCT FILE. C1600136^^ 165 290 CALL PUTS ( REQBIA, RECBIA, N1, ISTAT ) C1600137^^ C** IF NO FILE ERROR, CONTINUE C1600138^^ 166 IF ( ISTAT .GE. 0 ) GO TO 300 C1600139^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C1600140^^ 167 CALL FILERR ( IDATIA, N11, ISTAT, TLU ) C1600141^^ 168 CALL UPDEND C1600142^ ^ C**** UPDATE AGE INFORMATION FOR TREND ANALYSIS. C1600144^^ C** RETRIEVE ACCOUNT FROM ACCAGE FILE. C1600145^^ 169 300 CALL CCSMVA ( INPBUF, TACCTP, N16, TKEY, N1, N16 ) C1600146^^ 170 CALL READR ( REQBAG, RECBAG, TKEY, ISTAT ) C1600147^^ C** IF ACCOUNT FOUND, CONTINUE C1600148^^ 171 IF ( ISTAT .GE. 0 .AND. AND( ISTAT, WRONKY ) .EQ. 0 ) GO TO 320 C1600149^^ C** ELSE, IF ACCOUNT NOT FOUND, ADD ERROR NOTE TO DETAIL LINE C1600150^^ 172 IF ( AND( ISTAT, WRONKY ) .NE. 0 .OR. C1600151^^ 172 + AND( ISTAT, EOF ) .NE. 0 ) GO TO 310 C1600152^^ C** ELSE, REPORT FATAL FILE ERROR AND EXIT (NO RETURN FROM C1600153^^ C** UPDEND). C1600154^t FTN 3.3B (OPT = LPC) RSWIT PAGE 9 DATE: 08/30/84 TIME: 0108 t^ 173 CALL FILERR ( IDATAG, N13, ISTAT, TLU ) C1600155^^ 174 CALL UPDEND C1600156^ ^ C** ADD ERROR "ACCOUNT NOT IN ACCAGE" TO DETAIL LINE. C1600158^^ 175 310 CALL CCSMVA ( NOACCG, N1, N26, DETLIN(54), N1, N26 ) C1600159^^ C* RETURN. C1600160^^ 176 GO TO 400 C1600161^ ^ C**** DELETE ACCOUNT FROM ACCAGE FILE. C1600163^^ 177 320 CALL DELREC ( REQBAG, RECBAG, ISTAT ) C1600164^^ C** IF NO FILE ERROR, CONTINUE C1600165^^ 178 IF ( ISTAT .GE. 0 ) GO TO 330 C1600166^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C1600167^^ 179 CALL FILERR ( IDATAG, N16, ISTAT, TLU ) C1600168^^ 180 CALL UPDEND C1600169^ ^ C**** RESTORE FIRST WORD OF ACCAGE RECORD DESTROYED BY DELETE REQUEST. C1600171^^ 181 330 RECBAG(1) = RECBDM(1) C1600172^ ^ C**** CHANGE ACCAGE RECORD TO CREATE RSWFIL FILE RECORD FOR ACCOUNT. C1600174^^ C** IF ACCAGE FILE UPDATE FLAG NOT SET, CONTINUE C1600175^^ 182 340 IF ( UPDAGE .EQ. 0 ) GO TO 350 C1600176^^ C** ELSE, UPDATE PREVIOUS FIELDS WITH CONTENTS OF CURRENT FIELDS.C1600177^^ 183 CALL CCSMVA ( RECBRF, RQUE , N4, RECBRF, RPQUE , N4 ) C1600178^^ 184 CALL CCSMVA ( RECBRF, RDYDL, N3, RECBRF, RPDYDL, N3 ) C1600179^^ 185 CALL CCSMVA ( RECBRF, RPYOF, N9, RECBRF, RPPYOF, N9 ) C1600180^^ 186 CALL CCSMVA ( RECBRF, RADLQ, N9, RECBRF, RPADLQ, N9 ) C1600181^ ^ C** UPDATE CURRENT FIELDS WITH NEW VALUES. C1600183^^ 187 350 CALL CCSMVA ( RECBDM, MQUE , N4, RECBRF, RQUE , N4 ) C1600184^^ 188 CALL CCSMVA ( A99X(1,I), N1, N3, RECBRF, RDYDL, N3 ) C1600185^^ 189 CALL CCSMVA ( RECBDM, MPYOF, N9, RECBRF, RPYOF, N9 ) C1600186^^ 190 CALL CCSMVA ( RECBDM, MADLQ, N9, RECBRF, RADLQ, N9 ) C1600187^^ 191 CALL CCSMVA ( RECBDM, MTCD , N4, RECBRF, RTCD , N4 ) C1600188^^ 192 CALL CCSPUT ( RSWCOD(I), RSTC, RECBRF ) C1600189^ ^ C** ADD ACCOUNT TO RSWFIL FILE. C1600191^^ 193 360 CALL PUTS ( REQBRF, RECBRF, N1, ISTAT ) C1600192^^ C** IF NO FILE ERROR, CONTINUE C1600193^^ 194 IF ( ISTAT .GE. 0 ) GO TO 400 C1600194^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C1600195^^ 195 CALL FILERR ( IDATRF, N11, ISTAT, TLU ) C1600196^^ 196 CALL UPDEND C1600197^   ^ C**** INACTIVATION SPECIFIC OPERATIONS COMPLETE, RETURN. C1600199^^ 197 400 RETURN C1600200^^ 198 END C1600201^t FTN 3.3B (OPT = LPC) RSWIT PAGE 10 DATE: 08/30/84 TIME: 0108 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $016B ( 363)   EXTERNALS 2 FORMLN CCSMVA CCSADD PUTS FILERR UPDEND READR 2 DELREC CCSPUT  t FTN 3.3B (OPT = LPC) RSWIT PAGE 11 DATE: 08/30/84 TIME: 0108 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : <  00FF (255) 0033 " 0F00 (3840) 0019 153"   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&* A997 INTEGER 0003 134,136,139** A998 INTEGER 0005 134,136,138** A999 INTEGER 0007 134,136,137** A99X INTEGER 0003 134,136,188*( ACCTFD INTEGER 0001 D 3,10,145 (, ACCTST INTEGER 00B7 D 10,12,149,154,* ACTIVE INTEGER 0D2F D 106,108,149*$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$* AND INTR.FN. 7FFF 153,171,172*( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$( DETLIN INTEGER 0A8B D 39,41,175(" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$( EOF INTEGER 070B D 34,37,172($ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$F I INTEGER 0018 153,153,154,156,157,158,159,161,188,192F$ IDATAD INTEGER 0568 D 17,19$, IDATAG INTEGER 05EF D 21,23,173,179,$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$( IDATIA INTEGER 059D D 19,21,167(t FTN 3.3B (OPT = LPC) RSWIT PAGE 12 DATE: 08/30/84 TIME: 0108 t$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$( IDATRF INTEGER 0616 D 23,26,195($ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$@ INPBUF INTEGER 070E D 37,39,153,155,159,160,162,164,169@X ISTAT INTEGER 0708 D 34,37,165,166,167,170,171,172,173,177,178,179,193,194,195X* ISTC INTEGER 0009 139,141,163** IWDTD INTEGER 000A 139,142,164*$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$, MADLQ INTEGER 0B06 D 57,60,158,190,$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$0 MPYOF INTEGER 0B04 D 57,60,157,160,1890( MQUE INTEGER 0B08 D 57,60,187(( MSTC INTEGER 0B07 D 57,60,163(( MSTDT INTEGER 0B05 D 57,60,155($ MT1 INTEGER 0AFB D 52,54$( MTCD INTEGER 0B09 D 57,60,191($ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&R N1 INTEGER 0D3A D 112,123,156,157,158,159,162,163,165,169,175,188,193R& N10 INTEGER 0D43 D 112,124&. N11 INTEGER 0D44 D 112,124,167,195.& N12 INTEGER 0D45 D 112,124&* N13 INTEGER 0D46 D 112,124,173*& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&2 N16 INTEGER 0D49 D 112,124,162,169,1792& N17 INTEGER 0D4A D 112,124&. N2 INTEGER 0D3B D 112,123,156,163.* N26 INTEGER 0D4B D 112,125,175*& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&. N3 INTEGER 0D3C D 112,123,184,188.& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&2 N4 INTEGER 0D3D D 112,123,183,187,1912& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&. N6 INTEGER 0D3F D 112,123,155,164.& N66 INTEGER 0D52 D 112,129&* N7 INTEGER 0D40 D 112,123,151** N8 INTEGER 0D41 D 112,123,147*& N80 INTEGER 0D53 D 112,130&t FTN 3.3B (OPT = LPC) RSWIT PAGE 13 DATE: 08/30/84 TIME: 0108 t& N82 INTEGER 0D54 D 112,130&: N9 INTEGER 0D42 D 112,123,160,185,186,189,190:& N96 INTEGER 0D55 D 112,131&* NDAONE INTEGER 0D30 D 108,110,156** NOACCG INTEGER 000B 142,144,175*$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$, NUMRSW INTEGER 0BC2 D 89,92,94,156 ,$ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$, RADLQ INTEGER 0B17 D 61,68,186,190,, RDYDL INTEGER 0B13 D 61,68,184,188,$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$4 RECBAG INTEGER 05C4 D 21,23,25,170,177,181 4$ RECBCS INTEGER 047F D 15,17$P RECBDM INTEGER 001F D 10,12,13,155,157,158,160,163,181,187,189,190,191 P4 RECBIA INTEGER 058F D 19,21,162,163,164,1654P RECBRF INTEGER 05C4 D 23,25,183,184,185,186,187,188,189,190,191,192,193P$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$, REQBAG INTEGER 05AC D 21,23,170,177,$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$( REQBIA INTEGER 0577 D 19,21,165($ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$( REQBRF INTEGER 05FE D 23,26,193($ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$( RPADLQ INTEGER 0B18 D 61,68,186($ RPAY INTEGER 0B50 D 77,79$( RPDYDL INTEGER 0B14 D 61,68,184($ RPPY INTEGER 0B62 D 79,81$( RPPYOF INTEGER 0B16 D 61,68,185(( RPQUE INTEGER 0B10 D 61,67,183(, RPYOF INTEGER 0B15 D 61,68,185,189,, RQUE INTEGER 0B0F D 61,67,183,187,( RSTC INTEGER 0B12 D 61,67,192(. RSWCOD INTEGER 0000 132,134,154,192., RSWPAD INTEGER 0B6E D 81,83,88,158 ,, RSWPAY INTEGER 0B4A D 77,79,88,159 ,, RSWPPY INTEGER 0B5C D 79,81,88,157 ,( RTCD INTEGER 0B11 D 61,67,191($ SECTRF INTEGER 0004 D 3,10 $t FTN 3.3B (OPT = LPC) RSWIT PAGE 14 DATE: 08/30/84 TIME: 0108 t$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$, TACCTP INTEGER 0AFC D 54,56,162,169,$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$, TKEY INTEGER 0B3E D 73,75,169,170,6 TLU INTEGER 0D2D D 102,104,167,173,179,1956$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&, TRNREJ INTEGER 0003 D 3,10,146,150 ,, TWAMT INTEGER 0AFF D 54,56,159,160,, TWDTD INTEGER 0AFE D 54,56,155,164,$ U INTEGER 0AF2 D 50,52$$ UPDAD INTEGER 0B86 D 83,88$( UPDAGE INTEGER 0005 D 3,10,182 ($ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$, WRONKY INTEGER 0709 D 34,37,171,172,$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < . CCSADD SUBROUTINE 0052 155,157,158,159.^ CCSMVA SUBROUTINE 0133 154,160,162,163,164,169,175,183,184,185,186,187,188,189,190,191^" CCSPUT SUBROUTINE 014D 191"" DELREC SUBROUTINE 00EC 177". FILERR SUBROUTINE 015C 166,173,179,195.* FORMLN SUBROUTINE 0022 146,151,161*& PUTS SUBROUTINE 0152 164,193&" READR SUBROUTINE 00C5 169". UPDEND SUBROUTINE 0162 167,174,180,196.t FTN 3.3B (OPT = LPC) RSWIT PAGE 15 DATE: 08/30/84 TIME: 0108 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 001A 144"& 150 0026 145,149&& 200 0034 149,153&" 210 003F 154"" 220 0047 155"" 230 0059 156"" 240 006A 157"" 250 007B 158"" 260 008C 159"" 270 0093 160"" 280 0095 161"" 290 00AA 164"& 300 00BC 166,169&& 310 00E2 172,175&& 320 00EB 171,177&& 330 00F9 178,181&" 340 00FD 181"& 350 011E 182,187&" 360 0151 192"2 400 0163 147,152,176,194,1972 RSWIT 0166 1  t FTN 3.3B (OPT = LPC) TOTALP PAGE 1 DATE: 08/30/84 TIME: 0109 t^ 1 SUBROUTINE TOTALP C2300001^^ 1 1 /C23 F CCS CCS 3.0 SL-149C2300002^^ C PRINT UPDATE RUN TOTALS C2300003^^ C CYBERCREDIT SYSTEM VERSION 3 C2300004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C2300005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C2300006^^ C C2300007^ ^ C TOTALP IS RESPONSIBLE FOR PRINTING THE FINAL TOTALS OF THE UPDATE C2300009^^ C RUN. THE TOTALS BLOCK CONSISTS OF TOTALS OF EACH TRANSACTION, C2300010^^ C BOTH NUMBER AND APPROPRIATE AMOUNT FIELDS. THE GENERALIZED C2300011^^ C PROGRAM FLOW IS AS FOLLOWS: C2300012^^ C 1. IF ENOUGH ROOM EXISTS ON BOTTOM OF CURRENT PAGE FOR TOTALS,C2300013^^ C CONTINUE C2300014^^ C ELSE, SET LINE COUNT TO FORCE NEW PAGE C2300015^^ C SET TOTALS PRINT FLAG C2300016^^ C 2. MOVE IN TRANSACTION COUNT TOTALS AND ZERO SUPPRESS. C2300017^^ C 3. EDIT IN AMOUNT DELINQUENT TOTALS. C2300018^^ C 4. EDIT IN PAYOFF TOTALS. C2300019^^ C 5. EDIT IN PREVIOUS AMOUNT DELINQUENT TOTALS. C2300020^^ C 6. EDIT IN PREVIOUS PAYOFF TOTALS. C2300021^^ C 8. PRINT TOTALS BLOCK. C2300022^^ C 9. RETURN. C2300023^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. C2300025^^ M UPDMAC C2300026^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^t FTN 3.3B (OPT = LPC) TOTALP PAGE 2 DATE: 08/30/84 TIME: 0109 t^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^t FTN 3.3B (OPT = LPC) TOTALP PAGE 3 DATE: 08/30/84 TIME: 0109 t^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^t FTN 3.3B (OPT = LPC) TOTALP PAGE 4 DATE: 08/30/84 TIME: 0109 t^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^t FTN 3.3B (OPT = LPC) TOTALP PAGE 5 DATE: 08/30/84 TIME: 0109 t^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) TOTALP PAGE 6 DATE: 08/30/84 TIME: 0109 t^ C**** LOCAL DECLARATIONS. C2300027^ ^ C**** TOTALS BLOCK TO PRINT. C2300029^^ 133 INTEGER TOTBL(68,10) C2300030^^ 134 INTEGER TOTL1(68), TOTL2(68), TOTL3(68), ADDTL(68), REATL(68) C2300031^^ 135 INTEGER UPDTL(68), RELTL(68), SATTL(68), WOFTL(68), REJTL(68) C2300032^^ 136 EQUIVALENCE ( TOTBL(1, 1), TOTL1(1) ) , ( TOTBL(1, 2), TOTL2(1) ),C2300033^^ 136 + ( TOTBL(1, 3), TOTL3(1) ) , ( TOTBL(1, 4), ADDTL(1) ),C2300034^^ 136 + ( TOTBL(1, 5), REATL(1) ) , ( TOTBL(1, 6), UPDTL(1) ),C2300035^^ 136 + ( TOTBL(1, 7), RELTL(1) ) , ( TOTBL(1, 8), SATTL(1) ),C2300036^^ 136 + ( TOTBL(1, 9), WOFTL(1) ) , ( TOTBL(1,10), REJTL(1) ) C2300037^^ 137 DATA TOTL1 / C2300038^^ 137 1 $D, $D, $D, ' ', C2300039^^ 137 2 '* TOTALS * ', C2300040^^ 137 3 ' ' ,0,0 /C2300041^^ 138 DATA TOTL2 / C2300042^^ 138 1 ' ', C2300043^^ 138 2 ' * P R E V I O U S ', C2300044^^ 138 3 ' * ',0,0 /C2300045^^ 139 DATA TOTL3 / ' ACCOUNTS NUMBER AMT D', C2300046^^ 139 1 'ELQ PAYOFF AMT DELQ PAYO', C2300047^^ 139 2 'FF ',$D,0,0 /C2300048^^ 140 DATA ADDTL / ' ADDED ', C2300049^^ 140 1 ' ', C2300050^^ 140 2 ' ',0,0 /C2300051^^ 141 DATA REATL / ' REACTIVATED ', C2300052^^ 141 1 ' ', C2300053^^ 141 2 ' ',0,0 /C2300054^^ 142 DATA UPDTL / ' UPDATED ', C2300055^^ 142 1 ' ', C2300056^^ 142 2 ' ',$D,0,0 /C2300057^^ 143 DATA RELTL / ' RELEASED ', C2300058^^ 143 1 ' ', C2300059^^ 143 2 ' ',0,0 /C2300060^^ 144 DATA SATTL / ' SATISFIED ', C2300061^^ 144 1 ' ', C2300062^^ 144 2 ' ',0,0 /C2300063^^ 145 DATA WOFTL / ' WRITTENOFF ', C2300064^^ 145 1 ' ', C2300065^^ 145 2 ' ',$D,0,0 /C2300066^^ 146 DATA REJTL / ' REJECTED ', C2300067^^ 146 1 ' ', C2300068^^ 146 2 ' ',$C,0,0 /C2300069^  ^ C***********************************************************************C2300071^^ C* BEGIN PROGRAM *C2300072^^ C***********************************************************************C2300073^ ^ C**** IF ENOUGH ROOM EXISTS ON BOTTOM OF CURRENT PAGE FOR TOTALS, C2300075^^ C**** CONTINUE C2300076^^ 147 100 IF ( LINCNT .LT. 43 ) GO TO 110 C2300077^^ C** ELSE, SET LINE-COUNT TO FORCE NEW PAGE C2300078^^ 148 LINCNT = 66 C2300079^t FTN 3.3B (OPT = LPC) TOTALP PAGE 7 DATE: 08/30/84 TIME: 0109 t^ C** SET FLAG TO INDICATE IN TOTALS PRINTING AND SUPRESS COLUMN C2300080^^ C** HEADINGS C2300081^^ 149 TOTPRT = 1 C2300082^ ^ C**** MOVE IN TRANSACTION COUNT TOTALS. C2300084^^ 150 110 CALL CCSMVA ( NUMADD, N7, N6, ADDTL(15), N1, N6 ) C2300085^^ 151 CALL CCSMVA ( NUMREA, N7, N6, REATL(15), N1, N6 ) C2300086^^ 152 CALL CCSMVA ( NUMUPD, N7, N6, UPDTL(15), N1, N6 ) C2300087^^ 153 CALL CCSMVA ( NUMR , N7, N6, RELTL(15), N1, N6 ) C2300088^^ 154 CALL CCSMVA ( NUMS , N7, N6, SATTL(15), N1, N6 ) C2300089^^ 155 CALL CCSMVA ( NUMW , N7, N6, WOFTL(15), N1, N6 ) C2300090^^ 156 CALL CCSMVA ( NUMREJ, N7, N6, REJTL(15), N1, N6 ) C2300091^^ C** ZERO SUPRESS ALL TRANSACTION COUNTS. C2300092^^ 157 DO 130 I=4,10 C2300093^^ 158 DO 120 J=1,5 C2300094^^ 159 CALL CCSGET ( TOTBL(15,I), J, K ) C2300095^^ 160 IF ( K .NE. $30 ) GO TO 130 C2300096^^ 161 CALL CCSPUT ( BLANKS, J, TOTBL(15,I) ) C2300097^^ 162 120 CONTINUE C2300098^^ 163 130 CONTINUE C2300099^ ^ C**** EDIT IN AMOUNT DELINQUENT TOTALS. C2300101^^ 164 140 CALL EDIT ( ADDAD, N4, ADDTL(19), N2, N3 ) C2300102^^ 165 CALL EDIT ( REAAD, N4, REATL(19), N2, N3 ) C2300103^^ 166 CALL EDIT ( UPDAD, N4, UPDTL(19), N2, N3 ) C2300104^ ^ C**** EDIT IN PAYOFF TOTALS. C2300106^^ 167 150 CALL EDIT ( ADDPAY, N4, ADDTL(26), N2, N3 ) C2300107^^ 168 CALL EDIT ( REAPAY, N4, REATL(26), N2, N3 ) C2300108^^ 169 CALL EDIT ( UPDPAY, N4, UPDTL(26), N2, N3 ) C2300109^^ 170 CALL EDIT ( RPAY , N4, RELTL(26), N2, N3 ) C2300110^^ 171 CALL EDIT ( SPAY , N4, SATTL(26), N2, N3 ) C2300111^^ 172 CALL EDIT ( WPAY , N4, WOFTL(26), N2, N3 ) C2300112^ ^ C**** EDIT IN PREVIOUS AMOUNT DELINQUENT TOTALS. C2300114^^ 173 160 CALL EDIT ( UPDPAD, N4, UPDTL(34), N1, N3 ) C2300115^^ 174 CALL EDIT ( RPAD , N4, RELTL(34), N1, N3 ) C2300116^^ 175 CALL EDIT ( SPAD , N4, SATTL(34), N1, N3 ) C2300117^^ 176 CALL EDIT ( WPAD , N4, WOFTL(34), N1, N3 ) C2300118^ ^ C**** EDIT IN PREVIOUS PAYOFF TOTALS. C2300120^^ 177 170 CALL EDIT ( UPDPPY, N4, UPDTL(41), N1, N3 ) C2300121^^ 178 CALL EDIT ( RPPY , N4, RELTL(41), N1, N3 ) C2300122^^ 179 CALL EDIT ( SPPY , N4, SATTL(41), N1, N3 ) C2300123^^ 180 CALL EDIT ( WPPY , N4, WOFTL(41), N1, N3 ) C2300124^ ^ C**** PRINT TOTALS BLOCK. C2300126^^ 181 180 DO 190 I=1,10 C2300127^^ 182 CALL PRTLIN ( TOTBL(1,I) ) C2300128^^ 183 190 CONTINUE C2300129^  ^ C**** TOTALS PRINTING COMPLETE, RETURN. C2300131^^ 184 200 RETURN C2300132^t FTN 3.3B (OPT = LPC) TOTALP PAGE 8 DATE: 08/30/84 TIME: 0109 t^ 185 END C2300133^t FTN 3.3B (OPT = LPC) TOTALP PAGE 9 DATE: 08/30/84 TIME: 0109 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $038A ( 906)   EXTERNALS & CCSMVA CCSGET CCSPUT EDIT PRTLIN & t FTN 3.3B (OPT = LPC) TOTALP PAGE 10 DATE: 08/30/84 TIME: 0109 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&( ADDAD INTEGER 0B80 D 83,88,164(( ADDPAY INTEGER 0B92 D 83,89,167(6 ADDTL INTEGER 00CC 132,136,140,150,164,1676$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$( ASREAC INTEGER 0B1A D 70,72,73 (* BLANKS INTEGER 0D35 D 110,112,161*$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$2 I INTEGER 02A8 156,159,161,181,1822$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$$ INPBUF INTEGER 070E D 37,39$$ ISTAT INTEGER 0708 D 34,37$* J INTEGER 02A9 156,159,161*& K INTEGER 02AA 159,160&$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$t FTN 3.3B (OPT = LPC) TOTALP PAGE 11 DATE: 08/30/84 TIME: 0109 t, LINCNT INTEGER 0ACF D 41,43,147,148,$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&b N1 INTEGER 0D3A D 112,123,150,151,152,153,154,155,156,173,174,175,176,177,178,179,180b& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&& N16 INTEGER 0D49 D 112,124&& N17 INTEGER 0D4A D 112,124&J N2 INTEGER 0D3B D 112,123,164,165,166,167,168,169,170,171,172J& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&j N3 INTEGER 0D3C D 112,123,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180j& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&j N4 INTEGER 0D3D D 112,123,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180j& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&B N6 INTEGER 0D3F D 112,123,150,151,152,153,154,155,156B& N66 INTEGER 0D52 D 112,129&B N7 INTEGER 0D40 D 112,123,150,151,152,153,154,155,156B& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&( NUMADD INTEGER 0BB0 D 89,94,150(( NUMR INTEGER 0BC8 D 89,92,153(( NUMREA INTEGER 0BBC D 89,94,151(( NUMREJ INTEGER 0BD4 D 92,94,156(( NUMRSW INTEGER 0BC2 D 89,92,94 (( NUMS INTEGER 0BCE D 89,92,154(( NUMUPD INTEGER 0BB6 D 89,94,152(( NUMW INTEGER 0BC2 D 89,92,155($ PAGCNT INTEGER 0AD0 D 41,43$t FTN 3.3B (OPT = LPC) TOTALP PAGE 12 DATE: 08/30/84 TIME: 0109 t$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$( REAAD INTEGER 0B8C D 83,88,165(( REAPAY INTEGER 0B9E D 83,89,168(6 REATL INTEGER 0110 132,136,141,151,165,1686$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$( RECBDM INTEGER 001F D 10,12,13 ($ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$. REJTL INTEGER 0264 132,136,146,156.: RELTL INTEGER 0198 132,136,143,153,170,174,178:$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$( RPAD INTEGER 0B74 D 81,83,174($ RPADLQ INTEGER 0B18 D 61,68$( RPAY INTEGER 0B50 D 77,79,170($ RPDYDL INTEGER 0B14 D 61,68$( RPPY INTEGER 0B62 D 79,81,178($ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$: SATTL INTEGER 01DC 132,136,144,154,171,175,179:$ SECTRF INTEGER 0004 D 3,10 $( SPAD INTEGER 0B7A D 81,83,175(( SPAY INTEGER 0B56 D 77,79,171(( SPPY INTEGER 0B68 D 79,81,179($ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$& TLU INTEGER 0D2D D 102,104&t FTN 3.3B (OPT = LPC) TOTALP PAGE 13 DATE: 08/30/84 TIME: 0109 t$ TNAM INTEGER 0AFD D 54,56$2 TOTBL INTEGER 0000 132,136,159,161,1822* TOTL1 INTEGER 0000 132,136,137** TOTL2 INTEGER 0044 132,136,138** TOTL3 INTEGER 0088 132,136,139*( TOTPRT INTEGER 0006 D 3,10,149 ($ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$( UPDAD INTEGER 0B86 D 83,88,166($ UPDAGE INTEGER 0005 D 3,10 $( UPDPAD INTEGER 0BA4 D 83,89,173(( UPDPAY INTEGER 0B98 D 83,89,169(( UPDPPY INTEGER 0BAA D 83,89,177(> UPDTL INTEGER 0154 132,136,142,152,166,169,173,177>$ UPDY INTEGER 0BDA D 94,96$: WOFTL INTEGER 0220 132,136,145,155,172,176,180:( WPAD INTEGER 0B6E D 81,83,176(( WPAY INTEGER 0B4A D 77,79,172(( WPPY INTEGER 0B5C D 79,81,180($ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSGET SUBROUTINE 02F0 158": CCSMVA SUBROUTINE 02B5 150,151,152,153,154,155,156:" CCSPUT SUBROUTINE 02FD 160"b EDIT SUBROUTINE 030C 163,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180b" PRTLIN SUBROUTINE 037B 181"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 02AB 146"& 110 02B4 147,150&& 120 0301 156,162&* 130 0306 156,160,163*" 140 030B 163"" 150 031E 166"t FTN 3.3B (OPT = LPC) TOTALP PAGE 14 DATE: 08/30/84 TIME: 0109 t" 160 0342 172"" 170 035A 176"" 180 0372 180"& 190 037D 180,183&" 200 0382 183" TOTALP 0385 1 t FTN 3.3B (OPT = LPC) UNCUPD PAGE 1 DATE: 08/30/84 TIME: 0110 t^ 1 SUBROUTINE UNCUPD C3100001^^ 1 1 /C31 F CCS CCS 3.0 SL-149C3100002^^ C UNCONDITIONAL UPDATE OF FINANCIAL FIELDS C3100003^^ C CYBERCREDIT SYSTEM VERSION 3 C3100004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3100005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3100006^^ C C3100007^ ^ C UNCUPD WILL UPDATE ALL "FINANCIAL" FIELDS IN THE ROOT PORTION OF C3100009^^ C THE MASTER RECORD WITH THE NEW FIELD CONTENTS CONTAINED IN THE C3100010^^ C TRANSACTION INPUT RECORD. THE FOLLOWING TABLE DETAILS THE FIELDS C3100011^^ C BEING UPDATED: C3100012^^ C START STARTC3100013^^ C FIELD LENGTH POS POS C3100014^^ C NAME DESCRIPTION (CHAR) INPUT FILE C3100015^^ C ------------------------------------------------------------------C3100016^^ C MSTDT DATE ACCOUNT LAST UPDATED BY A/R SYSTEM 6 -- 857C3100017^^ C MDLDT DELINQUENT DATE 6 363 875C3100018^^ C MOPDT ACCOUNT OPEN DATE 6 369 881C3100019^^ C MADLQ AMOUNT DELINQUENT (PAST DUE) 9 375 887C3100020^^ C MCBAL CURRENT BALANCE 9 384 896C3100021^^ C MPYOF CURRENT PAYOFF/TOTAL DUE 9 393 905C3100022^^ C MCPGD CURRENT PAYOFF GOOD UNTIL DATE 6 402 914C3100023^^ C MNPA NEXT PAYOFF AMOUNT 9 408 920C3100024^^ C MOAMT OPEN AMOUNT/CREDIT LIMIT 9 417 929C3100025^^ C MCMN NUMBER OF COSIGNERS 1 426 938C3100026^^ C MPTS CREDIT/POINT SCORE 3 427 947C3100027^^ C MBBR BANK BRANCH 5 430 950C3100028^^ C MLON LOAN OFFICER 8 435 955C3100029^^ C MTCD ACCOUNT TYPE CODE/PRODUCT TYPE 4 443 963C3100030^^ C MTD3 NUMBER OF TIMES 30 DAYS DELINQUENT 2 447 967C3100031^^ C MTD6 NUMBER OF TIMES 60 DAYS DELINQUENT 2 449 969C3100032^^ C MTD9 NUMBER OF TIMES 90 DAYS DELINQUENT 2 451 971C3100033^^ C MSDF SPECIAL DECRIPTION FIELD 40 453 973C3100034^^ C MDYDL NUMBER OF DAYS ACCOUNT DELINQUENT 3 493 1013C3100035^ ^ C THE FIRST FIELD, MSTDT, IS NOT UPDATED WITH INPUT RECORD CONTENTS,C3100037^^ C BUT WITH THE SYSTEM DATE. ALL REMAINING FIELDS ARE CONTAINED IN C3100038^^ C THE TRANSACTION INPUT RECORD. THE INTERNAL TABLE "FINCTB" CON- C3100039^^ C TAINS THE FIELD DECRIPTIONS NECESSARY TO PERFORM THE UPDATING. C3100040^^ C THE TABLE CONSISTS OF THE FOLLOWING THREE WORD ENTRIES FOR EACH C3100041^^ C FIELD: C3100042^^ C 1ST WORD = START CHARACTER POSITION IN INPUT RECORD . IF C3100043^^ C THIS FIELD IS ZERO, THIS ENTRY IS A NULL ENTRY. C3100044^^ C IF THIS FIELD IS LESS THAN ZERO, THIS SIGNALS C3100045^^ C THE LAST ENTRY IN THE TABLE (END-OF-TABLE). C3100046^^ C 2ND WORD = START CHARACTER POSTION IN FILE. C3100047^^ C 3RD WORD = LENGTH OF FIELD IN CHARACTERS (BYTES). C3100048^^ C THE CURRENT TABLE WILL PROCESS THE FIRST TWO ENTRIES. THESE C3100049^^ C ENTRIES COVER ALL FIELDS SINCE THE FIELDS FORM TWO CONTIGUOUS C3100050^^ C BLOCKS IN THE INPUT RECORD AND MASTER FILE RECORD. THE UPDATE C3100051^^ C OF ALL FIELDS IN "FINCTB" IS ACCOMPLISHED THRU TWO MOVES. A FINALC3100052^^ C FUNCTION OF UNCUPD IS TO EXIT ON UPDATE OR REACTIVATION TRANSAC- C3100053^^ C TIONS TO THE USER ARE MANAGEMENT ROUTINE (CCSPYT). THIS ROUTINE C3100054^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 2 DATE: 08/30/84 TIME: 0110 t^ C IS WRITTEN BY THE LOCAL ANALYST TO PERFORM CUSTOMER SPECIFIC C3100055^^ C OPERATIONS. TWO FIELDS ARE PASSED TO THIS ROUTINE: C3100056^^ C 1) THE MASTER FILE RECORD - IN ITS ENTIRETY C3100057^^ C AND 2) THE INPUT TRANSACTION RECORD - IN ITS ENTIRETY. C3100058^^ C AFTER RETURN FROM CCSPYT, THE ROOT PORTION OF THE MASTER FILE IS C3100059^^ C RESTORED WITH CONTENTS OF AN INTERNAL SAVE PRIOR TO THE EXIT TO C3100060^^ C CCSPYT. THIS ELIMINATES THE POSSIBILITY OF MODIFICATION OF THE C3100061^^ C ROOT AREA BY CCSPYT. THE USER (CUSTOMER DEFINED) ARE OF THE C3100062^^ C MASTER FILE RECORD IS THEN UPDATED WITH THE USER (CUTOMER DEFINED)C3100063^^ C ARE ON THE INPUT RECORD. THE GENERALIZED PROGRAM FLOW IS AS C3100064^^ C FOLLOWS: C3100065^^ C 1. UPDATE MSTDT FIELD WITH TODAY'S DATE. C3100066^^ C 2. STARTING WITH THE FIRST FIELD DESCRIPTION THRU THE LAST C3100067^^ C FIELD DECRIPTION, DO C3100068^^ C IF START POSITION IN INPUT RECORD IS ZERO, CONTINUE C3100069^^ C ELSE, IF START POSITION IN INPUT RECORD IS C3100070^^ C < 0, CONTINUE C3100071^^ C ELSE, END-OF-TABLE ENCOUNTERED, TERMINATE C3100072^^ C LOOP C3100073^^ C MOVE FIELDS FROM INPUT RECORD TO MASTER FILE C3100074^^ C RECORD C3100075^^ C CONTINUE LOOP. C3100076^^ C 3. IF THIS AN ADD TRANSACTION, CONTINUE C3100077^^ C ELSE, SAVE ROOT PORTION OF MASTER FILE C3100078^^ C EXIT TO CCSPYT C3100079^^ C RESTORE ROOT AREA OF MASTER FILE. C3100080^^ C 4. UPDATE USER ARE WITH INPUT RECORD CONTENTS OF USER AREA. C3100081^^ C 5. RETURN. C3100082^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. C3100084^^ M UPDMAC C3100085^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 3 DATE: 08/30/84 TIME: 0110 t^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 4 DATE: 08/30/84 TIME: 0110 t^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 5 DATE: 08/30/84 TIME: 0110 t^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 6 DATE: 08/30/84 TIME: 0110 t^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 7 DATE: 08/30/84 TIME: 0110 t^ C**** LOCAL DECLARATIONS. C3100086^ ^ C**** ROOT AREA OF MASTER FILE SAVE AREA AND LENGTH. C3100088^^ 133 INTEGER ROOTSV(528), LROOT C3100089^^ 134 DATA LROOT / 1056 / C3100090^ ^ C**** START CHARACTER AND LENGTH OF USER (CUSTOMER DEFINED) AREA C3100092^^ C**** IN INPUT RECORD. C3100093^^ 135 INTEGER TCUS, LCUS C3100094^^ 136 DATA TCUS / 496 / C3100095^^ 137 DATA LCUS / 944 / C3100096^ ^ C**** START CHARACTER OF USER (CUSTOMER DEFINED) AREA IN MASTER C3100098^^ C**** RECORD. C3100099^^ 138 INTEGER MCUS C3100100^^ 139 DATA MCUS / 1057 / C3100101^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 8 DATE: 08/30/84 TIME: 0110 t^ C**** FINANCIAL FIELD UPDATE TABLE - "FINCTB" . C3100103^^ 140 INTEGER FINCTB(75) C3100104^^ 141 INTEGER F1(3), F2(3), F3(3), F4(3), F5(3), F6(3), F7(3), C3100105^^ 141 + F8(3), F9(3), F10(3), F11(3), F12(3), F13(3), F14(3), C3100106^^ 141 + F15(3), F16(3), F17(3), F18(3), F19(3), F20(3), F21(3), C3100107^^ 141 + F22(3), F23(3), F24(3), F25(3) C3100108^^ 142 EQUIVALENCE ( FINCTB( 1), F1(1) ), ( FINCTB( 4), F2(1) ), C3100109^^ 142 + ( FINCTB( 7), F3(1) ), ( FINCTB(10), F4(1) ), C3100110^^ 142 + ( FINCTB(13), F5(1) ), ( FINCTB(16), F6(1) ), C3100111^^ 142 + ( FINCTB(19), F7(1) ), ( FINCTB(22), F8(1) ), C3100112^^ 142 + ( FINCTB(25), F9(1) ), ( FINCTB(28), F10(1) ), C3100113^^ 142 + ( FINCTB(31), F11(1) ), ( FINCTB(34), F12(1) ) C3100114^^ 143 EQUIVALENCE ( FINCTB(37), F13(1) ), ( FINCTB(40), F14(1) ), C3100115^^ 143 + ( FINCTB(43), F15(1) ), ( FINCTB(46), F16(1) ), C3100116^^ 143 + ( FINCTB(49), F17(1) ), ( FINCTB(52), F18(1) ), C3100117^^ 143 + ( FINCTB(55), F19(1) ), ( FINCTB(58), F20(1) ), C3100118^^ 143 + ( FINCTB(61), F21(1) ), ( FINCTB(64), F22(1) ), C3100119^^ 143 + ( FINCTB(67), F23(1) ), ( FINCTB(70), F24(1) ) C3100120^^ 144 EQUIVALENCE ( FINCTB(73), F25(1) ) C3100121^^ 145 DATA F1 / 363, 875, 64 / C3100122^^+ + 1. BLOCK 1, FIELDS 4-12 BELOW C3100123^^ 146 DATA F2 / 427, 947, 69 / C3100124^^+ + 2. BLOCK 2, FIELDS 13-21 BELOW C3100125^^ 147 DATA F3 / -1, 0, 0 / C3100126^^+ + 3. CURRENT DESIGN - END OF TABLE C3100127^^ 148 DATA F4 / 363, 875, 6 / C3100128^^+ + 4. MDLDT C3100129^^ 149 DATA F5 / 369, 881, 6 / C3100130^^+ + 5. MOPDT C3100131^^ 150 DATA F6 / 375, 887, 9 / C3100132^^+ + 6. MADLQ C3100133^^ 151 DATA F7 / 384, 896, 9 / C3100134^^+ + 7. MCBAL C3100135^^ 152 DATA F8 / 393, 905, 9 / C3100136^^+ + 8. MPYOF C3100137^^ 153 DATA F9 / 402, 914, 6 / C3100138^^+ + 9. MCPGD C3100139^^ 154 DATA F10 / 408, 920, 9 / C3100140^^+ + 10. MNPA C3100141^^ 155 DATA F11 / 417, 929, 9 / C3100142^^+ + 11. MOAMT C3100143^^ 156 DATA F12 / 426, 938, 1 / C3100144^^+ + 12. MCMN C3100145^^ 157 DATA F13 / 427, 947, 3 / C3100146^^+ + 13. MPTS C3100147^^ 158 DATA F14 / 430, 950, 5 / C3100148^^+ + 14. MBBR C3100149^^ 159 DATA F15 / 435, 955, 8 / C3100150^^+ + 15. MLON C3100151^^ 160 DATA F16 / 443, 963, 4 / C3100152^^+ + 16. MTCD C3100153^^ 161 DATA F17 / 447, 967, 2 / C3100154^^+ + 17. MTD3 C3100155^^ 162 DATA F18 / 449, 969, 2 / C3100156^^+ + 18. MTD6 C3100157^^ 163 DATA F19 / 451, 971, 2 / C3100158^^+ + 19. MTD9 C3100159^^ 164 DATA F20 / 453, 973, 40 / C3100160^^+ + 20. MSDF C3100161^^ 165 DATA F21 / 493, 1013, 3 / C3100162^^+ + 21. MDYDL C3100163^^ 166 DATA F22 / -1, 0, 0 / C3100164^^+ + 22. NOT USED C3100165^^ 167 DATA F23 / -1, 0, 0 / C3100166^^+ + 23. NOT USED C3100167^^ 168 DATA F24 / -1, 0, 0 / C3100168^^+ + 24. NOT USED C3100169^^ 169 DATA F25 / -1, 0, 0 / C3100170^^+ + 25. NOT USED C3100171^  ^ C**** MAXIMUM NUMBER OF ENTRIES IN TABLE. C3100173^^ 170 INTEGER NUMENT C3100174^^ 171 DATA NUMENT / 25 / C3100175^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 9 DATE: 08/30/84 TIME: 0110 t^ C***********************************************************************C3100177^^ C* BEGIN PROGRAM. *C3100178^^ C***********************************************************************C3100179^  ^ C**** UPDATE MSTDT FIELD. C3100181^^ 172 100 CALL CCSMVA ( DATE, N1, N6, RECBDM, MSTDT, N6 ) C3100182^ ^ C**** STARTING WITH FIRST FIELD DESCRIPTION THRU LAST FIELD DESCRIPTION,C3100184^^ C**** DO (J IS POINTER TO CURRENT 3 WORD FIELD DESCRIPTION) C3100185^^ 173 110 DO 130 I=1,NUMENT C3100186^^ 174 J = 3*I - 2 C3100187^^ C** IF START POSITION OF FIELD IN INPUT RECORD IS ZERO, CONTINUE C3100188^^ 175 IF ( FINCTB(J) .EQ. 0 ) GO TO 130 C3100189^^ C** ELSE, IF START POSITION OF FIELD IN INPUT RECORD IS C3100190^^ C** POSITIVE, CONTINUE C3100191^^ 176 IF ( FINCTB(J) .GE. 0 ) GO TO 120 C3100192^^ C** ELSE, END-OF-TABLE ENCOUNTERED, TERMINATE LOOP C3100193^^ 177 GO TO 140 C3100194^^ C** MOVE FIELD FROM INPUT RECORD TO MASTER FILE RECORD C3100195^^ 178 120 CALL CCSMVA ( INPBUF, FINCTB(J) , FINCTB(J+2), C3100196^^ 178 + RECBDM, FINCTB(J+1), FINCTB(J+2) ) C3100197^^ C** CONTINUE WITH LOOP. C3100198^^ 179 130 CONTINUE C3100199^ ^ C**** IF THIS IS AN ADD TRANSACTION, CONTINUE C3100201^^ 180 140 IF ( ACCTFD .EQ. 0 ) GO TO 150 C3100202^^ C** ELSE, SAVE ROOT AREA OF MASTER FILE C3100203^^ 181 CALL CCSMVA ( RECBDM, N1, LROOT, ROOTSV, N1, LROOT ) C3100204^^ C** EXIT TO USER (CUSTOMER DEFINED) AREA MANAGEMENT ROUTINE C3100205^^ 182 CALL CCSPYT ( RECBDM, INPBUF ) C3100206^^ C** RESTORE ROOT AREA OF MASTER FILE. C3100207^^ 183 CALL CCSMVA ( ROOTSV, N1, LROOT, RECBDM, N1, LROOT ) C3100208^ ^ C**** SAVE USER (CUSTMOMER DEFINED) AREA FROM INPUT RECORD. C3100210^^ 184 150 CALL CCSMVA ( INPBUF, TCUS, LCUS, RECBDM, MCUS, LCUS ) C3100211^ ^ C**** UNCONDITIONAL UPDATE OF FINANCIAL FIELDS COMPLETE, RETURN. C3100213^^ 185 200 RETURN C3100214^^ 186 END C3100215^t FTN 3.3B (OPT = LPC) UNCUPD PAGE 10 DATE: 08/30/84 TIME: 0110 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $02BC ( 700)   EXTERNALS  CCSMVA CCSPYT  t FTN 3.3B (OPT = LPC) UNCUPD PAGE 11 DATE: 08/30/84 TIME: 0110 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&( ACCTFD INTEGER 0001 D 3,10,180 ($ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&, DATE INTEGER 0AED D 47,49,50,172 ,$ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $* F1 INTEGER 0214 139,142,145** F10 INTEGER 022F 139,142,154** F11 INTEGER 0232 139,142,155** F12 INTEGER 0235 139,142,156** F13 INTEGER 0238 139,143,157** F14 INTEGER 023B 139,143,158** F15 INTEGER 023E 139,143,159** F16 INTEGER 0241 139,143,160** F17 INTEGER 0244 139,143,161** F18 INTEGER 0247 139,143,162** F19 INTEGER 024A 139,143,163** F2 INTEGER 0217 139,142,146** F20 INTEGER 024D 139,143,164** F21 INTEGER 0250 139,143,165** F22 INTEGER 0253 139,143,166** F23 INTEGER 0256 139,143,167** F24 INTEGER 0259 139,143,168** F25 INTEGER 025C 139,144,169** F3 INTEGER 021A 139,142,147** F4 INTEGER 021D 139,142,148** F5 INTEGER 0220 139,142,149** F6 INTEGER 0223 139,142,150** F7 INTEGER 0226 139,142,151*t FTN 3.3B (OPT = LPC) UNCUPD PAGE 12 DATE: 08/30/84 TIME: 0110 t* F8 INTEGER 0229 139,142,152** F9 INTEGER 022C 139,142,153*$ FILNFD INTEGER 070A D 34,37$: FINCTB INTEGER 0214 139,142,143,144,175,176,178:( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$& I INTEGER 0260 172,174&$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$0 INPBUF INTEGER 070E D 37,39,178,182,1840$ ISTAT INTEGER 0708 D 34,37$2 J INTEGER 0261 173,174,175,176,1782$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$* LCUS INTEGER 0212 134,137,184*$ LINCNT INTEGER 0ACF D 41,43$. LROOT INTEGER 0210 132,134,181,183.$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$* MCUS INTEGER 0213 137,139,184*$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$( MSTDT INTEGER 0B05 D 57,60,172($ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&2 N1 INTEGER 0D3A D 112,123,172,181,1832& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&& N16 INTEGER 0D49 D 112,124&& N17 INTEGER 0D4A D 112,124&& N2 INTEGER 0D3B D 112,123&& N26 INTEGER 0D4B D 112,125&t FTN 3.3B (OPT = LPC) UNCUPD PAGE 13 DATE: 08/30/84 TIME: 0110 t& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&& N3 INTEGER 0D3C D 112,123&& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&* N6 INTEGER 0D3F D 112,123,172*& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&$ NUMADD INTEGER 0BB0 D 89,94$* NUMENT INTEGER 025F 169,171,173*$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$@ RECBDM INTEGER 001F D 10,12,13,172,178,181,182,183,184 @$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$* ROOTSV INTEGER 0000 132,181,183*$ RPAD INTEGER 0B74 D 81,83$t FTN 3.3B (OPT = LPC) UNCUPD PAGE 14 DATE: 08/30/84 TIME: 0110 t$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$$ TAPE INTEGER 0AFA D 52,54$* TCUS INTEGER 0211 134,136,184*$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$& TLU INTEGER 0D2D D 102,104&$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$$ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$t FTN 3.3B (OPT = LPC) UNCUPD PAGE 15 DATE: 08/30/84 TIME: 0110 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < 2 CCSMVA SUBROUTINE 0263 171,178,181,183,1842" CCSPYT SUBROUTINE 02A4 181"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0262 171"" 110 026A 172"& 120 027E 176,178&* 130 0295 172,175,179*& 140 0297 176,180&& 150 02AE 180,184&" 200 02B5 184" UNCUPD 02B8 1  t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 1 DATE: 08/30/84 TIME: 0112 t^ 1 BLOCK DATA C4600001^^ 1 1 /C46 F CCS CCS 3.0 SL-149C4600002^^ C BLOCK DATA SUBPROGRAM TO INITIALIZE COMMON C4600003^^ C CYBERCREDIT SYSTEM VERSION 3 C4600004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C4600005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C4600006^^ C C4600007^ ^ C**** RETRIEVE MACRO DEFINITION. C4600009^^ M UPDMAC C4600010^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 2 DATE: 08/30/84 TIME: 0112 t^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 3 DATE: 08/30/84 TIME: 0112 t^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 4 DATE: 08/30/84 TIME: 0112 t^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 5 DATE: 08/30/84 TIME: 0112 t^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 6 DATE: 08/30/84 TIME: 0112 t^ C**** BEGIN INITIALIZATION. C4600011^^ 133 DATA A01 / '01' / C4600012^^ 134 DATA A0360 / '0360' / C4600013^^ 135 DATA ACCTFD / 0 / C4600014^^ 136 DATA ACTIVE / $20 / C4600015^^ 137 DATA ADDAD / 6*$3030 / C4600016^^ 138 DATA ADDPAY / 6*$3030 / C4600017^^ 139 DATA AFLG / 17 / C4600018^^ 140 DATA ALRACC / '- ACCOUNT ALREADY IN ACCAGE ' / C4600019^^ 141 DATA ASREAC / 3*$2020, 'CO', ' ', ' ', 'HOST', 28*$2020 / C4600020^^ 142 DATA BLANKS / ' ' / C4600021^^ 143 DATA BUSY / $0080 / C4600022^^ 144 DATA ((COLHD(J,I), J=1,66), I=1,1) / C4600023^^ 144 1 ' TRAN ACCOUNT BORROWERS ', C4600024^^ 144 2 ' DELINQUENT DELINQUENT CUR', C4600025^^ 144 3 'RENT '/ C4600026^^ 145 DATA ((COLHD(J,I), J=1,66), I=2,2) / C4600027^^ 145 1 ' CODE NUMBER NAME ', C4600028^^ 145 2 ' DATE AMOUNT PAY', C4600029^^ 145 3 'OFF ACTION ',$D/ C4600030^^ 146 DATA DETLIN / 68*$2020 / C4600031^^ 147 DATA DUMMY / $FFFF / C4600032^^ 148 DATA DUPKEY / $0010 / C4600033^^ 149 DATA EOF / $0100 / C4600034^^ 150 DATA EOFFLG / 0 / C4600035^^ 151 DATA FILNFD / $0002 / C4600036^^ 152 DATA ((HDLIN(J,I), J=1,66), I=1,1) / C4600037^^ 152 1 $C3C, '-- HDR1 FROM UTILITY FILE GOES HERE --> ', C4600038^^ 152 2 ' ', C4600039^^ 152 3 ' ' / C4600040^^ 153 DATA ((HDLIN(J,I), J=1,66), I=2,2) / C4600041^^ 153 1 $3C, '-- HDR2 FROM UTILITY FILE GOES HERE --> ', C4600042^^ 153 2 ' DAILY MASTER FILE UPDATE REPORT ', C4600043^^ 153 3 ' PAGE ' / C4600044^^ 154 DATA ((HDLIN(J,I), J=1,66), I=3,3) / C4600045^^ 154 1 $3C, '-- HDR3 FROM UTILITY FILE GOES HERE --> ', C4600046^^ 154 2 ' <-DATE-> ', C4600047^^ 154 3 ' ',$D / C4600048^^ 155 DATA IDATAD / 'ADDACT ', 8*$2020, 0, 1, 0 / C4600049^^ 156 DATA IDATAG / 'ACCAGE ', 8*$2020, 1, 1, -1 / C4600050^^ 157 DATA IDATCS / 'COSIGNER', 8*$2020, 1, 1, 1 / C4600051^^ 158 DATA IDATDM / 'DELQMST ', 8*$2020, 1, 1, 1 / C4600052^^ 159 DATA IDATIA / 'INACCT ', 8*$2020, 0, 1, 0 / C4600053^^ 160 DATA IDATIN / 'UPDINPUT', 8*$2020, 0, 1, -1 / C4600054^^ 161 DATA IDATPR / 'UPDPRINT', 8*$2020, 0, 1, 0 / C4600055^^ 162 DATA IDATRF / 'RSWFIL ', 8*$2020, 0, 1, 0 / C4600056^^ 163 DATA IDATTP / 'TRANFL ', 8*$2020, 0, 1, 0 / C4600057^^ 164 DATA IDATTS / 'TRNBCK ', 8*$2020, 0, 1, 0 / C4600058^^ 165 DATA IDATUT / 'UTIFIL ', 8*$2020, 1, 1, 0 / C4600059^^ 166 DATA IFLAG / 0 / C4600060^^ 167 DATA KHDRX / 'HDR1' / C4600061^^ 168 DATA KUPDY / 'UPDY' / C4600062^^ 169 DATA LINCNT / 66 / C4600063^^ 170 DATA MADLQ / 887 / C4600064^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 7 DATE: 08/30/84 TIME: 0112 t^ 171 DATA MCCDT / 869 / C4600065^^ 172 DATA MNAM / 18 / C4600066^^ 173 DATA MNCHG / 1047 / C4600067^^ 174 DATA MNXTC / 275 / C4600068^^ 175 DATA MPYOF / 905 / C4600069^^ 176 DATA MQUE / 271 / C4600070^^ 177 DATA MSTC / 306 / C4600071^^ 178 DATA MSTDT / 857 / C4600072^^ 179 DATA MTCD / 963 / C4600073^^ 180 DATA MT1 / 16 / C4600074^^ 181 DATA MUPDT / 863 / C4600075^^ 182 DATA NDAONE / '0000000001' / C4600076^^ 183 DATA NUMADD / 6*$3030 / C4600077^^ 184 DATA NUMREA / 6*$3030 / C4600078^^ 185 DATA NUMREJ / 6*$3030 / C4600079^^ 186 DATA NUMRSW / 18*$3030 / C4600080^^ 187 DATA NUMUPD / 6*$3030 / C4600081^^ 188 DATA N0 / 0 / C4600082^^ 189 DATA N1 / 1 / C4600083^^ 190 DATA N2 / 2 / C4600084^^ 191 DATA N3 / 3 / C4600085^^ 192 DATA N4 / 4 / C4600086^^ 193 DATA N5 / 5 / C4600087^^ 194 DATA N6 / 6 / C4600088^^ 195 DATA N7 / 7 / C4600089^^ 196 DATA N8 / 8 / C4600090^^ 197 DATA N9 / 9 / C4600091^^ 198 DATA N10 / 10 / C4600092^^ 199 DATA N11 / 11 / C4600093^^ 200 DATA N12 / 12 / C4600094^^ 201 DATA N13 / 13 / C4600095^^ 202 DATA N14 / 14 / C4600096^^ 203 DATA N15 / 15 / C4600097^^ 204 DATA N16 / 16 / C4600098^^ 205 DATA N17 / 17 / C4600099^^ 206 DATA N26 / 26 / C4600100^^ 207 DATA N27 / 27 / C4600101^^ 208 DATA N28 / 28 / C4600102^^ 209 DATA N30 / 30 / C4600103^^ 210 DATA N35 / 35 / C4600104^^ 211 DATA N40 / 40 / C4600105^^ 212 DATA N55 / 55 / C4600106^^ 213 DATA N66 / 66 / C4600107^^ 214 DATA N80 / 80 / C4600108^^ 215 DATA N82 / 82 / C4600109^^ 216 DATA N96 / 96 / C4600110^^ 217 DATA N132 / 132 / C4600111^^ 218 DATA PAGCNT / 6*$3030 / C4600112^^ 219 DATA RADLQ / 59 / C4600113^^ 220 DATA RDYDL / 35 / C4600114^^ 221 DATA REAAD / 6*$3030 / C4600115^^ 222 DATA REAPAY / 6*$3030 / C4600116^^ 223 DATA RECBAG / 43*$2020 / C4600117^^ 224 DATA RECBDM / 1002*$2020 / C4600118^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 8 DATE: 08/30/84 TIME: 0112 t^ 225 DATA RECBIA / 14*$2020 / C4600119^^ 226 DATA REQBAD / 24*0 / C4600120^^ 227 DATA REQBAG / 24*0 / C4600121^^ 228 DATA REQBCS / 24*0 / C4600122^^ 229 DATA REQBDM / 24*0 / C4600123^^ 230 DATA REQBIA / 24*0 / C4600124^^ 231 DATA REQBIN / 24*0 / C4600125^^ 232 DATA REQBPR / 24*0 / C4600126^^ 233 DATA REQBRF / 24*0 / C4600127^^ 234 DATA REQBTP / 24*0 / C4600128^^ 235 DATA REQBTS / 24*0 / C4600129^^ 236 DATA REQBUT / 24*0 / C4600130^^ 237 DATA RPADLQ / 68 / C4600131^^ 238 DATA RPDYDL / 38 / C4600132^^ 239 DATA RPPYOF / 50 / C4600133^^ 240 DATA RPQUE / 21 / C4600134^^ 241 DATA RPYOF / 41 / C4600135^^ 242 DATA RQUE / 17 / C4600136^^ 243 DATA RSTC / 77 / C4600137^^ 244 DATA RSWPAD / 18*$3030 / C4600138^^ 245 DATA RSWPAY / 18*$3030 / C4600139^^ 246 DATA RSWPPY / 18*$3030 / C4600140^^ 247 DATA RTCD / 25 / C4600141^^ 248 DATA R9SWCH / $00E3 / C4600142^^ 249 DATA SECTRF / 1 / C4600143^^ 250 DATA TACCTP / 4 / C4600144^^ 251 DATA TAPE / 6 / C4600145^^ 252 DATA TADLQ / 375 / C4600146^^ 253 DATA TDLDT / 363 / C4600147^^ 254 DATA TNAM / 21 / C4600148^^ 255 DATA TOTPRT / 0 / C4600149^^ 256 DATA TPYOF / 393 / C4600150^^ 257 DATA TQUE / 274 / C4600151^^ 258 DATA TRNBLK / ' ' / C4600152^^ 259 DATA TRNREJ / 0 / C4600153^^ 260 DATA TRN301 / '301 ' / C4600154^^ 261 DATA TRN302 / '302 ' / C4600155^^ 262 DATA TRN303 / '303 ' / C4600156^^ 263 DATA TWAMT / 26 / C4600157^^ 264 DATA TWDTD / 20 / C4600158^^ 265 DATA UPDAD / 6*$3030 / C4600159^^ 266 DATA UPDAGE / 0 / C4600160^^ 267 DATA UPDPAD / 6*$3030 / C4600161^^ 268 DATA UPDPAY / 6*$3030 / C4600162^^ 269 DATA UPDPPY / 6*$3030 / C4600163^^ 270 DATA WRONKY / $0200 / C4600164^ ^ C**** END OF INITIALIZATION. C4600166^ ^ 271 END C4600168^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 9 DATE: 08/30/84 TIME: 0112 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $0000 ( 0)   t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 10 DATE: 08/30/84 TIME: 0112 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * A01 INTEGER 0D36 D 110,112,133** A0360 INTEGER 0D37 D 110,112,134*( ACCTFD INTEGER 0001 D 3,10,135 ($ ACCTST INTEGER 00B7 D 10,12$* ACTIVE INTEGER 0D2F D 106,108,136*( ADDAD INTEGER 0B80 D 83,88,137(( ADDPAY INTEGER 0B92 D 83,89,138(( AFLG INTEGER 0B19 D 68,70,139(( ALRACC INTEGER 0AD6 D 43,45,140(, ASREAC INTEGER 0B1A D 70,72,73,141 ,* BLANKS INTEGER 0D35 D 110,112,142*( BUSY INTEGER 070D D 34,37,143(0 COLHD INTEGER 0CA1 D 96,99,100,144,1450$ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$( DETLIN INTEGER 0A8B D 39,41,146(& DUMMY INTEGER 0000 D 1,3,147&( DUPKEY INTEGER 070C D 34,37,148(( EOF INTEGER 070B D 34,37,149(( EOFFLG INTEGER 0002 D 3,10,150 (( FILNFD INTEGER 070A D 34,37,151(4 HDLIN INTEGER 0BDB D 96,99,100,152,153,1544$ HDLINT INTEGER 0CA0 D 96,99$( IDATAD INTEGER 0568 D 17,19,155(( IDATAG INTEGER 05EF D 21,23,156(( IDATCS INTEGER 0536 D 15,17,157(( IDATDM INTEGER 0409 D 10,13,158(( IDATIA INTEGER 059D D 19,21,159(( IDATIN INTEGER 06F9 D 32,34,160(( IDATPR INTEGER 06D2 D 30,32,161(( IDATRF INTEGER 0616 D 23,26,162(( IDATTP INTEGER 0684 D 26,28,163(( IDATTS INTEGER 06AB D 28,30,164(( IDATUT INTEGER 0458 D 13,15,165(( IFLAG INTEGER 0AE4 D 45,47,166($ INPBUF INTEGER 070E D 37,39$$ ISTAT INTEGER 0708 D 34,37$( KHDRX INTEGER 0B46 D 75,77,167(( KUPDY INTEGER 0B48 D 75,77,168(( LINCNT INTEGER 0ACF D 41,43,169(( MADLQ INTEGER 0B06 D 57,60,170(( MCCDT INTEGER 0B0B D 57,60,171(( MNAM INTEGER 0B0C D 57,61,172(t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 11 DATE: 08/30/84 TIME: 0112 t( MNCHG INTEGER 0B0D D 57,61,173(( MNXTC INTEGER 0B0A D 57,60,174($ MONTH INTEGER 0AED D 47,49$( MPYOF INTEGER 0B04 D 57,60,175(( MQUE INTEGER 0B08 D 57,60,176(( MSTC INTEGER 0B07 D 57,60,177(( MSTDT INTEGER 0B05 D 57,60,178(( MT1 INTEGER 0AFB D 52,54,180(( MTCD INTEGER 0B09 D 57,60,179(( MUPDT INTEGER 0B0E D 57,61,181(* N0 INTEGER 0D39 D 112,123,188** N1 INTEGER 0D3A D 112,123,189** N10 INTEGER 0D43 D 112,124,198** N11 INTEGER 0D44 D 112,124,199** N12 INTEGER 0D45 D 112,124,200** N13 INTEGER 0D46 D 112,124,201** N132 INTEGER 0D56 D 112,132,217** N14 INTEGER 0D47 D 112,124,202** N15 INTEGER 0D48 D 112,124,203** N16 INTEGER 0D49 D 112,124,204** N17 INTEGER 0D4A D 112,124,205** N2 INTEGER 0D3B D 112,123,190** N26 INTEGER 0D4B D 112,125,206** N27 INTEGER 0D4C D 112,125,207** N28 INTEGER 0D4D D 112,125,208** N3 INTEGER 0D3C D 112,123,191** N30 INTEGER 0D4E D 112,126,209** N35 INTEGER 0D4F D 112,126,210** N4 INTEGER 0D3D D 112,123,192** N40 INTEGER 0D50 D 112,127,211** N5 INTEGER 0D3E D 112,123,193** N55 INTEGER 0D51 D 112,128,212** N6 INTEGER 0D3F D 112,123,194** N66 INTEGER 0D52 D 112,129,213** N7 INTEGER 0D40 D 112,123,195** N8 INTEGER 0D41 D 112,123,196** N80 INTEGER 0D53 D 112,130,214** N82 INTEGER 0D54 D 112,130,215** N9 INTEGER 0D42 D 112,123,197** N96 INTEGER 0D55 D 112,131,216** NDAONE INTEGER 0D30 D 108,110,182*( NUMADD INTEGER 0BB0 D 89,94,183($ NUMR INTEGER 0BC8 D 89,92$( NUMREA INTEGER 0BBC D 89,94,184(( NUMREJ INTEGER 0BD4 D 92,94,185(, NUMRSW INTEGER 0BC2 D 89,92,94,186 ,$ NUMS INTEGER 0BCE D 89,92$( NUMUPD INTEGER 0BB6 D 89,94,187($ NUMW INTEGER 0BC2 D 89,92$( PAGCNT INTEGER 0AD0 D 41,43,218(( R9SWCH INTEGER 0AF0 D 50,52,248(( RADLQ INTEGER 0B17 D 61,68,219(( RDYDL INTEGER 0B13 D 61,68,220(( REAAD INTEGER 0B8C D 83,88,221(t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 12 DATE: 08/30/84 TIME: 0112 t( REAPAY INTEGER 0B9E D 83,89,222($ RECBAD INTEGER 055D D 17,19$, RECBAG INTEGER 05C4 D 21,23,25,223 ,$ RECBCS INTEGER 047F D 15,17$, RECBDM INTEGER 001F D 10,12,13,224 ,( RECBIA INTEGER 058F D 19,21,225($ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$( REQBAD INTEGER 0545 D 17,19,226(( REQBAG INTEGER 05AC D 21,23,227(( REQBCS INTEGER 0467 D 15,17,228(( REQBDM INTEGER 0007 D 10,13,229(( REQBIA INTEGER 0577 D 19,21,230(( REQBIN INTEGER 06E1 D 32,34,231(( REQBPR INTEGER 06BA D 30,32,232(( REQBRF INTEGER 05FE D 23,26,233(( REQBTP INTEGER 0625 D 26,28,234(( REQBTS INTEGER 0693 D 28,30,235(( REQBUT INTEGER 0418 D 13,15,236($ RPAD INTEGER 0B74 D 81,83$( RPADLQ INTEGER 0B18 D 61,68,237($ RPAY INTEGER 0B50 D 77,79$( RPDYDL INTEGER 0B14 D 61,68,238($ RPPY INTEGER 0B62 D 79,81$( RPPYOF INTEGER 0B16 D 61,68,239(( RPQUE INTEGER 0B10 D 61,67,240(( RPYOF INTEGER 0B15 D 61,68,241(( RQUE INTEGER 0B0F D 61,67,242(( RSTC INTEGER 0B12 D 61,67,243(, RSWPAD INTEGER 0B6E D 81,83,88,244 ,, RSWPAY INTEGER 0B4A D 77,79,88,245 ,, RSWPPY INTEGER 0B5C D 79,81,88,246 ,( RTCD INTEGER 0B11 D 61,67,247(( SECTRF INTEGER 0004 D 3,10,249 ($ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$( TACCTP INTEGER 0AFC D 54,56,250(( TADLQ INTEGER 0B01 D 54,56,252(( TAPE INTEGER 0AFA D 52,54,251(( TDLDT INTEGER 0B03 D 54,57,253($ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$& TLU INTEGER 0D2D D 102,104&( TNAM INTEGER 0AFD D 54,56,254(( TOTPRT INTEGER 0006 D 3,10,255 (( TPYOF INTEGER 0B02 D 54,56,256(( TQUE INTEGER 0B00 D 54,56,257(* TRN301 INTEGER 0D25 D 100,102,260** TRN302 INTEGER 0D27 D 100,102,261** TRN303 INTEGER 0D29 D 100,102,262** TRNBLK INTEGER 0D2B D 100,102,258*t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 13 DATE: 08/30/84 TIME: 0112 t( TRNREJ INTEGER 0003 D 3,10,259 (( TWAMT INTEGER 0AFF D 54,56,263(( TWDTD INTEGER 0AFE D 54,56,264($ U INTEGER 0AF2 D 50,52$( UPDAD INTEGER 0B86 D 83,88,265(( UPDAGE INTEGER 0005 D 3,10,266 (( UPDPAD INTEGER 0BA4 D 83,89,267(( UPDPAY INTEGER 0B98 D 83,89,268(( UPDPPY INTEGER 0BAA D 83,89,269($ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$( WRONKY INTEGER 0709 D 34,37,270($ YEAR INTEGER 0AEF D 47,49$   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  Q8QBDS 7FFF  t FTN 3.3B (OPT = LPC) UPDEND PAGE 1 DATE: 08/30/84 TIME: 0113 t^ 1 SUBROUTINE UPDEND C4700001^^ 1 1 /C47 F CCS CCS 3.0 SL-149C4700002^^ C PERFORM TERMINATION FUNCTIONS C4700003^^ C CYBERCREDIT SYSTEM VERSION 3 C4700004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C4700005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C4700006^^ C C4700007^ ^ C UPDEND IS THE TERMINATION MODULE FOR UPDATE. TERMINATION MAY BE C4700009^^ C NORMAL (END-OF-FILE ON INPUT) OR ABNORMAL (FATAL FILE ERROR). C4700010^^ C IN EITHER CASE, UPDEND IS RESPONSIBLE FOR CLOSING ALL OPEN FILES C4700011^^ C AND RETURNING CONTROL TO THE CCS EXECUTIVE. THE FOLLOWING FILES C4700012^^ C COULD BE OPEN: C4700013^^ C FILE NAME DESCRIPTION C4700014^^ C --------- ------------------------------------------------ C4700015^^ C DELQMST MASTER FILE C4700016^^ C COSIGNER COSIGNER INFORMATION FILE C4700017^^ C ADDACT ADD ACCOUNT FILE C4700018^^ C INACCT INACTIVE ACCOUNTS FILE C4700019^^ C ACCAGE TREND ANALYSIS ACTIVE ACCOUNTS AGE FILE C4700020^^ C RSWFIL TREND ANALYSIS INACTIVATED ACCOUNTS AGE FILE C4700021^^ C TRANFL PRIMARY TRANSACTION FILE C4700022^^ C TRNBCK SECONDARY TRANSACTION FILE C4700023^^ C UPDINPUT INPUT FILE FOR UPDATE TRANSACTIONS C4700024^^ C UPDPRINT PRINT OUTPUT FILE C4700025^^ C UTIFIL UTILITY FILE C4700026^ ^ C ONLY OPEN FILES WILL BE CLOSED. A FILE IS OPEN IF ITS LAST C4700028^^ C REQUEST PROCESSOR INDEX ( BITS 0-13 OF WROD 12 OF REQUEST BUFFER )C4700029^^ C IS NON-ZERO. SINCE THE UTILITY FILE MAY ALREADY BE CLOSED (DONE C4700030^^ C IN LABHAN MODULE), NO CLOSE REQUEST WILL BE PERFORMED IF ITS C4700031^^ C INDEX IS ZERO (FILE NEVER OPENED OR FORCED CLOSE BY EXECUTIVE) OR C4700032^^ C FIVE (INDEX FOR CLOSE PROCESSOR). UPDEND WILL ALSO UNLOAD TAPE C4700033^^ C IN INPUT WAS FROM TAPE. C4700034^ ^ C FILE ERRORS DURING FILE CLOSURES ARE IGNORED. C4700036^  ^ C**** RETRIEVE COMMON MACRO DECLARATION. C4700038^^ M UPDMAC C4700039^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^t FTN 3.3B (OPT = LPC) UPDEND PAGE 2 DATE: 08/30/84 TIME: 0113 t^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^t FTN 3.3B (OPT = LPC) UPDEND PAGE 3 DATE: 08/30/84 TIME: 0113 t^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^t FTN 3.3B (OPT = LPC) UPDEND PAGE 4 DATE: 08/30/84 TIME: 0113 t^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^t FTN 3.3B (OPT = LPC) UPDEND PAGE 5 DATE: 08/30/84 TIME: 0113 t^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^t FTN 3.3B (OPT = LPC) UPDEND PAGE 6 DATE: 08/30/84 TIME: 0113 t^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) UPDEND PAGE 7 DATE: 08/30/84 TIME: 0113 t^ C***********************************************************************C4700040^^ C* BEGIN PROGRAM. *C4700041^^ C***********************************************************************C4700042^  ^ C**** IF MASTER FILE OPEN, CLOSE IT C4700044^^ 133 100 IF ( AND(REQBDM(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBDM,ISTAT )C4700045^^ C** ELSE, CONTINUE. C4700046^ ^ C**** IF COSIGNER FILE OPEN, CLOSE IT C4700048^^ 134 110 IF ( AND(REQBCS(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBCS,ISTAT )C4700049^^ C** ELSE, CONTINUE. C4700050^ ^ C**** IF ADD ACCOUNT FILE OPEN, CLOSE IT C4700052^^ 135 120 IF ( AND(REQBAD(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBAD,ISTAT )C4700053^^ C** ELSE, CONTINUE. C4700054^ ^ C**** IF INACTIVE ACCOUNTS FILE OPEN, CLOSE IT C4700056^^ 136 130 IF ( AND(REQBIA(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBIA,ISTAT )C4700057^^ C** ELSE, CONTINUE. C4700058^ ^ C**** IF ACCAGE FILE OPEN, CLOSE IT C4700060^^ 137 140 IF ( AND(REQBAG(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBAG,ISTAT )C4700061^^ C** ELSE, CONTINUE. C4700062^ ^ C**** IF RSWFIL FILE OPEN, CLOSE IT C4700064^^ 138 150 IF ( AND(REQBRF(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBRF,ISTAT )C4700065^^ C** ELSE, CONTINUE. C4700066^ ^ C**** IF PRIMARY TRANSACTION FILE OPEN, CLOSE IT C4700068^^ 139 160 IF ( AND(REQBTP(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBTP,ISTAT )C4700069^^ C** ELSE, CONTINUE. C4700070^ ^ C**** IF SECONDARY TRANSACTION FILE IN USE AND OPEN, CLOSE IT C4700072^^ 140 170 IF ( AND(REQBTS(12), $3FFF) .NE. 0 .AND. C4700073^^ 140 + SECTRF .NE. 0 ) CALL CLOSFL ( REQBTS,ISTAT )C4700074^^ C** ELSE, CONTINUE. C4700075^ ^ C**** IF UPDINPUT FILE OPEN, CLOSE IT C4700077^^ 141 180 IF ( AND(REQBIN(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBIN,ISTAT )C4700078^^ C** ELSE, CONTINUE. C4700079^ ^ C**** IF PRINT OUTPUT FILE OPEN, CLOSE IT C4700081^^ 142 190 IF ( AND(REQBPR(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBPR,ISTAT )C4700082^^ C** ELSE, CONTINUE. C4700083^ ^ C**** IF UTILITY FILE OPEN, CLOSE IT C4700085^^ 143 200 IF ( AND(REQBUT(12), $3FFF) .NE. 0 .AND. C4700086^^ 143 + AND(REQBUT(12), $3FFF) .NE. 5 ) CALL CLOSFL ( REQBUT,ISTAT )C4700087^^ C** ELSE, CONTINUE. C4700088^ ^ C**** IF INPUT FROM TAPE, UNLOAD TAPE UNIT C4700090^^ 144 210 IF ( U(2) .EQ. 0 ) CALL TAPMOT ( TAPE, N4 ) C4700091^^ C** ELSE, CONTINUE. C4700092^t FTN 3.3B (OPT = LPC) UPDEND PAGE 8 DATE: 08/30/84 TIME: 0113 t   ^ C**** RETURN CONTROL TO CCS EXECUTIVE. C4700094^^ 145 300 CALL PGMOUT C4700095^ ^ 146 RETURN C4700097^^ 147 END C4700098^t FTN 3.3B (OPT = LPC) UPDEND PAGE 9 DATE: 08/30/84 TIME: 0113 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $0073 ( 115)   EXTERNALS  CLOSFL TAPMOT PGMOUT  t FTN 3.3B (OPT = LPC) UPDEND PAGE 10 DATE: 08/30/84 TIME: 0113 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < J 3FFF (16383) 0000 133,134,135,136,137,138,139,140,141,142,143J   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$J AND INTR.FN. 7FFF 133,134,135,136,137,138,139,140,141,142,143J( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$t FTN 3.3B (OPT = LPC) UPDEND PAGE 11 DATE: 08/30/84 TIME: 0113 t$ IFLAG INTEGER 0AE4 D 45,47$$ INPBUF INTEGER 070E D 37,39$P ISTAT INTEGER 0708 D 34,37,133,134,135,136,137,138,139,140,141,142,143P$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$$ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&& N1 INTEGER 0D3A D 112,123&& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&& N16 INTEGER 0D49 D 112,124&& N17 INTEGER 0D4A D 112,124&& N2 INTEGER 0D3B D 112,123&& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&& N3 INTEGER 0D3C D 112,123&& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&* N4 INTEGER 0D3D D 112,123,144*& N40 INTEGER 0D50 D 112,127&& N5 INTEGER 0D3E D 112,123&& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$t FTN 3.3B (OPT = LPC) UPDEND PAGE 12 DATE: 08/30/84 TIME: 0113 t( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$( RECBDM INTEGER 001F D 10,12,13 ($ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$( REQBAD INTEGER 0545 D 17,19,135(( REQBAG INTEGER 05AC D 21,23,137(( REQBCS INTEGER 0467 D 15,17,134(( REQBDM INTEGER 0007 D 10,13,133(( REQBIA INTEGER 0577 D 19,21,136(( REQBIN INTEGER 06E1 D 32,34,141(( REQBPR INTEGER 06BA D 30,32,142(( REQBRF INTEGER 05FE D 23,26,138(( REQBTP INTEGER 0625 D 26,28,139(( REQBTS INTEGER 0693 D 28,30,140(( REQBUT INTEGER 0418 D 13,15,143($ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$( SECTRF INTEGER 0004 D 3,10,140 ($ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$( TAPE INTEGER 0AFA D 52,54,144($ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$t FTN 3.3B (OPT = LPC) UPDEND PAGE 13 DATE: 08/30/84 TIME: 0113 t& TLU INTEGER 0D2D D 102,104&$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$( U INTEGER 0AF2 D 50,52,144($ UPDAD INTEGER 0B86 D 83,88$$ UPDAGE INTEGER 0005 D 3,10 $$ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$$ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < J CLOSFL SUBROUTINE 0007 133,134,135,136,137,138,139,140,141,142,143J" PGMOUT SUBROUTINE 006B 144"" TAPMOT SUBROUTINE 0067 144"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0001 132"" 110 000A 133"" 120 0012 134"" 130 001A 135"" 140 0022 136"" 150 002A 137"" 160 0032 138"" 170 003A 139"" 180 0046 140"" 190 004E 141"" 200 0056 142"" 210 0062 143"" 300 006A 144"t FTN 3.3B (OPT = LPC) UPDEND PAGE 14 DATE: 08/30/84 TIME: 0113 t UPDEND 006F 1 t FTN 3.3B (OPT = LPC) UPDIT PAGE 1 DATE: 08/30/84 TIME: 0114 t^ 1 SUBROUTINE UPDIT C4800001^^ 1 1 /C48 F CCS CCS 3.0 SL-149C4800002^^ C PERFORM UPDATE SPECIFIC OPERATIONS C4800003^^ C CYBERCREDIT SYSTEM VERSION 3 C4800004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C4800005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C4800006^^ C C4800007^ ^ C UPDIT IS RESPOSIBLE FOR PERFORMING ALL UNIQUE OPERATIONS INVOLVED C4800009^^ C IN UPDATING AN ACCOUNT. THIS INVOLVES ADDING PREVIOUS AMOUNT C4800010^^ C DELINQUENT, PREVIOUS CURRENT PAYOFF/TOTAL DUE, NEW AMOUNT DELIN- C4800011^^ C QUENT, AND NEW CURRENT PAYOFF/TOTAL DUE TO TOTALS, INCREMENTING C4800012^^ C UPDATE TRANSACTION COUNTER, AND FORMATTING THE DETAIL LINE. THE C4800013^^ C GENERALIZED PROGRAM FLOW IS AS FOLLOWS: C4800014^^ C 1. ADD PREVIOUS AMOUNT DELINQUENT (FIELD IN MASTER FILE C4800015^^ C RECORD) TO UPDATE PREVIOUS AMOUNT DELINQUENT BUCKET. C4800016^^ C 2. ADD PREVIOUS CURRENT PAYOFF/TOTAL DUE (FIELD IN MASTER FILEC4800017^^ C RECORD) TO UPDATE PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET.C4800018^^ C 3. ADD NEW AMOUNT DELINQUENT (FIELD IN INPUT BUFFER) TO C4800019^^ C UPDATE AMOUNT DELINQUENT BUCKET. C4800020^^ C 4. ADD NEW CURRENT PAYOFF/TOTAL DUE (FIELD IN INPUT BUFFER) C4800021^^ C TO UPDATE CURRENT PAYOFF/TOTAL DUE BUCKET. C4800022^^ C 5. INCREMENT UPDATE TRANSACTION COUNT. C4800023^^ C 6. FORMAT DETAIL LINE FOR UPDATE TRANSACTION. C4800024^^ C 7. RETURN C4800025^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. C4800027^^ M UPDMAC C4800028^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^t FTN 3.3B (OPT = LPC) UPDIT PAGE 2 DATE: 08/30/84 TIME: 0114 t^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^t FTN 3.3B (OPT = LPC) UPDIT PAGE 3 DATE: 08/30/84 TIME: 0114 t^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^t FTN 3.3B (OPT = LPC) UPDIT PAGE 4 DATE: 08/30/84 TIME: 0114 t^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^t FTN 3.3B (OPT = LPC) UPDIT PAGE 5 DATE: 08/30/84 TIME: 0114 t^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) UPDIT PAGE 6 DATE: 08/30/84 TIME: 0114 t^ C***********************************************************************C4800029^^ C* BEGIN PROGRAM. *C4800030^^ C***********************************************************************C4800031^ ^ C**** ADD PREVIOUS AMOUNT DELINQUENT TO UPDATE PREVIOUS AMOUNT DELIN- C4800033^^ C**** QUENT BUCKET. C4800034^^ 133 100 CALL CCSADD ( RECBDM, MADLQ, UPDPAD, N1, UPDPAD, N1 ) C4800035^ ^ C**** ADD PREVIOUS CURRENT PAYOFF/TOTAL DUE TO UPDATE PREVIOUS CURRENT C4800037^^ C**** PAYOFF/TOTAL DUE BUCKET. C4800038^^ 134 110 CALL CCSADD ( RECBDM, MPYOF, UPDPPY, N1, UPDPPY, N1 ) C4800039^ ^ C**** ADD NEW AMOUNT DELINQUENT TO UPDATE AMOUNT DELINQUENT BUCKET. C4800041^^ 135 120 CALL CCSADD ( INPBUF, TADLQ, UPDAD, N1, UPDAD, N1 ) C4800042^ ^ C**** ADD NEW CURRENT PAYOFF/TOTAL DUE TO UPDATE CURRENT PAYOFF/TOTAL C4800044^^ C**** DUE BUCKET. C4800045^^ 136 130 CALL CCSADD ( INPBUF, TPYOF, UPDPAY, N1, UPDPAY, N1 ) C4800046^ ^ C**** INCREMENT UPDATE TRANSACTION COUNT. C4800048^^ 137 140 CALL CCSADD ( NDAONE, N2, NUMUPD, N1, NUMUPD, N1 ) C4800049^ ^ C**** FORMAT DETAIL LINE FOR UPDATE TRANSACTION. C4800051^^ 138 150 CALL FORMLN ( N5 ) C4800052^  ^ C**** UPDATE SPECIFIC OPERATIONS COMPLETE, RETURN. C4800054^^ 139 200 RETURN C4800055^^ 140 END C4800056^t FTN 3.3B (OPT = LPC) UPDIT PAGE 7 DATE: 08/30/84 TIME: 0114 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $002E ( 46)   EXTERNALS  CCSADD FORMLN  t FTN 3.3B (OPT = LPC) UPDIT PAGE 8 DATE: 08/30/84 TIME: 0114 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$( ASREAC INTEGER 0B1A D 70,72,73 (& BLANKS INTEGER 0D35 D 110,112&$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$$ COMFLD INTEGER 0B22 D 70,72$& COMPIN INTEGER 0D2E D 104,106&( DATE INTEGER 0AED D 47,49,50 ($ DAY INTEGER 0AEE D 47,49$$ DETLIN INTEGER 0A8B D 39,41$" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$$ EOF INTEGER 070B D 34,37$$ EOFFLG INTEGER 0002 D 3,10 $$ FILNFD INTEGER 070A D 34,37$( HDLIN INTEGER 0BDB D 96,99,100($ HDLINT INTEGER 0CA0 D 96,99$$ IDATAD INTEGER 0568 D 17,19$$ IDATAG INTEGER 05EF D 21,23$$ IDATCS INTEGER 0536 D 15,17$$ IDATDM INTEGER 0409 D 10,13$$ IDATIA INTEGER 059D D 19,21$$ IDATIN INTEGER 06F9 D 32,34$$ IDATPR INTEGER 06D2 D 30,32$$ IDATRF INTEGER 0616 D 23,26$$ IDATTP INTEGER 0684 D 26,28$$ IDATTS INTEGER 06AB D 28,30$$ IDATUT INTEGER 0458 D 13,15$$ IFLAG INTEGER 0AE4 D 45,47$, INPBUF INTEGER 070E D 37,39,135,136,$ ISTAT INTEGER 0708 D 34,37$$ KHDRX INTEGER 0B46 D 75,77$$ KUPDY INTEGER 0B48 D 75,77$$ LINCNT INTEGER 0ACF D 41,43$( MADLQ INTEGER 0B06 D 57,60,133($ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$t FTN 3.3B (OPT = LPC) UPDIT PAGE 9 DATE: 08/30/84 TIME: 0114 t$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$$ MONTH INTEGER 0AED D 47,49$( MPYOF INTEGER 0B04 D 57,60,134($ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$$ MT1 INTEGER 0AFB D 52,54$$ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&: N1 INTEGER 0D3A D 112,123,133,134,135,136,137:& N10 INTEGER 0D43 D 112,124&& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&& N13 INTEGER 0D46 D 112,124&& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&& N16 INTEGER 0D49 D 112,124&& N17 INTEGER 0D4A D 112,124&* N2 INTEGER 0D3B D 112,123,137*& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&& N3 INTEGER 0D3C D 112,123&& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&& N40 INTEGER 0D50 D 112,127&* N5 INTEGER 0D3E D 112,123,138*& N55 INTEGER 0D51 D 112,128&& N6 INTEGER 0D3F D 112,123&& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&& N96 INTEGER 0D55 D 112,131&* NDAONE INTEGER 0D30 D 108,110,137*$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$( NUMUPD INTEGER 0BB6 D 89,94,137($ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$$ R9SWCH INTEGER 0AF0 D 50,52$$ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$t FTN 3.3B (OPT = LPC) UPDIT PAGE 10 DATE: 08/30/84 TIME: 0114 t$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$( RECBAG INTEGER 05C4 D 21,23,25 ($ RECBCS INTEGER 047F D 15,17$0 RECBDM INTEGER 001F D 10,12,13,133,134 0$ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$$ RECBUT INTEGER 0430 D 13,15$$ REQBAD INTEGER 0545 D 17,19$$ REQBAG INTEGER 05AC D 21,23$$ REQBCS INTEGER 0467 D 15,17$$ REQBDM INTEGER 0007 D 10,13$$ REQBIA INTEGER 0577 D 19,21$$ REQBIN INTEGER 06E1 D 32,34$$ REQBPR INTEGER 06BA D 30,32$$ REQBRF INTEGER 05FE D 23,26$$ REQBTP INTEGER 0625 D 26,28$$ REQBTS INTEGER 0693 D 28,30$$ REQBUT INTEGER 0418 D 13,15$$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$$ SECTRF INTEGER 0004 D 3,10 $$ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$$ SWITCH INTEGER 0AF1 D 50,52$$ TACCTP INTEGER 0AFC D 54,56$( TADLQ INTEGER 0B01 D 54,56,135($ TAPE INTEGER 0AFA D 52,54$$ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$$ TKEY INTEGER 0B3E D 73,75$& TLU INTEGER 0D2D D 102,104&$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $( TPYOF INTEGER 0B02 D 54,56,136($ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&t FTN 3.3B (OPT = LPC) UPDIT PAGE 11 DATE: 08/30/84 TIME: 0114 t$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$$ U INTEGER 0AF2 D 50,52$( UPDAD INTEGER 0B86 D 83,88,135($ UPDAGE INTEGER 0005 D 3,10 $( UPDPAD INTEGER 0BA4 D 83,89,133(( UPDPAY INTEGER 0B98 D 83,89,136(( UPDPPY INTEGER 0BAA D 83,89,134($ UPDY INTEGER 0BDA D 94,96$$ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$$ WRONKY INTEGER 0709 D 34,37$$ YEAR INTEGER 0AEF D 47,49$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < 2 CCSADD SUBROUTINE 0001 132,134,135,136,1372" FORMLN SUBROUTINE 0025 137"   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0000 132"" 110 0008 133"" 120 000F 134"" 130 0016 135"" 140 001D 136"" 150 0024 137"" 110 0008 133"" 120 000F 134"" 130 0016 135"" 140 001D 136"" 150 0024 137"" 200 0027 138" UPDIT 002A 1  t FTN 3.3B (OPT = LPC) UPINIT PAGE 1 DATE: 08/30/84 TIME: 0115 t^ 1 SUBROUTINE UPINIT C4900001^^ 1 1 /C49 F CCS CCS 3.0 SL-149C4900002^^ C PERFORM UPDATE INTIALIZATION FUNCTIONS C4900003^^ C CYBERCREDIT SYSTEM VERSION 3 C4900004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C4900005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 C4900006^^ C C4900007^ ^ C UPINIT IS RESPONSIBLE FOR PERFORMING BASIC INITIALIZATION C4900009^^ C FUNCTIONS FOR THE COMPLETE UPDATE PROCESSING PROGRAM. THIS C4900010^^ C INVOLVES THE FOLLOWING STEPS: C4900011^^ C 1. RETRIEVE SYSTEM DATE. C4900012^^ C 2. RETRIEVE EXTERNAL SWITCH SETTINGS. C4900013^^ C 3. IF SWITCH U4 IS ON (SELECTS PRINT OUTPUT TO FILE INSTEAD C4900014^^ C OF SYSTEM PRINTER), OPEN "UPDPRINT" FILE C4900015^^ C ELSE, CONTINUE. C4900016^^ C 4. IF SWITCH U2 IS ON (SELECTS UNLABELLED INPUT FROM FILE C4900017^^ C INSTEAD OF MAGNETIC TAPE INPUT), OPEN "UPDINPUT" FILE C4900018^^ C ELSE, IF SWITCH U3 IS ON (SELECTS MAG TAPE UNIT 1 C4900019^^ C AS INPUT INSTEAD OF UNIT 0), SET MAG TAPE UNIT 1 AS C4900020^^ C INPUT UNIT C4900021^^ C ELSE, CONTINUE WITH DEFAULT - MAG TAPE UNIT 0. C4900022^^ C 5. OPEN UTILITY FILE. C4900023^^ C 6. OPEN MASTER FILE. C4900024^^ C 7. OPEN COSIGNER FILE. C4900025^^ C 8. OPEN ADD ACCOUNT FILE. C4900026^^ C 9. OPEN INACTIVE ACCOUNTS FILE. C4900027^^ C 10. OPEN ACCAGE FILE (TREND ANALYSIS ACTIVE ACCOUNTS AGE FILE).C4900028^^ C 11. OPEN RSWFIL FILE (TREND ANALYSIS INACTIVATED ACCOUNTS AGE C4900029^^ C FILE). C4900030^^ C 12. IF COMMENT IN REACTIVATION ACTIVITY STRING BLANK, CONTINUE C4900031^^ C ELSE, OPEN PRIMARY TRANSACTION FILE TO LOG ACTIVITY C4900032^^ C FOR REACTIVATED ACCOUNTS C4900033^^ C OPEN SECONDARY TRANSACTION FILE TO LOG ACTIVITY FOR C4900034^^ C REACTIVATED ACCOUNTS C4900035^^ C IF SECONDARY TRANSACTION FILE FOUND, CONTINUE C4900036^^ C ELSE, SET FLAG TO INDICATE NO SECONDARY TRANS- C4900037^^ C ACTION FILE IN USE. C4900038^^ C 13. RETRIEVE AND SAVE REPORT HEADINGS FROM UTILITY FILE. C4900039^^ C 14. RETRIEVE AND SAVE UPDY RECORD FOR NON-FINANCIAL UPDATE C4900040^^ C CONDITIONING. C4900041^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. C4900043^^ M UPDMAC C4900044^^ M 1 1 /C36 F CCS CCS 3.0 SL-149C3600002^^ M C CYBERCREDIT SYSTEM VERSION 3 C3600003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C3600004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 C3600005^^ M C C3600006^^ M C*** DUMMY VARIABLE. C3600007^^ M 2 INTEGER DUMMY C3600008^^ M 3 COMMON / UPD / DUMMY C3600009^^ M C*** FLAG WORDS. C3600010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. C3600011^t FTN 3.3B (OPT = LPC) UPINIT PAGE 2 DATE: 08/30/84 TIME: 0115 t^ M 4 INTEGER ACCTFD C3600012^^ M C* END-OF-FILE ON INPUT FLAG. C3600013^^ M 5 INTEGER EOFFLG C3600014^^ M C* TRANSACTION REJECTED FLAG. C3600015^^ M 6 INTEGER TRNREJ C3600016^^ M C* SECONDARY TRANSACTION FILE FLAG. C3600017^^ M 7 INTEGER SECTRF C3600018^^ M C* UPDATE PREVIOUS FIELDS IN ACCAGE ON INACTIVATIONS FLAG. C3600019^^ M 8 INTEGER UPDAGE C3600020^^ M C* TOTALS PRINT IN PROGRESS FLAG. C3600021^^ M 9 INTEGER TOTPRT C3600022^^ M 10 COMMON / UPD / ACCTFD, EOFFLG, TRNREJ, SECTRF, UPDAGE, TOTPRT C3600023^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. C3600024^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT C3600025^^ M C* STATUS CODE. C3600026^^ M 11 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15), ACCTST C3600027^^ M 12 BYTE ( ACCTST, RECBDM(153)(7=0) ) C3600028^^ M 13 COMMON / UPD / REQBDM, RECBDM, IDATDM C3600029^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. C3600030^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600031^^ M 14 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) C3600032^^ M 15 COMMON / UPD / REQBUT, RECBUT, IDATUT C3600033^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. C3600034^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600035^^ M 16 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) C3600036^^ M 17 COMMON / UPD / REQBCS, RECBCS, IDATCS C3600037^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. C3600038^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600039^^ M 18 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) C3600040^^ M 19 COMMON / UPD / REQBAD, RECBAD, IDATAD C3600041^^ M C*** FILE MANAGER BUFFERS FOR INACTIVE ACCOUNTS FILE. C3600042^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600043^^ M 20 INTEGER REQBIA(24), RECBIA(14), IDATIA(15) C3600044^^ M 21 COMMON / UPD / REQBIA, RECBIA, IDATIA C3600045^^ M C*** FILE MANAGER BUFFERS FOR ACCAGE FILE. C3600046^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600047^^ M 22 INTEGER REQBAG(24), RECBAG(43), IDATAG(15) C3600048^^ M 23 COMMON / UPD / REQBAG, RECBAG, IDATAG C3600049^^ M C*** FILE MANAGER BUFFERS FOR RSWFIL FILE. C3600050^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600051^^ M 24 INTEGER REQBRF(24), RECBRF(43), IDATRF(15) C3600052^^ M 25 EQUIVALENCE ( RECBRF(1), RECBAG(1) ) C3600053^^ M 26 COMMON / UPD / REQBRF, IDATRF C3600054^^ M C*** FILE MANAGER BUFFERS FOR PRIMARY TRANSACTION FILE. C3600055^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. C3600056^^ M 27 INTEGER REQBTP(24), RECBTF(71), IDATTP(15) C3600057^^ M 28 COMMON / UPD / REQBTP, RECBTF, IDATTP C3600058^^ M C*** FILE MANAGER BUFFERS FOR SECONDARY TRANSACTION FILE. C3600059^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600060^^ M 29 INTEGER REQBTS(24), IDATTS(15) C3600061^^ M 30 COMMON / UPD / REQBTS, IDATTS C3600062^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. C3600063^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600064^^ M 31 INTEGER REQBPR(24), IDATPR(15) C3600065^t FTN 3.3B (OPT = LPC) UPINIT PAGE 3 DATE: 08/30/84 TIME: 0115 t^ M 32 COMMON / UPD / REQBPR, IDATPR C3600066^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. C3600067^^ M C* REQUEST BUFFER, FILE DATA BUFFER. C3600068^^ M 33 INTEGER REQBIN(24), IDATIN(15) C3600069^^ M 34 COMMON / UPD / REQBIN, IDATIN C3600070^^ M C*** FILE MANAGER STATUS WORD. C3600071^^ M 35 INTEGER ISTAT C3600072^^ M C* STATUS CONSIDERATIONS. C3600073^^ M C* WRONG KEY, END-OF-FILE, FILE NOT FOUND, DUPLICATE KEY ON WRITE, C3600074^^ M C* RECORD LOCKED. C3600075^^ M 36 INTEGER WRONKY, EOF, FILNFD, DUPKEY, BUSY C3600076^^ M 37 COMMON / UPD / ISTAT, WRONKY, FILNFD, EOF, DUPKEY, BUSY C3600077^^ M C*** TRANSACTION INPUT BUFFER. C3600078^^ M 38 INTEGER INPBUF(893) C3600079^^ M 39 COMMON / UPD / INPBUF C3600080^^ M C*** PRINT OUTPUT BUFFERS. C3600081^^ M C* STANDARD DETAIL LINE BUFFER. C3600082^^ M 40 INTEGER DETLIN(68) C3600083^^ M 41 COMMON / UPD / DETLIN C3600084^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. C3600085^^ M 42 INTEGER LINCNT, PAGCNT(6) C3600086^^ M 43 COMMON / UPD / LINCNT, PAGCNT C3600087^^ M C*** ERROR NOTE FOR ADD/REACTIVATION TRANSACTIONS - ACCOUNT ALREADY IN C3600088^^ M C*** ACCAGE FILE. C3600089^^ M 44 INTEGER ALRACC(14) C3600090^^ M 45 COMMON / UPD / ALRACC C3600091^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. C3600092^^ M 46 INTEGER IFLAG, TEMP(8) C3600093^^ M 47 COMMON / UPD / IFLAG, TEMP C3600094^^ M C*** TODAY'S DATE. C3600095^^ M 48 INTEGER DATE(3), MONTH, DAY, YEAR C3600096^^ M 49 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) C3600097^^ M 50 COMMON / UPD / DATE C3600098^^ M C*** EXTERNAL SWITCH. C3600099^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. C3600100^^ M 51 INTEGER R9SWCH, SWITCH, U(8) C3600101^^ M 52 COMMON / UPD / R9SWCH, SWITCH, U C3600102^^ M C*** TAPE INPUT LOGICAL UNITS. C3600103^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. C3600104^^ M 53 INTEGER TAPE, MT1 C3600105^^ M 54 COMMON / UPD / TAPE, MT1 C3600106^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. C3600107^^ M C* ACCOUNT NUMBER, ACCOUNT NAME, INACTIVATION DATE, INACTIVATION AMOUNT,C3600108^^ M C* QUEUE ASSIGNED, AMOUNT DELINQUENT, CURRENT PAYOFF/TOTAL DUE, C3600109^^ M C* DELINQUENT DATE. C3600110^^ M 55 INTEGER TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF, TDLDT C3600111^^ M 56 COMMON / UPD / TACCTP, TNAM, TWDTD, TWAMT, TQUE, TADLQ, TPYOF C3600112^^ M 57 COMMON / UPD / TDLDT C3600113^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. C3600114^^ M C* CURRENT PAYOFF/TOTAL DUE, DATE LAST UPDATED BY A/R SYSTEM, AMOUNT C3600115^^ M C* DELINQUENT, STATUS CODE, QUEUE, ACCOUNT TYPE CODE/PRODUCT TYPE, NEXT C3600116^^ M C* CONTACT DATE, DATE FIRST APPEARS IN CCS, NAME, SECONDARY KEY SAVE C3600117^^ M C* AREA, DATE LAST UPDATED VIA CHANGE SCREEN. C3600118^^ M 58 INTEGER MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDT, MNAM C3600119^t FTN 3.3B (OPT = LPC) UPINIT PAGE 4 DATE: 08/30/84 TIME: 0115 t^ M 59 INTEGER MNCHG, MUPDT C3600120^^ M 60 COMMON / UPD / MPYOF, MSTDT, MADLQ, MSTC, MQUE, MTCD, MNXTC, MCCDTC3600121^^ M 61 COMMON / UPD / MNAM, MNCHG, MUPDT C3600122^^ M C*** START CHARACTER POSITIONS OF FIELDS IN AGING (ACCAGE, RSWFIL) C3600123^^ M C*** FILES. C3600124^^ M C* QUEUE AND PREVIOUS QUEUE. C3600125^^ M 62 INTEGER RQUE, RPQUE C3600126^^ M C* ACCOUNT TYPE CODE/PRODUCT TYPE AND STATUS CODE. C3600127^^ M 63 INTEGER RTCD, RSTC C3600128^^ M C* DAYS DELINQUENT AND PREVIOUS DAYS DELINQUENT. C3600129^^ M 64 INTEGER RDYDL, RPDYDL C3600130^^ M C* CURRENT PAYOFF/TOTAL DUE AND PREVIOUS CURRENT PAYOFF/TOTAL DUE. C3600131^^ M 65 INTEGER RPYOF, RPPYOF C3600132^^ M C* AMOUNT DELINQUENT AND PREVIOUS AMOUNT DELINQUENT. C3600133^^ M 66 INTEGER RADLQ, RPADLQ C3600134^^ M 67 COMMON / UPD / RQUE, RPQUE, RTCD, RSTC C3600135^^ M 68 COMMON / UPD / RDYDL, RPDYDL, RPYOF, RPPYOF, RADLQ, RPADLQ C3600136^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. C3600137^^ M C* CODE FLAG FOR TYPE. C3600138^^ M 69 INTEGER AFLG C3600139^^ M 70 COMMON / UPD / AFLG C3600140^^ M C*** ACTIVITY STRING FOR REACTIVATIONS. C3600141^^ M 71 INTEGER ASREAC(36), COMFLD C3600142^^ M 72 EQUIVALENCE ( COMFLD, ASREAC(9) ) C3600143^^ M 73 COMMON / UPD / ASREAC C3600144^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. C3600145^^ M 74 INTEGER TKEY(8) C3600146^^ M 75 COMMON / UPD / TKEY C3600147^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. C3600148^^ M C* REPORT HEADING RECORDS, NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER. C3600149^^ M 76 INTEGER KHDRX(2), KUPDY(2) C3600150^^ M 77 COMMON / UPD / KHDRX, KUPDY C3600151^^ M C*** AMOUNT TOTAL ACCUMULATORS. C3600152^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PATOFF BUCKETS. C3600153^^ M 78 INTEGER RSWPAY(6,3), RPAY(6), SPAY(6), WPAY(6) C3600154^^ M 79 EQUIVALENCE ( WPAY(1), RSWPAY(1,1) ) , ( RPAY(1), RSWPAY(1,2) ) , C3600155^^ M 79 + ( SPAY(1), RSWPAY(1,3) ) C3600156^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS CURRENT C3600157^^ M C* PAYOFF/TOTAL DUE BUCKETS. C3600158^^ M 80 INTEGER RSWPPY(6,3), RPPY(6), SPPY(6), WPPY(6) C3600159^^ M 81 EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160^^ M 81 + ( SPPY(1), RSWPPY(1,3) ) C3600161^^ M C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162^^ M C* DELINQUENT BUCKETS. C3600163^^ M 82 INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164^^ M 83 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165^^ M 83 + ( SPAD(1), RSWPAD(1,3) ) C3600166^^ M C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167^^ M 84 INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168^^ M C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169^^ M 85 INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170^^ M C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171^^ M 86 INTEGER UPDPAD(6) C3600172^^ M C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173^t FTN 3.3B (OPT = LPC) UPINIT PAGE 5 DATE: 08/30/84 TIME: 0115 t^ M 87 INTEGER UPDPPY(6) C3600174^^ M 88 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175^^ M 89 COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177^^ M C* ADDS, UPDATES, REACTIVATIONS. C3600178^^ M 90 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179^^ M C* RELEASES, SATISFIES, WRITE-OFFS. C3600180^^ M 91 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181^^ M 92 EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182^^ M 92 + ( NUMS(1), NUMRSW(1,3) ) C3600183^^ M C* REJECTS C3600184^^ M 93 INTEGER NUMREJ(6) C3600185^^ M 94 COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186^^ M C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187^^ M 95 INTEGER UPDY C3600188^^ M 96 COMMON / UPD / UPDY C3600189^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190^^ M 97 INTEGER HDLIN(66,3), HDLINT(3) C3600191^^ M 98 INTEGER COLHD(66,2), COLHDT(3) C3600192^^ M 99 EQUIVALENCE ( HDLIN(66,3), HDLINT(1) ), ( COLHD(66,2), COLHDT(1) )C3600193^^ M 100 COMMON / UPD / HDLIN, COLHD C3600194^^ M C*** TRANSACTION CODES. C3600195^^ M C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196^^ M 101 INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197^^ M 102 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198^^ M C*** TERMINAL LOGICAL UNIT. C3600199^^ M 103 INTEGER TLU C3600200^^ M 104 COMMON / UPD / TLU C3600201^^ M C*** COMPARE STRING RETURN INDICATOR. C3600202^^ M 105 INTEGER COMPIN C3600203^^ M 106 COMMON / UPD / COMPIN C3600204^^ M C*** STATUS CODE FOR ACTIVE ACCOUNTS (BLANK). C3600205^^ M 107 INTEGER ACTIVE C3600206^^ M 108 COMMON / UPD / ACTIVE C3600207^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. C3600208^^ M 109 INTEGER NDAONE(5) C3600209^^ M 110 COMMON / UPD / NDAONE C3600210^^ M C*** ASCII CONSTANTS. C3600211^^ M C* BLANKS, '01', '0360' . C3600212^^ M 111 INTEGER BLANKS, A01, A0360(2) C3600213^^ M 112 COMMON / UPD / BLANKS, A01, A0360 C3600214^^ M C*** SIMPLE NUMERIC CONSTANTS. C3600215^^ M 113 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600216^^ M 114 INTEGER N10, N11, N12, N13, N14, N15, N16, N17 C3600217^^ M 115 INTEGER N26, N27, N28 C3600218^^ M 116 INTEGER N30, N35 C3600219^^ M 117 INTEGER N40 C3600220^^ M 118 INTEGER N55 C3600221^^ M 119 INTEGER N66 C3600222^^ M 120 INTEGER N80, N82 C3600223^^ M 121 INTEGER N96 C3600224^^ M 122 INTEGER N132 C3600225^^ M 123 COMMON / UPD / N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 C3600226^^ M 124 COMMON / UPD / N10, N11, N12, N13, N14, N15, N16, N17 C3600227^t FTN 3.3B (OPT = LPC) UPINIT PAGE 6 DATE: 08/30/84 TIME: 0115 t^ M 125 COMMON / UPD / N26, N27, N28 C3600228^^ M 126 COMMON / UPD / N30, N35 C3600229^^ M 127 COMMON / UPD / N40 C3600230^^ M 128 COMMON / UPD / N55 C3600231^^ M 129 COMMON / UPD / N66 C3600232^^ M 130 COMMON / UPD / N80, N82 C3600233^^ M 131 COMMON / UPD / N96 C3600234^^ M 132 COMMON / UPD / N132 C3600235^^ M C*** END OF MACRO DECLARATION. C3600236^t FTN 3.3B (OPT = LPC) UPINIT PAGE 7 DATE: 08/30/84 TIME: 0115 t^ C**** LOCAL DECLARATIONS. C4900045^ ^ C**** USER INFORMATION. C4900047^^ 133 INTEGER ID(4), MODE, PORTNO C4900048^ ^ C**** MONTH, DAY, AND YEAR SYSTEM DATE EXTERNALS. C4900050^^ 134 EXTERNAL AMONTO C4900051^^ 135 EXTERNAL ADAYTO C4900052^^ 136 EXTERNAL AYERTO C4900053^   ^ C***********************************************************************C4900055^^ C* BEGIN PROGRAM. *C4900056^^ C***********************************************************************C4900057^  ^ C**** RETRIEVE USER INFORMATION. C4900059^^ 137 CALL PGMIN ( ID, TLU, MODE, NOPORT ) C4900060^ ^ C**** RETRIEVE SYSTEM DATE, EDIT INTO REPORT HEADING, AND PLACE IN C4900062^^ C**** REACTIVATION ACTIVITY STRING. C4900063^^ 138 100 MONTH = AND ( AMONTO, $FFFF ) C4900064^^ 139 DAY = AND ( ADAYTO, $FFFF ) C4900065^^ 140 YEAR = AND ( AYERTO, $FFFF ) C4900066^^ 141 CALL EDIT ( DATE, N1, HDLIN(32,3), N2, N1 ) C4900067^^ 142 CALL CCSMVA ( DATE, N1, N6, ASREAC, N1, N6 ) C4900068^ ^ C**** RETRIEVE EXTERNAL SWITCH SETTINGS - **NOTE: LOCATION OF SWITCHES C4900070^^ C**** IS SET BY RPG (EQUATE IN R9SWCH). IT IS CURRENTLY LOCATION C4900071^^ C**** $00E3 IN CORE. IF THIS SHOULD EVER CHANGE, THE VALUE OF R9SWCH C4900072^^ C**** IN THIS PROGRAM MUST ALSO CHANGE. C4900073^^ 143 110 ASSEM $E400, +R9SWCH, $C622, $6400, +SWITCH C4900074^^ C** CRACK SWITCH WORD TO GET INDIVIDUAL SWITCH SETTINGS (BITS 1-8 C4900075^^ C** CORRESPOND TO SWITCHES U1-U8, RESPECTIVELY). C4900076^^ 144 J = 2 C4900077^^ 145 DO 120 I = 1,8 C4900078^^ 146 U(I) = AND ( SWITCH, J ) / J C4900079^^ 147 J = 2*J C4900080^^ 148 120 CONTINUE C4900081^ ^ C**** IF SWITCH U4 NOT SET, CONTINUE C4900083^^ 149 130 IF ( U(4) .EQ. 0 ) GO TO 140 C4900084^^ C** ELSE, OPEN OUTPUT PRINT FILE "UPDPRINT" C4900085^^ 150 CALL OPENFL ( REQBPR, IDATPR, ISTAT ) C4900086^^ C** IF NO FILE ERROR, CONTINUE C4900087^^ 151 IF ( ISTAT .GE. 0 ) GO TO 140 C4900088^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900089^^ 152 CALL FILERR ( IDATPR, N3, ISTAT, TLU ) C4900090^^ 153 CALL UPDEND C4900091^ ^ C**** IF SWITCH U2 NOT SET, CONTINUE FOR MAG TAPE UNIT SELECTION C4900093^^ 154 140 IF ( U(2) .EQ. 0 ) GO TO 150 C4900094^^ C** ELSE, OPEN INPUT FILE "UPDINPUT" C4900095^t FTN 3.3B (OPT = LPC) UPINIT PAGE 8 DATE: 08/30/84 TIME: 0115 t^ 155 CALL OPENFL ( REQBIN, IDATIN, ISTAT ) C4900096^^ C** IF NO FILE ERROR, CONTINUE C4900097^^ 156 IF ( ISTAT .GE. 0 ) GO TO 160 C4900098^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900099^^ 157 CALL FILERR ( IDATIN, N3, ISTAT, TLU ) C4900100^^ 158 CALL UPDEND C4900101^ ^ C** MAG TAPE INPUT UNIT SELECTION - IF SWITCH U3 SET, INPUT WILL BE C4900103^^ C** FROM UNIT 1 C4900104^^ 159 150 IF ( U(3) .NE. 0 ) TAPE = MT1 C4900105^^ C** ELSE, CONTINUE WITH DEFAULT OF UNIT 0. C4900106^ ^ C**** OPEN UTILITY FILE. C4900108^^ 160 160 CALL OPENFL ( REQBUT, IDATUT, ISTAT ) C4900109^^ C** IF NO FILE ERROR, CONTINUE C4900110^^ 161 IF ( ISTAT .GE. 0 ) GO TO 170 C4900111^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900112^^ 162 CALL FILERR ( IDATUT, N3, ISTAT, TLU ) C4900113^^ 163 CALL UPDEND C4900114^ ^ C**** OPEN DELINQUENT MASTER FILE. C4900116^^ 164 170 CALL OPENFL ( REQBDM, IDATDM, ISTAT ) C4900117^^ C** IF NO FILE ERROR, CONTINUE C4900118^^ 165 IF ( ISTAT .GE. 0 ) GO TO 180 C4900119^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900120^^ 166 CALL FILERR ( IDATDM, N3, ISTAT, TLU ) C4900121^^ 167 CALL UPDEND C4900122^ ^ C**** OPEN COSIGNER FILE. C4900124^^ 168 180 CALL OPENFL ( REQBCS, IDATCS, ISTAT ) C4900125^^ C** IF NO FILE ERROR, CONTINUE C4900126^^ 169 IF ( ISTAT .GE. 0 ) GO TO 190 C4900127^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900128^^ 170 CALL FILERR ( IDATCS, N3, ISTAT, TLU ) C4900129^^ 171 CALL UPDEND C4900130^ ^ C**** OPEN ADD ACCOUNT FILE. C4900132^^ 172 190 CALL OPENFL ( REQBAD, IDATAD, ISTAT ) C4900133^^ C** IF NO FILE ERROR, CONTINUE C4900134^^ 173 IF ( ISTAT .GE. 0 ) GO TO 200 C4900135^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900136^^ 174 CALL FILERR ( IDATAD, N3, ISTAT, TLU ) C4900137^^ 175 CALL UPDEND C4900138^ ^ C**** OPEN INACTIVE ACCOUNTS FILE. C4900140^^ 176 200 CALL OPENFL ( REQBIA, IDATIA, ISTAT ) C4900141^^ C** IF NO FILE ERROR, CONTINUE C4900142^^ 177 IF ( ISTAT .GE. 0 ) GO TO 210 C4900143^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900144^^ 178 CALL FILERR ( IDATIA, N3, ISTAT, TLU ) C4900145^^ 179 CALL UPDEND C4900146^ ^ C**** OPEN ACCAGE FILE. C4900148^^ 180 210 CALL OPENFL ( REQBAG, IDATAG, ISTAT ) C4900149^t FTN 3.3B (OPT = LPC) UPINIT PAGE 9 DATE: 08/30/84 TIME: 0115 t^ C** IF NO FILE ERROR, CONTINUE C4900150^^ 181 IF ( ISTAT .GE. 0 ) GO TO 220 C4900151^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900152^^ 182 CALL FILERR ( IDATAG, N3, ISTAT, TLU ) C4900153^^ 183 CALL UPDEND C4900154^ ^ C**** OPEN RSWFIL FILE. C4900156^^ 184 220 CALL OPENFL ( REQBRF, IDATRF, ISTAT ) C4900157^^ C** IF NO FILE ERROR, CONTINUE C4900158^^ 185 IF ( ISTAT .GE. 0 ) GO TO 300 C4900159^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900160^^ 186 CALL FILERR ( IDATRF, N3, ISTAT, TLU ) C4900161^^ 187 CALL UPDEND C4900162^  ^ C**** IF COMMENT IN REACTIVATION ACTIVITY STRING BLANK (IF NON-BLANK C4900164^^ C**** EVERY REACTIVATED ACCOUNT WILL HAVE THIS ACTIVITY LOGGED IN ITS C4900165^^ C**** ACTIVITY HISTORY), CONTINUE C4900166^^ 188 300 IF ( COMFLD .EQ. BLANKS ) GO TO 400 C4900167^^ C** ELSE, OPEN PRIMARY TRANSACTION FILE C4900168^^ 189 CALL OPENFL ( REQBTP, IDATTP, ISTAT ) C4900169^^ C** IF NO FILE ERROR, CONTINUE C4900170^^ 190 IF ( ISTAT .GE. 0 ) GO TO 310 C4900171^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND) C4900172^^ 191 CALL FILERR ( IDATTP, N3, ISTAT, TLU ) C4900173^^ 192 CALL UPDEND C4900174^^ C** ATTEMPT TO OPEN SECONDARY TRANSACTION FILE C4900175^^ 193 310 CALL OPENFL ( REQBTS, IDATTS, ISTAT ) C4900176^^ C** IF FILE FOUND, CONTINUE C4900177^^ 194 IF ( ISTAT .GE. 0 ) GO TO 400 C4900178^^ C** ELSE, IF FILE NOT FOUND, SET FLAG TO INDICATE NO C4900179^^ C** SECONDARY TRANSACTION FILE IN USE C4900180^^ 195 IF ( AND( ISTAT, FILNFD ) .NE. 0 ) GO TO 320 C4900181^^ C** ELSE, REPORT FATAL FILE ERROR AND EXIT (NO RETURN C4900182^^ C** FROM UPDEND). C4900183^^ 196 CALL FILERR ( IDATTS, N3, ISTAT, TLU ) C4900184^^ 197 CALL UPDEND C4900185^^ C** NO SECONDARY TRANSACTION FILE IN USE. C4900186^^ 198 320 SECTRF = 0 C4900187^t FTN 3.3B (OPT = LPC) UPINIT PAGE 10 DATE: 08/30/84 TIME: 0115 t^ C**** RETRIEVE REPORT HEADINGS FROM UTILITY FILE. HEADINGS ARE IN C4900189^^ C**** RECORDS HDR1, HDR2, AND HDR3. C4900190^^ 199 400 DO 420 I=1,3 C4900191^^ C** RETRIEVE NEXT HDR RECORD C4900192^^ 200 CALL READR ( REQBUT, RECBUT, KHDRX, ISTAT ) C4900193^^ C** IF RECORD FOUND, CONTINUE C4900194^^ 201 IF ( ISTAT .GE. 0 .AND. AND( ISTAT, WRONKY ) .EQ. 0 C4900195^^ 201 + .AND. AND( ISTAT, EOF ) .EQ. 0 ) GO TO 410 C4900196^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND) C4900197^^ 202 CALL FILERR ( IDATUT, N13, ISTAT, TLU ) C4900198^^ 203 CALL UPDEND C4900199^^ C** SAVE LINE HEADER C4900200^^ 204 410 CALL CCSMVA ( RECBUT, N5, N40, HDLIN(1,I), N2, N40 ) C4900201^^ C** INCREMENT KEY TO GET NEXT HDR RECORD. C4900202^^ 205 KHDRX(2) = KHDRX(2) + 1 C4900203^^ 206 420 CONTINUE C4900204^ ^ C**** RETRIEVE UPDY RECORD FOR CONDITIONAL NON-FINANCIAL UPDATE C4900206^^ C**** PARAMETER. C4900207^^ 207 430 CALL READR ( REQBUT, RECBUT, KUPDY, ISTAT ) C4900208^^ C** IF RECORD FOUND, CONTINUE C4900209^^ 208 IF ( ISTAT .GE. 0 .AND. AND( ISTAT, WRONKY ) .EQ. 0 C4900210^^ 208 + .AND. AND( ISTAT, EOF ) .EQ. 0 ) GO TO 440 C4900211^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900212^^ 209 CALL FILERR ( IDATUT, N13, ISTAT, TLU ) C4900213^^ 210 CALL UPDEND C4900214^^ C** CRACK UPDY RECORD FOR NUMBER OF DAYS SINCE LAST COLLECTOR CHANGE C4900215^^ C** BEFORE HOST A/R NON-FINANCIAL CHANGES ARE ACCEPTED. C4900216^^ 211 440 UPDY = ICCSAD(RECBUT(3))*N10 + AND( RECBUT(4), $0F00 )/$100 C4900217^ ^ C**** READ IN FIRST RECORD IN ACCAGE FILE TO OBTAIN UPDAGE FLAG (IF SET,C4900219^^ C**** PREVIOUS FIELDS IN AGING RECORD ALSO UPDATED ON INACTIVATIONS). C4900220^^ 212 450 CALL CCSBLK ( TKEY, N16 ) C4900221^^ 213 CALL READR ( REQBAG, RECBAG, TKEY, ISTAT ) C4900222^^ C** IF NO FILE ERROR, CONTINUE C4900223^^ 214 IF ( ISTAT .GE. 0 .AND. AND( ISTAT, WRONKY ) .EQ. 0 .AND. C4900224^^ 214 + AND( ISTAT, EOF ) .EQ. 0 ) GO TO 460 C4900225^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UPDEND). C4900226^^ 215 CALL FILERR ( IDATAG, N13, ISTAT, TLU ) C4900227^^ 216 CALL UPDEND C4900228^^ C** IF WORD 13 OR 14 OF FIRST RECORD IS EQUAL TO 1, SET UPDAGE FLAG. C4900229^^ 217 460 IF( RECBAG(27) .EQ. 1 .OR. RECBAG(28) .EQ. 1) UPDAGE = 1 C4900230^^ C** ELSE, CONTINUE. C4900231^   ^ C**** ALL INITIALIZATION OPERATIONS FINISHED, RETURN. C4900233^^ 218 RETURN C4900234^^ 219 END C4900235^t FTN 3.3B (OPT = LPC) UPINIT PAGE 11 DATE: 08/30/84 TIME: 0115 t COMMON  LABEL $0D57 ( 3415)    PROGRAM LENGTH $0183 ( 387)   EXTERNALS 2 AMONTO ADAYTO AYERTO PGMIN EDIT CCSMVA OPENFL 2& FILERR UPDEND READR ICCSAD CCSBLK & t FTN 3.3B (OPT = LPC) UPINIT PAGE 12 DATE: 08/30/84 TIME: 0115 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < * FFFF (65535) 0006 138,139,140*" 0F00 (3840) 0009 211"   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & A01 INTEGER 0D36 D 110,112&& A0360 INTEGER 0D37 D 110,112&$ ACCTFD INTEGER 0001 D 3,10 $$ ACCTST INTEGER 00B7 D 10,12$& ACTIVE INTEGER 0D2F D 106,108&$ ADDAD INTEGER 0B80 D 83,88$$ ADDPAY INTEGER 0B92 D 83,89$$ AFLG INTEGER 0B19 D 68,70$$ ALRACC INTEGER 0AD6 D 43,45$B AND INTR.FN. 7FFF 138,139,140,146,195,201,208,211,214B, ASREAC INTEGER 0B1A D 70,72,73,142 ,* BLANKS INTEGER 0D35 D 110,112,188*$ BUSY INTEGER 070D D 34,37$( COLHD INTEGER 0CA1 D 96,99,100($ COLHDT INTEGER 0D24 D 96,99$( COMFLD INTEGER 0B22 D 70,72,188(& COMPIN INTEGER 0D2E D 104,106&0 DATE INTEGER 0AED D 47,49,50,141,142 0( DAY INTEGER 0AEE D 47,49,139($ DETLIN INTEGER 0A8B D 39,41$" DUMMY INTEGER 0000 D 1,3"$ DUPKEY INTEGER 070C D 34,37$0 EOF INTEGER 070B D 34,37,201,208,2140$ EOFFLG INTEGER 0002 D 3,10 $( FILNFD INTEGER 070A D 34,37,195(0 HDLIN INTEGER 0BDB D 96,99,100,141,2040$ HDLINT INTEGER 0CA0 D 96,99$. I INTEGER 0008 144,146,199,204.& ID INTEGER 0000 132,137&, IDATAD INTEGER 0568 D 17,19,172,174,0 IDATAG INTEGER 05EF D 21,23,180,182,2150, IDATCS INTEGER 0536 D 15,17,168,170,, IDATDM INTEGER 0409 D 10,13,164,166,, IDATIA INTEGER 059D D 19,21,176,178,, IDATIN INTEGER 06F9 D 32,34,155,157,, IDATPR INTEGER 06D2 D 30,32,150,152,, IDATRF INTEGER 0616 D 23,26,184,186,t FTN 3.3B (OPT = LPC) UPINIT PAGE 13 DATE: 08/30/84 TIME: 0115 t, IDATTP INTEGER 0684 D 26,28,189,191,, IDATTS INTEGER 06AB D 28,30,193,196,4 IDATUT INTEGER 0458 D 13,15,160,162,202,2094$ IFLAG INTEGER 0AE4 D 45,47$$ INPBUF INTEGER 070E D 37,39$ ISTAT INTEGER 0708 D 34,37,150,151,152,155,156,157,160,161,162,164,165,166,168,169,170,172,173,174,176,177,178,180,181, n 182,184,185,186,189,190,191,193,194,195,196,200,201,202,207,208,209,213,214,215n. J INTEGER 0007 143,144,146,147., KHDRX INTEGER 0B46 D 75,77,200,205,( KUPDY INTEGER 0B48 D 75,77,207($ LINCNT INTEGER 0ACF D 41,43$$ MADLQ INTEGER 0B06 D 57,60$$ MCCDT INTEGER 0B0B D 57,60$$ MNAM INTEGER 0B0C D 57,61$$ MNCHG INTEGER 0B0D D 57,61$$ MNXTC INTEGER 0B0A D 57,60$& MODE INTEGER 0004 132,137&( MONTH INTEGER 0AED D 47,49,138($ MPYOF INTEGER 0B04 D 57,60$$ MQUE INTEGER 0B08 D 57,60$$ MSTC INTEGER 0B07 D 57,60$$ MSTDT INTEGER 0B05 D 57,60$( MT1 INTEGER 0AFB D 52,54,159($ MTCD INTEGER 0B09 D 57,60$$ MUPDT INTEGER 0B0E D 57,61$& N0 INTEGER 0D39 D 112,123&. N1 INTEGER 0D3A D 112,123,141,142.* N10 INTEGER 0D43 D 112,124,211*& N11 INTEGER 0D44 D 112,124&& N12 INTEGER 0D45 D 112,124&2 N13 INTEGER 0D46 D 112,124,202,209,2152& N132 INTEGER 0D56 D 112,132&& N14 INTEGER 0D47 D 112,124&& N15 INTEGER 0D48 D 112,124&* N16 INTEGER 0D49 D 112,124,212*& N17 INTEGER 0D4A D 112,124&. N2 INTEGER 0D3B D 112,123,141,204.& N26 INTEGER 0D4B D 112,125&& N27 INTEGER 0D4C D 112,125&& N28 INTEGER 0D4D D 112,125&R N3 INTEGER 0D3C D 112,123,152,157,162,166,170,174,178,182,186,191,196R& N30 INTEGER 0D4E D 112,126&& N35 INTEGER 0D4F D 112,126&& N4 INTEGER 0D3D D 112,123&* N40 INTEGER 0D50 D 112,127,204** N5 INTEGER 0D3E D 112,123,204*& N55 INTEGER 0D51 D 112,128&* N6 INTEGER 0D3F D 112,123,142*& N66 INTEGER 0D52 D 112,129&& N7 INTEGER 0D40 D 112,123&& N8 INTEGER 0D41 D 112,123&& N80 INTEGER 0D53 D 112,130&& N82 INTEGER 0D54 D 112,130&& N9 INTEGER 0D42 D 112,123&t FTN 3.3B (OPT = LPC) UPINIT PAGE 14 DATE: 08/30/84 TIME: 0115 t& N96 INTEGER 0D55 D 112,131&& NDAONE INTEGER 0D30 D 108,110&" NOPORT INTEGER 0005 137"$ NUMADD INTEGER 0BB0 D 89,94$$ NUMR INTEGER 0BC8 D 89,92$$ NUMREA INTEGER 0BBC D 89,94$$ NUMREJ INTEGER 0BD4 D 92,94$( NUMRSW INTEGER 0BC2 D 89,92,94 ($ NUMS INTEGER 0BCE D 89,92$$ NUMUPD INTEGER 0BB6 D 89,94$$ NUMW INTEGER 0BC2 D 89,92$$ PAGCNT INTEGER 0AD0 D 41,43$( R9SWCH INTEGER 0AF0 D 50,52,143($ RADLQ INTEGER 0B17 D 61,68$$ RDYDL INTEGER 0B13 D 61,68$$ REAAD INTEGER 0B8C D 83,88$$ REAPAY INTEGER 0B9E D 83,89$$ RECBAD INTEGER 055D D 17,19$0 RECBAG INTEGER 05C4 D 21,23,25,213,217 0$ RECBCS INTEGER 047F D 15,17$( RECBDM INTEGER 001F D 10,12,13 ($ RECBIA INTEGER 058F D 19,21$$ RECBRF INTEGER 05C4 D 23,25$$ RECBTF INTEGER 063D D 26,28$4 RECBUT INTEGER 0430 D 13,15,200,204,207,2114( REQBAD INTEGER 0545 D 17,19,172(, REQBAG INTEGER 05AC D 21,23,180,213,( REQBCS INTEGER 0467 D 15,17,168(( REQBDM INTEGER 0007 D 10,13,164(( REQBIA INTEGER 0577 D 19,21,176(( REQBIN INTEGER 06E1 D 32,34,155(( REQBPR INTEGER 06BA D 30,32,150(( REQBRF INTEGER 05FE D 23,26,184(( REQBTP INTEGER 0625 D 26,28,189(( REQBTS INTEGER 0693 D 28,30,193(0 REQBUT INTEGER 0418 D 13,15,160,200,2070$ RPAD INTEGER 0B74 D 81,83$$ RPADLQ INTEGER 0B18 D 61,68$$ RPAY INTEGER 0B50 D 77,79$$ RPDYDL INTEGER 0B14 D 61,68$$ RPPY INTEGER 0B62 D 79,81$$ RPPYOF INTEGER 0B16 D 61,68$$ RPQUE INTEGER 0B10 D 61,67$$ RPYOF INTEGER 0B15 D 61,68$$ RQUE INTEGER 0B0F D 61,67$$ RSTC INTEGER 0B12 D 61,67$( RSWPAD INTEGER 0B6E D 81,83,88 (( RSWPAY INTEGER 0B4A D 77,79,88 (( RSWPPY INTEGER 0B5C D 79,81,88 ($ RTCD INTEGER 0B11 D 61,67$( SECTRF INTEGER 0004 D 3,10,198 ($ SPAD INTEGER 0B7A D 81,83$$ SPAY INTEGER 0B56 D 77,79$$ SPPY INTEGER 0B68 D 79,81$t FTN 3.3B (OPT = LPC) UPINIT PAGE 15 DATE: 08/30/84 TIME: 0115 t, SWITCH INTEGER 0AF1 D 50,52,143,146,$ TACCTP INTEGER 0AFC D 54,56$$ TADLQ INTEGER 0B01 D 54,56$( TAPE INTEGER 0AFA D 52,54,159($ TDLDT INTEGER 0B03 D 54,57$$ TEMP INTEGER 0AE5 D 45,47$, TKEY INTEGER 0B3E D 73,75,212,213,b TLU INTEGER 0D2D D 102,104,137,152,157,162,166,170,174,178,182,186,191,196,202,209,215b$ TNAM INTEGER 0AFD D 54,56$$ TOTPRT INTEGER 0006 D 3,10 $$ TPYOF INTEGER 0B02 D 54,56$$ TQUE INTEGER 0B00 D 54,56$& TRN301 INTEGER 0D25 D 100,102&& TRN302 INTEGER 0D27 D 100,102&& TRN303 INTEGER 0D29 D 100,102&& TRNBLK INTEGER 0D2B D 100,102&$ TRNREJ INTEGER 0003 D 3,10 $$ TWAMT INTEGER 0AFF D 54,56$$ TWDTD INTEGER 0AFE D 54,56$4 U INTEGER 0AF2 D 50,52,146,149,154,1594$ UPDAD INTEGER 0B86 D 83,88$( UPDAGE INTEGER 0005 D 3,10,217 ($ UPDPAD INTEGER 0BA4 D 83,89$$ UPDPAY INTEGER 0B98 D 83,89$$ UPDPPY INTEGER 0BAA D 83,89$( UPDY INTEGER 0BDA D 94,96,211($ WPAD INTEGER 0B6E D 81,83$$ WPAY INTEGER 0B4A D 77,79$$ WPPY INTEGER 0B5C D 79,81$0 WRONKY INTEGER 0709 D 34,37,201,208,2140( YEAR INTEGER 0AEF D 47,49,140(   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSBLK SUBROUTINE 0156 211"& CCSMVA SUBROUTINE 0120 141,204&" EDIT SUBROUTINE 0020 140"V FILERR SUBROUTINE 0140 151,157,162,166,170,174,178,182,186,191,196,202,209,215V" ICCSAD INTEGER.FN. 014E 211"J OPENFL SUBROUTINE 00C5 149,155,160,164,168,172,176,180,184,189,193J" PGMIN SUBROUTINE 000B 132"* READR SUBROUTINE 0102 199,207,213*V UPDEND SUBROUTINE 0146 152,158,163,167,171,175,179,183,187,192,197,203,210,216Vt FTN 3.3B (OPT = LPC) UPINIT PAGE 16 DATE: 08/30/84 TIME: 0115 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0010 137"" 110 002E 142"& 120 0042 144,148&" 130 0047 148"* 140 005D 149,151,154*& 150 006E 154,159&& 160 0076 156,160&& 170 0083 161,164&& 180 0090 165,168&& 190 009D 169,172&& 200 00AA 173,176&& 210 00B7 177,180&& 220 00C4 181,184&& 300 00D5 185,188&& 310 00E9 190,193&& 320 00FB 195,198&* 400 00FE 188,194,199*& 410 011A 201,204&& 420 0129 199,206&" 430 012E 206"& 440 0147 208,211&" 450 0155 211"& 460 016F 214,217& UPINIT 017E 1  H*K,L14,P06H@P@P@P ?@((@P @P @P@PF@@@@@@P8@PP@@@@@@@@@@@P8 @P&P@P (@P(@P)-@P-@@P.8@P3@@@P38@P86@@@P88@P==@@@P=8@PBD@@PB8@PGQ@@PG8@PL\@@PL8@PQ\@P(S@PS@PTXPR9TOTLdR9LSTReR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@PX@ @ /@ 6@ =@DSaap\\ 2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9XCODR9EDCNR9ECODR9FSTLR9FNBGnR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@ @@@@@@@ J ' Z ^ `@P b d'     €) ǀ   Ҁ+ ؀ ۀ ݀ + ) PR9FDTBPR9RPRTMHLD02UPR9RPGX*T @P`+K+QTVY+_+e)j)oPR9FDTB7PR9RPRTMHLD02UPR9RPGX*T @@@@@ @@@@@@@@@@@@ @@@@@@@ @@@ @ @@@ @@ @@@@@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@ T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :@ "L " T ` m   w !             /   .  2j;yAGL FPTe _`^dT) d' (T)a \`x '\xa Ts8Wਮ^ڨ d T lEn dlPn l @HPGEXTR CCS20 H TT h\h\h  T lEn dlPn l @HPGEXTR CCS20 H TT h\h\h     1 : 840328  " T ` m   w !  840330          /   .  1nj/04: FPTe _`^dT) d' (T)a \`x '\xa T8Wਯڨ d '\ԑ)d  hȝ(h ( h7 ȉhT8ˑn n " "johTH8kkphu\8qaqTrґrn !b\rrn !UTshN\͑8tt hD\Ñ8vuv̶mh9\8w̫xh.\8qyq̠h$\8rzr̖{h\8f|fT` (Tx}  #e 2 \8~T\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- THwxyxTc ! ! , h\跠߷ַy׷ Kh \ݷyٷ۷yڷ 9hTeaݷyط޷޷޷HT Th\h\h\h}JKLMNOPQR0123456789y u _ W QQ hPP hTC?)\@* I;Ⱦ 8Ȼ hT)? 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶ4h\L?ȗ譚 ȩ4h\ER@ء 1T dl\)?\*@$d I*: 7 l\*@ 93 # l \ l,H)T Th\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6Sh Hq``X`HX " h HhB4 "c"Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i (*N,RPTP00,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe*>AhS43ʛ ~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'RPTP00' *B 'R9ELOC' *T *K,I8 *N,RPTP00,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn| 8 @@UU 8 @,@8 @UU1 8@@SF  @(8vň{{gX /@(8v@ŀsl ?@((x8F@K@@@8 P@@@@@P8@8@@86@@8=@@8F@8S@S@ @ /@ 6@ =aapFUU @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ J ' H L N P R' z    )   + Ā ǀ ɀ ̀+ Ҁ) ׁ(*N,POTCAR,,,B ( 8PREPDELQMST CCS20 P  P@P@P@P@P @P@:@<@P@P@P@P@P!@P!@=` @P'@P'@P)-@P-23@P.;@P;@>@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@S@PfDT@UDV@W@X@Y@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhX@PDi^DjdDkjDlpDmvDn@o@pDqDr@sDt@uDv@wDx@y@z@{@|@}@~@P@@@@@@@DDD@ @D@D D&@/@1D3@9@W@P@u@D@D@@@D@@@@0@N@XD\@e@iDy@DD@P@DD@DD@DD@DD@D@DDDDDD#@P=D,D5D=DGDPDYDbDkDtD}DDD@@D@@D@DD@PhDD@D@DD@DDDD@ D!D'D0D9DBDK@PDR@PDXDaDj@sDwD}@DDD@@@@P'@P@P@P@PPR9XLATR9PFCB~R9DSEQYSETLMR9RCADR9TBIOR9INTAR9TBOTR9ITLPR9INIGR9IPBGR9FDC1R9BINP@P@@@ .$@P$@P N $@P$@P N/ $@P$@P N? @P@P@P@P.  SQRVTU WX23  @P @P" < @P(@P*<   ;   :@PF@PH GQ@PM@PO OR  :@P^@P` S@Pe@Pg T@Pl@Pn )U@Ps@Pu ,V@Pz@P| 5W@P@P 8X : @@@P@P     = @P@P @P@P   HP((  ..PR9TRALR9LAHDR9CMOVR9MMOVR9NSQRR9CMSTR9MMSTR9MHLDR9INMKR9CLBGR9DETLR9TOTLR9LSTR@P FFzD@P@P!@<@P @P @P @PA @ )C@ـ@P8@P"L@P"8@P(gz@P)8 @P1@;l@P68@P:@P >@P>@P?D@PDA /@ )=@@PI8@PN FF@P>R@PR T lEn dlPn l PGEXTR CCS20 @HH TT h\h\h     1  0 MMDD YY  " TCUTOFF DATE(MMDDYY)-    1 nj/34;>GP(Y Te^d Tea̴ȤhT # d! (T#o\Zr '\roT 2ڑਞoڨ d '\ԑ#o hȌ(h $ d1 MMhT֑2Lő Mh\2LŴ M˄h\ܑ2Lӑ "M !̴h\ő2L̑ !|T2̚ hp\2L̐he\2L̅h[\2LhP\Ց2L񴁵 hE\ʑ2L򴁵 h:\2L ߄h/\2LԄh$\2LɄh\2L򴁵TZ (Tr$b 2l d2ddddddddrT \ZTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- 'TEFGmFT-j ! ! , h\nG Kh l\ݷGG 9hTeaGHTTh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i (*N,PCARRP,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe0DAho:9Л!$#%~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'PCARRP' *B 'R9ELOC' *T *K,I8 *N,PCARRP,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn@8G8T8]@@@]@ H @ & 5aap>aapGV@uu @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ J R ' ʀ ΀ Ѐ Ҁ ' ) $))GKO+U+[^`c+i+o)t)y(*N,CHGKEY,,,B ( 8PREP =P  P@P @@P8 @P@@P@P@P @@P8 @Pİ]]@P@P @P@P@P@@@P8@Pو @P@P @(v@P8@P{{@P@P@P@P /@(v@@P8@P@P@P@P@P ?@((@P@P@P@PF@@@@@@@@@@@@@@@@@@@P8@P!P@@@@@@@@@@@P!8 @P(P@P*@P*@P+/@P/@P08\]^_Hh" "dL` 3#n 3#l` H s KEYINPUT ACTFIL LAACTFILDELQMST LADLQMST RECORDS NOT FOUND IN MASTER WHILE TRYING TO CHANGE KEY ENTER THE NAME OF THE FILE TO BE PROCESSED .  8Te T{|Tead{} T~~ \~~\~~ \ߑ~~Tˑ~~T (T \̡ '\ T̕%   dפ '\ѡ d d" d\%},  d4T;, ̞ R̗ ̐  (T  hT˕%};}T; ̿  + 1c\ޡ gT;, ͤ O &\ǡ PT;}%} 8 2 <+/lTXH Tf l\%}} h\%}}l\ޢ \> T \̑ Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/LX+PX'TX#X X\X}aXp"Xu(Xa"a X" XIb XFb XCa X@b bX<Ȓ T H Tù dÀT{ TùTTB~~~~~~~~~ h3HHdFhdGDhhdIJTFKhh hHL8@ hk"TċhTĆ h~"  b hvTȤ PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTĎTĝ `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DTù  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhTù̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 mN'd -  hrHr s"htjqh hDh`Hah`I/O REQUEST d     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TĆHX!l TL `u HehdhgXlXvhb"aT|ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhd&‰hhuX|h̺ (BDÀ n&ȫd'ȫ  hJIEhE h h  hh h8H60T{X?X h%`" "h*hT.^_` T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 T*(%!T{ TF \TcȆTɨ \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T|+T{X% hT\H `CT T@ TFhT{h XX T{Tǎ 2X X' h$  X0X XzШ Xhˠ T Tǎ H= X H8X H0TX*@) ɾ\TJ   hTHɼ STOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh?:#@'="0ABCDEFGHI}JKLMNOPQRSTUVWXYZ0123456789@Z{[lP}M]\Nk`Kaz^L~no|J_'OmH"h! HX @    ` `"i ""H"  h"""! 1 hT\ T 0@P`p#$""H h hTF FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7 ?-  T˿)*+Q*TzN ! ! , h\Ȓ̈+̉̈ Kh \+̋̍+̌̍ 9hTeȁ+̊̐̐̐̑HTTh\h\h\h h Hq``X`HX" h   hhhhhTB TTHTTh\hh\hh + )(,/.XH0123456789AREF$ID'*Z    h@ l : TX l ll h@ l \ hlElh hhhh hhT hfg h hظȶ趖? ,Ȱ"!& 1 ,j!#%')/ j 1T>T*v@6 l44 l2 / ! + !l d͉dk l!!   dldf dgT lfg % ͔d \m\@  l !  `ldnl l l l l\lfg d ͊6eolb ͔ ͊"T>T*v 6TX l d^ dd dc l ll  Tijh \hT;h̙ l !  dfdgT hfg\h` l ! dh̹ $p la, l ddx ldbl d( l l l l l l d]̘  l̒ \h̹  ̱͟  ͟T;h\h??̡  ̙͟  ͟Tijh2H/TThV\hD\hB\hhh\hh\h\h\h#h\h\hhVV !K lTCcWT‰rd (//30X,26HERRORS IN TRANSACTION CODE/)\rf %(5X,9HTRAN CODE,5X,15HNE'd 5HOLD ACCOUNT NO.,13X,4HME\ I-0 hF)IL ED.h\OF 1 lh*b  TB h jظ 1 h " < )P dϮ h<\P d̼ !Tij 9ldRl̩ l  dTd\̛  ldRlɬl d d\    !> ḷ l !& !/ l 9!/̫ !+̧ h$Έl !( l 5Tijuv l̻ ̵dl\gTT*vP  0l\\P ldd d:\  ld 9!. !* hĈl̨ l 3\    d !Td l F7̣ 4̠ l̜  0lTT*v ddldddd d fw 1Tij  l m  l  l u\lϮ |$Ό lLdзdڬl{,lLlll ̲ lz,܌lLlެlly,Ќld l ̓ l uTij B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷ Ϯ ̯  Ed l D\̠ ̜  d  9! ! dз$Όl c" l Tij  0l d}̱ k3 dl՜ldϦdϧxdϨydϩzdϪdϫϮ D l{l|dϬdϭl Ty}̻   l  dldldl dTdy l\z l\{Ṋl T;y}}  ̚dl̛dl l\y l\z)" < ) EHp dϮ; dl\ ! !lHdŤlTij̘l\ l\ l  Hll\ˬl d l dϸdϹdϺ d n 1 d +dd dTdϸ l\Ϲ̗  l\ϺdϾdϼdϽʤd  -lܺdldlϮ dl T]ϻT״ϻdl  -ldlld d /̼dϿd$l,ldlLdзllLld߬l,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦf}Ϯ ̜ !̗ ! d~  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l} !5 n̜ ܡ, dϒ̥  ̦ l 7 +l̞dlܚ dn 1 lϑ 0n 1 d 0n 1 d m mdl Ôl̿ !i̻  l̶8Tij l \ ld dl !}  0ṉ}h\ְ#ܫ l̹ l\̳ l  2\̥ l 2Ѐ}h\ l l 2\ l !d  d8Tij l \ l\\ l  ̳}h\ 2ܭ lϮ \ l\\dվd+ !" 8 % l\ܨ 1P\\ϒJ\ϒ\ϓDdd ddld dl`p=l  lܹ 0fϑ.lۜll 1  +d dlTdAld dl -l l l  l 0dϒd !#  l5Tijܘ \ lڜ9ϑh\ lӜ4\ d\̨ld dddl *sl -̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5ϳdзl 0eϑ 4 n ḽḷl 1 l l  1 d "u l +Tij l ! d " ll 8̽ϑh\ܷ "u l  l\̥ l !\̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA RW Ty` h/&hHgaV`H _H H M A cTXFRXB H H\++T++-=:\++-/  HI&Aa%acAD aa h h HR ̱ ȡ H TyԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT3\T3  '" hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  Ty"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ T4B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR Nl H XzԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT4rr HsLoAAd]* FSLIMT(IPTMO|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\rXc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`BSMD4 TڃځڂTK65T10BUFF 6K65T12X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTۨbX&)+25,Ȱ#`X TۨA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tۨbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTۨbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i (*N,PROVE,,,B (TTTf+T*v LATRNSFL  L01TeБבؑT ڑБۑ TJݑޑT̑ " T¨Øȼ "Hd@\ΑՑȣ e h Wؤ 1T 9S 2 0lTI !C dn E1dd lf 1 դh Ȥl l̶ḽḻl̨l d dTʑTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i dH(d(d@Hl>$AlH$?dlH,l,d dB !BTFz+ ; dChT 1 lh\ 1 dh\ 1 lՀh\ 1T lT : d;:</ "#TA'ґ2 dEҔ, l- l. l s$>hl@H$AedF&h_H,ZdG7dH9dI ,l "TFz= dChT 1\' lh\ 1 lh\ 1TBT: d;: !O TAӑDڑD\zD l̲h\ܬ 1\' ḷh\ܝ 1 l̖h\ܐ 1\ܶTړDTFrH\rI  Ti;:/\;:/\rN T:Tf+e(1H1,20A2,12X,39HACCOUNTS BEING PURGED FROM THE SUMHIST ,4HFILE,/,1X,20A2,20X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,20X,14HACCOUNT NUMBER,5X,13HINACTIVE DATE,5X,6HSTATUS,15X,14HBORROWERS NAME,/)(20X,8A2,7X,A2,1H/,A2,1H/,A2,9X,A1,10X,R1,14A2,A1,10X,7A2)(//,54X,21H*** END OF REPORT ***) (/,34H ERROR WHEN UTIFIL RECORD NO FOUND) T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5T939cTh.h;X7H&8%#T#$h$h`  TT  TF T?T 4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ Tȡ`><Ȓ T< H Tv d=T8 TvT 3 DH-j+̾Ⱥ(j'% hȲDhTv̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TCHX TL `u HehdhgXlXvhb"aT9ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ ~}h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdFhhuXh̺ (BD= n&ȫdȫ  hJIEhE h h  hh h8H60T8XLX h%`" "h*hT T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXthNXohXfh:a62Hl20X), H,)H& XXFh a&hh۸nX X h H   HThhh=@ T< XT%T\ XFDh5TFh120-3 T*(%!T8 TF \T CTe \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" T9+T8X% hT\H `CT T<@ TFhT8h XX T8TK 2X X' h$  X0X XzШ Xhˠ T TK H= X H8X H0~TX*@) {\TJ   hTHySTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dhn>Ƚn<ظ 1T3$wȨ !1 h؟T3Kswț ! h (hLnؕ 1} 1T3w HTT* h h h h\h h hfh Hq``X`HX " hHhB4 "c"  hhhhhTWXYSRTUVTWXYSRTUVHTT*h\hh\hh+ )(,/.XH0123456789AREF$ID'*Z   h l : T l ll h l \ hlElh hhhh hhTʠ h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/O 1TT*v6 l44 l2 / ! + !l dd l!!   dd dTʠ % d\\  l !  ldl l l l l\Ơ d4 6l  "TT*v 6T l d d d l ll  Tp\T̙ l !  ddTʠ\ޠ l ! d̹ $Ì l, l d4d ldl d{ l l l l l l d̘  l̒ \̹  ̱  T\̡  ̙  Tp2H/TT*hV\hD\hB\hhh\hh\h\h\h#h\h\hh'd  -0 FED.LAUTIFIL *  T h jظ 1 h V" < )P d h\ d̼ !Tp 9ldRl̩ l  dT!\̛  ldRll d d\ɣ    !> ḷ l !& !/ l 9!/̫ !+̧ h$!l !(L l 5Tp" l̻ ̵dl\gTT*v  0l\"\ ld#d$ d:\ͣ  ld% 9!. !* hĈl̨ l 3\    d !T! l F7̣ 4̠ l̜  0lTT*v d'd(ldd)d*d+ d f 1Tp L l   l  l \ݣMl $! lLd ,d-l,lLlll ̲ l,܌lLlެll,Ќl.d$ /l ̓ l Tp B > : 6  93 % * + l 95 2v  0lo  dM d'lX̺ ̷  ̯  EdL l D\̠ ̜  d)  9! ! d ($!l c"' l Tp  0l ḏ k3 dl՜+lMdddddd D llddl TY̢̻ '  l  dldldl dT!̣ l\ͣ l\ΣṊl T̢ ' ̚dl̛dl l\բ̣ l\Тͣ)N" < ) EHp d; dl\L ! !lHdlTp̘l\ l\ l  Hll\ˬl d3 l d d d d n 1 d4 +dd) dT!  l\ ̗  l\ dddʤ6d5  -lܺdldl dl TTdl  -ldlld7 d8 /̼d9d:$!l,ld;-lLd ,llLld<߬l,l,ތl,l,l  ,Llجٌl̶d=lLlͬlڌlLd>Ԭlܦf ̜ !̗ !M d?  dn 1)   l 7 -ldlN  Ԝl Όl d8 !Y 1TΫ n !M̷ d@̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ d$n 1 l 0n 1 d 0n 1 d#N  M3dLl) Ôl̿ !i̻  l̶8Tp l \ ld4 dl !  0ṉh\Tܫ l̹ l\̣2̳ l  2\ ̥ l 2#h\8 lL l 2\A lM3 !d$  d8Tp l \ l\ \2 l  ̳h\1ܭ l \1 l\ѣ0\ϣ)dBdC+ @!" 8 % l\ ܨ 1P\ \J\\Ddd> d7d=ld$ dl`p=l  lܹ 0f.lۜll 1  +d d3lT!BlB6d5 dl -l l l@  l 0dLdD !#  l5Tpܘ \ lڜ9h\5X lӜ4\A d\B̨ld> d7d=d?l *l ̬ l̩dE ,\̤ l ! l l윳4\ ܯm l@`p5d ,l 0e 4 n ḽḷl 1 l l  1 LdD " l +Tp l ! d$ " ll 8̽h\ ܷ " l  l\ѣ&̥ l !\ţ̶ l !b@aH^H[TT*hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA% TB` h/&hHgaV`H _H H M A cTXFRXB H H\~~TB~~.=:\ث~0~./  HI&Aa%acAD aa h h HR 1 H TBԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTB HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T hgXlXvhb" hh H.uhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  TB"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\II\I@I@T:\ I@C@IT԰I@IB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR / ! H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTŰ HsLoAAd]HHd|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhh@uhi f[G ߂M^@BPCE}GN HJzLLK@H ebb@`CARDRDl'Q8QINIFMESAGE2Q8DFINGEX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T/a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i ClEκ 7̺ " l̻l\Bl(l̫l\BCḽl̯l\BCl* ?ʔ ̣llTЈBCldFdL\Bd̙ll\ڬBClœ !̄ll\ŬB"ll̴l\BCl l̷l\BCl "l AdXʔ  \alnTЈ dql^ ld l!b\հTu} "T 8\ 98$9 d7T>75\5\\\笰5\5\d\̡l l d\ PlTЈϩ Pl\ީ Pl\ Pl\ Pl\װ Pl\Ͱ̺ Pl\ð̰ Pl\&̦ Pl\6̜ Pl\F̒ Pl\Ö Pl "p4dfdi d\\ PlTЈ^ Pl\b Pl\g Pl\j Pl\דϰm\аm̽ Pl\ưt̳ Pl "p`\`Ժ6πUhTǀTh\ d$ll\ݺ`\`Ժ6̰lk l̦ lܪPl llTЈk6b̚ ̗ ̔  dF 'daTзa6 2le 1 [d` l!Q$f l!d"d#dTu} "d8\A6l dG dHdKdL\Ԕ6TЈf6fTܝll\D6dPdQdRdS4#l" I de!D̡l\źG6dFlT>e`al $ dk\kaԺTa\`\`f6\kԔ6ܹHd`d8TЈG6̶ldKdL̰dMdOdll\G6llllllld>d?d@dA\J6l̤lpd<\G6dFḷlli  2, de"2 ddd8lTЈG6ldKdLdMdOd`*,l" H dj!Cll\κG6̛l̽lT>j`al $ dk\kaԺTa\`\`f6\kԔ6ܺevdold8dd?d@\ݺԔ6" 7d` l!/̽l̿l\M6lT>e`adG̢lll\Ԕ6\`f6i]܄ľl\P6dddTЈԺb6b9ld8\P6lpll\ߔԺb6bld>d?d@\ʺJ6d`  de"0̼llll 0daTзa6\V6$b dh\"hb6b dddTЈԺ6Tld8d<\A6\"hb6bdKdLwl̗ -l̾ l\ĺD6̳l̰ le ̈l\Ժ6d`c, l̬l̓ l\A6hA d!M\"hb6b̠l̢ ll3̽$b l !2d8 dd?d@\J6d 2}l "+̆ dd dd8dj`adG̠ldL̼d> 0e l\aԔ6\`f6i" ;%d`d8dflKl\M6 dF/dKdL(dM" A hh l"!5d8TЈA6\kb6b dKT>e`adL h\hf6f hCܓhl\ʺD6dPdQ*d`̱l\M6dFdKdLdMd>d?d@-l̇ld>d?d@TЈV6MdFQlplMl]d8d:`d;\ݺY6dF]dGel=d8\źD6xdP9dQ~h$d8d>Vd?\J6 u h!qe hhhl)d9dj`adLd`qܒ h lƜ"X hQ hG{hylhd8d96 wlTЈM6mdF# VdF OdG SdHdK?dL`dMFd>Cd?@d@\ĺºԔ6" Nh h"!Dd89d9 d<\M6dFT>j`adGdKadLd>TЈºԔ6\`f6i<1hd8d9\ܺP6h\ѺԺ6 7-he hgc!-d8d9\D6O h\Ժ6vh=\aԺ6ú6Eh,̢d8d9TЈ\6"p4 h||d9yd:Gd;  h"bd8_d=\d>.h'dCėhj`\`f6ٺuTd\`\`Ժ6ںL hF\ԓUhԔ6@ h:ThUha,  G hD- h*< h9Rh hyd8vd=|d>DdCzhYd`da\`Ժ6ŨhPd8@dJdKPdLMdMJdNdOCdPdQdChn"hhd8dJdKdLdMdNdOdPdQdR hFhY h7d" n h1"-!hd8[hg\Ժ6غT>e`TЈ`f6ٺ)Td\`\`Ժ6ں h\ߓUhԔ6 hThUha  h hƞh h hi-d8d=d>dCƷhPd8dJ&dKdLdMdNdOdPdQdRdSdTdUhqhkd8dEdFdGdHdJhdKd8d=d>Ud?KdC-h5d8dEdFdG9dJWdKKhd8dJdKdLdMdNihed8dEzdFZdGfdH+dJdKNjh|Cd8d=/d>dCǡhf-d8dE?dFAdGdJdKǿhHd8 dJdKdLdMdNdOdPh}"d8dEdFdGdHdJdKh[d8d=d>[dChEd8dEdFdGIdJgdK;h'd8ed=d>'dCQh}d8dJ?dKtdLdVTЈԺi6Ժish[d8dJdKRdLtdQ\ޓ6ԺȔhs:d8 d==d>dCȪh] d hBh h"Fd8UdV.-XhTIN  1 hhT>`\`TЈ`Ժ6ں hTU wVh M7 3 h D7 3 h ddLdO\պb6ԺbC h@!qd8Zd=td>VdC\h h! dh h!Z_d8 TdT>`TЈ`Ժ6ں\պb6غb h\UhԔ6H_  h\غaԔ6#dLMdMJdO=dP hB9d6h5 d ,d(dH $CAREPEAT    l l l lHTTh\h h h h 1 DISK PGEXTR IPE F 13 T(7 hh h?Th98Tз8:(C h h=\(:8\89 HTTh\h\h\h\h\h C MO00 HD hj 1 h hh h!ThʕʔTзʔʑʂ hh h=\ʂʑʔ\ʔʕؿHTTh\h\h\h\h\hHDR1HDR2HDR3 PAGE 01  DATE RUN MM/DD/YY PGGEN REPORT GENERATOR DATA NAME LIST STARTING DATA EDIT DEC SUB SUB SUB SUB SUB NAME POSITION LENGTH TYPE CODE POS DESCRIPTION NAME1 NAME2 NAME3 NAME4 NAME5C UTKEY CHAINUTIFIL 11C MOVEAHEADER HDR,2 C MOVE HDR3 UTKEY 4 ( UTKEvw DNUTI ")C  TuM "UTЈ̶̷̸̷\M "U hf6ؿ 1\֑M P R O V E - VALIDATE FILE MANAGER STRUCTURENOT MASTER CONSOLEENTER MMUNIT: INVALID MMUNIT NUMBER VLWPS IS NOT 96  . ` dX dY dZ d[ d\ d]Teaͪͫͬ^___ͭ d*TͮTےͯT@pͰ\_\ͱͲ  lȾdbT@͐ͳb^ͳhTݗ͵ lT݋Ͷ h\d+\+d # 'TZ͗ͷ͸ h\h\͹d,lȌ h\d`͹ h\daTA,ͻ`)lD kT٦dT+dg\,dh\-di\.djTZJ*θTe\f\d\n dͼch\ 1T lIlTٱ`E-+Gl\`-`+ $ͻh\,` d+A,d\,?l d) ,l .T@͢ͽTf+%(14H1 PROVE RUN ,A2,1H/,A2,1H/,A2,4X,I6,//,15H VOLUME LABEL ,4A2,///)H@ @ `AL$$  h h (h>= : (h54  (h-, TZ'* (̀hT (Āh\T (hTNB  hدȬ \R+*ҎTִ dd @ h @1G 2 @$hTA,J-*d+ dߜ 2 d `,]h б l `,[h `,ބXhTٱ1+ `,ьhTٷ5/+ `,Ōh\53+\1/+TN3  TZ=*ҪTT `,dJϤ * `,Zh\/d 8\Z?*ў\\ `$h\1 8\Z@*ѱ\\TA,/d+\ZB*\\\/ \ZC*\\\3 \ZD*\\ d `,\lɔ  l `,dJʔ  l `,l˔  l `,l̔  l dϔ lה lޜ l l `$l  ̣  TZO*TT `,XhTN= 3TD d d l  \ZT*\\\  ddJn7ծۜ  \ZV*ҽ\\\ dlnܯTٱ-5-+SH  TZ\*8T\HTG Dd d!Κ Η \Z`*V\h\\\ lΚ Η \Zc*\̀7h\\1\Re* l ,dJ" \Zh*҃ ,h\ ,h\ ,hT ,h\T(9H NFCB = $,Z4,17H KEYBA TOO SMALL) (9H NFCB = $,Z4,17H KEYBA TOO LARGE) (9H NFCB = $,Z4,19H NO *AL* IN HEADER) (9H NFCB = $,Z4,27H HEADER ADDRESS ERROR, FCB) (9H NFCB = $,Z4,24H HEADER SIZE ERROR, FCB)(9H NFCB = $,Z4,25H HEADER OWNER ERROR, FCB) (9H NFCB = $,Z4,30H FIAT DISAGREEMENT, MASK = $,Z4) (33H FILE COUNTS CONFLICT: NFILES = ,I5,12H, VLCURF = ,I5)(21H FIAT LEFTOVER, FIAT(,I5,5H) = $,Z4,10H FCB IS $,Z3,1H0,24H+ BIT POSITION ( F - 0 )) (5H ASD:,4(3H $,Z4)) (50H VLLBL DISAGREES WITH ASD - LARGEST HOLE AVAILABLE) (9H NFCB = $,Z4,17H FILE SIZE ERROR) (9H NFCB = $,Z4,29H FDB DISAGREEMENT, MASK = $,Z4)(20H FDB LEFTOVER, FDBX(,I5,5H) = $,Z4) (//35H "ASD" WITH ALL FILES REMOVED IS: //)(21H ZERO LENGTH HOLE: $,Z4,1H,,Z4)H ԵTN/ " $)h\/ 2t h (h t (Ӏh\/d # hh՘!8 (h (h10n (h (h&%f (h (hf (h (h fȏ dܚ $h3n ,h4n ,h/n ,h0n ,hTN1d !l) l +TZ;*TT ,€h ,hTٱ+ ,hTٷ/+̨ llΜ!6 ,dT ,hf ,l ,hf $l ,dӔf ,l ,lf $h ,h\+TN/d ") l +TZI*TT ,Ӏh ,΀hTٱ+ ,Àh ,hTٷ+̴l˜!6 ,dT ,lf $l ,dӔf ,l ,lf ,l ,lf l3l4l/l0l $)l nd l!3 ,l ,ln ,l ,ln ,l ,ln ,l ,lTn l܇̯d̯l̰ḻlTN1d "̩ l +TZj*TTTٱ+Tٷ/+ d̈!3 ,l ,dӔf ,l ,lf ,l ,lf ,l ,lf $)l3n ,dT4n ,l/n ,l0n ,l n ,ۀh ,h\+TN/d !e l +TZ~*TT ,h ,hTٷ1+ ,l f;(6H FCB $,Z4,40H OVERLAPS FILE SPACE WITH LARGER ADDRESS) (6H FCB $,Z4,41H OVERLAPS FILE SPACE WITH SMALLER ADDRESS)HTThh4hh  h  ! h h  h 5 hHTTh h\h h `IAhTݾ8a h f]1EhFh d7 @ h @1 1$ @(h TA,ֱ^*h h 1 `(€hTqTٱ^5^+صH`7h hFhTjֺ h U1l4 o/J 1.IAd% h] /n hhTٱָEָ+Tٷָ5ָ+ȹFlTA,־ָhTZ5*+T7\TV\Z7*E\7\Ș]h\\E(6H FDB $,Z4,32H INDEXES UNALLOCATED OVF BLOCK $,Z4)(6H FDB $,Z4,31H INDEXES MULTI-USED OVF BLOCK $,Z4,25H PREVIOUS REFERENCE FDB $,Z4) HTT h hhh?@ @ ` h hm  h 1 e h hYhXh 1IAhp8hDף˜F i hAhTٱׁ-ׁ+TA,צׁh / h' 4ب 1D h h7蜦ׂ )ȕ`dRmeTZ>*T\7TM\Z@*\\7\B\ZB*\\7\7 dפhTfג 1\ZG*G\7 l爼h\ 1 lۀגh\ 1\\ lɈh\n€h\fךܹ 1\ZM*+ ḽhTܦ 1 l̟גh\ܙ 1TTZN*9 dפh\ 1 lגh\ 1\(31H NO FCB FOR FDB ENTRY, NFCB = $,Z4,10H, NFDB = $,Z4)(31H NAME/OWNER ERROR, NFCB = $,Z4,10H, NFDB = $,Z4)(31H FDB MULTI-MARK, NFCB = $,Z4,10H, NFDB = $,Z4)(8H FDD : ,8(X,Z4),2X,8A2) (8H FCB : ,8(X,Z4),8X,8A2) (25H FDD HASH ERROR, NFDD = $,Z4,X,8(X,Z4),2X,8A2,3H $,Z4) "@!HHTT hh" hhhhh\h"T݋ً h\٢h h\يn 1 H TT hh hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\h-\h,*`TSTwTځ 6fbf b l ` hhh3h hT dT`DhHTTh\h\h h\hh!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`$$  l=Teڠڤڥڦ l2 l- l(ܘ l# dRlZըh dRl h dRl HTTh H" 2 1 `h"Ƞ 2 1 `ȸX hh hTea=Tea hX X:XjDhBhTeaNXo X /6Ȉh}Ȉ{h~hhTeac ۍh [YlX7 X! 1 OhF?X& Xlh=19116h h+&Ȉ$h h ! hTea$TeaX Xȟ h H !bhΐjTeaێXTea$X X\h! 1 Oh^! 1 hhX X8XhBh@h?h Ȉ7h ' jTeaNO$|hhy TeaN !h h hTeaOX=! uyntXy+ !ijeͤ _nXdhHH TePTU h@  PAUSE Xo Xl)hyX` Xw= lhtoȠ lbel blhbVHݕݖH"h"hC   1 h7 nH TT h\hX/X+X'X# XX}XޡXާXa"a X" XIb XFb XCa X@b bX<Ȓ T H TN tdT TNTT  h3HHdېhdDhhdGTFKhh hHL8@ hk"T hT h~"  b hvT9 PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌT#T2 `h Dh XX\\ TaH #h! TlT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DTN  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TlT aH> 3 DH-j+̾Ⱥ(j'% hȲDhTN̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0  l0'd  n , hrHr s"htjqh hDh`Hah`I/O REQUEST T)     X XX*EX XX&X+@XXX< XwhHh h,h*X" uh$ h!X ~h hX ThX THXEC_kDE TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+X VUh n ;ln  H T` + ȋXh؆1   HhH㞚  TlT hhhhdhhuX|h̺ (BD n&ȫdȫ  hJIEhE h h  hh h8H6t0TX?X h%`" "h*hT T h hhh ll X# Xhh@4i` Xj TlT Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 Tl*(%!T TF \TT= \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT# 2X X' h$  X0X XzШ Xhˠ Tl T# H= X H8X H0VT[X*@) S\TJ   hTHQW oSTOP PAUSE FMPA h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$阈l !( l 5TH00 l̻ ̵dl\gT[T*v  0l\\ ldd d:\  ld 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lT[T*v ddldddd d fA 1TH  l 7  l  l ?\Člx F$阌 lLdꁤdlE,lLlll ̲ lD,܌lLlެllC,Ќld l ̓ l ?TH B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷ x ̯  Ed l D\̠ ̜  d  9! ! d$阌l c" l TH  0l dG̱ k3 dl՜ldpdqBdrCdsDdtdux D lElFdvdwl TCG̻   l  dldldl dTC l\D l\EṊl TCGG  ̚dl̛dl l\C l\D)" < ) EHp dx; dl\ ! !lHd鏤lTH̘l\ l\ l  Hll\ˬl d l ddd d n 1 d +dd dT l\̗  l\dddʤd  -lܺdldlx dl T'T~dl  -ldlld d /̼dd$l,ld鲤lLdꁤllLld߬l,l,ތl,l,l  ,Llجٌl̶d鴬lLlͬlڌlLdԬlܦfGx ̜ !̗ ! dH  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ lG !5 n̜ ܡ, d\̥  ̦ l 7 +l̞dlܚ dn 1 l[ 0n 1 d 0n 1 d 7 7Ądl Ôl̿ !i̻  l̶8TH l \ ld dl !G  0ṉGh\6 ܫ l̹ l\̳ l  2\̥ l 2隀Gh\ l l 2\ lĔ !d  d8TH l \ l\\ l  ̳Gh\ܭ lx \ l\\dd+ !" 8 % l\ܨ 1P\\\J\\\]Ddd ddld dl`p=l  lܹ 0f[.lۜll 1  +d dlT l鹤d dl -l l l  l 0d\Üd !#  l5THܘ \ lڜ9鋀[h\ lӜ4\ d\̨ld dddl *=l ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5}dꁤl 0e[ 4 n ḽḷl 1 l l  1 Üd "? l +TH l ! d " ll 8̽[h\ܷ "? l  l\̥ l !\̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T` h/&hHgaV`H _H H M A cTXFRXB H H\T=:\/  HI&Aa%acAD aa h h HR kPALTS H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T NE&FCBSCT hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ TB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR \\ H XEԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT<< HsLoAAd]aH> 3|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\<Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`FMPA08ABSADDl FDWADDٱFMPL01K65CX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTrbX&)+25,Ȱ#`X TrA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Trbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTrbȰ#`X`!dB2 @rdR@`/@o(*N,REBILD,,,B (r 00FILE $$ SYSVOL MHST LATAPARC LAUTIFIL  "RSW1" RECORD NOT PRESENT IN UTIFIL VALUES IN "RSW1" RECORD -- NOT NUMERIC. RSWLADLQMST LAADDACT DELQMST NAME CHANGE KEY-INDEX ERROR *** PROGRAM CONTINUING...Z  TemTm Ty\Tϙ (Tǘ\՘홢Ⱥ '\홠T #ȪȤ '\ۘT^#-- Tڙ#T # '\\#qTՑq &\홪kT# T\ T\Ց̵ 1Tǘ홨\ؑTՑ̝ +̚\황\ҖTՔq 2^\ɘ홱T͘ՙ\ Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T z7h 3 -@hT~j h ( h\ߛ@{\2Teay\5~= HTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i Hh HX ` `"i \Ñ dTי\ӑXטb̨,̢&̜ '\p lT1Xט '\pTSJב\ƒיd drh\j -լ cTAhTƘJ Iπh\̮ '\ۑ_\Jj̶h\Jޔ 1̤ l! d̙ ddKTט d# ? #  ll-\{T7͒טsQK (TA  d TU{  (A2,1H/,A2,1H/,A2) lf̥ l 1TSԑטT3͒ט̴ '\*Tי\Jב\ݒԑט\֘JsT9͒טs̊ '\ jTza dDhTE 1\T{(1H1,20A2,8X,27HACCOUNT MOVEMENT TO HISTORY,42X,5HPAGE ,I3) \zc lȀXh\ 1 dh\ 1 ḽlh\ܧ 1\\\\(1X,20A2,12X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,9X,15HAS OF: RELEASED,I3,17H DAYS, SATISFIED ,I3,19H DAYS, WRITTEN-OFF ,I3,5H DAYS,/,1H0,15X,7HACCOUNT,9X,9HBORROWERS,24X,8HINACTIVE,9X,4HDATE,5X,14HDATE LOST WITH,/,16X,6HNUMBER,10X,4HNAME,30X,6HSTATUS,8X,28HINACTIVE TAPE ARCHIVE DATA,/)Tzh dhTE 1 lh\ 1 l $h\ 1 lӀh\ 1 dzh\ 1T{(11X,8A2,4X,R1,14A2,A1,3X,6A2,5X,A2,1H/,A2,1H/,A2,4X,4A2) ̎  ddT^’טTlTudTI\˜Teaۘ阇ژϑ l\Ҙ’Ԙ\\Ԙlլ֜Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $TS7h 3 -hT&j h ( h\ߠ\Tea󠈠\HToT}h\h\h\hhX/RX+VX'ZX#^ XbX}gXv(X{.Xa"a X" XIb XFb XCa X@b bX<Ȓ T H T dT TTTǣ h3HHdbhdcDhhdTFKhh hHL8@ hk"ThT h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhw8h:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX T!hX THXC &*2 TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdBhhuX|h̺ (BD n&ȫdCȫ  hJIEhE h h  hh h8H60TX?X h%`" "h*hTz{| T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 T*(%!T TF \TT \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT 2X X' h$  X0X XzШ Xhˠ T T H= X H8X H0TX*@) \TJ   hTH STOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:DhC  "XiaX}6  "X\aX)a#"Xh"a` aX aXU#"XP X3aX aa  "X# a! a"X a az a a a p a_a( a! a"Xs^aXX1 aA a a! a"X a! a"XS a! a"XL2a a Da  a  a  a! a"X 3 ! a! a"X  H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @Hh"h H  F` 4@""H"  h"""! 1 hT\dT 0@P`p#$""H h hTFh  hhhhhT`THToT}h\hh\hhʧ+ )(,/.XH0123456789AREF$ID'*ZHbhdcDhh d  h l : Tt l ll h' l \ hlElh hhhh hhT) h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/ 1TT*v6 l44 l2 / ! + !l dd l!!   dd dT) % d31u\\  l !  ldl l l l l\Ʈ df 6l  "TT*v 6Tt l d d d l ll  TϮ\TW̙ l !  ddT)\ޮ l ! d̹ $ l, l dfd ldl d l l l l l l d̘  l̒ \̹  $̱  $TW\Į̡  $̙  $TϮ2H/ToT}hV\hD\hB\hhh\hh\h\h\h#h\h\hh'd  -0 FPRO mED.* kP T h jظ 1 h " < )P d3 h\ dH̼ !TϱJ 9lJdRl̩ l  dLTHL\J̛  lMdRlNl dO dP\ɱJ    !> ḷ l !& !/ l 9!/̫ !+̧ h$Sl !(~ l 5TϱJAX l̻ ̵dl\OLgTIT*vJ  0l\T\ ldUdV dF:\ͱJ  ldW 9!. !* hOĈl̨ l 3\J    dL !TOL l F7̣ 4̠ l̜  0lTIT*v dYdZldPd[d\d] dF f 1TϱJJ ~ l   l  l \ݱJl3 $S lLd<^dO_l,lLlll ̲ l,܌lLlެll,Ќl`dV al ̓ l TϱJJ B > : 6  93 % J\ ] l 95 2v  0lo  d dYlX̺ ̷ 3 ̯  EdG~ l D\J̠ ̜  d[J  9! ! d<Z$Sl c"Y l TϱJ J 0l ḏ k3 dl՜]ld+d,d-d.d/d03 D lld1d2l T̻ YG  lP  dldldl dLTL l\L l\LṊl T Y ̚dl̛dl l\հL l\аL)" < ) EHp d3; dHl\HL~ ! !lHdJNlTϱJ̘l\J l\J l  Hll\Jˬl de l d=d>d? dF n 1 df +dPd[ dLT=L l\>L̗  l\?LdCdAdBʤhdg  -lܺdldl3 dl TJ@T9@dEKl  -ldlldi dj /̼dkDdl$Sl,ldm_lLd<^llLldn߬lL,l,ތl,l,l  ,Llجٌl̶dolLlͬlڌlLdpԬlܦf3 ̜ !̗ ! dq  dFn 1[  E l 7 -ldl  Ԝl Όl dj !Y 1TΫ n !M̷ dr̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dVn 1 l 0n 1 dF 0n 1 dU  ed~l[ ÔEl̿ !i̻  l̶8TϱM lP \P ldf dl !  0ṉh\ܫ l̹ l\̱d̳ l  2\R̥ l 2Uh\j l~ l 2\s le !dV  dF8TϱM lP \P l\R\d l  ̳h\gܭ l3 \ֱc l\ѱb\ϱ[EdtCdu+ r!" 8 % l\Rܨ 1P\R\J\\DdLdp didoldV dFl`p=l  lܹ 0f.lۜll 1  +dP delTtLlthdg dl -l l lr  l 0d~dv !#  l5TϱMܘ \Q lڜ9Fh\ lӜ4\s dL\tL̨ldp didodql *l ̬ l̩dw ,\M̤ l ! l l윳4\Rܯm lr`p58d<^l 0e 4 n ḽḷlF 1 l l  1 ~dv " l +TϱM l ! dV " ll 8̽h\ܷ " l  l\ѱX̥ l !\űM̶ l !b@aH^H[ToT}hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T` h/&hHgaV`H _H H M A cTXFRXB H H\Tܹ`=:\عb`/  HI&Aa%acAD aa h h HR BL H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTܹKK HG9Qs>L1a: Lw T&RH5 I  vR  LaT \KT  KICKOF hh H`uhi[G M^@BPCE}GN HJzLLK@#y a%XH!""" A#*   "!"X# a1rX""  "!f" !" f""" f" "a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@TܵX -`" ` c1Xd 2QTܵqX c1XjT[Zd@X #  a` aܐ!XsTܸYD]@XX a Ea a! a"Xh a! a"X a  +a `"d` 5 aX aaXa `aBP@@#4Sh h` ` ``TܵBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p XG` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ T!B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR H XީԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT!__ HsLoAAd]LK^SCHLNGxMT|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\_Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`Q8QX EQ8MOVEQ8QZ 8Q8QUN1Q8QUN2Q8FPUTX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`Xa#`XT•bX&)+25,Ȱ#`X T•A a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T•bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT•bȰ#`X`!dB2 @rdR@`/@oȶ趖. ,Ȱ"!& 1 ,j!#%')/Y 1TÔ-T*v/6 l44 l2 / ! + !l dxdZ l!!   d[dU dVT[UV % Ƀd\\\/  l !  Old]l l l l l\[UV d y6T^lQ Ƀ y"TÔ-T*v 6T& l dM dS dR l ll  TW\WT W̙ l !  dUdVTWUV\WO l ! dW̹ $_ lP, l ddg ldQl d l l l l l l dL̘  l̒ \W̹  Ɏ̱  ɎT W\W..̡  Ɏ̙  ɎTW2H/T!T/hV\hD\hB\hhh\hh\h\h\h#h\h\hh'd  -0 FED.* T1 h jظ 1 h " < )P d˝ h+\? d˲̼ !T˴ 9l˴dRl̩ l  d˶T2˲˶\˴̛  l˷dRl˸l d˹ d˺\˴    !> ḷ l !& !/ l 9!/̫ !+̧ h$˽l !( l 5T˴ l̻ ̵dl\˹˶gTÔ˳T*v?˴  0l\˾\? ld˿d d˰:\˴  ld 9!. !* h˹Ĉl̨ l 3\˴    d˶ !T2˹˶ l F7̣ 4̠ l̜  0lTÔ˳T*v ddld˺ddd d˰ ff 1T˴˴  l \  l  l d\˴錾l˝ k$˽ lLd̦d˹ɬlj,lLlll ̲ li,܌lLlެllh,Ќld l ̓ l dT˴˴ B > : 6  93 % ̴  l 95 2v  0lo  d dlX̺ ̷ ˝ ̯  Ed˱ l D\˴̠ ̜  d˴  9! ! d̦$˽l c" l T˴ ̴ 0l dḻ k3 dl՜ld˕d˖gd˗hd˘id˙d˚˝ D ljlkd˛d˜l Thl̻ ˱  l˺  dldldl d˶T2h˶ l\i˶ l\j˶Ṋl T*hll  ̚dl̛dl l\h˶ l\i˶)" < ) EHp d˝; d˲l\˲˶ ! !lHd˴˸lT˴̘l\˴ l\˴ l  Hll\˴ˬl d l d˧d˨d˩ d˰ n 1 d +d˺d d˶T2˧˶ l\˨˶̗  l\˩˶d˭d˫dˬʤd  -lܺdldl˝ dl TL˪Tӣ˪d˯˵l  -ldlld d /̼dˮd$˽l,ldפlLd̦llLld߬l˶,l,ތl,l,l  ,Llجٌl̶d٬lLlͬlڌlLdԬlܦfl˝ ̜ !̗ ! dm  d˰n 1  ˯ l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ ll !5 n̜ ܡ, dˁ̥  ̦ l 7 +l̞dlܚ dn 1 lˀ 0n 1 d˰ 0n 1 d˿ \ \dl Ô˯l̿ !i̻  l̶8T˷ l˺ \˺ ld dl !l  0ṉlh\ܫ l̹ l\̳ l  2\˼̥ l 2˿lh\ l l 2\ l !d  d˰8T˷ l˺ \˺ l\˼\ l  ̳lh\Hܭ l˝ \ l\\˯dѭd+ !" 8 % l\˼ܨ 1P\˼\ˁJ\ˁ\˂Dd˶d ddld d˰l`p=l  lܹ 0fˀ.lۜll 1  +d˺ dlT2˶0lޤd dl -l l l  l 0dˁd !#  l5T˷ܘ \˻ lڜ9˰ˀh\ lӜ4\ d˶\˶̨ld dddl *bl ̬ l̩d ,\˷̤ l ! l l윳4\˼ܯm l`p5ˢd̦l 0eˀ 4 n ḽḷl˰ 1 l l  1 d "d l +T˷ l ! d " ll 8̽ˀh\"ܷ "d l  l\̥ l !\˷̶ l !b@aH^H[T!T/hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA TG` h/&hHgaV`H _H H M A cTXFRXB H H\T޹=:\/  HI&Aa%acAD aa h h HR H TGԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT޹ԵԵ HG9Qs>L1a: Lw T&RH5 I  vR  LaT"\ԵT" LUNTeSYSL hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  TG"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ T#B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR DWAD H XYԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT#aa HsLoAAd]|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\aXc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`MU`dEXTSTKIOVFVOLmPTX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTחbX&)+25,Ȱ#`X TחA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tחbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTחbȰ#`X`!dB2 @rdR@`/@o  REBUILD FILEN DUP KEY:  RECORDS = 000  COPYING BACK DELQMST LADLQMST ` Te@hTe^h_h~TeaUVT勑WTKXXO\PXXTThYZY\[X[XT櫑\Tő]Ȝ 'T璑]^\푎_T网-]Ȉ &\]^TÑ]] &\ޑ]^\U^\UX\U\TeaU^-d2`1p4chTm-@aTH\\\\c\a@v \c\\\adMdd;djT櫑\Tɑ] &\Б]^\\ d2  l dTő]̰ &\]^\]̤ &\]^\Ñ\d\ߑ]̐ &\]^ ldT籑]]f de 'T璑]^d 2̜ T緑] &\]^  dkۜ", dd-ddThlh\߀hT絑]nn]  &\]^#T璑] dm̳h\nTeaUm o/TZ/;\;_Z0pZ l\U0qkpe &TÑ]T櫑\TǑ]̗ &\]  d T绑-]] 'T璑]^\Α]Tf+T*v,,,,,,,,, ,,, SYSVOL ZMP ThNGHNGTea{N \HHH Țh Tf+ h\JGN h hhTNIh hThȱ h\NGȧh\NIh ho\hkȗ hi\Nȍ d \Gd\NIl hG\hC hAThN d  h/\NHl\NIl͜ h\h h\N̽ d \GHTThwhhhh\hh\\h l & lT  ! lhHTTh\h\hh\h h "h H TTh\h00 >h hn9 1  00l- (dh -&l# h 1p8(h͘ 0hA hȨ  @m Ȼ@mp8hȭ h !@HHTTh\ h h hhhnoHhllHTTh h\h h h7 nH TT h\h FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #FFCLOSCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS UPDRECDELRECCOMFILVOLUSEREDUCE7?-  PAUSE @ThT;l ! ! , h\0 Kh \!#"# 9hTea% &&&0 Ȼ   \%'1%20  Tf+HTTh\h\h\hh\hX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`h Hq``XD`HX<" h @` `@X(""``Tm\ ``@ `@X ""`\$HhB4 "c"  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  TY"" R1 H XRRt`pH3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i (*N,UPD500,,,B (  UPD500 REQUIRES A QSS FROM CONTROL DATA.,TeaTf+T*v(*N,CHGREC,,,B ( 8PREP =P  P@P@P@@@P8@P @P@P @(v@P8@P{{@P@P@P@P /@(v@@P8@PÀ@P@P@P@P ?@((@P@P@P@PF@@@@@@@@@@@P8@PP@@@@@@@@@@@P8 @PP@P@P@P@P@P8@P @P8@P@P8@P#@P8@P0@P8@P ?@P 8@PH@@\]^_Hh" "dL` 3#n 3#l` H s KEYINPUT ACTFIL LAACTFILDELQMST LADLQMST RECORDS NOT FOUND IN MASTER WHILE TRYING TO CHANGE KEY ENTER THE NAME OF THE FILE TO BE PROCESSED . , 8Te Tv|Tead{} T~~ \~~\~~ TƑ~~T (T \̡ '\ T̕%   dפ '\ѡ d d" d h9\%]},  d4T;, ̛ O̔   )T T%};}T󡥑;  * 1b\ࡽ fT;, ɤ O &\ʡ PT;}%} 8 2 <+/lTSH Ta l\%}} h\%]}}l\ޢ \> T \̑ Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/GX+KX'OX#S XWX}\XkXp#Xa"a X" XIb XFb XCa X@b bX@ 2  N   N/  N? 2 ?( ( ( ( ((   ( (( ( (((  B 8 @@TT8 @0#@8 @TT5 8@@WJ  @(8vň{{k\ /@(8v@ŀwp ?@((|8F@@@@@@@@@@8 P@@@@@@@@@@P›88 8@@87@@8>@@8E@8R@8]@]@ @ @ 0@ 7@>@ETaap]] D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@ J ' l p r t v'     Ӏ) ؀   +    + ) @P' ( ( ( ((  @PR ( (( ( (@P}((  9Be Ԁ@P@P @@@P8 @PTT@P@P@P@P @@P8 @P@@P@P@P @@P8 @PİTT@P@P @P@P@P@@@P8@Pو @P@P @(v@P8@P{{@P@P@P@P /@(v@@P8@P@P@P@P@P ?@((@P@P@P@PF@@@@@@@@@@@P8@P!P@@@@@@@@@@@P!8 @P(P@P*@P*@P+/@P/@P08@P5 @P58@P:@@@P:8@P?7@@@P?8@PD>@@@PD8@PIE@@PI8@PNR@@PN8@PS]@@PS8@PX]@P*Z@PZ@P[_PR9TOTLfR9LSTRgR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@P_@ @ @ 0@ 7@>@ETaap]] D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9XCODR9EDCNR9ECODR9FSTLR9FNBGwR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@ @@@@@@@ J  ' l p@P  r t v'     Ӏ) ؀   +    + ) PR9FDTBPR9RPRTMHLD02UPR9RPGX*T @P@P@P T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :@ "L " T ` m   w !             /   .  1./3 FPTe _`^dT\) d' (T{)a \`x '\xa TH8Wਵ3ڨ d &\ԑ)d s hȤ(h ( h7 RNTlȎ hFT8#mmj h:\8#nonph/\8#qrh$\ޑ8#sts߄uh\ӑ8#fvfTN` (T{xw 7e 1 \8xrTZ\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7;?- .Tٶڶ۷T ! ! , h\A8۷98 Kh \ݶ۷;=۷<= 9hTea?۷:@@@AHTTh\h\h\h h Hq``X`HX " hhHhB4 "c"H h HX  sD  1  : E /` `"i (*N,PURGE,,,B (Q Na8",a 0 N Bl R   B R / B@a@@ab@a@ OK XXXXXXXX/ XXXXXXXX/ XXXXXXXX : DELETED DELETED CURRENTLY OPENFM ERROR VOLUME XXXXXXXX NOT MOUNTED NOT FOUND  ENTER OK TO DELETE 1 PURGE FILES      D   " #2 hTeΒ./Te012Tea03$45T67 hTz99: J\;;+\<;;,Ȟ Ț T;<;ȏ \Б=;;:\<;;Ȋ \=;;T8 8 "T8 2\>;; d?T9T?+@@A 'Tz@0BTzCCCDD  l, \G;;D TC;Ӓ>;\G;ӒE;\񑐑;ӒF;\CCC\㑐;=;Gd0Hx -3 ,Tea03I5 ll\J\03ӒK3;5Ll5   TzMёMDD T@@ 11 #B  'Tz@0ܜT;ӒNC\ JӒNC\4ӒN4\;ӒNC\;Ӓ>;\ّ<;ӒE;\ґ=;ӒF;Tea03ӒO5+ : \;J;\03P5Tf+T*v,,,,,,,,, 00001243000000000019 ,, OR (CR) ,ZMP000000000000 TxTeayzJ{z|} \yz~ Țh hm\ڔ h hhTWhØ hVTwhQȹ hO\Ȱh\h h<\h8Ƞ h6\ȗh\̔h h#\͕h hT d  h \0000HTDTRhhhh\\\Z000000 l & l100900T1  ! lhHTDTRh\h\hh\h2248 h "h H TDTRh\h h7 n H TDTR h\h  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #FFCLOSCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS UPDRECDELRECCOMFILVOLUSEREDUCE7SI?-  PAUSE @C' ATɕTl ! ! , h\ʖ Kh 3C\ڕ 9hTea  Ȼ   \    Tf+CEHTDTRh\h\h\hh\hYI H"!hh 6" # l o" "n` H-h,TDTRh'\h&\h%h# L `: ` " v  l`X%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`h Hq``X`HX " h****HhB4 "c"H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i (*N,MODFLS,,,B (!8PREP00000000P  PLADECTBL  - Ђ"3 l: 8j6 412h l.TwIaq !*TcIq ! TuIqԜ !  hhƘ9 nZd ȺlȺlȸlHT*T8h\ h h h h\h K\dh$( hT4ص 9! !   1Th (ՈhӘ2dTH T*T8hh hl\0Y1 1l.d 9$)l&T+$T$#,-,\$#,+,\.$\$#,.,T4/0IHT*T8hhhhhhh000000000000000000000000 0000000000000000000000000000000001?A@BA@<987eonmlA@BA# dTW d:"d REC x zTuT? taTT~w xw \!"׶w"\#$׷%$\&"ݶw"\w$ݷ%$\'w hhTŶ(&w&+Ƚ Uȶ hQ\¶ķ"ڶw"\($ڷ%$\ڶw*׶w*+Ƞ !8\ֶڶw*ݶw*+ !+ h!$ȉh ( h\ķ&.w&++  h T`Ķxwxw,l l) 1Tx$-.-\x$-/-+*\ڶx$xwxwTŶx$-/-+ !\0$1$\"ww\Ͷ$-0-̪lHT*T8h(h-h@hhhhh\h*h/\h h Hq``X`HX " hHhB4 "c" PHOST C05 F ITOS CCS 3.0 SL-149CHDLDWDS  ENTER THE NAME OF THE FILE YOU WISH TO ACCESS OR TO GET NEW FUNCTION R ENTER THE KEY (PRIMARY ONLY) OF THE RECORD OR TO GET NEW FILE N WHAT IS THE STARTING POSITION IN THE RECORD - MAXIMUM OF 4 DIGITS V WHAT IS THE LENGTH - MAXIMUM OF 4 DIGITS : ENTER THE DATA YOU WANT THE IT TO CONTAIN 0 OR ENTER TO GET NEXT RECORD & THERE IS NO ACCOUNT WITH THAT NUMBER IN THE RECORD 6 YOU ENTERED TOO MANY DIGITS TRY AGAIN * ENTER THE DATA YOU WANT THE KEY TO CONTAIN 0 THE DATA IN THE FIELD IS  ENTER THE FUNCTION DESIRED:  CH = CHANGE DATA IN RECORD  DL = DELETE A RECORD IN A FILE " DW = DELETE RECORD WITH OLD KEY AND WRITE WITH NEW KEY : DS = DISPLAY DATA IN RECORD OR ENTER TO EXIT PROGRAM $P  *d Te T Tea  \  \ ё \ Җ \ۑ  \ґ   6  !TQ\ dP\ }  \V h fd؂ 1T͕eV (TV T Tea Α  ̩  !7\,\5̚d+\+5+\+,+Te?, < *̹; #̲ 1\V \ bw P QS  \ Fa \\  \ 2E  6  +Tea b T7) \) \) \) \ב)TJ*h'\)$"d=T \   ̤  +\ bw M\7)6 \) \) T) \)\*h\),d>QR T US 5U T Tea 1  ̥ \>?=>Te? 2TV \5>?=> dPTe? 2\V q\\ x  6 \>dGTG>G\5+?+\ɕe? ̭ &\V =\?+\>G?=GTe?? ̔ 1#\V #Tea  \?=>>\ > wT˕e \e Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i Hh"h H  F` 4@ FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TfghgTN ! ! , h\蚏ΚŚhƚ Kh T\ݚhȚʚhɚ 9hTea̚hǚ͚͚͚HTT&h\h\h\h h Hq``X`HX " hdHhB4 "c"H h HX  sD  1  : E /` `"i (*N,LRPE00,,,B (| 8PRANTLADLQMSTLA P  PK@@@8 P@@@@@P8@8@@86@@8=@@8F@8S@S@ @ /@ 6@ =aapFUU @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ J ' H L N P R' z    )   + Ā ǀ ɀ ̀+ Ҁ) ׁ@P# ( ( ( ((  @PN ( (( ( (@Py((  5>a Ԁ@P@P @@@P8 @PUU@P@P@P@P @@P8 @P@@P@P@P @@P8 @PUU@P@P @P@P@P@@@P8@PՈ @P@P @(v@P8@P{{@P@P@P@P /@(v@@P8@P@P@P@P@P ?@((@P @P @P @PF@K@@@@P8@PP@@@@@@P8 @P$P@P &@P&@P'+@P+@@P,8@P1@@@P18@P66@@@P68@P;=@@@P;8@P@F@@P@8@PES@@PE8@PJS@P&L@PL@PMQPR9TOTLbR9LSTRcR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@PQ@ @ /@ 6@ =aapFUU @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PR9XCODR9EDCNR9ECODR9FSTLR9FNBGeR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@ @@@@ J ' H L N P@P R' z    )   + Ā  ɀ + Ҁ) ׀PR9FDTBPR9RPRTMHLD02UPR9RPGX*T  `"i Hh HX ` `"i *T @P`+K+QTVY+_+e)j)oPR9FDTB7PR9RPRTMHLD02UPR9RPGX*T @@@@@ @@@@@@@@@@@@ @@@@@@@ @@@ @ @@@ @@ @@@@@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@ T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :@ "L " T ` m   w !             /   .  2j;yAGL FPTe _`^dT) d' (T)a \`x '\xa Ts8Wਮ^ڨ d T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :840401 L " T ` m   w !840430            /   .  /+ '< FPTe _`^dT) d' (T)a \`x '\xa T8Wਲuڨ d '\ԑ)d  hȠ(h ( h7 eeȌhT,8dkkjnhw\8doaoTpˑpqq !c\ppq !VTܴrՄshM\ɑ8doothB\8douo̿h8\8dpfp̵ h.\8dvvv̫ h$\8dwww̡xh\8dfyfT` (Txz 2e 2 \8{3T\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T,[\]\TC ! ! , h\跄÷] Kh \ݷ]] 9hTea]···HT Th\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i (*N,LRPP00,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe*>hR43ʛ ~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP00' *B 'R9ELOC' *T *K,I8 *N,LRPP00,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn| 8 @@@TTB8 @- @8 @TT2 8@@TG  @(8vň{{hY /@(8v@ŀtm ?@((y8F@@@8 P@@@@@@@@@@P8@@8 @@8@@8&@8-@@8R@R@ @ aap H &@ETT "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ J ' J N P R T' |     )   +  Ā ƀ ɀ+ π) ԁ(*N,LRPE01,,,B ( 8PRANTLADLQMSTLA P  Pdd @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ J < '     '     )  ") ' ++ 1+ 7 : <) A) F@P N? 2 ?( ( (@P% ( ( ( (( ( (@PP ( 1E@@Pc@P`d@Pd @@Pe8 @PmLdd@P_s@Ps @Pw@Ptx@Px@@@Py8@P @P@P @(v@P8@P{{@P@P@P@P /@(v@@P8@P@P@P@P@P ?@((@P@P@P@PF@@@@@@@@@@P8@PP@@@@@@@@@@@P8 @PP@P@P@P@P@@P8@P@@@P8@P6@@@P8@P=@@@P8@PJ@@P8@PU@@P8@Pb@P8@Pb@P@P@PPR9TOTLFR9LSTRGR9FTNXZR9LABLYR9OTBG^R9TOTT_R9DOTTR9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@P@ @ /@ 6@ =LaapUdd @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD02R9UDATZR9UMTH\R9UDAY]R9UYER^@P[ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@ @@@@ J < '  @P   '     )  ") ' ++ 1+ 7 : <) A) FPR9FDTBPR9RPRTMHLD02UPR9RPGX*T \8nsrsфlhD\8ntƌh:\8nouo̼vh/\Ց8nfwf̱xh$\ʑ8nyzy̦{h\8nf|fT` (TǴx} e 2 \8~,T\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7l?- @T%&'M&TQJ ! ! , h\N' Kh \ݷ'' 9hTea'HTTh\h\h\h(Ո}JKLMNOPQR0123456789h'  y u _ W QQ hPP hT1\ I;Ⱦ 8Ȼ hT~׷ 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶh\ȗ譚 ȩh\ء 1T dl\׷\ط$ I: 7 l\ط 93 # l \ l,H)TTh\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6 @h Hq``X`HX " hφHhB4 "c"H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i 7 +l̞dlܚ dn 1 l 0n 1 d 0n 1 d0  /d.l Ôl̿ !i̻  l̶8T l \ ld dl !  0ṉh\֐ܫ l̹ l\̵̳ l  2\̥ l 2h\CU l. l 2\# l/ !d  d8T l \ l\\ l  ̳h\fܭ l \ֵ l\ѵ\ϵ d$d%+ "!" 8 % l\ܨ 1P\\J\\Ddd ddld dl`p=l  lܹ 0f.lۜll 1  +d dlTɵ$vl$d dl -l l l"  l 0d.d& !#  l5Tܘ \ lڜ9h\ lӜ4\# d\$̨ld ddd!l *l b̬ l̩d' ,\̤ l ! l l윳4\ܯm l"`p5dl 0e 4 n ḽḷl 1 l l  1 .d& " l +T l ! d " ll 8̽h\XHܷ " l  l\ѵ̥ l !\Ŵ̶ l !b@aH^H[TT hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShALE4 T$` h/&hHgaV`H _H H M A cTXFRXB H H\``Tӹ``b=:\ؽ``b/  HI&Aa%acAD aa h h HR  H T$Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTӹ HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T U d  T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :SPLN L " T ` m   w !SPLS            /   .  #,28A FPTe _`^dT) d' (TΑ)a \`x '\xa T8Wਭڨ d '\ԑ)d  hț(h ( h7 uujlhT8tmˑmnn "uhz\8tmmn !mToՌheT8tmm hZ\8tpqp hP\8tprp̶shE\8tftf̫uh:\Ց8tvwv̠xh/\ʑ8tvyv̕zh$\8tf{f̊|h\8t}~}T` (Tδx e 2 T8'T\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7@?- T,-.T-TXQ ! ! , h\U. Kh &\ݷ.. 9hTea.HTTh\h\h\h}JKLMNOPQR0123456789y u _ W QQ hPP hT8\ I;Ⱦ 8Ȼ hT޷ 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶh\ȗ譚 ȩh\ء 1T dl\޷\߷$ I: 7 l\߷ 93 # l \ l,H)TTh\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6qh Hq``X`HX " hzHhB4 "c"H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i (*N,LRPP01,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe.B2h87FMPOQ~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP01' *B 'R9ELOC' *T *K,I8 *N,LRPP01,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn@8G8T8]@@@]@ H @ & 5aap>aapGV@uu @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ J R ' ʀ ΀ Ѐ Ҁ ' ) $))GKO+U+[^`c+i+o)t)y(*N,LRPE02,,,B ( 8PRANTLADLQMSTLA P  P @ @ @ @ .@ 1D2@8D=DFDO@ 2  N   N/  N? 2 ?( ( ( ( (  (  ((  ((  ( (( ( ( ( ( ((((  Dʚ[I 8 @@\kzza8 @s@8 @\kzz 8@@  @(8vň!{{ /@(8v@ŀ˛ ?@((8F@@8 P@@@@@@P8@8@@86@8=@@8F@8M@8Z8i8x@x @ @ /@ 6@ =aapF@M\kzz @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@ @@@@@@@ J '"&(*,'Td)))++++ŀ+ˀ+р)ր)ۀ)@PT (  ((  ((@P  ( ((@P ( ( ( ( ((((  @P"Yb Ԁ@P@P @@@P8 @P\kzz@P@P@P@P @@P8 @P@@P @P @P  @@P 8 @P\kzz@P@P @P @P!@P!@@@P"8@P- @P26@P6 @(v@P;8@P?!{{@P1C@PC@PDH@PH /@(v@@PM8@PS@PCW@PW@PX\@P\ ?@((@PWc@Pc@Pdh@PhF@@@Pi8@PuP@@@@@@@Pu8 @P|P@Pc~@P~@P@P@@P8@P@@@P8@P6@@P8@P=@@@P8@PF@@P8@PM@@P8@PZ@P8@Pi@P8@Px@@P8@Px@P~@P@PPR9TOTLR9LSTRR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTT1R9PAGER9FTOVR9BINTR9ZCODR9YCOD@P@ @ /@ 6@ =aapF@M\kzz @@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P9@@@@@@@@@@@@@@@@@@@@ @@@@@ @@@@@@@  @Pd J '"&(*,'Td@P)))++++ŀ+ˀ+р)ր)ۀ)PR9FDTBpPR9RPRTMHLD02U T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :@ "L " T ` m   w !             /   .  21;/=?D FPTe _`^dT) d' (T)a \`x '\xa Ts8Wਮ^ڨ d '\ԑ)d  hȜ(h ( h7 soTŴmjnheTՑ8Loo hZ\8Lpqp hP\8Lrsr߄thE\8LfufԄvh:\Ց8LkwkɄxh/\ʑ8Lkyk̾zh$\8Lq{q̳|h\8Lf}fTy` (Tx~ be 2 Tő8NT\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7 ?-  T,T) ! ! , h\-lcdc Kh \ݷfhgh 9hTeajekkklHTTh\h\h\h h Hq``X`HX " hl HhB4 "c"H h HX  sD  1  : E /` `"i (*N,LRPP02,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe.B2h87FCFEG~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP02' *B 'R9ELOC' *T *K,I8 *N,LRPP02,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @TnDC@ 2  N   N/  N? 2 ?( ( ( ( (  ((  (  ( (( ( ( ((((  B" 8 @@@Dhho98 @ZK@8 @Dhh_ 8@@t  @(8vň{{ /@(8v@ŀ ?@((8F@@@8 P@@@@@@@@@@P8@@8@8@@8B@8K8R@8Y@8ff@ H @ 5 D@K@R@Yhh @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@ @@@@@@@@ J > '     '   ) )%)-+3+9<>A+G+M)R)W(*N,AFUPDT,,,B ( 8PREPDELQMST CCS20 P  P4X*%l/s! dXʧj T3X7 "_ hYZ******PRINT " nC/TLHh B@ TF0 @\TM @%TM @gTMhX#ʧ_X B@ TFXV *hR1 RPG II COMPILERPAGEITʫhv)ʬphn 8 0hki!fhd 9a2\ hYWT3ɀ@d h2T3hXY 5XG[ @ @ @ @ .@ 2D3D9DB@K@ 2  N   N/  N? 2 ?( ( ( ( ( ((  ( ( (( ( ( ((((  B2" 8 @Udd88 @YJ@8 @Udd^ 8@@s  @(8vň{{ /@(8v@ŀ ?@((8F@@@@@8 P@@@@@@@@@@P8@8@@86@@8=@@8F@8S8 PHOST C05 F ITOS CCS 3.0 SL-149 Q FROM- Q TO-   Te^d Tea~~\T| # (Tˑ#d2Th 2먽t樹 d ߨ &\ۑ#_ޔ TؘPT2~ȗ \2~ \2~ )T2\2\2Tf 2 'Tˑ#̗ Tz Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T)*+Q*TN ! ! , h\R+ Kh \ݗ++ 9hTea+HTTh\h\h\h2h Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i (*N,LRPP04,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe(<hӚ21~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP04' *B 'R9ELOC' *T *K,I8 *N,LRPP04,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @TnaapGV@uu @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ J R ' ʀ ΀ Ѐ Ҁ ' ) $))GKO+U+[^`c+i+o)t)y@PR((  ( ( ((@P} ( ( ((((@P  HQ| @P@P @@@@P8 @Pİ>VV@P@P@P @@P8 @Pڈ@@P@P@P @@P8 @P>VV@P@P @P@P@P@@@P8@P@P@P @P @P  @(v@P8@P{{@P@P@P@P /@(v@@P#8@P)@P-@P-@P.2@P2 ?@((@P-9@P9@P:>@P>F@@@@@@P?8@PKP@@@@@@@@@@@PK8 @PRP@P9T@PT@PUY@PY@@@PZ8@P_@@P_8@Pd@@Pd8@Pi/@@Pi8@Pn<@@Pn8@PsG@Ps8@PxT@Px8@P}]@@@@P}8@P]@PT@P@PPR9TOTL}R9LSTR~R9FTNXR9LABLR9OTBGR9EOTTR9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@P@ H @ &aap />aapGV@uu @@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@P @@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @P5 J R ' ʀ ΀ Ѐ Ҁ ' ) $))@P`GKO+U+[^`c+i+o)t)yPR9FDTB<PR9RPRTMHLD02UPR9RPGX*T  El  $lHTThhh\hyHdAEFHI.)R$/X,(0 \ l3 l2l2l2l2hhhT7YX h     h h "! 'UTZdȽ d 1Ⱥ !" : ' hȣ裖G " ; '_zyw Z 1 ̷" 8 $ ̥"LAINACCT RSWDELQMST LA X - 2u0Y 0^h4_h1TeTm Tͽ\zz hTeνT[) hTbzȬ " h faآ 1 dTbzȔ "\ȋ " dTռ/  d l " d d", T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :SUP1 L " T ` m   w !SUP5            /   .  #)28A FPTe _`^dT) d' (T̑)a \`x '\xa T8Wਬڨ d '\ԑ)d  hȚ(h ( h7 ttjlh!T8mˑmnh\8mmo o 4n "mT봇p֌hT8mm h\8qrq h\8qsq̷th\8uvu̬wh\Ց8fxf̡yh\ʑ8uzu̖{h\8f|f̋}h\8~~T` 'T̴x e 2 \8*T\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7l?- T*+,R+TVO ! ! , h\S, Kh \ݷ,, 9hTea,HTTh\h\h\h l}JKLMNOPQR0123456789 qy u _ W QQ hPP hT6\ I;Ⱦ 8Ȼ hTܷ 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶh\ȗ譚 ȩh\ء 1T dl\ܷ\ݷ$ I: 7 l\ݷ 93 # l \ l,H)TTh\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6Fh Hq``X`HX " h_0nHhB4 "c"H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i (*N,LRPP06,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe.B2h87FMPOQ~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP06' *B 'R9ELOC' *T *K,I8 *N,LRPP06,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @TnVVo98 @ZK@8 @>VV_ 8@@t  @(8vň{{ /@(8v@ŀ ?@((8F@@K8 P@K@@@@@P8@@8@8@8/@8<@8G8T8]@@@]@ H @ &aap />aapGV@uu @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ J R ' ʀ ΀ Ѐ Ҁ ' ) $))GKO+U+[^`c+i+o)t)y(*N,LRPE07,,,B (} 8PRANTLADLQMSTLA P  P@@8 P@@@@@@@@@@P8@8@@86@@8=@@8J@8U@U@ @ /@ 6@ =LaapUU @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ J ' H L N P R' z   )    + Ā ǀ ɀ ̀+ Ҁ) ׁ@P# ( ( (  ((  @PN ( (( ( (@Py((  5>a Ԁ@P@P @@@@P8 @PLL@P@P@P@P @@P8 @P@@P@P@P @@P8 @PLL@P@P @P@P@P@@@P8@PՈ @P@P @(v@P8@P{{@P@P@P@P /@(v@@P8@P@P@P@P@P ?@((@P @P @P @PFkk@@@P8@PP@@@@@@@@@@@P8 @P$P@P &@P&@P'+@P+@@P,8@P1@@@P18@P66@@@P68@P;=@@@P;8@P@J@@P@8@PEU@@PE8@PJU@P&L@PL@PMQPR9TOTLbR9LSTRcR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@PQ@ @ /@ 6@ =LaapUU @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PR9XCODR9EDCNR9ECODR9FSTLR9FNBGeR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@ @@@@@@@@ J ' H L N P@P R' z   )    + Ā  ɀ + Ҁ) ׀PR9FDTBPR9RPRTMHLD02UPR9RPGX*T h HX ` `"i @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@ @@@@@@@ @@@ @ @@@ @@ @@@@@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@ @@@ @@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ls PE E G H 'HHHHHOHHIIIIII1IOIcIfInIo I}II IIIIIIIII JJJ JJJJ7JUJiJlJtJu JJJ JJJJJJJJ߀JJKK:KNKSKT KZ KdKhKKKKK K KKK KKKKKKKKLLLL%LCLaLLLLL)LLÀLǀLˀLπLӀ)L؀)L݀)LL)L)LLLLMMM MMM'M:M<M@) T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :840201 L " T ` m   w !840228            /   .  /+ '< FPTe _`^dT) d' (T)a \`x '\xa T8W਱uڨ d '\)d  hȟ(h ( h7 eeȋh0T,8kkjnh#\8oaoTpˑpq\ppr r 4q "V*TܴsԄth\ȑ8ooɄuh\8ovo̾h\8pfp̴ h\8www̪ h\8xxx̠yh\8fzfT` 'Tx{ e 2 \8|4T\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T,[\]\TC ! ! , h\跄÷] Kh \ݷ]] 9hTea]···HT Th\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i (*N,LRPP07,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe*>hR43ʛ ~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP07' *B 'R9ELOC' *T *K,I8 *N,LRPP07,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn| 8 @@@TTB8 @- @8 @TT2 8@@TG  @(8vň{{hY /@(8v@ŀtm ?@((y8F@@@8 P@@@@P8@@8 @@8@@8&@8-@@8R@R@ @ aap H &@ETT "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ J ' J N P R T' |     )   +  Ā ƀ ɀ+ π) ԁ(*N,LRPE08,,,B (| 8PRANTLADLQMSTLA P  P@@8 P@@@@P8@@8 @@8@@8&@8-@@8R@R@ @ aap H &@ETT "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ J ' J N P R T' |     )   +  Ā ƀ ɀ+ π) ԁ@P# ( ( (  ((  @PN ( (( ( (@Py((  5>a Ԁ@P@P @@@@P8 @PTT@P@P@P @@P8 @P@@P@P@P @@P8 @PTT@P@P @P@P@P@@@P8@Pֈ@P@P @P@P @(v@P8@P{{@P@P@P@P /@(v@@P8@P@P@P@P@P ?@((@P @P @P @PF@@@@P8@PP@@@@@P8 @P%P@P '@P'@P(,@P,@@@P-8@P2 @@@P28@P7@@@P78@P<&@@P<8@PA-@@@PA8@PFR@@PF8@PKR@P'M@PM@PNRPR9TOTLbR9LSTRcR9FTNXR9LABLR9OTBGR9EOTTR9DOTTR9TOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@PR@ @ aap H &@ETT "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P}@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PR9XCODR9EDCNR9ECODR9FSTLR9FNBGfR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@ @@@@@@@@ J ' J N P R T'@P |     )   +  Ā  ɀ+ ) ԁPR9FDTBPR9RPRTMHLD02UPR9RPGX*T @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@ @@@@@@@ @@@ @ @@@ @@ @@@@@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@ @@@ @@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ls PE E G H 'HHHHHOHHIIIIII1IOIcIfInIo I}II IIIIIIIII JJJ JJJJ7JUJiJlJtJu JJJ JJJJJJJJ߀JJKK:KNKSKT KZ KdKhKKKKK K KKK KKKKKKKKLLLL%LCLaLLLLL)LLÀLǀLˀLπLӀ)L؀)L݀)LL)L)LLLLMMM MMM'M:M<M@) T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :1 L " T ` m   w !9            /   .  uv4 FPTe _`^dT) d' (T)a \`x '\xa T|8Wਲgڨ d '\ԑ)d  hȠ(h ( h7 W|ȍh#Tx8ˑnjmh\8o o 4n "W!TδphTޑ8؄qh\8k̈́rh\8sas h\ߑ8tut̸ h\Ց8vwv̮xh\ʑ8fyfT` 'Txz e 2 \8{AT\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- ۉT 5T92 ! ! , h\6ulml Kh T\ݷoqpq 9hTeasntttuHTTh\h\h\h  &}JKLMNOPQR0123456789+(Ոy u j_ jW jQQ hPP hTշ\ַ I;Ⱦ 8Ȼ hTf 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶh\ȗ譚 ȩh\ء 1T dl\\$ I: 7 l\ 93 # l \ l,H)TTh\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6Hh Hq``X`HX " h HhB4 "c"H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i (*N,LRPP08,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe*>P>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @TnʚdB 8 @@RRxW8 @j 8 @@RR8 @@8 @RR 8@@ś  @(8vň{{ٛ /@(8v@ŀ ?@((8F@@@@@@@@8 P@@@@@@@@@@P&8@8 @8@@8$@8+@@8P@P+@ @ @ H $@CRR @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ J '"&(*,'TUVZb)+++)(*N,LRPE09,,,B ({ 8PRANTLADLQMSTLA P  P  N? 2 ?( ( ( ( (  (  ((  ((  ( (( ( ( ( ( ((((  Dʚ[I 8 @@@\kzza8 @s@8 @\kzz 8@@  @(8vň!{{ /@(8v@ŀ˛ ?@((8F@@@@@@8 P@@@@@@@@@@P8@8@@86@@8=@@8F@8M@8Z@8i8xx @ @ /@ 6@ =aapF@M\kzz @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@ @@@@@@@@ J '"&(*,'Td)))++++ŀ+ˀ+р)ր)ۀ)@PT (  ((  ((@P  ( ((@P ( ( ( ( ((((  @P"Yb Ԁ@P@P @@@@P8 @P\kzz@P@P@P@P @@P8 @P@@P @P @P  @@P 8 @P\kzz@P@P @P @P!@P!@@@P"8@P- @P26@P6 @(v@P;8@P?!{{@P1C@PC@PDH@PH /@(v@@PM8@PS@PCW@PW@PX\@P\ ?@((@PWc@Pc@Pdh@PhF@@@@@@@Pi8@PuP@@@@@@@@@@@Pu8 @P|P@Pc~@P~@P@P@@P8@P@@@P8@P6@@@P8@P=@@@P8@PF@@P8@PM@@P8@PZ@@P8@Pi@P8@Px@P8@Px@P~@P@PPR9TOTLR9LSTRR9FTNXR9LABLR9OTBGR9EOTTR9TOTTR9DOTT1R9PAGER9FTOVR9BINTR9ZCODR9YCOD@P@ @ /@ 6@ =aapF@M\kzz @@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P9@@@@@@@@@@@@@@@@@@@@@ @@@ @@@@@@@@  @Pd J '"&(*,'Td@P)))++++ŀ+ˀ+р)ր)ۀ)PR9FDTBpPR9RPRTMHLD02UPR9RPGX T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 : L " T ` m   w !             /   .* 3}BH FPTe _`^dT) d' (T)a \`x '\xa Tm8Wਲ਼Xڨ d '\ԑ)d  hȠ(h ( h7 soȎhTi8lˑlmm 6 2YTnikhTϑ8ll h\8opo h\8qrq߄sh\8otoԄuh\Ց8pvpɄwh\ʑ8qxqTs` 'Txy e 2 \8zOT\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL71?- T&T*# ! ! , h\'f]^] Kh \ݷ`bab 9hTead_eeefHTTh\h\h\hh}JKLMNOPQR01234567891y u [_ [W [QQ hPP hT Ʒ\Ƿ I;Ⱦ 8Ȼ hTW 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶh\ȗ譚 ȩh\ء 1T dl\\$ I: 7 l\ 93 # l \ l,H)TTh\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6h Hq``X`HX " hHhB4 "c"H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i (*N,LRPP09,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe*>hޚ43~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP09' *B 'R9ELOC' *T *K,I8 *N,LRPP09,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tnu@8 @ 8@@ښ  @(8vň{{ /@(8v@ŀ ?@((8F@@@@@@@@@@@@@8 P@@@@@@@@@@P;88@8@@8<8N8U@@@U@@ H @ 5@ EaapN@mm .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ J ' V Z \ ^ `'     €     (*N,LRPE10,,,B (~ 8PRANTLADLQMSTLA P  P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ J ' V Z \ ^ `'     €     @P N? 2 ?( ( ( (@P# (( (  +@@P?@P<@@P@ @@PA8 @PI @P;K@PK @PO@PLP@PP@@@PQ8@P\ @Pae@Pe @(v@Pj8@Pn{{@P`r@Pr@Psw@Pw /@(v@@P|8@P@Pr@P@P@P ?@((@P@P@P@PF@@@@@@@@@@@@@@P8@PP@@@@@@@@@@@P8 @PP@P@P@P@P@P8@P@@P8@P@@@P8@P<@P8@PN@P8@PU@@@@P8@PU@P@P@PPR9TOTL,R9LSTR-R9FTNX6R9LABL5R9OTBG:R9TOTT;R9DOTT`R9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@P@ H @ 5@ EaapN@mm .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD02R9UDAT+R9UMTH-R9UDAY.R9UYER/@P. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ J ' V Z@P \ ^ `'          PR9FDTBvPR9RPRTMHLD02UPR9RPGX*T  w !             /   .* 3}BH FPTe _`^dT) d' (T)a \`x '\xa Tm8Wਲ਼Xڨ d '\ԑ)d  hȠ(h ( h7 soȎhTi8lˑlmm 6 2YTnikhTϑ8ll h\8opo h\8qrq߄sh\8otoԄuh\Ց8pvpɄwh\ʑ8qxqTs` 'Txy e 2 \8zOT\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL71?- T&T*# ! ! , h\'f]^] Kh \ݷ`bab 9hTead_eeefHTTh\h\h\hh}JKLMNOPQR01234567891y u [_ [W [QQ hPP hT Ʒ\Ƿ I;Ⱦ 8Ȼ hTW 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶh\ȗ譚 ȩh\ء 1T dl\\$ I: 7 l\ 93 # l \ l,H)TTh\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6h Hq``X`HX " hHhB4 "c"H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD02R9UDATR9UMTHR9UDAYR9UYER@P@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P9@@@@@@@@@@@@@@@@@@@@@ @@@ @@@@@@@@  @Pd J '"&(*,'Td@P)))++++ŀ+ˀ+р)ր)ۀ)PR9FDTBpPR9RPRTMHLD02UPR9RPGX T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 : L " T ` m   w !             /   T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :1 L " T ` m   w !9            /   .  uw *9 FPTe _`^dT) d' (T)a \`x '\xa T~8Wਰiڨ d '\ԑ)d  hȞ(h ( h7 Y|ȋh#Tz8ˑnjmh\8o o 4n "WTдphT8؄qh\8rkr̈́sh\8tut h\ߑ8vwv̸ h\Ց8xyx̮zh\ʑ8f{fT` 'Tx| e 2 \8}AT\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T7T;4 ! ! , h\8wnon Kh \ݷqsrs 9hTeaupvvvwHTTh\h\h\h &n}JKLMNOPQR0123456789,y u l_ lW lQQ hPP hT׷\ط I;Ⱦ 8Ȼ hTh 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶh\ȗ譚 ȩh\ء 1T dl\\·$ I: 7 l\· 93 # l \ l,H)TTh\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6qh Hq``X`HX " hHhB4 "c"H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i (*N,LRPP10,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe*>hO43ʛ ~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP10' *B 'R9ELOC' *T *K,I8 *N,LRPP10,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn| 8 @@TTB8 @- @8 @TT2 8@@TG  @(8vň{{hY /@(8v@ŀtm ?@((y8F@@@@@@8 P@@@@@@@@@@P8@88@@8@@8E@8R@R@ aap @ @ 5HETT "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@ J ' J N P R T' | }    )  +    À+ ɀ) ΁(*N,LRPE11,,,B ( 8PRANTLADLQMSTLA P  PLADAQUE LA SYSVOL LAUTIFILLA SYSVOL  LTR1LTR2&06870608730074 P )zTex\TE"^^ (T!"ә^\TT 1\Tݘћ  d d!TҙԘљ\ϑ͚^ "T3͒𘹙^Ť ̾ ̷ "ddȓdTL\mO^̠ !#T5m^̖ ̏ !TCm^ d fl 1 d lT!O^\Tdedf̲d̳dINACCT   1T3͒𚘙^^ } v !oTT d \d\d\ \Ց͒ ^֬ל UЬ؜ O !H d dj  f 1\͒ ^̩ ̣ ̝ ! lל  n 1TC͙^ d l lT!^\T *gdX *hdY *fdZTtXl d  ;"l l d f 1TE͚Ι^^ !!T1͘y^ !\͙^ dgj  1 l l l\Λ^\\idyjdz dwVd# l nܬ ACTFIL  dmTC͙^ d lT!^\T lTEm^ d^ &\^\\\1^ &\ݑ1^\\ d\ޑ^^  3 l\đ^^\\\ȑ@^ &\@^\\Tʙk ( u  C ݔ \ԚTm " "h T3@@@@@@@@@@@@@@@@@@@@@@@ @@@ @@@@@@@@ J '"&(*,'Td)))++++ŀ+ˀ+р)ր)ۀ)@PT (  ((  ((@P  ( ((   2 lTiw &T̙\љҙљTLˬ̜  ƬΜ \l\ᚕ !>Hd\ΛTݘd 4\š"! 1c'x! %exZ\qDELQMST 0 П裊of d l < d6@P@P @@@@P8 @P\kzz@P@P@P@P @@P8 @P@@P @P @P  @@P 8 @P\kzz@P@P @P @P!@P!@@@P"8@P-  WORK OF   MASTER SCREEN D#TIMEI(- 7 ASSIUTIFIL 0 P\(ATTY3g08q INV CLASS CvQ{N NXT CONT-l QUEUE PRIORITY? 48 NET BALANCE E HP  OA%8 GROSS BAL E C REPO' *v+   CURRENT PP? 4 8DDA =   " *PP AMT+ / 8 6SAV = ;  ABP F  MEXT  R [PP DATE - ` h# KEPTPRINT " XC# BROKEN3 8  DATE JUDG D   TOT $ RECD,  8 AMT JUDGD  8 EXEC DATE DP18ANS?DP28STIP? D P3LAST ACTIVITY .DATE AC RS LT COLL COMMENT74* 9 R(PLEASE ENTER NEXT FUNCTION OR ACTION,RES((ULT,LETTER REQUEST~@X@@@@DD@@1@ODcDh@h@hDv@ v@!vD"D#@$@%@&D'D(@)@*D+@,@-D.D/@0@1@25D3ID4N@5N@6ND7\@8\@9\j^e@:@;|pw@:@<@=`  @>@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@SDT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhXDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~DDD D#D(@+@,@;@@DCDI@N@S@T@YDZDcDlD{D@@D@D@D@D@D@@DD@DD@DD@ DD@D#D,@2D7D@DFDU@[@dDeDnDw@DD@DDlpDnDr@,DDDDDDDD#D,D7D@@@@DD DDD%D.D7D@DIDRDdDmDvDDD@@@ .$ N ܚ$ N/ ܚ$ N? ܚޚߚ.  SQRVTU WX   < <   ;B  : GQ OR >2 >3 : S T )U ,V 5W 8X :      = ߚ  ߡ  HP((  .. FFz88G& ֬=8D!@<oC A @ )8C@8L8 gz@x8ňuA /@ )8=@ F38 j@@28l@lA ?@ ))歫 A8 8 '818G@8P8c@@{8q8vK8 @ A8 K8 (@K81K8F8P8a8o8vv3 A@@@S*@v1mHaapkR@b@UorX8 A8@B08B@HAD8 b@@K~] A8 @@C08F@@K ``pTRR A8 @@D08CK@@HsEE A8 aa@E&@F08 >@z Q ``pHK Q8L`@JPQ@IM8d@z R ``pPr R8s`@RwR@Qtw( A8 8 "@8+818 @@8 N@8d@@@ba- A888 "@@@@8*828>@8 N@8d@@@cf AaapV @WHyHzH{"@^(@X1aap~>N8 `aa@dz@eٯ A8 88 +@8 9@8N8l\@@@@@@@@@@@@@8@@@@@@@@@@@@\ A8 88 +@868P@P An oaapp'q9aapP@|i$ A88@88*@838@8 S\@\@\@\@\@\8f@@@@@@@@8 w@@@@@@8 \@\@\@\@\@\n A8888)@838 C@@_ Aaaph aapiaaplaapj*@\3aap]A@`˰ A@a  A8 @@(8 <@@^8v@$  A8@@'8@@@^8v@@R*  A8@@@'8 <@^8 u@X  A8@@@'8>@_8w@@  A8 @'8D@@@^8v@@۱  A8@'8@@@^8x@@@  A8 @و'8D@@@^8y@@K@KB  A8 @'8F@@@8 S@_8w@@@uH  A8 @@'8@@8I_8y@@@{  A8@@ŀ'8G@@@H^8 t@@Ӳ` A8@8?@@^8v@  A8@@@@@@@8?@`@^8 r@@(  A@8 =@@^8|@@@Y.  A@8C@@@8L_8z@@@_  A@8C@@ŀ^8 u@@  A@8 9@@^8o@  A@  A@ֳ 0A8\\\@@@\\\ 0A8o@ 0A8@@aap!8>@@@Y8oD 0A8@@"8?@@lY8 t@uJ 0A8@@aap!8=@nZ8p{ 0A8@@"8 :@rZ8w@Ҵ 0A8@@@K"8D@@@@Y8o 0A8@@@K"8C@@@@@Y8w@@' 0A8@@@K"8=@@YYa- 0A8@@@K"8FK@@K@`8MKY8\\\@@@\\g 0A8@@@K"8C@@K@8JKY8o@ŵ 0A8@`@@K"8E@@@Y8oص 0A8 t@ 0A8p 0A8w@ 0A8o$ 0A8w@@v*@PA8@@@@@@@@8@@@8 ,@@@@@8 <@@@@@@@8T@@@@a@@@@@8[@@8o@@@@@@@@@8@@@K@@@@@@| PA@@?@UH[ S```pnS@k T```pT@!޶ PA@$@%?@&UH'[ U```p(nU@*k V```p+V@- PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9> A @ )8K@8 g@x8ňRDA /@ )8?@ HH_XA ?@ ))e A8 8#8+838;8F8W\@\@\@\@\@\@\@\8o@@@@@@@@@@@@@@8\@\@\@\@\@\@\@\@\@\Ϸ A8 K8!8*828:8DK@KD dA@ @ 8a /@ 8!a ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ dA8 8 @K@:-8 9@@9+`A8K\\\\@@@@\\\\KE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@ @@@@@@@ @@@ @ @@@ @@ @@@@@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@@ @@@@ T lEn dlPn l @HLAPGEXTRLA H TT h\h\h     1 :@ "L " T ` m   w !             /   .  2j;yAGL FPTe _`^dT) d' (T)a \`x '\xa Ts8Wਮ^ڨ d '\ԑ)d  hȜ(h ( h7 soTŴljmheTՑ8Lnn hZ\8Lopo hP\8Lqrq߄shE\8LftfԄuh:\Ց8LvwvɄxh/\ʑ8Lvyv̾zh$\8Lp{p̳|h\8Lf}fTy` (Tx~ be 2 Tő8NT\`Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7 ?-  T,T) ! ! , h\-lcdc Kh \ݷfhgh 9hTeajekkklHTTh\h\h\h h Hq``X`HX " hl HhB4 "c"H h HX  sD  1  : E /` `"i (*N,LRPP11,,,B (h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe.B2h87FMPOQ~H T&......SA*B '4' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'LRPP11' *B 'R9ELOC' *T *K,I8 *N,LRPP11,,,B *K,I6 hhTglm* #Tċk DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X8r""3Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn