H*CTO, MON05 GROUP BEING COMPILED.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿHH*FTNÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿH t FTN 3.3B (OPT = LPC) UP4MAC PAGE 1 DATE: 08/30/84 TIME: 0140 t^ MACRO UP4MAC 00001^^ C COMMON DECLARATIONS FOR UPD400 00002^^ C CYBERCREDIT SYSTEM VERSION 3 00003^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ C 00006^^ C*** DUMMY VARIABLE. 00007^^ INTEGER DUMMY 00008^^ COMMON / UP4 / DUMMY 00009^^ C*** FLAG WORDS. 00010^^ C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ INTEGER ACCTFD 00012^^ C* END-OF-FILE ON INPUT FLAG. 00013^^ INTEGER EOFFLG 00014^^ C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ INTEGER TOTPRT 00016^^ COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ C* STATUS CODE. 00020^^ INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ COMMON / UP4 / REQBCS, IDATCS 00030^^ EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ INTEGER REQBPR(24), IDATPR(15) 00038^^ COMMON / UP4 / REQBPR, IDATPR 00039^^ C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ INTEGER REQBIN(24), IDATIN(15) 00042^^ COMMON / UP4 / REQBIN, IDATIN 00043^^ C*** FILE MANAGER STATUS WORD. 00044^^ INTEGER ISTAT 00045^^ C* STATUS CONSIDERATIONS. 00046^^ C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ INTEGER WRONKY, EOF, BUSY 00048^^ COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ C*** TRANSACTION INPUT BUFFER. 00050^^ INTEGER INPBUF(41) 00051^^ COMMON / UP4 / INPBUF 00052^^ C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^t FTN 3.3B (OPT = LPC) UP4MAC PAGE 2 DATE: 08/30/84 TIME: 0140 t^ C* CODE. 00055^^ INTEGER FSTR, FLEN, FEDT 00056^^ COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ C*** PRINT OUTPUT BUFFERS. 00058^^ C* STANDARD DETAIL LINE BUFFER. 00059^^ INTEGER DETLIN(68) 00060^^ COMMON / UP4 / DETLIN 00061^^ C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ INTEGER LINCNT, PAGCNT(6) 00063^^ COMMON / UP4 / LINCNT, PAGCNT 00064^^ C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ INTEGER IFLAG, TEMP(8) 00066^^ COMMON / UP4 / IFLAG, TEMP 00067^^ C*** TODAY'S DATE. 00068^^ INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ COMMON / UP4 / DATE 00071^^ C*** EXTERNAL SWITCH. 00072^^ C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ INTEGER R9SWCH, SWITCH, U(8) 00074^^ COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ C*** TAPE INPUT LOGICAL UNITS. 00076^^ C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ INTEGER TAPE, MT1 00078^^ COMMON / UP4 / TAPE, MT1 00079^^ C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ C* NEW DATA. 00081^^ INTEGER TNFLD 00082^^ COMMON / UP4 / TNFLD 00083^^ C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ C* NAME, SECONDARY KEY SAVE AREA. 00085^^ INTEGER MNAM, MNCHG 00086^^ COMMON / UP4 / MNAM, MNCHG 00087^^ C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ C* CODE FLAG FOR TYPE. 00089^^ INTEGER AFLG 00090^^ COMMON / UP4 / AFLG 00091^^ C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ INTEGER TKEY(8) 00093^^ COMMON / UP4 / TKEY 00094^^ C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ C* REPORT HEADING RECORDS. 00096^^ INTEGER KHDRX(2) 00097^^ COMMON / UP4 / KHDRX 00098^^ C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ C* UPDATES, REJECTS. 00100^^ INTEGER NUMUPD(6), NUMREJ(6) 00101^^ COMMON / UP4 / NUMUPD, NUMREJ 00102^^ C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ INTEGER HDLIN(66,3), HDLINT(2) 00104^^ INTEGER COLHD(66,2), COLHDT(2) 00105^^ COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ C*** TRANSACTION CODE. 00107^^ INTEGER TCODE 00108^t FTN 3.3B (OPT = LPC) UP4MAC PAGE 3 DATE: 08/30/84 TIME: 0140 t^ COMMON / UP4 / TCODE 00109^^ C*** TERMINAL LOGICAL UNIT. 00110^^ INTEGER TLU 00111^^ COMMON / UP4 / TLU 00112^^ C*** COMPARE STRING RETURN INDICATORS. 00113^^ INTEGER COMPIN, COMPI2 00114^^ COMMON / UP4 / COMPIN, COMPI2 00115^^ C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ INTEGER NDAONE(5) 00117^^ COMMON / UP4 / NDAONE 00118^^ C*** ASCII CONSTANTS. 00119^^ C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ INTEGER BLANKS, AZEROS(15) 00121^^ COMMON / UP4 / BLANKS, AZEROS 00122^^ C*** SIMPLE NUMERIC CONSTANTS. 00123^^ INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ INTEGER N10, N11, N13, N14, N15, N16 00125^^ INTEGER N35 00126^^ INTEGER N40 00127^^ INTEGER N80 00128^^ INTEGER N132 00129^^ COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ COMMON / UP4 / N35 00132^^ COMMON / UP4 / N40 00133^^ COMMON / UP4 / N80 00134^^ COMMON / UP4 / N132 00135^^ C*** END OF MACRO DECLARATION. 00136^^ . 00137^^ END 00138^ t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 1 DATE: 08/30/84 TIME: 0140 t^ 1 BLOCK DATA 00001^^ 1 1 /C32 F CCS CCS 3.0 SL-149 00002^^ C BLOCK DATA SUBPROGRAM TO INITIALIZE COMMON FOR UPD400 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C**** RETRIEVE MACRO DEFINITION. 00009^^ M UP4MAC 00010^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 2 DATE: 08/30/84 TIME: 0140 t^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 3 DATE: 08/30/84 TIME: 0140 t^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 4 DATE: 08/30/84 TIME: 0140 t^ C**** BEGIN INITIALIZATION. 00011^^ 78 DATA ACCTFD / 0 / 00012^^ 79 DATA AFLG / 17 / 00013^^ 80 DATA AZEROS / 15*$3030 / 00014^^ 81 DATA BLANKS / ' ' / 00015^^ 82 DATA BUSY / $0080 / 00016^^ 83 DATA ((COLHD(J,I), J=1,66), I=1,1) / 00017^^ 83 1 ' TRAN ACCOUNT ', 00018^^ 83 2 ' ', 00019^^ 83 3 ' '/ 00020^^ 84 DATA ((COLHD(J,I), J=1,66), I=2,2) / 00021^^ 84 1 ' CODE NUMBER NEW DATA ', 00022^^ 84 2 ' OLD DATA ', 00023^^ 84 3 ' ACTION ',$D/ 00024^^ 85 DATA DETLIN / 68*$2020 / 00025^^ 86 DATA DUMMY / $FFFF / 00026^^ 87 DATA EOF / $0100 / 00027^^ 88 DATA EOFFLG / 0 / 00028^^ 89 DATA ((HDLIN(J,I), J=1,66), I=1,1) / 00029^^ 89 1 $C3C, '-- HDR1 FROM UTILITY FILE GOES HERE --> ', 00030^^ 89 2 ' ', 00031^^ 89 3 ' ' / 00032^^ 90 DATA ((HDLIN(J,I), J=1,66), I=2,2) / 00033^^ 90 1 $3C, '-- HDR2 FROM UTILITY FILE GOES HERE --> ', 00034^^ 90 2 ' DAILY MASTER FILE NON-FINANCIAL UPDATE ', 00035^^ 90 3 'REPORT PAGE ' / 00036^^ 91 DATA ((HDLIN(J,I), J=1,66), I=3,3) / 00037^^ 91 1 $3C, '-- HDR3 FROM UTILITY FILE GOES HERE --> ', 00038^^ 91 2 ' <-DATE-> ', 00039^^ 91 3 ' ',$D / 00040^^ 92 DATA IDATAD / 'ADDACT ', 8*$2020, 0, 1, 0 / 00041^^ 93 DATA IDATCS / 'COSIGNER', 8*$2020, 1, 1, 1 / 00042^^ 94 DATA IDATDM / 'DELQMST ', 8*$2020, 1, 1, 1 / 00043^^ 95 DATA IDATIN / 'UP4INPUT', 8*$2020, 0, 1, -1 / 00044^^ 96 DATA IDATPR / 'UP4PRINT', 8*$2020, 0, 1, 0 / 00045^^ 97 DATA IDATUT / 'UTIFIL ', 8*$2020, 1, 1, 0 / 00046^^ 98 DATA IFLAG / 0 / 00047^^ 99 DATA KHDRX / 'HDR1' / 00048^^ 100 DATA LINCNT / 66 / 00049^^ 101 DATA MNAM / 18 / 00050^^ 102 DATA MNCHG / 1047 / 00051^^ 103 DATA MT1 / 16 / 00052^^ 104 DATA NDAONE / '0000000001' / 00053^^ 105 DATA NUMREJ / 6*$3030 / 00054^^ 106 DATA NUMUPD / 6*$3030 / 00055^^ 107 DATA N0 / 0 / 00056^^ 108 DATA N1 / 1 / 00057^^ 109 DATA N2 / 2 / 00058^^ 110 DATA N3 / 3 / 00059^^ 111 DATA N4 / 4 / 00060^^ 112 DATA N5 / 5 / 00061^^ 113 DATA N6 / 6 / 00062^^ 114 DATA N7 / 7 / 00063^^ 115 DATA N9 / 9 / 00064^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 5 DATE: 08/30/84 TIME: 0140 t^ 116 DATA N10 / 10 / 00065^^ 117 DATA N11 / 11 / 00066^^ 118 DATA N13 / 13 / 00067^^ 119 DATA N14 / 14 / 00068^^ 120 DATA N15 / 15 / 00069^^ 121 DATA N16 / 16 / 00070^^ 122 DATA N35 / 35 / 00071^^ 123 DATA N40 / 40 / 00072^^ 124 DATA N80 / 80 / 00073^^ 125 DATA N132 / 132 / 00074^^ 126 DATA PAGCNT / 6*$3030 / 00075^^ 127 DATA RECBDM / 1002*$2020 / 00076^^ 128 DATA REQBAD / 24*0 / 00077^^ 129 DATA REQBCS / 24*0 / 00078^^ 130 DATA REQBDM / 24*0 / 00079^^ 131 DATA REQBIN / 24*0 / 00080^^ 132 DATA REQBPR / 24*0 / 00081^^ 133 DATA REQBUT / 24*0 / 00082^^ 134 DATA R9SWCH / $00E3 / 00083^^ 135 DATA TAPE / 6 / 00084^^ 136 DATA TNFLD / 20 / 00085^^ 137 DATA TOTPRT / 0 / 00086^^ 138 DATA WRONKY / $0200 / 00087^ ^ C**** END OF INITIALIZATION. 00089^ ^ 139 END 00091^t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 6 DATE: 08/30/84 TIME: 0140 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $0000 ( 0)   t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 7 DATE: 08/30/84 TIME: 0140 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & ACCTFD INTEGER 0001 D 3,7,78 &( AFLG INTEGER 05A1 D 44,46,79 (( AZEROS INTEGER 0710 D 63,65,80 (( BLANKS INTEGER 070F D 63,65,81 (( BUSY INTEGER 050E D 20,23,82 (* COLHD INTEGER 0680 D 52,55,83,84*$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$( DETLIN INTEGER 053B D 27,29,85 (& DUMMY INTEGER 0000 D 1,3,86 &( EOF INTEGER 050D D 20,23,87 (& EOFFLG INTEGER 0002 D 3,7,88 &$ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$. HDLIN INTEGER 05B8 D 52,55,89,90,91 .$ HDLINT INTEGER 067E D 52,55$( IDATAD INTEGER 04AE D 14,16,92 (( IDATCS INTEGER 047C D 11,13,93 (& IDATDM INTEGER 0406 D 7,9,94 &( IDATIN INTEGER 04FC D 18,20,95 (( IDATPR INTEGER 04D5 D 16,18,96 (& IDATUT INTEGER 0455 D 9,11,97&( IFLAG INTEGER 0586 D 31,33,98 ($ INPBUF INTEGER 050F D 23,25$$ ISTAT INTEGER 050B D 20,23$( KHDRX INTEGER 05AA D 48,50,99 (( LINCNT INTEGER 057F D 29,31,100(( MNAM INTEGER 059F D 42,44,101(( MNCHG INTEGER 05A0 D 42,44,102($ MONTH INTEGER 058F D 33,35$( MT1 INTEGER 059D D 38,40,103(( N0 INTEGER 071F D 65,72,107(( N1 INTEGER 0720 D 65,72,108(( N10 INTEGER 0728 D 65,73,116(( N11 INTEGER 0729 D 65,73,117(( N13 INTEGER 072A D 65,73,118(( N132 INTEGER 0731 D 65,77,125(( N14 INTEGER 072B D 65,73,119(( N15 INTEGER 072C D 65,73,120(( N16 INTEGER 072D D 65,73,121(( N2 INTEGER 0721 D 65,72,109(( N3 INTEGER 0722 D 65,72,110(t FTN 3.3B (OPT = LPC) Q8QBDS PAGE 8 DATE: 08/30/84 TIME: 0140 t( N35 INTEGER 072E D 65,74,122(( N4 INTEGER 0723 D 65,72,111(( N40 INTEGER 072F D 65,75,123(( N5 INTEGER 0724 D 65,72,112(( N6 INTEGER 0725 D 65,72,113(( N7 INTEGER 0726 D 65,72,114(( N80 INTEGER 0730 D 65,76,124(( N9 INTEGER 0727 D 65,72,115(( NDAONE INTEGER 070A D 61,63,104(( NUMREJ INTEGER 05B2 D 50,52,105(( NUMUPD INTEGER 05AC D 50,52,106(( PAGCNT INTEGER 0580 D 29,31,126(( R9SWCH INTEGER 0592 D 36,38,134($ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$* RECBDM INTEGER 001C D 7,9,14,127 *$ RECBUT INTEGER 042D D 9,11 $( REQBAD INTEGER 048B D 14,16,128(( REQBCS INTEGER 0464 D 11,13,129(& REQBDM INTEGER 0004 D 7,9,130&( REQBIN INTEGER 04E4 D 18,20,131(( REQBPR INTEGER 04BD D 16,18,132(( REQBUT INTEGER 0415 D 9,11,133 ($ SWITCH INTEGER 0593 D 36,38$( TAPE INTEGER 059C D 38,40,135($ TCODE INTEGER 0706 D 55,57$$ TEMP INTEGER 0587 D 31,33$$ TKEY INTEGER 05A2 D 46,48$$ TLU INTEGER 0707 D 57,59$( TNFLD INTEGER 059E D 40,42,136(& TOTPRT INTEGER 0003 D 3,7,137&$ U INTEGER 0594 D 36,38$( WRONKY INTEGER 050C D 20,23,138($ YEAR INTEGER 0591 D 33,35$   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  Q8QBDS 7FFF t FTN 3.3B (OPT = LPC) FUPD4X PAGE 1 DATE: 08/30/84 TIME: 0141 t^ 1 SUBROUTINE FUPD4X 00001^^ 1 1 /B55 F CCS CCS 3.0 SL-149 00002^^ C UPD400 MAIN PROCESSOR MODULE 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C THIS IS THE CENTRAL PROCESSOR FOR NON-FINANCIAL UPDATE PROCESSING. 00009^^ C IT IS RESPONSIBLE FOR PROCESSING THE UPDATE TAPE, PERFORMING THE 00010^^ C REQUIRED UPDATE OPERATION (TO FIELD IN MASTER OR COSIGNER FILE) 00011^^ C AND, ON END-OF-FILE ON INPUT, PRINT REQUIRED TOTALS AND EXIT. 00012^^ C THE FOLLOWING MAJOR SUBROUTINES ARE USED: 00013^^ C UP4INI - PERFORMS INITIALIZATION FUNCTIONS, SUCH AS OPENING 00014^^ C FILES AND RETRIEVING REQUIRED PARAMETERS. 00015^^ C UP4LAB - PROCESSES TAPE LABELS, IF PRESENT. DOES NOT PERFORM 00016^^ C ANY CHECKING OF LABELS, BUT IS EASILY MODIFIED TO 00017^^ C PERFORM CHECKING. 00018^^ C UP4NXT - READS NEXT TRANSACTION (RECORD) FROM INPUT SPECIFIED 00019^^ C IN SWITCH SETTINGS (SEE BELOW FOR SWITCH SETTINGS). 00020^^ C UP4TOT - PERFORMS PRINTING OF TOTALS AT COMPLETION OF UPDATE. 00021^^ C UP4END - EXIT PROCESSOR WHICH CLOSES THE OPEN FILES AND 00022^^ C RETURNS CONTROL TO THE CCS EXECUTIVE. THIS MODULE 00023^^ C IS USED FOR NORMAL TERMINATION (END-OF-FILE ON INPUT) 00024^^ C AND ABNORMAL TERMINATION (FATAL FILE ERRORS). 00025^^ C UP4GTM - ATTEMPTS RETRIEVAL OF ACCOUNT SPECIFIED BY TAPE 00026^^ C TRANSACTION FROM DELQMST (MASTER) FILE. 00027^^ C UP4GTC - ATTEMPTS RETRIEVAL OF ACCOUNT SPECIFIED BY INPUT 00028^^ C TRANSACTION FROM COSIGNER FILE. 00029^^ C UP4FML - FORMATS DETAIL OUPUT LINE FOR TRANSACTION BEING 00030^^ C PROCESSED. 00031^^ C UP4PRT - PRINTS DETAIL OR TOTAL LINE WITH TOP-OF-FORM AND 00032^^ C HEADINGS IF REQUIRED. THE OUTPUT UNIT (PRINTER OR 00033^^ C FILE) IS SPECIFIED BY THE SWITCH SETTINGS BELOW. 00034^ ^ C EXTERNAL SWITCH SETTINGS (SWITCH SETTINGS USED NORMALLY FOR RPG 00036^^ C PROGRAMS) GOVERN INPUT AND OUTPUT. THE SWITCHES ARE TO BE SET 00037^^ C IMMEDIATELY PRIOR TO EXECUTION OF THIS PROGRAM VIA THE CCS SWITCH 00038^^ C UTILITY. THE SWITCHES U1 THRU U8 HAVE THE FOLLOWING MEANINGS 00039^^ C WITHIN THE UPDATE PROCESSING: 00040^^ C POSITION (ON 00041^^ C SWITCH =1, OFF=0) MEANING 00042^^ C ------ ------------ ----------------------------------- 00043^^ C U1 SELECTS ASCII OR EBCDIC INPUT 00044^^ C ON INPUT IS EBCDIC FORMAT. 00045^^ C OFF INPUT IS ASCII FORMAT. 00046^^ C U2 SELECTS TAPE OR FILE INPUT UNIT. 00047^^ C ON INPUT FROM FILE "UP4INPUT". 00048^^ C OFF INPUT FROM MAGNETIC TAPE. 00049^^ C U3 SELECTS TAPE UNIT FOR INPUT (IGNORED 00050^^ C IF U2 ON). 00051^^ C ON INPUT UNIT IS MAG TAPE UNIT 1. 00052^^ C OFF INPUT UNIT IS MAG TAPE UNIT 0. 00053^^ C U4 SELECTS LIST OR FILE PRINT OUTPUT 00054^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 2 DATE: 08/30/84 TIME: 0141 t^ C UNIT. 00055^^ C ON PRINT OUTPUT WILL BE TO FILE 00056^^ C "UP4PRINT". 00057^^ C OFF PRINT OUTPUT WILL BE SYSTEM 00058^^ C PRINTER. 00059^^ C U5 NOT USED. 00060^^ C U6 NOT USED. 00061^^ C U7 NOT USED. 00062^^ C U8 NOT USED. 00063^ ^ C THE UPDATE OF FIELDS IS CONTROLLED BY THE INTERNAL TABLE "UP4TBL". 00065^^ C EACH FIELD CONTROLLED BY THIS UPDATE PROCESS HAS THE FOLLOWING 00066^^ C FOUR WORD ENTRY : 00067^^ C WORD 1 - START CHARACTER POSITION IN FILE 00068^^ C WORD 2 - FIELD LENGTH 00069^^ C WORD 3 - EDIT REQUIREMENTS FOR DISPLAY (EDIT CODE) 00070^^ C WORD 4 - FILE DESIGNATOR: IF =0, FIELD BEING UPDATED IS FROM 00071^^ C MASTER (DELQMST) FILE; IF NOT =0, FIELD IS FROM 00072^^ C COSIGNER FILE. 00073^^ C THE INTERNAL FLAG "ZUPDF" DICTATES WHETHER BLANK OR ZERO DATA IS 00074^^ C ALLOWED TO OVERLAY DATA ALREADY ON FILE. IT IS SET TO ZERO, NOT 00075^^ C PERMITTING THIS UPDATE. 00076^ ^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: 00078^^ C 1. PERFORM INITIALIZATION FUNCTIONS AND PROCESS TAPE LABELS. 00079^^ C 2. RETRIEVE NEXT TRANSACTION INPUT; IF END-OF-FILE, PRINT 00080^^ C TOTALS AND PERFORM EXIT FUNCTIONS 00081^^ C ELSE, CONTINUE. 00082^^ C 3. IF TRANSACTION CODE VALID, CONTINUE 00083^^ C ELSE, FORMAT REJECT TRANSACTION DETAIL LINE - INVALID 00084^^ C TRANSACTION CODE 00085^^ C INCREMENT REJECTED TRANSACTION COUNT 00086^^ C PRINT DETAIL LINE 00087^^ C CONTINUE WITH NEXT TRANSACTION. 00088^^ C 4. IF TRANSACTION IS TO UPDATE COSIGNER INFORMATION, CONTINUE 00089^^ C ELSE, RETRIEVE ACCOUNT FROM MASTER FILE 00090^^ C IF ACCOUNT FOUND, CONTINUE 00091^^ C ELSE, FORMAT REJECT TRANSACTION DETAIL LINE - NO 00092^^ C MASTER FILE RECORD FOR ACCOUNT 00093^^ C INCREMENT REJECTED TRANSACTION COUNT 00094^^ C PRINT DETAIL LINE 00095^^ C CONTINUE WIHT NEXT TRANSACTION. 00096^^ C IF UPDATE IS NOT TO ACCOUNT NAME, CONTINUE 00097^^ C ELSE, IF SECONDARY KEY SAVE AREA NON-BLANK, 00098^^ C CONTINUE 00099^^ C ELSE, UPDATE SECONDARY KEY SAVE AREA WITH 00100^^ C CURRENT NAME 00101^^ C FORMAT ADDACT FILE RECORD FOR ACCOUNT 00102^^ C ADD ACCOUNT TO ADDACT FILE 00103^^ C FORMAT DETAIL LINE FOR UPDATE TRANSACTION 00104^^ C PERFORM UPDATE OF FIELD IN MASTER FILE RECORD 00105^^ C INCREMENT UPDATE TRANSACTION COUNT 00106^^ C PRINT DETAIL LINE 00107^^ C UPDATE ACCOUNT ON MASTER FILE 00108^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 3 DATE: 08/30/84 TIME: 0141 t^ C CONTINUE WITH NEXT TRANSACTION. 00109^^ C 5. RETRIEVE ACCOUNT FROM COSIGNER FILE 00110^^ C IF ACCOUNT FOUND, CONTINUE 00111^^ C ELSE, FORMAT REJECT TRANSACTION DETAIL LINE - NO 00112^^ C COSIGNER RECORD FOR ACCOUNT 00113^^ C INCREMENT REJECTED TRANSACTION COUNT 00114^^ C PRINT DETAIL LINE 00115^^ C CONTINUE WITH NEXT TRANSACTION 00116^^ C FORMAT DETAIL LINE FOR UPDATE TRANSACTION 00117^^ C INCREMENT UPDATED TRANSACTION COUNT 00118^^ C PRINT DETAIL LINE 00119^^ C UPDATE ACCOUNT ON COSIGNER FILE 00120^^ C CONTINUE WITH NEXT TRANSACTION. 00121^ ^ C WITHIN EACH SUBROUTINE, THERE WILL BE SIMILAR COMMENTARY CONCERN- 00123^^ C ING FUNCTIONS PERFORMED. THE MAJORITY OF DATA SPACE IS DECLARED 00124^^ C IN LABELLED COMMON AND IS INITILAIZED BY A BLOCK DATA SUBPROGRAM. 00125^^ C THE COMMON DECLARATIONS ARE CONTAINED WITHIN A MACRO CALLED 00126^^ C "UP4MAC". 00127^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00129^^ M UP4MAC 00130^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 4 DATE: 08/30/84 TIME: 0141 t^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 5 DATE: 08/30/84 TIME: 0141 t^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 6 DATE: 08/30/84 TIME: 0141 t^ C**** LOCAL DECLARATIONS. 00131^ ^ C**** NON-FINANCIAL UPDATE TABLE. 00133^^ 78 INTEGER UP4TBL(4,60) 00134^^ C** START CHAR POS IN FILE 00135^^ C** . FIELD LENGTH 00136^^ C** . . EDIT CODE 00137^^ C** . . . FILE DESIGNATOR 00138^^ C** . . . . 00139^^ 79 DATA ((UP4TBL(I,J),I=1,4),J= 1, 1)/ 17, 1, 0, 0 / 00140^^+ + 1. MSLCD 00141^^ 80 DATA ((UP4TBL(I,J),I=1,4),J= 2, 2)/ 18, 30, 0, 0 / 00142^^+ + 2. MNAM 00143^^ 81 DATA ((UP4TBL(I,J),I=1,4),J= 3, 3)/ 48, 30, 0, 0 / 00144^^+ + 3. MADR1 00145^^ 82 DATA ((UP4TBL(I,J),I=1,4),J= 4, 4)/ 78, 30, 0, 0 / 00146^^+ + 4. MADR2 00147^^ 83 DATA ((UP4TBL(I,J),I=1,4),J= 5, 5)/ 108, 20, 0, 0 / 00148^^+ + 5. MCS 00149^^ 84 DATA ((UP4TBL(I,J),I=1,4),J= 6, 6)/ 128, 5, 0, 0 / 00150^^+ + 6. MZP 00151^^ 85 DATA ((UP4TBL(I,J),I=1,4),J= 7, 7)/ 133, 10, 4, 0 / 00152^^+ + 7. MPHN 00153^^ 86 DATA ((UP4TBL(I,J),I=1,4),J= 8, 8)/ 143, 4, 0, 0 / 00154^^+ + 8. MEXT 00155^^ 87 DATA ((UP4TBL(I,J),I=1,4),J= 9, 9)/ 147, 30, 0, 0 / 00156^^+ + 9. MBNM 00157^^ 88 DATA ((UP4TBL(I,J),I=1,4),J=10,10)/ 177, 30, 0, 0 / 00158^^+ + 10. MBAD 00159^^ 89 DATA ((UP4TBL(I,J),I=1,4),J=11,11)/ 207, 20, 0, 0 / 00160^^+ + 11. MBCS 00161^^ 90 DATA ((UP4TBL(I,J),I=1,4),J=12,12)/ 227, 5, 0, 0 / 00162^^+ + 12. MBZP 00163^^ 91 DATA ((UP4TBL(I,J),I=1,4),J=13,13)/ 232, 10, 4, 0 / 00164^^+ + 13. MBPH 00165^^ 92 DATA ((UP4TBL(I,J),I=1,4),J=14,14)/ 242, 4, 0, 0 / 00166^^+ + 14. MBEX 00167^^ 93 DATA ((UP4TBL(I,J),I=1,4),J=15,15)/ 246, 16, 0, 0 / 00168^^+ + 15. MADL 00169^^ 94 DATA ((UP4TBL(I,J),I=1,4),J=16,16)/ 262, 9, 6, 0 / 00170^^+ + 16. MSOC 00171^^ 95 DATA ((UP4TBL(I,J),I=1,4),J=17,17)/ 0, 0, 0, 0 / 00172^^+ + 17. NOT USED 00173^^ 96 DATA ((UP4TBL(I,J),I=1,4),J=18,18)/ 0, 0, 0, 0 / 00174^^+ + 18. NOT USED 00175^^ 97 DATA ((UP4TBL(I,J),I=1,4),J=19,19)/ 0, 0, 0, 0 / 00176^^+ + 19. NOT USED 00177^^ 98 DATA ((UP4TBL(I,J),I=1,4),J=20,20)/ 0, 0, 0, 0 / 00178^^+ + 20. NOT USED 00179^^ 99 DATA ((UP4TBL(I,J),I=1,4),J=21,21)/ 18, 1, 0, 1 / 00180^^+ + 21. CSLC1 00181^^ 100 DATA ((UP4TBL(I,J),I=1,4),J=22,22)/ 19, 1, 0, 1 / 00182^^+ + 22. C1FG 00183^^ 101 DATA ((UP4TBL(I,J),I=1,4),J=23,23)/ 20, 30, 0, 1 / 00184^^+ + 23. CN1 00185^^ 102 DATA ((UP4TBL(I,J),I=1,4),J=24,24)/ 50, 30, 0, 1 / 00186^^+ + 24. CA1 00187^^ 103 DATA ((UP4TBL(I,J),I=1,4),J=25,25)/ 80, 20, 0, 1 / 00188^^+ + 25. CS1 00189^^ 104 DATA ((UP4TBL(I,J),I=1,4),J=26,26)/ 100, 5, 0, 1 / 00190^^+ + 26. CZ1 00191^^ 105 DATA ((UP4TBL(I,J),I=1,4),J=27,27)/ 105, 10, 4, 1 / 00192^^+ + 27. CH1 00193^^ 106 DATA ((UP4TBL(I,J),I=1,4),J=28,28)/ 115, 4, 0, 1 / 00194^^+ + 28. CHE1 00195^^ 107 DATA ((UP4TBL(I,J),I=1,4),J=29,29)/ 119, 10, 4, 1 / 00196^^+ + 29. CB1 00197^^ 108 DATA ((UP4TBL(I,J),I=1,4),J=30,30)/ 129, 4, 0, 1 / 00198^^+ + 30. CBE1 00199^^ 109 DATA ((UP4TBL(I,J),I=1,4),J=31,31)/ 133, 1, 0, 1 / 00200^^+ + 31. CSLC2 00201^^ 110 DATA ((UP4TBL(I,J),I=1,4),J=32,32)/ 134, 1, 0, 1 / 00202^^+ + 32. C2FG 00203^^ 111 DATA ((UP4TBL(I,J),I=1,4),J=33,33)/ 135, 30, 0, 1 / 00204^^+ + 33. CN2 00205^^ 112 DATA ((UP4TBL(I,J),I=1,4),J=34,34)/ 165, 30, 0, 1 / 00206^^+ + 34. CA2 00207^^ 113 DATA ((UP4TBL(I,J),I=1,4),J=35,35)/ 195, 20, 0, 1 / 00208^^+ + 35. CS2 00209^^ 114 DATA ((UP4TBL(I,J),I=1,4),J=36,36)/ 215, 5, 0, 1 / 00210^^+ + 36. CZ2 00211^^ 115 DATA ((UP4TBL(I,J),I=1,4),J=37,37)/ 220, 10, 4, 1 / 00212^^+ + 37. CH2 00213^^ 116 DATA ((UP4TBL(I,J),I=1,4),J=38,38)/ 230, 4, 0, 1 / 00214^^+ + 38. CHE2 00215^^ 117 DATA ((UP4TBL(I,J),I=1,4),J=39,39)/ 234, 10, 4, 1 / 00216^^+ + 39. CB2 00217^^ 118 DATA ((UP4TBL(I,J),I=1,4),J=40,40)/ 244, 4, 0, 1 / 00218^^+ + 40. CBE2 00219^^ 119 DATA ((UP4TBL(I,J),I=1,4),J=41,41)/ 248, 1, 0, 1 / 00220^^+ + 41. CSLC3 00221^^ 120 DATA ((UP4TBL(I,J),I=1,4),J=42,42)/ 249, 1, 0, 1 / 00222^^+ + 42. C3FG 00223^^ 121 DATA ((UP4TBL(I,J),I=1,4),J=43,43)/ 250, 30, 0, 1 / 00224^^+ + 43. CN3 00225^^ 122 DATA ((UP4TBL(I,J),I=1,4),J=44,44)/ 280, 30, 0, 1 / 00226^^+ + 44. CA3 00227^^ 123 DATA ((UP4TBL(I,J),I=1,4),J=45,45)/ 310, 20, 0, 1 / 00228^^+ + 45. CS3 00229^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 7 DATE: 08/30/84 TIME: 0141 t^ 124 DATA ((UP4TBL(I,J),I=1,4),J=46,46)/ 330, 5, 0, 1 / 00230^^+ + 46. CZ3 00231^^ 125 DATA ((UP4TBL(I,J),I=1,4),J=47,47)/ 335, 10, 4, 1 / 00232^^+ + 47. CH3 00233^^ 126 DATA ((UP4TBL(I,J),I=1,4),J=48,48)/ 345, 4, 0, 1 / 00234^^+ + 48. CHE3 00235^^ 127 DATA ((UP4TBL(I,J),I=1,4),J=49,49)/ 349, 10, 4, 1 / 00236^^+ + 49. CB3 00237^^ 128 DATA ((UP4TBL(I,J),I=1,4),J=50,50)/ 359, 4, 0, 1 / 00238^^+ + 50. CBE3 00239^^ 129 DATA ((UP4TBL(I,J),I=1,4),J=51,51)/ 0, 0, 0, 0 / 00240^^+ + 51. NOT USED 00241^^ 130 DATA ((UP4TBL(I,J),I=1,4),J=52,52)/ 0, 0, 0, 0 / 00242^^+ + 52. NOT USED 00243^^ 131 DATA ((UP4TBL(I,J),I=1,4),J=53,53)/ 0, 0, 0, 0 / 00244^^+ + 53. NOT USED 00245^^ 132 DATA ((UP4TBL(I,J),I=1,4),J=54,54)/ 0, 0, 0, 0 / 00246^^+ + 54. NOT USED 00247^^ 133 DATA ((UP4TBL(I,J),I=1,4),J=55,55)/ 0, 0, 0, 0 / 00248^^+ + 55. NOT USED 00249^^ 134 DATA ((UP4TBL(I,J),I=1,4),J=56,56)/ 0, 0, 0, 0 / 00250^^+ + 56. NOT USED 00251^^ 135 DATA ((UP4TBL(I,J),I=1,4),J=57,57)/ 0, 0, 0, 0 / 00252^^+ + 57. NOT USED 00253^^ 136 DATA ((UP4TBL(I,J),I=1,4),J=58,58)/ 0, 0, 0, 0 / 00254^^+ + 58. NOT USED 00255^^ 137 DATA ((UP4TBL(I,J),I=1,4),J=59,59)/ 0, 0, 0, 0 / 00256^^+ + 59. NOT USED 00257^^ 138 DATA ((UP4TBL(I,J),I=1,4),J=60,60)/ 0, 0, 0, 0 / 00258^^+ + 60. NOT USED 00259^ ^ C**** MAXIMUM NUMBER OF ENTRIES IN TABLE (MAXIMUM TRANSACTION CODE 00261^^ C**** VALUE). 00262^^ 139 INTEGER MAXCOD 00263^^ 140 DATA MAXCOD / 60 / 00264^ ^ C**** TRANSACTION CODE FOR ACCOUNT NAME CHANGE. 00266^^ 141 INTEGER TCMNAM 00267^^ 142 DATA TCMNAM / 2 / 00268^ ^ C**** NAME CHANGE FLAG FOR ADD ACCOUNT FILE. 00270^^ 143 INTEGER NMCFLG 00271^^ 144 DATA NMCFLG / $4E / 00272^^ C** 'N' 00273^ ^ C**** BLANK OR ZERO UPDATE ALLOWED FLAG - INITIALLY SET TO PROHIBIT 00275^^ C**** BLANK AND ZERO UPDATE. 00276^^ 145 INTEGER ZUPDF 00277^^ 146 DATA ZUPDF / 0 / 00278^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 8 DATE: 08/30/84 TIME: 0141 t^ C*********************************************************************** 00280^^ C* BEGIN PROGRAM. 00281^^ C*********************************************************************** 00282^   ^ C*********************************************************************** 00284^^ C* PERFORM INITIALIZATION FUNCTIONS SUCH AS OPENING FILES, 00285^^ C* RETRIEVING SYSTEM DATE AND REPORT HEADINGS. 00286^^ C*********************************************************************** 00287^ ^ 147 100 CALL UP4INI 00289^  ^ C*********************************************************************** 00291^^ C* PROCESS TAPE LABELS, IF PRESENT. 00292^^ C*********************************************************************** 00293^ ^ 148 110 CALL UP4LAB 00295^   ^ C*********************************************************************** 00297^^ C* BEGIN MAIN TRANSACTION PROCESSING LOOP. 00298^^ C*********************************************************************** 00299^ ^ C*********************************************************************** 00301^^ C* READ NEXT INPUT TRANSACTION. 00302^^ C*********************************************************************** 00303^ ^ 149 200 CALL UP4NXT 00305^ ^ C**** IF NOT END-OF-FILE, CONTINUE TO PROCESS TRANSACTION 00307^^ 150 210 IF ( EOFFLG .EQ. 0 ) GO TO 220 00308^^ C** ELSE, PRINT TOTALS AND EXIT (NO RETURN FROM UPDEND). 00309^^ 151 CALL UP4TOT 00310^^ 152 CALL UP4END 00311^ ^ C**** IF TRANSACTION CODE VALID, CONTINUE 00313^^ 153 220 CALL CCSGET ( INPBUF, N1, I ) 00314^^ 154 CALL CCSGET ( INPBUF, N2, J ) 00315^^ 155 CALL CCSGET ( INPBUF, N3, K ) 00316^^ 156 TCODE = (J-$30)*N10 + (K-$30) 00317^^ 157 IF ( I .EQ. $34 .AND. ( J .GE. $30 .AND. J .LT. $3A ) 00318^^ 157 + .AND. ( K .GE. $30 .AND. K .LT. $3A ) 00319^^ 157 + .AND. ( TCODE .GE. 1 .AND. TCODE .LE. MAXCOD) 00320^^ 157 + .AND. ( UP4TBL(1,TCODE) .NE. 0 ) ) 00321^^ 157 + GO TO 230 00322^^ C** ELSE, FORMAT REJECT TRANSACTION DETAIL LINE - INVALID 00323^^ C** TRANSACTION CODE 00324^^ 158 CALL UP4FML ( N4 ) 00325^^ C** INCREMENT REJECTED TRANSACTION COUNT 00326^^ 159 CALL CCSADD ( NDAONE, N2, NUMREJ, N1, NUMREJ, N1 ) 00327^^ C** PRINT DETAIL LINE 00328^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 9 DATE: 08/30/84 TIME: 0141 t^ 160 CALL UP4PRT ( DETLIN ) 00329^^ C** CONTINUE WITH NEXT TRANSACTION. 00330^^ 161 GO TO 500 00331^ ^ C**** PLACE FIELD DESCRIPTION IN COMMON. 00333^^ 162 230 FSTR = UP4TBL(1,TCODE) 00334^^ 163 FLEN = UP4TBL(2,TCODE) 00335^^ 164 FEDT = UP4TBL(3,TCODE) 00336^ ^ C**** IF TRANSACTION IS TO UPDATE COSIGNER INFORMATION, CONTINUE 00338^^ 165 IF ( UP4TBL(4,TCODE) .NE. 0 ) GO TO 300 00339^^ C** ELSE, RETRIEVE ACCOUNT FROM MASTER FILE FOR UPDATING 00340^^ 166 CALL UP4GTM 00341^^ C** IF ACCOUNT FOUND, CONTINUE 00342^^ 167 IF ( ACCTFD .NE. 0 ) GO TO 240 00343^^ C** ELSE, FORMAT REJECT TRANSACTION DETAIL LINE - 00344^^ C** ACCOUNT NOT FOUND IN MATER FILE 00345^^ 168 CALL UP4FML ( N2 ) 00346^^ C** INCREMENT REJECTED TRANSACTION COUNT 00347^^ 169 CALL CCSADD ( NDAONE, N2, NUMREJ, N1, NUMREJ, N1 ) 00348^^ C** PRINT DETAIL LINE 00349^^ 170 CALL UP4PRT ( DETLIN ) 00350^^ C** CONTINUE WITH NEXT TRANSACTION 00351^^ 171 GO TO 500 00352^ ^ C** IF UPDATE IS NOT TO ACCOUNT NAME, CONTINUE 00354^^ 172 240 IF ( TCODE .NE. TCMNAM ) GO TO 250 00355^^ C** ELSE, IF NAME UPDATE IS WITH BLANKS AND BLANK UPDATE 00356^^ C** NOT ALLOWED, CONTINUE 00357^^ 173 CALL CCSCST ( INPBUF, TNFLD, FLEN, DUMMY, N0, N0, 00358^^ 173 + COMPIN ) 00359^^ 174 IF ( COMPIN .EQ. 0 .AND. ZUPDF .EQ. 0 ) GO TO 250 00360^^ C** ELSE, IF SECONDARY KEY SAVE AREA NON-BLANK, 00361^^ C** CONTINUE 00362^^ 175 CALL CCSCST ( RECBDM, MNCHG, N6, 00363^^ 175 + DUMMY , N0 , N0, COMPIN ) 00364^^ 176 IF ( COMPIN .NE. 0 ) GO TO 250 00365^^ C** ELSE, UPDATE SECONDARY KEY SAVE AREA WITH 00366^^ C** CURRENT SECONDARY KEY 00367^^ 177 CALL CCSMVA ( RECBDM, MNAM, N6, 00368^^ 177 + RECBDM, MNCHG, N6 ) 00369^^ C** FORMAT ADDACT FILE RECORD FOR ACCOUNT 00370^^ 178 CALL CCSMVA ( RECBDM, N1, N16, 00371^^ 178 + RECBAD, N1, N16 ) 00372^^ 179 CALL CCSPUT ( NMCFLG, AFLG, RECBAD ) 00373^^ C** ADD ACCOUNT TO ADDACT FILE 00374^^ 180 CALL PUTS ( REQBAD, RECBAD, N1, ISTAT ) 00375^^ C** IF NO FILE ERROR, CONTINUE 00376^^ 181 IF ( ISTAT .GE. 0 ) GO TO 250 00377^^ C** ELSE, REPORT ERROR AND EXIT ( NO RE- 00378^^ C** TURN FROM UP4END) 00379^^ 182 CALL FILERR ( IDATAD, N11, ISTAT, 00380^^ 182 + TLU ) 00381^^ 183 CALL UP4END 00382^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 10 DATE: 08/30/84 TIME: 0141 t^ C** FORMAT DETAIL LINE FOR UPDATE TRANSACTION 00383^^ 184 250 CALL UP4FML ( N1 ) 00384^^ C** UPDATE FIELD IN MASTER FILE RECORD 00385^^ 185 CALL CHNGNF ( RECBDM, FSTR, INPBUF, TNFLD, FLEN, ZUPDF ) 00386^^ C** INCREMENT UPDATE TRANSACTION COUNT 00387^^ 186 CALL CCSADD ( NDAONE, N2, NUMUPD, N1, NUMUPD, N1 ) 00388^^ C** PRINT DETAIL LINE 00389^^ 187 CALL UP4PRT ( DETLIN ) 00390^^ C** UPDATE ACCOUNT ON MASTER FILE 00391^^ 188 CALL UPDREC ( REQBDM, RECBDM, ISTAT ) 00392^^ C** IF NO FILE ERROR, CONTINUE WITH NEXT TRANSACTION 00393^^ 189 IF ( ISTAT .GE. 0 ) GO TO 500 00394^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM 00395^^ C** UP4END). 00396^^ 190 CALL FILERR ( IDATDM, N15, ISTAT, TLU ) 00397^^ 191 CALL UP4END 00398^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 11 DATE: 08/30/84 TIME: 0141 t^ C**** RETRIEVE ACCOUNT FROM COSIGNER FILE FOR UPDATING 00400^^ 192 300 CALL UP4GTC 00401^^ C** IF ACCOUNT FOUND, CONTINUE 00402^^ 193 IF ( ACCTFD .NE. 0 ) GO TO 310 00403^^ C** ELSE, FORMAT REJECT TRANSACTION DETAIL LINE - NO COSIGNER 00404^^ C** RECORD FOR ACCOUNT 00405^^ 194 CALL UP4FML ( N3 ) 00406^^ C** INCREMENT REJECTED TRANSACTION COUNT 00407^^ 195 CALL CCSADD ( NDAONE, N2, NUMREJ, N1, NUMREJ, N1 ) 00408^^ C** PRINT DETAIL LINE 00409^^ 196 CALL UP4PRT ( DETLIN ) 00410^^ C** CONTINUE WITH NEXT TRANSACTION 00411^^ 197 GO TO 500 00412^ ^ C** FORMAT DETAIL LINE FOR UPDATE TRANSACTION 00414^^ 198 310 CALL UP4FML ( N1 ) 00415^^ C** IF NEW FIELD CONTENTS ARE BLANK OR ZERO, AND BLANK OR ZERO 00416^^ C** UPDATE NOT ALLOWED, CONTINUE 00417^^ 199 CALL CCSCST ( INPBUF, TNFLD, FLEN, DUMMY, N0, N0, COMPIN ) 00418^^ 200 CALL CCSCST ( INPBUF, TNFLD, FLEN, AZEROS, N1, FLEN, COMPI2 ) 00419^^ 201 IF ( ( COMPIN .EQ. 0 .OR. COMPI2 .EQ. 0 ) .AND. 00420^^ 201 + ZUPDF .EQ. 0 ) GO TO 320 00421^^ C** ELSE, PERFORM THE UPDATE OF THE FIELD 00422^^ 202 CALL CCSMVA ( INPBUF, TNFLD, FLEN, RECBCS, FSTR, FLEN ) 00423^^ C** INCREMENT UPDATED TRANSACTION COUNT 00424^^ 203 320 CALL CCSADD ( NDAONE, N2, NUMUPD, N1, NUMUPD, N1 ) 00425^^ C** PRINT DETAIL LINE 00426^^ 204 CALL UP4PRT ( DETLIN ) 00427^^ C** UPDATE ACCOUNT ON COSIGNER FILE 00428^^ 205 CALL UPDREC ( REQBCS, RECBCS, ISTAT ) 00429^^ C** IF NO FILE ERROR, CONTINUE WITH NEXT TRANSACTION 00430^^ 206 IF ( ISTAT .GE. 0 ) GO TO 500 00431^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM UP4END). 00432^^ 207 CALL FILERR ( IDATCS, N15, ISTAT, TLU ) 00433^^ 208 CALL UP4END 00434^   ^ C*********************************************************************** 00436^^ C* END OF TRANSACTION PROCESSING LOOP. GO PROCESS NEXT TRANSACTION. 00437^^ C*********************************************************************** 00438^ ^ 209 500 GO TO 200 00440^  ^ C**** NO RETURN FROM THIS SUBROUTINE. EXIT IS THRU UPDEND SUBROUTINE. 00442^^ 210 END 00443^t FTN 3.3B (OPT = LPC) FUPD4X PAGE 12 DATE: 08/30/84 TIME: 0141 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $024D ( 589)   EXTERNALS 2 UP4INI UP4LAB UP4NXT UP4TOT UP4END CCSGET UP4FML 22 CCSADD UP4PRT UP4GTM CCSCST CCSMVA CCSPUT PUTS 2 FILERR CHNGNF UPDREC UP4GTC  t FTN 3.3B (OPT = LPC) FUPD4X PAGE 13 DATE: 08/30/84 TIME: 0141 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * ACCTFD INTEGER 0001 D 3,7,167,193*( AFLG INTEGER 05A1 D 44,46,179(( AZEROS INTEGER 0710 D 63,65,200($ BLANKS INTEGER 070F D 63,65$$ BUSY INTEGER 050E D 20,23$$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$, COMPI2 INTEGER 0709 D 59,61,200,201,< COMPIN INTEGER 0708 D 59,61,173,174,175,176,199,201<( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$8 DETLIN INTEGER 053B D 27,29,160,170,187,196,2048. DUMMY INTEGER 0000 D 1,3,173,175,199.$ EOF INTEGER 050D D 20,23$& EOFFLG INTEGER 0002 D 3,7,150&( FEDT INTEGER 053A D 25,27,164(< FLEN INTEGER 0539 D 25,27,163,173,185,199,200,202<0 FSTR INTEGER 0538 D 25,27,162,185,2020$ HDLIN INTEGER 05B8 D 52,55$$ HDLINT INTEGER 067E D 52,55$‚ I INTEGER 00F0 79,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107, ‚€ 108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131, €B 132,133,134,135,136,137,138,153,157B( IDATAD INTEGER 04AE D 14,16,182(( IDATCS INTEGER 047C D 11,13,207(& IDATDM INTEGER 0406 D 7,9,190&$ IDATIN INTEGER 04FC D 18,20$$ IDATPR INTEGER 04D5 D 16,18$$ IDATUT INTEGER 0455 D 9,11 $$ IFLAG INTEGER 0586 D 31,33$D INPBUF INTEGER 050F D 23,25,153,154,155,173,185,199,200,202DH ISTAT INTEGER 050B D 20,23,180,181,182,188,189,190,205,206,207H‚ J INTEGER 00F1 79,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107, ‚€ 108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131, €F 132,133,134,135,136,137,138,154,156,157F* K INTEGER 00F6 155,156,157*$ KHDRX INTEGER 05AA D 48,50$$ LINCNT INTEGER 057F D 29,31$* MAXCOD INTEGER 00F2 138,140,157*( MNAM INTEGER 059F D 42,44,177(, MNCHG INTEGER 05A0 D 42,44,175,177,$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$0 N0 INTEGER 071F D 65,72,173,175,1990P N1 INTEGER 0720 D 65,72,153,159,169,178,180,184,186,195,198,200,203P( N10 INTEGER 0728 D 65,73,156(t FTN 3.3B (OPT = LPC) FUPD4X PAGE 14 DATE: 08/30/84 TIME: 0141 t( N11 INTEGER 0729 D 65,73,182($ N13 INTEGER 072A D 65,73$$ N132 INTEGER 0731 D 65,77$$ N14 INTEGER 072B D 65,73$, N15 INTEGER 072C D 65,73,190,207,( N16 INTEGER 072D D 65,73,178(@ N2 INTEGER 0721 D 65,72,154,159,168,169,186,195,203@, N3 INTEGER 0722 D 65,72,155,194,$ N35 INTEGER 072E D 65,74$( N4 INTEGER 0723 D 65,72,158($ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$, N6 INTEGER 0725 D 65,72,175,177,$ N7 INTEGER 0726 D 65,72$$ N80 INTEGER 0730 D 65,76$$ N9 INTEGER 0727 D 65,72$8 NDAONE INTEGER 070A D 61,63,159,169,186,195,2038* NMCFLG INTEGER 00F4 142,144,179*0 NUMREJ INTEGER 05B2 D 50,52,159,169,1950, NUMUPD INTEGER 05AC D 50,52,186,203,$ PAGCNT INTEGER 0580 D 29,31$$ R9SWCH INTEGER 0592 D 36,38$0 RECBAD INTEGER 04A3 D 14,16,178,179,1800, RECBCS INTEGER 001C D 11,14,202,205,: RECBDM INTEGER 001C D 7,9,14,175,177,178,185,188 :$ RECBUT INTEGER 042D D 9,11 $( REQBAD INTEGER 048B D 14,16,180(( REQBCS INTEGER 0464 D 11,13,205(& REQBDM INTEGER 0004 D 7,9,188&$ REQBIN INTEGER 04E4 D 18,20$$ REQBPR INTEGER 04BD D 16,18$$ REQBUT INTEGER 0415 D 9,11 $$ SWITCH INTEGER 0593 D 36,38$$ TAPE INTEGER 059C D 38,40$* TCMNAM INTEGER 00F3 140,142,172*@ TCODE INTEGER 0706 D 55,57,156,157,162,163,164,165,172@$ TEMP INTEGER 0587 D 31,33$$ TKEY INTEGER 05A2 D 46,48$0 TLU INTEGER 0707 D 57,59,182,190,20708 TNFLD INTEGER 059E D 40,42,173,185,199,200,2028" TOTPRT INTEGER 0003 D 3,7"$ U INTEGER 0594 D 36,38$‚ UP4TBL INTEGER 0000 77,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107, ‚€ 108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131, €N 132,133,134,135,136,137,138,157,162,163,164,165N$ WRONKY INTEGER 050C D 20,23$$ YEAR INTEGER 0591 D 33,35$2 ZUPDF INTEGER 00F5 144,146,174,185,2012t FTN 3.3B (OPT = LPC) FUPD4X PAGE 15 DATE: 08/30/84 TIME: 0141 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < 2 CCSADD SUBROUTINE 01D9 158,169,186,195,2032. CCSCST SUBROUTINE 0207 172,175,199,200.* CCSGET SUBROUTINE 0106 153,154,155** CCSMVA SUBROUTINE 0224 176,178,202*" CCSPUT SUBROUTINE 01B7 178"" CHNGNF SUBROUTINE 01D1 184"* FILERR SUBROUTINE 023D 181,190,207*" PUTS SUBROUTINE 01BC 179". UP4END SUBROUTINE 0243 150,183,191,208.2 UP4FML SUBROUTINE 01CE 157,168,184,194,1982" UP4GTC SUBROUTINE 01F3 192"" UP4GTM SUBROUTINE 0171 165"" UP4INI SUBROUTINE 00F8 146"" UP4LAB SUBROUTINE 00FA 146"" UP4NXT SUBROUTINE 00FC 146"2 UP4PRT SUBROUTINE 01E1 159,170,187,196,2042" UP4TOT SUBROUTINE 0102 150"& UPDREC SUBROUTINE 01E4 187,205&   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 00F7 146"" 110 00F9 146"& 200 00FB 146,209&" 210 00FD 146"& 220 0105 150,153&& 230 014F 157,162&& 240 0183 167,172&2 250 01CD 172,174,176,181,1842& 300 01F2 165,192&& 310 0204 193,198&& 320 022B 201,203&6 500 0244 160,171,189,197,206,2096 FUPD4X 0248 1  t FTN 3.3B (OPT = LPC) UP4INI PAGE 1 DATE: 08/30/84 TIME: 0142 t^ 1 SUBROUTINE UP4INI 00001^^ 1 1 /C33 F CCS CCS 3.0 SL-149 00002^^ C PERFORM UPD400 INTIALIZATION FUNCTIONS 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C UP4INI IS RESPONSIBLE FOR PERFORMING BASIC INITIALIZATION FUNC- 00009^^ C TIONS FOR THE NON-FINANCIAL UPDATE PROCESSING PROGRAM. THIS 00010^^ C INVOLVES THE FOLLOWING STEPS: 00011^^ C 1. RETRIEVE SYSTEM DATE. 00012^^ C 2. RETRIEVE EXTERNAL SWITCH SETTINGS. 00013^^ C 3. IF SWITCH U4 IS ON (SELECTS PRINT OUTPUT TO FILE INSTEAD 00014^^ C OF SYSTEM PRINTER), OPEN "UP4PRINT" FILE 00015^^ C ELSE, CONTINUE. 00016^^ C 4. IF SWITCH U2 IS ON (SELECTS UNLABELLED INPUT FROM FILE 00017^^ C INSTEAD OF MAGNETIC TAPE INPUT), OPEN "UP4INPUT" FILE 00018^^ C ELSE, IF SWITCH U3 IS ON (SELECTS MAG TAPE UNIT 1 00019^^ C AS INPUT INSTEAD OF UNIT 0), SET MAG TAPE UNIT 1 AS 00020^^ C INPUT UNIT 00021^^ C ELSE, CONTINUE WITH DEFAULT - MAG TAPE UNIT 0. 00022^^ C 5. OPEN UTILITY FILE. 00023^^ C 6. OPEN MASTER FILE. 00024^^ C 7. OPEN COSIGNER FILE. 00025^^ C 8. OPEN ADD ACCOUNT FILE. 00026^^ C 9. RETRIEVE AND SAVE REPORT HEADINGS FROM UTILITY FILE. 00027^^ C 10. RETURN. 00028^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00030^^ M UP4MAC 00031^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^t FTN 3.3B (OPT = LPC) UP4INI PAGE 2 DATE: 08/30/84 TIME: 0142 t^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^t FTN 3.3B (OPT = LPC) UP4INI PAGE 3 DATE: 08/30/84 TIME: 0142 t^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^t FTN 3.3B (OPT = LPC) UP4INI PAGE 4 DATE: 08/30/84 TIME: 0142 t^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4INI PAGE 5 DATE: 08/30/84 TIME: 0142 t^ C**** LOCAL DECLARATIONS. 00032^ ^ C**** USER INFORMATION. 00034^^ 78 INTEGER ID(4), MODE, PORTNO 00035^ ^ C**** MONTH, DAY, AND YEAR SYSTEM DATE EXTERNALS. 00037^^ 79 EXTERNAL AMONTO 00038^^ 80 EXTERNAL ADAYTO 00039^^ 81 EXTERNAL AYERTO 00040^   ^ C*********************************************************************** 00042^^ C* BEGIN PROGRAM. * 00043^^ C*********************************************************************** 00044^  ^ C**** RETRIEVE USER INFORMATION. 00046^^ 82 CALL PGMIN ( ID, TLU, MODE, NOPORT ) 00047^ ^ C**** RETRIEVE SYSTEM DATE AND EDIT INTO REPORT HEADINGS. 00049^^ 83 100 MONTH = AND ( AMONTO, $FFFF ) 00050^^ 84 DAY = AND ( ADAYTO, $FFFF ) 00051^^ 85 YEAR = AND ( AYERTO, $FFFF ) 00052^^ 86 CALL EDIT ( DATE, N1, HDLIN(35,3), N2, N1 ) 00053^ ^ C**** RETRIEVE EXTERNAL SWITCH SETTINGS - **NOTE: LOCATION OF SWITCHES 00055^^ C**** IS SET BY RPG (EQUATE IN R9SWCH). IT IS CURRENTLY LOCATION 00056^^ C**** $00E3 IN CORE. IF THIS SHOULD EVER CHANGE, THE VALUE OF R9SWCH 00057^^ C**** IN THIS PROGRAM MUST ALSO CHANGE. 00058^^ 87 110 ASSEM $E400, +R9SWCH, $C622, $6400, +SWITCH 00059^^ C** CRACK SWITCH WORD TO GET INDIVIDUAL SWITCH SETTINGS (BITS 1-8 00060^^ C** CORRESPOND TO SWITCHES U1-U8, RESPECTIVELY). 00061^^ 88 J = 2 00062^^ 89 DO 120 I = 1,8 00063^^ 90 U(I) = AND ( SWITCH, J ) / J 00064^^ 91 J = 2*J 00065^^ 92 120 CONTINUE 00066^ ^ C**** IF SWITCH U4 NOT SET, CONTINUE 00068^^ 93 130 IF ( U(4) .EQ. 0 ) GO TO 140 00069^^ C** ELSE, OPEN OUTPUT PRINT FILE "UP4PRINT" 00070^^ 94 CALL OPENFL ( REQBPR, IDATPR, ISTAT ) 00071^^ C** IF NO FILE ERROR, CONTINUE 00072^^ 95 IF ( ISTAT .GE. 0 ) GO TO 140 00073^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END). 00074^^ 96 CALL FILERR ( IDATPR, N3, ISTAT, TLU ) 00075^^ 97 CALL UP4END 00076^ ^ C**** IF SWITCH U2 NOT SET, CONTINUE FOR MAG TAPE UNIT SELECTION 00078^^ 98 140 IF ( U(2) .EQ. 0 ) GO TO 150 00079^^ C** ELSE, OPEN INPUT FILE "UP4INPUT" 00080^^ 99 CALL OPENFL ( REQBIN, IDATIN, ISTAT ) 00081^^ C** IF NO FILE ERROR, CONTINUE 00082^t FTN 3.3B (OPT = LPC) UP4INI PAGE 6 DATE: 08/30/84 TIME: 0142 t^ 100 IF ( ISTAT .GE. 0 ) GO TO 160 00083^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END). 00084^^ 101 CALL FILERR ( IDATIN, N3, ISTAT, TLU ) 00085^^ 102 CALL UP4END 00086^ ^ C** MAG TAPE INPUT UNIT SELECTION - IF SWITCH U3 SET, INPUT WILL BE 00088^^ C** FROM UNIT 1 00089^^ 103 150 IF ( U(3) .NE. 0 ) TAPE = MT1 00090^^ C** ELSE, CONTINUE WITH DEFAULT OF UNIT 0. 00091^ ^ C**** OPEN UTILITY FILE. 00093^^ 104 160 CALL OPENFL ( REQBUT, IDATUT, ISTAT ) 00094^^ C** IF NO FILE ERROR, CONTINUE 00095^^ 105 IF ( ISTAT .GE. 0 ) GO TO 170 00096^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END). 00097^^ 106 CALL FILERR ( IDATUT, N3, ISTAT, TLU ) 00098^^ 107 CALL UP4END 00099^ ^ C**** OPEN DELINQUENT MASTER FILE. 00101^^ 108 170 CALL OPENFL ( REQBDM, IDATDM, ISTAT ) 00102^^ C** IF NO FILE ERROR, CONTINUE 00103^^ 109 IF ( ISTAT .GE. 0 ) GO TO 180 00104^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END). 00105^^ 110 CALL FILERR ( IDATDM, N3, ISTAT, TLU ) 00106^^ 111 CALL UP4END 00107^ ^ C**** OPEN COSIGNER FILE. 00109^^ 112 180 CALL OPENFL ( REQBCS, IDATCS, ISTAT ) 00110^^ C** IF NO FILE ERROR, CONTINUE 00111^^ 113 IF ( ISTAT .GE. 0 ) GO TO 190 00112^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END). 00113^^ 114 CALL FILERR ( IDATCS, N3, ISTAT, TLU ) 00114^^ 115 CALL UP4END 00115^ ^ C**** OPEN ADD ACCOUNT FILE. 00117^^ 116 190 CALL OPENFL ( REQBAD, IDATAD, ISTAT ) 00118^^ C** IF NO FILE ERROR, CONTINUE 00119^^ 117 IF ( ISTAT .GE. 0 ) GO TO 400 00120^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END). 00121^^ 118 CALL FILERR ( IDATAD, N3, ISTAT, TLU ) 00122^^ 119 CALL UP4END 00123^t FTN 3.3B (OPT = LPC) UP4INI PAGE 7 DATE: 08/30/84 TIME: 0142 t^ C**** RETRIEVE REPORT HEADINGS FROM UTILITY FILE. HEADINGS ARE IN 00125^^ C**** RECORDS HDR1, HDR2, AND HDR3. 00126^^ 120 400 DO 420 I=1,3 00127^^ C** RETRIEVE NEXT HDR RECORD 00128^^ 121 CALL READR ( REQBUT, RECBUT, KHDRX, ISTAT ) 00129^^ C** IF RECORD FOUND, CONTINUE 00130^^ 122 IF ( ISTAT .GE. 0 .AND. AND( ISTAT, WRONKY ) .EQ. 0 00131^^ 122 + .AND. AND( ISTAT, EOF ) .EQ. 0 ) GO TO 410 00132^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END) 00133^^ 123 CALL FILERR ( IDATUT, N13, ISTAT, TLU ) 00134^^ 124 CALL UP4END 00135^^ C** SAVE LINE HEADER 00136^^ 125 410 CALL CCSMVA ( RECBUT, N5, N40, HDLIN(1,I), N2, N40 ) 00137^^ C** INCREMENT KEY TO GET NEXT HDR RECORD. 00138^^ 126 KHDRX(2) = KHDRX(2) + 1 00139^^ 127 420 CONTINUE 00140^   ^ C**** ALL INITIALIZATION OPERATIONS FINISHED, RETURN. 00142^^ 128 RETURN 00143^^ 129 END 00144^t FTN 3.3B (OPT = LPC) UP4INI PAGE 8 DATE: 08/30/84 TIME: 0142 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $00D9 ( 217)   EXTERNALS 2 AMONTO ADAYTO AYERTO PGMIN EDIT OPENFL FILERR 2 UP4END READR CCSMVA  t FTN 3.3B (OPT = LPC) UP4INI PAGE 9 DATE: 08/30/84 TIME: 0142 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < ( FFFF (65535) 0006 83,84,85 (   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACCTFD INTEGER 0001 D 3,7"$ AFLG INTEGER 05A1 D 44,46$. AND INTR.FN. 7FFF 83,84,85,90,122.$ AZEROS INTEGER 0710 D 63,65$$ BLANKS INTEGER 070F D 63,65$$ BUSY INTEGER 050E D 20,23$$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$* DATE INTEGER 058F D 33,35,36,86*( DAY INTEGER 0590 D 33,35,84 ($ DETLIN INTEGER 053B D 27,29$" DUMMY INTEGER 0000 D 1,3"( EOF INTEGER 050D D 20,23,122(" EOFFLG INTEGER 0002 D 3,7"$ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$, HDLIN INTEGER 05B8 D 52,55,86,125 ,$ HDLINT INTEGER 067E D 52,55$, I INTEGER 0008 88,90,120,125,$ ID INTEGER 0000 77,82$, IDATAD INTEGER 04AE D 14,16,116,118,, IDATCS INTEGER 047C D 11,13,112,114,* IDATDM INTEGER 0406 D 7,9,108,110*, IDATIN INTEGER 04FC D 18,20,99,101 ,* IDATPR INTEGER 04D5 D 16,18,94,96*0 IDATUT INTEGER 0455 D 9,11,104,106,123 0$ IFLAG INTEGER 0586 D 31,33$$ INPBUF INTEGER 050F D 23,25$t ISTAT INTEGER 050B D 20,23,94,95,96,99,100,101,104,105,106,108,109,110,112,113,114,116,117,118,121,122,123t* J INTEGER 0007 87,88,90,91*, KHDRX INTEGER 05AA D 48,50,121,126,$ LINCNT INTEGER 057F D 29,31$$ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MODE INTEGER 0004 77,82$t FTN 3.3B (OPT = LPC) UP4INI PAGE 10 DATE: 08/30/84 TIME: 0142 t( MONTH INTEGER 058F D 33,35,83 (( MT1 INTEGER 059D D 38,40,103($ N0 INTEGER 071F D 65,72$( N1 INTEGER 0720 D 65,72,86 ($ N10 INTEGER 0728 D 65,73$$ N11 INTEGER 0729 D 65,73$( N13 INTEGER 072A D 65,73,123($ N132 INTEGER 0731 D 65,77$$ N14 INTEGER 072B D 65,73$$ N15 INTEGER 072C D 65,73$$ N16 INTEGER 072D D 65,73$, N2 INTEGER 0721 D 65,72,86,125 ,< N3 INTEGER 0722 D 65,72,96,101,106,110,114,118 <$ N35 INTEGER 072E D 65,74$$ N4 INTEGER 0723 D 65,72$( N40 INTEGER 072F D 65,75,125(( N5 INTEGER 0724 D 65,72,125($ N6 INTEGER 0725 D 65,72$$ N7 INTEGER 0726 D 65,72$$ N80 INTEGER 0730 D 65,76$$ N9 INTEGER 0727 D 65,72$$ NDAONE INTEGER 070A D 61,63$" NOPORT INTEGER 0005 82 "$ NUMREJ INTEGER 05B2 D 50,52$$ NUMUPD INTEGER 05AC D 50,52$$ PAGCNT INTEGER 0580 D 29,31$( R9SWCH INTEGER 0592 D 36,38,87 ($ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$& RECBDM INTEGER 001C D 7,9,14 &, RECBUT INTEGER 042D D 9,11,121,125 ,( REQBAD INTEGER 048B D 14,16,116(( REQBCS INTEGER 0464 D 11,13,112(& REQBDM INTEGER 0004 D 7,9,108&( REQBIN INTEGER 04E4 D 18,20,99 (( REQBPR INTEGER 04BD D 16,18,94 (, REQBUT INTEGER 0415 D 9,11,104,121 ,* SWITCH INTEGER 0593 D 36,38,87,90*( TAPE INTEGER 059C D 38,40,103($ TCODE INTEGER 0706 D 55,57$$ TEMP INTEGER 0587 D 31,33$$ TKEY INTEGER 05A2 D 46,48$B TLU INTEGER 0707 D 57,59,82,96,101,106,110,114,118,123B$ TNFLD INTEGER 059E D 40,42$" TOTPRT INTEGER 0003 D 3,7"2 U INTEGER 0594 D 36,38,90,93,98,103 2( WRONKY INTEGER 050C D 20,23,122(( YEAR INTEGER 0591 D 33,35,85 (t FTN 3.3B (OPT = LPC) UP4INI PAGE 11 DATE: 08/30/84 TIME: 0142 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSMVA SUBROUTINE 00C3 125"" EDIT SUBROUTINE 001F 85 ": FILERR SUBROUTINE 004D 95,101,106,110,114,118,123 :4 OPENFL SUBROUTINE 0044 93,99,104,108,112,1164" PGMIN SUBROUTINE 000A 77 "" READR SUBROUTINE 00A5 120": UP4END SUBROUTINE 0053 96,102,107,111,115,119,124 :   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 000F 82 "" 110 0025 86 "$ 120 0039 88,92$" 130 003E 92 "( 140 0054 93,95,98 (& 150 0065 98,103 && 160 006D 100,104&& 170 007A 105,108&& 180 0087 109,112&& 190 0094 113,116&& 400 00A1 117,120&& 410 00BD 122,125&& 420 00CC 120,127& UP4INI 00D4 1  t FTN 3.3B (OPT = LPC) UP4LAB PAGE 1 DATE: 08/30/84 TIME: 0142 t^ 1 SUBROUTINE UP4LAB 00001^^ 1 1 /C34 F CCS CCS 3.0 SL-149 00002^^ C PROCESS TAPE LABELS, IF PRESENT 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS, LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C UP4LAB IS RESPONSIBLE FOR READING AND BYPASSING TAPE LABELS. IF 00009^^ C SWITCH U2 IS ON, INPUT IS NOT FROM TAPE (BUT FROM FILE 00010^^ C "UPDINPUT") AND HENCE, THERE ARE NO LABELS TO PROCESS. THIS 00011^^ C ROUTINE DOES NOT PERFORM ANY CHECKING OF THE LABELS, BUT CAN BE 00012^^ C EASILY MODIFIED TO DO CHECKING. A NOTE AT STATEMENT LABEL 300 00013^^ C DENOTES THE PLACE FOR CHECKING OF THE LABELS AND ALSO LISTS 00014^^ C VARIABLES AND SUBROUTINES AVAILABLE TO ASSIST THE CHECKING OPERA- 00015^^ C TION. UP4LAB ASSUMES A LABELLED TAPE IS THREE 80 CHARACTER LABEL 00016^^ C RECORDS, FOLLOWED BY AN END-OF-FILE MARK, FOLLOWED BY THE TAPE 00017^^ C TRANSACTIONS FOR UPDATE, AND TERMINATED BY ANOTHER END-OF-FILE 00018^^ C MARK. 00019^^ C 00020^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: 00021^^ C 1. IF INPUT IS NOT FROM TAPE (SWITCH U2 SET), CONTINUE 00022^^ C ELSE, READ 3 RECORDS FROM TAPE AND SAVE LABEL RECORDS 00023^^ C IF NO END-OF-FILE READ AND ALL RECORDS 80 CHARACTERS 00024^^ C IN LENGTH, CONTINUE 00025^^ C ELSE, REWIND TAPE AND SET FLAG FOR NO LABELS 00026^^ C FOUND 00027^^ C PROCEED TO LABEL CHECKING AREA 00028^^ C READ NEXT TAPE RECORD 00029^^ C IF END-OF-FILE, CONTINUE 00030^^ C ELSE, REWIND TAPE AND SET FLAG FOR NO LABELS 00031^^ C INTERNALLY DOCUMENT AS LABEL CHECKING AREA. 00032^^ C 2. CLOSE UTILITY FILE. 00033^^ C 3. CLEAR END-OF-FILE FLAG. 00034^^ C 4. RETURN. 00035^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00037^^ M UP4MAC 00038^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^t FTN 3.3B (OPT = LPC) UP4LAB PAGE 2 DATE: 08/30/84 TIME: 0142 t^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^t FTN 3.3B (OPT = LPC) UP4LAB PAGE 3 DATE: 08/30/84 TIME: 0142 t^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^t FTN 3.3B (OPT = LPC) UP4LAB PAGE 4 DATE: 08/30/84 TIME: 0142 t^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4LAB PAGE 5 DATE: 08/30/84 TIME: 0142 t^ C**** LOCAL DECLARATIONS. 00039^^ C**** TAPE LABEL RECORDS SAVE AREA. 00040^^ 78 INTEGER THDRS(120), THDR1(40), THDR2(40), TVOL1(40) 00041^^ 79 EQUIVALENCE ( THDR1(1), THDRS( 1) ) 00042^^ 80 EQUIVALENCE ( THDR2(1), THDRS(41) ) 00043^^ 81 EQUIVALENCE ( TVOL1(1), THDRS(81) ) 00044^ ^ C**** LABEL FOUND FLAG. 00046^^ 82 INTEGER LABFND 00047^^ 83 DATA LABFND / 1 / 00048^  ^ C*********************************************************************** 00050^^ C* BEGIN PROGRAM. * 00051^^ C*********************************************************************** 00052^ ^ C**** IF NOT TAPE INPUT (SWITCH U2 SET), CONTINUE 00054^^ 84 100 IF ( U(2) .NE. 0 ) GO TO 400 00055^^ C** ELSE, READ FIRST THREE RECORDS OF TAPE AND SAVE LABELS 00056^^ 85 200 DO 240 I=1,3 00057^^ C** CALCULATE POINTER INTO LABEL SAVE AREA 00058^^ 86 J = 80*I - 79 00059^^ C** READ NEXT TAPE RECORD (FORCE READ THRU UP4NXT) 00060^^ 87 210 CALL UP4NXT 00061^^ C** IF NO END-OF-FILE AND RECORD 80 CHARACTERS LONG, CONTINUE 00062^^ 88 220 IF ( EOFFLG .EQ. 0 .AND. INPBUF(41) .EQ. 80 ) GO TO 230 00063^^ C** ELSE, REWIND TAPE AND SET FLAG FOR UNLABELLED TAPE 00064^^ 89 CALL TAPMOT ( TAPE, N3 ) 00065^^ 90 LABFND = 0 00066^^ C** PROCEED TO LABEL CHECKING AREA 00067^^ 91 GO TO 300 00068^^ C** SAVE LABEL READ 00069^^ 92 230 CALL CCSMVA ( INPBUF, N1, N80, THDRS, J, N80 ) 00070^^ C** GET NEXT LABEL RECORD. 00071^^ 93 240 CONTINUE 00072^ ^ C**** READ NEXT RECORD TO CHECK FOR LABEL BLOCK END-OF-FILE. 00074^^ 94 250 CALL UP4NXT 00075^^ C**** IF END-OF-FILE, CONTINUE 00076^^ 95 IF ( EOFFLG .NE. 0 ) GO TO 300 00077^^ C** ELSE, REWIND TAPE AND SET FLAG FOR UNLABELLED TAPE. 00078^^ 96 CALL TAPMOT ( TAPE, N3 ) 00079^^ 97 LABFND = 0 00080^t FTN 3.3B (OPT = LPC) UP4LAB PAGE 6 DATE: 08/30/84 TIME: 0142 t^ C**** LABEL CHECKING, IF DESIRED, IS TO BE PEFORMED HERE. THE FOLLOWING 00082^^ C**** FIELDS AND SUBROUTINES ARE AVAILABLE FOR USE: 00083^^ C**** 1. THDR1 - CONTENTS OF FIRST LABEL RECORD. 00084^^ C**** 2. THDR2 - CONTENTS OF SECOND LABEL RECORD. 00085^^ C**** 3. THDR3 - CONTENTS OF THIRD LABEL RECORD. 00086^^ C**** 4. LABFND - LABEL FOUND FLAG; ZERO IF NO LABEL FOUND. 00087^^ C**** 5. REQBUT, 00088^^ C**** RECBUT - REQUEST BUFFER AND RECORD BUFFER (RESPECTIVELY) FO 00089^^ C**** UTILITY FILE READ (ONLY) REQUESTS. 00090^^ C**** 6. TLU - TERMINAL LOGICAL UNIT NUMBER. 00091^^ C**** 7. UP4PRT - SUBROUTINE TO PRINT LINE TO LIST DEVICE (FILE OR 00092^^ C**** SYSTEM PRINTER DEPENDING UPON SWITCH U4 SETTING). 00093^^ C**** CALLING SEQUENCE : CALL PRTLIN ( LINE ) 00094^^ C**** WHERE LINE IS THE 132 CHARACTER LINE TO PRINT. 00095^ ^ C**** CURRENT DEFAULT IS FOR NO LABEL CHECKING. 00097^^ 98 300 CONTINUE 00098^   ^ C**** UTILITY FILE NO LONGER REQUIRED, CLOSE IT. 00100^^ 99 400 CALL CLOSFL ( REQBUT, ISTAT ) 00101^ ^ C**** RESET END-OF-FILE FLAG. 00103^^ 100 410 EOFFLG = 0 00104^ ^ C**** TAPE LABEL PROCESSING COMPLETE, RETURN. 00106^^ 101 500 RETURN 00107^^ 102 END 00108^t FTN 3.3B (OPT = LPC) UP4LAB PAGE 7 DATE: 08/30/84 TIME: 0142 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $00BA ( 186)   EXTERNALS  UP4NXT TAPMOT CCSMVA CLOSFL  t FTN 3.3B (OPT = LPC) UP4LAB PAGE 8 DATE: 08/30/84 TIME: 0142 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACCTFD INTEGER 0001 D 3,7"$ AFLG INTEGER 05A1 D 44,46$$ AZEROS INTEGER 0710 D 63,65$$ BLANKS INTEGER 070F D 63,65$$ BUSY INTEGER 050E D 20,23$$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$$ DETLIN INTEGER 053B D 27,29$" DUMMY INTEGER 0000 D 1,3"$ EOF INTEGER 050D D 20,23$, EOFFLG INTEGER 0002 D 3,7,88,95,100,$ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$$ HDLIN INTEGER 05B8 D 52,55$$ HDLINT INTEGER 067E D 52,55$$ I INTEGER 0079 84,86$$ IDATAD INTEGER 04AE D 14,16$$ IDATCS INTEGER 047C D 11,13$" IDATDM INTEGER 0406 D 7,9"$ IDATIN INTEGER 04FC D 18,20$$ IDATPR INTEGER 04D5 D 16,18$$ IDATUT INTEGER 0455 D 9,11 $$ IFLAG INTEGER 0586 D 31,33$* INPBUF INTEGER 050F D 23,25,88,92*( ISTAT INTEGER 050B D 20,23,99 (( J INTEGER 007A 85,86,92 ($ KHDRX INTEGER 05AA D 48,50$* LABFND INTEGER 0078 81,83,90,97*$ LINCNT INTEGER 057F D 29,31$$ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$$ N0 INTEGER 071F D 65,72$( N1 INTEGER 0720 D 65,72,92 ($ N10 INTEGER 0728 D 65,73$$ N11 INTEGER 0729 D 65,73$$ N13 INTEGER 072A D 65,73$$ N132 INTEGER 0731 D 65,77$$ N14 INTEGER 072B D 65,73$$ N15 INTEGER 072C D 65,73$t FTN 3.3B (OPT = LPC) UP4LAB PAGE 9 DATE: 08/30/84 TIME: 0142 t$ N16 INTEGER 072D D 65,73$$ N2 INTEGER 0721 D 65,72$* N3 INTEGER 0722 D 65,72,89,96*$ N35 INTEGER 072E D 65,74$$ N4 INTEGER 0723 D 65,72$$ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$$ N6 INTEGER 0725 D 65,72$$ N7 INTEGER 0726 D 65,72$( N80 INTEGER 0730 D 65,76,92 ($ N9 INTEGER 0727 D 65,72$$ NDAONE INTEGER 070A D 61,63$$ NUMREJ INTEGER 05B2 D 50,52$$ NUMUPD INTEGER 05AC D 50,52$$ PAGCNT INTEGER 0580 D 29,31$$ R9SWCH INTEGER 0592 D 36,38$$ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$& RECBDM INTEGER 001C D 7,9,14 &$ RECBUT INTEGER 042D D 9,11 $$ REQBAD INTEGER 048B D 14,16$$ REQBCS INTEGER 0464 D 11,13$" REQBDM INTEGER 0004 D 7,9"$ REQBIN INTEGER 04E4 D 18,20$$ REQBPR INTEGER 04BD D 16,18$& REQBUT INTEGER 0415 D 9,11,99&$ SWITCH INTEGER 0593 D 36,38$* TAPE INTEGER 059C D 38,40,89,96*$ TCODE INTEGER 0706 D 55,57$$ TEMP INTEGER 0587 D 31,33$$ THDR1 INTEGER 0000 77,79$$ THDR2 INTEGER 0028 77,80$. THDRS INTEGER 0000 77,79,80,81,92 .$ TKEY INTEGER 05A2 D 46,48$$ TLU INTEGER 0707 D 57,59$$ TNFLD INTEGER 059E D 40,42$" TOTPRT INTEGER 0003 D 3,7"$ TVOL1 INTEGER 0050 77,81$( U INTEGER 0594 D 36,38,84 ($ WRONKY INTEGER 050C D 20,23$$ YEAR INTEGER 0591 D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSMVA SUBROUTINE 0098 92 "" CLOSFL SUBROUTINE 00AE 99 "$ TAPMOT SUBROUTINE 0091 88,96$$ UP4NXT SUBROUTINE 0087 86,94$t FTN 3.3B (OPT = LPC) UP4LAB PAGE 10 DATE: 08/30/84 TIME: 0142 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 007B 83 "" 200 0080 84 "" 210 0086 86 "" 220 0088 86 "$ 230 0097 88,92$$ 240 009F 84,93$" 250 00A4 93 "( 300 00AD 90,95,98 ($ 400 00AD 84,99$" 410 00B1 99 "" 500 00B3 100" UP4LAB 00B6 1 t FTN 3.3B (OPT = LPC) UP4NXT PAGE 1 DATE: 08/30/84 TIME: 0143 t^ 1 SUBROUTINE UP4NXT 00001^^ 1 1 /C35 F CCS CCS 3.0 SL-149 00002^^ C READ NEXT TRANSACTION (RECORD) 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C UP4NXT IS RESPONSIBLE FOR READING THE TRANSACTIONS OR RECORDS FROM 00009^^ C THE INPUT DEVICE SELECTED BY THE SWITCH U2 SETTING: 00010^^ C SWITCH U2 00011^^ C SETTING INPUT FROM 00012^^ C --------- ---------- 00013^^ C ON FILE "UP4INPUT" 00014^^ C OFF MAG TAPE 00015^^ C 00016^^ C FOR INPUT FROM TAPE, THE LOGICAL UNIT SELECTION (UNIT 0 OR UNIT 1) 00017^^ C WAS MADE IN THE UP4INI MODULE, AGAIN BASED ON A SWITCH SETTING 00018^^ C (U3). ON END-OF-FILE ON TAPE OR FILE INPUT, THE FLAG EOFFLG IS 00019^^ C SET TO SIGNAL END OF UPDATE PROCESSING. A FINAL FUNCTION OF 00020^^ C UP4NXT IS TO CONVERT THE INPUT, IF SWITCH U1 IS ON, FROM EBCDIC 00021^^ C TO ASCII. THIS OPERATION IS PERFORMED BY A SEPARATE ASSEMBLER 00022^^ C LANGUAGE SUBROUTINE. THE OVERALL PROGRAM FLOW IS AS FOLLOWS: 00023^^ C 1. IF SWITCH U2 NOT SET, CONTINUE 00024^^ C ELSE, READ NEXT RECORD FROM "UP4INPUT" FILE 00025^^ C IF NOT END-OF-FILE, CONTINUE WITH INPUT CONVERSION 00026^^ C (STEP 3) 00027^^ C ELSE, SET EOFFLG 00028^^ C RETURN. 00029^^ C 2. READ NEXT RECORD FROM TAPE 00030^^ C IF NOT END-OF-FILE, CONTINUE 00031^^ C ELSE, SET EOFFLG 00032^^ C RETURN. 00033^^ C 3. IF SWITCH U1 SET, CONVERT INPUT BUFFER FROM EBCDIC TO ASCII 00034^^ C ELSE, CONTINUE. 00035^^ C 4. RETURN. 00036^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00038^^ M UP4MAC 00039^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^t FTN 3.3B (OPT = LPC) UP4NXT PAGE 2 DATE: 08/30/84 TIME: 0143 t^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^t FTN 3.3B (OPT = LPC) UP4NXT PAGE 3 DATE: 08/30/84 TIME: 0143 t^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^t FTN 3.3B (OPT = LPC) UP4NXT PAGE 4 DATE: 08/30/84 TIME: 0143 t^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4NXT PAGE 5 DATE: 08/30/84 TIME: 0143 t^ C**** LOCAL DECLARATIONS. 00040^ ^ C**** INPUT BUFFER LENGTH. 00042^^ 78 INTEGER INPLEN 00043^^ 79 DATA INPLEN / 80 / 00044^ ^ C**** TAPE STATUS FUNCTION AND END-OF-FILE STATUS. 00046^^ 80 INTEGER STATIT, TAPEOF 00047^^ 81 DATA TAPEOF / $0800 / 00048^ ^ C**** COMPLETION ADDRESS FOR READ REQUEST. 00050^^ 82 INTEGER ICOMPL 00051^^ 83 ASSIGN 140 TO ICOMPL 00052^   ^ C*********************************************************************** 00054^^ C* BEGIN PROGRAM. * 00055^^ C*********************************************************************** 00056^ ^ C**** IF SWITCH U2 NOT SET, CONTINUE 00058^^ 84 100 IF ( U(2) .EQ. 0 ) GO TO 130 00059^^ C** ELSE, READ NEXT RECORD FROM UP4INPUT FILE 00060^^ 85 110 CALL GETS ( REQBIN, INPBUF, DUMMY, ISTAT ) 00061^^ C** IF NO FILE ERROR OR END-OF-FILE, CONTINUE WITH INPUT CONVER- 00062^^ C** SION, IF REQUIRED 00063^^ 86 IF ( ISTAT .GE. 0 ) GO TO 150 00064^^ C** ELSE, IF END-OF-FILE, CONTINUE 00065^^ 87 IF ( AND( ISTAT, EOF ) .NE. 0 ) GO TO 120 00066^^ C** ELSE, REPORT FATAL FILE ERROR AND EXIT (NO RETURN 00067^^ C** FROM UP4END) 00068^^ 88 CALL FILERR ( IDATIN, N14, ISTAT, TLU ) 00069^^ 89 CALL UP4END 00070^^ C** SET EOFFLG (END-OF-FILE FLAG) 00071^^ 90 120 EOFFLG = 1 00072^^ C** RETURN. 00073^^ 91 GO TO 200 00074^ ^ C**** READ NEXT RECORD FROM TAPE. 00076^^ 92 130 CALL FREAD ( TAPE, INPBUF, INPLEN, ICOMPL, IFLAG, TEMP ) 00077^^ 93 CALL DISP 00078^^ C** IF NOT END-OF-FILE, CONTINUE 00079^^ 94 140 IF ( AND( STATIT(TAPE), TAPEOF ) .EQ. 0 ) GO TO 150 00080^^ C** ELSE, SET EOFFLG (END-OF-FILE FLAG) 00081^^ 95 EOFFLG = 1 00082^^ C** RETURN. 00083^^ 96 GO TO 200 00084^ ^ C**** IF SWITCH U1 SET, CONVERT INPUT FROM EBCDIC TO ASCII 00086^^ 97 150 IF ( U(1) .NE. 0 ) CALL CCSE2A ( INPBUF, INPLEN , N0 ) 00087^^ C** ELSE, CONTINUE. 00088^  ^ C**** INPUT COMPLETE, RETURN. 00090^t FTN 3.3B (OPT = LPC) UP4NXT PAGE 6 DATE: 08/30/84 TIME: 0143 t^ 98 200 RETURN 00091^^ 99 END 00092^t FTN 3.3B (OPT = LPC) UP4NXT PAGE 7 DATE: 08/30/84 TIME: 0143 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $004C ( 76)   EXTERNALS 2 STATIT GETS FILERR UP4END FREAD DISP CCSE2A 2 t FTN 3.3B (OPT = LPC) UP4NXT PAGE 8 DATE: 08/30/84 TIME: 0143 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACCTFD INTEGER 0001 D 3,7"$ AFLG INTEGER 05A1 D 44,46$$ AND INTR.FN. 7FFF 87,94$$ AZEROS INTEGER 0710 D 63,65$$ BLANKS INTEGER 070F D 63,65$$ BUSY INTEGER 050E D 20,23$$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$$ DETLIN INTEGER 053B D 27,29$& DUMMY INTEGER 0000 D 1,3,85 &( EOF INTEGER 050D D 20,23,87 (( EOFFLG INTEGER 0002 D 3,7,90,95($ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$$ HDLIN INTEGER 05B8 D 52,55$$ HDLINT INTEGER 067E D 52,55$( ICOMPL INTEGER 0002 81,83,92 ($ IDATAD INTEGER 04AE D 14,16$$ IDATCS INTEGER 047C D 11,13$" IDATDM INTEGER 0406 D 7,9"( IDATIN INTEGER 04FC D 18,20,88 ($ IDATPR INTEGER 04D5 D 16,18$$ IDATUT INTEGER 0455 D 9,11 $( IFLAG INTEGER 0586 D 31,33,92 (. INPBUF INTEGER 050F D 23,25,85,92,97 .* INPLEN INTEGER 0000 77,79,92,97*0 ISTAT INTEGER 050B D 20,23,85,86,87,880$ KHDRX INTEGER 05AA D 48,50$$ LINCNT INTEGER 057F D 29,31$$ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$( N0 INTEGER 071F D 65,72,97 ($ N1 INTEGER 0720 D 65,72$$ N10 INTEGER 0728 D 65,73$$ N11 INTEGER 0729 D 65,73$$ N13 INTEGER 072A D 65,73$$ N132 INTEGER 0731 D 65,77$( N14 INTEGER 072B D 65,73,88 ($ N15 INTEGER 072C D 65,73$t FTN 3.3B (OPT = LPC) UP4NXT PAGE 9 DATE: 08/30/84 TIME: 0143 t$ N16 INTEGER 072D D 65,73$$ N2 INTEGER 0721 D 65,72$$ N3 INTEGER 0722 D 65,72$$ N35 INTEGER 072E D 65,74$$ N4 INTEGER 0723 D 65,72$$ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$$ N6 INTEGER 0725 D 65,72$$ N7 INTEGER 0726 D 65,72$$ N80 INTEGER 0730 D 65,76$$ N9 INTEGER 0727 D 65,72$$ NDAONE INTEGER 070A D 61,63$$ NUMREJ INTEGER 05B2 D 50,52$$ NUMUPD INTEGER 05AC D 50,52$$ PAGCNT INTEGER 0580 D 29,31$$ R9SWCH INTEGER 0592 D 36,38$$ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$& RECBDM INTEGER 001C D 7,9,14 &$ RECBUT INTEGER 042D D 9,11 $$ REQBAD INTEGER 048B D 14,16$$ REQBCS INTEGER 0464 D 11,13$" REQBDM INTEGER 0004 D 7,9"( REQBIN INTEGER 04E4 D 18,20,85 ($ REQBPR INTEGER 04BD D 16,18$$ REQBUT INTEGER 0415 D 9,11 $$ SWITCH INTEGER 0593 D 36,38$* TAPE INTEGER 059C D 38,40,92,94*( TAPEOF INTEGER 0001 79,81,94 ($ TCODE INTEGER 0706 D 55,57$( TEMP INTEGER 0587 D 31,33,92 ($ TKEY INTEGER 05A2 D 46,48$( TLU INTEGER 0707 D 57,59,88 ($ TNFLD INTEGER 059E D 40,42$" TOTPRT INTEGER 0003 D 3,7"* U INTEGER 0594 D 36,38,84,97*$ WRONKY INTEGER 050C D 20,23$$ YEAR INTEGER 0591 D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSE2A SUBROUTINE 0041 97 "" DISP SUBROUTINE 0030 92 "" FILERR SUBROUTINE 001C 87 "" FREAD SUBROUTINE 0028 92 "" GETS SUBROUTINE 000C 84 "$ STATIT INTEGER.FN. 0032 79,94$" UP4END SUBROUTINE 0022 88 "t FTN 3.3B (OPT = LPC) UP4NXT PAGE 10 DATE: 08/30/84 TIME: 0143 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0006 83 "" 110 000B 84 "$ 120 0023 87,90$$ 130 0027 84,92$$ 140 0031 81,94$( 150 003C 86,94,97 (( 200 0045 90,96,98 ( UP4NXT 0048 1 t FTN 3.3B (OPT = LPC) UP4TOT PAGE 1 DATE: 08/30/84 TIME: 0143 t^ 1 SUBROUTINE UP4TOT 00001^^ 1 1 /C36 F CCS CCS 3.0 SL-149 00002^^ C PRINT UPD400 RUN TOTALS 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C UP4TOT IS RESPONSIBLE FOR PRINTING THE FINAL TOTALS OF THE UPDATE 00009^^ C RUN. THE TOTALS BLOCK CONSISTS OF TOTAL NUMBER OF EACH TRANS- 00010^^ C ACTION. THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: 00011^^ C 1. IF ENOUGH ROOM EXISTS ON BOTTOM OF CURRENT PAGE FOR TOTALS, 00012^^ C CONTINUE 00013^^ C ELSE, SET LINE COUNT TO FORCE NEW PAGE 00014^^ C SET TOTALS PRINT FLAG 00015^^ C 2. MOVE IN TRANSACTION COUNT TOTALS AND ZERO SUPPRESS. 00016^^ C 3. PRINT TOTALS BLOCK. 00017^^ C 4. RETURN. 00018^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00020^^ M UP4MAC 00021^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^t FTN 3.3B (OPT = LPC) UP4TOT PAGE 2 DATE: 08/30/84 TIME: 0143 t^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^t FTN 3.3B (OPT = LPC) UP4TOT PAGE 3 DATE: 08/30/84 TIME: 0143 t^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4TOT PAGE 4 DATE: 08/30/84 TIME: 0143 t^ C**** LOCAL DECLARATIONS. 00022^ ^ C**** TOTALS BLOCK TO PRINT. 00024^^ 78 INTEGER TOTBL(68,4) 00025^^ 79 INTEGER TOTL1(68), TOTL2(68), UPDTL(68), REJTL(68) 00026^^ 80 EQUIVALENCE ( TOTBL(1, 1), TOTL1(1) ) , ( TOTBL(1, 2), TOTL2(1) ), 00027^^ 80 + ( TOTBL(1, 3), UPDTL(1) ) , ( TOTBL(1, 4), REJTL(1) ) 00028^^ 81 DATA TOTL1 / 00029^^ 81 1 $D, $D, $D, ' * TOTALS * ', 00030^^ 81 2 ' ', 00031^^ 81 3 ' ' ,0,0 / 00032^^ 82 DATA TOTL2 / 00033^^ 82 1 ' ACCOUNTS NUMBER ', 00034^^ 82 2 ' ', 00035^^ 82 3 ' ',0,0 / 00036^^ 83 DATA UPDTL / ' UPDATED ', 00037^^ 83 1 ' ', 00038^^ 83 2 ' ',$D,0,0 / 00039^^ 84 DATA REJTL / ' REJECTED ', 00040^^ 84 1 ' ', 00041^^ 84 2 ' ',$C,0,0 / 00042^  ^ C*********************************************************************** 00044^^ C* BEGIN PROGRAM * 00045^^ C*********************************************************************** 00046^ ^ C**** IF ENOUGH ROOM EXISTS ON BOTTOM OF CURRENT PAGE FOR TOTALS, 00048^^ C**** CONTINUE 00049^^ 85 100 IF ( LINCNT .LT. 49 ) GO TO 110 00050^^ C** ELSE, SET LINE-COUNT TO FORCE NEW PAGE 00051^^ 86 LINCNT = 66 00052^^ C** SET FLAG TO INDICATE IN TOTALS PRINTING AND SUPRESS COLUMN 00053^^ C** HEADINGS 00054^^ 87 TOTPRT = 1 00055^ ^ C**** MOVE IN TRANSACTION COUNT TOTALS. 00057^^ 88 110 CALL CCSMVA ( NUMUPD, N7, N6, UPDTL(16), N2, N6 ) 00058^^ 89 CALL CCSMVA ( NUMREJ, N7, N6, REJTL(16), N2, N6 ) 00059^^ C** ZERO SUPRESS ALL TRANSACTION COUNTS. 00060^^ 90 DO 130 I=3,4 00061^^ 91 DO 120 J=2,6 00062^^ 92 CALL CCSGET ( TOTBL(16,I), J, K ) 00063^^ 93 IF ( K .NE. $30 ) GO TO 130 00064^^ 94 CALL CCSPUT ( BLANKS, J, TOTBL(16,I) ) 00065^^ 95 120 CONTINUE 00066^^ 96 130 CONTINUE 00067^ ^ C**** PRINT TOTALS BLOCK. 00069^^ 97 140 DO 150 I=1,4 00070^^ 98 CALL UP4PRT ( TOTBL(1,I) ) 00071^^ 99 150 CONTINUE 00072^  t FTN 3.3B (OPT = LPC) UP4TOT PAGE 5 DATE: 08/30/84 TIME: 0143 t^ C**** TOTALS PRINTING COMPLETE, RETURN. 00074^^ 100 200 RETURN 00075^^ 101 END 00076^t FTN 3.3B (OPT = LPC) UP4TOT PAGE 6 DATE: 08/30/84 TIME: 0143 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $0166 ( 358)   EXTERNALS  CCSMVA CCSGET CCSPUT UP4PRT  t FTN 3.3B (OPT = LPC) UP4TOT PAGE 7 DATE: 08/30/84 TIME: 0143 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACCTFD INTEGER 0001 D 3,7"$ AFLG INTEGER 05A1 D 44,46$$ AZEROS INTEGER 0710 D 63,65$( BLANKS INTEGER 070F D 63,65,94 ($ BUSY INTEGER 050E D 20,23$$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$$ DETLIN INTEGER 053B D 27,29$" DUMMY INTEGER 0000 D 1,3"$ EOF INTEGER 050D D 20,23$" EOFFLG INTEGER 0002 D 3,7"$ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$$ HDLIN INTEGER 05B8 D 52,55$$ HDLINT INTEGER 067E D 52,55$. I INTEGER 0110 89,92,94,97,98 .$ IDATAD INTEGER 04AE D 14,16$$ IDATCS INTEGER 047C D 11,13$" IDATDM INTEGER 0406 D 7,9"$ IDATIN INTEGER 04FC D 18,20$$ IDATPR INTEGER 04D5 D 16,18$$ IDATUT INTEGER 0455 D 9,11 $$ IFLAG INTEGER 0586 D 31,33$$ INPBUF INTEGER 050F D 23,25$$ ISTAT INTEGER 050B D 20,23$( J INTEGER 0111 89,92,94 ($ K INTEGER 0112 92,93$$ KHDRX INTEGER 05AA D 48,50$* LINCNT INTEGER 057F D 29,31,85,86*$ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$$ N0 INTEGER 071F D 65,72$$ N1 INTEGER 0720 D 65,72$$ N10 INTEGER 0728 D 65,73$$ N11 INTEGER 0729 D 65,73$$ N13 INTEGER 072A D 65,73$$ N132 INTEGER 0731 D 65,77$$ N14 INTEGER 072B D 65,73$$ N15 INTEGER 072C D 65,73$t FTN 3.3B (OPT = LPC) UP4TOT PAGE 8 DATE: 08/30/84 TIME: 0143 t$ N16 INTEGER 072D D 65,73$* N2 INTEGER 0721 D 65,72,88,89*$ N3 INTEGER 0722 D 65,72$$ N35 INTEGER 072E D 65,74$$ N4 INTEGER 0723 D 65,72$$ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$* N6 INTEGER 0725 D 65,72,88,89** N7 INTEGER 0726 D 65,72,88,89*$ N80 INTEGER 0730 D 65,76$$ N9 INTEGER 0727 D 65,72$$ NDAONE INTEGER 070A D 61,63$( NUMREJ INTEGER 05B2 D 50,52,89 (( NUMUPD INTEGER 05AC D 50,52,88 ($ PAGCNT INTEGER 0580 D 29,31$$ R9SWCH INTEGER 0592 D 36,38$$ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$& RECBDM INTEGER 001C D 7,9,14 &$ RECBUT INTEGER 042D D 9,11 $* REJTL INTEGER 00CC 77,80,84,89*$ REQBAD INTEGER 048B D 14,16$$ REQBCS INTEGER 0464 D 11,13$" REQBDM INTEGER 0004 D 7,9"$ REQBIN INTEGER 04E4 D 18,20$$ REQBPR INTEGER 04BD D 16,18$$ REQBUT INTEGER 0415 D 9,11 $$ SWITCH INTEGER 0593 D 36,38$$ TAPE INTEGER 059C D 38,40$$ TCODE INTEGER 0706 D 55,57$$ TEMP INTEGER 0587 D 31,33$$ TKEY INTEGER 05A2 D 46,48$$ TLU INTEGER 0707 D 57,59$$ TNFLD INTEGER 059E D 40,42$. TOTBL INTEGER 0000 77,80,92,94,98 .( TOTL1 INTEGER 0000 77,80,81 (( TOTL2 INTEGER 0044 77,80,82 (& TOTPRT INTEGER 0003 D 3,7,87 &$ U INTEGER 0594 D 36,38$* UPDTL INTEGER 0088 77,80,83,88*$ WRONKY INTEGER 050C D 20,23$$ YEAR INTEGER 0591 D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSGET SUBROUTINE 0135 89 "$ CCSMVA SUBROUTINE 011D 88,89$" CCSPUT SUBROUTINE 0142 93 "" UP4PRT SUBROUTINE 0158 97 "t FTN 3.3B (OPT = LPC) UP4TOT PAGE 9 DATE: 08/30/84 TIME: 0143 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0113 84 "$ 110 011C 85,88$$ 120 0146 89,95$( 130 014B 89,93,96 (" 140 0150 96 "$ 150 015A 96,99$" 200 015F 99 " UP4TOT 0162 1  t FTN 3.3B (OPT = LPC) UP4END PAGE 1 DATE: 08/30/84 TIME: 0144 t^ 1 SUBROUTINE UP4END 00001^^ 1 1 /C37 F CCS CCS 3.0 SL-149 00002^^ C PERFORM TERMINATION FUNCTIONS 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C UP4END IS THE TERMINATION MODULE FOR UPD400. TERMINATION MAY BE 00009^^ C NORMAL (END-OF-FILE ON INPUT) OR ABNORMAL (FATAL FILE ERROR). 00010^^ C IN EITHER CASE, UP4END IS RESPONSIBLE FOR CLOSING ALL OPEN FILES 00011^^ C AND RETURNING CONTROL TO THE CCS EXECUTIVE. THE FOLLOWING FILES 00012^^ C COULD BE OPEN: 00013^^ C FILE NAME DESCRIPTION 00014^^ C --------- ------------------------------------------------ 00015^^ C DELQMST MASTER FILE 00016^^ C COSIGNER COSIGNER INFORMATION FILE 00017^^ C ADDACT ADD ACCOUNT FILE 00018^^ C UPDINPUT INPUT FILE FOR UPDATE TRANSACTIONS 00019^^ C UPDPRINT PRINT OUTPUT FILE 00020^^ C UTIFIL UTILITY FILE 00021^ ^ C ONLY OPEN FILES WILL BE CLOSED. A FILE IS OPEN IF ITS LAST 00023^^ C REQUEST PROCESSOR INDEX ( BITS 0-13 OF WORD 12 OF REQUEST BUFFER ) 00024^^ C IS NON-ZERO. SINCE THE UTILITY FILE MAY ALREADY BE CLOSED (DONE 00025^^ C IN UP4LAB MODULE), NO CLOSE REQUEST WILL BE PERFORMED IF ITS 00026^^ C INDEX IS ZERO (FILE NEVER OPENED OR FORCED CLOSE BY EXECUTIVE) OR 00027^^ C FIVE (INDEX FOR CLOSE PROCESSOR). UP4END WILL ALSO UNLOAD TAPE 00028^^ C IF INPUT WAS FROM TAPE. 00029^ ^ C FILE ERRORS DURING FILE CLOSURES ARE IGNORED. 00031^  ^ C**** RETRIEVE COMMON MACRO DECLARATION. 00033^^ M UP4MAC 00034^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^t FTN 3.3B (OPT = LPC) UP4END PAGE 2 DATE: 08/30/84 TIME: 0144 t^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^t FTN 3.3B (OPT = LPC) UP4END PAGE 3 DATE: 08/30/84 TIME: 0144 t^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^t FTN 3.3B (OPT = LPC) UP4END PAGE 4 DATE: 08/30/84 TIME: 0144 t^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4END PAGE 5 DATE: 08/30/84 TIME: 0144 t^ C*********************************************************************** 00035^^ C* BEGIN PROGRAM. * 00036^^ C*********************************************************************** 00037^  ^ C**** IF MASTER FILE OPEN, CLOSE IT 00039^^ 78 100 IF ( AND(REQBDM(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBDM,ISTAT ) 00040^^ C** ELSE, CONTINUE. 00041^ ^ C**** IF COSIGNER FILE OPEN, CLOSE IT 00043^^ 79 110 IF ( AND(REQBCS(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBCS,ISTAT ) 00044^^ C** ELSE, CONTINUE. 00045^ ^ C**** IF ADD ACCOUNT FILE OPEN, CLOSE IT 00047^^ 80 120 IF ( AND(REQBAD(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBAD,ISTAT ) 00048^^ C** ELSE, CONTINUE. 00049^ ^ C**** IF UPDINPUT FILE OPEN, CLOSE IT 00051^^ 81 130 IF ( AND(REQBIN(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBIN,ISTAT ) 00052^^ C** ELSE, CONTINUE. 00053^ ^ C**** IF PRINT OUTPUT FILE OPEN, CLOSE IT 00055^^ 82 140 IF ( AND(REQBPR(12), $3FFF) .NE. 0 ) CALL CLOSFL ( REQBPR,ISTAT ) 00056^^ C** ELSE, CONTINUE. 00057^ ^ C**** IF UTILITY FILE OPEN, CLOSE IT 00059^^ 83 150 IF ( AND(REQBUT(12), $3FFF) .NE. 0 .AND. 00060^^ 83 + AND(REQBUT(12), $3FFF) .NE. 5 ) CALL CLOSFL ( REQBUT,ISTAT ) 00061^^ C** ELSE, CONTINUE. 00062^ ^ C**** IF INPUT FROM TAPE, UNLOAD TAPE UNIT 00064^^ 84 160 IF ( U(2) .EQ. 0 ) CALL TAPMOT ( TAPE, N4 ) 00065^^ C** ELSE, CONTINUE. 00066^   ^ C**** RETURN CONTROL TO CCS EXECUTIVE. 00068^^ 85 200 CALL PGMOUT 00069^ ^ 86 RETURN 00071^^ 87 END 00072^t FTN 3.3B (OPT = LPC) UP4END PAGE 6 DATE: 08/30/84 TIME: 0144 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $0047 ( 71)   EXTERNALS  CLOSFL TAPMOT PGMOUT  t FTN 3.3B (OPT = LPC) UP4END PAGE 7 DATE: 08/30/84 TIME: 0144 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < 0 3FFF (16383) 0000 78,79,80,81,82,830   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACCTFD INTEGER 0001 D 3,7"$ AFLG INTEGER 05A1 D 44,46$0 AND INTR.FN. 7FFF 78,79,80,81,82,830$ AZEROS INTEGER 0710 D 63,65$$ BLANKS INTEGER 070F D 63,65$$ BUSY INTEGER 050E D 20,23$$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$$ DETLIN INTEGER 053B D 27,29$" DUMMY INTEGER 0000 D 1,3"$ EOF INTEGER 050D D 20,23$" EOFFLG INTEGER 0002 D 3,7"$ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$$ HDLIN INTEGER 05B8 D 52,55$$ HDLINT INTEGER 067E D 52,55$$ IDATAD INTEGER 04AE D 14,16$$ IDATCS INTEGER 047C D 11,13$" IDATDM INTEGER 0406 D 7,9"$ IDATIN INTEGER 04FC D 18,20$$ IDATPR INTEGER 04D5 D 16,18$$ IDATUT INTEGER 0455 D 9,11 $$ IFLAG INTEGER 0586 D 31,33$$ INPBUF INTEGER 050F D 23,25$6 ISTAT INTEGER 050B D 20,23,78,79,80,81,82,836$ KHDRX INTEGER 05AA D 48,50$$ LINCNT INTEGER 057F D 29,31$$ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$$ N0 INTEGER 071F D 65,72$$ N1 INTEGER 0720 D 65,72$t FTN 3.3B (OPT = LPC) UP4END PAGE 8 DATE: 08/30/84 TIME: 0144 t$ N10 INTEGER 0728 D 65,73$$ N11 INTEGER 0729 D 65,73$$ N13 INTEGER 072A D 65,73$$ N132 INTEGER 0731 D 65,77$$ N14 INTEGER 072B D 65,73$$ N15 INTEGER 072C D 65,73$$ N16 INTEGER 072D D 65,73$$ N2 INTEGER 0721 D 65,72$$ N3 INTEGER 0722 D 65,72$$ N35 INTEGER 072E D 65,74$( N4 INTEGER 0723 D 65,72,84 ($ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$$ N6 INTEGER 0725 D 65,72$$ N7 INTEGER 0726 D 65,72$$ N80 INTEGER 0730 D 65,76$$ N9 INTEGER 0727 D 65,72$$ NDAONE INTEGER 070A D 61,63$$ NUMREJ INTEGER 05B2 D 50,52$$ NUMUPD INTEGER 05AC D 50,52$$ PAGCNT INTEGER 0580 D 29,31$$ R9SWCH INTEGER 0592 D 36,38$$ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$& RECBDM INTEGER 001C D 7,9,14 &$ RECBUT INTEGER 042D D 9,11 $( REQBAD INTEGER 048B D 14,16,80 (( REQBCS INTEGER 0464 D 11,13,79 (& REQBDM INTEGER 0004 D 7,9,78 &( REQBIN INTEGER 04E4 D 18,20,81 (( REQBPR INTEGER 04BD D 16,18,82 (& REQBUT INTEGER 0415 D 9,11,83&$ SWITCH INTEGER 0593 D 36,38$( TAPE INTEGER 059C D 38,40,84 ($ TCODE INTEGER 0706 D 55,57$$ TEMP INTEGER 0587 D 31,33$$ TKEY INTEGER 05A2 D 46,48$$ TLU INTEGER 0707 D 57,59$$ TNFLD INTEGER 059E D 40,42$" TOTPRT INTEGER 0003 D 3,7"( U INTEGER 0594 D 36,38,84 ($ WRONKY INTEGER 050C D 20,23$$ YEAR INTEGER 0591 D 33,35$t FTN 3.3B (OPT = LPC) UP4END PAGE 9 DATE: 08/30/84 TIME: 0144 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < 0 CLOSFL SUBROUTINE 0007 78,79,80,81,82,830" PGMOUT SUBROUTINE 003F 84 "" TAPMOT SUBROUTINE 003B 84 "   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0001 77 "" 110 000A 78 "" 120 0012 79 "" 130 001A 80 "" 140 0022 81 "" 150 002A 82 "" 160 0036 83 "" 200 003E 84 " UP4END 0043 1  t FTN 3.3B (OPT = LPC) UP4GTM PAGE 1 DATE: 08/30/84 TIME: 0144 t^ 1 SUBROUTINE UP4GTM 00001^^ 1 1 /C38 F CCS CCS 3.0 SL-149 00002^^ C RETRIEVE ACCOUNT FROM MASTER FILE 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C UP4GTM IS RESPONSIBLE FOR RETRIEVING THE ACCOUNT SPECIFIED IN 00009^^ C THE TRANSACTION INPUT BUFFER. THE ACCOUNT IS RETRIEVED BY THE 00010^^ C ACCOUNT NUMBER WHICH OCCUPIES CHARACTER POSITIONS 4-19 OF THE 00011^^ C THE INPUT BUFFER. THIS ROUTINE WILL SUCCESSFULLY TERMINATE ON 00012^^ C ONE OF THE FOLLOWING CONDITIONS: 00013^^ C 1) SPECIFIED ACCOUNT FOUND AND IS NOT BUSY (UPDATE PROCESSING 00014^^ C NOW HAS RECORD LOCKED), 00015^^ C OR 2) SPECIFIED ACCOUNT IS NOT PRESENT IN THE FILE. 00016^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: 00017^^ C 1. ATTEMPT RETRIEVAL OF ACCOUNT BY NUMBER IN TRANSACTION 00018^^ C INPUT BUFFER. 00019^^ C 2. IF THE ACCOUNT IS NOT FOUND, CONTINUE 00020^^ C ELSE, IF ACCOUNT IS BUSY, RETRY RETRIEVAL REQUEST 00021^^ C (STEP 1) 00022^^ C ELSE, SET FLAG TO INDICATE ACCOUNT FOUND 00023^^ C RETURN. 00024^^ C 3. SET FLAG TO INDICATE ACCOUNT NOT FOUND. 00025^^ C 4. RETURN. 00026^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00028^^ M UP4MAC 00029^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^t FTN 3.3B (OPT = LPC) UP4GTM PAGE 2 DATE: 08/30/84 TIME: 0144 t^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^t FTN 3.3B (OPT = LPC) UP4GTM PAGE 3 DATE: 08/30/84 TIME: 0144 t^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^t FTN 3.3B (OPT = LPC) UP4GTM PAGE 4 DATE: 08/30/84 TIME: 0144 t^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4GTM PAGE 5 DATE: 08/30/84 TIME: 0144 t^ C*********************************************************************** 00030^^ C* BEGIN PROGRAM. * 00031^^ C*********************************************************************** 00032^ ^ C**** ATTEMPT RETRIEVAL OF ACCOUNT FROM MASTER FILE 00034^^ C** ESTABLISH ACCOUNT NUMBER KEY TO RETRIEVE BY 00035^^ 78 100 CALL CCSMVA ( INPBUF, N4, N16, TKEY, N1, N16 ) 00036^^ C** RETRIEVE 00037^^ 79 110 CALL READR ( REQBDM, RECBDM, TKEY, ISTAT ) 00038^^ C** IF NO FATAL FILE ERROR, CONTINUE 00039^^ 80 IF ( ISTAT .GE. 0 .OR. AND( ISTAT, EOF ) .NE. 0 .OR. 00040^^ 80 + AND( ISTAT, BUSY ) .NE. 0 ) GO TO 120 00041^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM UP4END). 00042^^ 81 CALL FILERR ( IDATDM, N13, ISTAT, TLU ) 00043^^ 82 CALL UP4END 00044^ ^ C**** IF ACCOUNT IS NOT FOUND, CONTINUE 00046^^ 83 120 IF ( AND( ISTAT, WRONKY ) .NE. 0 .OR. 00047^^ 83 + AND( ISTAT, EOF ) .NE. 0 ) GO TO 130 00048^^ C** ELSE, IF ACCOUNT IS BUSY, RETRY RETRIEVAL REQUEST 00049^^ 84 IF ( AND( ISTAT, BUSY ) .NE. 0 ) GO TO 110 00050^^ C** ELSE, SET FLAG TO INDICATE ACCOUNT FOUND 00051^^ 85 ACCTFD = 1 00052^^ C** RETURN. 00053^^ 86 GO TO 200 00054^ ^ C**** SET FLAG TO INDICATE ACCOUNT NOT FOUND. 00056^^ 87 130 ACCTFD = 0 00057^  ^ C**** MASTER RECORD RETRIEVAL COMPLETE, RETURN. 00059^^ 88 200 RETURN 00060^^ 89 END 00061^t FTN 3.3B (OPT = LPC) UP4GTM PAGE 6 DATE: 08/30/84 TIME: 0144 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $0040 ( 64)   EXTERNALS  CCSMVA READR FILERR UP4END  t FTN 3.3B (OPT = LPC) UP4GTM PAGE 7 DATE: 08/30/84 TIME: 0144 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( ACCTFD INTEGER 0001 D 3,7,85,87($ AFLG INTEGER 05A1 D 44,46$* AND INTR.FN. 7FFF 80,80,83,84*$ AZEROS INTEGER 0710 D 63,65$$ BLANKS INTEGER 070F D 63,65$* BUSY INTEGER 050E D 20,23,80,84*$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$$ DETLIN INTEGER 053B D 27,29$" DUMMY INTEGER 0000 D 1,3"* EOF INTEGER 050D D 20,23,80,83*" EOFFLG INTEGER 0002 D 3,7"$ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$$ HDLIN INTEGER 05B8 D 52,55$$ HDLINT INTEGER 067E D 52,55$$ IDATAD INTEGER 04AE D 14,16$$ IDATCS INTEGER 047C D 11,13$& IDATDM INTEGER 0406 D 7,9,81 &$ IDATIN INTEGER 04FC D 18,20$$ IDATPR INTEGER 04D5 D 16,18$$ IDATUT INTEGER 0455 D 9,11 $$ IFLAG INTEGER 0586 D 31,33$( INPBUF INTEGER 050F D 23,25,78 (4 ISTAT INTEGER 050B D 20,23,79,80,81,83,84 4$ KHDRX INTEGER 05AA D 48,50$$ LINCNT INTEGER 057F D 29,31$$ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$$ N0 INTEGER 071F D 65,72$( N1 INTEGER 0720 D 65,72,78 ($ N10 INTEGER 0728 D 65,73$$ N11 INTEGER 0729 D 65,73$( N13 INTEGER 072A D 65,73,81 ($ N132 INTEGER 0731 D 65,77$$ N14 INTEGER 072B D 65,73$$ N15 INTEGER 072C D 65,73$( N16 INTEGER 072D D 65,73,78 ($ N2 INTEGER 0721 D 65,72$t FTN 3.3B (OPT = LPC) UP4GTM PAGE 8 DATE: 08/30/84 TIME: 0144 t$ N3 INTEGER 0722 D 65,72$$ N35 INTEGER 072E D 65,74$( N4 INTEGER 0723 D 65,72,78 ($ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$$ N6 INTEGER 0725 D 65,72$$ N7 INTEGER 0726 D 65,72$$ N80 INTEGER 0730 D 65,76$$ N9 INTEGER 0727 D 65,72$$ NDAONE INTEGER 070A D 61,63$$ NUMREJ INTEGER 05B2 D 50,52$$ NUMUPD INTEGER 05AC D 50,52$$ PAGCNT INTEGER 0580 D 29,31$$ R9SWCH INTEGER 0592 D 36,38$$ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$( RECBDM INTEGER 001C D 7,9,14,79($ RECBUT INTEGER 042D D 9,11 $$ REQBAD INTEGER 048B D 14,16$$ REQBCS INTEGER 0464 D 11,13$& REQBDM INTEGER 0004 D 7,9,79 &$ REQBIN INTEGER 04E4 D 18,20$$ REQBPR INTEGER 04BD D 16,18$$ REQBUT INTEGER 0415 D 9,11 $$ SWITCH INTEGER 0593 D 36,38$$ TAPE INTEGER 059C D 38,40$$ TCODE INTEGER 0706 D 55,57$$ TEMP INTEGER 0587 D 31,33$* TKEY INTEGER 05A2 D 46,48,78,79*( TLU INTEGER 0707 D 57,59,81 ($ TNFLD INTEGER 059E D 40,42$" TOTPRT INTEGER 0003 D 3,7"$ U INTEGER 0594 D 36,38$( WRONKY INTEGER 050C D 20,23,83 ($ YEAR INTEGER 0591 D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSMVA SUBROUTINE 0001 77 "" FILERR SUBROUTINE 001E 80 "" READR SUBROUTINE 0009 78 "" UP4END SUBROUTINE 0024 81 "t FTN 3.3B (OPT = LPC) UP4GTM PAGE 9 DATE: 08/30/84 TIME: 0144 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0000 77 "$ 110 0008 78,84$$ 120 0025 80,83$$ 130 0037 83,87$$ 200 0039 85,88$ UP4GTM 003C 1  t FTN 3.3B (OPT = LPC) UP4GTC PAGE 1 DATE: 08/30/84 TIME: 0144 t^ 1 SUBROUTINE UP4GTC 00001^^ 1 1 /C39 F CCS CCS 3.0 SL-149 00002^^ C RETRIEVE ACOUNT FROM COSIGNER FILE 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00007^ ^ C UP4GTC IS RESPONSIBLE FOR RETRIEVING THE ACCOUNT SPECIFIED IN 00009^^ C THE TRANSACTION INPUT BUFFER. THE ACCOUNT IS RETRIEVED BY THE 00010^^ C ACCOUNT NUMBER WHICH OCCUPIES CHARACTER POSITIONS 4-19 OF THE 00011^^ C INPUT BUFFER. THIS ROUTINE WILL SUCCESSFULLY TERMINATE ON ONE 00012^^ C OF THE FOLLOWING CONDITIONS: 00013^^ C 1) SPECIFIED ACCOUNT FOUND AND IS NOT BUSY (UPD400 PROCESSING 00014^^ C NOW HAS RECORD LOCKED), 00015^^ C OR 2) SPECIFIED ACCOUNT NOT PRESENT IN THE FILE. 00016^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: 00017^^ C 1. ATTEMPT RETRIEVAL OF ACCOUNT BY NUMBER IN TRANSACTION 00018^^ C INPUT BUFFER. 00019^^ C 2. IF ACCOUNT IS NOT FOUND, CONTINUE 00020^^ C ELSE, IF ACCOUNT IS BUSY, RETRY RETRIEVAL REQUEST 00021^^ C (STEP 1) 00022^^ C ELSE, SET FLAG TO INDICATE ACCOUNT FOUND 00023^^ C RETURN. 00024^^ C 3. SET FLAG TO INDICATE ACCOUNT NOT FOUND. 00025^^ C 4. RETURN. 00026^ ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00028^^ M UP4MAC 00029^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^t FTN 3.3B (OPT = LPC) UP4GTC PAGE 2 DATE: 08/30/84 TIME: 0144 t^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^t FTN 3.3B (OPT = LPC) UP4GTC PAGE 3 DATE: 08/30/84 TIME: 0144 t^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^t FTN 3.3B (OPT = LPC) UP4GTC PAGE 4 DATE: 08/30/84 TIME: 0144 t^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4GTC PAGE 5 DATE: 08/30/84 TIME: 0144 t^ C*********************************************************************** 00030^^ C* BEGIN PROGRAM. 00031^^ C*********************************************************************** 00032^ ^ C**** ATTEMPT RETRIEVAL OF ACCOUNT FROM COSIGNER FILE 00034^^ C** ESTABLISH ACCOUNT NUMBER KEY TO RETRIEVE BY 00035^^ 78 100 CALL CCSMVA ( INPBUF, N4, N16, TKEY, N1, N16 ) 00036^^ C** RETRIEVE 00037^^ 79 110 CALL READR ( REQBCS, RECBCS, TKEY, ISTAT ) 00038^^ C** IF NO FATAL FILE ERROR, CONTINUE 00039^^ 80 IF ( ISTAT .GE. 0 .OR. AND( ISTAT, EOF ) .NE. 0 .OR. 00040^^ 80 + AND( ISTAT, BUSY ) .NE. 0 ) GO TO 120 00041^^ C** ELSE, REPORT FILE ERROR AND EXIT (NO RETURN FROM UP4END). 00042^^ 81 CALL FILERR ( IDATCS, N13, ISTAT, TLU ) 00043^^ 82 CALL UP4END 00044^ ^ C**** IF ACCOUNT IS NOT FOUND, CONTINUE 00046^^ 83 120 IF ( AND( ISTAT, WRONKY ) .NE. 0 .OR. 00047^^ 83 + AND( ISTAT, EOF ) .NE. 0 ) GO TO 130 00048^^ C** ELSE, IF ACCOUNT IS BUSY, RETRY RETRIEVAL REQUEST 00049^^ 84 IF ( AND( ISTAT, BUSY ) .NE. 0 ) GO TO 110 00050^^ C** ELSE, SET FLAG TO INDICATE ACCOUNT FOUND 00051^^ 85 ACCTFD = 1 00052^^ C** RETURN. 00053^^ 86 GO TO 200 00054^ ^ C**** SET FLAG TO INDICATE ACCOUNT NOT FOUND. 00056^^ 87 130 ACCTFD = 0 00057^  ^ C**** COSIGNER RECORD RETRIEVAL COMPLETE, RETURN. 00059^^ 88 200 RETURN 00060^^ 89 END 00061^t FTN 3.3B (OPT = LPC) UP4GTC PAGE 6 DATE: 08/30/84 TIME: 0144 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $0040 ( 64)   EXTERNALS  CCSMVA READR FILERR UP4END  t FTN 3.3B (OPT = LPC) UP4GTC PAGE 7 DATE: 08/30/84 TIME: 0144 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( ACCTFD INTEGER 0001 D 3,7,85,87($ AFLG INTEGER 05A1 D 44,46$* AND INTR.FN. 7FFF 80,80,83,84*$ AZEROS INTEGER 0710 D 63,65$$ BLANKS INTEGER 070F D 63,65$* BUSY INTEGER 050E D 20,23,80,84*$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$$ DETLIN INTEGER 053B D 27,29$" DUMMY INTEGER 0000 D 1,3"* EOF INTEGER 050D D 20,23,80,83*" EOFFLG INTEGER 0002 D 3,7"$ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$$ HDLIN INTEGER 05B8 D 52,55$$ HDLINT INTEGER 067E D 52,55$$ IDATAD INTEGER 04AE D 14,16$( IDATCS INTEGER 047C D 11,13,81 (" IDATDM INTEGER 0406 D 7,9"$ IDATIN INTEGER 04FC D 18,20$$ IDATPR INTEGER 04D5 D 16,18$$ IDATUT INTEGER 0455 D 9,11 $$ IFLAG INTEGER 0586 D 31,33$( INPBUF INTEGER 050F D 23,25,78 (4 ISTAT INTEGER 050B D 20,23,79,80,81,83,84 4$ KHDRX INTEGER 05AA D 48,50$$ LINCNT INTEGER 057F D 29,31$$ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$$ N0 INTEGER 071F D 65,72$( N1 INTEGER 0720 D 65,72,78 ($ N10 INTEGER 0728 D 65,73$$ N11 INTEGER 0729 D 65,73$( N13 INTEGER 072A D 65,73,81 ($ N132 INTEGER 0731 D 65,77$$ N14 INTEGER 072B D 65,73$$ N15 INTEGER 072C D 65,73$( N16 INTEGER 072D D 65,73,78 ($ N2 INTEGER 0721 D 65,72$t FTN 3.3B (OPT = LPC) UP4GTC PAGE 8 DATE: 08/30/84 TIME: 0144 t$ N3 INTEGER 0722 D 65,72$$ N35 INTEGER 072E D 65,74$( N4 INTEGER 0723 D 65,72,78 ($ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$$ N6 INTEGER 0725 D 65,72$$ N7 INTEGER 0726 D 65,72$$ N80 INTEGER 0730 D 65,76$$ N9 INTEGER 0727 D 65,72$$ NDAONE INTEGER 070A D 61,63$$ NUMREJ INTEGER 05B2 D 50,52$$ NUMUPD INTEGER 05AC D 50,52$$ PAGCNT INTEGER 0580 D 29,31$$ R9SWCH INTEGER 0592 D 36,38$$ RECBAD INTEGER 04A3 D 14,16$( RECBCS INTEGER 001C D 11,14,79 (& RECBDM INTEGER 001C D 7,9,14 &$ RECBUT INTEGER 042D D 9,11 $$ REQBAD INTEGER 048B D 14,16$( REQBCS INTEGER 0464 D 11,13,79 (" REQBDM INTEGER 0004 D 7,9"$ REQBIN INTEGER 04E4 D 18,20$$ REQBPR INTEGER 04BD D 16,18$$ REQBUT INTEGER 0415 D 9,11 $$ SWITCH INTEGER 0593 D 36,38$$ TAPE INTEGER 059C D 38,40$$ TCODE INTEGER 0706 D 55,57$$ TEMP INTEGER 0587 D 31,33$* TKEY INTEGER 05A2 D 46,48,78,79*( TLU INTEGER 0707 D 57,59,81 ($ TNFLD INTEGER 059E D 40,42$" TOTPRT INTEGER 0003 D 3,7"$ U INTEGER 0594 D 36,38$( WRONKY INTEGER 050C D 20,23,83 ($ YEAR INTEGER 0591 D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSMVA SUBROUTINE 0001 77 "" FILERR SUBROUTINE 001E 80 "" READR SUBROUTINE 0009 78 "" UP4END SUBROUTINE 0024 81 "t FTN 3.3B (OPT = LPC) UP4GTC PAGE 9 DATE: 08/30/84 TIME: 0144 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0000 77 "$ 110 0008 78,84$$ 120 0025 80,83$$ 130 0037 83,87$$ 200 0039 85,88$ UP4GTC 003C 1  t FTN 3.3B (OPT = LPC) UP4PRT PAGE 1 DATE: 08/30/84 TIME: 0145 t^ 1 SUBROUTINE UP4PRT ( LINE ) 00001^^ 1 1 /C40 F CCS CCS 3.0 SL-149 00002^^ C PRINT DETAIL OR TOTAL LINE 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C UP4PRT IS RESPONSIBLE FOR "PRINTING" THE PASSED LINE TO THE LIST 00009^^ C UNIT SPECIFIED BY THE SWITCH SETTINGS. IF SWITCH U4 IS NOT SET, 00010^^ C OUTPUT IS TO THE SYSTEM PRINTER. IF SWITCH U4 IS SET, OUTPUT WILL 00011^^ C BE TO THE FILE "UP4PRINT". UP4PRT WILL PRINT REPORT AND COLUMN 00012^^ C HEADINGS IF NEEDED. THE FOLLOWING RESTRICTIONS APPLY TO THE LINE 00013^^ C PASSED TO BE PRINTED: 00014^^ C 1) MAXMIMUM OF 132 CHARACTERS. 00015^^ C 2) MUST BE FOLLOWED BY TWO UNUSED WORDS. THESE ARE REQUIRED 00016^^ C BY THE FILE MANAGER FOR FILE OUTPUT. 00017^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: 00018^^ C 1. IF INITIALIZATION OPERATIONS COMPLETE, CONTINUE 00019^^ C ELSE, INITIALIZE FWRITE COMPLETION ADDRESSES. 00020^^ C 2. IF LINE-COUNT DOES NOT FORCE NEW PAGE, CONTINUE 00021^^ C ELSE, RESET LINE COUNT (TO FOUR) 00022^^ C INCREMENT PAGE COUNT 00023^^ C IF SWITCH U4 IS SET, "PRINT" REPORT HEADINGS TO FILE 00024^^ C "UP4PRINT" 00025^^ C ELSE, PRINT REPORT HEADINGS TO SYSTEM PRINTER 00026^^ C IF IN TOTALS PRINTING, CONTINUE 00027^^ C ELSE, INCREMENT LINE COUNT BY 3 00028^^ C IF SWITCH U4 IS SET, "PRINT" COLUMN HEADINGS TO 00029^^ C FILE "UP4PRINT" 00030^^ C ELSE, PRINT COLUMN HEADINGS TO SYSTEM 00031^^ C PRINTER. 00032^^ C 3. IF SWITCH U4 SET, "PRINT" LINE TO FILE "UP4PRINT" 00033^^ C ELSE, PRINT LINE TO SYSTEM PRINTER. 00034^^ C 4. BLANK LINE BUFFER JUST PRINTED. 00035^^ C 5. INCREMENT LINE COUNT. 00036^^ C 6. RETURN. 00037^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00039^^ M UP4MAC 00040^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^t FTN 3.3B (OPT = LPC) UP4PRT PAGE 2 DATE: 08/30/84 TIME: 0145 t^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^t FTN 3.3B (OPT = LPC) UP4PRT PAGE 3 DATE: 08/30/84 TIME: 0145 t^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^t FTN 3.3B (OPT = LPC) UP4PRT PAGE 4 DATE: 08/30/84 TIME: 0145 t^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4PRT PAGE 5 DATE: 08/30/84 TIME: 0145 t^ C**** LOCAL DECLARATIONS 00041^ ^ C**** SYSTEM LINE PRINTER LOGICAL UNIT 00043^^ 78 INTEGER LP 00044^^ 79 DATA LP / 9 / 00045^ ^ C**** MAXIMUM NUMBER OF LINES PER PAGE - INCLUDING HEADINGS. 00047^^ 80 INTEGER MAXLPP 00048^^ 81 DATA MAXLPP / 56 / 00049^ ^ C**** FWRITE COMPLETION ADDRESSES. 00051^^ 82 INTEGER COMPL1, COMPL2, COMPL3, COMPL4, COMPL5, COMPL6 00052^^ 83 DATA COMPL1 / 0 / 00053^  ^ C*********************************************************************** 00055^^ C* BEGIN PROGRAM. * 00056^^ C*********************************************************************** 00057^ ^ C**** IF COMPLETION ADDRESS ALREADY INITIALIZED, CONTINUE 00059^^ 84 100 IF ( COMPL1 .NE. 0 ) GO TO 110 00060^^ C** ELSE, INITIALIZE ONE TIME THE COMPLETION ADDRESSES FOR 00061^^ C** FWRITE REQUESTS. 00062^^ 85 ASSIGN 120 TO COMPL1 00063^^ 86 ASSIGN 130 TO COMPL2 00064^^ 87 ASSIGN 150 TO COMPL3 00065^^ 88 ASSIGN 160 TO COMPL4 00066^^ 89 ASSIGN 180 TO COMPL5 00067^^ 90 ASSIGN 200 TO COMPL6 00068^ ^ C**** IF LINE COUNT DOES NOT FORCE NEW PAGE, CONTINUE 00070^^ 91 110 IF ( LINCNT .LE. MAXLPP ) GO TO 180 00071^^ C** ELSE, RESET LINE COUNT 00072^^ 92 LINCNT = 4 00073^^ C** INCREMENT PAGE COUNT 00074^^ 93 CALL CCSADD ( NDAONE, N2, PAGCNT, N1, PAGCNT, N1 ) 00075^^ C** MOVE PAGE COUNT TO REPORT HEADINGS 00076^^ 94 HDLIN(63,2) = PAGCNT(5) 00077^^ 95 HDLIN(64,2) = PAGCNT(6) 00078^^ C* ZERO SUPPRESS PAGE COUNT 00079^^ 96 DO 115 I=1,3 00080^^ 97 CALL CCSGET ( HDLIN(63,2), I, J ) 00081^^ 98 IF ( J .NE. $30 ) GO TO 116 00082^^ 99 CALL CCSPUT ( BLANKS, I, HDLIN(63,2) ) 00083^^ 100 115 CONTINUE 00084^^ C** IF SWITCH U4 SET, "PRINT" REPORT HEADINGS TO FILE "UP4PRINT" 00085^^ 101 116 IF ( U(4) .NE. 0 ) GO TO 140 00086^^ C** ELSE, PRINT REPORT HEADINGS ON SYSTEM LINE PRINTER 00087^^ 102 CALL FWRITE( LP, HDLIN(1,1), N132, COMPL1, IFLAG, TEMP) 00088^^ 103 CALL DISP 00089^^ 104 120 CALL FWRITE( LP, HDLIN(1,2), N132, COMPL2, IFLAG, TEMP) 00090^^ 105 CALL DISP 00091^^ 106 130 CALL FWRITE( LP, HDLIN(1,3), N132, COMPL3, IFLAG, TEMP) 00092^^ 107 CALL DISP 00093^t FTN 3.3B (OPT = LPC) UP4PRT PAGE 6 DATE: 08/30/84 TIME: 0145 t ^ C** PRINT REPORT HEADINGS TO FILE "UP4PRINT". 00095^^ 108 140 CALL PUTS ( REQBPR, HDLIN, N3, ISTAT ) 00096^^ C** IF NO FILE ERROR, CONTINUE 00097^^ 109 IF ( ISTAT .GE. 0 ) GO TO 150 00098^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END) 00099^^ 110 CALL FILERR ( IDATPR, N11, ISTAT, TLU ) 00100^^ 111 CALL UP4END 00101^ ^ C** IF IN TOTALS PRINTING, CONTINUE (BYPASS COLUMN HEADINGS 00103^^ C** PRINTING) 00104^^ 112 150 IF( TOTPRT .NE. 0 ) GO TO 180 00105^^ C** ELSE, INCREMENT LINE COUNT BY 3 00106^^ 113 LINCNT = LINCNT + 3 00107^^ C** IF SWITCH U4 SET, "PRINT" COLUMN HEADINGS TO FILE 00108^^ C** "UP4PRINT" 00109^^ 114 IF ( U(4) .NE. 0 ) GO TO 170 00110^^ C** ELSE, PRINT COLUMN HEADINGS ON SYSTEM LINE PRINTER 00111^^ 115 CALL FWRITE( LP, COLHD(1,1), N132, COMPL4, 00112^^ 115 + IFLAG, TEMP ) 00113^^ 116 CALL DISP 00114^^ 117 160 CALL FWRITE( LP, COLHD(1,2), N132, COMPL5, 00115^^ 117 + IFLAG, TEMP ) 00116^^ 118 CALL DISP 00117^ ^ C** PRINT COLUMN HEADINGS TO FILE "UP4PRINT" 00119^^ 119 170 CALL PUTS ( REQBPR, COLHD, N2, ISTAT ) 00120^^ C** IF NO FILE ERROR, CONTINUE 00121^^ 120 IF ( ISTAT .GE. 0 ) GO TO 180 00122^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM 00123^^ C** UP4END). 00124^^ 121 CALL FILERR ( IDATPR, N11, ISTAT, TLU ) 00125^^ 122 CALL UP4END 00126^ ^ C**** IF SWITCH U4 SET, "PRINT" LINE TO FILE "UP4PRINT" 00128^^ 123 180 IF ( U(4) .NE. 0 ) GO TO 190 00129^^ C** ELSE, PRINT LINE TO SYSTEM LINE PRINTER. 00130^^ 124 CALL FWRITE ( LP, LINE, N132, COMPL6, IFLAG, TEMP ) 00131^^ 125 CALL DISP 00132^ ^ C** PRINT LINE TO FILE "UP4PRINT". 00134^^ 126 190 CALL PUTS ( REQBPR, LINE, N1, ISTAT ) 00135^^ C** IF NO FILE ERROR, CONTINUE 00136^^ 127 IF ( ISTAT .GE. 0 ) GO TO 200 00137^^ C** ELSE, REPORT ERROR AND EXIT (NO RETURN FROM UP4END). 00138^^ 128 CALL FILERR ( IDATPR, N11, ISTAT, TLU ) 00139^^ 129 CALL UP4END 00140^ ^ C**** BLANK OUTPUT LINE. 00142^^ 130 200 CALL CCSBLK ( LINE, N132 ) 00143^ ^ C**** INCREMENT LINE-COUNT. 00145^^ 131 210 LINCNT = LINCNT + 1 00146^ t FTN 3.3B (OPT = LPC) UP4PRT PAGE 7 DATE: 08/30/84 TIME: 0145 t ^ C**** LINE OUTPUT COMPLETE, RETURN. 00148^^ 132 220 RETURN 00149^^ 133 END 00150^t FTN 3.3B (OPT = LPC) UP4PRT PAGE 8 DATE: 08/30/84 TIME: 0145 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $00D7 ( 215)   EXTERNALS 2 Q8PKUP Q8PREP CCSADD CCSGET CCSPUT FWRITE DISP 2 PUTS FILERR UP4END CCSBLK  t FTN 3.3B (OPT = LPC) UP4PRT PAGE 9 DATE: 08/30/84 TIME: 0145 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACCTFD INTEGER 0001 D 3,7"$ AFLG INTEGER 05A1 D 44,46$$ AZEROS INTEGER 0710 D 63,65$( BLANKS INTEGER 070F D 63,65,99 ($ BUSY INTEGER 050E D 20,23$0 COLHD INTEGER 0680 D 52,55,115,117,1190$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$. COMPL1 INTEGER 0002 81,83,84,85,102.( COMPL2 INTEGER 0003 81,86,104(( COMPL3 INTEGER 0004 81,87,106(( COMPL4 INTEGER 0005 81,88,115(( COMPL5 INTEGER 0006 81,89,117(( COMPL6 INTEGER 0007 81,90,124(( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$$ DETLIN INTEGER 053B D 27,29$" DUMMY INTEGER 0000 D 1,3"$ EOF INTEGER 050D D 20,23$" EOFFLG INTEGER 0002 D 3,7"$ FEDT INTEGER 053A D 25,27$$ FLEN INTEGER 0539 D 25,27$$ FSTR INTEGER 0538 D 25,27$@ HDLIN INTEGER 05B8 D 52,55,94,95,97,99,102,104,106,108@$ HDLINT INTEGER 067E D 52,55$( I INTEGER 0008 95,97,99 ($ IDATAD INTEGER 04AE D 14,16$$ IDATCS INTEGER 047C D 11,13$" IDATDM INTEGER 0406 D 7,9"$ IDATIN INTEGER 04FC D 18,20$0 IDATPR INTEGER 04D5 D 16,18,110,121,1280$ IDATUT INTEGER 0455 D 9,11 $< IFLAG INTEGER 0586 D 31,33,102,104,106,115,117,124<$ INPBUF INTEGER 050F D 23,25$H ISTAT INTEGER 050B D 20,23,108,109,110,119,120,121,126,127,128H$ J INTEGER 0009 97,98$$ KHDRX INTEGER 05AA D 48,50$2 LINCNT INTEGER 057F D 29,31,91,92,113,1312, LINE INTEGER 7FFF 1,124,126,130,< LP INTEGER 0000 77,79,102,104,106,115,117,124<( MAXLPP INTEGER 0001 79,81,91 ($ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$t FTN 3.3B (OPT = LPC) UP4PRT PAGE 10 DATE: 08/30/84 TIME: 0145 t$ N0 INTEGER 071F D 65,72$, N1 INTEGER 0720 D 65,72,93,126 ,$ N10 INTEGER 0728 D 65,73$0 N11 INTEGER 0729 D 65,73,110,121,1280$ N13 INTEGER 072A D 65,73$@ N132 INTEGER 0731 D 65,77,102,104,106,115,117,124,130@$ N14 INTEGER 072B D 65,73$$ N15 INTEGER 072C D 65,73$$ N16 INTEGER 072D D 65,73$, N2 INTEGER 0721 D 65,72,93,119 ,( N3 INTEGER 0722 D 65,72,108($ N35 INTEGER 072E D 65,74$$ N4 INTEGER 0723 D 65,72$$ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$$ N6 INTEGER 0725 D 65,72$$ N7 INTEGER 0726 D 65,72$$ N80 INTEGER 0730 D 65,76$$ N9 INTEGER 0727 D 65,72$( NDAONE INTEGER 070A D 61,63,93 ($ NUMREJ INTEGER 05B2 D 50,52$$ NUMUPD INTEGER 05AC D 50,52$. PAGCNT INTEGER 0580 D 29,31,93,94,95 .$ R9SWCH INTEGER 0592 D 36,38$$ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$& RECBDM INTEGER 001C D 7,9,14 &$ RECBUT INTEGER 042D D 9,11 $$ REQBAD INTEGER 048B D 14,16$$ REQBCS INTEGER 0464 D 11,13$" REQBDM INTEGER 0004 D 7,9"$ REQBIN INTEGER 04E4 D 18,20$0 REQBPR INTEGER 04BD D 16,18,108,119,1260$ REQBUT INTEGER 0415 D 9,11 $$ SWITCH INTEGER 0593 D 36,38$$ TAPE INTEGER 059C D 38,40$$ TCODE INTEGER 0706 D 55,57$< TEMP INTEGER 0587 D 31,33,102,104,106,115,117,124<$ TKEY INTEGER 05A2 D 46,48$0 TLU INTEGER 0707 D 57,59,110,121,1280$ TNFLD INTEGER 059E D 40,42$& TOTPRT INTEGER 0003 D 3,7,112&0 U INTEGER 0594 D 36,38,101,114,1230$ WRONKY INTEGER 050C D 20,23$$ YEAR INTEGER 0591 D 33,35$t FTN 3.3B (OPT = LPC) UP4PRT PAGE 11 DATE: 08/30/84 TIME: 0145 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSADD SUBROUTINE 002A 92 "" CCSBLK SUBROUTINE 00C2 130"" CCSGET SUBROUTINE 003C 96 "" CCSPUT SUBROUTINE 0044 98 "6 DISP SUBROUTINE 005B 102,105,107,116,118,1256* FILERR SUBROUTINE 0077 109,121,128*6 FWRITE SUBROUTINE 0053 101,104,106,115,117,1246* PUTS SUBROUTINE 006D 108,119,126* Q8PKUP INTEGER.FN. 00D0 Q8PREP INTEGER.FN. 00CD * UP4END SUBROUTINE 007D 110,122,129*   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 000A 83 "$ 110 0020 84,91$& 115 0048 95,100 && 116 004D 98,101 && 120 005C 84,104 && 130 0064 85,106 && 140 006C 101,108&* 150 007E 86,109,112 *& 160 0092 87,117 && 170 009A 114,119&0 180 00A8 88,91,112,120,1230& 190 00B3 123,126&* 200 00C1 89,127,130 *" 210 00C5 130"" 220 00C7 131" UP4PRT 00CA 1  t FTN 3.3B (OPT = LPC) UP4FML PAGE 1 DATE: 08/30/84 TIME: 0145 t^ 1 SUBROUTINE UP4FML ( TTYPE ) 00001^^ 1 1 /C41 F CCS CCS 3.0 SL-149 00002^^ C FORMAT DETAIL OUTPUT LINE 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^ ^ C UP4FML IS RESPONSIBLE FOR FORMATTING THE DETAIL OUTPUT LINE FOR 00009^^ C EACH TRANSACTION. THE TRANSACTION TYPE IS PASSED AS A PARAMETER 00010^^ C AND HAS THE FOLLOWING MEANING: 00011^^ C VALUE TYPE OF TRANSACTION 00012^^ C ------------------------------------------------------- 00013^^ C 1 UPDATE - BOTH MASTER FILE AND COSIGNER FILE 00014^^ C 2 REJECT - ACCOUNT NOT FOUND 00015^^ C 3 REJECT - COSIGNER NOT FOUND 00016^^ C 4 REJECT - INVALID TRANSACTION CODE 00017^ ^ C THE FOLLOWING TABLE SHOWS EACH COLUMN OF THE UPDATE REPORT AND 00019^^ C WHICH COLUMNS ARE FILLED WITH WHICH FIELDS OF THE INPUT BUFFER 00020^^ C AND MASTER FILE RECORD: 00021^ ^ C NOTE RECORD BUFFERS OF MASTER FILE (DELQMST) AND COSIGNER FILE 00023^^ C ARE EQUIVALENCED IN COMMON. THIS ALLOWS UP4FML TO FORMAT A 00024^^ C DETAIL LINE INDEPENDENT OF WHICH FILE IS BEING UPDATED. THE 00025^^ C FIELD DESCRIPTION IS CONTAINED IN THREE WORDS OF COMMON: 00026^^ C FSTR - START CHARACTER POSITION IN FILE 00027^^ C FLEN - FIELD LENGTH 00028^^ C FEDT - EDIT REQUIREMENTS (EDIT CODE) 00029^^ C THE GENERALIZED PROGRAM FLOW IS AS FOLLOWS: 00030^^ C 1. MOVE IN ACTION/COMMENT FIELD ACCORDING TO TRANSACTION TYPE. 00031^^ C 2. MOVE IN TRANSACTION CODE. 00032^^ C 3. MOVE IN ACCOUNT NUMBER. 00033^^ C 4. IF TRANSACTION TYPE IS REJECT, RETURN 00034^^ C ELSE, CONTINUE. 00035^^ C 5. IF DATA REQUIRES EDITING, CONTINUE 00036^^ C ELSE, MOVE FEILDS DIRECTLY INTO DETAIL LINE 00037^^ C RETURN. 00038^^ C 6. EDIT FIELDS INTO DETAIL LINE. 00039^^ C 7. RETURN. 00040^  ^ C**** RETRIEVE COMMON DECLARATION MACRO. 00042^^ M UP4MAC 00043^^ M C COMMON DECLARATIONS FOR UPD400 00002^^ M C CYBERCREDIT SYSTEM VERSION 3 00003^^ M C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00004^^ M C COPYRIGHT CONTROL DATA CORPORATION, 1979 00005^^ M C 00006^^ M C*** DUMMY VARIABLE. 00007^^ M 2 INTEGER DUMMY 00008^^ M 3 COMMON / UP4 / DUMMY 00009^^ M C*** FLAG WORDS. 00010^^ M C* ACCOUNT FOUND IN MASTER FILE FLAG. 00011^t FTN 3.3B (OPT = LPC) UP4FML PAGE 2 DATE: 08/30/84 TIME: 0145 t^ M 4 INTEGER ACCTFD 00012^^ M C* END-OF-FILE ON INPUT FLAG. 00013^^ M 5 INTEGER EOFFLG 00014^^ M C* TOTALS PRINT IN PROGRESS FLAG. 00015^^ M 6 INTEGER TOTPRT 00016^^ M 7 COMMON / UP4 / ACCTFD, EOFFLG, TOTPRT 00017^^ M C*** FILE MANAGER BUFFERS FOR DELQMST (MASTER) FILE. 00018^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER, ACCOUNT 00019^^ M C* STATUS CODE. 00020^^ M 8 INTEGER REQBDM(24), RECBDM(1002), IDATDM(15) 00021^^ M 9 COMMON / UP4 / REQBDM, RECBDM, IDATDM 00022^^ M C*** FILE MANAGER BUFFERS FOR UTILITY FILE. 00023^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00024^^ M 10 INTEGER REQBUT(24), RECBUT(40), IDATUT(15) 00025^^ M 11 COMMON / UP4 / REQBUT, RECBUT, IDATUT 00026^^ M C*** FILE MANAGER BUFFERS FOR COSIGNER FILE. 00027^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00028^^ M 12 INTEGER REQBCS(24), RECBCS(183), IDATCS(15) 00029^^ M 13 COMMON / UP4 / REQBCS, IDATCS 00030^^ M 14 EQUIVALENCE ( RECBDM(1), RECBCS(1) ) 00031^^ M C*** FILE MANAGER BUFFERS FOR ADD ACCOUNT FILE. 00032^^ M C* REQUEST BUFFER, RECORD BUFFER, FILE DATA BUFFER. 00033^^ M 15 INTEGER REQBAD(24), RECBAD(11), IDATAD(15) 00034^^ M 16 COMMON / UP4 / REQBAD, RECBAD, IDATAD 00035^^ M C*** FILE MANAGER BUFFERS FOR PRINT OUTPUT FILE. 00036^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00037^^ M 17 INTEGER REQBPR(24), IDATPR(15) 00038^^ M 18 COMMON / UP4 / REQBPR, IDATPR 00039^^ M C*** FILE MANAGER BUFFERS FOR INPUT FILE. 00040^^ M C* REQUEST BUFFER, FILE DATA BUFFER. 00041^^ M 19 INTEGER REQBIN(24), IDATIN(15) 00042^^ M 20 COMMON / UP4 / REQBIN, IDATIN 00043^^ M C*** FILE MANAGER STATUS WORD. 00044^^ M 21 INTEGER ISTAT 00045^^ M C* STATUS CONSIDERATIONS. 00046^^ M C* WRONG KEY, END-OF-FILE, RECORD LOCKED. 00047^^ M 22 INTEGER WRONKY, EOF, BUSY 00048^^ M 23 COMMON / UP4 / ISTAT, WRONKY, EOF, BUSY 00049^^ M C*** TRANSACTION INPUT BUFFER. 00050^^ M 24 INTEGER INPBUF(41) 00051^^ M 25 COMMON / UP4 / INPBUF 00052^^ M C*** FIELD DESCRIPTION FOR TRANSACTION BEING PROCESSED. 00053^^ M C* START CHARACTER POSITION IN FILE OF FIELD, FIELD LENGTH, FIELD EDIT 00054^^ M C* CODE. 00055^^ M 26 INTEGER FSTR, FLEN, FEDT 00056^^ M 27 COMMON / UP4 / FSTR, FLEN, FEDT 00057^^ M C*** PRINT OUTPUT BUFFERS. 00058^^ M C* STANDARD DETAIL LINE BUFFER. 00059^^ M 28 INTEGER DETLIN(68) 00060^^ M 29 COMMON / UP4 / DETLIN 00061^^ M C*** LINE AND PAGE COUNT FOR OUTPUT. 00062^^ M 30 INTEGER LINCNT, PAGCNT(6) 00063^^ M 31 COMMON / UP4 / LINCNT, PAGCNT 00064^^ M C*** FLAG AND TEMPORARY AREA FOR READ/WRITE MONITOR REQUESTS. 00065^t FTN 3.3B (OPT = LPC) UP4FML PAGE 3 DATE: 08/30/84 TIME: 0145 t^ M 32 INTEGER IFLAG, TEMP(8) 00066^^ M 33 COMMON / UP4 / IFLAG, TEMP 00067^^ M C*** TODAY'S DATE. 00068^^ M 34 INTEGER DATE(3), MONTH, DAY, YEAR 00069^^ M 35 EQUIVALENCE ( MONTH,DATE(1) ), ( DAY,DATE(2) ), ( YEAR,DATE(3) ) 00070^^ M 36 COMMON / UP4 / DATE 00071^^ M C*** EXTERNAL SWITCH. 00072^^ M C* CORE LOCATION OF SWITCH WORD, SWITCH VALUES SAVED INTERNALLY. 00073^^ M 37 INTEGER R9SWCH, SWITCH, U(8) 00074^^ M 38 COMMON / UP4 / R9SWCH, SWITCH, U 00075^^ M C*** TAPE INPUT LOGICAL UNITS. 00076^^ M C* ACTUAL TAPE INPUT UNIT ( =0 INITIALLY), MAG TAPE UNIT 1. 00077^^ M 39 INTEGER TAPE, MT1 00078^^ M 40 COMMON / UP4 / TAPE, MT1 00079^^ M C*** START CHARACTER POSITIONS OF FIELDS IN INPUT BUFFER. 00080^^ M C* NEW DATA. 00081^^ M 41 INTEGER TNFLD 00082^^ M 42 COMMON / UP4 / TNFLD 00083^^ M C*** START CHARACTER POSITIONS OF FIELDS IN MASTER FILE. 00084^^ M C* NAME, SECONDARY KEY SAVE AREA. 00085^^ M 43 INTEGER MNAM, MNCHG 00086^^ M 44 COMMON / UP4 / MNAM, MNCHG 00087^^ M C*** START CHARACTER POSITIONS OF FIELDS IN ADD ACCOUNT FILE. 00088^^ M C* CODE FLAG FOR TYPE. 00089^^ M 45 INTEGER AFLG 00090^^ M 46 COMMON / UP4 / AFLG 00091^^ M C*** TEMPORARY KEY, AVIALABLE FOR USE ANYTIME. 00092^^ M 47 INTEGER TKEY(8) 00093^^ M 48 COMMON / UP4 / TKEY 00094^^ M C*** KEYS FOR RECORDS RETRIEVED FROM UTILITY FILE. 00095^^ M C* REPORT HEADING RECORDS. 00096^^ M 49 INTEGER KHDRX(2) 00097^^ M 50 COMMON / UP4 / KHDRX 00098^^ M C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. 00099^^ M C* UPDATES, REJECTS. 00100^^ M 51 INTEGER NUMUPD(6), NUMREJ(6) 00101^^ M 52 COMMON / UP4 / NUMUPD, NUMREJ 00102^^ M C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. 00103^^ M 53 INTEGER HDLIN(66,3), HDLINT(2) 00104^^ M 54 INTEGER COLHD(66,2), COLHDT(2) 00105^^ M 55 COMMON / UP4 / HDLIN, HDLINT, COLHD, COLHDT 00106^^ M C*** TRANSACTION CODE. 00107^^ M 56 INTEGER TCODE 00108^^ M 57 COMMON / UP4 / TCODE 00109^^ M C*** TERMINAL LOGICAL UNIT. 00110^^ M 58 INTEGER TLU 00111^^ M 59 COMMON / UP4 / TLU 00112^^ M C*** COMPARE STRING RETURN INDICATORS. 00113^^ M 60 INTEGER COMPIN, COMPI2 00114^^ M 61 COMMON / UP4 / COMPIN, COMPI2 00115^^ M C*** NINE DIGIT ASCII VALUE FOR ONE - USED IN CCSADD OPERATIONS. 00116^^ M 62 INTEGER NDAONE(5) 00117^^ M 63 COMMON / UP4 / NDAONE 00118^^ M C*** ASCII CONSTANTS. 00119^t FTN 3.3B (OPT = LPC) UP4FML PAGE 4 DATE: 08/30/84 TIME: 0145 t^ M C* BLANKS, THIRTY CHARACTER FIELD OF ASCII ZEROES. 00120^^ M 64 INTEGER BLANKS, AZEROS(15) 00121^^ M 65 COMMON / UP4 / BLANKS, AZEROS 00122^^ M C*** SIMPLE NUMERIC CONSTANTS. 00123^^ M 66 INTEGER N0, N1, N2, N3, N4, N5, N6, N7, N9 00124^^ M 67 INTEGER N10, N11, N13, N14, N15, N16 00125^^ M 68 INTEGER N35 00126^^ M 69 INTEGER N40 00127^^ M 70 INTEGER N80 00128^^ M 71 INTEGER N132 00129^^ M 72 COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130^^ M 73 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131^^ M 74 COMMON / UP4 / N35 00132^^ M 75 COMMON / UP4 / N40 00133^^ M 76 COMMON / UP4 / N80 00134^^ M 77 COMMON / UP4 / N132 00135^^ M C*** END OF MACRO DECLARATION. 00136^t FTN 3.3B (OPT = LPC) UP4FML PAGE 5 DATE: 08/30/84 TIME: 0145 t^ C**** LOCAL DECLARATIONS. 00044^ ^ C**** PASSED PARAMETER - TRANSACTION TYPE. 00046^^ 78 INTEGER TTYPE 00047^ ^ C**** NEW AND OLD DATA POSITIONS IN DETAIL LINE. 00049^^ 79 INTEGER NEWD, OLDD 00050^^ 80 DATA NEWD / 30 / 00051^^ 81 DATA OLDD / 63 / 00052^ ^ C**** ACTION/COMMENT FIELD TABLE FOR TRANSACTIONS 00054^^ 82 INTEGER ACTION(18,4), UPDACT(18), RJ2ACT(18), RJ3ACT(18) 00055^^ 83 INTEGER RJ4ACT(18) 00056^^ 84 EQUIVALENCE ( ACTION(1,1), UPDACT(1) ), ( ACTION(1,2), RJ2ACT(1) ) 00057^^ 84 +, ( ACTION(1,3), RJ3ACT(1) ), ( ACTION(1,4), RJ4ACT(1) ) 00058^^ 85 DATA UPDACT / 'UPDATE ' / 00059^^ 86 DATA RJ2ACT / 'REJECT - ACCOUNT NOT FOUND ' / 00060^^ 87 DATA RJ3ACT / 'REJECT - COSIGNER NOT FOUND ' / 00061^^ 88 DATA RJ4ACT / 'REJECT - INVALID TRANSACTION CODE ' / 00062^  ^ C*********************************************************************** 00064^^ C* BEGIN PROGRAM. * 00065^^ C*********************************************************************** 00066^ ^ C**** MOVE IN APPROPRIATE ACTION/COMMENT FIELD. 00068^^ 89 100 CALL CCSMVA ( ACTION(1,TTYPE), N1, N35, DETLIN(49), N2, N35 ) 00069^ ^ C**** MOVE IN TRANSACTION CODE. 00071^^ 90 110 CALL CCSMVA ( INPBUF, N1, N3, DETLIN, N4, N3 ) 00072^ ^ C**** MOVE IN ACCOUNT NUMBER 00074^^ 91 120 CALL CCSMVA ( INPBUF, N4, N16, DETLIN, N9, N16 ) 00075^ ^ C**** IF TRANSACTION TYPE IS REJECT, RETURN 00077^^ 92 130 IF ( TTYPE .GE. 2 ) GO TO 200 00078^^ C** ELSE, CONTINUE. 00079^ ^ C**** IF FIELDS REQUIRE EDITING FOR DISPLAY, CONTINUE 00081^^ 93 140 IF ( FEDT .NE. 0 ) GO TO 150 00082^^ C** ELSE, MOVE FIELDS INTO DETAIL LINE 00083^^ 94 CALL CCSMVA ( INPBUF, TNFLD, FLEN, DETLIN, NEWD, FLEN ) 00084^^ 95 CALL CCSMVA ( RECBDM, FSTR , FLEN, DETLIN, OLDD, FLEN ) 00085^^ C** RETURN. 00086^^ 96 GO TO 200 00087^ ^ C**** EDIT FIELDS INTO DETAIL LINE. 00089^^ 97 150 CALL EDIT ( INPBUF, TNFLD, DETLIN, NEWD, FEDT ) 00090^^ 98 CALL EDIT ( RECBDM, FSTR , DETLIN, OLDD, FEDT ) 00091^  ^ C**** DETAIL LINE FORMATTING COMPLETE, RETURN. 00093^^ 99 200 RETURN 00094^^ 100 END 00095^t FTN 3.3B (OPT = LPC) UP4FML PAGE 6 DATE: 08/30/84 TIME: 0145 t COMMON  LABEL $0732 ( 1842)    PROGRAM LENGTH $0098 ( 152)   EXTERNALS  Q8PKUP Q8PREP CCSMVA EDIT  t FTN 3.3B (OPT = LPC) UP4FML PAGE 7 DATE: 08/30/84 TIME: 0145 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " ACCTFD INTEGER 0001 D 3,7"( ACTION INTEGER 0002 81,84,89 ($ AFLG INTEGER 05A1 D 44,46$$ AZEROS INTEGER 0710 D 63,65$$ BLANKS INTEGER 070F D 63,65$$ BUSY INTEGER 050E D 20,23$$ COLHD INTEGER 0680 D 52,55$$ COLHDT INTEGER 0704 D 52,55$$ COMPI2 INTEGER 0709 D 59,61$$ COMPIN INTEGER 0708 D 59,61$( DATE INTEGER 058F D 33,35,36 ($ DAY INTEGER 0590 D 33,35$: DETLIN INTEGER 053B D 27,29,89,90,91,94,95,97,98 :" DUMMY INTEGER 0000 D 1,3"$ EOF INTEGER 050D D 20,23$" EOFFLG INTEGER 0002 D 3,7". FEDT INTEGER 053A D 25,27,93,97,98 .* FLEN INTEGER 0539 D 25,27,94,95** FSTR INTEGER 0538 D 25,27,95,98*$ HDLIN INTEGER 05B8 D 52,55$$ HDLINT INTEGER 067E D 52,55$$ IDATAD INTEGER 04AE D 14,16$$ IDATCS INTEGER 047C D 11,13$" IDATDM INTEGER 0406 D 7,9"$ IDATIN INTEGER 04FC D 18,20$$ IDATPR INTEGER 04D5 D 16,18$$ IDATUT INTEGER 0455 D 9,11 $$ IFLAG INTEGER 0586 D 31,33$0 INPBUF INTEGER 050F D 23,25,90,91,94,970$ ISTAT INTEGER 050B D 20,23$$ KHDRX INTEGER 05AA D 48,50$$ LINCNT INTEGER 057F D 29,31$$ MNAM INTEGER 059F D 42,44$$ MNCHG INTEGER 05A0 D 42,44$$ MONTH INTEGER 058F D 33,35$$ MT1 INTEGER 059D D 38,40$$ N0 INTEGER 071F D 65,72$* N1 INTEGER 0720 D 65,72,89,90*$ N10 INTEGER 0728 D 65,73$$ N11 INTEGER 0729 D 65,73$$ N13 INTEGER 072A D 65,73$$ N132 INTEGER 0731 D 65,77$$ N14 INTEGER 072B D 65,73$$ N15 INTEGER 072C D 65,73$( N16 INTEGER 072D D 65,73,91 (( N2 INTEGER 0721 D 65,72,89 (t FTN 3.3B (OPT = LPC) UP4FML PAGE 8 DATE: 08/30/84 TIME: 0145 t( N3 INTEGER 0722 D 65,72,90 (( N35 INTEGER 072E D 65,74,89 (* N4 INTEGER 0723 D 65,72,90,91*$ N40 INTEGER 072F D 65,75$$ N5 INTEGER 0724 D 65,72$$ N6 INTEGER 0725 D 65,72$$ N7 INTEGER 0726 D 65,72$$ N80 INTEGER 0730 D 65,76$( N9 INTEGER 0727 D 65,72,91 ($ NDAONE INTEGER 070A D 61,63$* NEWD INTEGER 0000 78,80,94,97*$ NUMREJ INTEGER 05B2 D 50,52$$ NUMUPD INTEGER 05AC D 50,52$* OLDD INTEGER 0001 78,81,95,98*$ PAGCNT INTEGER 0580 D 29,31$$ R9SWCH INTEGER 0592 D 36,38$$ RECBAD INTEGER 04A3 D 14,16$$ RECBCS INTEGER 001C D 11,14$, RECBDM INTEGER 001C D 7,9,14,95,98 ,$ RECBUT INTEGER 042D D 9,11 $$ REQBAD INTEGER 048B D 14,16$$ REQBCS INTEGER 0464 D 11,13$" REQBDM INTEGER 0004 D 7,9"$ REQBIN INTEGER 04E4 D 18,20$$ REQBPR INTEGER 04BD D 16,18$$ REQBUT INTEGER 0415 D 9,11 $( RJ2ACT INTEGER 0014 81,84,86 (( RJ3ACT INTEGER 0026 81,84,87 (( RJ4ACT INTEGER 0038 81,84,88 ($ SWITCH INTEGER 0593 D 36,38$$ TAPE INTEGER 059C D 38,40$$ TCODE INTEGER 0706 D 55,57$$ TEMP INTEGER 0587 D 31,33$$ TKEY INTEGER 05A2 D 46,48$$ TLU INTEGER 0707 D 57,59$* TNFLD INTEGER 059E D 40,42,94,97*" TOTPRT INTEGER 0003 D 3,7"* TTYPE INTEGER 7FFF 1,78,89,92 *$ U INTEGER 0594 D 36,38$( UPDACT INTEGER 0002 81,84,85 ($ WRONKY INTEGER 050C D 20,23$$ YEAR INTEGER 0591 D 33,35$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < . CCSMVA SUBROUTINE 0050 88,90,91,94,95 .$ EDIT SUBROUTINE 007F 97,98$ Q8PKUP INTEGER.FN. 0094 Q8PREP INTEGER.FN. 0091 t FTN 3.3B (OPT = LPC) UP4FML PAGE 9 DATE: 08/30/84 TIME: 0145 t   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 004A 88 "" 110 0057 89 "" 120 005E 90 "" 130 0065 91 "" 140 0069 92 "$ 150 007E 93,97$( 200 008B 92,96,99 ( UP4FML 008E 1   H*CTO, MON06 GROUP BEING COMPILED.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿHH*FTNÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿH t FTN 3.3B (OPT = LPC) BHXDEC PAGE 1 DATE: 08/30/84 TIME: 0146 t^ 1 SUBROUTINE BHXDEC (NUM,IOUT) 00001^^ 1 * /HEX TO DECIMAL W/LEADING BLANKS 00002^^ C 00003^^ 2 BYTE (ILEFT,IOUT(15=8)),(IRIGHT,IOUT(7=0)) 00004^^ 3 DIMENSION ILEFT(1),IRIGHT(1),IOUT(1) 00005^^ C SAVE NUMBER IN N BEFORE CONVERTING TO ALLOW CONVERSION IN PLACE. 00006^^ 4 N=NUM 00007^^ 5 DO 8 JK=1,3 00008^^ 6 8 IOUT(JK)= $2020 00009^^ 7 IF(N.EQ.0) IRIGHT(3)=$30 00010^^ 8 IF(N.GE.0) GO TO 50 00011^^ C MINUS NUMBER 00012^^ 9 N=-N 00013^^ 10 ILEFT(1)=$2D 00014^^ 11 50 CONTINUE 00015^^ 12 I=5 00016^^ 13 55 CONTINUE 00017^^ 14 IF(N.EQ.0) GO TO 200 00018^^ 15 N1=(N/10)*10 00019^^ 16 N2=N-N1+$30 00020^^ 17 I1=I/2+1 00021^^ 18 IF(AND(I,1).EQ.0) GO TO 100 00022^^ 19 IRIGHT(I1)=N2 00023^^ 20 GO TO 110 00024^^ 21 100 ILEFT(I1)=N2 00025^^ 22 110 CONTINUE 00026^^ 23 N=N/10 00027^^ 24 I=I-1 00028^^ 25 IF(I.GT.0) GO TO 55 00029^^ 26 200 CONTINUE 00030^^ 27 RETURN 00031^^ 28 END 00032^t FTN 3.3B (OPT = LPC) BHXDEC PAGE 2 DATE: 08/30/84 TIME: 0146 t  PROGRAM LENGTH $0077 ( 119)   EXTERNALS  Q8PKUP Q8PREP  t FTN 3.3B (OPT = LPC) BHXDEC PAGE 3 DATE: 08/30/84 TIME: 0146 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < . 0001 (1) 0000 3,5,10,17,18,24.( 000A (10) 0006 15,15,23 ( 2020 (8224) 0003 6    VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " AND INTR.FN. 7FFF 18 "0 I INTEGER 0004 11,12,17,18,24,250* I1 INTEGER 0008 16,17,19,21*( ILEFT INTEGER 7FFF 1,3,10,21(& IOUT INTEGER 7FFF 1,2,3,6&( IRIGHT INTEGER 7FFF 2,3,7,19 (" JK INTEGER 0002 4,6"4 N INTEGER 0001 3,4,7,8,9,14,15,16,234( N1 INTEGER 0005 14,15,16 (* N2 INTEGER 0007 15,16,19,21*" NUM INTEGER 7FFF 1,4"   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8PKUP INTEGER.FN. 006B Q8PREP INTEGER.FN. 0068    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 8 000D 4,6"$ 50 0028 8,11 $$ 55 002A 12,25$$ 100 004B 18,21$$ 110 0052 19,22$$ 200 005E 14,26$ BHXDEC 0063 1  t FTN 3.3B (OPT = LPC) GETGRP PAGE 1 DATE: 08/30/84 TIME: 0146 t^ 1 SUBROUTINE GETGRP( GRPBUF,IALL,IMODE ) 00001^^ 1 1 /CCS3.0 SUBROUTINE GETGRP 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/06/84 ************ PROGRAMMER : RWE 00009^ ^ C**** PROGRAM DESCRIPTION : SELECT WHICH ACCOUNT GROUPS TO USE 00011^ ^ C*** CALLING SEQUENCE : CALL GETGRP( GRPBUF,IALL,IMODE ) 00013^ ^ C PARAMETERS 00015^ ^ C GRPBUF : 10 WORD ARRAY RETURNED TO PROGRAM WITH FROM 1 00017^^ C TO 10 VALID ACCOUNT GROUPS 00018^^ C ( FOR USE WITH FUNCTION 'ICKGRP' ) 00019^^ C IALL : FLAG RETURNED DESIGNATING USE OF ACCOUNT GROUPS 00020^^ C 0 = USE ALL ACCOUNT GROUPS 00021^^ C 1 = USE ONLY ACCOUNT GROUPS IN GRPBUF ARRAY 00022^^ C IMODE : FLAG TO DETERMINE WHICH ACTION TO TAKE : 00023^^ C 0 = USE ALL ACCOUNT GROUPS 00024^^ C 1 = USE ACCOUNT GROUPS 0-4 ONLY 00025^^ C 2 = USE ACCOUNT GROUPS 5-9 ONLY 00026^^ C 3 = PROMPT FROM SCREEN, WHICH OF (0-9) GROUPS TO USE 00027^^ C 4 = PROMPT FROM SCREEN, EITHER ALL, OR 0-4, OR 5-9. 00028^^ C 5 = GET 'IMODE' FLAG FROM UTIFIL 00029^ ^ 2 INTEGER GRPBUF(1),IALL,IMODE 00031^^ 2 +, INP(41),MSGY(18),AGRPS(10),MINUS(10),ALL 00032^^ 2 +, MSG1(18),MSG2(18),MSG3(18),MSG4(18),MSG5(18) 00033^^ 2 +, MSGA(18),MSGB(18),MSGC(18),MSGD(18),MSGE(18),MSGF(20) 00034^ ^ 3 DATA MSG1/$180A,$0A0D,'** SELECT ACCOUNT GROUP OPTION',$160A/ 00036^^ 3 +, MSG2/$0D0A,' 0 = ALL ACCOUNT GROUPS ',$1616/ 00037^^ 3 +, MSG3/$0D0A,' 1 = ACCOUNT GROUPS 0-4 ONLY ',$1616/ 00038^^ 3 +, MSG4/$0D0A,' 2 = ACCOUNT GROUPS 5-9 ONLY ',$160A/ 00039^^ 3 +, MSG5/$0D0A,' PLEASE ENTER SELECTION(0,1,2) :',$1616/ 00040^ ^ 4 DATA MSGA/$180A,$0A0D,'* SELECT ACCOUNT GROUPS TO USE',$160A/ 00042^^ 4 +, MSGB/$0D0A,' SEPARATE GROUPS BY COMMAS, ',$1616/ 00043^^ 4 +, MSGC/$0D0A,' (I.E. 0,1,2,3, ETC...) OR ',$1616/ 00044^^ 4 +, MSGD/$0D0A,' ENTER A FOR ALL GROUPS ',$160A/ 00045^^ 4 +, MSGE/$0D0A,' PLEASE ENTER SELECTION -- :',$1616/ 00046^ ^ 5 DATA MSGF/$180A,'INVALID ENTRY : ',$160A/ 00048^ ^ 6 DATA MSGY/$0D0A,$0D0A,' IS THIS CORRECT ? (Y/N) : ',$1616/ 00050^^ 6 +, AGRPS/'0,1,2,3,4,5,6,7,8,9,'/,MINUS/10*$FFFF/,ALL/'A,'/ 00051^ ^ C**** BEGIN PROGRAM ....... 00053^ t FTN 3.3B (OPT = LPC) GETGRP PAGE 2 DATE: 08/30/84 TIME: 0146 t^ 7 MODE = IMODE 00055^^ 8 IALL = 0 00056^^ 9 CALL CCSMVA( MINUS,1,20,GRPBUF,1,20 ) 00057^ ^ 10 10 CONTINUE 00059^^ 11 IF ( MODE.EQ.0 ) GO TO 50 00060^^ 12 IF ( MODE.EQ.1 ) GO TO 100 00061^^ 13 IF ( MODE.EQ.2 ) GO TO 200 00062^^ 14 IF ( MODE.EQ.3 ) GO TO 300 00063^^ 15 IF ( MODE.EQ.4 ) GO TO 400 00064^^ 16 IF ( MODE.EQ.5 ) GO TO 500 00065^ ^ C**** SET AND USE ALL ACCOUNT GROUPS 00067^ ^ 17 50 CONTINUE 00069^^ 18 IALL = 0 00070^^ 19 CALL CCSMVA( AGRPS,1,20,GRPBUF,1,20 ) 00071^^ 20 GO TO 800 00072^ ^ C**** SET AND USE GROUPS 0-4 ONLY 00074^ ^ 21 100 CONTINUE 00076^^ 22 IALL = 1 00077^^ 23 CALL CCSMVA( AGRPS,1,10,GRPBUF,1,10 ) 00078^^ 24 GO TO 800 00079^ ^ C**** SET AND USE GROUPS 5-9 ONLY 00081^ ^ 25 200 CONTINUE 00083^^ 26 IALL = 1 00084^^ 27 CALL CCSMVA( AGRPS,11,10,GRPBUF,1,10 ) 00085^^ 28 GO TO 800 00086^ ^ C**** ASK OPERATOR FROM SCREEN WHICH ACCOUNT GROUPS..... 00088^ ^ 29 300 CONTINUE 00090^^ 30 CALL CCSMVA( MSG2,8,18,MSG2,4,30 ) 00091^^ 31 CALL CCSMVA( MSG3,16,6,MSG3,4,30 ) 00092^ ^ 32 305 CONTINUE 00094^^ 33 ASSIGN 305 TO IRTN 00095^^ 34 ASSIGN 10 TO IRTN2 00096^^ 35 CALL WTREAD(05,-1,MSGA ,36,0,0,0,ITC) 00097^^ 36 CALL WTREAD(05,-1,MSGB ,36,0,0,0,ITC) 00098^^ 37 CALL WTREAD(05,-1,MSGC ,36,0,0,0,ITC) 00099^^ 38 CALL WTREAD(05,-1,MSGD ,36,0,0,0,ITC) 00100^^ 39 MSGA = MSG1 00101^ ^ 40 310 CONTINUE 00103^^ 41 CALL CCSMVA(INP,1,0,INP,1,82) 00104^^ 42 CALL WTREAD(05,-1,MSGE ,36,-1,INP,80,ITC) 00105^^ 43 IF (ITC.EQ.4) GO TO 310 00106^^ 44 NCH = INP(41) 00107^^ 45 NCH = (NCH+1)/2 00108^t FTN 3.3B (OPT = LPC) GETGRP PAGE 3 DATE: 08/30/84 TIME: 0146 t^ 46 N2H = NCH*2 00109^^ 47 CALL CCSPUT( $2C,N2H,INP ) 00110^^ 48 IF ( INP.EQ.ALL ) GO TO 320 00111^^ 49 GO TO 330 00112^ ^ C**** VERIFY ALL GROUPS TO BE USED... 00114^ ^ 50 320 CONTINUE 00116^^ 51 MODE = 0 00117^^ 52 CALL WTREAD( 05,-1,MSG2,36,0,0,0,ITC ) 00118^^ 53 GO TO 425 00119^ ^ C**** VALIDATE INPUT FOR VALID GROUPS..... 00121^ ^ 54 330 CONTINUE 00123^ ^ 55 K = 1 00125^^ 56 MELM= NCH-1 00126^^ 57 IF (MELM.LE.1) GO TO 370 00127^^ 58 DO 360 I=1,MELM 00128^ ^ 59 IF(INP(I).LT.INP(I+1))GO TO 360 00130^^ 60 340 TEMP = INP(I) 00131^^ 61 INP(I) = INP(I+1) 00132^^ 62 INP(I+1) = TEMP 00133^^ 63 DO 350 J=I,2,-K 00134^^ 64 IF(INP(J).GT.INP(J-1))GO TO 360 00135^^ 65 TEMP = INP(J) 00136^^ 66 INP(J) = INP(J-1) 00137^^ 67 INP(J-1) = TEMP 00138^^ 68 350 CONTINUE 00139^^ 69 360 CONTINUE 00140^ ^ C*** CHECK FOR DUPLICATE NUMBERS 00142^ ^ 70 JJ = NCH-1 00144^^ 71 DO 365 I = 1,JJ 00145^^ 72 IF ( INP(I).EQ.INP(I+1) ) GO TO 390 00146^^ 73 365 CONTINUE 00147^ ^ C*** DISPLAY CHOICES AND VERIFY... 00149^ ^ 74 370 CONTINUE 00151^^ 75 IF( INP(1).EQ.INP(2) ) GO TO 390 00152^^ 76 DO 375 I = 1,NCH 00153^^ 77 L = ( AND(INP(I),$FF00) )/256 00154^^ 78 IF ( L.LT.$30 .OR. L.GT.$39 ) GO TO 390 00155^^ 79 375 CONTINUE 00156^^ 80 CALL CCSMVA( INP,1,N2H,MSG4,1,N2H ) 00157^^ 81 CALL CCSMVA( INP,1,N2H-1,MSG3,11,20 ) 00158^^ 82 CALL WTREAD( 05,-1,MSG3,36,0,0,0,ITC ) 00159^^ 83 ASSIGN 380 TO IRTN2 00160^^ 84 GO TO 425 00161^ t FTN 3.3B (OPT = LPC) GETGRP PAGE 4 DATE: 08/30/84 TIME: 0146 t^ C*** SET GROUPS..... 00163^ ^ 85 380 CONTINUE 00165^^ 86 IALL = 1 00166^^ 87 CALL CCSMVA( MSG4,1,N2H,GRPBUF,1,N2H ) 00167^^ 88 GO TO 800 00168^ ^ C*** ERROR IN NUMBER ENTRY ..... REPEAT PROMPT 00170^ ^ 89 390 CONTINUE 00172^^ 90 MSGA = MSGB 00173^^ 91 CALL CCSMVA( INP,1,N2H-1,MSGF,19,20 ) 00174^^ 92 CALL WTREAD( 05,-1,MSGF,40,0,0,0,ITC ) 00175^^ 93 GO TO IRTN 00176^ ^ C*** ASK OPERATOR FROM SCREEN WHICH WAY TO GO....... 00178^ ^ 94 400 CONTINUE 00180^^ 95 ASSIGN 400 TO IRTN 00181^^ 96 ASSIGN 10 TO IRTN2 00182^^ 97 CALL WTREAD(05,-1,MSG1 ,36,0,0,0,ITC) 00183^^ 98 CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 00184^^ 99 CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 00185^^ 100 CALL WTREAD(05,-1,MSG4 ,36,0,0,0,ITC) 00186^ ^ 101 410 CONTINUE 00188^^ 102 CALL CCSMVA(INP,1,0,INP,1,82) 00189^^ 103 CALL WTREAD(05,-1,MSG5 ,36,-1,INP,80,ITC) 00190^^ 104 IF (ITC.EQ.4) GO TO 410 00191^ ^ C*** VALIDATE SELECTION.... 00193^ ^ 105 CALL CCSGET( INP,1,ICH ) 00195^ ^ 106 IF( INP(41).EQ.0 ) GO TO 420 00197^^ 107 IF ( ICH.LT.$30 .OR. ICH.GT.$32 ) GO TO IRTN 00198^ ^ 108 420 MODE = AND( ICH,$F ) 00200^^ 109 IF( MODE.EQ.0 ) CALL WTREAD(05,-1,MSG2 ,35,0,0,0,ITC) 00201^^ 110 IF( MODE.EQ.1 ) CALL WTREAD(05,-1,MSG3 ,35,0,0,0,ITC) 00202^^ 111 IF( MODE.EQ.2 ) CALL WTREAD(05,-1,MSG4 ,35,0,0,0,ITC) 00203^ ^ 112 425 CONTINUE 00205^^ 113 CALL CCSMVA(INP,1,0,INP,1,82) 00206^^ 114 CALL WTREAD(05,-1,MSGY ,36,-1,INP,80,ITC) 00207^^ 115 CALL CCSGET(INP,1,ICH) 00208^^ 116 IF ( INP(41).EQ.0 ) GO TO 430 00209^^ 117 IF ( ICH.NE.$59 ) GO TO IRTN 00210^^ 118 430 CONTINUE 00211^^ 119 GO TO IRTN2 00212^ ^ C**** GET 'IMODE' WHAT TO DO FLAG FROM UTIFIL... 00214^ ^ 120 500 CONTINUE 00216^t FTN 3.3B (OPT = LPC) GETGRP PAGE 5 DATE: 08/30/84 TIME: 0146 t^ 121 CALL GTSYSP( MODE,77 ) 00217^^ 122 IF ( MODE.LT.0 .OR. MODE.GT.4 ) MODE = 0 00218^^ 123 GO TO 10 00219^ ^ 124 800 RETURN 00221^^ 125 END 00222^t FTN 3.3B (OPT = LPC) GETGRP PAGE 6 DATE: 08/30/84 TIME: 0146 t  PROGRAM LENGTH $0390 ( 912)   EXTERNALS 2 HFLOT Q8PKUP Q8PREP CCSMVA WTREAD CCSPUT CCSGET 2 GTSYSP  t FTN 3.3B (OPT = LPC) GETGRP PAGE 7 DATE: 08/30/84 TIME: 0146 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < " FF00 (-255) 0137 77 "X FFFE (-1) 0127 35,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114 Xn 0000 (0) 0001 8,11,18,35,36,37,38,41,51,52,82,92,97,98,99,100,102,106,109,110,111,113,116,122n€ 0001 (1) 0000 2,9,12,19,22,23,26,27,35,36,37,38,41,42,45,52,55,56,57,58,59,61,62,64,66,67,70,71,72,75,76,80,81,€^ 82,86,87,91,92,97,98,99,100,102,103,105,109,110,111,113,114,115^2 0004 (4) 011C 15,30,31,43,104,1222Z 0005 (5) 011D 16,35,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114Z" 0006 (6) 0124 31 "" 0008 (8) 0120 30 ", 000A (10) 011E 23,23,27,123 ,$ 000B (11) 011F 27,81$" 000F (15) 013B 108"" 0010 (16) 0123 31 "" 0012 (18) 0121 30 "" 0013 (19) 0138 91 ", 0014 (20) 011B 9,9,19,81,91 ,$ 001E (30) 0122 30,31$* 0023 (35) 013C 109,110,111*H 0024 (36) 0128 35,36,37,38,42,52,82,97,98,99,100,103,114H" 0028 (40) 0139 92 "" 002C (44) 012E 46 "" 004D (77) 013D 121"* 0050 (80) 012B 42,103,114 ** 0052 (82) 012A 41,102,113 *   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < , AGRPS INTEGER 003D 2,6,19,23,27 ,& ALL INTEGER 0051 2,6,48 && AND INTR.FN. 7FFF 77,108 &0 GRPBUF INTEGER 7FFF 1,2,9,19,23,27,870< I INTEGER 0131 57,59,60,61,62,63,71,72,76,77<0 IALL INTEGER 7FFF 1,2,8,18,22,26,8602 ICH INTEGER 013A 105,107,108,115,1172$ IMODE INTEGER 7FFF 1,2,7$z INP INTEGER 0002 2,41,42,44,47,48,59,60,61,62,64,65,66,67,72,75,77,80,81,91,102,103,105,106,113,114,115,116 z0 IRTN INTEGER 0125 33,93,95,107,117 0, IRTN2 INTEGER 0126 34,83,96,119 ,^ ITC INTEGER 0129 35,36,37,38,42,43,52,82,92,97,98,99,100,103,104,109,110,111,114^. J INTEGER 0134 62,64,65,66,67 .( JJ INTEGER 0135 69,70,71 (( K INTEGER 012F 54,55,63 (t FTN 3.3B (OPT = LPC) GETGRP PAGE 8 DATE: 08/30/84 TIME: 0146 t( L INTEGER 0136 76,77,78 (* MELM INTEGER 0130 55,56,57,58*$ MINUS INTEGER 0047 2,6,9$P MODE INTEGER 011A 6,7,11,12,13,14,15,16,51,108,109,110,111,121,122 P( MSG1 INTEGER 0052 2,3,39,97(0 MSG2 INTEGER 0064 2,3,30,52,98,109 02 MSG3 INTEGER 0076 2,3,31,81,82,99,11020 MSG4 INTEGER 0088 2,3,80,87,100,1110& MSG5 INTEGER 009A 2,3,103&, MSGA INTEGER 00AC 2,4,35,39,90 ,( MSGB INTEGER 00BE 2,4,36,90(& MSGC INTEGER 00D0 2,4,37 && MSGD INTEGER 00E2 2,4,38 && MSGE INTEGER 00F4 2,4,42 &( MSGF INTEGER 0106 2,5,91,92(& MSGY INTEGER 002B 2,6,114&4 N2H INTEGER 012D 45,46,47,80,81,87,91 44 NCH INTEGER 012C 43,44,45,46,56,70,76 4. TEMP REAL 0132 59,60,62,65,67 .   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & CCSGET SUBROUTINE 0301 104,115&F CCSMVA SUBROUTINE 033C 8,19,23,27,30,31,41,80,81,87,91,102,113F" CCSPUT SUBROUTINE 01E5 46 "" GTSYSP SUBROUTINE 035F 120" HFLOT REAL.FN. 021B Q8PKUP INTEGER.FN. 037A Q8PREP INTEGER.FN. 0377 X WTREAD SUBROUTINE 031A 34,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114 X   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < * 10 014A 9,34,96,123*$ 50 0164 11,17$$ 100 0171 12,21$$ 200 017C 13,25$$ 300 0187 14,29$$ 305 0195 31,33$$ 310 01C4 39,43$$ 320 01F0 48,50$$ 330 01FE 48,54$" 340 0217 59 "$ 350 0243 62,68$* 360 0247 57,59,64,69*$ 365 0258 70,73$t FTN 3.3B (OPT = LPC) GETGRP PAGE 9 DATE: 08/30/84 TIME: 0146 t$ 370 025A 57,74$$ 375 0276 75,79$$ 380 029B 82,85$* 390 02A7 72,75,78,89*( 400 02C0 15,94,95 (& 410 02EB 100,104&& 420 0312 106,108&( 425 033B 52,84,112(& 430 035C 116,118&& 500 035E 16,120 &. 800 0370 19,24,28,88,124. GETGRP 0374 1  t FTN 3.3B (OPT = LPC) GETSW PAGE 1 DATE: 08/30/84 TIME: 0147 t^ 1 SUBROUTINE GETSW ( U ) 00001^^ 1 1 /CCS3.0 SUBROUTINE GETSW 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/06/84 ************ PROGRAMMER : RWE 00009^ ^ C**** PROGRAM DESCRIPTION : RETRIEVE RPG EXTERNAL SWITCH SETTINGS 00011^ ^ C*** CALLING SEQUENCE : CALL GETSW( U ) 00013^ ^ C PARAMETERS 00015^ ^ C U : AN 8 WORD ARRAY, WHERE EACH WORD CORRESPONDS 00017^^ C TO AN RPG EXTERNAL SWITCH 00018^^ C RPG ARRAY 00019^^ C U1 = U(1) 00020^^ C U2 = U(2) 00021^^ C ETC... 00022^^ C RETURNED VALUES ARE 0 = SWITCH IS OFF, 1 = SWITCH IS ON 00023^ ^ 2 INTEGER U(1),I,J,SWITCH 00025^ ^ C**** 00027^^ C**** BEGIN PROGRAM ....... 00028^ ^ C*** PICK UP LOCATION $E3 IN CORE WHICH IS RPG EXTERNAL SWITCH 00030^ ^ 3 ASSEM $C400,$00E3,$6800,SWITCH 00032^ ^ 4 J = 2 00034^ ^ C*** CRACK THE SWITCHS 00036^ ^ 5 DO 100 I = 1,8 00038^^ 6 U(I) = AND( SWITCH,J )/J 00039^^ 7 J = J*2 00040^^ 8 100 CONTINUE 00041^^ 9 RETURN 00042^^ 10 END 00043^t FTN 3.3B (OPT = LPC) GETSW PAGE 2 DATE: 08/30/84 TIME: 0147 t  PROGRAM LENGTH $0029 ( 41)   EXTERNALS  Q8PKUP Q8PREP  t FTN 3.3B (OPT = LPC) GETSW PAGE 3 DATE: 08/30/84 TIME: 0147 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  AND INTR.FN. 7FFF 6 $ I INTEGER 0000 2,5,6$& J INTEGER 0001 2,4,6,7&$ SWITCH INTEGER 0002 2,3,6$$ U INTEGER 7FFF 1,2,6$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8PKUP INTEGER.FN. 0024 Q8PREP INTEGER.FN. 0021    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 0015 4,8" GETSW 001E 1  t FTN 3.3B (OPT = LPC) GETUTI PAGE 1 DATE: 08/30/84 TIME: 0147 t^ 1 SUBROUTINE GETUTI( KEYB,REC,IFOUND,IFER,NOPT ) 00001^^ 1 1 /CCS3.0 SUBROUTINE GETUTI 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/06/84 ************ PROGRAMMER : RWE 00009^ ^ C**** PROGRAM DESCRIPTION : RETRIEVE RECORD BY KEY FROM UTIFIL. 00011^ ^ C*** CALLING SEQUENCE : CALL GETUTI( KEYB,REC,IFOUND,IFER,NOPT ) 00013^ ^ C PARAMETERS 00015^ ^ C KEYB : KEY OF UTIFIL RECORD TO BE RETRIEVED ( 2 WORDS ) 00017^^ C REC : BUFFER TO RECIEVE THE RETRIEVED RECORD(40 WORDS ) 00018^^ C BUFFER WILL BE BLANKS IF RECORD IS NOT FOUND. 00019^^ C IFOUND : RETURNED VALUE DESIGNATING IF RECORD WAS FOUND. 00020^^ C 0 = RECORD FOUND , 1 = RECORD NOT FOUND 00021^^ C IFER : ISTAT OF FILE MANAGER CALL. (FROM UTIFIL) 00022^^ C NOPT : PASSED. OPTION OF WHAT TO DO. 00023^^ C 0 = RETRIEVE RECORD (LEAVE FILE OPEN) 00024^^ C 1 = RETRIEVE RECORD (CLOSE FILE WHEN DONE) 00025^^ C 2 = CLOSE FILE. 00026^ ^ 2 INTEGER KEYB(1),REC(1),IFOUND,IFER,NOPT 00028^^ 2 +, DAT1(15),REQ1(24),R1KY(15),REC1(0042) 00029^^ 2 +, USER(4),LU,NPORT,MODE 00030^ ^ 3 DATA DAT1 /'LAUTIFIL ',01,01,00/,REQ1/24*0/ 00032^^ 4 DATA IOPN/0/ , IDUN/0/ 00033^ ^ C**** 00035^^ C**** BEGIN PROGRAM ....... 00036^ ^ 5 IF ( NOPT.EQ.2 ) GO TO 500 00038^^ 6 IF ( IOPN.EQ.1 ) GO TO 100 00039^ ^ C*** CHECK FOR LA LOOK-ALIKE 00041^ ^ 7 IF( IDUN.EQ.1 ) GO TO 5 00043^^ 8 IDUN = 1 00044^^ 9 CALL PGMIN( USER,LU,MODE,NPORT ) 00045^^ 10 CALL CCSCST( DAT1,1,2,USER,1,8,ICM ) 00046^^ 11 IF ( ICM.EQ.0 ) GO TO 5 00047^^ 12 CALL CCSMVA( DAT1,3,6,DAT1,1,16 ) 00048^ ^ 13 5 CONTINUE 00050^^ 14 DO 20 I = 1,24 00051^^ 15 REQ1(I) = 0 00052^^ 16 20 CONTINUE 00053^ t FTN 3.3B (OPT = LPC) GETUTI PAGE 2 DATE: 08/30/84 TIME: 0147 t^ 17 CALL OPENFL( REQ1,DAT1,ISTAT ) 00055^^ 18 IF( ISTAT.LT.0 ) GO TO 800 00056^^ 19 REQ1(23) = 1 00057^^ 20 IOPN = 1 00058^ ^ 21 100 CONTINUE 00060^^ 22 CALL CCSMVA( KEYB,1,4,R1KY,1,30 ) 00061^^ 23 CALL READR ( REQ1,REC1,R1KY,ISTAT ) 00062^^ 24 IF ( AND(ISTAT,$300).NE.0 ) GO TO 200 00063^^ 25 IF ( ISTAT.LT.0 ) GO TO 800 00064^ ^ C*** RECORD FOUND PASS INFO BACK TO CALLER 00066^ ^ 26 120 CONTINUE 00068^^ 27 IFER = ISTAT 00069^^ 28 IFOUND = 0 00070^^ 29 CALL CCSMVA( REC1,1,80,REC,1,80 ) 00071^^ 30 IF( NOPT.EQ.1 ) GO TO 500 00072^^ 31 GO TO 900 00073^ ^ C**** RECORD NOT FOUND RETURN BLANKS 00075^ ^ 32 200 CONTINUE 00077^^ 33 IFER = AND( ISTAT,$7FFF ) 00078^^ 34 IFOUND = 1 00079^^ 35 CALL CCSMVA( REC1,1,0,REC,1,40 ) 00080^^ 36 IF( NOPT.EQ.1 ) GO TO 500 00081^^ 37 GO TO 900 00082^ ^ C**** CLOSE FILE AND RETURN 00084^ ^ 38 500 CONTINUE 00086^^ 39 CALL CLOSFL( REQ1,ISTAT ) 00087^^ 40 IOPN = 0 00088^^ 41 GO TO 900 00089^ ^ C**** ERROR SECTION FOR FILE 00091^ ^ 42 800 CONTINUE 00093^^ 43 IFOUND = 1 00094^^ 44 IFER = ISTAT 00095^^ 45 IF( AND(ISTAT,$8002).EQ.$8002 ) GO TO 900 00096^^ 46 IREQ = AND(REQ1(4),$FF) 00097^^ 47 IF(IREQ.LT.11) IREQ = IREQ-1 00098^^ 48 IF(IREQ.EQ.18) IREQ = 10 00099^^ 49 CALL FILERR( DAT1,IREQ,ISTAT,LU ) 00100^^ 50 GO TO 900 00101^ ^ 51 900 CONTINUE 00103^^ 52 RETURN 00104^^ 53 END 00105^t FTN 3.3B (OPT = LPC) GETUTI PAGE 3 DATE: 08/30/84 TIME: 0147 t  PROGRAM LENGTH $0137 ( 311)   EXTERNALS 2 Q8PKUP Q8PREP PGMIN CCSCST CCSMVA OPENFL READR 2 CLOSFL FILERR  t FTN 3.3B (OPT = LPC) GETUTI PAGE 4 DATE: 08/30/84 TIME: 0147 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < $ 8002 (-32765) 0079 45,45$: 0000 (0) 0001 3,4,11,15,18,24,25,28,35,40:P 0001 (1) 0000 2,3,6,7,8,10,12,14,19,20,22,29,30,34,35,36,43,47 P$ 0002 (2) 006B 5,10 $" 0003 (3) 006E 12 "$ 0004 (4) 0073 22,46$" 0006 (6) 006F 12 "" 0008 (8) 006C 10 "" 0010 (16) 0070 12 "" 001E (30) 0074 22 "" 0028 (40) 0078 35 "$ 0050 (80) 0076 29,29$" 00FF (255) 007B 46 "" 0300 (768) 0075 24 "" 7FFF (32767) 0077 33 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < * AND INTR.FN. 7FFF 24,33,45,46*. DAT1 INTEGER 0002 2,3,10,12,17,49.$ I INTEGER 0071 13,15$$ ICM INTEGER 006D 10,11$$ IDUN INTEGER 006A 4,7,8$, IFER INTEGER 7FFF 1,2,27,33,44 ,, IFOUND INTEGER 7FFF 1,2,28,34,43 ,( IOPN INTEGER 0069 3,6,20,40(. IREQ INTEGER 007A 45,46,47,48,49 .@ ISTAT INTEGER 0072 17,18,23,24,25,27,33,39,44,45,49 @& KEYB INTEGER 7FFF 1,2,22 && LU INTEGER 0066 2,9,49 &" MODE INTEGER 0068 2,9"* NOPT INTEGER 7FFF 1,2,5,30,36*" NPORT INTEGER 0067 2,9"& R1KY INTEGER 0029 2,22,23&( REC INTEGER 7FFF 1,2,29,35(* REC1 INTEGER 0038 2,23,29,35 *4 REQ1 INTEGER 0011 2,3,15,17,19,23,39,464& USER INTEGER 0062 2,9,10 &t FTN 3.3B (OPT = LPC) GETUTI PAGE 5 DATE: 08/30/84 TIME: 0147 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  CCSCST SUBROUTINE 0092 9 * CCSMVA SUBROUTINE 009E 11,22,29,35*" CLOSFL SUBROUTINE 00F8 38 "" FILERR SUBROUTINE 0119 48 "" OPENFL SUBROUTINE 00B1 16 " PGMIN SUBROUTINE 008C 8 Q8PKUP INTEGER.FN. 0128 Q8PREP INTEGER.FN. 0125 " READR SUBROUTINE 00C5 22 "   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < & 5 00A5 7,11,13&$ 20 00AB 13,16$$ 100 00BD 6,21 $" 120 00D3 25 "$ 200 00E6 24,32$* 500 00F7 5,30,36,38 *( 800 00FF 18,25,42 (0 900 011F 30,37,41,45,50,510 GETUTI 0122 1  t FTN 3.3B (OPT = LPC) GTSYSP PAGE 1 DATE: 08/30/84 TIME: 0147 t^ 1 SUBROUTINE GTSYSP( IPARM,IPOS ) 00001^^ 1 1 /CCS3.0 SUBROUTINE GTSYSP 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/06/84 ************ PROGRAMMER : RWE 00009^ ^ C**** PROGRAM DESCRIPTION : GET SYSTEM PARAMETER FROM THE 00011^^ C EXTERNAL FLAG RECORD IN THE UTIFIL. 00012^ ^ C*** CALLING SEQUENCE : CALL GTSYSP( IPARM,IPOS ) 00014^ ^ C PARAMETERS 00016^ ^ C IPARM : RETURNED VALUE ($0 TO $F WHICH IS 0 TO 15 DECIMAL) 00018^^ C WHICH IS RETRIEVED FROM THE 'EXTERNAL FLAG RECORD' 00019^^ C IN THE UTIFIL. 00020^^ C IPOS : THE STARTING BYTE OF THE FLAG IN THE FLAG RECORD. 00021^^ C ( SEE LAYOUT OF 'EXTERNAL FLAG RECORD' ) 00022^ ^ C EXAMPLE : CALL GTSYSP( IMODE,30 ) 00024^^ C THIS WOULD RETRIEVE THE FLAG 2 FOR THE 00025^^ C LTRSTA PROGRAM AND SET THE IMODE FLAG FOR 00026^^ C SUBROUTINE GETGRP 00027^^ C LTRSTA FLAGS START IN POS. 29, THERE ARE 4 FLAGS 00028^^ C FLAG 1 = IWAY FOR SUBROUTINE PRTORF 00029^^ C FLAG 2 = IMODE FOR SUBROUTINE GETGRP 00030^^ C FLAG 3 = 00031^^ C FLAG 4 = 00032^ ^ 2 INTEGER IPARM,IPOS 00034^^ 2 +, SYSREC(42),SYSP(2),IGOT 00035^ ^ 3 DATA SYSP /'SYSP'/, IGOT / 0/ 00037^ ^ C**** 00039^^ C**** BEGIN PROGRAM ....... 00040^ ^ 4 IF ( IGOT.NE.0 ) GO TO 100 00042^^ 5 CALL GETUTI( SYSP,SYSREC,IFOUND,IFER,1 ) 00043^^ 6 IF( IFOUND.NE.0 ) CALL CCSMVA( SYSREC,1,0,SYSREC,1,80 ) 00044^^ 7 IGOT = 1 00045^ ^ 8 100 CONTINUE 00047^^ 9 CALL CCSGET( SYSREC,IPOS,IFLG ) 00048^ ^ 10 IPARM = AND( IFLG,$F ) 00050^^ 11 RETURN 00051^^ 12 END 00052^t FTN 3.3B (OPT = LPC) GTSYSP PAGE 2 DATE: 08/30/84 TIME: 0147 t  PROGRAM LENGTH $0064 ( 100)   EXTERNALS & Q8PKUP Q8PREP GETUTI CCSMVA CCSGET & t FTN 3.3B (OPT = LPC) GTSYSP PAGE 3 DATE: 08/30/84 TIME: 0147 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < $ 0000 (0) 0001 3,4,6$$ 0001 (1) 0000 5,6,7$" 000F (15) 0033 10 " 0050 (80) 0031 6    VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " AND INTR.FN. 7FFF 10 " IFER INTEGER 0030 5 $ IFLG INTEGER 0032 9,10 $" IFOUND INTEGER 002F 5,6"& IGOT INTEGER 002E 2,3,4,7&& IPARM INTEGER 7FFF 1,2,10 &$ IPOS INTEGER 7FFF 1,2,9$$ SYSP INTEGER 002C 2,3,5$& SYSREC INTEGER 0002 2,5,6,9&   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  CCSGET SUBROUTINE 004D 8 CCSMVA SUBROUTINE 0043 6 GETUTI SUBROUTINE 0039 4 Q8PKUP INTEGER.FN. 005E Q8PREP INTEGER.FN. 005B    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 100 004C 4,8" GTSYSP 0058 1  t FTN 3.3B (OPT = LPC) HXDEC PAGE 1 DATE: 08/30/84 TIME: 0147 t^ 1 SUBROUTINE HXDEC (NUM,IOUT) 00001^^ 1 * /DECK-ID E27 ITOS 2.0 SUMMARY-132 00002^^ C CONVERT HEX TO DECIMAL ASCII 00003^^ C CYBER 18 INTERACTIVE TERMINAL ORIENTED SYSTEM VERSION 2.0 00004^^ C DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION 1978 00006^^ C 00007^^ C** FUNCTION 00008^^ C -------- 00009^^ CS3 HXDEC CONVERTS A HEXADECIMAL NUMBER INTO AN ASCII 00010^^ C DECIMAL NUMBER. 00011^^ CS5 GENERAL DESCRIPTION 00012^^ C ------------------- 00013^^ CS3 HXDEC BLANKS OUT THE OUTPUT BUFFER, IOUT. THE 00014^^ C SUBROUTINE THEN TESTS THE HEX NUMBER FOR ZERO. IF 00015^^ C THE NUMBER IS ZERO, AN ASCII ZERO IS MOVED TO THE 00016^^ C RIGHT BYTE OF THE THIRD WORD OF IOUT. IF THE 00017^^ C NUMBER IS NOT ZERO AND IS NEGATIVE AN ASCII MINUS 00018^^ C SIGN IS PLACED IN THE LEFT BYTE OF THE FIRST WORD 00019^^ C OF IOUT AND THE HEX NUMBER IS COMPLIMENTED. AT 00020^^ C THIS POINT ANOTHER TEST FOR ZERO IS MADE. IF THE 00021^^ C NUMBER IS ZERO, NO CONVERSION TAKES PLACE, 00022^^ C OTHERWISE THE HEX NUMBER IS CONVERTED TO AN ASCII 00023^^ C DECIMAL NUMBER. 00024^^ CE ENTRY/EXIT 00025^^ C ---------- 00026^^ CS3 HXDEC IS ENTERED WITH THE HEX NUMBER IN NUM AND 00027^^ C EXITS WITH THE CONVERTED NUMBER IN IOUT. 00028^^ C 00029^^ 2 BYTE (ILEFT,IOUT(15=8)),(IRIGHT,IOUT(7=0)) 00030^^ 3 DIMENSION ILEFT(1),IRIGHT(1),IOUT(1) 00031^^ C SAVE NUMBER IN N BEFORE CONVERTING TO ALLOW CONVERSION IN PLACE. 00032^^ 4 N=NUM 00033^^ 5 DO 8 JK=1,3 00034^^ 6 8 IOUT(JK)= $3030 00035^^ 7 IF(N.EQ.0) IRIGHT(3)=$30 00036^^ 8 IF(N.GE.0) GO TO 50 00037^^ C MINUS NUMBER 00038^^ 9 N=-N 00039^^ 10 ILEFT(1)=$2D 00040^^ 11 50 CONTINUE 00041^^ 12 I=5 00042^^ 13 55 CONTINUE 00043^^ 14 IF(N.EQ.0) GO TO 200 00044^^ 15 N1=(N/10)*10 00045^^ 16 N2=N-N1+$30 00046^^ 17 I1=I/2+1 00047^^ 18 IF(AND(I,1).EQ.0) GO TO 100 00048^^ 19 IRIGHT(I1)=N2 00049^^ 20 GO TO 110 00050^^ 21 100 ILEFT(I1)=N2 00051^^ 22 110 CONTINUE 00052^^ 23 N=N/10 00053^^ 24 I=I-1 00054^t FTN 3.3B (OPT = LPC) HXDEC PAGE 2 DATE: 08/30/84 TIME: 0147 t^ 25 IF(I.GT.0) GO TO 55 00055^^ 26 200 CONTINUE 00056^^ 27 RETURN 00057^^ 28 END 00058^t FTN 3.3B (OPT = LPC) HXDEC PAGE 3 DATE: 08/30/84 TIME: 0147 t  PROGRAM LENGTH $0077 ( 119)   EXTERNALS  Q8PKUP Q8PREP  t FTN 3.3B (OPT = LPC) HXDEC PAGE 4 DATE: 08/30/84 TIME: 0147 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < . 0001 (1) 0000 3,5,10,17,18,24.( 000A (10) 0006 15,15,23 ( 3030 (12336) 0003 6    VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " AND INTR.FN. 7FFF 18 "0 I INTEGER 0004 11,12,17,18,24,250* I1 INTEGER 0008 16,17,19,21*( ILEFT INTEGER 7FFF 1,3,10,21(& IOUT INTEGER 7FFF 1,2,3,6&( IRIGHT INTEGER 7FFF 2,3,7,19 (" JK INTEGER 0002 4,6"4 N INTEGER 0001 3,4,7,8,9,14,15,16,234( N1 INTEGER 0005 14,15,16 (* N2 INTEGER 0007 15,16,19,21*" NUM INTEGER 7FFF 1,4"   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8PKUP INTEGER.FN. 006B Q8PREP INTEGER.FN. 0068    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 8 000D 4,6"$ 50 0028 8,11 $$ 55 002A 12,25$$ 100 004B 18,21$$ 110 0052 19,22$$ 200 005E 14,26$ HXDEC 0063 1 t FTN 3.3B (OPT = LPC) ICHKZB PAGE 1 DATE: 08/30/84 TIME: 0147 t^ 1 INTEGER FUNCTION ICHKZB(IBUF,ISTRT,IBYTS) 00001^^ 1 1 /CHECK FIELD FOR ZERO OR BLANK (RWE) 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** ************ 04/28/83 ************ PROGRAMMER : RWE 00009^ ^ C**** THIS FUNCTION WILL CHECK A FIELD TO SEE IF IT IS ZERO 00011^^ C**** OR BLANK, EVEN IF THE ZEROS AND BLANKS ARE INTERMIXED, 00012^^ C**** THE FUNCTION STILL RETURNS A VALUE OF TRUE. 00013^ ^ C* VARIABLES : IBUF - BUFFER CONTAINING THE FIELD TO CHECK. 00015^^ C* ISTRT - STARTING BYTE WITHIN IBUF. 00016^^ C* IBYTS - NUMBER OF BYTES TO CHECK. 00017^ ^ C**** RETURN VALUES : ICHKZB = 0 IF TRUE. 00019^^ C* ICHKZB = 1 IF FALSE. 00020^ ^ 2 INTEGER IBUF(1),ISTRT,IBYTS,IEND,ICH 00022^ ^ 3 ICHKZB = 0 00024^^ 4 IF(IBYTS.EQ.0) RETURN 00025^^ 5 IEND = ISTRT + IBYTS -1 00026^ ^ 6 DO 20 I = ISTRT, IEND 00028^^ 7 CALL CCSGET(IBUF, I, ICH) 00029^^ 8 IF ( ICH.NE.$20 .AND. ICH.NE.$30 ) GO TO 40 00030^^ 9 20 CONTINUE 00031^^ 10 RETURN 00032^^ 11 40 ICHKZB = 1 00033^^ 12 RETURN 00034^^ 13 END 00035^t FTN 3.3B (OPT = LPC) ICHKZB PAGE 2 DATE: 08/30/84 TIME: 0147 t  PROGRAM LENGTH $0038 ( 56)   EXTERNALS  Q8PKUP Q8PREP CCSGET  t FTN 3.3B (OPT = LPC) ICHKZB PAGE 3 DATE: 08/30/84 TIME: 0147 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " I INTEGER 0003 5,7"$ IBUF INTEGER 7FFF 1,2,7$& IBYTS INTEGER 7FFF 1,2,4,5&$ ICH INTEGER 0002 2,7,8$& ICHKZB INTEGER 0000 1,3,11 &$ IEND INTEGER 0001 2,5,6$& ISTRT INTEGER 7FFF 1,2,5,6&   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  CCSGET SUBROUTINE 0015 6 Q8PKUP INTEGER.FN. 0030 Q8PREP INTEGER.FN. 002D    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < " 20 001F 5,9"$ 40 0024 8,11 $ ICHKZB 002A  t FTN 3.3B (OPT = LPC) ICKGRP PAGE 1 DATE: 08/30/84 TIME: 0147 t^ 1 INTEGER FUNCTION ICKGRP( GRPBUF,IALL,REC,IPOS ) 00001^^ 1 1 /CCS3.0 SUBROUTINE ICKGRP 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/06/84 ************ PROGRAMMER : RWE 00009^ ^ C**** PROGRAM DESCRIPTION : VALIDATE RECORD FOR MATCH OF ACCT GROUP 00011^ ^ C*** CALLING SEQUENCE : 00013^^ C ITF = ICKGRP( GRPBUF,IALL,REC,IPOS ) 00014^^ C OR... IF ( ICKGRP( GRPBUF,IALL,REC,IPOS ).EQ. 1 ) GO TO 00015^ ^ C PARAMETERS 00017^ ^ C ICKGRP : RETURNED VALUE OF 0 = TRUE, OK TO USE RECORD 00019^^ C 1 = FALSE, DON'T USE RECORD 00020^^ C GRPBUF : 10 WORD ARRAY PASSED, CONTAINING VALID GROUPS 00021^^ C ( BUILT BY SUBROUTINE 'GETGRP' ) 00022^^ C IALL : PASSED FLAG DESIGNATING 00023^^ C 0 = USE ALL ACCOUNT GROUPS ( FORCE ICKGRP TO TRUE ) 00024^^ C 1 = LOOK FOR MATCH OF GROUP FROM RECORD, IN THE 00025^^ C GRPBUF ARRAY 00026^^ C REC : PASSED BUFFER OF RECORD CONTAING ACCT GROUP. 00027^^ C IPOS : STARTING BYTE POS. IN REC OF ACCOUNT GROUP 00028^ ^ 2 INTEGER GRPBUF(1),IALL,REC(1),IPOS,TRUE,FALSE 00030^ ^ 3 DATA TRUE / 0/, FALSE / 1/ 00032^ ^ C**** 00034^^ C**** BEGIN PROGRAM ....... 00035^ ^ 4 ICKGRP = TRUE 00037^^ 5 IF ( IALL.EQ.0 ) GO TO 900 00038^ ^ 6 CALL CCSGET( REC,IPOS,IGRP ) 00040^ ^ 7 DO 200 I = 1,10 00042^^ 8 J = I*2-1 00043^^ 9 CALL CCSGET( GRPBUF,J,ICH ) 00044^ ^ 10 IF( ICH.EQ.$FF ) GO TO 800 00046^^ 11 IF( ICH.EQ.IGRP ) GO TO 900 00047^^ 12 200 CONTINUE 00048^ ^ C*** NO MATCH SET ICKGRP TO FALSE 00050^ ^ 13 800 CONTINUE 00052^^ 14 ICKGRP = FALSE 00053^^ 15 GO TO 900 00054^t FTN 3.3B (OPT = LPC) ICKGRP PAGE 2 DATE: 08/30/84 TIME: 0147 t ^ 16 900 RETURN 00056^^ 17 END 00057^t FTN 3.3B (OPT = LPC) ICKGRP PAGE 3 DATE: 08/30/84 TIME: 0147 t  PROGRAM LENGTH $0041 ( 65)   EXTERNALS  Q8PKUP Q8PREP CCSGET  t FTN 3.3B (OPT = LPC) ICKGRP PAGE 4 DATE: 08/30/84 TIME: 0147 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < " 00FF (255) 0007 10 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < & FALSE INTEGER 0002 2,3,14 &$ GRPBUF INTEGER 7FFF 1,2,9$" I INTEGER 0004 6,8"$ IALL INTEGER 7FFF 1,2,5$& ICH INTEGER 0006 9,10,11&& ICKGRP INTEGER 0000 1,4,14 &$ IGRP INTEGER 0003 6,11 $$ IPOS INTEGER 7FFF 1,2,6$$ J INTEGER 0005 7,8,9$$ REC INTEGER 7FFF 1,2,6$$ TRUE INTEGER 0001 2,3,4$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " CCSGET SUBROUTINE 000F 5,9" Q8PKUP INTEGER.FN. 0037 Q8PREP INTEGER.FN. 0034    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 200 0024 6,12 $$ 800 0029 10,13$* 900 002D 5,11,15,16 * ICKGRP 0031 t FTN 3.3B (OPT = LPC) MOD PAGE 1 DATE: 08/30/84 TIME: 0148 t^ 1 INTEGER FUNCTION MOD( NUM,MD ) 00001^^ 1 1 / MOD FUNCTION 00002^ ^ 2 INTEGER NUM,MD,I,J 00004^ ^ 3 I = NUM/MD 00006^^ 4 J = I * MD 00007^^ 5 MOD = NUM-J 00008^^ 6 RETURN 00009^^ 7 END 00010^t FTN 3.3B (OPT = LPC) MOD PAGE 2 DATE: 08/30/84 TIME: 0148 t  PROGRAM LENGTH $001E ( 30)   EXTERNALS  Q8PKUP Q8PREP  t FTN 3.3B (OPT = LPC) MOD PAGE 3 DATE: 08/30/84 TIME: 0148 t, ***** L I S T O F S Y M B O L S *****,   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ I INTEGER 0001 2,3,4$$ J INTEGER 0002 2,4,5$& MD INTEGER 7FFF 1,2,3,4&" MOD INTEGER 0000 1,5"& NUM INTEGER 7FFF 1,2,3,5&   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8PKUP INTEGER.FN. 0018 Q8PREP INTEGER.FN. 0015    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  MOD 0012  t FTN 3.3B (OPT = LPC) PRTORF PAGE 1 DATE: 08/30/84 TIME: 0148 t^ 1 SUBROUTINE PRTORF( IPF,PLU,NLU,NPORT,IWAY ) 00001^^ 1 1 /CCS3.0 SUBROUTINE PRTORF 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/06/84 ************ PROGRAMMER : RWE 00009^ ^ C**** PROGRAM DESCRIPTION : VALIDATE OUTPUT LOGICAL UNIT AND 00011^^ C SET DIRECTION OF OUTPUT. 00012^ ^ C*** CALLING SEQUENCE : CALL PRTORF( IPF,LU,NLU,NPORT,IWAY ) 00014^ ^ C PARAMETERS 00016^ ^ C IPF : RETURNED VALUE DESIGNATING OUTPUT DIRECTION. 00018^^ C 0 = OUTPUT TO LOCIGAL UNIT 'NLU' 00019^^ C 1 = OUTPUT TO SYSPRT FILE 00020^^ C LU : LOGICAL UNIT NUMBER OF REQUESTED OUTPUT DEVICE. 00021^^ C NLU : RETURNED VALUE DESIGNATING VALIDATED LOGICAL 00022^^ C UNIT TO OUTPUT TO. 00023^^ C NPORT : CURRENT TERMINAL # ( FROM PGMIN ) 00024^^ C IWAY : FLAG TO DETERMINE WHICH ACTION TO TAKE : 00025^^ C 0 = FORCE OUTPUT TO DESIGNATED LOGICAL UNIT 00026^^ C 1 = FORCE OUTPUT TO SYSPRT FILE 00027^^ C 2 = NOT USED AT PRESENT TIME 00028^^ C 3 = PROMPT OPERATOR FROM SCREEN, FOR OUTPUT DIRECTION 00029^^ C 4 = GET 'IWAY' FLAG FROM UTIFIL 00030^ ^ 2 INTEGER IPF,PLU,NLU,NPORT,IWAY 00032^^ 2 +, INP(41),CRT(4),PRINT(4),TAPE(5),MSGY(18) 00033^^ 2 +, MSG1(18),MSG2(18),MSG3(18),MSG4(18),MSG5(18) 00034^ ^ 3 DATA MSG1/$180A,$0A07,'** SELECT DIRECTION OF OUTPUT ',$160A/ 00036^^ 3 +, MSG2/$0D0A,' 0 = OUTPUT TO LOGICAL UNIT ',$1616/ 00037^^ 3 +, MSG3/$0D0A,' 1 = OUTPUT TO SYSPRT FILE ',$1616/ 00038^^ 3 +, MSG4/$0D0A,' ',$160A/ 00039^^ 3 +, MSG5/$0D0A,' PLEASE ENTER SELECTION (0,1) : ',$1616/ 00040^ ^ 4 DATA MSGY/$0D0A,$0D0A,' IS THIS CORRECT ? (Y/N) : ',$1616/ 00042^ ^ 5 DATA CRT /'TERMINAL'/, PRINT /'PRINTER '/ 00044^^ 5 +, TAPE /'TAPE DRIVE'/ 00045^ ^ C**** BEGIN PROGRAM ....... 00047^ ^ 6 MWAY = IWAY 00049^^ 7 10 CONTINUE 00050^^ 8 PLU = AND( PLU,$FF ) 00051^^ 9 IF ( MWAY.EQ.1 ) GO TO 200 00052^ ^ 10 NLU = PLU 00054^t FTN 3.3B (OPT = LPC) PRTORF PAGE 2 DATE: 08/30/84 TIME: 0148 t^ 11 IF ( NPORT.NE.00 ) NLU = 05 00055^^ 12 IF ( NPORT.EQ.00 .AND. NLU.EQ.05 ) NLU = 04 00056^^ 13 IF ( MWAY.EQ.3 ) GO TO 300 00057^^ 14 IF ( MWAY.EQ.4 ) GO TO 400 00058^ ^ 15 100 CONTINUE 00060^^ 16 IPF = 0 00061^^ 17 IF ( MWAY.EQ.2 ) IPF = 0 00062^^ 18 GO TO 800 00063^ ^ C*** OUTPUT FORCED TO SYSPRT FILE...... 00065^ ^ 19 200 CONTINUE 00067^^ 20 IPF = 1 00068^^ 21 GO TO 800 00069^ ^ C*** ASK OPERATOR FROM SCREEN WHICH WAY TO GO....... 00071^ ^ 22 300 CONTINUE 00073^^ 23 IF(NLU.EQ.05.OR.NLU.EQ.04) CALL CCSMVA( CRT,1,8,MSG2,18,12 ) 00074^^ 24 IF(NLU.EQ.09.OR.NLU.EQ.12) CALL CCSMVA( PRINT,1,8,MSG2,18,12 ) 00075^^ 25 IF(NLU.EQ.06.OR.NLU.EQ.16) CALL CCSMVA( TAPE,1,10,MSG2,18,12 ) 00076^^ 26 IF(NLU.EQ.17.OR.NLU.EQ.18) CALL CCSMVA( TAPE,1,10,MSG2,18,12 ) 00077^ ^ 27 CALL WTREAD(05,-1,MSG1 ,36,0,0,0,ITC) 00079^^ 28 CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 00080^^ 29 CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 00081^^ 30 CALL WTREAD(05,-1,MSG4 ,36,0,0,0,ITC) 00082^ ^ 31 310 CONTINUE 00084^^ 32 CALL CCSMVA(INP,1,0,INP,1,82) 00085^^ 33 CALL WTREAD(05,-1,MSG5 ,36,-1,INP,80,ITC) 00086^^ 34 IF (ITC.EQ.4) GO TO 310 00087^ ^ C*** VALIDATE SELECTION.... 00089^ ^ 35 CALL CCSGET( INP,1,ICH ) 00091^ ^ 36 IF( INP(41).EQ.0 ) GO TO 320 00093^^ 37 IF ( ICH.LT.$30 .OR. ICH.GT.$31 ) GO TO 310 00094^ ^ 38 320 IPF = AND( ICH,$F ) 00096^^ 39 IF( IPF.EQ.0 ) CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 00097^^ 40 IF( IPF.EQ.1 ) CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 00098^ ^ 41 CALL CCSMVA(INP,1,0,INP,1,82) 00100^^ 42 CALL WTREAD(05,-1,MSGY ,36,-1,INP,80,ITC) 00101^^ 43 CALL CCSGET(INP,1,ICH) 00102^^ 44 IF ( INP(41).EQ.0 ) GO TO 330 00103^^ 45 IF ( ICH.NE.$59 ) GO TO 300 00104^^ 46 330 CONTINUE 00105^^ 47 GO TO 800 00106^ ^ C**** GET 'IWAY' WHAT TO DO FLAG FROM UTIFIL... 00108^t FTN 3.3B (OPT = LPC) PRTORF PAGE 3 DATE: 08/30/84 TIME: 0148 t ^ 48 400 CONTINUE 00110^^ 49 CALL GTSYSP( MWAY,73 ) 00111^^ 50 IF ( MWAY.LT.0 .OR. MWAY.GT.3 ) MWAY = 0 00112^^ 51 GO TO 10 00113^ ^ 52 800 RETURN 00115^^ 53 END 00116^t FTN 3.3B (OPT = LPC) PRTORF PAGE 4 DATE: 08/30/84 TIME: 0148 t  PROGRAM LENGTH $01CC ( 460)   EXTERNALS , Q8PKUP Q8PREP CCSMVA WTREAD CCSGET GTSYSP , t FTN 3.3B (OPT = LPC) PRTORF PAGE 5 DATE: 08/30/84 TIME: 0148 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < 6 FFFE (-1) 00AB 27,28,29,30,33,39,40,426L 0000 (0) 0001 11,12,16,17,27,28,29,30,32,36,39,40,41,44,50 LT 0001 (1) 0000 9,20,23,24,25,26,27,28,29,30,32,33,35,39,40,41,42,43 T@ 0005 (5) 00A6 11,12,23,27,28,29,30,33,39,40,42 @$ 0008 (8) 00A7 23,24$( 000A (10) 00AA 25,26,51 (* 000C (12) 00A9 23,24,25,26*" 000F (15) 00B1 38 "* 0012 (18) 00A8 23,24,25,26*6 0024 (36) 00AC 27,28,29,30,33,39,40,426" 0049 (73) 00B2 49 "$ 0050 (80) 00AF 33,42$$ 0052 (82) 00AE 32,41$ 00FF (255) 00A5 8    VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ AND INTR.FN. 7FFF 8,38 $& CRT INTEGER 002B 2,5,23 &. ICH INTEGER 00B0 35,37,38,43,45 .8 INP INTEGER 0002 2,32,33,35,36,41,42,43,4484 IPF INTEGER 7FFF 1,2,16,17,20,38,39,404: ITC INTEGER 00AD 27,28,29,30,33,34,39,40,42 :$ IWAY INTEGER 7FFF 1,2,6$& MSG1 INTEGER 004A 2,3,27 &4 MSG2 INTEGER 005C 2,3,23,24,25,26,28,394( MSG3 INTEGER 006E 2,3,29,40(& MSG4 INTEGER 0080 2,3,30 && MSG5 INTEGER 0092 2,3,33 && MSGY INTEGER 0038 2,4,42 &4 MWAY INTEGER 00A4 5,6,9,13,14,17,49,50 48 NLU INTEGER 7FFF 1,2,10,11,12,23,24,25,26 8( NPORT INTEGER 7FFF 1,2,11,12(( PLU INTEGER 7FFF 1,2,8,10 (& PRINT INTEGER 002F 2,5,24 &( TAPE INTEGER 0033 2,5,25,26(t FTN 3.3B (OPT = LPC) PRTORF PAGE 6 DATE: 08/30/84 TIME: 0148 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ CCSGET SUBROUTINE 0156 34,43$0 CCSMVA SUBROUTINE 0184 23,24,25,26,32,410" GTSYSP SUBROUTINE 01A2 48 " Q8PKUP INTEGER.FN. 01B9 Q8PREP INTEGER.FN. 01B6 6 WTREAD SUBROUTINE 011C 26,28,29,30,33,39,40,426   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 10 00B5 6,51 $" 100 00D4 14 "$ 200 00E2 9,19 $( 300 00E6 13,22,45 (( 310 0140 30,34,37 ($ 320 0167 36,38$$ 330 01A0 44,46$$ 400 01A1 14,48$* 800 01B0 17,21,47,52* PRTORF 01B3 1 t FTN 3.3B (OPT = LPC) STIME PAGE 1 DATE: 08/30/84 TIME: 0148 t^ 1 SUBROUTINE STIME 00001^^ 1 1 /CCS 3.0 TIME CHECK SUBROUTINE 00002^^ C 00003^^ C 00004^^ 2 INTEGER ID(4),LU(1),MODE(1),PORT(1) 00005^^ 3 INTEGER DY(5,7),MO(5),TU(5),WE(5),TH(5),FR(5),SA(5),SU(5) 00006^^ 4 EQUIVALENCE (DY(1,1),MO(1)),(DY(1,2),TU(1)),(DY(1,3),WE(1)) 00007^^ 5 EQUIVALENCE (DY(1,4),TH(1)),(DY(1,5),FR(1)) 00008^^ 6 EQUIVALENCE (DY(1,6),SA(1)),(DY(1,7),SU(1)) 00009^^ 7 DATA MO/'MONDAY '/,TU/'TUESDAY '/,WE/'WEDNESDAY '/ 00010^^ 8 DATA TH/'THURSDAY '/,FR/'FRIDAY '/,SA/'SATURDAY '/ 00011^^ 9 DATA SU/'SUNDAY '/ 00012^^ C 00013^^ 10 EXTERNAL AYERTO,AMONTO,ADAYTO,HORTO,MINTO,SECON 00014^^ 11 EXTERNAL YERTO,MONTO,DAYTO 00015^^ 12 IYR=AND(AYERTO,$FFFF) 00016^^ 13 IMN=AND(AMONTO,$FFFF) 00017^^ 14 IDY=AND(ADAYTO,$FFFF) 00018^^ 15 IHR=AND(HORTO,$FFFF) 00019^^ 16 IMI=AND(MINTO,$FFFF) 00020^^ 17 ISC=AND(SECON,$FFFF) 00021^^ 18 INYR=AND(YERTO,$FFFF) 00022^^ 19 INMO=AND(MONTO,$FFFF) 00023^^ 20 INDY=AND(DAYTO,$FFFF) 00024^^ C 00025^^ 21 CALL PGMIN(ID,LU,MODE,PORT) 00026^^ C 00027^^ 22 CALL YMD1(INYR,INMO,INDY,DYCT,IDYYR,IWK) 00028^^ C 00029^^ 23 WRITE(5,100)(DY(M,IWK),M=1,5),IMN,IDY,IYR,IHR,IMI,ISC, 00030^^ 23 + (ID(I),I=1,4) 00031^^ 24 100 FORMAT(/,5A2,X,A2,'/',A2,'/',A2,2X,I2,':',I2,':',I2,3X,'ID=',4A2) 00032^^ C 00033^^ C 00034^^ 25 RETURN 00035^^ 26 END 00036^t FTN 3.3B (OPT = LPC) STIME PAGE 2 DATE: 08/30/84 TIME: 0148 t  PROGRAM LENGTH $00C4 ( 196)   EXTERNALS 2 Q8QINI Q8QX Q8QEND AYERTO AMONTO ADAYTO HORTO 22 MINTO SECON YERTO MONTO DAYTO PGMIN YMD1 2 t FTN 3.3B (OPT = LPC) STIME PAGE 3 DATE: 08/30/84 TIME: 0148 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < : FFFF (65535) 002B 12,13,14,15,16,17,18,19,20 :   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < : AND INTR.FN. 7FFF 12,13,14,15,16,17,18,19,20 :* DY INTEGER 0007 2,4,5,6,23 *" DYCT REAL 0034 22 "$ FR INTEGER 001B 2,5,8$$ I INTEGER 0039 23,23$& ID INTEGER 0000 1,21,23&( IDY INTEGER 002D 13,14,23 (" IDYYR INTEGER 0036 22 "( IHR INTEGER 002E 14,15,23 (( IMI INTEGER 002F 15,16,23 (( IMN INTEGER 002C 12,13,23 (( INDY INTEGER 0033 19,20,22 (( INMO INTEGER 0032 18,19,22 (( INYR INTEGER 0031 17,18,22 (( ISC INTEGER 0030 16,17,23 ($ IWK INTEGER 0037 22,23$& IYR INTEGER 002A 9,12,23&$ LU INTEGER 0004 1,21 $$ M INTEGER 0038 22,23$$ MO INTEGER 0007 2,4,7$$ MODE INTEGER 0005 2,21 $$ PORT INTEGER 0006 2,21 $$ SA INTEGER 0020 2,6,8$$ SU INTEGER 0025 2,6,9$$ TH INTEGER 0016 2,5,8$$ TU INTEGER 000C 2,4,7$$ WE INTEGER 0011 2,4,7$t FTN 3.3B (OPT = LPC) STIME PAGE 4 DATE: 08/30/84 TIME: 0148 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < " PGMIN SUBROUTINE 005F 20 " Q8QEND INTEGER.FN. 009C Q8QINI INTEGER.FN. 006D " Q8QX SUBROUTINE 007B 23 "" YMD1 SUBROUTINE 0065 21 "   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 100 009E 22,24$ STIME 00BF 1 t FTN 3.3B (OPT = LPC) SYSPRT PAGE 1 DATE: 08/30/84 TIME: 0148 t^ 1 SUBROUTINE SYSPRT( BUFFER,NTIMES,SYSPRM,IOPT ) 00001^^ 1 1 /CCS3.0 SUBROUTINE SYSPRT 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/06/84 ************ PROGRAMMER : RWE 00009^ ^ C**** PROGRAM DESCRIPTION : OUTPUT BUFFER TO LOGICAL UNIT OR 00011^^ C TO A FILE 'SYSPRT'. 00012^ ^ C*** CALLING SEQUENCE : CALL SYSPRT( BUFFER,NTIMES,SYSPRM,IOPT ) 00014^ ^ C PARAMETERS 00016^ ^ C BUFFER : BUFFER CONTAINING CHARACTERS TO OUTPUT FROM. 00018^^ C NTIMES : # OF TIMES TO OUTPUT THE BUFFER 00019^^ C SYSPRM : 6 WORD ARRAY HOLDING PARAMETERS FOR SYSPRT 00020^^ C SYSPRM(1) : PLN - NUMBER OF BYTES TO OUTPUT FROM BUFFER 00021^^ C SYSPRM(2) : NLU - LOGICAL UNIT TO OUTPUT TO ( IGNORED IF 00022^^ C OUTPUT IS TO FILE ) 00023^^ C SYSPRM(3) : IPF - SWITCH DESIGNATING OUTPUT TO FILE OR LU 00024^^ C 0 = LOGICAL UNIT. 1 = FILE. 2 = BOTH. 00025^^ C SYSPRM(4) : NLINE - CURRENT LINE OR RECORD JUST OUTPUT. 00026^^ C (INITIALIZED TO 0 BY CALLING PROGRAM) 00027^^ C SYSPRM(5) : ISERR - ISTAT OF FILE MANAGER CALL TO FILE 00028^^ C SYSPRM(6) : NU - NOT USED AT PRESENT TIME 00029^^ C IOPT : WHAT TO DO FLAG. 0 = OUTPUT BUFFER TO FILE OR LU 00030^^ C 1 = CLOSE FILE 00031^ ^ C**** SYSPRT PARAMETERS........ 00033^ ^ 2 INTEGER BUFFER(1),NTIMES,IOPT 00035^^ 2 +, SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00036^ ^ 3 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00038^^ 3 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00039^^ 3 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00040^ ^ C**** FWRITE PARAMETERS..... 00042^^ 4 INTEGER IFLAG,ITEMP(8) 00043^ ^ 5 DATA IFLAG /0/, ITEMP /8*0/ 00045^ ^ 6 INTEGER DAT1(15),REQ1(24),R1KY(15),REC1(0068) 00047^^ 6 +, HEDR(18) 00048^ ^ 7 DATA HEDR/$0D0A,$0717,'ABORTED--PRINT FILE IS FULL FN='/ 00050^^ 8 DATA DAT1 /'SYSPRT ',00,01,-1/,REQ1/24*0/ 00051^^ 8 +, IOPN/0/ 00052^ ^ C**** 00054^t FTN 3.3B (OPT = LPC) SYSPRT PAGE 2 DATE: 08/30/84 TIME: 0148 t^ C**** BEGIN PROGRAM ....... 00055^ ^ 9 IF ( ISERR.LT.0 ) GO TO 800 00057^^ 10 ISERR = 0 00058^^ 11 LINE = NLINE 00059^^ 12 LU = AND( NLU,$FF ) 00060^^ 13 LENW = (PLN+1)/2 00061^ ^ 14 IF ( IOPT.NE.0 ) GO TO 950 00063^^ 15 IF ( IPF.EQ.1 ) GO TO 400 00064^^ 16 IF ( NTIMES.LE.0 ) GO TO 800 00065^ ^ 17 IF ( LU.EQ.05 .OR. LU.EQ.04 ) GO TO 20 00067^^ 18 IF ( LU.EQ.09 .OR. LU.EQ.12 ) GO TO 20 00068^^ 19 I = LENW 00069^^ 20 GO TO 40 00070^ ^ 21 20 CONTINUE 00072^^ 22 DO 30 I = LENW, 2, -1 00073^^ 23 IF ( BUFFER(I).NE.$2020 ) GO TO 40 00074^^ 24 30 CONTINUE 00075^ ^ 25 40 CONTINUE 00077^^ 26 LENB = I * 2 00078^ ^ C*** WRITE BUFFER TO LOGICAL UNIT..... 00080^ ^ 27 IF ( LU.EQ.05 ) GO TO 140 00082^^ 28 50 CONTINUE 00083^ ^ 29 DO 80 I = 1,NTIMES 00085^ ^ 30 ASSIGN 60 TO ICOMP 00087^^ 31 CALL FWRITE( LU,BUFFER,LENB,ICOMP,IFLAG,ITEMP ) 00088^^ 32 CALL DISP 00089^^ 33 60 CONTINUE 00090^ ^ 34 80 CONTINUE 00092^^ 35 GO TO 200 00093^ ^ C**** WRITE OUTPUT TO TERMINAL (MAX OF 132 BYTES)......... 00095^ ^ 36 140 CONTINUE 00097^^ 37 DO 150 I = 1,NTIMES 00098^ ^ 38 ILN = LENB 00100^^ 39 JLN = LENB 00101^^ 40 IF ( ILN.GE.80 ) JLN = 80 00102^ ^ 41 CALL WTREAD( LU,-1,HEDR,2,0,0,0,ITC ) 00104^^ 42 CALL WTREAD( LU,-1,BUFFER,JLN,0,0,0,ITC ) 00105^ ^ 43 JLN = ILN-80 00107^^ 44 IF( JLN.LE.0 ) GO TO 150 00108^t FTN 3.3B (OPT = LPC) SYSPRT PAGE 3 DATE: 08/30/84 TIME: 0148 t ^ 45 CALL WTREAD( LU,-1,BUFFER(41),JLN,0,0,0,ITC ) 00110^ ^ 46 150 CONTINUE 00112^ ^ C**** INCREMENT LINE COUNT....... 00114^ ^ 47 200 CONTINUE 00116^^ 48 NLINE = NLINE + NTIMES 00117^^ 49 GO TO 800 00118^ ^ C**** WRITE BUFFER TO SYSPRT FILE.......... 00120^ ^ 50 400 CONTINUE 00122^^ 51 IF ( IOPN.EQ.1 ) GO TO 420 00123^ ^ 52 DO 410 I = 1,24 00125^^ 53 REQ1(I) = 0 00126^^ 54 410 CONTINUE 00127^ ^ 55 CALL OPENFL( REQ1,DAT1,ISTAT ) 00129^^ 56 IF( ISTAT.LT.0 ) GO TO 900 00130^^ 57 IOPN = 1 00131^ ^ C**** OUTPUT BUFFER TO SYSPRT FILE.... 00133^ ^ 58 420 CONTINUE 00135^^ 59 IF( NTIMES.LE.0 ) GO TO 800 00136^^ 60 ILN = PLN 00137^^ 61 IF( ILN.GT.132 ) ILN = 132 00138^^ 62 CALL CCSMVA( BUFFER,1,ILN,REC1,1,132 ) 00139^ ^ 63 DO 440 I = 1,NTIMES 00141^^ 64 CALL PUTS( REQ1,REC1,1,ISTAT ) 00142^^ 65 IF( AND(ISTAT,$9000).EQ.$9000 ) GO TO 500 00143^^ 66 IF( ISTAT.LT.0 ) GO TO 900 00144^^ 67 440 CONTINUE 00145^ ^ 68 NLINE = NLINE+NTIMES 00147^^ 69 GO TO 800 00148^ ^ C**** INFORM OPERATOR FILE IS FULL..... 00150^ ^ 70 500 CONTINUE 00152^^ 71 ISERR = -1 00153^^ 72 CALL CCSMVA( HEDR,1,36,REC1,1,132 ) 00154^^ 73 CALL CCSMVA( DAT1,1,24,REC1,37,24 ) 00155^^ 74 CALL WTREAD( 05,-1,REC1,64,0,0,0,ITC ) 00156^^ 75 GO TO 950 00157^ ^ 76 800 CONTINUE 00159^^ 77 RETURN 00160^ ^ C*** ERROR SECTION.... 00162^t FTN 3.3B (OPT = LPC) SYSPRT PAGE 4 DATE: 08/30/84 TIME: 0148 t ^ 78 900 CONTINUE 00164^^ 79 ISERR = -1 00165^^ 80 IREQ = AND(REQ1(4),$FF) 00166^^ 81 IF(IREQ.LT.11) IREQ = IREQ-1 00167^^ 82 IF(IREQ.EQ.18) IREQ = 10 00168^^ 83 CALL FILERR( DAT1,IREQ,ISTAT,LU ) 00169^ ^ C**** CLOSE FILE AND RETURN 00171^ ^ 84 950 CONTINUE 00173^^ 85 CALL CLOSFL( REQ1,ISTAT ) 00174^^ 86 IOPN = 0 00175^^ 87 RETURN 00176^^ 88 END 00177^t FTN 3.3B (OPT = LPC) SYSPRT PAGE 5 DATE: 08/30/84 TIME: 0148 t  PROGRAM LENGTH $020C ( 524)   EXTERNALS 2 Q8PKUP Q8PREP FWRITE DISP WTREAD OPENFL CCSMVA 2 PUTS FILERR CLOSFL  t FTN 3.3B (OPT = LPC) SYSPRT PAGE 6 DATE: 08/30/84 TIME: 0148 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < $ 9000 (-28671) 00A9 65,65$0 FFFE (-1) 00A4 41,42,45,71,74,790L 0000 (0) 0001 5,8,9,10,14,16,41,42,44,45,53,56,59,66,74,86 L` 0001 (1) 0000 2,3,8,13,15,22,29,37,41,42,45,51,52,57,62,63,64,71,72,73,74,79,81`* 0002 (2) 009C 13,22,26,41*( 0005 (5) 009D 17,27,74 ($ 0018 (24) 00A6 52,73$" 0024 (36) 00AA 72 "" 0025 (37) 00AB 73 "" 0040 (64) 00AC 74 "* 0084 (132) 00A8 61,61,62,72*$ 00FF (255) 009A 12,80$" 2020 (8224) 009F 23 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( AND INTR.FN. 7FFF 12,65,80 (2 BUFFER INTEGER 7FFF 1,2,23,31,42,45,62 2, DAT1 INTEGER 000B 5,8,55,73,83 ,( HEDR INTEGER 0085 5,7,41,72(< I INTEGER 009E 18,19,22,23,26,29,37,52,53,63<$ ICOMP INTEGER 00A1 29,31$& IFLAG INTEGER 0002 3,5,31 &4 ILN INTEGER 00A2 37,38,40,43,60,61,62 4* IOPN INTEGER 0097 8,51,57,86 *& IOPT INTEGER 7FFF 1,2,14 && IPF INTEGER 7FFF 2,3,15 &. IREQ INTEGER 00AD 79,80,81,82,83 .. ISERR INTEGER 7FFF 2,3,9,10,71,79 .4 ISTAT INTEGER 00A7 55,56,64,65,66,83,85 4* ITC INTEGER 00A5 41,42,45,74*& ITEMP INTEGER 0003 3,5,31 &4 JLN INTEGER 00A3 38,39,40,42,43,44,45 4. LENB INTEGER 00A0 25,26,31,38,39 .* LENW INTEGER 009B 12,13,19,22*$ LINE INTEGER 0098 10,11$< LU INTEGER 0099 11,12,17,18,27,31,41,42,45,83<, NLINE INTEGER 7FFF 2,3,11,48,68 ,& NLU INTEGER 7FFF 2,3,12 &8 NTIMES INTEGER 7FFF 1,2,16,29,37,48,59,63,68 8" NU INTEGER 7FFF 2,3"( PLN INTEGER 7FFF 2,3,13,60(t FTN 3.3B (OPT = LPC) SYSPRT PAGE 7 DATE: 08/30/84 TIME: 0148 t R1KY INTEGER 0032 5 0 REC1 INTEGER 0041 5,62,64,72,73,74 02 REQ1 INTEGER 001A 5,8,53,55,64,80,85 2$ SYSPRM INTEGER 7FFF 1,2,3$   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < ( CCSMVA SUBROUTINE 0177 61,72,73 (" CLOSFL SUBROUTINE 01D1 84 "" DISP SUBROUTINE 010C 31 "" FILERR SUBROUTINE 01CB 82 "" FWRITE SUBROUTINE 0104 29 "" OPENFL SUBROUTINE 015C 54 "" PUTS SUBROUTINE 0186 63 " Q8PKUP INTEGER.FN. 01E0 Q8PREP INTEGER.FN. 01DD * WTREAD SUBROUTINE 01AD 40,42,45,74*   LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < ( 20 00E7 17,18,21 ($ 30 00EF 21,24$( 40 00F3 19,23,25 (" 50 00FA 27 "$ 60 010D 29,33$$ 80 010D 27,34$$ 140 0111 27,36$( 150 0145 36,44,46 ($ 200 0147 34,47$$ 400 014B 15,50$$ 410 0156 51,54$$ 420 0167 51,58$$ 440 0194 62,67$$ 500 019B 65,70$0 800 01B7 9,16,49,59,69,76 0( 900 01B8 56,66,78 (( 950 01D0 14,75,84 ( SYSPRT 01DA 1  t FTN 3.3B (OPT = LPC) TIMDIF PAGE 1 DATE: 08/30/84 TIME: 0149 t^ 1 SUBROUTINE TIMDIF(TRAN,RECV,DIF,TOTMIN ) 00001^ ^ 2 INTEGER TRAN(3), RECV(3), DIF(4), TOTMIN 00003^^ 3 INTEGER H1,H2,H3, M1,M2,M3, S1,S2,S3 00004^^ 4 INTEGER T, C 00005^ ^ 5 T(JCH)=(JCH/$0100-1R0)*10+AND(JCH-1R0,$00FF) 00007^^ 6 C(NUM)=(NUM/10+1R0)*$0100+MOD(NUM,10)+1R0 00008^ ^ 7 DO 100 I=1,6 00010^^ 8 CALL CCSGET(TRAN,I,ICH) 00011^^ 9 IF ( ICH.EQ.1R ) CALL CCSPUT(1R0,I,TRAN) 00012^^ 10 CALL CCSGET(RECV,I,ICH) 00013^^ 11 IF ( ICH.EQ.1R ) CALL CCSPUT(1R0,I,RECV) 00014^^ 12 100 CONTINUE 00015^ ^ 13 H1=T(TRAN(1)) 00017^^ 14 M1=T(TRAN(2)) 00018^^ 15 S1=T(TRAN(3)) 00019^ ^ 16 H2=T(RECV(1)) 00021^^ 17 M2=T(RECV(2)) 00022^^ 18 S2=T(RECV(3)) 00023^ ^ 19 ITIME=H1*60+M1 00025^^ 20 JTIME=H2*60+M2 00026^^ 21 IF ( ITIME.LT.JTIME ) GOTO 200 00027^^ 22 IF ( (S1.LE.S2) .AND. (ITIME.EQ.JTIME) ) GOTO 200 00028^^ 23 H2=H2+24 00029^ ^ 24 200 S3=S2-S1 00031^^ 25 IF ( S3.GE.0 ) GOTO 220 00032^^ 26 S3=S3+60 00033^^ 27 M2=M2-1 00034^ ^ 28 220 M3=M2-M1 00036^^ 29 IF ( M3.GE.0 ) GOTO 240 00037^^ 30 M3=M3+60 00038^^ 31 H2=H2-1 00039^ ^ 32 240 H3=H2-H1 00041^^ 33 TOTMIN = H3*60+M3 00042^^ 34 DIF(1)=C(H3) 00043^^ 35 DIF(2)=2H: 00044^^ 36 DIF(3)=2H : 00045^^ 37 CALL CCSMVA( C(M3),1,2,DIF,4,2 ) 00046^^ 38 DIF(4)=C(S3) 00047^^ 39 RETURN 00048^^ 40 END 00049^t FTN 3.3B (OPT = LPC) TIMDIF PAGE 2 DATE: 08/30/84 TIME: 0149 t  PROGRAM LENGTH $0103 ( 259)   EXTERNALS , Q8PKUP Q8PREP MOD CCSGET CCSPUT CCSMVA , t FTN 3.3B (OPT = LPC) TIMDIF PAGE 3 DATE: 08/30/84 TIME: 0149 t, ***** L I S T O F S Y M B O L S *****,   CONSTANTS : ---------  < VALUE ADDRESS REFERENCED BY STATEMENT NB : < 2 0001 (1) 0000 7,13,16,27,31,34,372$ 0002 (2) 0014 37,37$$ 0004 (4) 0015 37,38$" 000A (10) 000B 5,6"* 0030 (48) 000A 5,5,6,9,11 *. 003C (60) 0010 19,20,26,30,33 . 00FF (255) 000C 5 " 203A (8250) 0013 36 "" 3A20 (14880) 0012 35 "   VARIABLES : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  AND INTR.FN. 7FFF 5 , C STAT.FN. 003D 2,6,34,37,38 ,2 DIF INTEGER 7FFF 1,2,34,35,36,37,38 2* H1 INTEGER 0001 2,13,19,32 *0 H2 INTEGER 0002 2,16,20,23,31,32 0* H3 INTEGER 0003 2,32,33,34 ** I INTEGER 000D 6,8,9,10,11*( ICH INTEGER 000E 8,9,10,11(* ITIME INTEGER 000F 18,19,21,22** JTIME INTEGER 0011 19,20,21,22** M1 INTEGER 0004 2,14,19,28 *, M2 INTEGER 0005 2,17,20,27,28,0 M3 INTEGER 0006 2,28,29,30,33,37 02 RECV INTEGER 7FFF 1,2,10,11,16,17,18 2* S1 INTEGER 0007 2,15,22,24 ** S2 INTEGER 0008 2,18,22,24 *, S3 INTEGER 0009 2,24,25,26,38,4 T STAT.FN. 0024 2,5,13,14,15,16,17,184& TOTMIN INTEGER 7FFF 1,2,33 &0 TRAN INTEGER 7FFF 1,2,8,9,13,14,15 0t FTN 3.3B (OPT = LPC) TIMDIF PAGE 4 DATE: 08/30/84 TIME: 0149 t   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : < $ CCSGET SUBROUTINE 0048 7,10 $" CCSMVA SUBROUTINE 00C3 36 "$ CCSPUT SUBROUTINE 0050 9,11 $ MOD INTEGER.FN. 002F 6 Q8PKUP INTEGER.FN. 00DC Q8PREP INTEGER.FN. 00D9    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : < $ 100 005F 6,12 $( 200 0096 21,22,24 ($ 220 00A2 25,28$$ 240 00AE 29,32$ TIMDIF 00D6 1 t FTN 3.3B (OPT = LPC) ZCCS56 PAGE 1 DATE: 08/30/84 TIME: 0149 t^ 1 PROGRAM ZCCS56 00001^^ 1 1 /C56 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS56 PAGE 2 DATE: 08/30/84 TIME: 0149 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS56 PAGE 3 DATE: 08/30/84 TIME: 0149 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS56 0000 1  t FTN 3.3B (OPT = LPC) ZCCS57 PAGE 1 DATE: 08/30/84 TIME: 0149 t^ 1 PROGRAM ZCCS57 00001^^ 1 1 /C57 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS57 PAGE 2 DATE: 08/30/84 TIME: 0149 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS57 PAGE 3 DATE: 08/30/84 TIME: 0149 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS57 0000 1  t FTN 3.3B (OPT = LPC) ZCCS58 PAGE 1 DATE: 08/30/84 TIME: 0149 t^ 1 PROGRAM ZCCS58 00001^^ 1 1 /C58 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS58 PAGE 2 DATE: 08/30/84 TIME: 0149 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS58 PAGE 3 DATE: 08/30/84 TIME: 0149 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS58 0000 1  t FTN 3.3B (OPT = LPC) ZCCS59 PAGE 1 DATE: 08/30/84 TIME: 0149 t^ 1 PROGRAM ZCCS59 00001^^ 1 1 /C59 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS59 PAGE 2 DATE: 08/30/84 TIME: 0149 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS59 PAGE 3 DATE: 08/30/84 TIME: 0149 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS59 0000 1  t FTN 3.3B (OPT = LPC) ZCCS60 PAGE 1 DATE: 08/30/84 TIME: 0149 t^ 1 PROGRAM ZCCS60 00001^^ 1 1 /C60 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS60 PAGE 2 DATE: 08/30/84 TIME: 0149 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS60 PAGE 3 DATE: 08/30/84 TIME: 0149 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS60 0000 1  t FTN 3.3B (OPT = LPC) ZCCS61 PAGE 1 DATE: 08/30/84 TIME: 0149 t^ 1 PROGRAM ZCCS61 00001^^ 1 1 /C61 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS61 PAGE 2 DATE: 08/30/84 TIME: 0149 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS61 PAGE 3 DATE: 08/30/84 TIME: 0149 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS61 0000 1  t FTN 3.3B (OPT = LPC) ZCCS62 PAGE 1 DATE: 08/30/84 TIME: 0150 t^ 1 PROGRAM ZCCS62 00001^^ 1 1 /C62 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS62 PAGE 2 DATE: 08/30/84 TIME: 0150 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS62 PAGE 3 DATE: 08/30/84 TIME: 0150 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS62 0000 1  t FTN 3.3B (OPT = LPC) ZCCS63 PAGE 1 DATE: 08/30/84 TIME: 0150 t^ 1 PROGRAM ZCCS63 00001^^ 1 1 /C63 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS63 PAGE 2 DATE: 08/30/84 TIME: 0150 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS63 PAGE 3 DATE: 08/30/84 TIME: 0150 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS63 0000 1  t FTN 3.3B (OPT = LPC) ZCCS64 PAGE 1 DATE: 08/30/84 TIME: 0150 t^ 1 PROGRAM ZCCS64 00001^^ 1 1 /C64 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS64 PAGE 2 DATE: 08/30/84 TIME: 0150 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS64 PAGE 3 DATE: 08/30/84 TIME: 0150 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS64 0000 1  t FTN 3.3B (OPT = LPC) ZCCS65 PAGE 1 DATE: 08/30/84 TIME: 0150 t^ 1 PROGRAM ZCCS65 00001^^ 1 1 /C65 F CCS CCS 3.0 SL-149 00002^^ C 00003^^ C CYBERCREDIT SYSTEM VERSION 3 00004^^ C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 00005^^ C COPYRIGHT CONTROL DATA CORPORATION, 1979 00006^^ C 00007^^ C COSY DECK FOR FUTURE PROGRAM DEVELOPMENT 00008^  ^ 2 END 00010^t FTN 3.3B (OPT = LPC) ZCCS65 PAGE 2 DATE: 08/30/84 TIME: 0150 t  PROGRAM LENGTH $0003 ( 3)   EXTERNALS Q8STP  t FTN 3.3B (OPT = LPC) ZCCS65 PAGE 3 DATE: 08/30/84 TIME: 0150 t, ***** L I S T O F S Y M B O L S *****,   EXTERNALS : ---------  < NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : <  Q8STP INTEGER.FN. 0002    LABELED STATEMENTS :  ------------------  < LABEL ADDRESS REFERENCED BY STATEMENT NB : <  ZCCS65 0000 1   H*K,I13,L14ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿH_‚_‚È(•gç •?ADVENTCM$$ P(èÈÐ !"#%&'(*+./01245679:;<=>?@ABCEFGHIJKLMNbcdefhjkmnopsyz|}~‚ƒ„†‡‰Š‹ŒŽ‘•—™›œžŸ ¡¢£¤¥¦¨©ª«¬­®¯°±²³´µ·¸¹»¼½¾¿ÀÁÄÆÈÉÍÏÑÓÖÚÝßâãäåæçùúûüýþÿ   !"#$%&'*+,-01389;=>?ACDEFHIKLMNQSTVXÿ“ hãŽTKº €Äßôhù dßó œý"Tºì hðèïÎ@ìõfßAÈêìñfß›ØæÎù é)Îö í6¯, + .-+ÿÀ +--ÿÑ ,>Aÿñ -+,.ÿÀ +-,ÿÑ- +,ÿÑ -+,.<ÿá+,.  -ÿü  ,ÿÌ +,3ÿà?@+,>ÿà?@+3,ÿà?@3+ÿÓ?@3+"!ÿÓ$.&, -"#+ÿÈÿþ&+')*,EÿÖ& ÿÒ +-$.%,-11ÿ½ÿþÿþÿþ+*,=ÿËÿô 8ÿÇÿþ')*+E)-ÿÓ& .-7ÿË& ÿÒ& +,ÿâÿþÿþA.+56,Gÿ¸7ÿâ+7ÿØ+4,ÿ¹,ÿÇ8 <ÿú+4:ÿ¹ÿþ.8+-,ÿî-+.ÿÓ,.ÿÔ+.ÿÒ,-+.ÿá,ÿô+ÿôÿô+ÿÓ+,ÿÑ,+ÿÑ,+.-ÿá,-ÿÑ,ÿô,-ÿÔÿô8,.-ÿÔ+ÿôÿþ+,-ÿË+-ÿÑ,-+ÿÑ.ÿô8;,F-JÿÔ+,.=---ÿá/,.+2ÿ·+,*ÿà.8ÿÒ=..-ÿ´-ÿÑ0.ÿÒF1-0ÿ·.ÿô+,,ÿá.ÿÒÿÒ+,-ÿîÿÑÿþ-,.ÿÔ,ÿô.ÿô.+ÿÓ-,ÿÍ+ÿôÿôÿá8+',ÿäÿþÿþ-IÿÇ.+ÿÒ.ÿô.-IÿÒ. ÿÓ,ÿô0,-ÿ¶.HÿÓ2I+ÿÔ, ,GG/ÿé.GÿôJÿô&..ÿÑJÿá ÿµ,ÿÔ.1/02+,-ÿá+-./012+ÿÓ.-ÿ´,ÿØ-'8ÿá1-+20/,ÿÑ. ÿ’ÿÏÿÎ/ÿá1)*E/))'ÿØÿâ- +ÿø-ÿÔ+ -ÿø/)*E1)'Mÿ×,+Mÿ×,/$0%ÿ×.M-+ÿî. MÿØ, Mÿã-M.(ÿã,M+(ÿã, Mÿã,021/-.ÿÔ2-.,1/+ÿÏ,/1+-20ÿÑ/-20+.,ÿÎ-0.+,1/2ÿâ+,1.20/ÿÒÐÐ0/.2-1+ÿÓ+/,-.01ÿÍ12+,-0.ÿÐ-ÿô222/////////–––––––––8œœœœœ777777#ÓÔ8œœœœœ ŸdPP2<KPP2KK555ŸrsKKKKKKKKK(((2ééééLLéééé !OOSSS QQ      "TUUUU J JCCDDˆCCXTUUUÐÐU()!!$$>>YZ"""#.d!!!!%%'A$$&&&%%%SSSSS$$@@@A)****;<<)*+-P*,-+02R*+./WW----,,23,134124523457V34655478977 7:ST99)))=>>><>k<?=>>'''AAggj@B,D,F',HG,jAC,M`,aBEEADDxwmqGAAoAFnAvIaaHHHxyKLMKKNBBM*PPQPP,,9TU9SrSS44--\\___HHX]^\\\\\\___c^^\[BBBHHbbbaacbb--d---c.!eedddgggffhjk@ggihhg@Alƒ„…†‡ˆ‰Š‹=,,,,,,,,,jrEqqGF2225-ƒ„…†‡ˆ‰Š‹ŒmmmTtsQv””””•/THuEEEJJJ{””””/T|~z||~{}}€€€~||~~}}}|bb}}}|~|||~€€|‚‚‚‚~|~k„…†‡ˆ‰Š‹pkƒ…†‡ˆ‰Š‹pkƒ„†‡ˆ‰Š‹pkƒ„…‡ˆ‰Š‹pkƒ„…†ˆ‰Š‹pkƒ„…†‡‰Š‹pkƒ„…†‡ˆŠ‹pkƒ„…†‡ˆ‰‹pkƒ„…†‡ˆ‰Šppp  !"#$%&'()*++,,--../0123456789999:;<==>?@ABCEFGHIJKLLMNOééêêêëìíîïðñòòóôõö÷øøøøùùúúûûüüýýþÿ         !""""#$$%&&'(ÑÑÑÑÑÑÑÑÒÒÒÒÒÒÓÓÓÓÓÔÔÕÖÖ××ØØÙÙÙÚÚÚÛÛÛÛÛÛÛÛÛÛÜÜÜÜÜÝÞÞßààááâããääåæççççèéééééêëëìììííïðððññ ¹ º » ¼ ½ ê ê ê ê ê ê ê ë ë ø ø ú ú ü ý  C F F KÿþROHIENUPDOFOFOCOONBAREREVASTOUOUEXLEBUHOGUSTROBECRCOINININSUNUNODAPATULOCAAWGIVIUPUPU ABASD DODODEPIOUCRSTDOLERIHAJUBAOVACEAE WEW NON SOS NESESWNWDEHOWABRY2CLLOEXL DEFLROSLSLSLXYDEENPLSECACRBEPLORCASHREMAOFFOMAMOKEKELAÐÐHELAGRCAROROSTBIDOPIVESNFITACLOYMAISSP"SDWDWKNKNFORABOJAWAH2OIMIPLBEPLSTSHFIAXDRPIDRCHTRTRBEMEVOGEMAVEBACAMOGONUDISIBAJECOCHBOTREGEGNETRVAMISHPOEMPLPYPERUPESPCHCATAKECASTCAGETODRREFRDIDUPUSACHSIUTMUUNOPNOLOCLLIONEXOFWASHSWCAPLTAWARUTRGOPRCOEXGOFOTUATKIFIHISTPOEADEDRRUTOTHTOQUFIWHINI FEFIBLDEIGBLSCFEFIFOFOFUBRREPEBRSHSMWADIHOSAKESUREREFEFIFOFOFUSEOPABABSHHOPOHE? TRTRDIEXLOMIFUSTININSW ADLLTESTWNRERWNTWACKTUTRLLAIT TSITAVILUSLLRECKD AWBBWASI RFLLWHRKSSNNW NYKWANEWWA OVCE WNWNSCT TDACEPMEFTGHLLMPRRERROST ST RT UT BRLELLOK IMOKAM SCOOOMITABABZZPRTRUGCRVEOSDQOVIEVEELSEINFIRKGIDEYSY MPADNTATGED D EPRDORLLLVAKSSBLAMSTGASUELPEARARIFIVODTITTR TEO L RRANANANALADGUE AWRAAGASOLOLARSSLCYSCHNDTTRPSSLDGGAMLVRSWEINESX EAGSG STIDSENGARTTERATRAARG RSICAIRRKEEPTCEAPTT TEOPLEEESCMPT Y ANNGTEMBLOENTHCKOSGH TIF VEAKINLMACMELKN AV OCNTPLTOLLRNTALLGHT RIURT VOINB UCROSSITNDERVE EDLLASTONIOWORE E E O M IEADRUEAATASKESTURVEEPSPSTSUE E E O M SAENRARAAZCUCULP EEEEG CASTSTCKOPFOFOIM (<:>!@p¢… #$&(*+,-/134578:;<?@GIKMOQTUVWXYZ[\]^_`abcfgilnopsux}‚ƒ„‡ˆ‰ŒŽ‘“”•–—˜™š›žŸ £¦§¨«­°´·¹º¼ÀÁÂÆÇÈÏÖÙÚßàëóöøùúûýÿ #$%&'()*+,./0123456789:;<=>?@ABCDEFGÐÐHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn"-6>KW`iv‡’¢£¬¯¼½¾¿ÆÈÌÍÖÝàåçèðóöü  $*,.026:@CEIKQST[^bdlx„ˆŽ’•š¡£¤¨©ª®°²µ¸º¼¾ÄÅÆËÎÑØÜÞäçìô÷ú !#)3678:CEIKOY^flrw~†Š”ž¨²¼ÆÐÚä @€€€€ˆˆˆ€€€€€ˆ€ˆ€€ˆˆ€ gk 2 3456}8 9 ;  ƒ„%?#&Š‹ŒŽ‘’“”•–˜—™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­  ^`egjmo#awuu‚~Œ`\_adew‚  ^`egjmo#awuu‚~Œ`\_adÐÐew‚ ÿþÿþÿþÿþÿþÿþCÿþnÿþÿþyzzÿþÿþÿþÿþÿþyÿþ ÿþÿþÿþÿþÿþÿþCÿþnÿþÿþyzzÿþÿþÿþÿþÿþyÿþpruxz|~„‡‰Œ“•™›¡¢£¥­±³µ¸º¼ÁÆËÍÒÕ×ÚÝßáãåçéëïñöøúüÿÿþÿþÿþÿþÿþÿþÿþÿþÿþÿþÿþÿþÿþÿþÿþ@Ph!!&&*+nnIK ;;®mC “›Ã’n ÿþdijklnopqrstuvwxyz{|}€‚ƒ„…†‡ˆŸ I‹ ''K)H‰)I‰!Hác ÿÿ…±ÿÿ…¨.ÿÿ>°²´?±³µ€PR9BIÿÿR9CMOVÿÿR9MMOVÿÿR9NS|R9MHLDÿÿR9INMK}R9CLBG†R9DETL‡R9TOTL Z[\]^_`ab#d‚Èú,J]'!,@r lÑÑ\ŸÌ  õ'#@76 8;$2= <> lý9!":& CEN rŒ2 N NOPOSTTEURWEY YE?@>$ ÆB x®–9#–OLú /^æî ÿþÌê¬ùlè œð" lÀ̳ þ- NOdÄë8”ÆaÌûœü$Ìø,¯SYSVOL $$ ýd lûý`Ìø Ü×ýZÌò„ì BÄì dÆVÄ°ë¤ÆW Ä_‚_‚mo#awuu‚~Œ`\_adÐÈIGkô G6J002 $$ ’ IµÈj$ JOB,J002,CCS149 INSTALL CORRECTIONS 07/23/84 D 1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 DATE OF RUN: 07/27/84 SYSTEM ID: ST. LOUIS DEMONSTRATION CENTER (05/15/80) D JJJ 00000000000 00000000000 22222222222 D JJJ 0000000000000 0000000000000 2222222222222 D JJJ 0000000000000 0000000000000 2222222222222 D JJJ 000 000 000 000 222 222 D JJJ 000 000 000 000 222 D JJJ 000 000 000 000 222 D JJJ 000 000 000 000 222 jjD JJJ 000 000 000 000 222 D JJJ 000 000 000 000 222 D JJJ 000 000 000 000 222 D JJJ 000 000 000 000 222 D JJJ JJJ 000 000 000 000 222 D JJJJJJJJJJJJJ 0000000000000 0000000000000 2222222222222 D JJJJJJJJJJJJJ 0000000000000 0000000000000 2222222222222 D JJJJJJJJJJJ 00000000000 00000000000 2222222222222 D $*K,L14ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO, INSTALLING TRENDP FROM B.TRENDP, CCS149 FILEÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*OPEN,FN=B.TRENDP,OW=CCS149,LU=21,Rÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ jj$*REW,21ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*K,L14ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*LIBEDTÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  LIB  IN  *K,I21,P8  IN  *P,F,2 ! TRENDP 8900 CCS3.0 TREND ANALYSIS REPORT SL-XXX ! GETSW 9E4F CCS3.0 SUBROUTINE GETSW SL-XXX ! GTSYSP 9E78 CCS3.0 SUBROUTINE GTSYSP SL-XXX ! GETUTI 9EDC CCS3.0 SUBROUTINE GETUTI SL-XXX ! PRTORF A013 CCS3.0 SUBROUTINE PRTORF SL-XXX jj! GETGRP A1DF CCS3.0 SUBROUTINE GETGRP SL-XXX ! SYSPRT A56F CCS3.0 SUBROUTINE SYSPRT SL-XXX ! ICKGRP A77B CCS3.0 SUBROUTINE ICKGRP SL-XXX ! ICHKZB A7BC CHECK FIELD FOR ZERO OR BLANK (RWE) SL-XXX ! FMENTP A7F4 F58 A ITOS CCS 3.0 SL-149 ! FORTN A850 F01 A FTNR CCS 3.0 SL-149 ! Q8PRMS A96D R99 A RPG CCS 3.0 SL-149 ! PARABN A991 S53 A RPG CCS 3.0 SL-149 ! FLOTN A9A3 G14 A FTNR CCS 3.0 SL-149 ! COMNFP ABE1 G15 A FTNR CCS 3.0 SL-149 ! CCSADD AD15 A02 A CCS CCS 3.0 PSR'D SL-149 ! CCSCST ADE9 A04 A CCS CCS 3.0 SL-149 ! CCSGET AE29 A06 A CCS CCS 3.0 SL-149 jj! CCSMVA AE49 A08 A CCS CCS 3.0 SL-149 ! CCSPUT AE78 A09 A CCS CCS 3.0 SL-149 ! EDIT AE98 B50 F CCS CCS 3.0 PSrPD SL-149 ! FILERR AF8A B52 F CCS CCS 3.1 SL-173 ! UTHEAD B055 C52 F CCS CCS 3.0hELA SL-149 ! CCSHXA B14F A07 A CCS CCS 3.0 SL-149  IN  *K,I8  IN  *N,TRENDP,,,B  IN  *Z $*K,I13ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ jj$*CLOSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO, PROGRAM TRENDP HAS BEEN INSTALLEDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO, INSTALL C O M P L E T E !!!ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*Zÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ _‚_‚IN  *K,I8  IN  *N,TRENDP,,,B  IN  *Z $*K,I13ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ jÈIåX¾ å ÙJ005 $$ ’ IµÈj$ JOB,J005,XDEVEL DTLLST INSTALL 07/24/84ÿ D 1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 DATE OF RUN: 07/24/84 SYSTEM ID: ST. LOUIS DEMONSTRATION CENTER (05/15/80) D JJJ 00000000000 00000000000 5555555555555 D JJJ 0000000000000 0000000000000 5555555555555 D JJJ 0000000000000 0000000000000 5555555555555 D JJJ 000 000 000 000 555 D JJJ 000 000 000 000 555 D JJJ 000 000 000 000 555 D JJJ 000 000 000 000 555555555555 jjD JJJ 000 000 000 000 5555555555555 D JJJ 000 000 000 000 5555555555555 D JJJ 000 000 000 000 555 D JJJ 000 000 000 000 555 D JJJ JJJ 000 000 000 000 555 555 D JJJJJJJJJJJJJ 0000000000000 0000000000000 5555555555555 D JJJJJJJJJJJJJ 0000000000000 0000000000000 5555555555555 D JJJJJJJJJJJ 00000000000 00000000000 55555555555 D $*CTO, TFDTLLST,XDEVEL IS BEING COMPILED.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*K,I13,L14,P07ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*REW,07ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ jj$*FTNÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  : FTN 3.3B (OPT = PLC) DTLLST PAGE 1 DATE: 07/24/84 TIME: 0844 / 1 PROGRAM DTLLST 00010 / 1 1 /CCS3.0 DETAIL LIST REPORT SL-XXX 00020  / C** CYBERCREDIT FINANCIAL SERVICES. 00040 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00050 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00060 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00070 / C** 00080 / C** ************ 05/25/84 ************ PROGRAMMER : RWE 00090  jj/ C DTLLST DETAIL LIST REPORT PROCESSOR 00110  / C DTLLST PRODUCES THE DETAIL LIST REPORTS AS DIRECTED BY THE 00130 / C LIST OF REQUESTS. 00140  / 2 INTEGER STATUS 00160  / 3 ASSIGN 200 TO ICTLD 00180 / 4 CALL PGMINT(ICTLD,0) 00190 / 5 CALL DTLPRS 00200  / 6 100 CALL DTLRNR(STATUS) 00220 /+ + ; READ NEXT REQUEST 00230 jj/ 7 IF ( STATUS.NE.0 ) GOTO 200 00240 /+ + ; IF REQUEST LIST IS EXHAUSTED 00250 / 8 CALL DTLRRS(STATUS) 00260 /+ + ; READ REPORT SKELETON FILE 00270 / 9 IF ( STATUS.NE.0 ) GOTO 100 00280 /+ + ; IF NO SKELETON FILE 00290 / 10 CALL DTLRBF(STATUS) 00300 /+ + ; READ BORROWER'S RECORDS 00310 / 11 IF ( STATUS.NE.0 ) GOTO 100 00320 /+ + ; IF ERROR IN BORROWER'S RECORDS 00330 / 12 CALL DTLPRB 00340 /+ + ; PRINT REPORT BODY 00350 / 13 CALL DTLPAL 00360 jj/+ + ; PRINT ACTIVITY LIST 00370 / 14 GOTO 100 00380  / 15 200 CALL DTLCDS 00400 /+ + ; CLOSE DOWN SHOP 00410 / 16 CALL PGMOUT 00420  / 17 END 00440 : FTN 3.3B (OPT = PLC) DTLLST PAGE 2 DATE: 07/24/84 TIME: 0844   PROGRAM LENGTH $002D ( 45)   EXTERNALS jj Q8STP PGMINT DTLPRS DTLRNR DTLRRS DTLRBF DTLPRB DTLPAL DTLCDS PGMOUT  : FTN 3.3B (OPT = PLC) DTLLST PAGE 3 DATE: 07/24/84 TIME: 0844  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   0000 (0) 0001 4,7,9,11 jj   VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ICTLD INTEGER 0003 1,4  STATUS INTEGER 0002 1,6,7,8,9,10,11    EXTERNALS :  --------- jj  NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   DTLCDS SUBROUTINE 0028 15  DTLPAL SUBROUTINE 0025 11  DTLPRB SUBROUTINE 0023 11  DTLPRS SUBROUTINE 000C 4  DTLRBF SUBROUTINE 001C 9  DTLRNR SUBROUTINE 000E 4  DTLRRS SUBROUTINE 0015 7  PGMINT SUBROUTINE 0008 1  PGMOUT SUBROUTINE 002A 15  Q8STP INTEGER.FN. 002C jj  LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 000D 4,9,11,14  200 0027 1,7,15  DTLLST 0000 1  : FTN 3.3B (OPT = PLC) DTLPRS PAGE 1 DATE: 07/24/84 TIME: 0844 / 1 SUBROUTINE DTLPRS 00010 jj/ 1 1 /CCS3.0 X SL-XXX 00020   / C** CYBERCREDIT FINANCIAL SERVICES. 00050 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00060 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00070 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00080 / C** 00090 / C** ************ 05/26/84 ************ PROGRAMMER : RWE 00100  / C DTLPRS DTLLST PRESET 00120  / C VARIABLE DEFINITIONS: 00140 jj / C ABUF ACTFIL INPUT BUFFER 00160 / C ACOUNT CURRENT BORROWER'S ACCOUNT NUMBER 00170 / C ACTGRP CURRENT BORROWER'S ACCOUNT GROUP 00180 / C ADATA ACTFIL FILE MANAGER DESCRIPTION 00190 / C AFTLL REPORT ITEM FILE, TYPE, AND LENGTH 00200 / C ALNCL REPORT ITEM LINE AND COLUMN 00210 / C APOS REPORT ITEM POSITION ( FILE/TXTBFR INDEX ) 00220 / C AREQ ACTFIL REQUEST BUFFER 00230 / C ASTAT ACTFIL STATUS WORD 00240 / C CBUF COSIGNER INPUT BUFFER 00250 / C CDATA COSIGNER FILE MANAGER DESCRIPTION 00260 / C CREQ COSIGNER REQUEST BUFFER 00270 jj/ C CSTAT COSIGNER STATUS WORD 00280 / C DATE SYSTEM DATE AT START OF RUN 00290 / C DBUF DTLLST0X REPORT SKELETON INPUT BUFFER 00300 / C DDATA DTLLST0X REPORT SKELETON FILE MANAGER DESCRIPTION 00310 / C DREQ DTLLST0X REPORT SKELETON REQUEST BUFFER 00320 / C DSTAT DTLLST0X REPORT SKELETON STATUS WORD 00330 / C HDRS HEADER LINES AS DEFINED IN UTIFIL 00340 / C ITEMAX MAXIMUM NUMBER OF REPORT ITEMS ALLOWED 00350 / C LASTIT INDEX OF THE LAST ITEM IN THE WORKING STRUCTURE 00360 / C LINENR CURRENT LINE ON THE REPORT PAGE 00370 / C MBUF DELQMST INPUT BUFFER 00380 / C MDATA DELQMST FILE MANAGER DESCRIPTION 00390 / C MREQ DELQMST REQUEST BUFFER 00400 jj/ C MSTAT DELQMST STATUS WORD 00410 / C NACCT NUMBER OF ACCOUNTS PROCESSED 00420 / C NBUF INACCT INPUT BUFFER 00430 / C NDATA INACCT FILE MANAGER DESCRIPTION 00440 / C NERROR NUMBER OF ERRORS ENCOUNTERED 00450 / C NPAGES PAGE SWITCH ( 0 => SHORT REPORT ) 00460 / C NREQ INACCT REQUEST BUFFER 00470 / C PAGCOL REPORT PAGE WIDTH 00480 / C SBUF SREQDL INPUT BUFFER 00490 / C SDATA SREQDL FILE MANAGER DESCRIPTION 00500 / C SREQ SREQDL REQUEST BUFFER 00510 / C SSTAT SREQDL STATUS WORD 00520 / C SUPNAM SUPERVISOR NAME REQUESTING REPORT 00530 jj/ C SWITCH RPGII SWITCH, SELECT SREQDL/INACCT 00540 : FTN 3.3B (OPT = PLC) DTLPRS PAGE 2 DATE: 07/24/84 TIME: 0844 / C TXTBFR CONSTANT ITEM ( TEXT ) CHARACTER BUFFER 00550 / C TXTMAX MAXIMUM SIZE OF TXTBFR 00560 / C UBUF UTIFIL INPUT BUFFER 00570 / C UDATA UTIFIL FILE MANAGER DESCRIPTION 00580 / C UREQ UTIFIL REQUEST BUFFER 00590 / C USTAT UTIFIL STATUS WORD 00600   / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030 jj / 2 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 / 3 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 4 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 5 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 6 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 7 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 8 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 9 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 10 INTEGER SDATA(04) 00130 / 11 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 12 INTEGER TXTMAX, TXTBFR(3500) 00150  jj/ 13 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 14 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 / 15 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 16 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 17 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 18 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 19 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 20 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 21 COMMON /DTLBLK / SDATA 00250 / 22 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 23 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290 jj / 24 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310  / 25 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 25 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 25 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  / 26 INTEGER USER(4),GRPBUF(10) 00370 / 26 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 27 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 / 28 COMMON /DTLBLK / USER,GRPBUF 00410 / 29 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420 jj / C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460 : FTN 3.3B (OPT = PLC) DTLPRS PAGE 3 DATE: 07/24/84 TIME: 0844   / 30 DATA ADATA / 'LAACTFIL', ' ', ' ', 1, 1, 0 / 00640 / 31 DATA AREQ / 24*0 / 00650 / 32 DATA CDATA / 'LACOSIGN', ' ', ' ', 1, 1, 0 / 00660 / 33 DATA CREQ / 24*0 / 00670 / 34 DATA DDATA / 'LDTLST0X', ' ', ' ', 0, 1, 0 / 00680 / 35 DATA DREQ / 24*0 / 00690 jj/ 36 DATA MDATA / 'LDLQMST ', ' ', ' ', 1, 1, 0 / 00700 / 37 DATA MREQ / 24*0 / 00710 / 38 DATA NDATA / 'LAINACCT', ' ', ' ', 0, 1, 1 / 00720 / 39 DATA NREQ / 24*0 / 00730 / 40 DATA SDATA / 'LASREQDL'/ 00740  / 41 INTEGER LD1(4),LD2(4),LD3(4),LD4(4),LD5(4),LD6(4) 00760  / 42 DATA LD1/'ACTFIL '/,LD2/'COSIGNER'/,LD3/'DELQMST '/ 00780 / 43 DATA LD4/'INACCT '/,LD5/'SREQDL '/,LD6/'DTLLST '/ 00790  / 44 INTEGER R9SWCH 00810 / 45 DATA R9SWCH / $00E3 / 00820 jj/ 46 INTEGER MSGINF(17) 00830 / 47 DATA MSGINF /$0D0A,' DTLLST REQUESTS FROM INACCT ',$0D0A/ 00840  / C**** SYSPRT PARAMETERS........ DATA 00860  / 48 DATA PLN/132/,NLU/05/,IPF/00/,NLINE/0/,ISERR/0/,NU/1/ 00880 / 49 DATA PLU/12/,IWAY/3/,IMODE/3/ 00890  / C**** 00910 / C**** BEGIN PROGRAM ....... 00920  / C*** GET EXTERNAL SWITCHS, USER INFO, HEADINGS, AND OTHER PARAMETERS 00940  jj/ 50 CALL PGMIN ( USER,LU,MODE,NPORT ) 00960  / C*** CCS/LA LOOK-ALIKE..... 00980  / 51 CALL CCSCST(ADATA,1,2,USER,1,8,ICM ) 01000 / 52 IF ( ICM.EQ.0 ) GO TO 5 01010 / 53 CALL CCSMVA( LD1,1,8,ADATA,1,16 ) 01020 / 54 CALL CCSMVA( LD2,1,8,CDATA,1,16 ) 01030 / 55 CALL CCSMVA( LD3,1,8,MDATA,1,16 ) 01040 / 56 CALL CCSMVA( LD4,1,8,NDATA,1,16 ) 01050 / 57 CALL CCSMVA( LD5,1,8,SDATA,1,8 ) 01060 / 58 CALL CCSMVA( LD6,1,6,DDATA,1,6 ) 01070 / 59 5 CONTINUE 01080 jj / 60 CALL GTSYSP( IWAY, 21 ) 01100 / 61 CALL GTSYSP( IMODE, 22 ) 01110 / 62 CALL PRTORF( IPF,PLU,NLU,NPORT,IWAY ) 01120 / 63 CALL GETGRP( GRPBUF,IALL,IMODE ) 01130 / 64 IEJT = $31 01140 / 65 IF( NPORT.NE.0 .AND.IPF.NE.1 ) IEJT = $0C 01141 : FTN 3.3B (OPT = PLC) DTLPRS PAGE 4 DATE: 07/24/84 TIME: 0844  / C**** OPEN FILES AND GET UTIFIL RECORDS 01150  / 66 CALL SYSPRT( L01,0,SYSPRM,0 ) 01170 / 67 IF( ISERR.LT.0 ) GO TO 9999 01180 jj / C SET SYSTEM CONSTANTS AND INITIAL VALUES 01200  / 68 SYSPRM(1) = 132 01220 / 69 PLU = 12 01230 / 70 PLN = 132 01240 / 71 ITEMAX=800 01250 / 72 TXTMAX=3500 01260 / 73 CALL ZERO(ACOUNT,8) 01270 / 74 ACTGRP=0 01280 / 75 NERROR=0 01290 / 76 NACCT=0 01300 / 77 NPAGES=0 01310 jj/ 78 INAMSK=$0002 01320 / 79 CALL CCSPUT(ACTGRP,8,DDATA) 01330  / C RETRIEVE HEADER TEXT FROM UTIFIL , AND DATE.... 01350  / 80 CALL UTHEAD( HDRS,DATE ) 01370  / C GET SWITCH SETTING. SELECT SREQDL/INACCT FOR ACCOUNT LIST. 01390  / 81 ASSEM $E400,+R9SWCH 01410 /+ + ; LDQ R9SWCH 01420 / 82 ASSEM $C622 01430 /+ + ; LDA- (ZERO),Q 01440 jj/ 83 ASSEM $6400,+SWITCH 01450 /+ + ; STA SWITCH 01460 / 84 IF ( AND(SWITCH,INAMSK).NE.0 ) GOTO 100 01470 / 85 CALL CCSMVA( SDATA,1,8,NDATA,1,8 ) 01480 / 86 NDATA(15) = 0 01490  / 87 100 CALL OPENFL(NREQ,NDATA,NSTAT) 01510 / 88 IF ( NSTAT.LT.0 ) GOTO 9006 01520 / 89 NREQ(23) = 1 01530  / 90 CALL CCSMVA( NDATA,1,8,MSGINF,25,8 ) 01550 / 91 CALL WTREAD(5,-1,MSGINF,34,-1,0,0,ITC) 01560  jj/ C OPEN OTHER FILES: DELQMST / COSIGNER / ACTFIL 01580  / 92 200 CALL OPENFL(MREQ,MDATA,MSTAT) 01600 / 93 IF ( MSTAT.LT.0 ) GOTO 9003 01610 / 94 MREQ(23)=1 01620 /+ + ; IGNORE RECORD LOCKING 01630  / 95 CALL OPENFL(CREQ,CDATA,CSTAT) 01650 / 96 IF ( CSTAT.LT.0 ) GOTO 9004 01660 / 97 CREQ(23)=1 01670 /+ + ; IGNORE RECORD LOCKING 01680  / 98 CALL OPENFL(AREQ,ADATA,ASTAT) 01700 jj/ 99 IF ( ASTAT.LT.0 ) GOTO 9005 01710 / 100 AREQ(23)=1 01720 /+ + ; IGNORE RECORD LOCKING 01730 : FTN 3.3B (OPT = PLC) DTLPRS PAGE 5 DATE: 07/24/84 TIME: 0844  / 101 RETURN 01750  / 102 9003 CALL FILERR(MDATA,3,MSTAT,5) 01770 / 103 GOTO 9999 01780 / 104 9004 CALL FILERR(CDATA,3,CSTAT,5) 01790 / 105 GOTO 9999 01800 / 106 9005 CALL FILERR(ADATA,3,ASTAT,5) 01810 / 107 GOTO 9999 01820 jj/ 108 9006 CALL FILERR(NDATA,3,NSTAT,5) 01830 / C GOTO 9999 01840 / 109 9999 CALL DTLCDS 01850 / 110 CALL PGMOUT 01860  / 111 END 01880 : FTN 3.3B (OPT = PLC) DTLPRS PAGE 6 DATE: 07/24/84 TIME: 0844  COMMON LABEL $1EC0 ( 7872)    PROGRAM LENGTH $014B ( 331)  jj EXTERNALS  PGMIN CCSCST CCSMVA GTSYSP PRTORF GETGRP SYSPRT  ZERO CCSPUT UTHEAD OPENFL WTREAD FILERR DTLCDS  PGMOUT  : FTN 3.3B (OPT = PLC) DTLPRS PAGE 7 DATE: 07/24/84 TIME: 0844  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB : jj  FFFE (-1) 003A 91,91 6 0000 (0) 0001 30,31,32,33,34,35,36,37,38,39,48,52,65,66,67,74,75,76,77,84,86,88,91,93,96,99 2 0001 (1) 0000 25,30,32,34,36,38,48,51,53,54,55,56,57,58,65,68,85,89,90,91,94,97,100  0002 (2) 002D 51,78  0003 (3) 003D 102,104,106,108  0005 (5) 0039 90,102,104,106,108  0006 (6) 0031 58,58  0008 (8) 002E 51,53,54,55,56,57,73,79,85,90  0010 (16) 0030 53,54,55,56  0015 (21) 0032 60  0016 (22) 0033 61  0019 (25) 0038 90 jj 0022 (34) 003B 91  0084 (132) 0035 68,70  0320 (800) 0036 71  0DAC (3500) 0037 72    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 1,16  ACOUNT INTEGER 0002 D 1,13,73 jj ACTGRP INTEGER 0000 D 1,13,74,79  ADATA INTEGER 005A D 1,16,30,51,53,98,106  AFTLL INTEGER 0AB7 D 1,22  ALNCL INTEGER 0797 D 1,22  AND INTR.FN. 7FFF 84  APOS INTEGER 0DD7 D 1,22  AREQ INTEGER 0069 D 1,16,31,98,100  ASTAT INTEGER 0059 D 1,16,98,99,106  CBUF INTEGER 01A3 D 1,17  CDATA INTEGER 017C D 1,17,32,54,95,104  CREQ INTEGER 018B D 1,17,33,95,97  CSTAT INTEGER 017B D 1,17,95,96,104  DATE INTEGER 000F D 1,14,80 jj DBUF INTEGER 0280 D 1,18  DDATA INTEGER 0259 D 1,18,34,58,79  DREQ INTEGER 0268 D 1,18,35  DSTAT INTEGER 0258 D 1,18  GRPBUF INTEGER 1EAE D 25,28,63  HDRS INTEGER 0012 D 1,14,80  IALL INTEGER 1EBD D 25,29,63  ICM INTEGER 002F 51,52 : FTN 3.3B (OPT = PLC) DTLPRS PAGE 8 DATE: 07/24/84 TIME: 0844  IEJT INTEGER 0058 D 1,15,64,65  IMODE INTEGER 1EBC D 25,29,49,61,63  INAMSK INTEGER 0057 D 1,15,78,84  IOPT INTEGER 1EBE D 25,29 jj IPF INTEGER 1EA6 D 23,25,27,48,62,65  ISERR INTEGER 1EA8 D 23,25,27,48,67  ITC INTEGER 003C 91  ITEMAX INTEGER 0796 D 1,22,71  ITF INTEGER 1EBF D 25,29  IWAY INTEGER 1EBB D 25,29,49,60,62  L01 INTEGER 0034 65  LASTIT INTEGER 000A D 1,13  LD1 INTEGER 0002 40,42,53  LD2 INTEGER 0006 40,42,54  LD3 INTEGER 000A 40,42,55  LD4 INTEGER 000E 40,43,56  LD5 INTEGER 0012 40,43,57 jj LD6 INTEGER 0016 40,43,58  LINENR INTEGER 0001 D 1,13  LU INTEGER 1EB8 D 25,29,50  MBUF INTEGER 0368 D 1,19  MDATA INTEGER 0341 D 1,19,36,55,92,102  MODE INTEGER 002C 50  MREQ INTEGER 0350 D 1,19,37,92,94  MSGINF INTEGER 001B 45,47,90,91  MSTAT INTEGER 0340 D 1,19,92,93,102  NACCT INTEGER 000C D 1,14,76  NBUF INTEGER 0778 D 1,20  NDATA INTEGER 0751 D 1,20,38,56,85,86,87,90,108  NERROR INTEGER 000B D 1,14,75 jj NLINE INTEGER 1EA7 D 23,25,27,48  NLU INTEGER 1EA5 D 23,25,27,48,62  NPAGES INTEGER 000D D 1,14,77  NPORT INTEGER 1EBA D 25,29,50,62,65  NREQ INTEGER 0760 D 1,20,39,87,89  NSTAT INTEGER 0750 D 1,20,87,88,108  NU INTEGER 1EA9 D 23,25,27,48  PAGCOL INTEGER 000E D 1,14  PLN INTEGER 1EA4 D 23,25,27,48,70  PLU INTEGER 1EB9 D 25,29,49,62,69  R9SWCH INTEGER 001A 43,45,81  SDATA INTEGER 0792 D 1,21,40,57,85  SUPNAM INTEGER 004E D 1,15 jj SWITCH INTEGER 0056 D 1,15,83,84  SYSPRM INTEGER 1EA4 D 23,25,66,68  TXTBFR INTEGER 10F8 D 1,23  TXTMAX INTEGER 10F7 D 1,23,72  USER INTEGER 1EAA D 25,28,50,51 : FTN 3.3B (OPT = PLC) DTLPRS PAGE 9 DATE: 07/24/84 TIME: 0844    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :  jj CCSCST SUBROUTINE 0045 50  CCSMVA SUBROUTINE 00DB 52,54,55,56,57,58,85,90  CCSPUT SUBROUTINE 00C8 78  DTLCDS SUBROUTINE 0141 109  FILERR SUBROUTINE 0129 102,104,106,108  GETGRP SUBROUTINE 008B 62  GTSYSP SUBROUTINE 007D 59,61  OPENFL SUBROUTINE 00E6 87,92,95,98  PGMIN SUBROUTINE 003F 49  PGMOUT SUBROUTINE 0143 109  PRTORF SUBROUTINE 0084 61  SYSPRT SUBROUTINE 009D 65  UTHEAD SUBROUTINE 00CD 79 jj WTREAD SUBROUTINE 00FA 90  ZERO SUBROUTINE 00B8 72   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   5 007C 52,59  100 00E5 84,87  200 0103 91  9003 0128 93,102 jj 9004 012F 96,104  9005 0135 99,106  9006 013B 88,108  9999 0140 67,103,105,107,109  DTLPRS 0146 1  : FTN 3.3B (OPT = PLC) DTLAED PAGE 1 DATE: 07/24/84 TIME: 0846 / 1 SUBROUTINE DTLAED(ACTSTR,BUFF) 00010 / 1 1 /B02 F CCS 3.0 ( DTLLST - ACTEDT ) SUMMARY *** 00020   / C EDIT ACTIVITY STRING FOR OUTPUT. 00040  jj/ C ROUTINE TO CONVERT THE COMPACTED ACTIVITY STRING RETRIEVED FROM 00060 / C A GETACT REQUEST INTO FORM ACCEPTABLE FOR OUTPUT. THE ROUTINE WILL 00070 / C CONVERT THE DATE AND MOVE THE OTHER FIELDS TO A ANOTHER BUFFER 00080 / C SEPARATING EACH FIELD WITH ONE SPACE. 00090 / C CALLING SEQUENCE: 00100 / C CALL DTLAED(ACTSTR,BUFF) 00110 / C WHERE: 00120 / C ACTSTR THE COMPACTED ACTIVITY STRING TO EXPAND. 72 BYTES 00130 / C BUFF OUTPUT BUFFER LOCATION TO RECEIVE THE ACTIVITY. 80 BYTES 00140  / C WITH COLLECTOR ID - 00160 / C MM/DD/YY AC RS LT COLL ************ 56 CHARACTER COMMENT ************ 00170  jj/ 2 INTEGER ACTSTR(01), BUFF(01) 00190   / 3 CALL EDIT(ACTSTR,1,BUFF,1,1) 00210 /+ + ; EDIT IN THE DATE 00220 / 4 CALL CCSMVA(ACTSTR,7,2,BUFF,10,2) 00230 /+ + ; ACTION CODE 00240 / 5 CALL CCSMVA(ACTSTR,9,2,BUFF,13,2) 00250 /+ + ; RESULT CODE 00260 / 6 CALL CCSMVA(ACTSTR,11,2,BUFF,16,2) 00270 /+ + ; LETTER CODE 00280 / 7 CALL CCSMVA(ACTSTR,13,4,BUFF,19,4) 00290 /+ + ; COLLECTOR ID 00300 jj/ 8 CALL CCSMVA(ACTSTR,17,56,BUFF,24,56) 00310 /+ + ; COMMENT STRING 00320 / 9 RETURN 00330  / 10 END 00350 : FTN 3.3B (OPT = PLC) DTLAED PAGE 2 DATE: 07/24/84 TIME: 0846   PROGRAM LENGTH $0051 ( 81)   EXTERNALS  Q8PKUP Q8PREP EDIT CCSMVA  : FTN 3.3B (OPT = PLC) DTLAED PAGE 3 DATE: 07/24/84 TIME: 0846 jj ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   0001 (1) 0000 2,3  0002 (2) 0002 4,4,5,6  0004 (4) 0008 7,7  0007 (7) 0001 4  0009 (9) 0004 5 jj 000A (10) 0003 4  000B (11) 0006 6  000D (13) 0005 5,7  0010 (16) 0007 6  0011 (17) 000A 8  0013 (19) 0009 7  0018 (24) 000C 8  0038 (56) 000B 8,8    VARIABLES :  ---------  jj NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ACTSTR INTEGER 7FFF 1,2,3,4,5,6,7,8  BUFF INTEGER 7FFF 1,2,3,4,5,6,7,8    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSMVA SUBROUTINE 0015 3,5,6,7,8  EDIT SUBROUTINE 000E 2 jj Q8PKUP INTEGER.FN. 0041  Q8PREP INTEGER.FN. 003E   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   DTLAED 003B 1  : FTN 3.3B (OPT = PLC) DTLCDS PAGE 1 DATE: 07/24/84 TIME: 0846 / 1 SUBROUTINE DTLCDS 00010 jj / C DTLCDS CLOSE DOWN SHOP 00030  / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030  / 2 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 / 3 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 4 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 5 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 6 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 7 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 jj/ 8 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 9 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 10 INTEGER SDATA(04) 00130 / 11 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 12 INTEGER TXTMAX, TXTBFR(3500) 00150  / 13 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 14 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 / 15 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 16 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 17 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 18 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 19 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 jj/ 20 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 21 COMMON /DTLBLK / SDATA 00250 / 22 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 23 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290  / 24 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310  / 25 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 25 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 25 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  jj/ 26 INTEGER USER(4),GRPBUF(10) 00370 / 26 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 27 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 / 28 COMMON /DTLBLK / USER,GRPBUF 00410 / 29 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420  / C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460  / 30 CALL CLOSFL(AREQ,ASTAT) 00070 / 31 CALL CLOSFL(CREQ,CSTAT) 00080 jj/ 32 CALL CLOSFL(DREQ,DSTAT) 00090 : FTN 3.3B (OPT = PLC) DTLCDS PAGE 2 DATE: 07/24/84 TIME: 0846 / 33 CALL CLOSFL(MREQ,MSTAT) 00100 / 34 CALL CLOSFL(NREQ,NSTAT) 00110 / 35 CALL GETUTI(I,I,I,I,2) 00120  / 36 RETURN 00140  / 37 END 00160 : FTN 3.3B (OPT = PLC) DTLCDS PAGE 3 DATE: 07/24/84 TIME: 0846  COMMON LABEL $1EC0 ( 7872)  jj  PROGRAM LENGTH $0020 ( 32)   EXTERNALS  CLOSFL GETUTI  : FTN 3.3B (OPT = PLC) DTLCDS PAGE 4 DATE: 07/24/84 TIME: 0846  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------  jj VALUE ADDRESS REFERENCED BY STATEMENT NB :   0002 (2) 0001 35    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 1,16  ACOUNT INTEGER 0002 D 1,13  ACTGRP INTEGER 0000 D 1,13 jj ADATA INTEGER 005A D 1,16  AFTLL INTEGER 0AB7 D 1,22  ALNCL INTEGER 0797 D 1,22  APOS INTEGER 0DD7 D 1,22  AREQ INTEGER 0069 D 1,16,30  ASTAT INTEGER 0059 D 1,16,30  CBUF INTEGER 01A3 D 1,17  CDATA INTEGER 017C D 1,17  CREQ INTEGER 018B D 1,17,31  CSTAT INTEGER 017B D 1,17,31  DATE INTEGER 000F D 1,14  DBUF INTEGER 0280 D 1,18  DDATA INTEGER 0259 D 1,18 jj DREQ INTEGER 0268 D 1,18,32  DSTAT INTEGER 0258 D 1,18,32  GRPBUF INTEGER 1EAE D 25,28  HDRS INTEGER 0012 D 1,14  I INTEGER 0000 34,35  IALL INTEGER 1EBD D 25,29  IEJT INTEGER 0058 D 1,15  IMODE INTEGER 1EBC D 25,29  INAMSK INTEGER 0057 D 1,15  IOPT INTEGER 1EBE D 25,29  IPF INTEGER 1EA6 D 23,25,27  ISERR INTEGER 1EA8 D 23,25,27  ITEMAX INTEGER 0796 D 1,22 jj ITF INTEGER 1EBF D 25,29  IWAY INTEGER 1EBB D 25,29  LASTIT INTEGER 000A D 1,13  LINENR INTEGER 0001 D 1,13  LU INTEGER 1EB8 D 25,29  MBUF INTEGER 0368 D 1,19  MDATA INTEGER 0341 D 1,19  MREQ INTEGER 0350 D 1,19,33  MSTAT INTEGER 0340 D 1,19,33 : FTN 3.3B (OPT = PLC) DTLCDS PAGE 5 DATE: 07/24/84 TIME: 0846  NACCT INTEGER 000C D 1,14  NBUF INTEGER 0778 D 1,20  NDATA INTEGER 0751 D 1,20 jj NERROR INTEGER 000B D 1,14  NLINE INTEGER 1EA7 D 23,25,27  NLU INTEGER 1EA5 D 23,25,27  NPAGES INTEGER 000D D 1,14  NPORT INTEGER 1EBA D 25,29  NREQ INTEGER 0760 D 1,20,34  NSTAT INTEGER 0750 D 1,20,34  NU INTEGER 1EA9 D 23,25,27  PAGCOL INTEGER 000E D 1,14  PLN INTEGER 1EA4 D 23,25,27  PLU INTEGER 1EB9 D 25,29  SDATA INTEGER 0792 D 1,21  SUPNAM INTEGER 004E D 1,15 jj SWITCH INTEGER 0056 D 1,15  SYSPRM INTEGER 1EA4 D 23,25  TXTBFR INTEGER 10F8 D 1,23  TXTMAX INTEGER 10F7 D 1,23  USER INTEGER 1EAA D 25,28    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CLOSFL SUBROUTINE 0003 29,31,32,33,34 jj GETUTI SUBROUTINE 0013 34   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   DTLCDS 001C 1  : FTN 3.3B (OPT = PLC) DTLEDT PAGE 1 DATE: 07/24/84 TIME: 0846 / 1 SUBROUTINE DTLEDT(INDEX,STRING,STRLEN) 00010  jj / C DTLEDT EDIT DISPLAY STRINGS 00030  / 2 INTEGER INDEX, STRING(1), STRLEN 00050  / 3 INTEGER T 00070 / 4 INTEGER EDTLEN(10) 00080 / 5 DATA EDTLEN / 0, 8, 0, 11, 12, 0, 11, 4, 0, 0 / 00090   / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030 jj / 6 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 / 7 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 8 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 9 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 10 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 11 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 12 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 13 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 14 INTEGER SDATA(04) 00130 / 15 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 16 INTEGER TXTMAX, TXTBFR(3500) 00150  jj/ 17 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 18 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 / 19 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 20 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 21 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 22 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 23 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 24 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 25 COMMON /DTLBLK / SDATA 00250 / 26 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 27 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290 jj / 28 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310  / 29 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 29 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 29 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  / 30 INTEGER USER(4),GRPBUF(10) 00370 / 30 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 31 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 / 32 COMMON /DTLBLK / USER,GRPBUF 00410 / 33 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420 jj: FTN 3.3B (OPT = PLC) DTLEDT PAGE 2 DATE: 07/24/84 TIME: 0846  / C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460   / 34 T=ITEMT(AFTLL(INDEX)) 00130 / 35 JUMPIX=T+1 00140 / 36 GOTO ( 100, 200, 300, 200, 200, 400, 200, 500, 600, 700 ), JUMPIX 00150  / C TYPE 0 CONSTANT FIELD 00170  jj/ 37 100 N=APOS(INDEX) 00190 / 38 STRLEN=ITEML(AFTLL(INDEX)) 00200 / 39 CALL CCSMVA(TXTBFR(N),1,STRLEN,STRING,1,STRLEN) 00210 / 40 RETURN 00220  / C TYPE 1 DATE MM/DD/YY 00240 / C TYPE 3 NINE-DIGIT DOLLAR AMOUNT 9999999.99S 00250 / C TYPE 4 TEN-DIGIT PHONE NUMBER 999/999-9999 00260 / C TYPE 6 SOCIAL SECURITY NUMBER 999-99-9999 00270  / 41 200 STRLEN=EDTLEN(T+1) 00290 / 42 CALL CCSBLK(STRING,STRLEN) 00300 / 43 IF ( ITEMF(AFTLL(INDEX)).NE.1RM ) GOTO 220 00310 jj/ 44 CALL EDIT(MBUF,APOS(INDEX),STRING,1,T) 00320 / 45 GOTO 240 00330  / 46 220 CALL EDIT(CBUF,APOS(INDEX),STRING,1,T) 00350 / 47 240 STRLEN=LASTCH(STRING,STRLEN) 00360 / 48 RETURN 00370  / C TYPE 2 ALPHANUMERIC FROM FILE 00390  / 49 300 STRLEN=ITEML(AFTLL(INDEX)) 00410 / 50 IF ( ITEMF(AFTLL(INDEX)).NE.1RM ) GOTO 320 00420 / 51 CALL CCSMVA(MBUF,APOS(INDEX),STRLEN,STRING,1,STRLEN) 00430 / 52 GOTO 340 00440 jj / 53 320 CALL CCSMVA(CBUF,APOS(INDEX),STRLEN,STRING,1,STRLEN) 00460 / 54 340 STRLEN=LASTCH(STRING,STRLEN) 00470 / 55 LEN=(STRLEN+1)/2 00480 / 56 DO 360 I=1,LEN 00490 / C??? STRING(I)=VDC(STRING(I)) 00500 / 57 360 CONTINUE 00510 / 58 RETURN 00520  / C TYPE 5 START OF ACTIVITY DISPLAY 00540  / 59 400 STRING(1)=1H 00560 /+ + ; ERROR ! 00570 jj/ 60 STRLEN=1 00580 / 61 RETURN 00590  / C TYPE 7 CURRNET TIME AS 24-HOUR MILITARY CLOCK HHMM 00610 : FTN 3.3B (OPT = PLC) DTLEDT PAGE 3 DATE: 07/24/84 TIME: 0846  / 62 500 CALL CCSTIM(STRING) 00630 / 63 STRLEN=4 00640 / 64 RETURN 00650  / C TYPE 8 CONSTANT FIELD LABELING CHANGE ITEM 00670  / 65 600 GOTO 400 00690 jj/+ + ; ERROR ! 00700  / C TYPE 9 MOST RECENT ACTIVITY 00720  / 66 700 GOTO 400 00740 /+ + ; ERROR ! 00750  / 67 END 00770 : FTN 3.3B (OPT = PLC) DTLEDT PAGE 4 DATE: 07/24/84 TIME: 0846  COMMON LABEL $1EC0 ( 7872)   jj PROGRAM LENGTH $00E4 ( 228)   EXTERNALS  Q8PKUP Q8PREP ITEMT ITEML CCSMVA CCSBLK ITEMF EDIT LASTCH CCSTIM  : FTN 3.3B (OPT = PLC) DTLEDT PAGE 5 DATE: 07/24/84 TIME: 0846  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------  jj VALUE ADDRESS REFERENCED BY STATEMENT NB :  " 0001 (1) 0000 2,29,35,39,41,44,46,51,53,55,56,59,60  2020 (8224) 0010 59    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 5,20  ACOUNT INTEGER 0002 D 5,17 jj ACTGRP INTEGER 0000 D 5,17  ADATA INTEGER 005A D 5,20  AFTLL INTEGER 0AB7 D 5,26,34,38,43,49,50  ALNCL INTEGER 0797 D 5,26  APOS INTEGER 0DD7 D 5,26,37,44,46,51,53  AREQ INTEGER 0069 D 5,20  ASTAT INTEGER 0059 D 5,20  CBUF INTEGER 01A3 D 5,21,46,53  CDATA INTEGER 017C D 5,21  CREQ INTEGER 018B D 5,21  CSTAT INTEGER 017B D 5,21  DATE INTEGER 000F D 5,18  DBUF INTEGER 0280 D 5,22 jj DDATA INTEGER 0259 D 5,22  DREQ INTEGER 0268 D 5,22  DSTAT INTEGER 0258 D 5,22  EDTLEN INTEGER 0002 2,5,41  GRPBUF INTEGER 1EAE D 29,32  HDRS INTEGER 0012 D 5,18  I INTEGER 000F 55  IALL INTEGER 1EBD D 29,33  IEJT INTEGER 0058 D 5,19  IMODE INTEGER 1EBC D 29,33  INAMSK INTEGER 0057 D 5,19 INDEX INTEGER 7FFF 1,2,34,37,38,43,44,46,49,50,51,53  IOPT INTEGER 1EBE D 29,33 jj IPF INTEGER 1EA6 D 27,29,31  ISERR INTEGER 1EA8 D 27,29,31  ITEMAX INTEGER 0796 D 5,26  ITF INTEGER 1EBF D 29,33  IWAY INTEGER 1EBB D 29,33  JUMPIX INTEGER 000C 34,35,36  LASTIT INTEGER 000A D 5,17  LEN INTEGER 000E 54,55,56  LINENR INTEGER 0001 D 5,17 : FTN 3.3B (OPT = PLC) DTLEDT PAGE 6 DATE: 07/24/84 TIME: 0846  LU INTEGER 1EB8 D 29,33  MBUF INTEGER 0368 D 5,23,44,51  MDATA INTEGER 0341 D 5,23 jj MREQ INTEGER 0350 D 5,23  MSTAT INTEGER 0340 D 5,23  N INTEGER 000D 37,37,39  NACCT INTEGER 000C D 5,18  NBUF INTEGER 0778 D 5,24  NDATA INTEGER 0751 D 5,24  NERROR INTEGER 000B D 5,18  NLINE INTEGER 1EA7 D 27,29,31  NLU INTEGER 1EA5 D 27,29,31  NPAGES INTEGER 000D D 5,18  NPORT INTEGER 1EBA D 29,33  NREQ INTEGER 0760 D 5,24  NSTAT INTEGER 0750 D 5,24 jj NU INTEGER 1EA9 D 27,29,31  PAGCOL INTEGER 000E D 5,18  PLN INTEGER 1EA4 D 27,29,31  PLU INTEGER 1EB9 D 29,33  SDATA INTEGER 0792 D 5,25 STRING INTEGER 7FFF 1,2,39,42,44,46,47,51,53,54,59,62 # STRLEN INTEGER 7FFF 1,2,38,39,41,42,47,49,51,53,54,55,60,63  SUPNAM INTEGER 004E D 5,19  SWITCH INTEGER 0056 D 5,19  SYSPRM INTEGER 1EA4 D 27,29  T INTEGER 0001 2,34,35,41,44,46  TXTBFR INTEGER 10F8 D 5,27,39  TXTMAX INTEGER 10F7 D 5,27 jj USER INTEGER 1EAA D 29,32    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSBLK SUBROUTINE 004F 41  CCSMVA SUBROUTINE 0042 38,51,53  CCSTIM SUBROUTINE 00B5 62  EDIT SUBROUTINE 0060 43,46  ITEMF INTEGER.FN. 0057 43,50 jj ITEML INTEGER.FN. 003A 38,49  ITEMT INTEGER.FN. 0016 34  LASTCH INTEGER.FN. 0072 47,54  Q8PKUP INTEGER.FN. 00C4  Q8PREP INTEGER.FN. 00C1 : FTN 3.3B (OPT = PLC) DTLEDT PAGE 7 DATE: 07/24/84 TIME: 0846   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :  jj 100 0031 35,37  200 004B 35,36,41  220 0067 43,46  240 0071 44,47  300 0077 35,49  320 0092 50,53  340 009D 51,54  360 00AB 55,57  400 00AE 36,59,65,66  500 00B4 36,62  600 00BA 36,65  700 00BB 36,66  DTLEDT 00BE 1 jj : FTN 3.3B (OPT = PLC) DTLPAL PAGE 1 DATE: 07/24/84 TIME: 0847 / 1 SUBROUTINE DTLPAL 00010   / 2 INTEGER KEY(9), LINE(70), STRING(40), SAVSTR(40), PAGENR 00030 / 3 INTEGER EFSTAT, LOCKED 00040 / 4 DATA EFSTAT / $8100 / 00050 / 5 DATA LOCKED / $8080 / 00060 / 6 INTEGER LMASBL(2), LACFBL(2) 00070 / 7 DATA LMASBL / '0360' / 00080 / 8 DATA LACFBL / '0482' / 00090 / 9 INTEGER TTLINE(70) 00100 jj/ 10 DATA TTLINE / ' DATE AC RS LT COLL *', 12*$2A2A, 00110 / 10 + 'COMMENT*', 12*$2A2A , 29*' '/ 00120   / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030  / 11 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 / 12 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 13 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 14 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 15 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 jj/ 16 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 17 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 18 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 19 INTEGER SDATA(04) 00130 / 20 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 21 INTEGER TXTMAX, TXTBFR(3500) 00150  / 22 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 23 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 / 24 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 25 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 26 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 27 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 jj/ 28 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 29 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 30 COMMON /DTLBLK / SDATA 00250 / 31 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 32 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290  / 33 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310  / 34 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 34 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 34 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350 jj / 35 INTEGER USER(4),GRPBUF(10) 00370 / 35 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  : FTN 3.3B (OPT = PLC) DTLPAL PAGE 2 DATE: 07/24/84 TIME: 0847 / 36 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 / 37 COMMON /DTLBLK / USER,GRPBUF 00410 / 38 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420  / C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460  jj / 39 CALL CCSBLK( LINE,PAGCOL ) 00160 / 40 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00170 / 41 CALL SYSPRT( TTLINE,1,SYSPRM,0 ) 00180 / 42 LINENR=LINENR+2 00190 / 43 PAGENR=1 00200 / 44 LASTBL=0 00210 / 45 CALL CCSMVA(MBUF,1,16,KEY,1,16) 00220 / 46 KEY(9)= 0 00230 / 47 20 CALL READR(AREQ,ABUF,KEY,ASTAT) 00240 / 48 IF ( AND(ASTAT,EFSTAT).EQ.EFSTAT ) GOTO 50 00250 / 49 IF ( AND(ASTAT,LOCKED).EQ.LOCKED ) GOTO 20 00260 / 50 IF ( ASTAT.LT.0 ) GOTO 810 00270 jj/ 51 CALL CCSCST(MBUF,1,16,ABUF,1,16,IFLAG) 00280 / 52 IF ( IFLAG.NE.0 ) GOTO 50 00290 / 53 CALL GETACF(SAVSTR,ABUF(10),LACFBL,IOSW) 00300 / 54 GOTO 110 00310  / C EXTRACT ACTIVITY FROM DELQMST RECORD 00330  / 55 50 LASTBL=-1 00350 / 56 110 CALL GETACF(STRING,MBUF(154),LMASBL,IOSW) 00360 / 57 IF ( IOSW.EQ.2H01 ) GOTO 130 00370 / 58 IF ( LASTBL.NE.0 ) GOTO 120 00380 / 59 CALL CCSCST(STRING,1,6,SAVSTR,1,6,IFLAG) 00390 / 60 IF ( IFLAG.EQ.0 ) GOTO 200 00400 jj/ 61 120 ASSIGN 110 TO IRTN 00410 / 62 GOTO 400 00420  / C EXTRACT ACTIVITY FROM ACTFIL RECORD 00440  / 63 130 IF ( LASTBL.NE.0 ) RETURN 00460 / 64 200 IOSW=2H01 00470 / 65 210 CALL GETACF(STRING,ABUF(10),LACFBL,IOSW) 00480 / 66 IF ( IOSW.EQ.2H01 ) GOTO 220 00490 / 67 ASSIGN 210 TO IRTN 00500 / 68 GOTO 400 00510  / 69 220 CALL GETS(AREQ,ABUF,KEY,ASTAT) 00530 jj/ 70 IF ( AND(ASTAT,EFSTAT).EQ.EFSTAT ) RETURN 00540 / 71 IF ( ASTAT.LT.0 ) GOTO 820 00550 / 72 CALL CCSCST(MBUF,1,16,ABUF,1,16,IFLAG) 00560 / 73 IF ( IFLAG.EQ.0 ) GOTO 200 00570 / 74 RETURN 00580  / 75 400 IF ( LINENR.LE.60 ) GOTO 401 00600 : FTN 3.3B (OPT = PLC) DTLPAL PAGE 3 DATE: 07/24/84 TIME: 0847 / 76 IF ( NPAGES.EQ.0 ) RETURN 00610 / 77 PAGENR=PAGENR+1 00620 / 78 CALL DTLPRH(PAGENR) 00630 / 79 401 CALL CCSBLK(LINE,PAGCOL) 00640 / 80 CALL DTLAED(STRING,LINE(2)) 00650 jj/ 81 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00660 / 82 LINENR=LINENR + 1 00670 / 83 GOTO IRTN 00680  / 84 810 CALL FILERR(ADATA,13,ASTAT,5) 00700 / 85 CALL DTLCDS 00710 / 86 CALL PGMOUT 00720 / 87 820 CALL FILERR(ADATA,14,ASTAT,5) 00730 / 88 CALL DTLCDS 00740 / 89 CALL PGMOUT 00750  / 90 END 00770 : FTN 3.3B (OPT = PLC) DTLPAL PAGE 4 DATE: 07/24/84 TIME: 0847 jj COMMON LABEL $1EC0 ( 7872)    PROGRAM LENGTH $01CE ( 462)   EXTERNALS  CCSBLK SYSPRT CCSMVA READR CCSCST GETACF GETS  DTLPRH DTLAED FILERR DTLCDS PGMOUT  : FTN 3.3B (OPT = PLC) DTLPAL PAGE 5 DATE: 07/24/84 TIME: 0847  ***** L I S T O F S Y M B O L S *****  jj  CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :  # 0000 (0) 0001 40,41,44,46,50,52,58,60,63,71,73,76,81 ! 0001 (1) 0000 34,40,41,43,45,51,55,59,72,77,81,82  0005 (5) 00F6 84,87  0006 (6) 00F3 59,59  000D (13) 00F5 84  000E (14) 00F7 87  0010 (16) 00EF 45,45,51,72 jj 3031 (12337) 00F2 57,64,66    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 10,25,47,51,53,65,69,72  ACOUNT INTEGER 0002 D 10,22  ACTGRP INTEGER 0000 D 10,22  ADATA INTEGER 005A D 10,25,84,87  AFTLL INTEGER 0AB7 D 10,31 jj ALNCL INTEGER 0797 D 10,31  AND INTR.FN. 7FFF 48,49,70  APOS INTEGER 0DD7 D 10,31  AREQ INTEGER 0069 D 10,25,47,69 ASTAT INTEGER 0059 D 10,25,47,48,49,50,69,70,71,84,87  CBUF INTEGER 01A3 D 10,26  CDATA INTEGER 017C D 10,26  CREQ INTEGER 018B D 10,26  CSTAT INTEGER 017B D 10,26  DATE INTEGER 000F D 10,23  DBUF INTEGER 0280 D 10,27  DDATA INTEGER 0259 D 10,27  DREQ INTEGER 0268 D 10,27 jj DSTAT INTEGER 0258 D 10,27  EFSTAT INTEGER 00A2 1,4,48,70  GRPBUF INTEGER 1EAE D 34,37  HDRS INTEGER 0012 D 10,23  IALL INTEGER 1EBD D 34,38  IEJT INTEGER 0058 D 10,24  IFLAG INTEGER 00F0 51,52,59,60,72,73  IMODE INTEGER 1EBC D 34,38  INAMSK INTEGER 0057 D 10,24  IOPT INTEGER 1EBE D 34,38  IOSW INTEGER 00F1 53,56,57,64,65,66  IPF INTEGER 1EA6 D 32,34,36  IRTN INTEGER 00F4 61,67,83 jj: FTN 3.3B (OPT = PLC) DTLPAL PAGE 6 DATE: 07/24/84 TIME: 0847  ISERR INTEGER 1EA8 D 32,34,36  ITEMAX INTEGER 0796 D 10,31  ITF INTEGER 1EBF D 34,38  IWAY INTEGER 1EBB D 34,38  KEY INTEGER 0002 1,45,46,47,69  LACFBL INTEGER 00A6 5,8,53,65  LASTBL INTEGER 00EE 43,44,55,58,63  LASTIT INTEGER 000A D 10,22  LINE INTEGER 000B 1,39,40,79,80,81  LINENR INTEGER 0001 D 10,22,42,75,82  LMASBL INTEGER 00A4 5,7,56  LOCKED INTEGER 00A3 1,5,49 jj LU INTEGER 1EB8 D 34,38  MBUF INTEGER 0368 D 10,28,45,51,56,72  MDATA INTEGER 0341 D 10,28  MREQ INTEGER 0350 D 10,28  MSTAT INTEGER 0340 D 10,28  NACCT INTEGER 000C D 10,23  NBUF INTEGER 0778 D 10,29  NDATA INTEGER 0751 D 10,29  NERROR INTEGER 000B D 10,23  NLINE INTEGER 1EA7 D 32,34,36  NLU INTEGER 1EA5 D 32,34,36  NPAGES INTEGER 000D D 10,23,76  NPORT INTEGER 1EBA D 34,38 jj NREQ INTEGER 0760 D 10,29  NSTAT INTEGER 0750 D 10,29  NU INTEGER 1EA9 D 32,34,36  PAGCOL INTEGER 000E D 10,23,39,79  PAGENR INTEGER 00A1 1,43,77,78  PLN INTEGER 1EA4 D 32,34,36  PLU INTEGER 1EB9 D 34,38  SAVSTR INTEGER 0079 1,53,59  SDATA INTEGER 0792 D 10,30  STRING INTEGER 0051 1,56,59,65,80  SUPNAM INTEGER 004E D 10,24  SWITCH INTEGER 0056 D 10,24  SYSPRM INTEGER 1EA4 D 32,34,40,41,81 jj TTLINE INTEGER 00A8 8,10,41  TXTBFR INTEGER 10F8 D 10,32  TXTMAX INTEGER 10F7 D 10,32  USER INTEGER 1EAA D 34,37    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSBLK SUBROUTINE 01A6 38,79  CCSCST SUBROUTINE 0134 50,59,72 jj CCSMVA SUBROUTINE 010F 44  DTLAED SUBROUTINE 01AA 79  DTLCDS SUBROUTINE 01BD 84,88 : FTN 3.3B (OPT = PLC) DTLPAL PAGE 7 DATE: 07/24/84 TIME: 0847  DTLPRH SUBROUTINE 01A3 77  FILERR SUBROUTINE 01B7 84,87  GETACF SUBROUTINE 0140 52,56,65  GETS SUBROUTINE 017A 69  PGMOUT SUBROUTINE 01BF 84,89  READR SUBROUTINE 011A 46  SYSPRT SUBROUTINE 01AE 39,41,81   jj LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   20 0119 46,49  50 0146 48,52,55  110 0148 53,56,61  120 015F 58,61  130 0163 57,63  200 0168 60,64,73  210 016C 64,67  220 0179 66,69 jj 400 0197 61,68,75  401 01A5 75,79  810 01B6 50,84  820 01C0 71,87  DTLPAL 01C9 1  : FTN 3.3B (OPT = PLC) DTLPRB PAGE 1 DATE: 07/24/84 TIME: 0848 / 1 SUBROUTINE DTLPRB 00010   / C DTLPRB PRINT REPORT BODY 00030  / 2 INTEGER LINE(70), BUFFER(40) 00050 jj  / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030  / 3 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 / 4 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 5 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 6 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 7 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 8 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 9 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 jj/ 10 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 11 INTEGER SDATA(04) 00130 / 12 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 13 INTEGER TXTMAX, TXTBFR(3500) 00150  / 14 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 15 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 / 16 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 17 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 18 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 19 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 20 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 21 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 jj/ 22 COMMON /DTLBLK / SDATA 00250 / 23 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 24 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290  / 25 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310  / 26 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 26 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 26 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  / 27 INTEGER USER(4),GRPBUF(10) 00370 jj/ 27 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 28 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 / 29 COMMON /DTLBLK / USER,GRPBUF 00410 / 30 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420  / C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460 : FTN 3.3B (OPT = PLC) DTLPRB PAGE 2 DATE: 07/24/84 TIME: 0848   / 31 CALL DTLPRH(1) 00090 jj/ 32 CALL CCSBLK(LINE,PAGCOL) 00100 / 33 DO 299 IX=1,LASTIT 00110 / 34 ILN=ALNCL(IX)/$0100 00120 / 35 ICL=AND(ALNCL(IX),$00FF) 00130  / 36 220 IF ( ILN.EQ.LINENR ) GOTO 240 00150 / 37 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00160 / 38 LINENR=LINENR+1 00170 / 39 CALL CCSBLK(LINE,PAGCOL) 00180 / 40 GOTO 220 00190  / 41 240 CALL DTLEDT(IX,BUFFER,LENGTH) 00210 / 42 CALL CCSMVA(BUFFER,1,LENGTH,LINE,ICL+1,LENGTH) 00220 jj/ 43 299 CONTINUE 00230 / 44 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00240 / 45 LINENR=LINENR+1 00250 / 46 RETURN 00260  / 47 END 00280 : FTN 3.3B (OPT = PLC) DTLPRB PAGE 3 DATE: 07/24/84 TIME: 0848  COMMON LABEL $1EC0 ( 7872)    PROGRAM LENGTH $00BB ( 187)  jj EXTERNALS  DTLPRH CCSBLK SYSPRT DTLEDT CCSMVA  : FTN 3.3B (OPT = PLC) DTLPRB PAGE 4 DATE: 07/24/84 TIME: 0848  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   0000 (0) 0001 37,44 jj 0001 (1) 0000 26,31,33,37,38,42,44,45  00FF (255) 0073 35    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 1,17  ACOUNT INTEGER 0002 D 1,14  ACTGRP INTEGER 0000 D 1,14  ADATA INTEGER 005A D 1,17 jj AFTLL INTEGER 0AB7 D 1,23  ALNCL INTEGER 0797 D 1,23,34,35  AND INTR.FN. 7FFF 35  APOS INTEGER 0DD7 D 1,23  AREQ INTEGER 0069 D 1,17  ASTAT INTEGER 0059 D 1,17  BUFFER INTEGER 0048 1,41,42  CBUF INTEGER 01A3 D 1,18  CDATA INTEGER 017C D 1,18  CREQ INTEGER 018B D 1,18  CSTAT INTEGER 017B D 1,18  DATE INTEGER 000F D 1,15  DBUF INTEGER 0280 D 1,19 jj DDATA INTEGER 0259 D 1,19  DREQ INTEGER 0268 D 1,19  DSTAT INTEGER 0258 D 1,19  GRPBUF INTEGER 1EAE D 26,29  HDRS INTEGER 0012 D 1,15  IALL INTEGER 1EBD D 26,30  ICL INTEGER 0072 34,35,42  IEJT INTEGER 0058 D 1,16  ILN INTEGER 0071 33,34,36  IMODE INTEGER 1EBC D 26,30  INAMSK INTEGER 0057 D 1,16  IOPT INTEGER 1EBE D 26,30  IPF INTEGER 1EA6 D 24,26,28 jj ISERR INTEGER 1EA8 D 24,26,28  ITEMAX INTEGER 0796 D 1,23  ITF INTEGER 1EBF D 26,30  IWAY INTEGER 1EBB D 26,30  IX INTEGER 0070 32,34,35,41  LASTIT INTEGER 000A D 1,14,33 : FTN 3.3B (OPT = PLC) DTLPRB PAGE 5 DATE: 07/24/84 TIME: 0848  LENGTH INTEGER 0074 41,42  LINE INTEGER 0002 1,32,37,39,42,44  LINENR INTEGER 0001 D 1,14,36,38,45  LU INTEGER 1EB8 D 26,30  MBUF INTEGER 0368 D 1,20  MDATA INTEGER 0341 D 1,20 jj MREQ INTEGER 0350 D 1,20  MSTAT INTEGER 0340 D 1,20  NACCT INTEGER 000C D 1,15  NBUF INTEGER 0778 D 1,21  NDATA INTEGER 0751 D 1,21  NERROR INTEGER 000B D 1,15  NLINE INTEGER 1EA7 D 24,26,28  NLU INTEGER 1EA5 D 24,26,28  NPAGES INTEGER 000D D 1,15  NPORT INTEGER 1EBA D 26,30  NREQ INTEGER 0760 D 1,21  NSTAT INTEGER 0750 D 1,21  NU INTEGER 1EA9 D 24,26,28 jj PAGCOL INTEGER 000E D 1,15,32,39  PLN INTEGER 1EA4 D 24,26,28  PLU INTEGER 1EB9 D 26,30  SDATA INTEGER 0792 D 1,22  SUPNAM INTEGER 004E D 1,16  SWITCH INTEGER 0056 D 1,16  SYSPRM INTEGER 1EA4 D 24,26,37,44  TXTBFR INTEGER 10F8 D 1,24  TXTMAX INTEGER 10F7 D 1,24  USER INTEGER 1EAA D 26,29    EXTERNALS : jj ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSBLK SUBROUTINE 0079 31,39  CCSMVA SUBROUTINE 00A4 41  DTLEDT SUBROUTINE 009C 41  DTLPRH SUBROUTINE 0076 30  SYSPRT SUBROUTINE 0091 36,44   LABELED STATEMENTS : ------------------ jj  LABEL ADDRESS REFERENCED BY STATEMENT NB :   220 008B 35,40  240 009B 36,41  299 00AB 32,43  DTLPRB 00B7 1  : FTN 3.3B (OPT = PLC) DTLPRH PAGE 1 DATE: 07/24/84 TIME: 0849 / 1 SUBROUTINE DTLPRH(PAGENR) 00010  / C DTLPRH PRINT REPORT HEADER 00030  jj/ 2 INTEGER PAGENR 00050  / 3 INTEGER LINE(70), TEMP(3) 00070 / 4 INTEGER PAGE(5), TTL1(13), TTL2(6), TTL3(7) 00080 / 5 DATA PAGE / 'PAGE '/ 00090 / 6 DATA TTL1 / 'DELINQUENT RECORD CONTENTS' / 00100 / 7 DATA TTL2 / 'SUPERVISOR: ' / 00110 / 8 DATA TTL3 / 'AS OF ??/??/??' / 00120   / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030 jj / 9 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 / 10 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 11 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 12 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 13 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 14 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 15 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 16 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 17 INTEGER SDATA(04) 00130 / 18 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 19 INTEGER TXTMAX, TXTBFR(3500) 00150  jj/ 20 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 21 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 / 22 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 23 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 24 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 25 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 26 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 27 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 28 COMMON /DTLBLK / SDATA 00250 / 29 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 30 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290 jj / 31 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310  / 32 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 32 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 32 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  / 33 INTEGER USER(4),GRPBUF(10) 00370 / 33 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 34 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 : FTN 3.3B (OPT = PLC) DTLPRH PAGE 2 DATE: 07/24/84 TIME: 0849 / 35 COMMON /DTLBLK / USER,GRPBUF 00410 jj/ 36 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420  / C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460 / 37 SYSPRM(1) = 132 00150 / 38 CALL CCSPUT( IEJT,1,LINE ) 00160 / 39 CALL CCSMVA(HDRS(1,1),1,40,LINE,2,PAGCOL) 00170 / 40 CALL CCSMVA(TTL1,1,26,LINE,51,26) 00180 / 41 IF ( AND(SWITCH,INAMSK).NE.0 ) GOTO 100 00190 / 42 CALL CCSMVA(TTL2,1,11,LINE,91,11) 00200 / 43 CALL CCSMVA(SUPNAM,1,16,LINE,102,16) 00210 / 44 100 CALL BHXDEC(PAGENR,TEMP) 00220 jj/ 45 CALL CCSMVA(TEMP,3,4,PAGE,6,4) 00230 / 46 CALL CCSMVA(PAGE,1,10,LINE,PAGCOL-12,10) 00240 / 47 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00250  / 48 CALL CCSBLK( LINE,PAGCOL ) 00270 / 49 CALL CCSMVA(HDRS(1,2),1,40,LINE,2,PAGCOL) 00280 / 50 CALL EDIT(DATE,1,TTL3,7,1) 00290 / 51 CALL CCSMVA(TTL3,1,14,LINE,57,14) 00300 / 52 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00310  / 53 CALL CCSMVA(HDRS(1,3),1,40,LINE,2,PAGCOL) 00330 / 54 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00340  jj/ 55 CALL CCSBLK(LINE,PAGCOL) 00360 / 56 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00370 / 57 LINENR=5 00380 / 58 RETURN 00390  / 59 END 00410 : FTN 3.3B (OPT = PLC) DTLPRH PAGE 3 DATE: 07/24/84 TIME: 0849  COMMON LABEL $1EC0 ( 7872)    PROGRAM LENGTH $0105 ( 261)  jj EXTERNALS  Q8PKUP Q8PREP CCSPUT CCSMVA BHXDEC SYSPRT CCSBLK  EDIT  : FTN 3.3B (OPT = PLC) DTLPRH PAGE 4 DATE: 07/24/84 TIME: 0849  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :  jj 0000 (0) 0001 41,47,52,54,56 ' 0001 (1) 0000 32,37,38,39,40,42,43,46,47,49,50,51,52,53,54,56  0002 (2) 006C 39,49,53  0003 (3) 0073 45,53  0004 (4) 0074 45,45  0006 (6) 0075 45  0007 (7) 0077 50  000A (10) 0076 46,46  000B (11) 006F 42,42  000E (14) 0078 51,51  0010 (16) 0071 43,43  001A (26) 006D 40,40  0028 (40) 006B 39,49,53 jj 0033 (51) 006E 40  0039 (57) 0079 51  005B (91) 0070 42  0066 (102) 0072 43  0084 (132) 006A 37    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 8,23 jj ACOUNT INTEGER 0002 D 8,20  ACTGRP INTEGER 0000 D 8,20  ADATA INTEGER 005A D 8,23  AFTLL INTEGER 0AB7 D 8,29  ALNCL INTEGER 0797 D 8,29  AND INTR.FN. 7FFF 41  APOS INTEGER 0DD7 D 8,29  AREQ INTEGER 0069 D 8,23  ASTAT INTEGER 0059 D 8,23  CBUF INTEGER 01A3 D 8,24  CDATA INTEGER 017C D 8,24  CREQ INTEGER 018B D 8,24  CSTAT INTEGER 017B D 8,24 jj DATE INTEGER 000F D 8,21,50  DBUF INTEGER 0280 D 8,25  DDATA INTEGER 0259 D 8,25  DREQ INTEGER 0268 D 8,25  DSTAT INTEGER 0258 D 8,25  GRPBUF INTEGER 1EAE D 32,35  HDRS INTEGER 0012 D 8,21,39,49,53 : FTN 3.3B (OPT = PLC) DTLPRH PAGE 5 DATE: 07/24/84 TIME: 0849  IALL INTEGER 1EBD D 32,36  IEJT INTEGER 0058 D 8,22,38  IMODE INTEGER 1EBC D 32,36  INAMSK INTEGER 0057 D 8,22,41  IOPT INTEGER 1EBE D 32,36 jj IPF INTEGER 1EA6 D 30,32,34  ISERR INTEGER 1EA8 D 30,32,34  ITEMAX INTEGER 0796 D 8,29  ITF INTEGER 1EBF D 32,36  IWAY INTEGER 1EBB D 32,36  LASTIT INTEGER 000A D 8,20 ' LINE INTEGER 0002 2,38,39,40,42,43,46,47,48,49,51,52,53,54,55,56  LINENR INTEGER 0001 D 8,20,57  LU INTEGER 1EB8 D 32,36  MBUF INTEGER 0368 D 8,26  MDATA INTEGER 0341 D 8,26  MREQ INTEGER 0350 D 8,26  MSTAT INTEGER 0340 D 8,26 jj NACCT INTEGER 000C D 8,21  NBUF INTEGER 0778 D 8,27  NDATA INTEGER 0751 D 8,27  NERROR INTEGER 000B D 8,21  NLINE INTEGER 1EA7 D 30,32,34  NLU INTEGER 1EA5 D 30,32,34  NPAGES INTEGER 000D D 8,21  NPORT INTEGER 1EBA D 32,36  NREQ INTEGER 0760 D 8,27  NSTAT INTEGER 0750 D 8,27  NU INTEGER 1EA9 D 30,32,34  PAGCOL INTEGER 000E D 8,21,39,46,48,49,53,55  PAGE INTEGER 004B 2,5,45,46 jj PAGENR INTEGER 7FFF 1,2,44  PLN INTEGER 1EA4 D 30,32,34  PLU INTEGER 1EB9 D 32,36  SDATA INTEGER 0792 D 8,28  SUPNAM INTEGER 004E D 8,22,43  SWITCH INTEGER 0056 D 8,22,41  SYSPRM INTEGER 1EA4 D 30,32,37,47,52,54,56  TEMP INTEGER 0048 2,44,45  TTL1 INTEGER 0050 2,6,40  TTL2 INTEGER 005D 2,7,42  TTL3 INTEGER 0063 2,8,50,51  TXTBFR INTEGER 10F8 D 8,30  TXTMAX INTEGER 10F7 D 8,30 jj USER INTEGER 1EAA D 32,35 : FTN 3.3B (OPT = PLC) DTLPRH PAGE 6 DATE: 07/24/84 TIME: 0849    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   BHXDEC SUBROUTINE 00A6 44  CCSBLK SUBROUTINE 00C2 47,55  CCSMVA SUBROUTINE 0083 38,40,42,43,45,46,49,51,53  CCSPUT SUBROUTINE 007E 37 jj EDIT SUBROUTINE 00CD 49  Q8PKUP INTEGER.FN. 0100  Q8PREP INTEGER.FN. 00FD  SYSPRT SUBROUTINE 00BC 46,52,54,56   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 00A5 41,44  DTLPRH 00FA 1 jj: FTN 3.3B (OPT = PLC) DTLRBF PAGE 1 DATE: 07/24/84 TIME: 0849 / 1 SUBROUTINE DTLRBF(STATUS) 00010 / 1 1 /CCS3.0 X SL-XXX 00020   / C** CYBERCREDIT FINANCIAL SERVICES. 00050 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00060 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00070 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00080 / C** 00090 / C** ************ 05/26/84 ************ PROGRAMMER : RWE 00100  / C DTLRBF READ BORROWER'S FILES 00120 jj / 2 INTEGER STATUS 00140  / 3 INTEGER KEY(15),MSG(33) ,LINE(66) 00160  / 4 DATA MSG / '1*** ERROR *** ACCOUNT ???????????????', 00180 / 4 + ' NOT FOUND IN FILE XXXXXXXX' / 00190  / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030  / 5 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 jj/ 6 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 7 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 8 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 9 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 10 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 11 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 12 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 13 INTEGER SDATA(04) 00130 / 14 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 15 INTEGER TXTMAX, TXTBFR(3500) 00150  / 16 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 17 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 jj/ 18 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 19 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 20 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 21 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 22 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 23 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 24 COMMON /DTLBLK / SDATA 00250 / 25 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 26 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290  / 27 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310 jj / 28 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 28 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 : FTN 3.3B (OPT = PLC) DTLRBF PAGE 2 DATE: 07/24/84 TIME: 0849 / 28 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  / 29 INTEGER USER(4),GRPBUF(10) 00370 / 29 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 30 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 / 31 COMMON /DTLBLK / USER,GRPBUF 00410 / 32 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420  jj/ C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460  / 33 CALL CCSMVA(ACOUNT,1,16,KEY,1,16) 00230 / 34 CALL READR(MREQ,MBUF,KEY,MSTAT) 00240 / 35 IF( AND(MSTAT,$300 ).NE.0 ) GO TO 9003 00250 / 36 IF ( MSTAT.LT.0 ) GOTO 9000 00260 / 37 CALL READR(CREQ,CBUF,KEY,CSTAT) 00270 / 38 IF ( AND(CSTAT,$300).NE.0 ) GO TO 100 00280 / 39 IF ( CSTAT.LT.0 ) GOTO 9002 00290 / 40 STATUS=0 00300 / 41 RETURN 00310 jj / 42 100 CALL CCSBLK(CBUF,362) 00330 / 43 STATUS=0 00340 / 44 RETURN 00350  / 45 9000 CALL FILERR(MDATA,13,MSTAT,5) 00370 / 46 GOTO 9999 00380 / 47 9002 CALL FILERR(CDATA,13,CSTAT,5) 00390 / 48 GOTO 9999 00400 / 49 9003 CONTINUE 00410 / 50 CALL CCSPUT( IEJT,1,MSG ) 00420 / 51 CALL CCSMVA( ACOUNT,1,16,MSG,24,16 ) 00430 / 52 CALL CCSMVA( MDATA,1,8,MSG,59,8 ) 00440 jj/ 53 CALL CCSMVA( MSG,1,66,LINE,1,132) 00450  / 54 CALL SYSPRT( LINE,1,SYSPRM,0 ) 00470 / 55 CALL CCSBLK( LINE,1 ) 00480 / 56 CALL SYSPRT( LINE,04,SYSPRM,0 ) 00490  / 57 9999 STATUS=1 00510 / 58 NERROR=NERROR+1 00520 / 59 RETURN 00530  / 60 END 00550 : FTN 3.3B (OPT = PLC) DTLRBF PAGE 3 DATE: 07/24/84 TIME: 0849  COMMON jj LABEL $1EC0 ( 7872)    PROGRAM LENGTH $00F6 ( 246)   EXTERNALS  Q8PKUP Q8PREP CCSMVA READR CCSBLK FILERR CCSPUT  SYSPRT  : FTN 3.3B (OPT = PLC) DTLRBF PAGE 4 DATE: 07/24/84 TIME: 0849  ***** L I S T O F S Y M B O L S *****   jj CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   0000 (0) 0001 35,36,38,39,40,43,54,56  0001 (1) 0000 28,33,50,51,52,53,54,55,57,58  0004 (4) 007E 56  0005 (5) 0078 45,47  0008 (8) 007A 52,52  000D (13) 0077 45,47  0010 (16) 0074 33,33,51  0018 (24) 0079 51 jj 003B (59) 007B 52  0042 (66) 007C 53  0084 (132) 007D 53  016A (362) 0076 42  0300 (768) 0075 35,38    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 4,19 jj ACOUNT INTEGER 0002 D 4,16,33,51  ACTGRP INTEGER 0000 D 4,16  ADATA INTEGER 005A D 4,19  AFTLL INTEGER 0AB7 D 4,25  ALNCL INTEGER 0797 D 4,25  AND INTR.FN. 7FFF 35,38  APOS INTEGER 0DD7 D 4,25  AREQ INTEGER 0069 D 4,19  ASTAT INTEGER 0059 D 4,19  CBUF INTEGER 01A3 D 4,20,37,42  CDATA INTEGER 017C D 4,20,47  CREQ INTEGER 018B D 4,20,37  CSTAT INTEGER 017B D 4,20,37,38,39,47 jj DATE INTEGER 000F D 4,17  DBUF INTEGER 0280 D 4,21  DDATA INTEGER 0259 D 4,21  DREQ INTEGER 0268 D 4,21  DSTAT INTEGER 0258 D 4,21  GRPBUF INTEGER 1EAE D 28,31  HDRS INTEGER 0012 D 4,17  IALL INTEGER 1EBD D 28,32  IEJT INTEGER 0058 D 4,18,50  IMODE INTEGER 1EBC D 28,32  INAMSK INTEGER 0057 D 4,18  IOPT INTEGER 1EBE D 28,32 : FTN 3.3B (OPT = PLC) DTLRBF PAGE 5 DATE: 07/24/84 TIME: 0849 jj IPF INTEGER 1EA6 D 26,28,30  ISERR INTEGER 1EA8 D 26,28,30  ITEMAX INTEGER 0796 D 4,25  ITF INTEGER 1EBF D 28,32  IWAY INTEGER 1EBB D 28,32  KEY INTEGER 0002 2,33,34,37  LASTIT INTEGER 000A D 4,16  LINE INTEGER 0032 2,53,54,55,56  LINENR INTEGER 0001 D 4,16  LU INTEGER 1EB8 D 28,32  MBUF INTEGER 0368 D 4,22,34  MDATA INTEGER 0341 D 4,22,45,52  MREQ INTEGER 0350 D 4,22,34 jj MSG INTEGER 0011 2,4,50,51,52,53  MSTAT INTEGER 0340 D 4,22,34,35,36,45  NACCT INTEGER 000C D 4,17  NBUF INTEGER 0778 D 4,23  NDATA INTEGER 0751 D 4,23  NERROR INTEGER 000B D 4,17,58  NLINE INTEGER 1EA7 D 26,28,30  NLU INTEGER 1EA5 D 26,28,30  NPAGES INTEGER 000D D 4,17  NPORT INTEGER 1EBA D 28,32  NREQ INTEGER 0760 D 4,23  NSTAT INTEGER 0750 D 4,23  NU INTEGER 1EA9 D 26,28,30 jj PAGCOL INTEGER 000E D 4,17  PLN INTEGER 1EA4 D 26,28,30  PLU INTEGER 1EB9 D 28,32  SDATA INTEGER 0792 D 4,24  STATUS INTEGER 7FFF 1,2,40,43,57  SUPNAM INTEGER 004E D 4,18  SWITCH INTEGER 0056 D 4,18  SYSPRM INTEGER 1EA4 D 26,28,54,56  TXTBFR INTEGER 10F8 D 4,26  TXTMAX INTEGER 10F7 D 4,26  USER INTEGER 1EAA D 28,31   jj EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSBLK SUBROUTINE 00AA 42,55  CCSMVA SUBROUTINE 0080 32,51,52,53  CCSPUT SUBROUTINE 00BE 49  FILERR SUBROUTINE 00B1 45,47  Q8PKUP INTEGER.FN. 00F2  Q8PREP INTEGER.FN. 00EF  READR SUBROUTINE 0088 33,37  SYSPRT SUBROUTINE 00D8 53,56 jj: FTN 3.3B (OPT = PLC) DTLRBF PAGE 6 DATE: 07/24/84 TIME: 0849   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 00A9 38,42  9000 00B0 36,45  9002 00B7 39,47  9003 00BD 35,49  9999 00E5 45,48,57 jj DTLRBF 00EC 1 : FTN 3.3B (OPT = PLC) DTLRDS PAGE 1 DATE: 07/24/84 TIME: 0850 / 1 SUBROUTINE DTLRDS 00010   / C DTLRDS SEQUENTIAL READ DTLLST0X FM FILE 00030   / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030  / 2 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 jj/ 3 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 4 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 5 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 6 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 7 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 8 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 9 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 10 INTEGER SDATA(04) 00130 / 11 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 12 INTEGER TXTMAX, TXTBFR(3500) 00150  / 13 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 14 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 jj/ 15 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 16 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 17 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 18 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 19 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 20 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 21 COMMON /DTLBLK / SDATA 00250 / 22 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 23 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290  / 24 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310 jj / 25 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 25 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 25 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  / 26 INTEGER USER(4),GRPBUF(10) 00370 / 26 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 27 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 / 28 COMMON /DTLBLK / USER,GRPBUF 00410 / 29 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420  / C****************************************************************** 00440 jj/ C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460   : FTN 3.3B (OPT = PLC) DTLRDS PAGE 2 DATE: 07/24/84 TIME: 0850 / 30 CALL GETS(DREQ,DBUF(97),0,DSTAT) 00070 / 31 IF ( DSTAT.LT.0 ) GOTO 100 00080 / 32 DSTAT=0 00090 / 33 RETURN 00100  / 34 100 IF ( AND(DSTAT,$8100).NE.$8100 ) GOTO 200 00120 / 35 RETURN 00130  jj/ 36 200 CALL FILERR(DDATA,14,DSTAT,5) 00150 / 37 CALL DTLCDS 00160 / 38 CALL PGMOUT 00170  / 39 END 00190 : FTN 3.3B (OPT = PLC) DTLRDS PAGE 3 DATE: 07/24/84 TIME: 0850  COMMON LABEL $1EC0 ( 7872)    PROGRAM LENGTH $0026 ( 38)   EXTERNALS jj GETS FILERR DTLCDS PGMOUT  : FTN 3.3B (OPT = PLC) DTLRDS PAGE 4 DATE: 07/24/84 TIME: 0850  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   8100 (-32511) 0001 34,34  0000 (0) 0000 30,31,32 jj 0005 (5) 0003 36  000E (14) 0002 36    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 1,16  ACOUNT INTEGER 0002 D 1,13  ACTGRP INTEGER 0000 D 1,13  ADATA INTEGER 005A D 1,16 jj AFTLL INTEGER 0AB7 D 1,22  ALNCL INTEGER 0797 D 1,22  AND INTR.FN. 7FFF 34  APOS INTEGER 0DD7 D 1,22  AREQ INTEGER 0069 D 1,16  ASTAT INTEGER 0059 D 1,16  CBUF INTEGER 01A3 D 1,17  CDATA INTEGER 017C D 1,17  CREQ INTEGER 018B D 1,17  CSTAT INTEGER 017B D 1,17  DATE INTEGER 000F D 1,14  DBUF INTEGER 0280 D 1,18,30  DDATA INTEGER 0259 D 1,18,36 jj DREQ INTEGER 0268 D 1,18,30  DSTAT INTEGER 0258 D 1,18,30,31,32,34,36  GRPBUF INTEGER 1EAE D 25,28  HDRS INTEGER 0012 D 1,14  IALL INTEGER 1EBD D 25,29  IEJT INTEGER 0058 D 1,15  IMODE INTEGER 1EBC D 25,29  INAMSK INTEGER 0057 D 1,15  IOPT INTEGER 1EBE D 25,29  IPF INTEGER 1EA6 D 23,25,27  ISERR INTEGER 1EA8 D 23,25,27  ITEMAX INTEGER 0796 D 1,22  ITF INTEGER 1EBF D 25,29 jj IWAY INTEGER 1EBB D 25,29  LASTIT INTEGER 000A D 1,13  LINENR INTEGER 0001 D 1,13  LU INTEGER 1EB8 D 25,29  MBUF INTEGER 0368 D 1,19 : FTN 3.3B (OPT = PLC) DTLRDS PAGE 5 DATE: 07/24/84 TIME: 0850  MDATA INTEGER 0341 D 1,19  MREQ INTEGER 0350 D 1,19  MSTAT INTEGER 0340 D 1,19  NACCT INTEGER 000C D 1,14  NBUF INTEGER 0778 D 1,20  NDATA INTEGER 0751 D 1,20  NERROR INTEGER 000B D 1,14 jj NLINE INTEGER 1EA7 D 23,25,27  NLU INTEGER 1EA5 D 23,25,27  NPAGES INTEGER 000D D 1,14  NPORT INTEGER 1EBA D 25,29  NREQ INTEGER 0760 D 1,20  NSTAT INTEGER 0750 D 1,20  NU INTEGER 1EA9 D 23,25,27  PAGCOL INTEGER 000E D 1,14  PLN INTEGER 1EA4 D 23,25,27  PLU INTEGER 1EB9 D 25,29  SDATA INTEGER 0792 D 1,21  SUPNAM INTEGER 004E D 1,15  SWITCH INTEGER 0056 D 1,15 jj SYSPRM INTEGER 1EA4 D 23,25  TXTBFR INTEGER 10F8 D 1,23  TXTMAX INTEGER 10F7 D 1,23  USER INTEGER 1EAA D 25,28    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   DTLCDS SUBROUTINE 001D 36  FILERR SUBROUTINE 0017 36 jj GETS SUBROUTINE 0005 29  PGMOUT SUBROUTINE 001F 36   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 0011 31,34  200 0016 34,36  DTLRDS 0022 1  jj: FTN 3.3B (OPT = PLC) DTLRNR PAGE 1 DATE: 07/24/84 TIME: 0850 / 1 SUBROUTINE DTLRNR(STATUS) 00010   / C DTLRNR READ NEXT REQUEST 00030  / 2 INTEGER STATUS 00050  / 3 INTEGER EFSTAT, KEY(2) 00070 / 4 DATA EFSTAT / $8100 / 00080   / C******************************************************************DTLC1 00010 jj/ C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030  / 5 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 / 6 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 7 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 8 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 9 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 10 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 11 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 12 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 / 13 INTEGER SDATA(04) 00130 / 14 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 jj/ 15 INTEGER TXTMAX, TXTBFR(3500) 00150  / 16 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 17 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 / 18 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 19 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 20 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 21 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 22 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 23 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 24 COMMON /DTLBLK / SDATA 00250 / 25 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 26 COMMON /DTLBLK / TXTMAX, TXTBFR 00270 jj / C**** SYSPRT PARAMETERS........ 00290  / 27 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310  / 28 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 28 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 28 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  / 29 INTEGER USER(4),GRPBUF(10) 00370 / 29 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 30 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 jj/ 31 COMMON /DTLBLK / USER,GRPBUF 00410 / 32 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420  : FTN 3.3B (OPT = PLC) DTLRNR PAGE 2 DATE: 07/24/84 TIME: 0850 / C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460  / 33 10 CONTINUE 00120 / 34 IF ( AND(SWITCH,INAMSK).NE.0 ) GOTO 1000 00130  / C REQUESTS ARE FROM SREQDL 00150  jj/ 35 CALL GETS(NREQ,NBUF,0,NSTAT) 00170 / 36 IF ( NSTAT.LT.0 ) GOTO 100 00180 / 37 STATUS=0 00190 / 38 NACCT=NACCT+1 00200 / 39 CALL CCSMVA(NBUF,1,16,ACOUNT,1,16) 00210 / 40 CALL CCSGET(ACOUNT,1,ACTGRP) 00220 / 41 CALL CCSMVA(NBUF,17,4,KEY,1,4) 00230 / 42 CALL GETUTI( KEY,ABUF,IFOUND,IFER,0 ) 00240 / 43 IF( IFOUND.NE.0 ) CALL CCSMVA( KEY,1,4,ABUF,5,4 ) 00250 / 44 CALL CCSBLK(SUPNAM,16) 00260 / 45 CALL CCSMVA(ABUF,5,16,SUPNAM,1,16) 00270 / 46 GO TO 1050 00280  jj/ 47 100 STATUS=1 00300 / 48 IF ( AND(NSTAT,EFSTAT).EQ.EFSTAT ) RETURN 00310 / 49 CALL FILERR(NDATA,14,NSTAT,5) 00320 / 50 CALL DTLCDS 00330 / 51 CALL PGMOUT 00340  / C REQUESTS ARE FROM INACCT 00360  / 52 1000 CALL GETS(NREQ,NBUF,0,NSTAT) 00380 / 53 IF ( NSTAT.LT.0 ) GOTO 1100 00390 / 54 CALL CCSGET(NBUF,18,IPFLAG) 00400 / 55 IF ( IPFLAG.EQ.1RP ) GOTO 1000 00410 /+ + ; REQUEST ALREADY PROCESSED 00420 jj/ 56 NACCT=NACCT+1 00430 / 57 CALL CCSPUT(1RP,18,NBUF) 00440 / 58 CALL UPDREC(NREQ,NBUF,NSTAT) 00450 / 59 IF ( NSTAT.LT.0 ) GOTO 1200 00460 / 60 STATUS=0 00470 / 61 CALL CCSMVA(NBUF,1,16,ACOUNT,1,16) 00480 / 62 CALL CCSGET(NBUF,1,ACTGRP) 00490  / C*** CHECK IF ALLOWED ON THIS ACCOUNT GROUP.... 00510  / 63 1050 CONTINUE 00530 / 64 IF( ICKGRP(GRPBUF,IALL,NBUF,1).EQ.1 ) GO TO 10 00540 / 65 RETURN 00550 jj / 66 1100 STATUS=1 00570 / 67 IF ( AND(NSTAT,EFSTAT).EQ.EFSTAT ) RETURN 00580 / 68 CALL FILERR(NDATA,13,NSTAT,5) 00590 / 69 CALL DTLCDS 00600 / 70 CALL PGMOUT 00610  : FTN 3.3B (OPT = PLC) DTLRNR PAGE 3 DATE: 07/24/84 TIME: 0850 / 71 1200 CALL FILERR(NDATA,15,NSTAT,5) 00630 / 72 CALL DTLCDS 00640 / 73 CALL PGMOUT 00650  / 74 END 00670 jj: FTN 3.3B (OPT = PLC) DTLRNR PAGE 4 DATE: 07/24/84 TIME: 0850  COMMON LABEL $1EC0 ( 7872)    PROGRAM LENGTH $00C7 ( 199)   EXTERNALS  Q8PKUP Q8PREP GETS CCSMVA CCSGET GETUTI CCSBLK  FILERR DTLCDS PGMOUT CCSPUT UPDREC ICKGRP  : FTN 3.3B (OPT = PLC) DTLRNR PAGE 5 DATE: 07/24/84 TIME: 0850  ***** L I S T O F S Y M B O L S ***** jj   CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   0000 (0) 0001 34,35,36,37,42,43,52,53,59,60 # 0001 (1) 0000 28,38,39,40,41,43,45,47,56,61,62,64,66  0004 (4) 0007 41,41,43  0005 (5) 000A 43,45,49,68,71  000D (13) 000F 68  000E (14) 000B 49 jj 000F (15) 0010 71  0010 (16) 0005 39,39,44,45,61  0011 (17) 0006 41  0012 (18) 000C 54,57  0050 (80) 000E 55,57    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 4,19,42,43,45 jj ACOUNT INTEGER 0002 D 4,16,39,40,61  ACTGRP INTEGER 0000 D 4,16,40,62  ADATA INTEGER 005A D 4,19  AFTLL INTEGER 0AB7 D 4,25  ALNCL INTEGER 0797 D 4,25  AND INTR.FN. 7FFF 34,48,67  APOS INTEGER 0DD7 D 4,25  AREQ INTEGER 0069 D 4,19  ASTAT INTEGER 0059 D 4,19  CBUF INTEGER 01A3 D 4,20  CDATA INTEGER 017C D 4,20  CREQ INTEGER 018B D 4,20  CSTAT INTEGER 017B D 4,20 jj DATE INTEGER 000F D 4,17  DBUF INTEGER 0280 D 4,21  DDATA INTEGER 0259 D 4,21  DREQ INTEGER 0268 D 4,21  DSTAT INTEGER 0258 D 4,21  EFSTAT INTEGER 0002 2,4,48,67  GRPBUF INTEGER 1EAE D 28,31,64  HDRS INTEGER 0012 D 4,17  IALL INTEGER 1EBD D 28,32,64  IEJT INTEGER 0058 D 4,18  IFER INTEGER 0009 42  IFOUND INTEGER 0008 42,43  IMODE INTEGER 1EBC D 28,32 jj INAMSK INTEGER 0057 D 4,18,34 : FTN 3.3B (OPT = PLC) DTLRNR PAGE 6 DATE: 07/24/84 TIME: 0850  IOPT INTEGER 1EBE D 28,32  IPF INTEGER 1EA6 D 26,28,30  IPFLAG INTEGER 000D 54,55  ISERR INTEGER 1EA8 D 26,28,30  ITEMAX INTEGER 0796 D 4,25  ITF INTEGER 1EBF D 28,32  IWAY INTEGER 1EBB D 28,32  KEY INTEGER 0003 2,41,42,43  LASTIT INTEGER 000A D 4,16  LINENR INTEGER 0001 D 4,16  LU INTEGER 1EB8 D 28,32 jj MBUF INTEGER 0368 D 4,22  MDATA INTEGER 0341 D 4,22  MREQ INTEGER 0350 D 4,22  MSTAT INTEGER 0340 D 4,22  NACCT INTEGER 000C D 4,17,38,56 ! NBUF INTEGER 0778 D 4,23,35,39,41,52,54,57,58,61,62,64  NDATA INTEGER 0751 D 4,23,49,68,71  NERROR INTEGER 000B D 4,17  NLINE INTEGER 1EA7 D 26,28,30  NLU INTEGER 1EA5 D 26,28,30  NPAGES INTEGER 000D D 4,17  NPORT INTEGER 1EBA D 28,32  NREQ INTEGER 0760 D 4,23,35,52,58 jj" NSTAT INTEGER 0750 D 4,23,35,36,48,49,52,53,58,59,67,68,71  NU INTEGER 1EA9 D 26,28,30  PAGCOL INTEGER 000E D 4,17  PLN INTEGER 1EA4 D 26,28,30  PLU INTEGER 1EB9 D 28,32  SDATA INTEGER 0792 D 4,24  STATUS INTEGER 7FFF 1,2,37,47,60,66  SUPNAM INTEGER 004E D 4,18,44,45  SWITCH INTEGER 0056 D 4,18,34  SYSPRM INTEGER 1EA4 D 26,28  TXTBFR INTEGER 10F8 D 4,26  TXTMAX INTEGER 10F7 D 4,26  USER INTEGER 1EAA D 28,31 jj   EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSBLK SUBROUTINE 004D 43  CCSGET SUBROUTINE 0030 39,54,62  CCSMVA SUBROUTINE 0028 38,41,43,45,61  CCSPUT SUBROUTINE 007E 56  DTLCDS SUBROUTINE 0068 49,69,72  FILERR SUBROUTINE 0062 48,68,71 jj GETS SUBROUTINE 0019 34,52  GETUTI SUBROUTINE 003C 41  ICKGRP INTEGER.FN. 0099 64  PGMOUT SUBROUTINE 006A 49,70,73 : FTN 3.3B (OPT = PLC) DTLRNR PAGE 7 DATE: 07/24/84 TIME: 0850  Q8PKUP INTEGER.FN. 00C2  Q8PREP INTEGER.FN. 00BF  UPDREC SUBROUTINE 0083 57   LABELED STATEMENTS : ------------------  jj LABEL ADDRESS REFERENCED BY STATEMENT NB :   10 0011 32,64  100 0059 36,47  1000 006B 34,52,55  1050 0098 45,63  1100 00A3 53,66  1200 00B3 59,71  DTLRNR 00BC 1  : FTN 3.3B (OPT = PLC) DTLRRS PAGE 1 DATE: 07/24/84 TIME: 0851 / 1 SUBROUTINE DTLRRS(STATUS) 00010  jj / C DTLRRS READ REPORT SKELETON FILE ( DTLLST0X ) 00030  / C WORD DESCRIPTION 00050 / C 1 PRINT LENGTH FLAGS 00060 / C BITS 14:0 PAGE WIDTH 00070 / C BIT 15 ZERO, IF SHORT REPORT 00080 / C ONE, OTHERWISE 00090 / C I LENGTH OF THIS DESCTRIPTOR ( N, ZERO TERMINATES ) 00100 / C 1+I YYXX LINE AND COLUMN 00110 / C 2+I FTLL FILE, TYPE, LENGTH 00120 / C 3+I TEXT/POSITION 00130 / C ... 00140 jj/ C N+I NEXT DESCRIPTOR 00150  / 2 INTEGER STATUS 00170  / 3 INTEGER CUR, TXTIX, ERRFIL(10) 00190 / 4 DATA ICSKEL / -1 / 00200 / 5 DATA ERRFIL / 10*0 / 00210 / 6 INTEGER MSGSTR(12), MSGTXT(11), MSGEMT(16), ERLINE(67) 00220 / 7 DATA MSGSTR / 'DATA STRUCTURE OVERFLOW ' / 00230 / 8 DATA MSGTXT / 'TEXT BUFFER OVERFLOW ' / 00240 / 9 DATA MSGEMT / 'DTLLST FILE EMPTY OR NOT FOUND' / 00250 / 10 DATA ERLINE / '1 *** ERROR DTLLST0X XXXXXXXX : ACCT #' 00260 / 10 +, ' XXXXXXXXXXXXXXXX NOT PRINTED :',31*' '/ 00270 jj / C******************************************************************DTLC1 00010 / C**** DTLLST COMMON AREA !!!!! ***** 00020 / C****************************************************************** 00030  / 11 INTEGER ACTGRP, LINENR, ACOUNT(8), LASTIT 00050 / 12 INTEGER NERROR, NACCT, NPAGES, PAGCOL, DATE(3), HDRS(20,3) 00060 / 13 INTEGER SUPNAM(8), SWITCH, INAMSK, IEJT 00070 / 14 INTEGER ASTAT, ADATA(15), AREQ(24), ABUF(250) 00080 / 15 INTEGER CSTAT, CDATA(15), CREQ(24), CBUF(181) 00090 / 16 INTEGER DSTAT, DDATA(15), DREQ(24), DBUF(192) 00100 / 17 INTEGER MSTAT, MDATA(15), MREQ(24), MBUF(1000) 00110 / 18 INTEGER NSTAT, NDATA(15), NREQ(24), NBUF(26) 00120 jj/ 19 INTEGER SDATA(04) 00130 / 20 INTEGER ITEMAX, ALNCL(800), AFTLL(800), APOS(800) 00140 / 21 INTEGER TXTMAX, TXTBFR(3500) 00150  / 22 COMMON /DTLBLK / ACTGRP, LINENR, ACOUNT, LASTIT 00170 / 23 COMMON /DTLBLK / NERROR, NACCT, NPAGES, PAGCOL, DATE, HDRS 00180 / 24 COMMON /DTLBLK / SUPNAM, SWITCH, INAMSK, IEJT 00190 / 25 COMMON /DTLBLK / ASTAT, ADATA, AREQ, ABUF 00200 / 26 COMMON /DTLBLK / CSTAT, CDATA, CREQ, CBUF 00210 / 27 COMMON /DTLBLK / DSTAT, DDATA, DREQ, DBUF 00220 / 28 COMMON /DTLBLK / MSTAT, MDATA, MREQ, MBUF 00230 / 29 COMMON /DTLBLK / NSTAT, NDATA, NREQ, NBUF 00240 / 30 COMMON /DTLBLK / SDATA 00250 jj: FTN 3.3B (OPT = PLC) DTLRRS PAGE 2 DATE: 07/24/84 TIME: 0851 / 31 COMMON /DTLBLK / ITEMAX, ALNCL, AFTLL, APOS 00260 / 32 COMMON /DTLBLK / TXTMAX, TXTBFR 00270  / C**** SYSPRT PARAMETERS........ 00290  / 33 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00310  / 34 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00330 / 34 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00340 / 34 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00350  / 35 INTEGER USER(4),GRPBUF(10) 00370 jj/ 35 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00380  / 36 COMMON /DTLBLK / PLN,NLU,IPF,NLINE,ISERR,NU 00400 / 37 COMMON /DTLBLK / USER,GRPBUF 00410 / 38 COMMON /DTLBLK / LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF 00420  / C****************************************************************** 00440 / C**** END OF DTLLST COMMON AREA !!!!!! ***** 00450 / C******************************************************************DTLC2 00460  / 39 IF ( ACTGRP.EQ.ICSKEL ) RETURN 00310 / 40 IX=ACTGRP-1R0+1 00320 / 41 IF ( ERRFIL(IX).NE.0 ) GOTO 9901 00330 jj/ 42 CALL CLOSFL(DREQ,DSTAT) 00340 / 43 CALL ZERO(DREQ,24) 00350 / 44 ICSKEL=ACTGRP 00360 / 45 CALL CCSPUT(ACTGRP,8,DDATA) 00370 / 46 CALL CCSBLK(DDATA(9),08) 00380 / 47 CALL OPENFL(DREQ,DDATA,DSTAT) 00390 / 48 IF ( DSTAT.LT.0 ) GOTO 9000 00400 / 49 LASTIT=0 00410 / 50 TXTIX=0 00420  / C PROCESS FIRST RECORD SPECIALLY: FILE MAY BE EMPTY; IF NOT EMPTY, 00440 / C THEN THE REPORT LENGTH IS EXTRACTED. 00450  jj/ 51 CALL DTLRDS 00470 / 52 IF ( DSTAT.NE.0 ) GOTO 9003 00480 / 53 CUR=97 00490 / 54 PAGCOL=AND(DBUF(CUR),$7FFF) 00500 / 55 PAGCOL = PLN 00510 / 56 IF ( PAGCOL.GT.132 ) PAGCOL=132 00520 / 57 NPAGES=0 00530 / 58 IF ( DBUF(CUR).LT.0 ) NPAGES=1 00540 / 59 NEXT=CUR+1 00550  / C PROCESS LOOP: COPY ONE ITEM FROM THE REPORT SKELETON INTO THE 00570 / C WORKING STRUCTURE. 00580  jj/ 60 100 IF ( NEXT.LT.97 ) GOTO 200 00600 /+ + ; CURRENT RECORD NOT EXHAUSTED 00610 / 61 CALL CCSMVA(DBUF(97),1,192,DBUF(1),1,192) 00620 / 62 NEXT=NEXT-96 00630 : FTN 3.3B (OPT = PLC) DTLRRS PAGE 3 DATE: 07/24/84 TIME: 0851 / 63 CALL DTLRDS 00640 / 64 IF ( DSTAT.NE.0 ) CALL ZERO(DBUF(97),96) 00650  / 65 200 CUR=NEXT 00670 /+ + ; ADVANCE EXTRACTION INDEX 00680 / 66 IF ( DBUF(CUR).EQ.0 ) GOTO 300 00690 /+ + ; ZERO LENGTH ITEM => DONE 00700 / 67 NEXT=CUR+DBUF(CUR) 00710 jj/+ + ; BEGINNING OF NEXT ITEM 00720 / 68 IF ( LASTIT.GE.ITEMAX ) GOTO 9001 00730 / 69 LASTIT=LASTIT+1 00740 / 70 ALNCL(LASTIT)=DBUF(CUR+1) 00750 / 71 AFTLL(LASTIT)=DBUF(CUR+2) 00760 / 72 APOS(LASTIT)=DBUF(CUR+3) 00770 / 73 IF ( ITEMT(AFTLL(LASTIT)).NE.0 ) GOTO 100 00780 / 74 LL=ITEML(AFTLL(LASTIT)) 00790 / 75 LEN=(LL+1)/2 00800 / 76 IF ( TXTIX+LEN.GT.TXTMAX ) GOTO 9002 00810 / 77 APOS(LASTIT)=TXTIX+1 00820 / 78 CALL CCSMVA(DBUF(CUR+3),1,LL,TXTBFR(TXTIX+1),1,2*LEN) 00830 / 79 TXTIX=TXTIX+LEN 00840 jj/ 80 GOTO 100 00850  / 81 300 CALL CLOSFL(DREQ,DSTAT) 00870 / 82 STATUS=0 00880 / 83 RETURN 00890  / 84 9000 CONTINUE 00910 / 85 IF( AND(DSTAT,$2).EQ.$2 ) GO TO 9003 00920 / 86 CALL FILERR(DDATA,3,DSTAT,5) 00930 / 87 GOTO 9900 00940 / 88 9001 CONTINUE 00950 / 89 CALL CCSMVA( MSGSTR,1,24,ERLINE,73,60 ) 00960 / 90 GOTO 9900 00970 jj/ 91 9002 CONTINUE 00980 / 92 CALL CCSMVA( MSGTXT,1,22,ERLINE,73,60 ) 00990 / 93 GOTO 9900 01000 / 94 9003 CONTINUE 01010 / 95 CALL CCSMVA( MSGEMT,1,32,ERLINE,73,60 ) 01020 / 96 GO TO 9900 01030  / C**** DISPLAY ERROR...... 01050  / 97 9900 CONTINUE 01070 / 98 ICSKEL=-1 01080 / 99 ERRFIL(IX)=1 01090 / 100 9901 CONTINUE 01100 jj/ 101 NERROR = NERROR+1 01110 / 102 STATUS = 1 01120 / 103 CALL CCSMVA( ACOUNT,1,16,ERLINE,42,16 ) 01130 / 104 CALL CCSPUT( ACTGRP,21,ERLINE ) 01140 / 105 CALL CCSMVA( DDATA,9,8,ERLINE,24,8 ) 01150 / 106 CALL CCSPUT( IEJT,1,ERLINE ) 01160  / 107 CALL SYSPRT( ERLINE,1,SYSPRM,0 ) 01180 / 108 CALL CCSBLK( ERLINE(37),60 ) 01190 / 109 RETURN 01200 : FTN 3.3B (OPT = PLC) DTLRRS PAGE 4 DATE: 07/24/84 TIME: 0851 / 110 END 01210 : FTN 3.3B (OPT = PLC) DTLRRS PAGE 5 DATE: 07/24/84 TIME: 0851 jj COMMON LABEL $1EC0 ( 7872)    PROGRAM LENGTH $01C9 ( 457)   EXTERNALS  Q8PKUP Q8PREP CLOSFL ZERO CCSPUT CCSBLK OPENFL  DTLRDS CCSMVA ITEMT ITEML FILERR SYSPRT  : FTN 3.3B (OPT = PLC) DTLRRS PAGE 6 DATE: 07/24/84 TIME: 0851  ***** L I S T O F S Y M B O L S *****  jj  CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :  # 0000 (0) 0001 5,41,48,49,50,52,57,58,64,66,73,82,107 1 0001 (1) 0000 4,34,40,58,59,61,69,70,75,77,78,89,92,95,98,99,101,102,103,106,107  0002 (2) 0083 75,78,85  0003 (3) 0084 86  0005 (5) 0085 86  0008 (8) 007B 45,46,105  0009 (9) 008D 105 jj 0010 (16) 008A 103,103  0015 (21) 008C 104  0016 (22) 0088 92  0018 (24) 007A 43,89,105  0020 (32) 0089 95  002A (42) 008B 103  003C (60) 0087 89,92,95,108  0049 (73) 0086 89,92,95  0060 (96) 0080 62,64  0084 (132) 007D 56,56  00C0 (192) 007F 61,61  7FFF (32767) 007C 54  jj  VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   ABUF INTEGER 0081 D 10,25  ACOUNT INTEGER 0002 D 10,22,103  ACTGRP INTEGER 0000 D 10,22,39,40,44,45,104  ADATA INTEGER 005A D 10,25  AFTLL INTEGER 0AB7 D 10,31,71,73,74  ALNCL INTEGER 0797 D 10,31,70  AND INTR.FN. 7FFF 54,85 jj APOS INTEGER 0DD7 D 10,31,72,77  AREQ INTEGER 0069 D 10,25  ASTAT INTEGER 0059 D 10,25  CBUF INTEGER 01A3 D 10,26  CDATA INTEGER 017C D 10,26  CREQ INTEGER 018B D 10,26  CSTAT INTEGER 017B D 10,26 ! CUR INTEGER 0002 2,53,54,58,59,65,66,67,70,71,72,78  DATE INTEGER 000F D 10,23 ! DBUF INTEGER 0280 D 10,27,54,58,61,64,66,67,70,71,72,78  DDATA INTEGER 0259 D 10,27,45,46,47,86,105  DREQ INTEGER 0268 D 10,27,42,43,47,81  DSTAT INTEGER 0258 D 10,27,42,47,48,52,64,81,85,86 jj: FTN 3.3B (OPT = PLC) DTLRRS PAGE 7 DATE: 07/24/84 TIME: 0851 " ERLINE INTEGER 0036 5,10,89,92,95,103,104,105,106,107,108  ERRFIL INTEGER 0004 2,5,41,99  GRPBUF INTEGER 1EAE D 34,37  HDRS INTEGER 0012 D 10,23  IALL INTEGER 1EBD D 34,38  ICSKEL INTEGER 000E 2,39,44,98  IEJT INTEGER 0058 D 10,24,106  IMODE INTEGER 1EBC D 34,38  INAMSK INTEGER 0057 D 10,24  IOPT INTEGER 1EBE D 34,38  IPF INTEGER 1EA6 D 32,34,36  ISERR INTEGER 1EA8 D 32,34,36 jj ITEMAX INTEGER 0796 D 10,31,68  ITF INTEGER 1EBF D 34,38  IWAY INTEGER 1EBB D 34,38  IX INTEGER 0079 39,40,41,99 LASTIT INTEGER 000A D 10,22,49,68,69,70,71,72,73,74,77  LEN INTEGER 0082 74,75,76,78,79  LINENR INTEGER 0001 D 10,22  LL INTEGER 0081 73,74,75,78  LU INTEGER 1EB8 D 34,38  MBUF INTEGER 0368 D 10,28  MDATA INTEGER 0341 D 10,28  MREQ INTEGER 0350 D 10,28  MSGEMT INTEGER 0026 5,9,95 jj MSGSTR INTEGER 000F 5,7,89  MSGTXT INTEGER 001B 5,8,92  MSTAT INTEGER 0340 D 10,28  NACCT INTEGER 000C D 10,23  NBUF INTEGER 0778 D 10,29  NDATA INTEGER 0751 D 10,29  NERROR INTEGER 000B D 10,23,101  NEXT INTEGER 007E 58,59,60,62,65,67  NLINE INTEGER 1EA7 D 32,34,36  NLU INTEGER 1EA5 D 32,34,36  NPAGES INTEGER 000D D 10,23,57,58  NPORT INTEGER 1EBA D 34,38  NREQ INTEGER 0760 D 10,29 jj NSTAT INTEGER 0750 D 10,29  NU INTEGER 1EA9 D 32,34,36  PAGCOL INTEGER 000E D 10,23,54,55,56  PLN INTEGER 1EA4 D 32,34,36,55  PLU INTEGER 1EB9 D 34,38  SDATA INTEGER 0792 D 10,30  STATUS INTEGER 7FFF 1,2,82,102  SUPNAM INTEGER 004E D 10,24  SWITCH INTEGER 0056 D 10,24  SYSPRM INTEGER 1EA4 D 32,34,107  TXTBFR INTEGER 10F8 D 10,32,78  TXTIX INTEGER 0003 2,50,76,77,78,79  TXTMAX INTEGER 10F7 D 10,32,76 jj USER INTEGER 1EAA D 34,37 : FTN 3.3B (OPT = PLC) DTLRRS PAGE 8 DATE: 07/24/84 TIME: 0851    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSBLK SUBROUTINE 01B3 45,108  CCSMVA SUBROUTINE 0172 60,78,89,92,95,103,105  CCSPUT SUBROUTINE 019D 44,104,106  CLOSFL SUBROUTINE 015C 41,81 jj DTLRDS SUBROUTINE 00C4 50,63  FILERR SUBROUTINE 016B 85  ITEML INTEGER.FN. 012D 74  ITEMT INTEGER.FN. 0123 73  OPENFL SUBROUTINE 00B5 46  Q8PKUP INTEGER.FN. 01C3  Q8PREP INTEGER.FN. 01C0  SYSPRT SUBROUTINE 01AD 106  ZERO SUBROUTINE 00A6 42,64   LABELED STATEMENTS : ------------------ jj  LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 00E7 59,73,80  200 00FD 60,65  300 015B 66,81  9000 0163 48,84  9001 0171 68,88  9002 017A 76,91  9003 0182 52,85,94  9900 018A 86,90,93,96,97  9901 0191 41,100  DTLRRS 01BB 1 jj: FTN 3.3B (OPT = PLC) BHXDEC PAGE 1 DATE: 07/24/84 TIME: 0852 / 1 SUBROUTINE BHXDEC (NUM,IOUT) / 1 * /HEX TO DECIMAL W/LEADING BLANKS / C / 2 BYTE (ILEFT,IOUT(15=8)),(IRIGHT,IOUT(7=0)) / 3 DIMENSION ILEFT(1),IRIGHT(1),IOUT(1) / C SAVE NUMBER IN N BEFORE CONVERTING TO ALLOW CONVERSION IN PLACE. / 4 N=NUM / 5 DO 8 JK=1,3 / 6 8 IOUT(JK)= $2020 / 7 IF(N.EQ.0) IRIGHT(3)=$30 / 8 IF(N.GE.0) GO TO 50 / C MINUS NUMBER jj/ 9 N=-N / 10 ILEFT(1)=$2D / 11 50 CONTINUE / 12 I=5 / 13 55 CONTINUE / 14 IF(N.EQ.0) GO TO 200 / 15 N1=(N/10)*10 / 16 N2=N-N1+$30 / 17 I1=I/2+1 / 18 IF(AND(I,1).EQ.0) GO TO 100 / 19 IRIGHT(I1)=N2 / 20 GO TO 110 / 21 100 ILEFT(I1)=N2 jj/ 22 110 CONTINUE / 23 N=N/10 / 24 I=I-1 / 25 IF(I.GT.0) GO TO 55 / 26 200 CONTINUE / 27 RETURN / 28 END : FTN 3.3B (OPT = PLC) BHXDEC PAGE 2 DATE: 07/24/84 TIME: 0852   PROGRAM LENGTH $0077 ( 119)   EXTERNALS  Q8PKUP Q8PREP jj : FTN 3.3B (OPT = PLC) BHXDEC PAGE 3 DATE: 07/24/84 TIME: 0852  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   0001 (1) 0000 3,5,10,17,18,24  000A (10) 0006 15,15,23  2020 (8224) 0003 6 jj   VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 18  I INTEGER 0004 11,12,17,18,24,25  I1 INTEGER 0008 16,17,19,21  ILEFT INTEGER 7FFF 1,3,10,21  IOUT INTEGER 7FFF 1,2,3,6  IRIGHT INTEGER 7FFF 2,3,7,19 jj JK INTEGER 0002 4,6  N INTEGER 0001 3,4,7,8,9,14,15,16,23  N1 INTEGER 0005 14,15,16  N2 INTEGER 0007 15,16,19,21  NUM INTEGER 7FFF 1,4    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   Q8PKUP INTEGER.FN. 006B jj Q8PREP INTEGER.FN. 0068   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   8 000D 4,6  50 0028 8,11  55 002A 12,25  100 004B 18,21  110 0052 19,22 jj 200 005E 14,26  BHXDEC 0063 1  : FTN 3.3B (OPT = PLC) ZERO PAGE 1 DATE: 07/24/84 TIME: 0852 / 1 SUBROUTINE ZERO(J,K) 00010 / C*** ZERO OUT ARRAY J FOR K LENGTH WORDS 00020 / 2 INTEGER J(1), K 00030 / 3 DO 10 L = 1,K 00040 / 4 J(L) = 0 00050 / 5 10 CONTINUE 00060 / 6 RETURN 00070 / 7 END 00080 : FTN 3.3B (OPT = PLC) ZERO PAGE 2 DATE: 07/24/84 TIME: 0852 jj  PROGRAM LENGTH $001D ( 29)   EXTERNALS  Q8PKUP Q8PREP  : FTN 3.3B (OPT = PLC) ZERO PAGE 3 DATE: 07/24/84 TIME: 0852  ***** L I S T O F S Y M B O L S *****    VARIABLES :  ---------  jj NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   J INTEGER 7FFF 1,2,4  K INTEGER 7FFF 1,2,3  L INTEGER 0000 2,4    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   Q8PKUP INTEGER.FN. 0016 jj Q8PREP INTEGER.FN. 0013   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   10 0009 2,5  ZERO 0010 1  : FTN 3.3B (OPT = PLC) LASTCH PAGE 1 DATE: 07/24/84 TIME: 0852 / 1 INTEGER FUNCTION LASTCH(STR,N) 00010 jj  / C LASTCH - LAST CHARACTER 00030  / C LASTCH DETERMINES THE BYTE POSITION OF THE LAST NON-BLANK 00050 / C CHARACTER IN THE SPECIFIED STRING. 00060 / C 00070 / C STR - STRING TO SCAN 00080 / C N - NUMBER OF BYTES IN "STR" 00090 / C LASTCH - INDEX OF LAST NON-BLANK CHARACTER IN "STR" 00100  / 2 INTEGER STR(1), N 00120  jj/ 3 INTEGER BLANK 00140 / 4 DATA BLANK / $0020 / 00150   / 5 LASTCH=1 00170 / 6 IF ( N.LE.0 ) RETURN 00180 / 7 DO 100 I=1,N 00190 / 8 LASTCH= (N+1) - I 00200 / 9 CALL CCSGET(STR,LASTCH,ICH) 00210 / 10 IF ( ICH.NE.BLANK ) RETURN 00220 / 11 100 CONTINUE 00230 / 12 LASTCH=1 00240 / 13 RETURN 00250 jj / 14 END 00270 : FTN 3.3B (OPT = PLC) LASTCH PAGE 2 DATE: 07/24/84 TIME: 0852   PROGRAM LENGTH $0033 ( 51)   EXTERNALS Q8PKUP Q8PREP CCSGET  : FTN 3.3B (OPT = PLC) LASTCH PAGE 3 DATE: 07/24/84 TIME: 0852  ***** L I S T O F S Y M B O L S *****   jj VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   BLANK INTEGER 0001 2,4,10  I INTEGER 0002 6,8  ICH INTEGER 0003 9,10  LASTCH INTEGER 0000 1,5,8,9,12  N INTEGER 7FFF 1,2,6,7,8  STR INTEGER 7FFF 1,2,9   jj EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSGET SUBROUTINE 0016 8  Q8PKUP INTEGER.FN. 002D  Q8PREP INTEGER.FN. 002A   LABELED STATEMENTS : ------------------  jj LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 001E 6,11  LASTCH 0027  : FTN 3.3B (OPT = PLC) GTSYSP PAGE 1 DATE: 07/24/84 TIME: 0853 / 1 SUBROUTINE GTSYSP( IPARM,IPOS ) 00010 / 1 1 /CCS3.0 SUBROUTINE GTSYSP SL-XXX 00020  / C** CYBERCREDIT FINANCIAL SERVICES. 00040 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00050 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00060 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00070 jj/ C** 00080 / C** ************ 04/06/84 ************ PROGRAMMER : RWE 00090  / C**** PROGRAM DESCRIPTION : GET SYSTEM PARAMETER FROM THE 00110 / C EXTERNAL FLAG RECORD IN THE UTIFIL. 00120  / C*** CALLING SEQUENCE : CALL GTSYSP( IPARM,IPOS ) 00140  / C PARAMETERS 00160  / C IPARM : RETURNED VALUE ($0 TO $F WHICH IS 0 TO 15 DECIMAL) 00180 / C WHICH IS RETRIEVED FROM THE 'EXTERNAL FLAG RECORD' 00190 / C IN THE UTIFIL. 00200 jj/ C IPOS : THE STARTING BYTE OF THE FLAG IN THE FLAG RECORD. 00210 / C ( SEE LAYOUT OF 'EXTERNAL FLAG RECORD' ) 00220  / C EXAMPLE : CALL GTSYSP( IMODE,30 ) 00240 / C THIS WOULD RETRIEVE THE FLAG 2 FOR THE 00250 / C LTRSTA PROGRAM AND SET THE IMODE FLAG FOR 00260 / C SUBROUTINE GETGRP 00270 / C LTRSTA FLAGS START IN POS. 29, THERE ARE 4 FLAGS 00280 / C FLAG 1 = IWAY FOR SUBROUTINE PRTORF 00290 / C FLAG 2 = IMODE FOR SUBROUTINE GETGRP 00300 / C FLAG 3 = 00310 / C FLAG 4 = 00320  jj/ 2 INTEGER IPARM,IPOS 00340 / 2 +, SYSREC(42),SYSP(2),IGOT 00350  / 3 DATA SYSP /'SYSP'/, IGOT / 0/ 00370  / C**** 00390 / C**** BEGIN PROGRAM ....... 00400  / 4 IF ( IGOT.NE.0 ) GO TO 100 00420 / 5 CALL GETUTI( SYSP,SYSREC,IFOUND,IFER,1 ) 00430 / 6 IF( IFOUND.NE.0 ) CALL CCSMVA( SYSREC,1,0,SYSREC,1,80 ) 00440 / 7 IGOT = 1 00450  jj/ 8 100 CONTINUE 00470 / 9 CALL CCSGET( SYSREC,IPOS,IFLG ) 00480  / 10 IPARM = AND( IFLG,$F ) 00500 / 11 RETURN 00510 / 12 END 00520 : FTN 3.3B (OPT = PLC) GTSYSP PAGE 2 DATE: 07/24/84 TIME: 0853   PROGRAM LENGTH $0064 ( 100)   EXTERNALS  Q8PKUP Q8PREP GETUTI CCSMVA CCSGET  jj: FTN 3.3B (OPT = PLC) GTSYSP PAGE 3 DATE: 07/24/84 TIME: 0853  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   0000 (0) 0001 3,4,6  0001 (1) 0000 5,6,7  000F (15) 0033 10  0050 (80) 0031 6 jj   VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 10  IFER INTEGER 0030 5  IFLG INTEGER 0032 9,10  IFOUND INTEGER 002F 5,6  IGOT INTEGER 002E 2,3,4,7  IPARM INTEGER 7FFF 1,2,10 jj IPOS INTEGER 7FFF 1,2,9  SYSP INTEGER 002C 2,3,5  SYSREC INTEGER 0002 2,5,6,9    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSGET SUBROUTINE 004D 8  CCSMVA SUBROUTINE 0043 6  GETUTI SUBROUTINE 0039 4 jj Q8PKUP INTEGER.FN. 005E  Q8PREP INTEGER.FN. 005B   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 004C 4,8  GTSYSP 0058 1  : FTN 3.3B (OPT = PLC) GETUTI PAGE 1 DATE: 07/24/84 TIME: 0853 jj/ 1 SUBROUTINE GETUTI( KEYB,REC,IFOUND,IFER,NOPT ) 00010 / 1 1 /CCS3.0 SUBROUTINE GETUTI SL-XXX 00020  / C** CYBERCREDIT FINANCIAL SERVICES. 00040 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00050 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00060 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00070 / C** 00080 / C** ************ 04/06/84 ************ PROGRAMMER : RWE 00090  / C**** PROGRAM DESCRIPTION : RETRIEVE RECORD BY KEY FROM UTIFIL. 00110  / C*** CALLING SEQUENCE : CALL GETUTI( KEYB,REC,IFOUND,IFER,NOPT ) 00130 jj / C PARAMETERS 00150  / C KEYB : KEY OF UTIFIL RECORD TO BE RETRIEVED ( 2 WORDS ) 00170 / C REC : BUFFER TO RECIEVE THE RETRIEVED RECORD(40 WORDS ) 00180 / C BUFFER WILL BE BLANKS IF RECORD IS NOT FOUND. 00190 / C IFOUND : RETURNED VALUE DESIGNATING IF RECORD WAS FOUND. 00200 / C 0 = RECORD FOUND , 1 = RECORD NOT FOUND 00210 / C IFER : ISTAT OF FILE MANAGER CALL. (FROM UTIFIL) 00220 / C NOPT : PASSED. OPTION OF WHAT TO DO. 00230 / C 0 = RETRIEVE RECORD (LEAVE FILE OPEN) 00240 / C 1 = RETRIEVE RECORD (CLOSE FILE WHEN DONE) 00250 / C 2 = CLOSE FILE. 00260 jj / 2 INTEGER KEYB(1),REC(1),IFOUND,IFER,NOPT 00280 / 2 +, DAT1(15),REQ1(24),R1KY(15),REC1(0042) 00290 / 2 +, USER(4),LU,NPORT,MODE 00300  / 3 DATA DAT1 /'LAUTIFIL ',01,01,00/,REQ1/24*0/ 00320 / 4 DATA IOPN/0/ , IDUN/0/ 00330  / C**** 00350 / C**** BEGIN PROGRAM ....... 00360  / 5 IF ( NOPT.EQ.2 ) GO TO 500 00380 / 6 IF ( IOPN.EQ.1 ) GO TO 100 00390 jj / C*** CHECK FOR LA LOOK-ALIKE 00410  / 7 IF( IDUN.EQ.1 ) GO TO 5 00430 / 8 IDUN = 1 00440 / 9 CALL PGMIN( USER,LU,MODE,NPORT ) 00450 / 10 CALL CCSCST( DAT1,1,2,USER,1,8,ICM ) 00460 / 11 IF ( ICM.EQ.0 ) GO TO 5 00470 / 12 CALL CCSMVA( DAT1,3,6,DAT1,1,16 ) 00480  / 13 5 CONTINUE 00500 / 14 DO 20 I = 1,24 00510 / 15 REQ1(I) = 0 00520 jj/ 16 20 CONTINUE 00530  : FTN 3.3B (OPT = PLC) GETUTI PAGE 2 DATE: 07/24/84 TIME: 0853 / 17 CALL OPENFL( REQ1,DAT1,ISTAT ) 00550 / 18 IF( ISTAT.LT.0 ) GO TO 800 00560 / 19 REQ1(23) = 1 00570 / 20 IOPN = 1 00580  / 21 100 CONTINUE 00600 / 22 CALL CCSMVA( KEYB,1,4,R1KY,1,30 ) 00610 / 23 CALL READR ( REQ1,REC1,R1KY,ISTAT ) 00620 / 24 IF ( AND(ISTAT,$300).NE.0 ) GO TO 200 00630 / 25 IF ( ISTAT.LT.0 ) GO TO 800 00640 jj / C*** RECORD FOUND PASS INFO BACK TO CALLER 00660  / 26 120 CONTINUE 00680 / 27 IFER = ISTAT 00690 / 28 IFOUND = 0 00700 / 29 CALL CCSMVA( REC1,1,80,REC,1,80 ) 00710 / 30 IF( NOPT.EQ.1 ) GO TO 500 00720 / 31 GO TO 900 00730  / C**** RECORD NOT FOUND RETURN BLANKS 00750  / 32 200 CONTINUE 00770 jj/ 33 IFER = AND( ISTAT,$7FFF ) 00780 / 34 IFOUND = 1 00790 / 35 CALL CCSMVA( REC1,1,0,REC,1,40 ) 00800 / 36 IF( NOPT.EQ.1 ) GO TO 500 00810 / 37 GO TO 900 00820  / C**** CLOSE FILE AND RETURN 00840  / 38 500 CONTINUE 00860 / 39 CALL CLOSFL( REQ1,ISTAT ) 00870 / 40 IOPN = 0 00880 / 41 GO TO 900 00890  jj/ C**** ERROR SECTION FOR FILE 00910  / 42 800 CONTINUE 00930 / 43 IFOUND = 1 00940 / 44 IFER = ISTAT 00950 / 45 IF( AND(ISTAT,$8002).EQ.$8002 ) GO TO 900 00960 / 46 IREQ = AND(REQ1(4),$FF) 00970 / 47 IF(IREQ.LT.11) IREQ = IREQ-1 00980 / 48 IF(IREQ.EQ.18) IREQ = 10 00990 / 49 CALL FILERR( DAT1,IREQ,ISTAT,LU ) 01000 / 50 GO TO 900 01010  / 51 900 CONTINUE 01030 jj/ 52 RETURN 01040 / 53 END 01050 : FTN 3.3B (OPT = PLC) GETUTI PAGE 3 DATE: 07/24/84 TIME: 0853   PROGRAM LENGTH $0137 ( 311)   EXTERNALS  Q8PKUP Q8PREP PGMIN CCSCST CCSMVA OPENFL READR  CLOSFL FILERR  : FTN 3.3B (OPT = PLC) GETUTI PAGE 4 DATE: 07/24/84 TIME: 0853  ***** L I S T O F S Y M B O L S *****  jj  CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   8002 (-32765) 0079 45,45  0000 (0) 0001 3,4,11,15,18,24,25,28,35,40 ( 0001 (1) 0000 2,3,6,7,8,10,12,14,19,20,22,29,30,34,35,36,43,47  0002 (2) 006B 5,10  0003 (3) 006E 12  0004 (4) 0073 22,46  0006 (6) 006F 12 jj 0008 (8) 006C 10  0010 (16) 0070 12  001E (30) 0074 22  0028 (40) 0078 35  0050 (80) 0076 29,29  00FF (255) 007B 46  0300 (768) 0075 24  7FFF (32767) 0077 33    VARIABLES :  ---------  jj NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 24,33,45,46  DAT1 INTEGER 0002 2,3,10,12,17,49  I INTEGER 0071 13,15  ICM INTEGER 006D 10,11  IDUN INTEGER 006A 4,7,8  IFER INTEGER 7FFF 1,2,27,33,44  IFOUND INTEGER 7FFF 1,2,28,34,43  IOPN INTEGER 0069 3,6,20,40  IREQ INTEGER 007A 45,46,47,48,49 ISTAT INTEGER 0072 17,18,23,24,25,27,33,39,44,45,49  KEYB INTEGER 7FFF 1,2,22 jj LU INTEGER 0066 2,9,49  MODE INTEGER 0068 2,9  NOPT INTEGER 7FFF 1,2,5,30,36  NPORT INTEGER 0067 2,9  R1KY INTEGER 0029 2,22,23  REC INTEGER 7FFF 1,2,29,35  REC1 INTEGER 0038 2,23,29,35  REQ1 INTEGER 0011 2,3,15,17,19,23,39,46  USER INTEGER 0062 2,9,10 : FTN 3.3B (OPT = PLC) GETUTI PAGE 5 DATE: 07/24/84 TIME: 0853    EXTERNALS : jj ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSCST SUBROUTINE 0092 9  CCSMVA SUBROUTINE 009E 11,22,29,35  CLOSFL SUBROUTINE 00F8 38  FILERR SUBROUTINE 0119 48  OPENFL SUBROUTINE 00B1 16  PGMIN SUBROUTINE 008C 8  Q8PKUP INTEGER.FN. 0128  Q8PREP INTEGER.FN. 0125  READR SUBROUTINE 00C5 22 jj  LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   5 00A5 7,11,13  20 00AB 13,16  100 00BD 6,21  120 00D3 25  200 00E6 24,32  500 00F7 5,30,36,38 jj 800 00FF 18,25,42  900 011F 30,37,41,45,50,51  GETUTI 0122 1  : FTN 3.3B (OPT = PLC) GETGRP PAGE 1 DATE: 07/24/84 TIME: 0854 / 1 SUBROUTINE GETGRP( GRPBUF,IALL,IMODE ) 00010 / 1 1 /CCS3.0 SUBROUTINE GETGRP SL-XXX 00020  / C** CYBERCREDIT FINANCIAL SERVICES. 00040 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00050 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00060 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00070 / C** 00080 jj/ C** ************ 04/06/84 ************ PROGRAMMER : RWE 00090  / C**** PROGRAM DESCRIPTION : SELECT WHICH ACCOUNT GROUPS TO USE 00110  / C*** CALLING SEQUENCE : CALL GETGRP( GRPBUF,IALL,IMODE ) 00130  / C PARAMETERS 00150  / C GRPBUF : 10 WORD ARRAY RETURNED TO PROGRAM WITH FROM 1 00170 / C TO 10 VALID ACCOUNT GROUPS 00180 / C ( FOR USE WITH FUNCTION 'ICKGRP' ) 00190 / C IALL : FLAG RETURNED DESIGNATING USE OF ACCOUNT GROUPS 00200 / C 0 = USE ALL ACCOUNT GROUPS 00210 jj/ C 1 = USE ONLY ACCOUNT GROUPS IN GRPBUF ARRAY 00220 / C IMODE : FLAG TO DETERMINE WHICH ACTION TO TAKE : 00230 / C 0 = USE ALL ACCOUNT GROUPS 00240 / C 1 = USE ACCOUNT GROUPS 0-4 ONLY 00250 / C 2 = USE ACCOUNT GROUPS 5-9 ONLY 00260 / C 3 = PROMPT FROM SCREEN, WHICH OF (0-9) GROUPS TO USE 00270 / C 4 = PROMPT FROM SCREEN, EITHER ALL, OR 0-4, OR 5-9. 00280 / C 5 = GET 'IMODE' FLAG FROM UTIFIL 00290  / 2 INTEGER GRPBUF(1),IALL,IMODE 00310 / 2 +, INP(41),MSGY(18),AGRPS(10),MINUS(10),ALL 00320 / 2 +, MSG1(18),MSG2(18),MSG3(18),MSG4(18),MSG5(18) 00330 / 2 +, MSGA(18),MSGB(18),MSGC(18),MSGD(18),MSGE(18),MSGF(20) 00340 jj / 3 DATA MSG1/$180A,$0A0D,'** SELECT ACCOUNT GROUP OPTION',$160A/ 00360 / 3 +, MSG2/$0D0A,' 0 = ALL ACCOUNT GROUPS ',$1616/ 00370 / 3 +, MSG3/$0D0A,' 1 = ACCOUNT GROUPS 0-4 ONLY ',$1616/ 00380 / 3 +, MSG4/$0D0A,' 2 = ACCOUNT GROUPS 5-9 ONLY ',$160A/ 00390 / 3 +, MSG5/$0D0A,' PLEASE ENTER SELECTION(0,1,2) :',$1616/ 00400  / 4 DATA MSGA/$180A,$0A0D,'* SELECT ACCOUNT GROUPS TO USE',$160A/ 00420 / 4 +, MSGB/$0D0A,' SEPARATE GROUPS BY COMMAS, ',$1616/ 00430 / 4 +, MSGC/$0D0A,' (I.E. 0,1,2,3, ETC...) OR ',$1616/ 00440 / 4 +, MSGD/$0D0A,' ENTER A FOR ALL GROUPS ',$160A/ 00450 / 4 +, MSGE/$0D0A,' PLEASE ENTER SELECTION -- :',$1616/ 00460  jj/ 5 DATA MSGF/$180A,'INVALID ENTRY : ',$160A/ 00480  / 6 DATA MSGY/$0D0A,$0D0A,' IS THIS CORRECT ? (Y/N) : ',$1616/ 00500 / 6 +, AGRPS/'0,1,2,3,4,5,6,7,8,9,'/,MINUS/10*$FFFF/,ALL/'A,'/ 00510  / C**** BEGIN PROGRAM ....... 00530  : FTN 3.3B (OPT = PLC) GETGRP PAGE 2 DATE: 07/24/84 TIME: 0854 / 7 MODE = IMODE 00550 / 8 IALL = 0 00560 / 9 CALL CCSMVA( MINUS,1,20,GRPBUF,1,20 ) 00570  / 10 10 CONTINUE 00590 jj/ 11 IF ( MODE.EQ.0 ) GO TO 50 00600 / 12 IF ( MODE.EQ.1 ) GO TO 100 00610 / 13 IF ( MODE.EQ.2 ) GO TO 200 00620 / 14 IF ( MODE.EQ.3 ) GO TO 300 00630 / 15 IF ( MODE.EQ.4 ) GO TO 400 00640 / 16 IF ( MODE.EQ.5 ) GO TO 500 00650  / C**** SET AND USE ALL ACCOUNT GROUPS 00670  / 17 50 CONTINUE 00690 / 18 IALL = 0 00700 / 19 CALL CCSMVA( AGRPS,1,20,GRPBUF,1,20 ) 00710 / 20 GO TO 800 00720 jj / C**** SET AND USE GROUPS 0-4 ONLY 00740  / 21 100 CONTINUE 00760 / 22 IALL = 1 00770 / 23 CALL CCSMVA( AGRPS,1,10,GRPBUF,1,10 ) 00780 / 24 GO TO 800 00790  / C**** SET AND USE GROUPS 5-9 ONLY 00810  / 25 200 CONTINUE 00830 / 26 IALL = 1 00840 / 27 CALL CCSMVA( AGRPS,11,10,GRPBUF,1,10 ) 00850 jj/ 28 GO TO 800 00860  / C**** ASK OPERATOR FROM SCREEN WHICH ACCOUNT GROUPS..... 00880  / 29 300 CONTINUE 00900 / 30 CALL CCSMVA( MSG2,8,18,MSG2,4,30 ) 00910 / 31 CALL CCSMVA( MSG3,16,6,MSG3,4,30 ) 00920  / 32 305 CONTINUE 00940 / 33 ASSIGN 305 TO IRTN 00950 / 34 ASSIGN 10 TO IRTN2 00960 / 35 CALL WTREAD(05,-1,MSGA ,36,0,0,0,ITC) 00970 / 36 CALL WTREAD(05,-1,MSGB ,36,0,0,0,ITC) 00980 jj/ 37 CALL WTREAD(05,-1,MSGC ,36,0,0,0,ITC) 00990 / 38 CALL WTREAD(05,-1,MSGD ,36,0,0,0,ITC) 01000 / 39 MSGA = MSG1 01010  / 40 310 CONTINUE 01030 / 41 CALL CCSMVA(INP,1,0,INP,1,82) 01040 / 42 CALL WTREAD(05,-1,MSGE ,36,-1,INP,80,ITC) 01050 / 43 IF (ITC.EQ.4) GO TO 310 01060 / 44 NCH = INP(41) 01070 / 45 NCH = (NCH+1)/2 01080 : FTN 3.3B (OPT = PLC) GETGRP PAGE 3 DATE: 07/24/84 TIME: 0854 / 46 N2H = NCH*2 01090 / 47 CALL CCSPUT( $2C,N2H,INP ) 01100 jj/ 48 IF ( INP.EQ.ALL ) GO TO 320 01110 / 49 GO TO 330 01120  / C**** VERIFY ALL GROUPS TO BE USED... 01140  / 50 320 CONTINUE 01160 / 51 MODE = 0 01170 / 52 CALL WTREAD( 05,-1,MSG2,36,0,0,0,ITC ) 01180 / 53 GO TO 425 01190  / C**** VALIDATE INPUT FOR VALID GROUPS..... 01210  / 54 330 CONTINUE 01230 jj / 55 K = 1 01250 / 56 MELM= NCH-1 01260 / 57 IF (MELM.LE.1) GO TO 370 01270 / 58 DO 360 I=1,MELM 01280  / 59 IF(INP(I).LT.INP(I+1))GO TO 360 01300 / 60 340 TEMP = INP(I) 01310 / 61 INP(I) = INP(I+1) 01320 / 62 INP(I+1) = TEMP 01330 / 63 DO 350 J=I,2,-K 01340 / 64 IF(INP(J).GT.INP(J-1))GO TO 360 01350 / 65 TEMP = INP(J) 01360 jj/ 66 INP(J) = INP(J-1) 01370 / 67 INP(J-1) = TEMP 01380 / 68 350 CONTINUE 01390 / 69 360 CONTINUE 01400  / C*** CHECK FOR DUPLICATE NUMBERS 01420  / 70 JJ = NCH-1 01440 / 71 DO 365 I = 1,JJ 01450 / 72 IF ( INP(I).EQ.INP(I+1) ) GO TO 390 01460 / 73 365 CONTINUE 01470  / C*** DISPLAY CHOICES AND VERIFY... 01490 jj / 74 370 CONTINUE 01510 / 75 IF( INP(1).EQ.INP(2) ) GO TO 390 01520 / 76 DO 375 I = 1,NCH 01530 / 77 L = ( AND(INP(I),$FF00) )/256 01540 / 78 IF ( L.LT.$30 .OR. L.GT.$39 ) GO TO 390 01550 / 79 375 CONTINUE 01560 / 80 CALL CCSMVA( INP,1,N2H,MSG4,1,N2H ) 01570 / 81 CALL CCSMVA( INP,1,N2H-1,MSG3,11,20 ) 01580 / 82 CALL WTREAD( 05,-1,MSG3,36,0,0,0,ITC ) 01590 / 83 ASSIGN 380 TO IRTN2 01600 / 84 GO TO 425 01610  jj: FTN 3.3B (OPT = PLC) GETGRP PAGE 4 DATE: 07/24/84 TIME: 0854 / C*** SET GROUPS..... 01630  / 85 380 CONTINUE 01650 / 86 IALL = 1 01660 / 87 CALL CCSMVA( MSG4,1,N2H,GRPBUF,1,N2H ) 01670 / 88 GO TO 800 01680  / C*** ERROR IN NUMBER ENTRY ..... REPEAT PROMPT 01700  / 89 390 CONTINUE 01720 / 90 MSGA = MSGB 01730 / 91 CALL CCSMVA( INP,1,N2H-1,MSGF,19,20 ) 01740 jj/ 92 CALL WTREAD( 05,-1,MSGF,40,0,0,0,ITC ) 01750 / 93 GO TO IRTN 01760  / C*** ASK OPERATOR FROM SCREEN WHICH WAY TO GO....... 01780  / 94 400 CONTINUE 01800 / 95 ASSIGN 400 TO IRTN 01810 / 96 ASSIGN 10 TO IRTN2 01820 / 97 CALL WTREAD(05,-1,MSG1 ,36,0,0,0,ITC) 01830 / 98 CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 01840 / 99 CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 01850 / 100 CALL WTREAD(05,-1,MSG4 ,36,0,0,0,ITC) 01860  jj/ 101 410 CONTINUE 01880 / 102 CALL CCSMVA(INP,1,0,INP,1,82) 01890 / 103 CALL WTREAD(05,-1,MSG5 ,36,-1,INP,80,ITC) 01900 / 104 IF (ITC.EQ.4) GO TO 410 01910  / C*** VALIDATE SELECTION.... 01930  / 105 CALL CCSGET( INP,1,ICH ) 01950  / 106 IF( INP(41).EQ.0 ) GO TO 420 01970 / 107 IF ( ICH.LT.$30 .OR. ICH.GT.$32 ) GO TO IRTN 01980  / 108 420 MODE = AND( ICH,$F ) 02000 jj/ 109 IF( MODE.EQ.0 ) CALL WTREAD(05,-1,MSG2 ,35,0,0,0,ITC) 02010 / 110 IF( MODE.EQ.1 ) CALL WTREAD(05,-1,MSG3 ,35,0,0,0,ITC) 02020 / 111 IF( MODE.EQ.2 ) CALL WTREAD(05,-1,MSG4 ,35,0,0,0,ITC) 02030  / 112 425 CONTINUE 02050 / 113 CALL CCSMVA(INP,1,0,INP,1,82) 02060 / 114 CALL WTREAD(05,-1,MSGY ,36,-1,INP,80,ITC) 02070 / 115 CALL CCSGET(INP,1,ICH) 02080 / 116 IF ( INP(41).EQ.0 ) GO TO 430 02090 / 117 IF ( ICH.NE.$59 ) GO TO IRTN 02100 / 118 430 CONTINUE 02110 / 119 GO TO IRTN2 02120  jj/ C**** GET 'IMODE' WHAT TO DO FLAG FROM UTIFIL... 02140  / 120 500 CONTINUE 02160 : FTN 3.3B (OPT = PLC) GETGRP PAGE 5 DATE: 07/24/84 TIME: 0854 / 121 CALL GTSYSP( MODE,77 ) 02170 / 122 IF ( MODE.LT.0 .OR. MODE.GT.4 ) MODE = 0 02180 / 123 GO TO 10 02190  / 124 800 RETURN 02210 / 125 END 02220 : FTN 3.3B (OPT = PLC) GETGRP PAGE 6 DATE: 07/24/84 TIME: 0854   PROGRAM LENGTH $0390 ( 912) jj  EXTERNALS  HFLOT Q8PKUP Q8PREP CCSMVA WTREAD CCSPUT CCSGET  GTSYSP  : FTN 3.3B (OPT = PLC) GETGRP PAGE 7 DATE: 07/24/84 TIME: 0854  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB : jj  FF00 (-255) 0137 77 , FFFE (-1) 0127 35,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114 7 0000 (0) 0001 8,11,18,35,36,37,38,41,51,52,82,92,97,98,99,100,102,106,109,110,111,113,116,122 @ 0001 (1) 0000 2,9,12,19,22,23,26,27,35,36,37,38,41,42,45,52,55,56,57,58,59,61,62,64,66,67,70,71,72,75,76,80,81, / 82,86,87,91,92,97,98,99,100,102,103,105,109,110,111,113,114,115  0004 (4) 011C 15,30,31,43,104,122 - 0005 (5) 011D 16,35,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114  0006 (6) 0124 31  0008 (8) 0120 30  000A (10) 011E 23,23,27,123  000B (11) 011F 27,81  000F (15) 013B 108 jj 0010 (16) 0123 31  0012 (18) 0121 30  0013 (19) 0138 91  0014 (20) 011B 9,9,19,81,91  001E (30) 0122 30,31  0023 (35) 013C 109,110,111 $ 0024 (36) 0128 35,36,37,38,42,52,82,97,98,99,100,103,114  0028 (40) 0139 92  002C (44) 012E 46  004D (77) 013D 121  0050 (80) 012B 42,103,114  0052 (82) 012A 41,102,113  jj  VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AGRPS INTEGER 003D 2,6,19,23,27  ALL INTEGER 0051 2,6,48  AND INTR.FN. 7FFF 77,108  GRPBUF INTEGER 7FFF 1,2,9,19,23,27,87  I INTEGER 0131 57,59,60,61,62,63,71,72,76,77  IALL INTEGER 7FFF 1,2,8,18,22,26,86  ICH INTEGER 013A 105,107,108,115,117 jj IMODE INTEGER 7FFF 1,2,7 = INP INTEGER 0002 2,41,42,44,47,48,59,60,61,62,64,65,66,67,72,75,77,80,81,91,102,103,105,106,113,114,115,116  IRTN INTEGER 0125 33,93,95,107,117  IRTN2 INTEGER 0126 34,83,96,119 / ITC INTEGER 0129 35,36,37,38,42,43,52,82,92,97,98,99,100,103,104,109,110,111,114  J INTEGER 0134 62,64,65,66,67  JJ INTEGER 0135 69,70,71  K INTEGER 012F 54,55,63 : FTN 3.3B (OPT = PLC) GETGRP PAGE 8 DATE: 07/24/84 TIME: 0854  L INTEGER 0136 76,77,78  MELM INTEGER 0130 55,56,57,58  MINUS INTEGER 0047 2,6,9 ( MODE INTEGER 011A 6,7,11,12,13,14,15,16,51,108,109,110,111,121,122 jj MSG1 INTEGER 0052 2,3,39,97  MSG2 INTEGER 0064 2,3,30,52,98,109  MSG3 INTEGER 0076 2,3,31,81,82,99,110  MSG4 INTEGER 0088 2,3,80,87,100,111  MSG5 INTEGER 009A 2,3,103  MSGA INTEGER 00AC 2,4,35,39,90  MSGB INTEGER 00BE 2,4,36,90  MSGC INTEGER 00D0 2,4,37  MSGD INTEGER 00E2 2,4,38  MSGE INTEGER 00F4 2,4,42  MSGF INTEGER 0106 2,5,91,92  MSGY INTEGER 002B 2,6,114  N2H INTEGER 012D 45,46,47,80,81,87,91 jj NCH INTEGER 012C 43,44,45,46,56,70,76  TEMP REAL 0132 59,60,62,65,67    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSGET SUBROUTINE 0301 104,115 # CCSMVA SUBROUTINE 033C 8,19,23,27,30,31,41,80,81,87,91,102,113  CCSPUT SUBROUTINE 01E5 46  GTSYSP SUBROUTINE 035F 120 jj HFLOT REAL.FN. 021B  Q8PKUP INTEGER.FN. 037A  Q8PREP INTEGER.FN. 0377 , WTREAD SUBROUTINE 031A 34,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   10 014A 9,34,96,123  50 0164 11,17 jj 100 0171 12,21  200 017C 13,25  300 0187 14,29  305 0195 31,33  310 01C4 39,43  320 01F0 48,50  330 01FE 48,54  340 0217 59  350 0243 62,68  360 0247 57,59,64,69  365 0258 70,73 : FTN 3.3B (OPT = PLC) GETGRP PAGE 9 DATE: 07/24/84 TIME: 0854  370 025A 57,74 jj 375 0276 75,79  380 029B 82,85  390 02A7 72,75,78,89  400 02C0 15,94,95  410 02EB 100,104  420 0312 106,108  425 033B 52,84,112  430 035C 116,118  500 035E 16,120  800 0370 19,24,28,88,124  GETGRP 0374 1  : FTN 3.3B (OPT = PLC) PRTORF PAGE 1 DATE: 07/24/84 TIME: 0855 jj/ 1 SUBROUTINE PRTORF( IPF,PLU,NLU,NPORT,IWAY ) 00010 / 1 1 /CCS3.0 SUBROUTINE PRTORF SL-XXX 00020  / C** CYBERCREDIT FINANCIAL SERVICES. 00040 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00050 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00060 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00070 / C** 00080 / C** ************ 04/06/84 ************ PROGRAMMER : RWE 00090  / C**** PROGRAM DESCRIPTION : VALIDATE OUTPUT LOGICAL UNIT AND 00110 / C SET DIRECTION OF OUTPUT. 00120  jj/ C*** CALLING SEQUENCE : CALL PRTORF( IPF,LU,NLU,NPORT,IWAY ) 00140  / C PARAMETERS 00160  / C IPF : RETURNED VALUE DESIGNATING OUTPUT DIRECTION. 00180 / C 0 = OUTPUT TO LOCIGAL UNIT 'NLU' 00190 / C 1 = OUTPUT TO SYSPRT FILE 00200 / C LU : LOGICAL UNIT NUMBER OF REQUESTED OUTPUT DEVICE. 00210 / C NLU : RETURNED VALUE DESIGNATING VALIDATED LOGICAL 00220 / C UNIT TO OUTPUT TO. 00230 / C NPORT : CURRENT TERMINAL # ( FROM PGMIN ) 00240 / C IWAY : FLAG TO DETERMINE WHICH ACTION TO TAKE : 00250 / C 0 = FORCE OUTPUT TO DESIGNATED LOGICAL UNIT 00260 jj/ C 1 = FORCE OUTPUT TO SYSPRT FILE 00270 / C 2 = NOT USED AT PRESENT TIME 00280 / C 3 = PROMPT OPERATOR FROM SCREEN, FOR OUTPUT DIRECTION 00290 / C 4 = GET 'IWAY' FLAG FROM UTIFIL 00300  / 2 INTEGER IPF,PLU,NLU,NPORT,IWAY 00320 / 2 +, INP(41),CRT(4),PRINT(4),TAPE(5),MSGY(18) 00330 / 2 +, MSG1(18),MSG2(18),MSG3(18),MSG4(18),MSG5(18) 00340  / 3 DATA MSG1/$180A,$0A07,'** SELECT DIRECTION OF OUTPUT ',$160A/ 00360 / 3 +, MSG2/$0D0A,' 0 = OUTPUT TO LOGICAL UNIT ',$1616/ 00370 / 3 +, MSG3/$0D0A,' 1 = OUTPUT TO SYSPRT FILE ',$1616/ 00380 / 3 +, MSG4/$0D0A,' ',$160A/ 00390 jj/ 3 +, MSG5/$0D0A,' PLEASE ENTER SELECTION (0,1) : ',$1616/ 00400  / 4 DATA MSGY/$0D0A,$0D0A,' IS THIS CORRECT ? (Y/N) : ',$1616/ 00420  / 5 DATA CRT /'TERMINAL'/, PRINT /'PRINTER '/ 00440 / 5 +, TAPE /'TAPE DRIVE'/ 00450  / C**** BEGIN PROGRAM ....... 00470  / 6 MWAY = IWAY 00490 / 7 10 CONTINUE 00500 / 8 PLU = AND( PLU,$FF ) 00510 / 9 IF ( MWAY.EQ.1 ) GO TO 200 00520 jj / 10 NLU = PLU 00540 : FTN 3.3B (OPT = PLC) PRTORF PAGE 2 DATE: 07/24/84 TIME: 0855 / 11 IF ( NPORT.NE.00 ) NLU = 05 00550 / 12 IF ( NPORT.EQ.00 .AND. NLU.EQ.05 ) NLU = 04 00560 / 13 IF ( MWAY.EQ.3 ) GO TO 300 00570 / 14 IF ( MWAY.EQ.4 ) GO TO 400 00580  / 15 100 CONTINUE 00600 / 16 IPF = 0 00610 / 17 IF ( MWAY.EQ.2 ) IPF = 0 00620 / 18 GO TO 800 00630  jj/ C*** OUTPUT FORCED TO SYSPRT FILE...... 00650  / 19 200 CONTINUE 00670 / 20 IPF = 1 00680 / 21 GO TO 800 00690  / C*** ASK OPERATOR FROM SCREEN WHICH WAY TO GO....... 00710  / 22 300 CONTINUE 00730 / 23 IF(NLU.EQ.05.OR.NLU.EQ.04) CALL CCSMVA( CRT,1,8,MSG2,18,12 ) 00740 / 24 IF(NLU.EQ.09.OR.NLU.EQ.12) CALL CCSMVA( PRINT,1,8,MSG2,18,12 ) 00750 / 25 IF(NLU.EQ.06.OR.NLU.EQ.16) CALL CCSMVA( TAPE,1,10,MSG2,18,12 ) 00760 / 26 IF(NLU.EQ.17.OR.NLU.EQ.18) CALL CCSMVA( TAPE,1,10,MSG2,18,12 ) 00770 jj / 27 CALL WTREAD(05,-1,MSG1 ,36,0,0,0,ITC) 00790 / 28 CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 00800 / 29 CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 00810 / 30 CALL WTREAD(05,-1,MSG4 ,36,0,0,0,ITC) 00820  / 31 310 CONTINUE 00840 / 32 CALL CCSMVA(INP,1,0,INP,1,82) 00850 / 33 CALL WTREAD(05,-1,MSG5 ,36,-1,INP,80,ITC) 00860 / 34 IF (ITC.EQ.4) GO TO 310 00870  / C*** VALIDATE SELECTION.... 00890  jj/ 35 CALL CCSGET( INP,1,ICH ) 00910  / 36 IF( INP(41).EQ.0 ) GO TO 320 00930 / 37 IF ( ICH.LT.$30 .OR. ICH.GT.$31 ) GO TO 310 00940  / 38 320 IPF = AND( ICH,$F ) 00960 / 39 IF( IPF.EQ.0 ) CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 00970 / 40 IF( IPF.EQ.1 ) CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 00980  / 41 CALL CCSMVA(INP,1,0,INP,1,82) 01000 / 42 CALL WTREAD(05,-1,MSGY ,36,-1,INP,80,ITC) 01010 / 43 CALL CCSGET(INP,1,ICH) 01020 / 44 IF ( INP(41).EQ.0 ) GO TO 330 01030 jj/ 45 IF ( ICH.NE.$59 ) GO TO 300 01040 / 46 330 CONTINUE 01050 / 47 GO TO 800 01060  / C**** GET 'IWAY' WHAT TO DO FLAG FROM UTIFIL... 01080 : FTN 3.3B (OPT = PLC) PRTORF PAGE 3 DATE: 07/24/84 TIME: 0855  / 48 400 CONTINUE 01100 / 49 CALL GTSYSP( MWAY,73 ) 01110 / 50 IF ( MWAY.LT.0 .OR. MWAY.GT.3 ) MWAY = 0 01120 / 51 GO TO 10 01130  / 52 800 RETURN 01150 jj/ 53 END 01160 : FTN 3.3B (OPT = PLC) PRTORF PAGE 4 DATE: 07/24/84 TIME: 0855   PROGRAM LENGTH $01CC ( 460)   EXTERNALS  Q8PKUP Q8PREP CCSMVA WTREAD CCSGET GTSYSP  : FTN 3.3B (OPT = PLC) PRTORF PAGE 5 DATE: 07/24/84 TIME: 0855  ***** L I S T O F S Y M B O L S *****    CONSTANTS : jj ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   FFFE (-1) 00AB 27,28,29,30,33,39,40,42 & 0000 (0) 0001 11,12,16,17,27,28,29,30,32,36,39,40,41,44,50 * 0001 (1) 0000 9,20,23,24,25,26,27,28,29,30,32,33,35,39,40,41,42,43 0005 (5) 00A6 11,12,23,27,28,29,30,33,39,40,42  0008 (8) 00A7 23,24  000A (10) 00AA 25,26,51  000C (12) 00A9 23,24,25,26  000F (15) 00B1 38  0012 (18) 00A8 23,24,25,26 jj 0024 (36) 00AC 27,28,29,30,33,39,40,42  0049 (73) 00B2 49  0050 (80) 00AF 33,42  0052 (82) 00AE 32,41  00FF (255) 00A5 8    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 8,38 jj CRT INTEGER 002B 2,5,23  ICH INTEGER 00B0 35,37,38,43,45  INP INTEGER 0002 2,32,33,35,36,41,42,43,44  IPF INTEGER 7FFF 1,2,16,17,20,38,39,40  ITC INTEGER 00AD 27,28,29,30,33,34,39,40,42  IWAY INTEGER 7FFF 1,2,6  MSG1 INTEGER 004A 2,3,27  MSG2 INTEGER 005C 2,3,23,24,25,26,28,39  MSG3 INTEGER 006E 2,3,29,40  MSG4 INTEGER 0080 2,3,30  MSG5 INTEGER 0092 2,3,33  MSGY INTEGER 0038 2,4,42  MWAY INTEGER 00A4 5,6,9,13,14,17,49,50 jj NLU INTEGER 7FFF 1,2,10,11,12,23,24,25,26  NPORT INTEGER 7FFF 1,2,11,12  PLU INTEGER 7FFF 1,2,8,10  PRINT INTEGER 002F 2,5,24  TAPE INTEGER 0033 2,5,25,26 : FTN 3.3B (OPT = PLC) PRTORF PAGE 6 DATE: 07/24/84 TIME: 0855    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :  jj CCSGET SUBROUTINE 0156 34,43  CCSMVA SUBROUTINE 0184 23,24,25,26,32,41  GTSYSP SUBROUTINE 01A2 48  Q8PKUP INTEGER.FN. 01B9  Q8PREP INTEGER.FN. 01B6  WTREAD SUBROUTINE 011C 26,28,29,30,33,39,40,42   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :  jj 10 00B5 6,51  100 00D4 14  200 00E2 9,19  300 00E6 13,22,45  310 0140 30,34,37  320 0167 36,38  330 01A0 44,46  400 01A1 14,48  800 01B0 17,21,47,52  PRTORF 01B3 1 : FTN 3.3B (OPT = PLC) SYSPRT PAGE 1 DATE: 07/24/84 TIME: 0856 / 1 SUBROUTINE SYSPRT( BUFFER,NTIMES,SYSPRM,IOPT ) 00010 / 1 1 /CCS3.0 SUBROUTINE SYSPRT SL-XXX 00020 jj / C** CYBERCREDIT FINANCIAL SERVICES. 00040 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00050 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00060 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00070 / C** 00080 / C** ************ 04/06/84 ************ PROGRAMMER : RWE 00090  / C**** PROGRAM DESCRIPTION : OUTPUT BUFFER TO LOGICAL UNIT OR 00110 / C TO A FILE 'SYSPRT'. 00120  / C*** CALLING SEQUENCE : CALL SYSPRT( BUFFER,NTIMES,SYSPRM,IOPT ) 00140  jj/ C PARAMETERS 00160  / C BUFFER : BUFFER CONTAINING CHARACTERS TO OUTPUT FROM. 00180 / C NTIMES : # OF TIMES TO OUTPUT THE BUFFER 00190 / C SYSPRM : 6 WORD ARRAY HOLDING PARAMETERS FOR SYSPRT 00200 / C SYSPRM(1) : PLN - NUMBER OF BYTES TO OUTPUT FROM BUFFER 00210 / C SYSPRM(2) : NLU - LOGICAL UNIT TO OUTPUT TO ( IGNORED IF 00220 / C OUTPUT IS TO FILE ) 00230 / C SYSPRM(3) : IPF - SWITCH DESIGNATING OUTPUT TO FILE OR LU 00240 / C 0 = LOGICAL UNIT. 1 = FILE. 2 = BOTH. 00250 / C SYSPRM(4) : NLINE - CURRENT LINE OR RECORD JUST OUTPUT. 00260 / C (INITIALIZED TO 0 BY CALLING PROGRAM) 00270 / C SYSPRM(5) : ISERR - ISTAT OF FILE MANAGER CALL TO FILE 00280 jj/ C SYSPRM(6) : NU - NOT USED AT PRESENT TIME 00290 / C IOPT : WHAT TO DO FLAG. 0 = OUTPUT BUFFER TO FILE OR LU 00300 / C 1 = CLOSE FILE 00310  / C**** SYSPRT PARAMETERS........ 00330  / 2 INTEGER BUFFER(1),NTIMES,IOPT 00350 / 2 +, SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00360  / 3 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00380 / 3 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00390 / 3 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00400  jj/ C**** FWRITE PARAMETERS..... 00420 / 4 INTEGER IFLAG,ITEMP(8) 00430  / 5 DATA IFLAG /0/, ITEMP /8*0/ 00450  / 6 INTEGER DAT1(15),REQ1(24),R1KY(15),REC1(0068) 00470 / 6 +, HEDR(18) 00480  / 7 DATA HEDR/$0D0A,$0717,'ABORTED--PRINT FILE IS FULL FN='/ 00500 / 8 DATA DAT1 /'SYSPRT ',00,01,-1/,REQ1/24*0/ 00510 / 8 +, IOPN/0/ 00520  / C**** 00540 jj: FTN 3.3B (OPT = PLC) SYSPRT PAGE 2 DATE: 07/24/84 TIME: 0856 / C**** BEGIN PROGRAM ....... 00550  / 9 IF ( ISERR.LT.0 ) GO TO 800 00570 / 10 ISERR = 0 00580 / 11 LINE = NLINE 00590 / 12 LU = AND( NLU,$FF ) 00600 / 13 LENW = (PLN+1)/2 00610  / 14 IF ( IOPT.NE.0 ) GO TO 950 00630 / 15 IF ( IPF.EQ.1 ) GO TO 400 00640 / 16 IF ( NTIMES.LE.0 ) GO TO 800 00650  jj/ 17 IF ( LU.EQ.05 .OR. LU.EQ.04 ) GO TO 20 00670 / 18 IF ( LU.EQ.09 .OR. LU.EQ.12 ) GO TO 20 00680 / 19 I = LENW 00690 / 20 GO TO 40 00700  / 21 20 CONTINUE 00720 / 22 DO 30 I = LENW, 2, -1 00730 / 23 IF ( BUFFER(I).NE.$2020 ) GO TO 40 00740 / 24 30 CONTINUE 00750  / 25 40 CONTINUE 00770 / 26 LENB = I * 2 00780  jj/ C*** WRITE BUFFER TO LOGICAL UNIT..... 00800  / 27 IF ( LU.EQ.05 ) GO TO 140 00820 / 28 50 CONTINUE 00830  / 29 DO 80 I = 1,NTIMES 00850  / 30 ASSIGN 60 TO ICOMP 00870 / 31 CALL FWRITE( LU,BUFFER,LENB,ICOMP,IFLAG,ITEMP ) 00880 / 32 CALL DISP 00890 / 33 60 CONTINUE 00900  / 34 80 CONTINUE 00920 jj/ 35 GO TO 200 00930  / C**** WRITE OUTPUT TO TERMINAL (MAX OF 132 BYTES)......... 00950  / 36 140 CONTINUE 00970 / 37 DO 150 I = 1,NTIMES 00980  / 38 ILN = LENB 01000 / 39 JLN = LENB 01010 / 40 IF ( ILN.GE.80 ) JLN = 80 01020  / 41 CALL WTREAD( LU,-1,HEDR,2,0,0,0,ITC ) 01040 / 42 CALL WTREAD( LU,-1,BUFFER,JLN,0,0,0,ITC ) 01050 jj / 43 JLN = ILN-80 01070 / 44 IF( JLN.LE.0 ) GO TO 150 01080 : FTN 3.3B (OPT = PLC) SYSPRT PAGE 3 DATE: 07/24/84 TIME: 0856  / 45 CALL WTREAD( LU,-1,BUFFER(41),JLN,0,0,0,ITC ) 01100  / 46 150 CONTINUE 01120  / C**** INCREMENT LINE COUNT....... 01140  / 47 200 CONTINUE 01160 / 48 NLINE = NLINE + NTIMES 01170 jj/ 49 GO TO 800 01180  / C**** WRITE BUFFER TO SYSPRT FILE.......... 01200  / 50 400 CONTINUE 01220 / 51 IF ( IOPN.EQ.1 ) GO TO 420 01230  / 52 DO 410 I = 1,24 01250 / 53 REQ1(I) = 0 01260 / 54 410 CONTINUE 01270  / 55 CALL OPENFL( REQ1,DAT1,ISTAT ) 01290 / 56 IF( ISTAT.LT.0 ) GO TO 900 01300 jj/ 57 IOPN = 1 01310  / C**** OUTPUT BUFFER TO SYSPRT FILE.... 01330  / 58 420 CONTINUE 01350 / 59 IF( NTIMES.LE.0 ) GO TO 800 01360 / 60 ILN = PLN 01370 / 61 IF( ILN.GT.132 ) ILN = 132 01380 / 62 CALL CCSMVA( BUFFER,1,ILN,REC1,1,132 ) 01390  / 63 DO 440 I = 1,NTIMES 01410 / 64 CALL PUTS( REQ1,REC1,1,ISTAT ) 01420 / 65 IF( AND(ISTAT,$9000).EQ.$9000 ) GO TO 500 01430 jj/ 66 IF( ISTAT.LT.0 ) GO TO 900 01440 / 67 440 CONTINUE 01450  / 68 NLINE = NLINE+NTIMES 01470 / 69 GO TO 800 01480  / C**** INFORM OPERATOR FILE IS FULL..... 01500  / 70 500 CONTINUE 01520 / 71 ISERR = -1 01530 / 72 CALL CCSMVA( HEDR,1,36,REC1,1,132 ) 01540 / 73 CALL CCSMVA( DAT1,1,24,REC1,37,24 ) 01550 / 74 CALL WTREAD( 05,-1,REC1,64,0,0,0,ITC ) 01560 jj/ 75 GO TO 950 01570  / 76 800 CONTINUE 01590 / 77 RETURN 01600  / C*** ERROR SECTION.... 01620 : FTN 3.3B (OPT = PLC) SYSPRT PAGE 4 DATE: 07/24/84 TIME: 0856  / 78 900 CONTINUE 01640 / 79 ISERR = -1 01650 / 80 IREQ = AND(REQ1(4),$FF) 01660 / 81 IF(IREQ.LT.11) IREQ = IREQ-1 01670 / 82 IF(IREQ.EQ.18) IREQ = 10 01680 jj/ 83 CALL FILERR( DAT1,IREQ,ISTAT,LU ) 01690  / C**** CLOSE FILE AND RETURN 01710  / 84 950 CONTINUE 01730 / 85 CALL CLOSFL( REQ1,ISTAT ) 01740 / 86 IOPN = 0 01750 / 87 RETURN 01760 / 88 END 01770 : FTN 3.3B (OPT = PLC) SYSPRT PAGE 5 DATE: 07/24/84 TIME: 0856   PROGRAM LENGTH $020C ( 524)  jj EXTERNALS  Q8PKUP Q8PREP FWRITE DISP WTREAD OPENFL CCSMVA PUTS FILERR CLOSFL  : FTN 3.3B (OPT = PLC) SYSPRT PAGE 6 DATE: 07/24/84 TIME: 0856  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :  jj 9000 (-28671) 00A9 65,65  FFFE (-1) 00A4 41,42,45,71,74,79 & 0000 (0) 0001 5,8,9,10,14,16,41,42,44,45,53,56,59,66,74,86 0 0001 (1) 0000 2,3,8,13,15,22,29,37,41,42,45,51,52,57,62,63,64,71,72,73,74,79,81  0002 (2) 009C 13,22,26,41  0005 (5) 009D 17,27,74  0018 (24) 00A6 52,73  0024 (36) 00AA 72  0025 (37) 00AB 73  0040 (64) 00AC 74  0084 (132) 00A8 61,61,62,72  00FF (255) 009A 12,80  2020 (8224) 009F 23 jj   VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 12,65,80  BUFFER INTEGER 7FFF 1,2,23,31,42,45,62  DAT1 INTEGER 000B 5,8,55,73,83  HEDR INTEGER 0085 5,7,41,72  I INTEGER 009E 18,19,22,23,26,29,37,52,53,63  ICOMP INTEGER 00A1 29,31 jj IFLAG INTEGER 0002 3,5,31  ILN INTEGER 00A2 37,38,40,43,60,61,62  IOPN INTEGER 0097 8,51,57,86  IOPT INTEGER 7FFF 1,2,14  IPF INTEGER 7FFF 2,3,15  IREQ INTEGER 00AD 79,80,81,82,83  ISERR INTEGER 7FFF 2,3,9,10,71,79  ISTAT INTEGER 00A7 55,56,64,65,66,83,85  ITC INTEGER 00A5 41,42,45,74  ITEMP INTEGER 0003 3,5,31  JLN INTEGER 00A3 38,39,40,42,43,44,45  LENB INTEGER 00A0 25,26,31,38,39  LENW INTEGER 009B 12,13,19,22 jj LINE INTEGER 0098 10,11  LU INTEGER 0099 11,12,17,18,27,31,41,42,45,83  NLINE INTEGER 7FFF 2,3,11,48,68  NLU INTEGER 7FFF 2,3,12  NTIMES INTEGER 7FFF 1,2,16,29,37,48,59,63,68  NU INTEGER 7FFF 2,3  PLN INTEGER 7FFF 2,3,13,60 : FTN 3.3B (OPT = PLC) SYSPRT PAGE 7 DATE: 07/24/84 TIME: 0856  R1KY INTEGER 0032 5  REC1 INTEGER 0041 5,62,64,72,73,74  REQ1 INTEGER 001A 5,8,53,55,64,80,85  SYSPRM INTEGER 7FFF 1,2,3  jj  EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSMVA SUBROUTINE 0177 61,72,73  CLOSFL SUBROUTINE 01D1 84  DISP SUBROUTINE 010C 31  FILERR SUBROUTINE 01CB 82  FWRITE SUBROUTINE 0104 29  OPENFL SUBROUTINE 015C 54  PUTS SUBROUTINE 0186 63 jj Q8PKUP INTEGER.FN. 01E0  Q8PREP INTEGER.FN. 01DD  WTREAD SUBROUTINE 01AD 40,42,45,74   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   20 00E7 17,18,21  30 00EF 21,24  40 00F3 19,23,25 jj 50 00FA 27  60 010D 29,33  80 010D 27,34  140 0111 27,36  150 0145 36,44,46  200 0147 34,47  400 014B 15,50  410 0156 51,54  420 0167 51,58  440 0194 62,67  500 019B 65,70  800 01B7 9,16,49,59,69,76  900 01B8 56,66,78 jj 950 01D0 14,75,84  SYSPRT 01DA 1  : FTN 3.3B (OPT = PLC) ICKGRP PAGE 1 DATE: 07/24/84 TIME: 0856 / 1 INTEGER FUNCTION ICKGRP( GRPBUF,IALL,REC,IPOS ) 00010 / 1 1 /CCS3.0 SUBROUTINE ICKGRP SL-XXX 00020  / C** CYBERCREDIT FINANCIAL SERVICES. 00040 / C** CYBERCREDIT FIELD SUPPORT GROUPS 00050 / C** NEW YORK, ATLANTA, CLEVELAND, CHICAGO, LA JOLLA. 00060 / C** COPYRIGHT CONTROL DATA CORPORATION, 1982,1983,1984 00070 / C** 00080 / C** ************ 04/06/84 ************ PROGRAMMER : RWE 00090 jj / C**** PROGRAM DESCRIPTION : VALIDATE RECORD FOR MATCH OF ACCT GROUP 00110  / C*** CALLING SEQUENCE : 00130 / C ITF = ICKGRP( GRPBUF,IALL,REC,IPOS ) 00140 / C OR... IF ( ICKGRP( GRPBUF,IALL,REC,IPOS ).EQ. 1 ) GO TO 00150  / C PARAMETERS 00170  / C ICKGRP : RETURNED VALUE OF 0 = TRUE, OK TO USE RECORD 00190 / C 1 = FALSE, DON'T USE RECORD 00200 / C GRPBUF : 10 WORD ARRAY PASSED, CONTAINING VALID GROUPS 00210 / C ( BUILT BY SUBROUTINE 'GETGRP' ) 00220 jj/ C IALL : PASSED FLAG DESIGNATING 00230 / C 0 = USE ALL ACCOUNT GROUPS ( FORCE ICKGRP TO TRUE ) 00240 / C 1 = LOOK FOR MATCH OF GROUP FROM RECORD, IN THE 00250 / C GRPBUF ARRAY 00260 / C REC : PASSED BUFFER OF RECORD CONTAING ACCT GROUP. 00270 / C IPOS : STARTING BYTE POS. IN REC OF ACCOUNT GROUP 00280  / 2 INTEGER GRPBUF(1),IALL,REC(1),IPOS,TRUE,FALSE 00300  / 3 DATA TRUE / 0/, FALSE / 1/ 00320  / C**** 00340 / C**** BEGIN PROGRAM ....... 00350 jj / 4 ICKGRP = TRUE 00370 / 5 IF ( IALL.EQ.0 ) GO TO 900 00380  / 6 CALL CCSGET( REC,IPOS,IGRP ) 00400  / 7 DO 200 I = 1,10 00420 / 8 J = I*2-1 00430 / 9 CALL CCSGET( GRPBUF,J,ICH ) 00440  / 10 IF( ICH.EQ.$FF ) GO TO 800 00460 / 11 IF( ICH.EQ.IGRP ) GO TO 900 00470 / 12 200 CONTINUE 00480 jj / C*** NO MATCH SET ICKGRP TO FALSE 00500  / 13 800 CONTINUE 00520 / 14 ICKGRP = FALSE 00530 / 15 GO TO 900 00540 : FTN 3.3B (OPT = PLC) ICKGRP PAGE 2 DATE: 07/24/84 TIME: 0856  / 16 900 RETURN 00560 / 17 END 00570 : FTN 3.3B (OPT = PLC) ICKGRP PAGE 3 DATE: 07/24/84 TIME: 0856   PROGRAM LENGTH $0041 ( 65) jj  EXTERNALS Q8PKUP Q8PREP CCSGET  : FTN 3.3B (OPT = PLC) ICKGRP PAGE 4 DATE: 07/24/84 TIME: 0856  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :  jj 00FF (255) 0007 10    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   FALSE INTEGER 0002 2,3,14  GRPBUF INTEGER 7FFF 1,2,9  I INTEGER 0004 6,8  IALL INTEGER 7FFF 1,2,5  ICH INTEGER 0006 9,10,11 jj ICKGRP INTEGER 0000 1,4,14  IGRP INTEGER 0003 6,11  IPOS INTEGER 7FFF 1,2,6  J INTEGER 0005 7,8,9  REC INTEGER 7FFF 1,2,6  TRUE INTEGER 0001 2,3,4    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :  jj CCSGET SUBROUTINE 000F 5,9  Q8PKUP INTEGER.FN. 0037  Q8PREP INTEGER.FN. 0034   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   200 0024 6,12  800 0029 10,13  900 002D 5,11,15,16 jj ICKGRP 0031  $*ASSEMÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  $*EOFÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*K,I13,L14,P2ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO, MOVING BINARYS TO B.DTLLST , XDEVELÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*OPEN,FN=B.DTLLST,OW=XDEVEL,LU=21,Wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*REW,07,21ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*LIBEDTÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  LIB  IN  *T,07,B,21,B,,1 jj 327 RECORDS TRANSFERRED  1 FILES TRANSFERRED  IN  *Z $*REW,07,21ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO, INSTALLING B.DTLLSTÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*LIBEDTÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  LIB  IN  *K,I21,P08  IN  *P,F,2 ! DTLLST 8900 CCS3.0 DETAIL LIST REPORT SL-XXX jj! DTLPRS A7ED CCS3.0 X SL-XXX ! DTLAED A938 B02 F CCS 3.0 ( DTLLST - ACTEDT ) SUMMARY *** ! DTLCDS A989 ! DTLEDT A9A9 ! DTLPAL AA8D ! DTLPRB AC5B ! DTLPRH AD16 ! DTLRBF AE1B CCS3.0 X SL-XXX ! DTLRDS AF11 ! DTLRNR AF37 ! DTLRRS AFFE ! BHXDEC B1C7 HEX TO DECIMAL W/LEADING BLANKS ! ZERO B23E jj! LASTCH B25B ! GTSYSP B28E CCS3.0 SUBROUTINE GTSYSP SL-XXX ! GETUTI B2F2 CCS3.0 SUBROUTINE GETUTI SL-XXX ! GETGRP B429 CCS3.0 SUBROUTINE GETGRP SL-XXX ! PRTORF B7B9 CCS3.0 SUBROUTINE PRTORF SL-XXX ! SYSPRT B985 CCS3.0 SUBROUTINE SYSPRT SL-XXX ! ICKGRP BB91 CCS3.0 SUBROUTINE ICKGRP SL-XXX ! GDITEM BBD2 ! RPGDMY BC06 RPGII DUMMY ENTRY POINTS ! FMENTP BC06 F58 A ITOS CCS 3.0 SL-149 ! FORTN BC62 F01 A FTNR CCS 3.0 SL-149 ! Q8PRMS BD7F R99 A RPG CCS 3.0 SL-149 ! PARABN BDA3 S53 A RPG CCS 3.0 SL-149 jj! FLOTN BDB5 G14 A FTNR CCS 3.0 SL-149 ! COMNFP BFF3 G15 A FTNR CCS 3.0 SL-149 ! CCSBLK C127 A03 A CCS CCS 3.0 SL-149 ! CCSCST C137 A04 A CCS CCS 3.0 SL-149 ! CCSGET C177 A06 A CCS CCS 3.0 SL-149 ! CCSMVA C197 A08 A CCS CCS 3.0 SL-149 ! CCSPUT C1C6 A09 A CCS CCS 3.0 SL-149 ! CCSTIM C1E6 A11 A CCS CCS 3.0 SL-149 ! GETACT C20E A14 A CCS CCS 3.0 SL-149 ! EDIT C343 B50 F CCS CCS 3.0 PSrPD SL-149 ! FILERR C435 B52 F CCS CCS 3.1 SL-173 ! UTHEAD C500 C52 F CCS CCS 3.0hELA SL-149 ! CCSHXA C5FA A07 A CCS CCS 3.0 SL-149 jj IN  *K,I08  IN  *N,DTLLST,,,B  IN  *Z $*K,I13,L14ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO, INSTALL COMPLETEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*Zÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ _‚_‚ EDIT C343 B50 F CCS CCS 3.0 PSrPD SL-149 ! FILERR C435 B52 F CCS CCS 3.1 SL-173 ! UTHEAD C500 C52 F CCS CCS 3.0hELA SL-149 ! CCSHXA C5FA A07 A CCS CCS 3.0 SL-149 jÈI[e˜ [[J001 $$ ’ IµÈj$ JOB,J001,RWE TRENDP INSTALL 07/27/84ÿ D 1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 DATE OF RUN: 07/27/84 SYSTEM ID: ST. LOUIS DEMONSTRATION CENTER (05/15/80) D JJJ 00000000000 00000000000 111 D JJJ 0000000000000 0000000000000 1111 D JJJ 0000000000000 0000000000000 11111 D JJJ 000 000 000 000 111111 D JJJ 000 000 000 000 1111111 D JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 jjD JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 D JJJ JJJ 000 000 000 000 111 D JJJJJJJJJJJJJ 0000000000000 0000000000000 1111111111111 D JJJJJJJJJJJJJ 0000000000000 0000000000000 1111111111111 D JJJJJJJJJJJ 00000000000 00000000000 1111111111111 D $*K,L14ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO, TRENDP WEAVED AS OF 07/27/84ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CTO,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ jj$*CTO, IS NOW BEING COMPILED TO B.TRENDP , CCS149ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*K,L2ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ + TRENDP DCK/ I=13,H 00010 + GETSW DCK/ I=13,H 00010 + GTSYSP DCK/ I=13,H 00010 + GETUTI DCK/ I=13,H 00010 + PRTORF DCK/ I=13,H 00010 + GETGRP DCK/ I=13,H 00010 + SYSPRT DCK/ I=13,H 00010 + ICKGRP DCK/ I=13,H 00010 + ICHKZB DCK/ I=13,H 00010 + END/ 00010 $*FTNÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ jj : FTN 3.3B (OPT = LPXC) TRENDP PAGE 1 DATE: 07/27/84 TIME: 1410 / 1 PROGRAM TRENDP 00001 / 1 1 /CCS3.0 TREND ANALYSIS 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/24/84 ************ PROGRAMMER : RWE 00009  / C REPORT FROM THE AGEWRK FILE. 00011 jj / 2 EXTERNAL FMRDEL,FMEOFC 00013 / 3 INTEGER FMRDEL,FDEL,FMEOFC,FEOF 00014  / 4 INTEGER DAT1(15),LD1(4),REQ1(24),R1KY(15),REC1(0412) 00016  / 5 INTEGER UTFILE(4),SYPFIL(4) 00018 / 6 DATA UTFILE/'UTIFIL '/,SYPFIL/'SYSPRT '/ 00019  / 7 EQUIVALENCE ( REQ1(15), NUMRD ) 00021 / 8 INTEGER HEAD(18) 00022  / 9 DATA HEAD/$0D0A,$0A17,'EXECUTING TRENDP ',$0F16/ 00024 jj/ 10 DATA DAT1 /'LAAGEWRK ',00,10,00/,REQ1/24*0/ 00025  / 11 DATA LD1/'AGEWRK '/ 00027  / 12 INTEGER USER(4),U(8),GRPBUF(10),DATE(3),HDR(20,3) 00029 / 12 +, LU,PLU,NPORT,IWAY,IMODE,IALL,IOPT,ITF,F1,F2 00030 / 12 +, IPAGE,DALT(2),AEND(2),ALL(2),SVTID(2) 00031 / 12 +, SVQID(2),IOSW,IQT,MNUPRO(3) 00032  / 13 DATA PLU/12/,IPAGE/0/,DALT/'DALT'/,AEND/'END '/,ALL/'ALL '/ 00034 / 13 +, SVQID/2*$FFFF/,KFLG/0/,IQT/17/,IDUN/0/,IFOUND/0/,I1P/0/ 00035 / 13 +, SVTID/2*$FFFF/,IWAY/3/,MNUPRO/'MNUPRO'/,IMODE/3/ 00036  jj/ 14 INTEGER STG(36),TEMP(10),A00(6),A01(6),RTOT(6),STOT(6) 00038 / 14 +, TOT14(7),APAGE(6) 00039  / 15 DATA A00 /'000000000000'/, A01 /'000000000001'/ 00041 / 15 +, RTOT/'000000000000'/, STOT/'000000000000'/ 00042 / 15 +, APAGE/'000000000000'/,TOT14/'00000000000000'/ 00043  / 16 INTEGER TBL1(6),TBL2(6),IADYS(2,11) 00045 / 16 +, BA(6,11,9),BC(6,11,9),TA(6,11,9),TC(6,11,9) 00046  / 17 DATA TBL1,TBL2 / 12*'00' / 00048 / 17 +, IADYS/' 029 059 089 119 149 179 996 997 998 999 '/ 00049 / 17 +, BA,BC,TA,TC/ 2376*'00' / 00050 jj / C**** SYSPRT PARAMETERS........ 00052  / 18 INTEGER SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00054 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 2 DATE: 07/27/84 TIME: 1410  / 19 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00056 / 19 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00057 / 19 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00058  / 20 DATA PLN/132/,NLU/05/,IPF/00/,NLINE/0/,ISERR/0/,NU/1/ 00060  / C**** SCREEN INPUT AND OUTPUT BUFFERS 00062 jj/ 21 INTEGER INP(41),MSG01(31),NAA(16),TAA(14),MSGEOF(09) 00063  / 22 DATA MSG01/ 'FORMER STATUS ' 00065 / 22 +, ' ',$1616 / 00066 / 23 DATA NAA /' TOTALS '/ 00067 / 23 +, TAA /'PRODUCT REPORT TOTALS '/ 00068 / 23 +, MSGEOF/'- END OF REPORT - '/ 00069  / 24 INTEGER L01(66),L02(66),L03(66),L04(66),L05(66),L06(66),L07(66) 00071 / 24 +, L08(66),L09(66),L10(66),L11(66),L12(66),L13(66),L14(66) 00072  / C POS. 01 +------------------ THRU ------------------+ 44 00074 / 25 DATA L01/'1---------- HDR1 GOES HERE -------------- ' 00075 jj/ 25 +, ' DELINQUENT TREND ANALYSIS ' 00076 / 25 +, ' PAGE '/ 00077  / C POS. 01 +------------------ THRU ------------------+ 44 00079 / 26 DATA L02/' ---------- HDR2 GOES HERE -------------- ' 00080 / 26 +, ' FOR GROUP QUEUE ' 00081 / 26 +, ' '/ 00082  / C POS. 01 +------------------ THRU ------------------+ 44 00084 / 27 DATA L03/' ---------- HDR3 GOES HERE -------------- ' 00085 / 27 +, ' FROM: TO: ' 00086 / 27 +, ' '/ 00087  jj/ C POS. 01 +------------------ THRU ------------------+ 44 00089 / 28 DATA L04/' ' 00090 / 28 +, ' ' 00091 / 28 +, ' '/ 00092  / C POS. 01 +------------------ THRU ------------------+ 44 00094 / 29 DATA L05/' 00 - 29 30 - 59 60 - ' 00095 / 29 +, '89 90 - 119 120 - 149 150 - 179 ' 00096 / 29 +, ' 180 + WRITE OFF RELEASED SATISIFIED '/ 00097  / C POS. 01 +------------------ THRU ------------------+ 44 00099 / 30 DATA L06/' ' 00100 / 30 +, ' ' 00101 jj/ 30 +, ' '/ 00102  / C POS. 01 +------------------ THRU ------------------+ 44 00104 / 31 DATA L07/' ' 00105 / 31 +, ' ' 00106 / 31 +, ' '/ 00107 / C POS. 01 +------------------ THRU ------------------+ 44 00109 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 3 DATE: 07/27/84 TIME: 1410 / 32 DATA L08/' ' 00110 / 32 +, ' ' 00111 / 32 +, ' '/ 00112  / C POS. 01 +------------------ THRU ------------------+ 44 00114 jj/ 33 DATA L09/' ' 00115 / 33 +, ' ' 00116 / 33 +, ' '/ 00117  / C POS. 01 +------------------ THRU ------------------+ 44 00119 / 34 DATA L10/' ' 00120 / 34 +, ' ' 00121 / 34 +, ' '/ 00122  / C POS. 01 +------------------ THRU ------------------+ 44 00124 / 35 DATA L11/' ' 00125 / 35 +, ' NO. ACCOUNTS PAST DUE AMT' 00126 / 35 +, ' CURR PAYOFF AMT CURR BALANCE '/ 00127 jj / C POS. 01 +------------------ THRU ------------------+ 44 00129 / 36 DATA L12/' **************************' 00130 / 36 +, '********************************************' 00131 / 36 +, '************************ '/ 00132  /+ +C POS. 01 +------------------ THRU ------------------+ 44 00134 / 37 DATA L13/' NEWLY ADDED 00 - 29 30 - 59 ' 00135 / 37 +, ' 60 - 89 90 - 119 120 - 149 15' 00136 / 37 +, '0 - 179 180 + PAGE TOTALS '/ 00137  / C POS. 01 +------------------ THRU ------------------+ 44 00139 / 38 DATA L14/' **TRENDP** ERROR IN FILE : XXXXXXXX ' 00140 jj/ 38 +, ' RUN ABORTED ********** ' 00141 / 38 +, ' '/ 00142  / C**** 00144 / C**** BEGIN PROGRAM ....... 00145  / C**** GET RECORD DELETE CODE AND END OF FILE CODE. 00147 / 39 ASSEM $C000,FMRDEL,$6800,FDEL 00148 / 40 ASSEM $C000,FMEOFC,$6800,FEOF 00149  / C*** GET EXTERNAL SWITCHS, USER INFO, HEADINGS, AND OTHER PARAMETERS 00151  / 41 CALL GETSW( U(1) ) 00153 jj/ 42 IF( U(1).EQ.0 ) IQT = 25 00154 / 43 CALL PGMIN ( USER,LU,MODE,NPORT ) 00155  / C*** CCS/LA LOOK-ALIKE..... 00157  / 44 CALL CCSCST( DAT1,1,2,USER,1,8,ICM ) 00159 / 45 IF ( ICM.EQ.0 ) GO TO 5 00160 / 46 CALL CCSMVA( LD1,1,8,DAT1,1,16 ) 00161 / 47 5 CONTINUE 00162  / 48 CALL CCSMVA( USER,1,8,HEAD,23,8 ) 00164 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 4 DATE: 07/27/84 TIME: 1410 / 49 CALL WTREAD( LU,-1,HEAD,36,0,0,0,ITC ) 00165 jj/ 50 CALL UTHEAD( HDR,DATE ) 00166  / 51 CALL GTSYSP( IWAY, 33 ) 00168 / 52 CALL GTSYSP( IMODE, 34 ) 00169 / 53 CALL PRTORF( IPF,PLU,NLU,NPORT,IWAY ) 00170 / 54 CALL GETGRP( GRPBUF,IALL,IMODE ) 00171  / C**** OPEN FILES AND GET UTIFIL RECORDS 00173  / 55 CALL SYSPRT( L01,0,SYSPRM,0 ) 00175 / 56 IF( ISERR.LT.0 ) CALL CCSMVA( SYPFIL,1,8,UTFILE,1,8 ) 00176 / 57 IF( ISERR.LT.0 ) GO TO 9820 00177  jj/ 58 CALL OPENFL( REQ1,DAT1,ISTAT ) 00179 / 59 IF ( ISTAT.LT.0 ) GO TO 9800 00180 / 60 REQ1(23) = 1 00181  / C*** MOVE IN HEADERS AND SYSTEM DATE.... 00183  / 61 CALL EDIT( DATE,1,L02,120,1 ) 00185 / C--- CALL CCSTIM( L02(40) ) 00186 / 62 CALL CCSMVA( HDR(01,01),1,40,L01,2,40 ) 00187 / 63 CALL CCSMVA( HDR(01,02),1,40,L02,2,40 ) 00188 / 64 CALL CCSMVA( HDR(01,03),1,40,L03,2,40 ) 00189 / 65 IF(NPORT.NE.0 .AND. IPF.NE.1) CALL CCSPUT( $0C,1,L01 ) 00190  jj/ C**** RETRIEVE RECORDS....... AND PROCESS 00192  / 66 200 CONTINUE 00194 / 67 IOF = 0 00195 / 68 CALL GETS( REQ1,REC1,R1KY,ISTAT ) 00196 / 69 IF( AND(ISTAT,$100).EQ.$100 ) IOF = 1 00197 / 70 IF( AND(ISTAT,$8100).EQ.$8100) GO TO 440 00198 / 71 IF( ISTAT.LT.0 ) GO TO 9800 00199  / 72 220 CONTINUE 00201 / 73 DO 400 J = 1, NUMRD 00202 / C----- REMEMBER TO ADJUST CALC FOR RECORD SIZE 00203 / 74 IP = J *41 -40 00204 jj / 75 IF(REC1(IP).EQ.FDEL) GO TO 400 00206 / 76 IF(REC1(IP).EQ.FEOF) GO TO 400 00207  / C*** CHECK IF OK TO USE THIS ACCOUNT GROUP....... 00209  / 77 IF (ICKGRP(GRPBUF,IALL,REC1(IP),1).EQ.1 )GO TO 400 00211  / 78 IF( I1P .EQ.0 ) GO TO 260 00213 / 79 CALL CCSCST(REC1(IP),IQT,4,SVQID,1,4,IQM) 00214 / 80 IF( IQM.NE.0 ) GO TO 260 00215 / 81 IF( U(3).EQ.1 ) GO TO 230 00216 / 82 CALL CCSCST( REC1(IP),01,01,SVTID,1,4,ICM ) 00217 jj/ 83 IF( ICM.NE.0 ) GO TO 260 00218 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 5 DATE: 07/27/84 TIME: 1410  / C**** PROCESS RECORD........ 00220  / 84 230 CONTINUE 00222 / 85 CALL CCSMVA( REC1(IP),IQT,4,SVQID,1,4 ) 00223 / 86 CALL CCSMVA( REC1(IP),01, 1,SVTID,1,4 ) 00224  / 87 I02 = ICHKZB( REC1(IP),38,3 ) 00226 / 88 I04 = ICHKZB( REC1(IP),35,3 ) 00227 / 89 IF( I02.EQ.0 .AND. I04.EQ.0 ) GO TO 400 00228  jj/ 90 IY = 1 00230 / 91 GO TO 250 00231 / 92 236 IF( I02.EQ.1 ) GO TO 255 00232 / 93 237 CONTINUE 00233 / 94 IF( U(2).EQ.0 ) CALL CCSMVA( REC1(IP),59,7,TBL1,4,7 ) 00234 / 95 IF( U(2).EQ.1 ) CALL CCSMVA( REC1(IP),41,7,TBL1,4,7 ) 00235  / 96 CALL CCSADD( A01,4,BC(1,IX,IY),1,BC(1,IX,IY),1 ) 00237 / 97 CALL CCSADD( TBL1,4,BA(1,IX,IY),1,BA(1,IX,IY),1 ) 00238  / C*** SET LAST RUN PARAMETERS 00240  / 98 IX = 1 00242 jj/ 99 IF( I02.EQ.0 ) IY = 1 00243  / 100 CALL CCSMVA( REC1(IP),59,7,TBL1,4,7 ) 00245 / 101 IF( U(2).EQ.1 ) CALL CCSMVA( REC1(IP),41,7,TBL1,4,7 ) 00246 / 102 IF( I02 .EQ.1 ) CALL CCSMVA( REC1(IP),68,7,TBL1,4,7 ) 00247 / 103 IF(I02.EQ.1.AND.U(2).EQ.1)CALL CCSMVA(REC1(IP),50,7,TBL1,4,7) 00248  / 104 CALL CCSADD( A01,4,BC(1,IX,IY),1,BC(1,IX,IY),1 ) 00250 / 105 CALL CCSADD( TBL1,4,BA(1,IX,IY),1,BA(1,IX,IY),1 ) 00251  / 106 GO TO 400 00253  / C**** SET INDEX ACROSS 00255 jj / 107 250 CONTINUE 00257 / 108 DO 252 IX = 2,11 00258 / 109 CALL CCSCST( REC1(IP),35,3,IADYS(1,IX),1,3,ICM ) 00259 / 110 IF( ICM.GT.0 ) GO TO 252 00260 / 111 GO TO 236 00261 / 112 252 CONTINUE 00262 / 113 GO TO 236 00263  / C**** SET INDEX DOWN 00265  / 114 255 CONTINUE 00267 / 115 DO 257 IY = 2,8 00268 jj/ 116 CALL CCSCST( REC1(IP),38,3,IADYS(1,IX),1,3,ICM ) 00269 / 117 IF( ICM.GT.0 ) GO TO 257 00270 / 118 GO TO 237 00271 / 119 257 CONTINUE 00272 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 6 DATE: 07/27/84 TIME: 1410 / 120 GO TO 237 00273  / C**** OUTPUT HEADER INFO........... 00275 / 121 260 CONTINUE 00277 / 122 NLINE = 0 00278 / 123 IPAGE = IPAGE+1 00279  / 124 IF( I1P.GE.2 ) GO TO 265 00281 jj/ 125 I1P = I1P + 1 00282 / 126 IPAGE = 0 00283 / 127 IF( I1P.EQ.2 ) GO TO 230 00284  / C*** FIRST PAGE PROCESSING... 00286  / 128 CALL EDIT( REC1(IP),29,L03,74,1 ) 00288 / 129 CALL EDIT( REC1(IP),35,L03,60,1 ) 00289 / 130 IF( U(1).EQ.0 ) CALL CCSMVA( TAA,1,7,L02,70,7 ) 00290 / 131 GO TO 400 00291  / 132 265 CONTINUE 00293 / 133 CALL CCSADD( A01,4,APAGE,1,APAGE,1 ) 00294 jj/ 134 CALL CCSMVA( APAGE,1,12,TOT14,1,12 ) 00295 / 135 CALL EDIT ( TOT14,6,TEMP,1,3 ) 00296 / 136 CALL CCSMVA(TEMP,3,5,L01,124,5) 00297  / 137 CALL CCSMVA( SVTID,1,1,L02,67,1 ) 00299 / 138 CALL CCSMVA( SVQID,1,4,L02,78,4 ) 00300 / 139 IF( IDUN.EQ.2 ) CALL CCSMVA( NAA,1,32,L02,56,32 ) 00301  / 140 CALL SYSPRT( L01,1,SYSPRM,0 ) 00303 / 141 CALL SYSPRT( L02,1,SYSPRM,0 ) 00304 / 142 CALL SYSPRT( L03,1,SYSPRM,0 ) 00305 / 143 CALL SYSPRT( L04,2,SYSPRM,0 ) 00306  jj/ 144 CALL SYSPRT( L05,1,SYSPRM,0 ) 00308  / 145 DO 275 M1 = 1,9 00310 / 146 DO 270 M2 = 1,11 00311 / 147 IP2 = M2 * 12 - 11 00312 / 148 IP1 = IP2 + 4 00313  / 149 IF( M1.GE.9 ) GO TO 267 00315 / 150 CALL CCSADD( BA(1,M2,M1),4,TA(1,M2,M1),1,TA(1,M2,M1),1 ) 00316 / 151 CALL CCSADD( BC(1,M2,M1),4,TC(1,M2,M1),1,TC(1,M2,M1),1 ) 00317  / 152 CALL CCSADD( BA(1,M2,M1),4,BA(1,M2,9),1,BA(1,M2,9),1 ) 00319 / 153 CALL CCSADD( BC(1,M2,M1),4,BC(1,M2,9),1,BC(1,M2,9),1 ) 00320 jj/ 154 IF( M1.EQ.8 .AND. M2.LT.11 ) GO TO 267 00321  / 155 CALL CCSMVA(A00,1,12,BA(1,1,9),1,12 ) 00323 / 156 CALL CCSMVA(A00,1,12,BC(1,1,9),1,12 ) 00324 / 157 DO 267 M4 = 2,11 00325 / 158 CALL CCSADD( BA(1,M4,9),4,BA(1,1,9),1,BA(1,1,9),1 ) 00326 / 159 CALL CCSADD( BC(1,M4,9),4,BC(1,1,9),1,BC(1,1,9),1 ) 00327 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 7 DATE: 07/27/84 TIME: 1410  / 160 267 CONTINUE 00329 / 161 CALL EDIT( BA(1,M2,M1),4,TEMP,1,3 ) 00330 / 162 CALL CCSMVA( TEMP,1,07,L07,IP2+3,07 ) 00331 / 163 CALL CCSMVA( TEMP,11,1,L07,IP2+10,1 ) 00332 jj / 164 CALL CCSMVA( BC(1,M2,M1),1,12,TOT14,1,12 ) 00334 / 165 CALL EDIT ( TOT14,6,TEMP,1,3 ) 00335 / 166 CALL CCSMVA( TEMP,2,6,L08,IP1,6 ) 00336 / 167 270 CONTINUE 00337 / 168 IF( M1.EQ.2 ) CALL CCSMVA(MSG01,1,14,L06,2,14) 00338 / 169 IF( M1.EQ.2 ) CALL SYSPRT( L06,1,SYSPRM,0 ) 00339 / 170 M3 = M1 * 14 - 13 00340 / 171 CALL CCSMVA( L13,M3,14,L06,2,14 ) 00341  / 172 CALL SYSPRT( L06,1,SYSPRM,0 ) 00343 / 173 CALL SYSPRT( L07,1,SYSPRM,0 ) 00344 / 174 CALL SYSPRT( L08,1,SYSPRM,0 ) 00345 jj/ 175 CALL SYSPRT( L04,1,SYSPRM,0 ) 00346 / 176 275 CONTINUE 00347  / C**** ZERO SUB TOTAL ARRAYS 00349  / 177 BA = A00 00351 / 178 CALL CCSMVA( BA,1,1188,BA,2,1187 ) 00352 / 179 CALL CCSMVA( BA,1,1188,BC,1,1188 ) 00353  / 180 IF( IDUN.EQ.1 ) GO TO 450 00355 / 181 IF( IDUN.EQ.2 ) GO TO 455 00356 / 182 GO TO 230 00357  jj/ 183 400 CONTINUE 00359 / 184 IF( ISERR.LT.0 ) GO TO 9900 00360 / 185 IF (IOF.NE.1) GO TO 200 00361 / 186 440 CONTINUE 00362 / 187 IDUN = 1 00363 / 188 GO TO 260 00364  / C*** SET UP AND PRINT FINAL PAGE OF REPORT..... 00366  / 189 450 CONTINUE 00368 / 190 IDUN = 2 00369 / 191 CALL CCSMVA( TAA,9,14,L13,114,14 ) 00370 / 192 CALL CCSMVA( TA,1,1188,BA,1,1188 ) 00371 jj/ 193 CALL CCSMVA( TC,1,1188,BC,1,1188 ) 00372 / 194 GO TO 260 00373  / 195 455 CONTINUE 00375 / 196 CALL SYSPRT( L04,03,SYSPRM,0 ) 00376 / 197 CALL CCSMVA( MSGEOF,1,18,L04,57,18 ) 00377 / 198 CALL SYSPRT( L04,01,SYSPRM,0 ) 00378 / 199 GO TO 9900 00379  / C**** ERROR SECTION FILE 1 00381 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 8 DATE: 07/27/84 TIME: 1410 / 200 9800 CONTINUE 00382 / 201 IREQ = AND(REQ1(4),$FF) 00383 jj/ 202 IF (IREQ.LT.11) IREQ = IREQ-1 00384 / 203 IF (IREQ.EQ.18) IREQ = 10 00385 / 204 CALL FILERR( DAT1,IREQ,ISTAT,LU ) 00386 / 205 CALL CCSMVA( DAT1,1,8,L14,32,8 ) 00387 / 206 IERR = 1 00388 / 207 GO TO 9900 00389  / C**** ERROR SECTION FILE 2 00391 / 208 9810 CONTINUE 00392  / C**** ERROR SECTION FILE 3 00394 / 209 9820 CONTINUE 00395 / 210 CALL CCSMVA( UTFILE,1,8,L14,32,8 ) 00396 jj/ 211 IERR = 1 00397 / 212 GO TO 9900 00398  / C**** CLOSE THE FILES AND EXIT........ 00400 / 213 9900 CONTINUE 00401 / 214 IF (IERR.EQ.1) CALL SYSPRT( L14,1,SYSPRM,0 ) 00402  / 215 CALL CLOSFL( REQ1,ISTAT ) 00404 / 216 CALL SYSPRT( L04,0,SYSPRM,1 ) 00405  / 217 CALL PGMOUT 00407 / 218 END 00408 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 9 DATE: 07/27/84 TIME: 1410 jj  PROGRAM LENGTH $154F ( 5455)   EXTERNALS  Q8STP FMRDEL FMEOFC GETSW PGMIN CCSCST CCSMVA  WTREAD UTHEAD GTSYSP PRTORF GETGRP SYSPRT OPENFL  EDIT CCSPUT GETS ICKGRP ICHKZB CCSADD FILERR  CLOSFL PGMOUT  : FTN 3.3B (OPT = LPXC) TRENDP PAGE 10 DATE: 07/27/84 TIME: 1410  ***** L I S T O F S Y M B O L S *****   jj CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   8100 (-32511) 1043 70,70  FFFE (-1) 1038 49 @ 0000 (0) 0003 10,13,20,42,45,49,55,56,57,59,65,67,71,78,80,83,89,94,99,110,117,122,126,130,140,141,142,143,144, # 169,172,173,174,175,184,196,198,214,216 A 0001 (1) 0002 19,20,41,42,44,46,48,49,56,60,61,62,63,64,65,69,73,77,79,81,82,85,86,90,92,95,96,97,98,99,101,102, @ 103,104,105,109,116,123,125,128,129,130,133,134,135,137,138,139,140,141,142,144,145,146,150,151, @ 152,153,155,156,158,159,161,162,163,164,165,168,169,172,173,174,175,178,179,180,185,187,192,193, ! 197,198,202,205,206,210,211,214,216 jj< 0002 (2) 1033 44,62,63,64,94,95,101,103,108,109,115,116,124,127,139,143,157,166,168,169,171,178,181,190 " 0003 (3) 104B 87,88,109,116,135,136,161,162,165,196 ? 0004 (4) 1047 79,79,82,85,86,94,95,96,97,100,101,102,103,104,105,133,138,148,150,151,152,153,158,159,161,201  0005 (5) 105A 136,136 . 0006 (6) 1052 96,96,97,104,105,135,150,151,152,153,158,159,161,164,165,166 0007 (7) 1050 94,94,95,100,101,102,103,130,162  0008 (8) 1034 44,46,48,56,115,154,205,210 ! 0009 (9) 1061 145,149,152,153,155,156,158,159,191  000B (11) 1055 108,146,147,154,157,163,202  000C (12) 1040 65,134,147,155,156,164  000E (14) 1066 168,168,170,171,191  0010 (16) 1036 46  0012 (18) 106B 197,197,203 jj 0017 (23) 1037 48,60  001D (29) 1056 128  0020 (32) 105E 139,139,205,210  0021 (33) 103B 51  0022 (34) 103C 52  0023 (35) 104D 88,109,129  0024 (36) 1039 49  0026 (38) 104A 87,116  0028 (40) 103F 62,62,63,64,74  0029 (41) 1046 74,95,101  0032 (50) 1054 103  0038 (56) 105F 139  0039 (57) 106C 197 jj 003B (59) 104F 94,100  003C (60) 1058 129  0043 (67) 105C 137  0044 (68) 1053 102  0046 (70) 1059 130  004A (74) 1057 128  004E (78) 105D 138  0072 (114) 106A 191  0078 (120) 103E 61  007C (124) 105B 136  00FF (255) 106E 201  0100 (256) 1042 69,69 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 11 DATE: 07/27/84 TIME: 1410 jj 04A3 (1187) 1069 178  04A4 (1188) 1068 178,179,192,193    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   A00 INTEGER 0292 13,15,155,156,177  A01 INTEGER 0298 13,15,96,104,133  AEND INTEGER 0254 11,13  ALL INTEGER 0256 11,13 jj AND INTR.FN. 7FFF 69,70,201  APAGE INTEGER 02B1 13,15,133,134 ( BA INTEGER 02D9 15,17,97,105,150,152,155,158,161,177,178,179,192 $ BC INTEGER 052B 15,17,96,104,151,153,156,159,164,179,193  DALT INTEGER 0252 11,13  DAT1 INTEGER 0006 3,10,44,46,58,204,205  DATE INTEGER 020C 11,50,61  FDEL INTEGER 0004 3,39,75  FEOF INTEGER 0005 3,40,76  GRPBUF INTEGER 0202 11,54,77  HDR INTEGER 020F 11,50,62,63,64  HEAD INTEGER 01E4 7,9,48,49  I02 INTEGER 1049 86,87,89,92,99,102,103 jj I04 INTEGER 104C 87,88,89  I1P INTEGER 0263 13,78,124,125,127  IADYS INTEGER 02C3 15,17,109,116  IALL INTEGER 0250 11,54,77  ICM INTEGER 1035 44,45,82,83,109,110,116,117  IDUN INTEGER 0261 13,139,180,181,187,190  IERR INTEGER 106F 205,206,211,214  IFOUND INTEGER 0262 13  IMODE INTEGER 024F 11,13,52,54  INP INTEGER 0C27 20  IOF INTEGER 1041 65,67,69,185 3 IP INTEGER 1045 73,74,75,76,77,79,82,85,86,87,88,94,95,100,101,102,103,109,116,128,129  IP1 INTEGER 1064 147,148,166 jj IP2 INTEGER 1063 146,147,148,162,163  IPAGE INTEGER 0251 11,13,123,126  IPF INTEGER 0C23 17,19,20,53,65  IQM INTEGER 1048 79,80  IQT INTEGER 025C 11,13,42,79,85  IREQ INTEGER 106D 200,201,202,203,204  ISERR INTEGER 0C25 17,19,20,56,57,184  ISTAT INTEGER 103D 58,59,68,69,70,71,204,215  ITC INTEGER 103A 49  IWAY INTEGER 024E 11,13,51,53  IX INTEGER 1051 96,96,97,98,104,105,108,109,116  IY INTEGER 104E 89,90,96,97,99,104,105,115  J INTEGER 1044 71,74 jj KFLG INTEGER 0260 13  L01 INTEGER 0C96 23,25,55,62,65,136,140 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 12 DATE: 07/27/84 TIME: 1410  L02 INTEGER 0CD8 23,26,61,63,130,137,138,139,141  L03 INTEGER 0D1A 23,27,64,128,129,142  L04 INTEGER 0D5C 23,28,143,175,196,197,198,216  L05 INTEGER 0D9E 23,29,144  L06 INTEGER 0DE0 23,30,168,169,171,172  L07 INTEGER 0E22 23,31,162,163,173  L08 INTEGER 0E64 23,32,166,174  L09 INTEGER 0EA6 23,33  L10 INTEGER 0EE8 23,34  L11 INTEGER 0F2A 23,35 jj L12 INTEGER 0F6C 23,36  L13 INTEGER 0FAE 23,37,171,191  L14 INTEGER 0FF0 23,38,205,210,214  LD1 INTEGER 0015 3,11,46  LU INTEGER 024B 11,43,49,204 ' M1 INTEGER 1060 144,149,150,151,152,153,154,161,164,168,169,170 ! M2 INTEGER 1062 145,147,150,151,152,153,154,161,164  M3 INTEGER 1067 169,170,171  M4 INTEGER 1065 157,158,159  MNUPRO INTEGER 025D 11,13  MODE INTEGER 1032 43  MSG01 INTEGER 0C50 20,22,168  MSGEOF INTEGER 0C8D 20,23,197 jj NAA INTEGER 0C6F 20,23,139  NLINE INTEGER 0C24 17,19,20,122  NLU INTEGER 0C22 17,19,20,53  NPORT INTEGER 024D 11,43,53,65  NU INTEGER 0C26 17,19,20  NUMRD INTEGER 0027 7,73  PLN INTEGER 0C21 17,19,20  PLU INTEGER 024C 11,13,53  R1KY INTEGER 0031 3,68 2 REC1 INTEGER 0040 3,68,75,76,77,79,82,85,86,87,88,94,95,100,101,102,103,109,116,128,129  REQ1 INTEGER 0019 3,7,10,58,60,68,201,215  RTOT INTEGER 029E 13,15  STG INTEGER 0264 13 jj STOT INTEGER 02A4 13,15  SVQID INTEGER 025A 11,13,79,85,138  SVTID INTEGER 0258 11,13,82,86,137  SYPFIL INTEGER 01E0 3,6,56 0 SYSPRM INTEGER 0C21 17,19,55,140,141,142,143,144,169,172,173,174,175,196,198,214,216  TA INTEGER 077D 15,17,150,192  TAA INTEGER 0C7F 20,23,130,191 ! TBL1 INTEGER 02B7 15,17,94,95,97,100,101,102,103,105  TBL2 INTEGER 02BD 15,17  TC INTEGER 09CF 15,17,151,193  TEMP INTEGER 0288 13,135,136,161,162,163,165,166  TOT14 INTEGER 02AA 13,15,134,135,164,165  U INTEGER 01FA 11,41,42,81,94,95,101,103,130 jj USER INTEGER 01F6 11,43,44,48  UTFILE INTEGER 01DC 3,6,56,210 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 13 DATE: 07/27/84 TIME: 1410    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :  $ CCSADD SUBROUTINE 1414 95,97,104,105,133,150,151,152,153,158,159  CCSCST SUBROUTINE 12A9 43,79,82,109,116 A CCSMVA SUBROUTINE 1501 45,48,56,62,63,64,85,86,94,95,100,101,102,103,130,134,136,137,138,139,155,156,162,163,164,166,168, jj! 171,178,179,191,192,193,197,205,210  CCSPUT SUBROUTINE 110D 65  CLOSFL SUBROUTINE 1543 214  EDIT SUBROUTINE 1437 60,128,129,135,161,165  FILERR SUBROUTINE 1520 203  GETGRP SUBROUTINE 10C0 53  GETS SUBROUTINE 1115 67  GETSW SUBROUTINE 1079 40  GTSYSP SUBROUTINE 10B2 50,52  ICHKZB INTEGER.FN. 11A7 87,88  ICKGRP INTEGER.FN. 1152 77  OPENFL SUBROUTINE 10DB 57  PGMIN SUBROUTINE 1083 42 jj PGMOUT SUBROUTINE 154C 216  PRTORF SUBROUTINE 10B9 52  Q8STP INTEGER.FN. 154E - SYSPRT SUBROUTINE 1509 54,140,141,142,143,144,169,172,173,174,175,196,198,214,216  UTHEAD SUBROUTINE 10AE 49  WTREAD SUBROUTINE 10A4 48   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :  jj 5 109C 45,47  200 1111 65,185  220 112D 71  230 118B 81,84,127,182  236 11C3 90,111,113  237 11C8 92,118,120  250 129D 90,107  252 12B8 107,110,112  255 12BF 92,114  257 12D9 114,117,119  260 12E1 78,80,83,121,188,194  265 1316 124,132  267 1427 149,154,157,160 jj 270 146F 145,167  275 14AC 144,176  400 14CF 71,75,76,77,89,106,131,183  440 14DE 70,186  450 14E2 180,189 : FTN 3.3B (OPT = LPXC) TRENDP PAGE 14 DATE: 07/27/84 TIME: 1410  455 14FB 181,195  9800 150F 59,71,200  9810 1530 207  9820 1530 57,209  9900 153A 184,199,207,212,213  TRENDP 0000 1 : FTN 3.3B (OPT = LPXC) GETSW PAGE 1 DATE: 07/27/84 TIME: 1414 jj/ 1 SUBROUTINE GETSW ( U ) 00001 / 1 1 /CCS3.0 SUBROUTINE GETSW 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/06/84 ************ PROGRAMMER : RWE 00009  / C**** PROGRAM DESCRIPTION : RETRIEVE RPG EXTERNAL SWITCH SETTINGS 00011  / C*** CALLING SEQUENCE : CALL GETSW( U ) 00013 jj / C PARAMETERS 00015  / C U : AN 8 WORD ARRAY, WHERE EACH WORD CORRESPONDS 00017 / C TO AN RPG EXTERNAL SWITCH 00018 / C RPG ARRAY 00019 / C U1 = U(1) 00020 / C U2 = U(2) 00021 / C ETC... 00022 / C RETURNED VALUES ARE 0 = SWITCH IS OFF, 1 = SWITCH IS ON 00023  / 2 INTEGER U(1),I,J,SWITCH 00025  jj/ C**** 00027 / C**** BEGIN PROGRAM ....... 00028  / C*** PICK UP LOCATION $E3 IN CORE WHICH IS RPG EXTERNAL SWITCH 00030  / 3 ASSEM $C400,$00E3,$6800,SWITCH 00032  / 4 J = 2 00034  / C*** CRACK THE SWITCHS 00036  / 5 DO 100 I = 1,8 00038 / 6 U(I) = AND( SWITCH,J )/J 00039 jj/ 7 J = J*2 00040 / 8 100 CONTINUE 00041 / 9 RETURN 00042 / 10 END 00043 : FTN 3.3B (OPT = LPXC) GETSW PAGE 2 DATE: 07/27/84 TIME: 1414   PROGRAM LENGTH $0029 ( 41)   EXTERNALS  Q8PKUP Q8PREP  : FTN 3.3B (OPT = LPXC) GETSW PAGE 3 DATE: 07/27/84 TIME: 1414  ***** L I S T O F S Y M B O L S ***** jj   VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 6  I INTEGER 0000 2,5,6  J INTEGER 0001 2,4,6,7  SWITCH INTEGER 0002 2,3,6  U INTEGER 7FFF 1,2,6  jj  EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   Q8PKUP INTEGER.FN. 0024  Q8PREP INTEGER.FN. 0021   LABELED STATEMENTS : ------------------  jj LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 0015 4,8  GETSW 001E 1  : FTN 3.3B (OPT = LPXC) GTSYSP PAGE 1 DATE: 07/27/84 TIME: 1414 / 1 SUBROUTINE GTSYSP( IPARM,IPOS ) 00001 / 1 1 /CCS3.0 SUBROUTINE GTSYSP 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 jj/ C** 00008 / C** ************ 04/06/84 ************ PROGRAMMER : RWE 00009  / C**** PROGRAM DESCRIPTION : GET SYSTEM PARAMETER FROM THE 00011 / C EXTERNAL FLAG RECORD IN THE UTIFIL. 00012  / C*** CALLING SEQUENCE : CALL GTSYSP( IPARM,IPOS ) 00014  / C PARAMETERS 00016  / C IPARM : RETURNED VALUE ($0 TO $F WHICH IS 0 TO 15 DECIMAL) 00018 / C WHICH IS RETRIEVED FROM THE 'EXTERNAL FLAG RECORD' 00019 / C IN THE UTIFIL. 00020 jj/ C IPOS : THE STARTING BYTE OF THE FLAG IN THE FLAG RECORD. 00021 / C ( SEE LAYOUT OF 'EXTERNAL FLAG RECORD' ) 00022  / C EXAMPLE : CALL GTSYSP( IMODE,30 ) 00024 / C THIS WOULD RETRIEVE THE FLAG 2 FOR THE 00025 / C LTRSTA PROGRAM AND SET THE IMODE FLAG FOR 00026 / C SUBROUTINE GETGRP 00027 / C LTRSTA FLAGS START IN POS. 29, THERE ARE 4 FLAGS 00028 / C FLAG 1 = IWAY FOR SUBROUTINE PRTORF 00029 / C FLAG 2 = IMODE FOR SUBROUTINE GETGRP 00030 / C FLAG 3 = 00031 / C FLAG 4 = 00032  jj/ 2 INTEGER IPARM,IPOS 00034 / 2 +, SYSREC(42),SYSP(2),IGOT 00035  / 3 DATA SYSP /'SYSP'/, IGOT / 0/ 00037  / C**** 00039 / C**** BEGIN PROGRAM ....... 00040  / 4 IF ( IGOT.NE.0 ) GO TO 100 00042 / 5 CALL GETUTI( SYSP,SYSREC,IFOUND,IFER,1 ) 00043 / 6 IF( IFOUND.NE.0 ) CALL CCSMVA( SYSREC,1,0,SYSREC,1,80 ) 00044 / 7 IGOT = 1 00045  jj/ 8 100 CONTINUE 00047 / 9 CALL CCSGET( SYSREC,IPOS,IFLG ) 00048  / 10 IPARM = AND( IFLG,$F ) 00050 / 11 RETURN 00051 / 12 END 00052 : FTN 3.3B (OPT = LPXC) GTSYSP PAGE 2 DATE: 07/27/84 TIME: 1414   PROGRAM LENGTH $0064 ( 100)   EXTERNALS  Q8PKUP Q8PREP GETUTI CCSMVA CCSGET  jj: FTN 3.3B (OPT = LPXC) GTSYSP PAGE 3 DATE: 07/27/84 TIME: 1414  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   0000 (0) 0001 3,4,6  0001 (1) 0000 5,6,7  000F (15) 0033 10  0050 (80) 0031 6 jj   VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 10  IFER INTEGER 0030 5  IFLG INTEGER 0032 9,10  IFOUND INTEGER 002F 5,6  IGOT INTEGER 002E 2,3,4,7  IPARM INTEGER 7FFF 1,2,10 jj IPOS INTEGER 7FFF 1,2,9  SYSP INTEGER 002C 2,3,5  SYSREC INTEGER 0002 2,5,6,9    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSGET SUBROUTINE 004D 8  CCSMVA SUBROUTINE 0043 6  GETUTI SUBROUTINE 0039 4 jj Q8PKUP INTEGER.FN. 005E  Q8PREP INTEGER.FN. 005B   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   100 004C 4,8  GTSYSP 0058 1  : FTN 3.3B (OPT = LPXC) GETUTI PAGE 1 DATE: 07/27/84 TIME: 1414 jj/ 1 SUBROUTINE GETUTI( KEYB,REC,IFOUND,IFER,NOPT ) 00001 / 1 1 /CCS3.0 SUBROUTINE GETUTI 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/06/84 ************ PROGRAMMER : RWE 00009  / C**** PROGRAM DESCRIPTION : RETRIEVE RECORD BY KEY FROM UTIFIL. 00011  / C*** CALLING SEQUENCE : CALL GETUTI( KEYB,REC,IFOUND,IFER,NOPT ) 00013 jj / C PARAMETERS 00015  / C KEYB : KEY OF UTIFIL RECORD TO BE RETRIEVED ( 2 WORDS ) 00017 / C REC : BUFFER TO RECIEVE THE RETRIEVED RECORD(40 WORDS ) 00018 / C BUFFER WILL BE BLANKS IF RECORD IS NOT FOUND. 00019 / C IFOUND : RETURNED VALUE DESIGNATING IF RECORD WAS FOUND. 00020 / C 0 = RECORD FOUND , 1 = RECORD NOT FOUND 00021 / C IFER : ISTAT OF FILE MANAGER CALL. (FROM UTIFIL) 00022 / C NOPT : PASSED. OPTION OF WHAT TO DO. 00023 / C 0 = RETRIEVE RECORD (LEAVE FILE OPEN) 00024 / C 1 = RETRIEVE RECORD (CLOSE FILE WHEN DONE) 00025 / C 2 = CLOSE FILE. 00026 jj / 2 INTEGER KEYB(1),REC(1),IFOUND,IFER,NOPT 00028 / 2 +, DAT1(15),REQ1(24),R1KY(15),REC1(0042) 00029 / 2 +, USER(4),LU,NPORT,MODE 00030  / 3 DATA DAT1 /'LAUTIFIL ',01,01,00/,REQ1/24*0/ 00032 / 4 DATA IOPN/0/ , IDUN/0/ 00033  / C**** 00035 / C**** BEGIN PROGRAM ....... 00036  / 5 IF ( NOPT.EQ.2 ) GO TO 500 00038 / 6 IF ( IOPN.EQ.1 ) GO TO 100 00039 jj / C*** CHECK FOR LA LOOK-ALIKE 00041  / 7 IF( IDUN.EQ.1 ) GO TO 5 00043 / 8 IDUN = 1 00044 / 9 CALL PGMIN( USER,LU,MODE,NPORT ) 00045 / 10 CALL CCSCST( DAT1,1,2,USER,1,8,ICM ) 00046 / 11 IF ( ICM.EQ.0 ) GO TO 5 00047 / 12 CALL CCSMVA( DAT1,3,6,DAT1,1,16 ) 00048  / 13 5 CONTINUE 00050 / 14 DO 20 I = 1,24 00051 / 15 REQ1(I) = 0 00052 jj/ 16 20 CONTINUE 00053  : FTN 3.3B (OPT = LPXC) GETUTI PAGE 2 DATE: 07/27/84 TIME: 1414 / 17 CALL OPENFL( REQ1,DAT1,ISTAT ) 00055 / 18 IF( ISTAT.LT.0 ) GO TO 800 00056 / 19 REQ1(23) = 1 00057 / 20 IOPN = 1 00058  / 21 100 CONTINUE 00060 / 22 CALL CCSMVA( KEYB,1,4,R1KY,1,30 ) 00061 / 23 CALL READR ( REQ1,REC1,R1KY,ISTAT ) 00062 / 24 IF ( AND(ISTAT,$300).NE.0 ) GO TO 200 00063 / 25 IF ( ISTAT.LT.0 ) GO TO 800 00064 jj / C*** RECORD FOUND PASS INFO BACK TO CALLER 00066  / 26 120 CONTINUE 00068 / 27 IFER = ISTAT 00069 / 28 IFOUND = 0 00070 / 29 CALL CCSMVA( REC1,1,80,REC,1,80 ) 00071 / 30 IF( NOPT.EQ.1 ) GO TO 500 00072 / 31 GO TO 900 00073  / C**** RECORD NOT FOUND RETURN BLANKS 00075  / 32 200 CONTINUE 00077 jj/ 33 IFER = AND( ISTAT,$7FFF ) 00078 / 34 IFOUND = 1 00079 / 35 CALL CCSMVA( REC1,1,0,REC,1,40 ) 00080 / 36 IF( NOPT.EQ.1 ) GO TO 500 00081 / 37 GO TO 900 00082  / C**** CLOSE FILE AND RETURN 00084  / 38 500 CONTINUE 00086 / 39 CALL CLOSFL( REQ1,ISTAT ) 00087 / 40 IOPN = 0 00088 / 41 GO TO 900 00089  jj/ C**** ERROR SECTION FOR FILE 00091  / 42 800 CONTINUE 00093 / 43 IFOUND = 1 00094 / 44 IFER = ISTAT 00095 / 45 IF( AND(ISTAT,$8002).EQ.$8002 ) GO TO 900 00096 / 46 IREQ = AND(REQ1(4),$FF) 00097 / 47 IF(IREQ.LT.11) IREQ = IREQ-1 00098 / 48 IF(IREQ.EQ.18) IREQ = 10 00099 / 49 CALL FILERR( DAT1,IREQ,ISTAT,LU ) 00100 / 50 GO TO 900 00101  / 51 900 CONTINUE 00103 jj/ 52 RETURN 00104 / 53 END 00105 : FTN 3.3B (OPT = LPXC) GETUTI PAGE 3 DATE: 07/27/84 TIME: 1414   PROGRAM LENGTH $0137 ( 311)   EXTERNALS  Q8PKUP Q8PREP PGMIN CCSCST CCSMVA OPENFL READR  CLOSFL FILERR  : FTN 3.3B (OPT = LPXC) GETUTI PAGE 4 DATE: 07/27/84 TIME: 1414  ***** L I S T O F S Y M B O L S *****  jj  CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   8002 (-32765) 0079 45,45  0000 (0) 0001 3,4,11,15,18,24,25,28,35,40 ( 0001 (1) 0000 2,3,6,7,8,10,12,14,19,20,22,29,30,34,35,36,43,47  0002 (2) 006B 5,10  0003 (3) 006E 12  0004 (4) 0073 22,46  0006 (6) 006F 12 jj 0008 (8) 006C 10  0010 (16) 0070 12  001E (30) 0074 22  0028 (40) 0078 35  0050 (80) 0076 29,29  00FF (255) 007B 46  0300 (768) 0075 24  7FFF (32767) 0077 33    VARIABLES :  ---------  jj NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 24,33,45,46  DAT1 INTEGER 0002 2,3,10,12,17,49  I INTEGER 0071 13,15  ICM INTEGER 006D 10,11  IDUN INTEGER 006A 4,7,8  IFER INTEGER 7FFF 1,2,27,33,44  IFOUND INTEGER 7FFF 1,2,28,34,43  IOPN INTEGER 0069 3,6,20,40  IREQ INTEGER 007A 45,46,47,48,49 ISTAT INTEGER 0072 17,18,23,24,25,27,33,39,44,45,49  KEYB INTEGER 7FFF 1,2,22 jj LU INTEGER 0066 2,9,49  MODE INTEGER 0068 2,9  NOPT INTEGER 7FFF 1,2,5,30,36  NPORT INTEGER 0067 2,9  R1KY INTEGER 0029 2,22,23  REC INTEGER 7FFF 1,2,29,35  REC1 INTEGER 0038 2,23,29,35  REQ1 INTEGER 0011 2,3,15,17,19,23,39,46  USER INTEGER 0062 2,9,10 : FTN 3.3B (OPT = LPXC) GETUTI PAGE 5 DATE: 07/27/84 TIME: 1414    EXTERNALS : jj ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSCST SUBROUTINE 0092 9  CCSMVA SUBROUTINE 009E 11,22,29,35  CLOSFL SUBROUTINE 00F8 38  FILERR SUBROUTINE 0119 48  OPENFL SUBROUTINE 00B1 16  PGMIN SUBROUTINE 008C 8  Q8PKUP INTEGER.FN. 0128  Q8PREP INTEGER.FN. 0125  READR SUBROUTINE 00C5 22 jj  LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   5 00A5 7,11,13  20 00AB 13,16  100 00BD 6,21  120 00D3 25  200 00E6 24,32  500 00F7 5,30,36,38 jj 800 00FF 18,25,42  900 011F 30,37,41,45,50,51  GETUTI 0122 1  : FTN 3.3B (OPT = LPXC) PRTORF PAGE 1 DATE: 07/27/84 TIME: 1415 / 1 SUBROUTINE PRTORF( IPF,PLU,NLU,NPORT,IWAY ) 00001 / 1 1 /CCS3.0 SUBROUTINE PRTORF 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 jj/ C** ************ 04/06/84 ************ PROGRAMMER : RWE 00009  / C**** PROGRAM DESCRIPTION : VALIDATE OUTPUT LOGICAL UNIT AND 00011 / C SET DIRECTION OF OUTPUT. 00012  / C*** CALLING SEQUENCE : CALL PRTORF( IPF,LU,NLU,NPORT,IWAY ) 00014  / C PARAMETERS 00016  / C IPF : RETURNED VALUE DESIGNATING OUTPUT DIRECTION. 00018 / C 0 = OUTPUT TO LOCIGAL UNIT 'NLU' 00019 / C 1 = OUTPUT TO SYSPRT FILE 00020 / C LU : LOGICAL UNIT NUMBER OF REQUESTED OUTPUT DEVICE. 00021 jj/ C NLU : RETURNED VALUE DESIGNATING VALIDATED LOGICAL 00022 / C UNIT TO OUTPUT TO. 00023 / C NPORT : CURRENT TERMINAL # ( FROM PGMIN ) 00024 / C IWAY : FLAG TO DETERMINE WHICH ACTION TO TAKE : 00025 / C 0 = FORCE OUTPUT TO DESIGNATED LOGICAL UNIT 00026 / C 1 = FORCE OUTPUT TO SYSPRT FILE 00027 / C 2 = NOT USED AT PRESENT TIME 00028 / C 3 = PROMPT OPERATOR FROM SCREEN, FOR OUTPUT DIRECTION 00029 / C 4 = GET 'IWAY' FLAG FROM UTIFIL 00030  / 2 INTEGER IPF,PLU,NLU,NPORT,IWAY 00032 / 2 +, INP(41),CRT(4),PRINT(4),TAPE(5),MSGY(18) 00033 / 2 +, MSG1(18),MSG2(18),MSG3(18),MSG4(18),MSG5(18) 00034 jj / 3 DATA MSG1/$180A,$0A07,'** SELECT DIRECTION OF OUTPUT ',$160A/ 00036 / 3 +, MSG2/$0D0A,' 0 = OUTPUT TO LOGICAL UNIT ',$1616/ 00037 / 3 +, MSG3/$0D0A,' 1 = OUTPUT TO SYSPRT FILE ',$1616/ 00038 / 3 +, MSG4/$0D0A,' ',$160A/ 00039 / 3 +, MSG5/$0D0A,' PLEASE ENTER SELECTION (0,1) : ',$1616/ 00040  / 4 DATA MSGY/$0D0A,$0D0A,' IS THIS CORRECT ? (Y/N) : ',$1616/ 00042  / 5 DATA CRT /'TERMINAL'/, PRINT /'PRINTER '/ 00044 / 5 +, TAPE /'TAPE DRIVE'/ 00045  / C**** BEGIN PROGRAM ....... 00047 jj / 6 MWAY = IWAY 00049 / 7 10 CONTINUE 00050 / 8 PLU = AND( PLU,$FF ) 00051 / 9 IF ( MWAY.EQ.1 ) GO TO 200 00052  / 10 NLU = PLU 00054 : FTN 3.3B (OPT = LPXC) PRTORF PAGE 2 DATE: 07/27/84 TIME: 1415 / 11 IF ( NPORT.NE.00 ) NLU = 05 00055 / 12 IF ( NPORT.EQ.00 .AND. NLU.EQ.05 ) NLU = 04 00056 / 13 IF ( MWAY.EQ.3 ) GO TO 300 00057 / 14 IF ( MWAY.EQ.4 ) GO TO 400 00058  jj/ 15 100 CONTINUE 00060 / 16 IPF = 0 00061 / 17 IF ( MWAY.EQ.2 ) IPF = 0 00062 / 18 GO TO 800 00063  / C*** OUTPUT FORCED TO SYSPRT FILE...... 00065  / 19 200 CONTINUE 00067 / 20 IPF = 1 00068 / 21 GO TO 800 00069  / C*** ASK OPERATOR FROM SCREEN WHICH WAY TO GO....... 00071  jj/ 22 300 CONTINUE 00073 / 23 IF(NLU.EQ.05.OR.NLU.EQ.04) CALL CCSMVA( CRT,1,8,MSG2,18,12 ) 00074 / 24 IF(NLU.EQ.09.OR.NLU.EQ.12) CALL CCSMVA( PRINT,1,8,MSG2,18,12 ) 00075 / 25 IF(NLU.EQ.06.OR.NLU.EQ.16) CALL CCSMVA( TAPE,1,10,MSG2,18,12 ) 00076 / 26 IF(NLU.EQ.17.OR.NLU.EQ.18) CALL CCSMVA( TAPE,1,10,MSG2,18,12 ) 00077  / 27 CALL WTREAD(05,-1,MSG1 ,36,0,0,0,ITC) 00079 / 28 CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 00080 / 29 CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 00081 / 30 CALL WTREAD(05,-1,MSG4 ,36,0,0,0,ITC) 00082  / 31 310 CONTINUE 00084 / 32 CALL CCSMVA(INP,1,0,INP,1,82) 00085 jj/ 33 CALL WTREAD(05,-1,MSG5 ,36,-1,INP,80,ITC) 00086 / 34 IF (ITC.EQ.4) GO TO 310 00087  / C*** VALIDATE SELECTION.... 00089  / 35 CALL CCSGET( INP,1,ICH ) 00091  / 36 IF( INP(41).EQ.0 ) GO TO 320 00093 / 37 IF ( ICH.LT.$30 .OR. ICH.GT.$31 ) GO TO 310 00094  / 38 320 IPF = AND( ICH,$F ) 00096 / 39 IF( IPF.EQ.0 ) CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 00097 / 40 IF( IPF.EQ.1 ) CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 00098 jj / 41 CALL CCSMVA(INP,1,0,INP,1,82) 00100 / 42 CALL WTREAD(05,-1,MSGY ,36,-1,INP,80,ITC) 00101 / 43 CALL CCSGET(INP,1,ICH) 00102 / 44 IF ( INP(41).EQ.0 ) GO TO 330 00103 / 45 IF ( ICH.NE.$59 ) GO TO 300 00104 / 46 330 CONTINUE 00105 / 47 GO TO 800 00106  / C**** GET 'IWAY' WHAT TO DO FLAG FROM UTIFIL... 00108 : FTN 3.3B (OPT = LPXC) PRTORF PAGE 3 DATE: 07/27/84 TIME: 1415  / 48 400 CONTINUE 00110 jj/ 49 CALL GTSYSP( MWAY,73 ) 00111 / 50 IF ( MWAY.LT.0 .OR. MWAY.GT.3 ) MWAY = 0 00112 / 51 GO TO 10 00113  / 52 800 RETURN 00115 / 53 END 00116 : FTN 3.3B (OPT = LPXC) PRTORF PAGE 4 DATE: 07/27/84 TIME: 1415   PROGRAM LENGTH $01CC ( 460)   EXTERNALS  Q8PKUP Q8PREP CCSMVA WTREAD CCSGET GTSYSP  jj: FTN 3.3B (OPT = LPXC) PRTORF PAGE 5 DATE: 07/27/84 TIME: 1415  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   FFFE (-1) 00AB 27,28,29,30,33,39,40,42 & 0000 (0) 0001 11,12,16,17,27,28,29,30,32,36,39,40,41,44,50 * 0001 (1) 0000 9,20,23,24,25,26,27,28,29,30,32,33,35,39,40,41,42,43 0005 (5) 00A6 11,12,23,27,28,29,30,33,39,40,42 jj 0008 (8) 00A7 23,24  000A (10) 00AA 25,26,51  000C (12) 00A9 23,24,25,26  000F (15) 00B1 38  0012 (18) 00A8 23,24,25,26  0024 (36) 00AC 27,28,29,30,33,39,40,42  0049 (73) 00B2 49  0050 (80) 00AF 33,42  0052 (82) 00AE 32,41  00FF (255) 00A5 8    VARIABLES : jj ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 8,38  CRT INTEGER 002B 2,5,23  ICH INTEGER 00B0 35,37,38,43,45  INP INTEGER 0002 2,32,33,35,36,41,42,43,44  IPF INTEGER 7FFF 1,2,16,17,20,38,39,40  ITC INTEGER 00AD 27,28,29,30,33,34,39,40,42  IWAY INTEGER 7FFF 1,2,6  MSG1 INTEGER 004A 2,3,27  MSG2 INTEGER 005C 2,3,23,24,25,26,28,39 jj MSG3 INTEGER 006E 2,3,29,40  MSG4 INTEGER 0080 2,3,30  MSG5 INTEGER 0092 2,3,33  MSGY INTEGER 0038 2,4,42  MWAY INTEGER 00A4 5,6,9,13,14,17,49,50  NLU INTEGER 7FFF 1,2,10,11,12,23,24,25,26  NPORT INTEGER 7FFF 1,2,11,12  PLU INTEGER 7FFF 1,2,8,10  PRINT INTEGER 002F 2,5,24  TAPE INTEGER 0033 2,5,25,26 : FTN 3.3B (OPT = LPXC) PRTORF PAGE 6 DATE: 07/27/84 TIME: 1415   jj EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSGET SUBROUTINE 0156 34,43  CCSMVA SUBROUTINE 0184 23,24,25,26,32,41  GTSYSP SUBROUTINE 01A2 48  Q8PKUP INTEGER.FN. 01B9  Q8PREP INTEGER.FN. 01B6  WTREAD SUBROUTINE 011C 26,28,29,30,33,39,40,42   jj LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   10 00B5 6,51  100 00D4 14  200 00E2 9,19  300 00E6 13,22,45  310 0140 30,34,37  320 0167 36,38  330 01A0 44,46  400 01A1 14,48 jj 800 01B0 17,21,47,52  PRTORF 01B3 1 : FTN 3.3B (OPT = LPXC) GETGRP PAGE 1 DATE: 07/27/84 TIME: 1416 / 1 SUBROUTINE GETGRP( GRPBUF,IALL,IMODE ) 00001 / 1 1 /CCS3.0 SUBROUTINE GETGRP 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/06/84 ************ PROGRAMMER : RWE 00009  jj/ C**** PROGRAM DESCRIPTION : SELECT WHICH ACCOUNT GROUPS TO USE 00011  / C*** CALLING SEQUENCE : CALL GETGRP( GRPBUF,IALL,IMODE ) 00013  / C PARAMETERS 00015  / C GRPBUF : 10 WORD ARRAY RETURNED TO PROGRAM WITH FROM 1 00017 / C TO 10 VALID ACCOUNT GROUPS 00018 / C ( FOR USE WITH FUNCTION 'ICKGRP' ) 00019 / C IALL : FLAG RETURNED DESIGNATING USE OF ACCOUNT GROUPS 00020 / C 0 = USE ALL ACCOUNT GROUPS 00021 / C 1 = USE ONLY ACCOUNT GROUPS IN GRPBUF ARRAY 00022 / C IMODE : FLAG TO DETERMINE WHICH ACTION TO TAKE : 00023 jj/ C 0 = USE ALL ACCOUNT GROUPS 00024 / C 1 = USE ACCOUNT GROUPS 0-4 ONLY 00025 / C 2 = USE ACCOUNT GROUPS 5-9 ONLY 00026 / C 3 = PROMPT FROM SCREEN, WHICH OF (0-9) GROUPS TO USE 00027 / C 4 = PROMPT FROM SCREEN, EITHER ALL, OR 0-4, OR 5-9. 00028 / C 5 = GET 'IMODE' FLAG FROM UTIFIL 00029  / 2 INTEGER GRPBUF(1),IALL,IMODE 00031 / 2 +, INP(41),MSGY(18),AGRPS(10),MINUS(10),ALL 00032 / 2 +, MSG1(18),MSG2(18),MSG3(18),MSG4(18),MSG5(18) 00033 / 2 +, MSGA(18),MSGB(18),MSGC(18),MSGD(18),MSGE(18),MSGF(20) 00034  / 3 DATA MSG1/$180A,$0A0D,'** SELECT ACCOUNT GROUP OPTION',$160A/ 00036 jj/ 3 +, MSG2/$0D0A,' 0 = ALL ACCOUNT GROUPS ',$1616/ 00037 / 3 +, MSG3/$0D0A,' 1 = ACCOUNT GROUPS 0-4 ONLY ',$1616/ 00038 / 3 +, MSG4/$0D0A,' 2 = ACCOUNT GROUPS 5-9 ONLY ',$160A/ 00039 / 3 +, MSG5/$0D0A,' PLEASE ENTER SELECTION(0,1,2) :',$1616/ 00040  / 4 DATA MSGA/$180A,$0A0D,'* SELECT ACCOUNT GROUPS TO USE',$160A/ 00042 / 4 +, MSGB/$0D0A,' SEPARATE GROUPS BY COMMAS, ',$1616/ 00043 / 4 +, MSGC/$0D0A,' (I.E. 0,1,2,3, ETC...) OR ',$1616/ 00044 / 4 +, MSGD/$0D0A,' ENTER A FOR ALL GROUPS ',$160A/ 00045 / 4 +, MSGE/$0D0A,' PLEASE ENTER SELECTION -- :',$1616/ 00046  / 5 DATA MSGF/$180A,'INVALID ENTRY : ',$160A/ 00048  jj/ 6 DATA MSGY/$0D0A,$0D0A,' IS THIS CORRECT ? (Y/N) : ',$1616/ 00050 / 6 +, AGRPS/'0,1,2,3,4,5,6,7,8,9,'/,MINUS/10*$FFFF/,ALL/'A,'/ 00051  / C**** BEGIN PROGRAM ....... 00053  : FTN 3.3B (OPT = LPXC) GETGRP PAGE 2 DATE: 07/27/84 TIME: 1416 / 7 MODE = IMODE 00055 / 8 IALL = 0 00056 / 9 CALL CCSMVA( MINUS,1,20,GRPBUF,1,20 ) 00057  / 10 10 CONTINUE 00059 / 11 IF ( MODE.EQ.0 ) GO TO 50 00060 / 12 IF ( MODE.EQ.1 ) GO TO 100 00061 jj/ 13 IF ( MODE.EQ.2 ) GO TO 200 00062 / 14 IF ( MODE.EQ.3 ) GO TO 300 00063 / 15 IF ( MODE.EQ.4 ) GO TO 400 00064 / 16 IF ( MODE.EQ.5 ) GO TO 500 00065  / C**** SET AND USE ALL ACCOUNT GROUPS 00067  / 17 50 CONTINUE 00069 / 18 IALL = 0 00070 / 19 CALL CCSMVA( AGRPS,1,20,GRPBUF,1,20 ) 00071 / 20 GO TO 800 00072  / C**** SET AND USE GROUPS 0-4 ONLY 00074 jj / 21 100 CONTINUE 00076 / 22 IALL = 1 00077 / 23 CALL CCSMVA( AGRPS,1,10,GRPBUF,1,10 ) 00078 / 24 GO TO 800 00079  / C**** SET AND USE GROUPS 5-9 ONLY 00081  / 25 200 CONTINUE 00083 / 26 IALL = 1 00084 / 27 CALL CCSMVA( AGRPS,11,10,GRPBUF,1,10 ) 00085 / 28 GO TO 800 00086  jj/ C**** ASK OPERATOR FROM SCREEN WHICH ACCOUNT GROUPS..... 00088  / 29 300 CONTINUE 00090 / 30 CALL CCSMVA( MSG2,8,18,MSG2,4,30 ) 00091 / 31 CALL CCSMVA( MSG3,16,6,MSG3,4,30 ) 00092  / 32 305 CONTINUE 00094 / 33 ASSIGN 305 TO IRTN 00095 / 34 ASSIGN 10 TO IRTN2 00096 / 35 CALL WTREAD(05,-1,MSGA ,36,0,0,0,ITC) 00097 / 36 CALL WTREAD(05,-1,MSGB ,36,0,0,0,ITC) 00098 / 37 CALL WTREAD(05,-1,MSGC ,36,0,0,0,ITC) 00099 / 38 CALL WTREAD(05,-1,MSGD ,36,0,0,0,ITC) 00100 jj/ 39 MSGA = MSG1 00101  / 40 310 CONTINUE 00103 / 41 CALL CCSMVA(INP,1,0,INP,1,82) 00104 / 42 CALL WTREAD(05,-1,MSGE ,36,-1,INP,80,ITC) 00105 / 43 IF (ITC.EQ.4) GO TO 310 00106 / 44 NCH = INP(41) 00107 / 45 NCH = (NCH+1)/2 00108 : FTN 3.3B (OPT = LPXC) GETGRP PAGE 3 DATE: 07/27/84 TIME: 1416 / 46 N2H = NCH*2 00109 / 47 CALL CCSPUT( $2C,N2H,INP ) 00110 / 48 IF ( INP.EQ.ALL ) GO TO 320 00111 / 49 GO TO 330 00112 jj / C**** VERIFY ALL GROUPS TO BE USED... 00114  / 50 320 CONTINUE 00116 / 51 MODE = 0 00117 / 52 CALL WTREAD( 05,-1,MSG2,36,0,0,0,ITC ) 00118 / 53 GO TO 425 00119  / C**** VALIDATE INPUT FOR VALID GROUPS..... 00121  / 54 330 CONTINUE 00123  / 55 K = 1 00125 jj/ 56 MELM= NCH-1 00126 / 57 IF (MELM.LE.1) GO TO 370 00127 / 58 DO 360 I=1,MELM 00128  / 59 IF(INP(I).LT.INP(I+1))GO TO 360 00130 / 60 340 TEMP = INP(I) 00131 / 61 INP(I) = INP(I+1) 00132 / 62 INP(I+1) = TEMP 00133 / 63 DO 350 J=I,2,-K 00134 / 64 IF(INP(J).GT.INP(J-1))GO TO 360 00135 / 65 TEMP = INP(J) 00136 / 66 INP(J) = INP(J-1) 00137 / 67 INP(J-1) = TEMP 00138 jj/ 68 350 CONTINUE 00139 / 69 360 CONTINUE 00140  / C*** CHECK FOR DUPLICATE NUMBERS 00142  / 70 JJ = NCH-1 00144 / 71 DO 365 I = 1,JJ 00145 / 72 IF ( INP(I).EQ.INP(I+1) ) GO TO 390 00146 / 73 365 CONTINUE 00147  / C*** DISPLAY CHOICES AND VERIFY... 00149  / 74 370 CONTINUE 00151 jj/ 75 IF( INP(1).EQ.INP(2) ) GO TO 390 00152 / 76 DO 375 I = 1,NCH 00153 / 77 L = ( AND(INP(I),$FF00) )/256 00154 / 78 IF ( L.LT.$30 .OR. L.GT.$39 ) GO TO 390 00155 / 79 375 CONTINUE 00156 / 80 CALL CCSMVA( INP,1,N2H,MSG4,1,N2H ) 00157 / 81 CALL CCSMVA( INP,1,N2H-1,MSG3,11,20 ) 00158 / 82 CALL WTREAD( 05,-1,MSG3,36,0,0,0,ITC ) 00159 / 83 ASSIGN 380 TO IRTN2 00160 / 84 GO TO 425 00161  : FTN 3.3B (OPT = LPXC) GETGRP PAGE 4 DATE: 07/27/84 TIME: 1416 / C*** SET GROUPS..... 00163 jj / 85 380 CONTINUE 00165 / 86 IALL = 1 00166 / 87 CALL CCSMVA( MSG4,1,N2H,GRPBUF,1,N2H ) 00167 / 88 GO TO 800 00168  / C*** ERROR IN NUMBER ENTRY ..... REPEAT PROMPT 00170  / 89 390 CONTINUE 00172 / 90 MSGA = MSGB 00173 / 91 CALL CCSMVA( INP,1,N2H-1,MSGF,19,20 ) 00174 / 92 CALL WTREAD( 05,-1,MSGF,40,0,0,0,ITC ) 00175 / 93 GO TO IRTN 00176 jj / C*** ASK OPERATOR FROM SCREEN WHICH WAY TO GO....... 00178  / 94 400 CONTINUE 00180 / 95 ASSIGN 400 TO IRTN 00181 / 96 ASSIGN 10 TO IRTN2 00182 / 97 CALL WTREAD(05,-1,MSG1 ,36,0,0,0,ITC) 00183 / 98 CALL WTREAD(05,-1,MSG2 ,36,0,0,0,ITC) 00184 / 99 CALL WTREAD(05,-1,MSG3 ,36,0,0,0,ITC) 00185 / 100 CALL WTREAD(05,-1,MSG4 ,36,0,0,0,ITC) 00186  / 101 410 CONTINUE 00188 / 102 CALL CCSMVA(INP,1,0,INP,1,82) 00189 jj/ 103 CALL WTREAD(05,-1,MSG5 ,36,-1,INP,80,ITC) 00190 / 104 IF (ITC.EQ.4) GO TO 410 00191  / C*** VALIDATE SELECTION.... 00193  / 105 CALL CCSGET( INP,1,ICH ) 00195  / 106 IF( INP(41).EQ.0 ) GO TO 420 00197 / 107 IF ( ICH.LT.$30 .OR. ICH.GT.$32 ) GO TO IRTN 00198  / 108 420 MODE = AND( ICH,$F ) 00200 / 109 IF( MODE.EQ.0 ) CALL WTREAD(05,-1,MSG2 ,35,0,0,0,ITC) 00201 / 110 IF( MODE.EQ.1 ) CALL WTREAD(05,-1,MSG3 ,35,0,0,0,ITC) 00202 jj/ 111 IF( MODE.EQ.2 ) CALL WTREAD(05,-1,MSG4 ,35,0,0,0,ITC) 00203  / 112 425 CONTINUE 00205 / 113 CALL CCSMVA(INP,1,0,INP,1,82) 00206 / 114 CALL WTREAD(05,-1,MSGY ,36,-1,INP,80,ITC) 00207 / 115 CALL CCSGET(INP,1,ICH) 00208 / 116 IF ( INP(41).EQ.0 ) GO TO 430 00209 / 117 IF ( ICH.NE.$59 ) GO TO IRTN 00210 / 118 430 CONTINUE 00211 / 119 GO TO IRTN2 00212  / C**** GET 'IMODE' WHAT TO DO FLAG FROM UTIFIL... 00214  jj/ 120 500 CONTINUE 00216 : FTN 3.3B (OPT = LPXC) GETGRP PAGE 5 DATE: 07/27/84 TIME: 1416 / 121 CALL GTSYSP( MODE,77 ) 00217 / 122 IF ( MODE.LT.0 .OR. MODE.GT.4 ) MODE = 0 00218 / 123 GO TO 10 00219  / 124 800 RETURN 00221 / 125 END 00222 : FTN 3.3B (OPT = LPXC) GETGRP PAGE 6 DATE: 07/27/84 TIME: 1416   PROGRAM LENGTH $0390 ( 912)   EXTERNALS jj HFLOT Q8PKUP Q8PREP CCSMVA WTREAD CCSPUT CCSGET  GTSYSP  : FTN 3.3B (OPT = LPXC) GETGRP PAGE 7 DATE: 07/27/84 TIME: 1416  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :   FF00 (-255) 0137 77 jj, FFFE (-1) 0127 35,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114 7 0000 (0) 0001 8,11,18,35,36,37,38,41,51,52,82,92,97,98,99,100,102,106,109,110,111,113,116,122 @ 0001 (1) 0000 2,9,12,19,22,23,26,27,35,36,37,38,41,42,45,52,55,56,57,58,59,61,62,64,66,67,70,71,72,75,76,80,81, / 82,86,87,91,92,97,98,99,100,102,103,105,109,110,111,113,114,115  0004 (4) 011C 15,30,31,43,104,122 - 0005 (5) 011D 16,35,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114  0006 (6) 0124 31  0008 (8) 0120 30  000A (10) 011E 23,23,27,123  000B (11) 011F 27,81  000F (15) 013B 108  0010 (16) 0123 31  0012 (18) 0121 30 jj 0013 (19) 0138 91  0014 (20) 011B 9,9,19,81,91  001E (30) 0122 30,31  0023 (35) 013C 109,110,111 $ 0024 (36) 0128 35,36,37,38,42,52,82,97,98,99,100,103,114  0028 (40) 0139 92  002C (44) 012E 46  004D (77) 013D 121  0050 (80) 012B 42,103,114  0052 (82) 012A 41,102,113    VARIABLES : jj ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AGRPS INTEGER 003D 2,6,19,23,27  ALL INTEGER 0051 2,6,48  AND INTR.FN. 7FFF 77,108  GRPBUF INTEGER 7FFF 1,2,9,19,23,27,87  I INTEGER 0131 57,59,60,61,62,63,71,72,76,77  IALL INTEGER 7FFF 1,2,8,18,22,26,86  ICH INTEGER 013A 105,107,108,115,117  IMODE INTEGER 7FFF 1,2,7 = INP INTEGER 0002 2,41,42,44,47,48,59,60,61,62,64,65,66,67,72,75,77,80,81,91,102,103,105,106,113,114,115,116 jj IRTN INTEGER 0125 33,93,95,107,117  IRTN2 INTEGER 0126 34,83,96,119 / ITC INTEGER 0129 35,36,37,38,42,43,52,82,92,97,98,99,100,103,104,109,110,111,114  J INTEGER 0134 62,64,65,66,67  JJ INTEGER 0135 69,70,71  K INTEGER 012F 54,55,63 : FTN 3.3B (OPT = LPXC) GETGRP PAGE 8 DATE: 07/27/84 TIME: 1416  L INTEGER 0136 76,77,78  MELM INTEGER 0130 55,56,57,58  MINUS INTEGER 0047 2,6,9 ( MODE INTEGER 011A 6,7,11,12,13,14,15,16,51,108,109,110,111,121,122  MSG1 INTEGER 0052 2,3,39,97  MSG2 INTEGER 0064 2,3,30,52,98,109 jj MSG3 INTEGER 0076 2,3,31,81,82,99,110  MSG4 INTEGER 0088 2,3,80,87,100,111  MSG5 INTEGER 009A 2,3,103  MSGA INTEGER 00AC 2,4,35,39,90  MSGB INTEGER 00BE 2,4,36,90  MSGC INTEGER 00D0 2,4,37  MSGD INTEGER 00E2 2,4,38  MSGE INTEGER 00F4 2,4,42  MSGF INTEGER 0106 2,5,91,92  MSGY INTEGER 002B 2,6,114  N2H INTEGER 012D 45,46,47,80,81,87,91  NCH INTEGER 012C 43,44,45,46,56,70,76  TEMP REAL 0132 59,60,62,65,67 jj   EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSGET SUBROUTINE 0301 104,115 # CCSMVA SUBROUTINE 033C 8,19,23,27,30,31,41,80,81,87,91,102,113  CCSPUT SUBROUTINE 01E5 46  GTSYSP SUBROUTINE 035F 120  HFLOT REAL.FN. 021B  Q8PKUP INTEGER.FN. 037A jj Q8PREP INTEGER.FN. 0377 , WTREAD SUBROUTINE 031A 34,36,37,38,42,52,82,92,97,98,99,100,103,109,110,111,114   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   10 014A 9,34,96,123  50 0164 11,17  100 0171 12,21  200 017C 13,25 jj 300 0187 14,29  305 0195 31,33  310 01C4 39,43  320 01F0 48,50  330 01FE 48,54  340 0217 59  350 0243 62,68  360 0247 57,59,64,69  365 0258 70,73 : FTN 3.3B (OPT = LPXC) GETGRP PAGE 9 DATE: 07/27/84 TIME: 1416  370 025A 57,74  375 0276 75,79  380 029B 82,85 jj 390 02A7 72,75,78,89  400 02C0 15,94,95  410 02EB 100,104  420 0312 106,108  425 033B 52,84,112  430 035C 116,118  500 035E 16,120  800 0370 19,24,28,88,124  GETGRP 0374 1  : FTN 3.3B (OPT = LPXC) SYSPRT PAGE 1 DATE: 07/27/84 TIME: 1417 / 1 SUBROUTINE SYSPRT( BUFFER,NTIMES,SYSPRM,IOPT ) 00001 / 1 1 /CCS3.0 SUBROUTINE SYSPRT SL-XXX 00002 jj / 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/06/84 ************ PROGRAMMER : RWE 00009  / C**** PROGRAM DESCRIPTION : OUTPUT BUFFER TO LOGICAL UNIT OR 00011 / C TO A FILE 'SYSPRT'. 00012  / C*** CALLING SEQUENCE : CALL SYSPRT( BUFFER,NTIMES,SYSPRM,IOPT ) 00014  jj/ C PARAMETERS 00016  / C BUFFER : BUFFER CONTAINING CHARACTERS TO OUTPUT FROM. 00018 / C NTIMES : # OF TIMES TO OUTPUT THE BUFFER 00019 / C SYSPRM : 6 WORD ARRAY HOLDING PARAMETERS FOR SYSPRT 00020 / C SYSPRM(1) : PLN - NUMBER OF BYTES TO OUTPUT FROM BUFFER 00021 / C SYSPRM(2) : NLU - LOGICAL UNIT TO OUTPUT TO ( IGNORED IF 00022 / C OUTPUT IS TO FILE ) 00023 / C SYSPRM(3) : IPF - SWITCH DESIGNATING OUTPUT TO FILE OR LU 00024 / C 0 = LOGICAL UNIT. 1 = FILE. 2 = BOTH. 00025 / C SYSPRM(4) : NLINE - CURRENT LINE OR RECORD JUST OUTPUT. 00026 / C (INITIALIZED TO 0 BY CALLING PROGRAM) 00027 / C SYSPRM(5) : ISERR - ISTAT OF FILE MANAGER CALL TO FILE 00028 jj/ C SYSPRM(6) : NU - NOT USED AT PRESENT TIME 00029 / C IOPT : WHAT TO DO FLAG. 0 = OUTPUT BUFFER TO FILE OR LU 00030 / C 1 = CLOSE FILE 00031  / C**** SYSPRT PARAMETERS........ 00033  / 2 INTEGER BUFFER(1),NTIMES,IOPT 00035 / 2 +, SYSPRM(6),PLN,NLU,IPF,NLINE,ISERR,NU 00036  / 3 EQUIVALENCE ( SYSPRM(1),PLN ),( SYSPRM(2),NLU ) 00038 / 3 +, ( SYSPRM(3),IPF ),( SYSPRM(4),NLINE ) 00039 / 3 +, ( SYSPRM(5),ISERR ),( SYSPRM(6),NU ) 00040  jj/ C**** FWRITE PARAMETERS..... 00042 / 4 INTEGER IFLAG,ITEMP(8) 00043  / 5 DATA IFLAG /0/, ITEMP /8*0/ 00045  / 6 INTEGER DAT1(15),REQ1(24),R1KY(15),REC1(0068) 00047 / 6 +, HEDR(18) 00048  / 7 DATA HEDR/$0D0A,$0717,'ABORTED--PRINT FILE IS FULL FN='/ 00050 / 8 DATA DAT1 /'SYSPRT ',00,01,-1/,REQ1/24*0/ 00051 / 8 +, IOPN/0/ 00052  / C**** 00054 jj: FTN 3.3B (OPT = LPXC) SYSPRT PAGE 2 DATE: 07/27/84 TIME: 1417 / C**** BEGIN PROGRAM ....... 00055  / 9 IF ( ISERR.LT.0 ) GO TO 800 00057 / 10 ISERR = 0 00058 / 11 LINE = NLINE 00059 / 12 LU = AND( NLU,$FF ) 00060 / 13 LENW = (PLN+1)/2 00061  / 14 IF ( IOPT.NE.0 ) GO TO 950 00063 / 15 IF ( IPF.EQ.1 ) GO TO 400 00064 / 16 IF ( NTIMES.LE.0 ) GO TO 800 00065  jj/ 17 IF ( LU.EQ.05 .OR. LU.EQ.04 ) GO TO 20 00067 / 18 IF ( LU.EQ.09 .OR. LU.EQ.12 ) GO TO 20 00068 / 19 I = LENW 00069 / 20 GO TO 40 00070  / 21 20 CONTINUE 00072 / 22 DO 30 I = LENW, 2, -1 00073 / 23 IF ( BUFFER(I).NE.$2020 ) GO TO 40 00074 / 24 30 CONTINUE 00075  / 25 40 CONTINUE 00077 / 26 LENB = I * 2 00078  jj/ C*** WRITE BUFFER TO LOGICAL UNIT..... 00080  / 27 IF ( LU.EQ.05 ) GO TO 140 00082 / 28 50 CONTINUE 00083  / 29 DO 80 I = 1,NTIMES 00085  / 30 ASSIGN 60 TO ICOMP 00087 / 31 CALL FWRITE( LU,BUFFER,LENB,ICOMP,IFLAG,ITEMP ) 00088 / 32 CALL DISP 00089 / 33 60 CONTINUE 00090  / 34 80 CONTINUE 00092 jj/ 35 GO TO 200 00093  / C**** WRITE OUTPUT TO TERMINAL (MAX OF 132 BYTES)......... 00095  / 36 140 CONTINUE 00097 / 37 DO 150 I = 1,NTIMES 00098  / 38 ILN = LENB 00100 / 39 JLN = LENB 00101 / 40 IF ( ILN.GE.80 ) JLN = 80 00102  / 41 CALL WTREAD( LU,-1,HEDR,2,0,0,0,ITC ) 00104 / 42 CALL WTREAD( LU,-1,BUFFER,JLN,0,0,0,ITC ) 00105 jj / 43 JLN = ILN-80 00107 / 44 IF( JLN.LE.0 ) GO TO 150 00108 : FTN 3.3B (OPT = LPXC) SYSPRT PAGE 3 DATE: 07/27/84 TIME: 1417  / 45 CALL WTREAD( LU,-1,BUFFER(41),JLN,0,0,0,ITC ) 00110  / 46 150 CONTINUE 00112  / C**** INCREMENT LINE COUNT....... 00114  / 47 200 CONTINUE 00116 / 48 NLINE = NLINE + NTIMES 00117 jj/ 49 GO TO 800 00118  / C**** WRITE BUFFER TO SYSPRT FILE.......... 00120  / 50 400 CONTINUE 00122 / 51 IF ( IOPN.EQ.1 ) GO TO 420 00123  / 52 DO 410 I = 1,24 00125 / 53 REQ1(I) = 0 00126 / 54 410 CONTINUE 00127  / 55 CALL OPENFL( REQ1,DAT1,ISTAT ) 00129 / 56 IF( ISTAT.LT.0 ) GO TO 900 00130 jj/ 57 IOPN = 1 00131  / C**** OUTPUT BUFFER TO SYSPRT FILE.... 00133  / 58 420 CONTINUE 00135 / 59 IF( NTIMES.LE.0 ) GO TO 800 00136 / 60 ILN = PLN 00137 / 61 IF( ILN.GT.132 ) ILN = 132 00138 / 62 CALL CCSMVA( BUFFER,1,ILN,REC1,1,132 ) 00139  / 63 DO 440 I = 1,NTIMES 00141 / 64 CALL PUTS( REQ1,REC1,1,ISTAT ) 00142 / 65 IF( AND(ISTAT,$9000).EQ.$9000 ) GO TO 500 00143 jj/ 66 IF( ISTAT.LT.0 ) GO TO 900 00144 / 67 440 CONTINUE 00145  / 68 NLINE = NLINE+NTIMES 00147 / 69 GO TO 800 00148  / C**** INFORM OPERATOR FILE IS FULL..... 00150  / 70 500 CONTINUE 00152 / 71 ISERR = -1 00153 / 72 CALL CCSMVA( HEDR,1,36,REC1,1,132 ) 00154 / 73 CALL CCSMVA( DAT1,1,24,REC1,37,24 ) 00155 / 74 CALL WTREAD( 05,-1,REC1,64,0,0,0,ITC ) 00156 jj/ 75 GO TO 950 00157  / 76 800 CONTINUE 00159 / 77 RETURN 00160  / C*** ERROR SECTION.... 00162 : FTN 3.3B (OPT = LPXC) SYSPRT PAGE 4 DATE: 07/27/84 TIME: 1417  / 78 900 CONTINUE 00164 / 79 ISERR = -1 00165 / 80 IREQ = AND(REQ1(4),$FF) 00166 / 81 IF(IREQ.LT.11) IREQ = IREQ-1 00167 / 82 IF(IREQ.EQ.18) IREQ = 10 00168 jj/ 83 CALL FILERR( DAT1,IREQ,ISTAT,LU ) 00169  / C**** CLOSE FILE AND RETURN 00171  / 84 950 CONTINUE 00173 / 85 CALL CLOSFL( REQ1,ISTAT ) 00174 / 86 IOPN = 0 00175 / 87 RETURN 00176 / 88 END 00177 : FTN 3.3B (OPT = LPXC) SYSPRT PAGE 5 DATE: 07/27/84 TIME: 1417   PROGRAM LENGTH $020C ( 524)  jj EXTERNALS  Q8PKUP Q8PREP FWRITE DISP WTREAD OPENFL CCSMVA PUTS FILERR CLOSFL  : FTN 3.3B (OPT = LPXC) SYSPRT PAGE 6 DATE: 07/27/84 TIME: 1417  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :  jj 9000 (-28671) 00A9 65,65  FFFE (-1) 00A4 41,42,45,71,74,79 & 0000 (0) 0001 5,8,9,10,14,16,41,42,44,45,53,56,59,66,74,86 0 0001 (1) 0000 2,3,8,13,15,22,29,37,41,42,45,51,52,57,62,63,64,71,72,73,74,79,81  0002 (2) 009C 13,22,26,41  0005 (5) 009D 17,27,74  0018 (24) 00A6 52,73  0024 (36) 00AA 72  0025 (37) 00AB 73  0040 (64) 00AC 74  0084 (132) 00A8 61,61,62,72  00FF (255) 009A 12,80  2020 (8224) 009F 23 jj   VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   AND INTR.FN. 7FFF 12,65,80  BUFFER INTEGER 7FFF 1,2,23,31,42,45,62  DAT1 INTEGER 000B 5,8,55,73,83  HEDR INTEGER 0085 5,7,41,72  I INTEGER 009E 18,19,22,23,26,29,37,52,53,63  ICOMP INTEGER 00A1 29,31 jj IFLAG INTEGER 0002 3,5,31  ILN INTEGER 00A2 37,38,40,43,60,61,62  IOPN INTEGER 0097 8,51,57,86  IOPT INTEGER 7FFF 1,2,14  IPF INTEGER 7FFF 2,3,15  IREQ INTEGER 00AD 79,80,81,82,83  ISERR INTEGER 7FFF 2,3,9,10,71,79  ISTAT INTEGER 00A7 55,56,64,65,66,83,85  ITC INTEGER 00A5 41,42,45,74  ITEMP INTEGER 0003 3,5,31  JLN INTEGER 00A3 38,39,40,42,43,44,45  LENB INTEGER 00A0 25,26,31,38,39  LENW INTEGER 009B 12,13,19,22 jj LINE INTEGER 0098 10,11  LU INTEGER 0099 11,12,17,18,27,31,41,42,45,83  NLINE INTEGER 7FFF 2,3,11,48,68  NLU INTEGER 7FFF 2,3,12  NTIMES INTEGER 7FFF 1,2,16,29,37,48,59,63,68  NU INTEGER 7FFF 2,3  PLN INTEGER 7FFF 2,3,13,60 : FTN 3.3B (OPT = LPXC) SYSPRT PAGE 7 DATE: 07/27/84 TIME: 1417  R1KY INTEGER 0032 5  REC1 INTEGER 0041 5,62,64,72,73,74  REQ1 INTEGER 001A 5,8,53,55,64,80,85  SYSPRM INTEGER 7FFF 1,2,3  jj  EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSMVA SUBROUTINE 0177 61,72,73  CLOSFL SUBROUTINE 01D1 84  DISP SUBROUTINE 010C 31  FILERR SUBROUTINE 01CB 82  FWRITE SUBROUTINE 0104 29  OPENFL SUBROUTINE 015C 54  PUTS SUBROUTINE 0186 63 jj Q8PKUP INTEGER.FN. 01E0  Q8PREP INTEGER.FN. 01DD  WTREAD SUBROUTINE 01AD 40,42,45,74   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   20 00E7 17,18,21  30 00EF 21,24  40 00F3 19,23,25 jj 50 00FA 27  60 010D 29,33  80 010D 27,34  140 0111 27,36  150 0145 36,44,46  200 0147 34,47  400 014B 15,50  410 0156 51,54  420 0167 51,58  440 0194 62,67  500 019B 65,70  800 01B7 9,16,49,59,69,76  900 01B8 56,66,78 jj 950 01D0 14,75,84  SYSPRT 01DA 1  : FTN 3.3B (OPT = LPXC) ICKGRP PAGE 1 DATE: 07/27/84 TIME: 1418 / 1 INTEGER FUNCTION ICKGRP( GRPBUF,IALL,REC,IPOS ) 00001 / 1 1 /CCS3.0 SUBROUTINE ICKGRP 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/06/84 ************ PROGRAMMER : RWE 00009 jj / C**** PROGRAM DESCRIPTION : VALIDATE RECORD FOR MATCH OF ACCT GROUP 00011  / C*** CALLING SEQUENCE : 00013 / C ITF = ICKGRP( GRPBUF,IALL,REC,IPOS ) 00014 / C OR... IF ( ICKGRP( GRPBUF,IALL,REC,IPOS ).EQ. 1 ) GO TO 00015  / C PARAMETERS 00017  / C ICKGRP : RETURNED VALUE OF 0 = TRUE, OK TO USE RECORD 00019 / C 1 = FALSE, DON'T USE RECORD 00020 / C GRPBUF : 10 WORD ARRAY PASSED, CONTAINING VALID GROUPS 00021 / C ( BUILT BY SUBROUTINE 'GETGRP' ) 00022 jj/ C IALL : PASSED FLAG DESIGNATING 00023 / C 0 = USE ALL ACCOUNT GROUPS ( FORCE ICKGRP TO TRUE ) 00024 / C 1 = LOOK FOR MATCH OF GROUP FROM RECORD, IN THE 00025 / C GRPBUF ARRAY 00026 / C REC : PASSED BUFFER OF RECORD CONTAING ACCT GROUP. 00027 / C IPOS : STARTING BYTE POS. IN REC OF ACCOUNT GROUP 00028  / 2 INTEGER GRPBUF(1),IALL,REC(1),IPOS,TRUE,FALSE 00030  / 3 DATA TRUE / 0/, FALSE / 1/ 00032  / C**** 00034 / C**** BEGIN PROGRAM ....... 00035 jj / 4 ICKGRP = TRUE 00037 / 5 IF ( IALL.EQ.0 ) GO TO 900 00038  / 6 CALL CCSGET( REC,IPOS,IGRP ) 00040  / 7 DO 200 I = 1,10 00042 / 8 J = I*2-1 00043 / 9 CALL CCSGET( GRPBUF,J,ICH ) 00044  / 10 IF( ICH.EQ.$FF ) GO TO 800 00046 / 11 IF( ICH.EQ.IGRP ) GO TO 900 00047 / 12 200 CONTINUE 00048 jj / C*** NO MATCH SET ICKGRP TO FALSE 00050  / 13 800 CONTINUE 00052 / 14 ICKGRP = FALSE 00053 / 15 GO TO 900 00054 : FTN 3.3B (OPT = LPXC) ICKGRP PAGE 2 DATE: 07/27/84 TIME: 1418  / 16 900 RETURN 00056 / 17 END 00057 : FTN 3.3B (OPT = LPXC) ICKGRP PAGE 3 DATE: 07/27/84 TIME: 1418   PROGRAM LENGTH $0041 ( 65) jj  EXTERNALS Q8PKUP Q8PREP CCSGET  : FTN 3.3B (OPT = LPXC) ICKGRP PAGE 4 DATE: 07/27/84 TIME: 1418  ***** L I S T O F S Y M B O L S *****    CONSTANTS :  ---------   VALUE ADDRESS REFERENCED BY STATEMENT NB :  jj 00FF (255) 0007 10    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   FALSE INTEGER 0002 2,3,14  GRPBUF INTEGER 7FFF 1,2,9  I INTEGER 0004 6,8  IALL INTEGER 7FFF 1,2,5  ICH INTEGER 0006 9,10,11 jj ICKGRP INTEGER 0000 1,4,14  IGRP INTEGER 0003 6,11  IPOS INTEGER 7FFF 1,2,6  J INTEGER 0005 7,8,9  REC INTEGER 7FFF 1,2,6  TRUE INTEGER 0001 2,3,4    EXTERNALS :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :  jj CCSGET SUBROUTINE 000F 5,9  Q8PKUP INTEGER.FN. 0037  Q8PREP INTEGER.FN. 0034   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   200 0024 6,12  800 0029 10,13  900 002D 5,11,15,16 jj ICKGRP 0031 : FTN 3.3B (OPT = LPXC) ICHKZB PAGE 1 DATE: 07/27/84 TIME: 1419 / 1 INTEGER FUNCTION ICHKZB(IBUF,ISTRT,IBYTS) 00001 / 1 1 /CHECK FIELD FOR ZERO OR BLANK (RWE) 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** ************ 04/28/83 ************ PROGRAMMER : RWE 00009  / C**** THIS FUNCTION WILL CHECK A FIELD TO SEE IF IT IS ZERO 00011 jj/ C**** OR BLANK, EVEN IF THE ZEROS AND BLANKS ARE INTERMIXED, 00012 / C**** THE FUNCTION STILL RETURNS A VALUE OF TRUE. 00013  / C* VARIABLES : IBUF - BUFFER CONTAINING THE FIELD TO CHECK. 00015 / C* ISTRT - STARTING BYTE WITHIN IBUF. 00016 / C* IBYTS - NUMBER OF BYTES TO CHECK. 00017  / C**** RETURN VALUES : ICHKZB = 0 IF TRUE. 00019 / C* ICHKZB = 1 IF FALSE. 00020  / 2 INTEGER IBUF(1),ISTRT,IBYTS,IEND,ICH 00022  / 3 ICHKZB = 0 00024 jj/ 4 IF(IBYTS.EQ.0) RETURN 00025 / 5 IEND = ISTRT + IBYTS -1 00026  / 6 DO 20 I = ISTRT, IEND 00028 / 7 CALL CCSGET(IBUF, I, ICH) 00029 / 8 IF ( ICH.NE.$20 .AND. ICH.NE.$30 ) GO TO 40 00030 / 9 20 CONTINUE 00031 / 10 RETURN 00032 / 11 40 ICHKZB = 1 00033 / 12 RETURN 00034 / 13 END 00035 : FTN 3.3B (OPT = LPXC) ICHKZB PAGE 2 DATE: 07/27/84 TIME: 1419  jj PROGRAM LENGTH $0038 ( 56)   EXTERNALS Q8PKUP Q8PREP CCSGET  : FTN 3.3B (OPT = LPXC) ICHKZB PAGE 3 DATE: 07/27/84 TIME: 1419  ***** L I S T O F S Y M B O L S *****    VARIABLES :  ---------   NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : jj  I INTEGER 0003 5,7  IBUF INTEGER 7FFF 1,2,7  IBYTS INTEGER 7FFF 1,2,4,5  ICH INTEGER 0002 2,7,8  ICHKZB INTEGER 0000 1,3,11  IEND INTEGER 0001 2,5,6  ISTRT INTEGER 7FFF 1,2,5,6    EXTERNALS :  ---------  jj NAME TYPE ADDRESS REFERENCED BY STATEMENT NB :   CCSGET SUBROUTINE 0015 6  Q8PKUP INTEGER.FN. 0030  Q8PREP INTEGER.FN. 002D   LABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   20 001F 5,9 jj 40 0024 8,11  ICHKZB 002A   $*EOFÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*CLOSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ $*K,I13,L14ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ _‚_‚ABELED STATEMENTS : ------------------   LABEL ADDRESS REFERENCED BY STATEMENT NB :   20 001F 5,9 jÈ(– Œ –?MEMO0716BCS P¶071684071684(èÈÐM E M O 7-16-84 00010------- 00020TO: RJ SORENSEN 00030FM: KA WILLIAMS 00040SJ: GOLDOME COLLECTION MODULE INSTALLATION 00050 00060This memo highlights the events which took place during the collection 00070module installation at Goldome July 9 through July 13. 00080 00090Throughout collector and operator training, Dick Corley and his staff made 00100several suggestions for improvement, 3 of which were accepted and incor- 00110porated as follows: 00120 1) pass 1st payment due date in delinquency file data 00130 2) add type 3 option for category definitions by account # 00140 3) enter next contact date after activity 00150 00160Two changes in on-line transactions were also found necessary: 00170 1) eliminate company code in payment history transaction format; 00180 pass only 6 digits of office # 00190 2) allow type 3 for collection category input transaction 00200 00210After Friday's delinquency file transmission, the automatic NTX was halted 00220until the load problems listed later are resolved. The following prepara- 00230tion on the 8 terminal system will be necessary before restarting the 00240automatic delinquency file NTX: 00250ÐÐ 1) delete and reload FMFIL3, the FORMGEN object file 00260 2) re-assign collector IDs to operator level 3 00270 3) Initialize (DSU #3, option I) the BCS transaction file, TXFILE3 00280 00290The rest of this memo describes the remaining problems and their possible 00300solutions. 00310 00320On-line system problems (BCS 90), solutions unknown: 00330 1) RECORD UNAVAILABLE received sporadically after successful TRANSMITs 00340 2) sporadically picking up response from old transactions due to 00350 8 terminal buffering problem 00360 00370Problems during delinquency file NTX load: 00380 1) receiving occasional '1D' error codes due to network changing length 00390 of message blocks (i.e. the 1st block of each collection account 00400 should be 285 characters, but when examining the blocks after 00410 receiving above error code; 1 block had a 'RESUBMIT' stuck in the 00420 middle making the total block length 294, another block had lost 00430 characters making the block length 236, and another 254) 00440. 00450 2) The volume of accounts per delinquency NTX causes the BCS 90 to run 00460 out of buffers for holding data while data is loaded into BCS trans- 00470 action file (8K of buffers currently available) 00480 00490 SOLUTIONS: 00500ÐÐ a. transmit NTX in time-separated blocks 00510 b. have user operator request blocks of accounts using beginning and 00520 ending report # (using new unsolicited facility) 00530 c. speed up load logic and/or chain 8K buffers 00540 00550 3) The volume of accounts per delinquency NTX causes a timing problem as 00560 NTX transmissions currently start after 6 a.m. (~500 accounts takes 00570 3 to 4 hours to load) 00580 00590 SOLUTIONS: 00600 a. start NTX transmissions earlier 00610 b. don't pass 1st level delinquent accounts; send 1st notice letters 00620 from ADS as now 00630 c. don't pass all 2nd level delinquent accounts every day; only if-- 00640 .new 2nd level (next contact is blank) 00650 .scheduled today (next contact = today) 00660 .category changes (field would need to be added to MLR for 00670 determining such) 00680 .payment made 00690 .account's due date is today 00700 .12 month delinquency status field changes 00710 00720 other changes required-- 00730 .pass next contact date in YYMMDD format in key 3 of each account00740 to preserve priority order 00750ÐÐ .after working account, replace next contact in key 3 with 00760 today's date for reporting purposes; also move in XX in key 3 00770 if account not worked with SR or RH or letter codes 00780 00790 not passing 2nd levels every day affects operations/collections-- 00800 .daily reports must be printed with date in key 3, i.e. 00810 BATCH COL-2NDLVL,COL-ACTVTY,,,-XX071684 OR 00820 BATCH COL-2NDLVL,COL-LTR-02,,,-02071684 00830 .if a borrower calls who is not scheduled today OR collector 00840 exhausts today's workload and starts working tomorrow's, 00850 the collector must manually calculate late charges into past 00860 due amount as well as # of days delinquent from date account 00870 last worked or from due date 00880 .if all new 2nd levels are not all worked on the day they are 00890 passed, the collector has no way of telling what date the data 00900 is current from (what day they were passed). Passing today's 00910 date in key 3 instead of next contact would not work because 00920 1)new 2nd levels are normally worked ahead of and separate from 00930 all others and 2)would interfere with automatic link with 00940 priority order. 00950 00960 some operator/collector re-training will necessary for solution c. 00970_‚ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(2Kù 2ÿþt³MEMO1013BCS Pr101383101383(èÈÐTO: R.J. SORENSEN 10/13/83 00010FM: K.A. WILLIAMS 00020SJ: PREPARATION FOR DISCUSSIONS WITH WALT SMITH 00030 00040Listed below are items concerning both the BCS and A-30 projects which 00050I feel should be discussed with Walt before continuing. 00060 00070 00080 00090-TASKS WHICH ARE NEW/DIFFERENT FOR ADS IN BCS DESIGN vs. A-30 DESIGN 00100 (See MEMO0913 for detail) 00110 1) Sort of Delinquency file 00120 2) Attaching next category/acct # to current category/acct # for each 00130 record in delinquent file. 00140 3) Determine category/queue assignment using definition in office record 00150 4) On-line transaction to update category definitions in office record 00160 5) 7 types of on-line inquiry transactions 00170 00180 NOTE: #5 above is also needed for next A-30 design. Also, if disk 00190 space remains a problem at A-30 time, may need to incorporate 00200 something along the lines of 1 through 4 above as well. 00210 00220-After attempting to resolve our requirement for actual # of days delq 00230 by suggesting ADS provide date acct delq from, it was discovered no 00240 such date exists (see MISCNOTE). As severity of delinquency is important 00250ÐÐ in collections, however, I feel we should ask that ADS commit to adding 00260 1 of 3 fields to their MLR (in order of preference): 00270 1) actual # of days delinquent 00280 2) date account went delinquent 00290 3) actual # of payments behind 00300 00310-Determine problem/resolution in office/terminal addressing. 00320 00330-Eliminate need for CRs and TAB positioning characters in collection 00340 module host response messages which will also prevent attempts to use 00350 hardcopy terminals to get into collection module. 00360 00370-Need committment and committment date (from Walt) for accomodation of 00380 BCS collection module implementation. 00390_‚ ÐÐ_‚_‚collections, however, I feel we should ask that ADS commit to adding 00260 1 of 3 fields to their MLR (in order of preference): 00270 1) actual # of days delinquent 00280 2) date account went delinquent 00290 3) actual # of payments behind 00300 00310-Determine problem/resolution in office/terminal addressing. 00320 00330-Eliminate need for CRs and TAB positioning characters in collection 00340 module host response messages which will also prevent attempts to use 00350 hardcopy terminals to get into collection module. 00360 00370-Need committment and committment date (from Walt) for accomodation of 00380 BCS collection module implementation. 00390_‚ ÐÈ(C# Cÿý|ePROC BCS Pª(èÈÐINPUT=PROC 00010WEAVE 00020ARDESC,BCS 00030TEMP,BCS,DEVEL 00040INPUT=PROC 00050SNARF 00060ARDESCXX,BCS 00070TEMP,BCS,DEVEL 0008010,3000 00090INPUT=PROC 00100WEAVE 00110TEMP,BCS 00120ARDESC,BCS,DEVEL 00130INPUT=PROC 00140UNSEQ 00150ARDESC,BCS,DEVEL 00160MNUPRO 00170_‚ ÐÐ ÐÐ _‚_‚ ÐÈ(ÈŠ Èÿþv¶TMINITS11BCS Pè110383110383(èÈÐMINUTES FOR TRIPS/EVENTS IN THE MONTH OF NOVEMBER, 1983 00010 0002011/1/83 - Phone conversation with Ray L. from St. Louis 00030------- 00040 -BCS NTX delinquency file fields? May fit several fields per 55 char NTX 00050 line, but must be separated by '@'. If not desired to display keys, 00060 need only pass in key definition area. All keys except system access 00070 key may be updated. 00080 00090 -Can blank COL-2NDLVL screen mask be brought up to request inquiry? 00100 Yes, and transaction will not be saved unless next contact date 00110 changed. 00120 0013011/1/83 - Meeting with Les Getz, John Hartman and Irv ? in St. Louis 00140------- 00150 -KAW presented 10/28/83 versions of A-30SPEC and BCS-SPEC. Questions 00160 that arose included: 00170 1) Is ADS to put whole fields or split fields at end on 55 char NTX 00180 line? 00190 2) Existing reports can't fit on 55 char line, what should they do? 00200 3) In BCS design, how can accts be grouped by office # within company 00210 when more than office may be collecting accts? 00220 4) For delinquency levels, 1st is 5 days and 2nd level is what? 00230 0024011/2/83 - Answers to above questions obtained from Ray Lucchetti, Bob 00250ÐÐ------- Hohn, Jim Rosenauer and Dave Clark 00260 00270 1) Either is acceptable if last full field has CR following '@'; ADS 00280 will split fields. 00290 2) We can build report as if it were a delinquency file, but with a 00300 different form name that is 10 pages long. PRINTGEN will be used 00310 then to format the report. 00320 3) For now, and in the BCS timeframe, companies with multiple offices 00330 work their accounts from 1 regional office. This will be true for 00340 A-30 implementations as well initially; later, however, delinquency 00350 file can still be transmitted to 1 office as remotes to the A-30 00360 will be possible. ADS to come up with scheme of associating 00370 individual offices with home (regional) office (more or less in 00380 place now in OSA record). 00390 4) Different companies may have different definitions of 1st and 2nd 00400 level delinquent (same definition for all offices in that company). 00410 These definitions reside in the Delinquency Option Table's Late 00420 Notice Categories. 00430 00440 -Also need to resolve: 00450 1) What are we really getting in # of days delinquent field? 00460 2) Can John Hartman's group dummy a delinquency file for Ray to test 00470 with? 00480 3) Need estimate from John & Les for completion of NTX & transactions. 00490 00500ÐÐ11-04-83 - Phone conversation with Walt Smith. RJS 00510--------- 00520 Reports peculiar to the collection module can be in what- 00530 ever format is best for us. We cannot reformat any existing 00540 report, however. 00550 0056011-07-83 - Phone conversation with Les Getz. KAW 00570-------- 00580Discussed MEMO1104, Les also asked: 005901) What do we want in amt dlq, pay due and age fields? 00600 The actual (as of today) amt dlq, reg pay + amt dlq, and # days dlq. 00610 Les said there was still some question as to whether the current 00620 values for those fields will be made available, but he will check. 00630 006402) Late charges (at month end) is a new field that will not be available 00650 until around spring of next year, what for now? 00660 Pass something like N/A for now. 00670 006803) Next contact date? 00690 Collection module field updated by on-line transactions. 00700 007104) Last update field updated only at month end & not meaningful to users. 00720 Remove from transaction. 00730 007405) Prior acct # is 6 chars. Ok. 00750ÐÐ 007606) Dealer reserve should be reserve from principal and only available for 00770 some customers. 00780 Ok, pass N/A for non-subscribing customers. 00790 00800Les to send me list of MLR keywords and transation codes. 00810 0082011-09-83 - Phone conversations KAW 00830-------- 00840With Bob Hohn: 00850 -The 2 collection systems for Colonial WILL have 2 distinct office #s 00860 even though they will reside in the same building; this makes it a 00870 good place to test multi-office company w/ multi-office collections. 00880 -They warrant 2 coll. systems even though their portfolio is smaller 00890 than Mannie Hannie because their delinquency is higher: for >30 days 00900 around 600 per month 00910 00920With John Hartman: 00930 -What plans have been made to manage where dlqcy file goes for multi- 00940 office company? 00950 Not enough room to put multi-office associations in regional office 00960 record, therefore to go in OSC. Can either set up Home Office with 00970 branch offices belonging to it OR each office assigned to Home Office. 00980 -Need each individual office assigned to Home (collection) office 00990 because of Colonial. 01000ÐÐ John to verify individual office association. 01010_‚ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(2fI 2ÿþUCOMPARE BCS PÜ102883102883(èÈÐ ADS IMPLEMENTATION OF COLLECTION MODULE 00010 BCS 90 vs. ALLADIN 30 00020 00030Areas of similarity: 000401) BOSS transactions 000502) Responses to inquiry transaction types 1-7; inquiry trans 0 is 00060 unique to A-30, but data is similar to delinquency file transmitted 00070 to BCS 90. 000803) Update account data transaction format an 000904) Reports 00100 00110 00120 00130Areas of difference: 001401) No inquiry transaction type 0 on BCS 90. 001502) New transaction for defining offices' account category values in 00160 ADS Delinquency Option Table. 001703) Building delinquency file on BCS 90 involves determining category 00180 associated with each account, sorting accounts and determining 00190 category & acct # of next account in sorted work file. 002004) Delinquency data transmitted to BCS 90 is different as well as 00210 formatted differently. 00220_‚ ÐÐ ÐÐ_‚_‚ ÐÈ(nJç nÿþtÒ.TRANS BCS Pè(èÈÐ TRANSACTION STRINGS 00010 00020Account Inquiry Transaction: 00030 00040OFFSET # CHAR TAG DESCRIPTION 00050------ ------ ------ ---------------------------------------------- 00060 1 2 Transaction Code = '49' 00070 3 1 Inquiry Type: 0 = Borrower primary information 00080 1 = Payment history 00090 2 = Delinquency history 00100 3 = Business information 00110 4 = Cosigner information 00120 5 = Insurance information 00130 6 = Miscellaneous loan information 00140 7 = Charge-off information 00150 8 = Category definitions 00160 4 6 OFFICE Office number 00170 10 1 Space (Omitted for type 8) 00180 11 6 ACCT Account number (Omitted for type 8) 00190 00200 00210 00220Update Account Data Transaction: 00230 00240OFFSET # CHAR TAG DESCRIPTION 00250ÐÐ------ ------ ------ ---------------------------------------------- 00260 1 2 Transaction Code = '49' 00270 3 1 Space 00280 4 6 OFFICE Office Number 00290 10 1 Space 00300 11 6 ACCT Account Number 00310 17 1 Space 00320 18 4 KEYWD1 Keyword #1 00330 22 1 Space 00340 23 x1 VALUE1 Field #1 value 0035023+x1 1 CR/SEND 0036024+x1 4 KEYWD2 Keyword #2 0037028+x1 1 Space 0038029+x1 x2 VALUE2 Field #2 value 0039029+x1+x2 1 CR/SEND 0040030+x1+x2 4 KEYWD3 Keyword #3 0041034+x1+x2 1 Space 0042035+x1+x2 x3 VALUE3 Field #3 value 00430 . . . 00440 . . . 00450 . . . 00460 150 End of string (maximum string length) 00470. TRANSACTION STRINGS 00480 00490Update Office Category Definitions Transaction: 00500ÐÐ 00510OFFSET # CHAR TAG DESCRIPTION 00520------ ------ ------ ------------------------------------------------ 00530 1 2 Transaction Code = '49' 00540 3 1 Type = '8' 00550 4 6 Office # being changed 00560 10 1 Space 00570 11 6 Collection office # 00580 17 1 Space 00590 18 1 Grouping Type: 1 = by days delinquent 00600 2 = by office # within company 00610 19 1 Space 00620 20 1 A Keyword for category A 00630 21 1 Space 00640 22 6 Begin value for cateogry A 00650 28 1 Space 00660 29 6 End value for category A 00670 35 1 CR/SEND 00680 36 1 B Keyword for category B 00690 37 1 Space 00700 38 6 Begin value for category B 00710 44 1 Space 00720 45 6 End value for category B 00730 . . . 00740 . . . 00750ÐÐ 00760 1 2 Transaction Code = '49' [2nd half] 00770 3 1 Type = '8' 00780 4 6 Office # being changed 00790 10 1 Space 00800 11 6 Collection office # 00810 17 1 Space 00820 18 1 Grouping Type: 1 = by days delinquent 00830 2 = by office # 00840 19 1 Space 00850 20 1 F Keyword for category F 00860 21 1 Space 00870 22 6 Begin value to category F 00880 28 1 Space 00890 29 6 End value for category F 00900 35 1 CR/SEND 00910 36 1 G Keyword for category G 00920 37 1 Space 00930 38 6 Begin value for category G 00940 44 1 Space 00950 45 6 End value for category G 00960 51 1 CR/SEND 00970 . . . 00980 93 6 End value for category J 00990 99 1 CR/SEND 01000ÐÐ_‚ _‚_‚ 1 F Keyword for category F 00860 21 1 Space 00870 22 6 Begin value to category F 00880 28 1 Space 00890 29 6 End value for category F 00900 35 1 CR/SEND 00910 36 1 G Keyword for category G 00920 37 1 Space 00930 38 6 Begin value for category G 00940 44 1 Space 00950 45 6 End value for category G 00960 51 1 CR/SEND 00970 . . . 00980 93 6 End value for category J 00990 99 1 CR/SEND 01000ÐÈ(èt èÿþ$'¡ADSCMDR BCS Pä060783060783(èÈÐ 00010 00020 00030 00040 00050 00060 00070 00080 00090 00100 00110 00120 00130 00140 00150 00160 00170 00180 00190 00200 00210 00220 00270 00280 00290ÐÐ Design Requirements 00300 00310 DXXXX.XX 00320 00330 ADS Collection Module 00340 00350 00360 00370 00371 00372 00373 00380 00390 00400 00410 00420 00430 00440 00450Written By:_____________________ Date:________ 00460 00470Approved By:_____________________ Date:________ 00480 00490 _____________________ Date:________ 00500. 00510ÐÐ 00520 005301.O ABSTRACT 00540 00550 This document describes the Collection Module portion of the Action 00560Distributive System. The major function of this module will be to provide 00570for the systematic collection of delinquent accounts. A secondary function 00580will be to provide for a non-ledgercard environment by providing the 00590account history currently kept on the ledgercard, as a CRT display. 00600 While not described in this document, the design will allow for the 00610utilization of this module along with current and future FIS DDP product 00620offerings. 00630. 00640 00650 006602.O BUSINESS RATIONALE. 00670 00680 The Action Distributive System Collection Module is consistent with 00690and reinforces the general strategy of the Action Distributive System: 00700 00710 1. It reinforces Control Data's commitment to the Financial Industry 00720 by introducing updated CRT based equipment with greatly enhanced 00730 capabilities. 00740 00750 2. It provides the methodology for our customers to achieve the 00760ÐÐ levels of office automation required to remain competitive. 00770 00780 3. It enhances the Action Distributive Systems position as a logical 00790 bridge to the F. I. D. V. offering while helping to retain the 00800 current customer base during its development. 00810. 00820Action DDP Credit Collection Module 00830 00840 008503.0 Collection Activity Functions Required 00860 00870 1. Operation 00880 00890 As the collector starts the work day, the system 00900 will display the highest priority account in the col- 00910 lector's schedule via an automatic file selection. The 00920 initial screen display will contain the borrowers basic 00930 account information and latest collection activity. When 00940 the collector has performed a positive action on the 00950 account, the system will display the next account in the 00960 collectors queue. If for some reason, the collector by- 00970 passes an account (i.e. no action taken), the system 00980 automatically places that account in the work queue either 00990 later the same day, or for the next day and continues to 01000 do so until a positive action is performed. 01010ÐÐ At any time, the collector may interrupt the automatic 01020 scheduling to handle incoming calls from debtors. 01030 Any account can be accessed by account number, even 01040 if it is not scheduled for review that day. When 01050 this call is completed the system will return the 01060 collector to automatic mode at the point where the 01070 interruption occurred. Any account can be handled 01080 from any terminal (administrative CRT) hence collectors 01090 can accept incoming calls at any time (i.e., coverage 01100 during lunch breaks, abscences, etc.) 01110 01120 As a collector works his or her accounts, he or she 01130 can: 01140 01150 a. Review and analyze any account data transferred 01160 from the Action system 01170 01180 b. Review the history of collection activity on an 01190 account since it entered the collection module. 01200 01210 c. Request collection letters for borrowers. The 01220 contents of these letters is user determined 01230 Insertion of variables within the text is also 01240 provided (i.e. dates, amounts etc.) (Letter Quality Printer) 01250 01260ÐÐ d. Add and/or change pertinent non-financial infor- 01270 mation regarding the borrower such as addresses, 01280 employment and telephone numbers. The system will 01290 maintain a record of these changes. 01300 01310 01320 e. Allow for passing an account to a supervisor for 01330 review at some later time. 01340. 01350 f. Record comments regarding the account or results 01360 of a debtor contact. The system requires that a 01370 positive action be comprised of an action code 01380 ( what the collector attempted to do) and a re- 01390 sult code ( what happened). The system will prompt 01400 for further information if required, and will 01410 allow the collector to enter free form comments 01420 describing the action or result. The collector 01430 will also be allowed to schedule a next contact 01440 date. 01450 01460 01470 2. Management 01480 01490 The collection system supervisor can access any 01500 account to review, update status changes or assign 01510ÐÐ accounts to write-off. The special functions used 01520 for these purposes, as well as report generation, 01530 are only available to a supervisor. 01540 01550 During periods of employee illness or vacation, ac- 01560 counts may quickly and easily be reassigned to 01570 different collectors. The ability to redistribute 01580 the delinquency workload helps ensure consistency 01590 in account follow-up. In addition the supervisor has 01600 queues created for his or her use. These can include 01610 all aged accounts, all accounts assigned to write-off, 01620 all bankruptcies, and all accounts passed to them 01630 for supervisor review. 01640 01650 3. Reports 01660 01670 The standard management reports will allow the 01680 user to interpret the trends of their collection 01690 activities and track productivity on a regular basis. 01700 01710 a. Delinquent Trend Analysis - Shows the movement of 01720 accounts; both by number of accounts and payoff 01730 amounts; between aging periods. The report can be 01740 run with totals by queue and/or overall totals. 01750 01760ÐÐ b. Delinquent Record Content - Hard copy of account 01770 information can be obtained at the remote site. 01780 01790 c. Summary Account List - Will provide account infor- 01800 mation in borrower name order for cross reference. 01810 01820 d. Collector Activity Report - Provides detailed information 01830 of collector activity per day. 01840 01850 e. Daily Assignment List - Will provide minimum account 01860 information to be used as backup to the on-line system 01870 or for analysis of collector's work. 01880 01890 f. Eligible for Write-off Report - Will provide a list of 01900 accounts whose delinquency status indicate a potental 01910 write-off. 01920. 019304.0 SPECIAL CONSIDERATIONS 01940 01950 019604.1 General notes: While all of the above mentioned capabilities 01970 will be provided, existing Action reports and 01980 transactions will be used and/or modified if 01990 at all possible. Only transaction types and reports 02000 not available will be created for the collection 02010ÐÐ module. 02020_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(28 2ÿþyÕADSBR BCS PT041483041483(èÈÐACTION PERSONNEL BUNKER RAMO PERSONNEL 00010----------------------------------- ---------------------------------- 00020Jim Kruse, mktg., John Zimmerman, sales rep. 00030 00040Walt Smith, sftwre support Mike Ehrenberg, sys support 00050 00060Jim Rosenauer Dave York, sys support, setting up 00070 1st 30 ADTRAN transaction forms 00080 00090Bob Hohn Ray Luccheti, Sr sys support 00100 00110Greg Cordes, mktg., Willie Mendez, instructor 00120 00130Les Getz, Smith's group Rich Parker, Nat'l Mkg Mgr 00140 00150Wanda Nichoalds, mktg Walter Bradford, Chicago analyst 00160 00170Doris Tolliver, demos Harry Biers, local STLADS rep 00180 00190Pat Crowley 00200 00210Marny Meserve, same as Doris? 00220 00230Dave Clark, O/S guy ACP/Data Systems 00240 00250ÐÐ OTHER CDC PERSONNEL 00260 ----------------------------------- 00270 00280 Brian Bell, FIDV Coordinator 00290 00300 John Crowley, Campbell ???? 00310 00320 John Kohut, ERS writer, Campbell 00330 00340_‚ ÐÐ_‚_‚ OTHER CDC PERSONNEL 00260 ----------------------------------- 00270 00280 Brian Bell, FIDV Coordinator 00290 00300 John Crowley, Campbell ???? 00310 00320 John Kohut, ERS writer, Campbell 00330 00340_‚ ÐÈ(x ÿþqûlDIDESC BCS P&(èÈÐ. 00010DELINQUENCY INDICATOR FILE OFFICE NUMBER 00020 00030 00040Purpose To provide office # for delinquent account 00050 00060Assembly Value CL8' ' 00070 00080Description 8 alphanumeric characters 00090 00100New Loan Routine None 00110Initialization 00120 00130Online Conversion None 00140Initialization 00150 00160Online Update None 00170 00180Online Usage None 00190 00200Offline Update None 00210 00220Offline Usage Transmitted to A-30, Summary Account List, 00230 Trend Report, Write-off Report, Assign. List 00240Special Considerations None 00250ÐÐ 00260 00270 00280DELINQUENCY INDICATOR FILE ACCOUNT NUMBER 00290 00300 00310Purpose To provide delinquent account number 00320 00330Assembly Value CL14' ' 00340 00350Description 14 alphanumeric characters 00360 00370New Loan Routine None 00380Initialization 00390 00400Online Conversion None 00410Initialization 00420 00430Online Update None 00440 00450Online Usage None 00460 00470Offline Update None 00480 00490Offline Usage Transmitted to A-30, Summary Account List, 00500ÐÐ Trend Report, Write-off Report, Assign. List 00510Special Considerations None 00520. 00530DELINQUENCY INDICATOR FILE DELINQUENCY FLAG 00540 00550 00560Purpose To provide account delinquency determination 00570 00580Assembly Value CL1' ' 00590 00600Description 1 if account currently 1st level delinquent 00610 2 if account currently 2nd level delinquent 00620 N if account currently NOT delinquent 00630New Loan Routine None 00640Initialization 00650 00660Online Conversion None 00670Initialization 00680 00690Online Update None 00700 00710Online Usage None 00720 00730Offline Update Set/Reset during batch processing/BOSS run 00740 00750ÐÐOffline Usage Batch processing build of Delquency Indicator 00760 File, transmitted to A-30 00770Special Considerations None 00780 00790 00800 00810DELINQUENCY INDICATOR FILE LAST PAYMENT DATE 00820 00830 00840Purpose To provide date of last payment 00850 00860Assembly Value CL6' ' 00870 00880Description 6 alphanumeric or blank characters 00890 00900New Loan Routine None 00910Initialization 00920 00930Online Conversion None 00940Initialization 00950 00960Online Update None 00970 00980Online Usage None 00990 01000ÐÐOffline Update None 01010 01020Offline Usage Transmitted to A-30 01030 01040Special Considerations None 01050. 01060DELINQUENCY INDICATOR FILE LAST PAYMENT AMOUNT 01070 01080 01090Purpose To provide consolidated last payment amount 01100 01110Assembly Value CL10' ' 01120 01130Description 9 numeric characters and sign character 01140 01150New Loan Routine None 01160Initialization 01170 01180Online Conversion None 01190Initialization 01200 01210Online Update None 01220 01230Online Usage None 01240 01250ÐÐOffline Update Last Payment Amount = MLPRN1 + MLINT1 01260 01270Offline Usage Transmitted to A-30 01280 01290Special Considerations None 01300 01310 01320 01330DELINQUENCY INDICATOR FILE ACTUAL # OF DAYS DELINQUENT 01340 01350 01360Purpose To provide actual # of days delinq 01370 01380Assembly Value CL3' ' 01390 01400Description 3 alphanumeric or blank characters 01410 01420New Loan Routine None 01430Initialization 01440 01450Online Conversion None 01460Initialization 01470 01480Online Update None 01490 01500ÐÐOnline Usage None 01510 01520Offline Update Calculated during batch processing/ 01530 BOSS run 01540 01550Offline Usage Transmitted to A-30 01560 01570Special Considerations None 01580 01590. 01600DELINQUENCY INDICATOR FILE PAST DUE AMOUNT 01610 01620 01630Purpose To provide current past due amount 01640 01650Assembly Value CL10' ' 01660 01670Description 9 numeric characters and sign character 01680 01690New Loan Routine Blank-fill 01700Initialization 01710 01720Online Conversion None 01730Initialization 01740 01750ÐÐOnline Update None 01760 01770Online Usage None 01780 01790Offline Update Batch processing/BOSS run 01800 01810Offline Usage Delinquency Indicator File build 01820 01830Special Considerations None 01840_‚ ÐÐ ÐÐ ÐÐ _‚_‚ ÐÈ(ÈcH ÈÿþQ%TMEMO0913BCS Pö091283091283(èÈÐTO: Ray Lucchetti 09/13/83 00010FM: K. A. Williams 00020SJ: Collection Module 00030 00040Enclosed is a summary of the ADS Collection Module as discussed in 00050St. Louis on 9/07/83. Included in the summary are the key, sort, etc. 00060definitions you required. 00070 00080If any points in this summary differ from your understanding of our 00090collection module requirements or if any items deviate from the 00100capabilities of the BCS 90, please let us know. 00110 00120 00130 00140CC: W. E. Baker 00150 J. Zimmerman 00160 R. J. Sorensen 00170 D. M. Gassman 00180. 001901. DELINQUENCY FILE 00200 00210The Delinquency file will be transmitted daily from ADS and will consist 00220of all currently delinquent accounts (average of 200) as well as accounts 00230that are no longer delinquent as of yesterday. 00240 00250ÐÐBR Considerations: 00260 1) Accounts are loaded into transaction file 00270 2) Update transaction record if account already exists 00280 3) Automatically blank-fill Collector ID field in transaction record 00290 4) Provide NEXT REC capability with appropriate message if not 00300 available for currently displayed account 00310 00320ADS Considerations: 00330 1) Sort delinquent accounts in 1 of 2 ways as defined in user's 00340 office record -- 00350 Option 1 = Delq flag*, age, next contact date** & amount delq 00360 Option 2 = Delq flag*, office, next contact date**, age, amt delq 00370 * Accounts either have Y or N delinquency flag. Accts 00380 with flag=N are presented 1st and will only be passed 00390 if they are no longer delinq as of yesterday. Flag 00400 will not be passed with delq record, but '*' will be 00410 placed in category prefix of acct # so as to update 00420 transaction file key and prevent working 'current' 00430 accounts (see File Format). 00440 00450 ** Next contact date for 5 day accounts is blank 00460 00470 2) Assign accounts to categories based on selected options in ADS 00480 office record 00490 3) Determine next acct#/category for each acct 00500ÐÐ 4) Format into 55 char NTX records 00510 00520Operational Considerations: 00530 1) Blank collector ID in delq transaction record indicates account 00540 has not been worked. After 1st pass through, accounts will be 00550 accessed by blank Coll ID from transaction directory. 00560 2) 5 day & 2nd level delq accounts will be worked from different 00570 forms, COL-1STLVL and COL-2NDLVL. 00580 3) At end of each category, collector will go back to directory and 00590 supply 1st character of acct# key to access his next group of accts.00600 4) Assign collector IDs such that the last 5 characters (of 8) indi- 00610 cate which categories he should work. Possibly display warning 00620 message via Full Edits if collector brings up account with 00630 category other than those in his ID. 00640 5) Each office will define category ranges via form CATEGORIES. 00650 Entries on this form generate transactions to ADS to update the 00660 user's office record. 00670 6) Transaction file entries for 5 day accounts will be purged at the 00680 end of the day. For the present, 2nd level delq account trans 00690 will not be purged. 00700 7) Attempts to display locked or non-existant accounts will result 00710 in appropriate error messages after which the collector 00720 will either have to go back through directory or wait 00730 before pressing NEXT REC. 00740. 00750ÐÐFile Format: # characters 00760 1st record -- 'BEGIN' 5 00770 'COLLFILE' or 'COLLREPT' 8 00780 00790 record 2-n -- Office # 8 00800 category letter A-Z ('*' if current) 1 00810 account # 6 00820 category A-Z of next acct ('*' if current) 1 00830 acct # of next acct ('END' if end of 6 00840 current category) 00850 name 25 00860 address line 1 25 00870 address line 2 25 00880 city/state 20 00890 zip 9 00900 home phone 10 00910 business phone 10 00920 current balance 9 00930 amount delinquent 9 00940 payment due 9 00950 # days delinquent 3 00960 delinquency level (1 or 2) 1 00970 next contact date 6 00980 -----> 183 chars 00990 01000ÐÐTransaction File Keys for all offices: 01010 1) Category/account # 7 01020 2) Name 25 01030 3) Collector ID - used for local reporting 8 01040 01050 010602. INQUIRY TRANSACTIONS 01070 01080Further information will be requested from ADS via 1 of 7 inquiry trans- 01090actions. This information is available for 2nd level delq accounts only. 01100The response for each inquiry will be placed in the 3rd page of the 01110COL-2NDLVL form. The responses will be pre-edited by ADS and transmitted 01120with field labels beside data fields. 01130 01140 011503. COLLECTION ACTIVITY HISTORY 01160 01170Collection activity history will be saved for 2nd level delq accounts only.01180Activity history will occupy the 2nd page of the COL-2NDLVL form for each 01190account. It consists of 2 columns of 20 activity strings where the 01200maximum comment length is 14. 01210 01220 012304. FORMS 01240 01250ÐÐThe 3 collection module forms, CATEGORIES, COL-1STLVL and COL-2NDLVL are 01260outlined in the following pages. 01270\BCSFORMS 01280_‚ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ( M­  ÿû,ØpDEMOSEQ BCS P„(èÈÐCOLLECTION MODULE DEMO SEQUENCE ON BCS 90 06-26-84 00010----------------------------------------- 00020 00030PREPARATION: 00040 000501. Initialize TXFILE3 000602. Reload TXFILE3 from floppy to rigid (in DSU) 000703. Sign-in with ________ 000804. Sign-on to BCS 90 000905. Run demo on PAT system so that transactions to company 54 don't 00100 affect live records 00110. 001201. Several fields were added to the on-line MLR to accomodate the 00130 collection module. It was therefore necessary to make a data entry 00140 transaction available to input these new fields. 00150 00160 a) F COL-DATENT displays data entry form 00170 b) Inquire on an account's borrower demographic data 00180 Inputs: OFFICE = ______ 00190 ACCOUNT = ______ 00200 DATA TYPE = 0 00210 c) Input new data for above account 00220 Inputs: UPDATE LINE = 7 00230 NEW VALUE = phone number without edit symbols 00240 NOTE: 1 to 4 fields may be input before TRANSMIT 00250ÐÐ 002602. Upon installation of the collection module, ADS will be down-line 00270 loading daily, the basic demographic and financial data of all 00280 currently delinquent accounts. Prior to this transmission, however, 00290 the accounts will be sorted by category(A), next contact date(A), 00300 days delinquent(D) and past due amount(D). The accounts will also 00310 be flagged with either '1ST' for first level delinquent accounts or 00320 '2ND' for second level and beyond delinquent accounts. This first of 00330 second level determination is governed by the values chosen by the 00340 user in the 1st and 2nd late notices of the Late Notice System. Each 00350 delinquent account will also be assigned a category (A-J) based on 00360 user definition. 00370 00380 a) F COL-CATGRY to display category definition form 00390 b) Set up sample category definitions for a branch 00400 Inputs: BRANCH OFFICE = ______ 00410 COLLECTION OFFICE = ______ 00420 ACCOUNT GROUPING = 1 00430 CATEGORY A = 1 to 10 00440 CATEGORY B =11 to 14 00450 NOTES: 1) If no category ranges input or accounts have days 00460 delinquent or office # values that do not fall into range 00470 specified, the accounts will be assigned to the default 00480 category, Z. 00490 2) If grouping chosen is by office #, the category range 00500ÐÐ should only be input for each collection office. 00510 3) Grouping by days delinquent should be used when it's 00520 the user's collection philosophy for collectors to work 00530 the same class of accounts, i.e. accounts which are 1 to 00540 30 days delinquent. Grouping by office # should be used 00550 when it's the user's collection philosophy for collector 00560 to work the same account #s for the life of those account 00570 00580. 005903. After the daily delinquency file has been down-line loaded into the 00600 BCS files, a collector works his/her accounts in an automatic link 00610 mode: 00620 00630 a) Display the highest priority account scheduled 00640 Inputs: DIS,,,D where D is 1st category delegated to this collector00650 006604. If the account displayed is a first level delinquent account, the 00670 collector may change the account borrower demographic data, set a new 00680 next contact date, print a letter via the DOC PRT key or request a 00690 letter to be printed at some time later: 00700 00710 a) Request a letter to be printed later 00720 Inputs: LETTER # DESIRED = 01 00730 ITEMS = fields such as late charges and miscellaneous 00740 comments which may be required for this letter 00750ÐÐ NEXT CONTACT DATE = any date 00760 NOTE: If the next contact date entered is outside the range of 00770 1 to 65 days from today, the system will automatically set 00780 the next contact date to 7 days from today's date 00790 b) Make a change to cosigner name 00800 Inputs: UPDATE FIELD # = 10 00810 NEW VALUE = any name 00820 NOTE: Again, 1 to 4 fields may be updated before TRANSMIT 00830 c) Link to next highest priority account scheduled via NXT REC key 00840 008505. If the account displayed is a second level (and beyond) delinquent 00860 account the collector may: request further information from the ADS 00870 MLR; change the account's borrower, business or cosigner demographic 00880 data or the 4 account flag bytes reserved for user definition; set a 00890 new next contact date; print a letter via the DOC PRT key; or enter 00900 the collection activity that took place including requesting a letter 00910 to be printed at some time later. 00920 00930 a) Inquire on the account's payment history 00940 Inputs: OTHER INFORMATION AVAILABLE = 1 00950 PART # = 1 00960 b) Inquire on the account's cosigner demographic data 00970 Inputs: OTHER INFORMATION AVAILABLE = 4 00980 c) Enter collection activity 00990 Inputs: NEXT PAGE to get to activity page 01000ÐÐ NEXT CONTACT DATE = any date, will default if out of range 01010 ACTION CODE = TH (telephoned home) 01020 RESULT CODE = PP (promised-to-pay) 01030 DUE = any date, system will default if out of range 01040 AMOUNT = any amount greater than 0 01050 SCHEDULE = ONCE WK 01060 COMMENT = WAS HESITANT, for example 01070 NOTE: Collection activity and letter information are stored 01080 locally, that is not on the ADS MLR. For that reason 01090 collection activity and letter information may not be 01100 transmitted to ADS without a next contact date or other 01110 (demographic) update; otherwise the local date will not 01120 be updated on the BCS. Data will NOT get updated on the 01130 local BCS transaction file without an accept from ADS. 01140. d) Change cosigner home phone and borrower spouse name 01150 Inputs: NEXT PAGE to get to update page 01160 LINE # = 5 01170 NEW VALUE = phone number without edit symbols 01180 LINE # = 8 01190 NEW VALUE = spouse name 01200 NOTE: 1 to 4 updates may be entered before TRANSMIT 01210 e) Display next highest priority account and request supervisor review 01220 Inputs: NXT REC 01230 NEXT PAGE to get to activity page 01240 NEXT CONTACT DATE = any date 01250ÐÐ ACTION CODE = SR 01260 NOTE: All activity fields must be tabbed thru even if no data 01270 required to log complete activity (i.e. thru comment) 01280 f) Display next highest priority account and request a hardcopy 01290 Inputs: NXT REC 01300 NEXT PAGE to get to activity page 01310 NEXT CONTACT DATE = any date 01320 ACTION CODE = TA (telephoned attorney) 01330 RESULT CODE = RH (requested hardcopy) 01340 COMMENT = copied atty 01350 013606. Many times a collector will receive a call from a borrower and will 01370 want to review his/her delinquent account information: 01380 01390 a) Leave automatic link mode 01400 Inputs: EXIT to get to data entry function page 01410 b) Retrieve account basic demographic and financial data for review 01420 via name supplied by call-in 01430 Inputs: DIS,,_________(account selection is by last name) 01440 c) Retrieve account basic demographic and financial data for review 01450 via office and account # supplied by call-in 01460 Inputs: DIS ______-______ (office-acct #) 01470 d) After reviewing and/or working current account, return to 01480 automatic link mode 01490 Inputs: DIS,,,x 01500ÐÐ NOTE: The system will display the next UNworked account in 01510 category x. 01520 015307. Worked accounts are flagged with a '-' in the access key 1 and key 3 01540 fields. Therefore, when all accounts scheduled have been worked 01550 and/or bypassed, the collector may review the transaction directory 01560 for a list of accounts only bypassed (because of a no answer, for 01570 example). 01580 01590 a) Review workload and work any unworked accounts 01600 Inputs: EXIT 01610 DIR only to review list 01620 or DIS,,,x to retrieve unworked accounts 1 at a time 01630. 016408. At the end of a collection work day, the letters and management report 01650 may be printed via the Batch Transaction Print facility: 01660 01670 a) Print all letter # 01's requested today 01680 Inputs: BATCH 01690 FORM NAME = COL-1STLVL 01700 PRINT FORMAT = COL-LTR-01 01710 ACCESS KEY 3 = -01 01720 b) Print Collector Activity report 01730 Inputs: BATCH 01740 FORM NAME = COL-2NDLVL 01750ÐÐ PRINT FORMAT = COL-ACTVTY 01760 ACCESS KEY 3 = - 01770 Set printer form length = 1 01780 c) Print Accounts for Supervisor List 01790 Inputs: BATCH 01800 FORM NAME = COL-2NDLVL 01810 PRINT FORMAT = COL-SUPREV 01820 ACCESS KEY 3 = -SR 01830 Printer form length = 1 01840 d) Print Requested Hardcopy list 01850 Inputs: BATCH 01860 FORM NAME = COL-2NDLVL 01870 PRINT FORMAT = COL-RH-2ND 01880 ACCESS KEY 3 = -RH 01890 Printer Form Length = 66 01900 e) Print Collector Changes Report 01910 Inputs: BATCH 01920 FORM NAME = COL-2NDLVL 01930 PRINT FORMAT = COL-CHANGE 01940 ACCESS KEY 3 = - 01950 Printer Form Length = 14 01960 019709. For supervisor tracking and backup purposes, an Assignment List Report 01980 is available to print a summary list of accounts currently scheduled 01990 Inputs: BATCH 02000ÐÐ FORM NAME = COL-2NDLVL 02010 PRINT FORMAT = COL-ASSIGN 02020 Print form length = 8 02030 0204010. There are three month-end delinquency reports that are generated at 02050 ADS and transmitted and loaded on the BCS in the same manner as the 02060 delinquency file. These are also printed via Batch Transaction Print 02070 02080 a) Print the Trend Analysis Report 02090 Inputs: BATCH 02100 FORM NAME and PRINT FORMAT = COL-TREND 02110 b) Print the Eligible for Charge-off Report 02120 Inputs: BATCH 02130 FORM NAME and PRINT FORMAT = COL-CHGOFF 02140 c) Print the Account Summary List 02150 Inputs: BATCH 02160 FORM NAME and PRINT FORMAT = COL-SUMMRY 02170 NOTE: The printer form length for all month-end reports = 66 02180_‚ ÐÐ ÐÐ _‚_‚ ÐÈ(Ku® Kÿþ}m A30QUESTBCS Pr072283072283(èÈÐ ALADDIN-30 QUESTION LOG 00010 000207/18/83: Enough disk space for activity, utility and assignment files? 00030 00040 What's file/record overhead? Would it be more efficient to have 00050 short (i.e. 250) activity block records or long (i.e.1000)? 00060 00070 Are variable length records supported? 00080 00090 Are File Manager and sort utilities available on-line and/or 00100 under ADTRAN? 00110 00120 Can we build composite display from more than 1 local file 00130 and/or from host transmitted file(s)? 00140 00150 Can we print reports from more than 1 local file? 00160 00170 ADTRAN and UNIX to run concurrently? 00180 00190 UNIX able to read ADTRAN files and vice versa? 00200 00210 What's system availability? 00220 00230 8/10/83 As a total system, who is addressing Daily Cycle procedures 00240 (especially close of day & file mtn requirements)? 00250ÐÐ * User Documentation? 00260 * Installation & training? 00270 00280 Have any standardization guidelines been developed? 00290 (ie, dictionary of common terminology) 00300 00310 What does a sample A-30 configuration look like? 00320 00330 Software-wise... What ADS applications will be available 00340 to co-exist/concurrent run on system? ( Tx processing, Word 00350 Processing, Report writer, Multiplan...) 00360 00370 Can you update a primary/secondary key in a record/file? 00380_‚ ÐÐ ÐÐ_‚_‚ ÐÈ(K|W KÿþdÈ MEMO90 BCS P†999999083183(èÈÐ TO: R. Lucchetti 9/01/83 FROM: R. J. Sorensen RE: Collection Implementation on BCS-90 We are in the final stages of evaluating design alternatives in developing a collection module for the Bunker Ramo BCS-90 System. To that end we have compiled a list of questions we need answered. We have also outlined our disk storage requirements and would like you to confirm our assumptions and computations. Lastly, we have included a sketch of our proposed collection module implementation and enumerated the special system require- ments that we believe are needed. Please evaluate the attached document by September 16, 1983 so that we may complete our study. If you are unable ÐÐ to respond by then, please let me know immediately as this affects our on-going development schedule. If you require clarification of the posed questions, please contact Kathy Williams at 404/441-2867 or 441-3295. Thank you for your cooporation. CC: W. E. Baker G. Noakes J. Touchette J. Zimmerman _‚ ÐÐ ÐÐ_‚_‚ ÐÈ(È;Í Èÿþ/|TMEMO90ATBCS P`090183090183(èÈÐCOLLECTION MODULE PROCESSING REQUIREMENTS The following are collection module processing requirements that may need some additional programming to satisfy: 1) Associate standard SBA characters with the Delinquency File trans- mitted (via RFA) from ADS. 2) Delete selective records from the Delinquency File based on flags set in Full Edits. 3) Read/add-new/overwrite activity-type transactions as in the standard BCS transaction file. 4) Provide a smooth way of reviewing both Delinquency File form and Activity File form information on the same delinquent account; or provide some way of toggling from 1 form to the other while remembering the account #. DISK SIZING Listed below are areas of the collection module that have a disk requirement: ÐÐ 1) Delinquency File transmitted from ADS -- 177 character records x200 average # of records (delinquent accounts) ---- 35,400 characters of data replaced daily + overhead ------- 2) Transactions generated on BCS90 -- 250 average transactions (200 update, 50 inquiry) x 20 characters per transaction ---- 5,000 characters purged at the end of the day + overhead ------ 3) Host Response to inquiry transactions -- 50 average inquiry transactions x620 characters returned per transaction ---- 31,000 characters purged at end of day + overhead ------- ÐÐ4) Form masks -- - Delinquency File form = 2-3 pages - Activity File form = 3 pages 5) 1 Collection Report transmitted from ADS per day -- - 45 pages of 57 lines, 55 chars. across for MAXIMUM length report - if transmitted at night, may utilize space returned from the Delinquency File purge and Transaction File compress - 45x57x55 = 141,075 max characters 6) Activity File built and maintained on BCS90 -- - to be maintained like the existing BCS transaction file - 1 activity transaction allowed per account - activity transactions built on 3 page form where unprotected fields are comprised of 30 characters of account # and name data and up to 60 activity strings - activity strings are comprised of 6 fields: action code 2 result code 2 letter name 10 contact date 6 collector ID 4 comment 0-40 ------------------- total chars 24-64 ÐÐ - if activity transactions are stored the same as they are for existing BCS transactions, there are: . 6 characters overhead in header rec for each unprotected field . 24-64 chars in data record for each activity string . 5 characters of delimiters in data record - if 200 delinquent account records are transmitted daily from ADS, collection efforts on those accounts would result in an average of 200 new activity strings per day (some accounts would not be contacted while some accounts may receive > 1 activity string). - disk utilized by 1 activity string is represented by: . 6 chars header x 6 fields = 36 . 5 chars delimiter + activity string = 29-69 ----- . total chars per activity string 65-105 Character Totals excluding Activities: -------------------------------------- Delinquency File 35,400 Transactions 5,000 Host Responses 31,000 Report Data 141,075 ÐÐ ------- 212,475 characters of non-accumulating data + overhead for above items + characters for screen mask for 2 forms ========= total characters If total above is 300,000; approximately 9,700,000 characters remain out of a 10MB disk. If 1 activity string utilizes 60-100 characters (depending on the length of the comment), then 92,380 to 149,230 activities would fit in the remaining 9.7MB of disk. If 200 activities are averaged per day, the disk could conceivably hold out for 462 to 746 days with no consideration given for purging old activities. _‚ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ( X² ÿþk‡FORM1D BCS P(èÈÐFUNCTION CODE/ACCOUNT #: xx 00010 00020 00030 SPECIAL COLLECTION FUNCTIONS 00040 00050 ACCOUNT #: xxxxxxxxxxxxxxxx 00060 00070 NEXT CONTACT DATE: xx/xx/xx 00080 00090 REASSIGN COLLECTOR: xxxx TO QUEUES: xxxx xxxx xxxx xxxx 00100 xxxx xxxx xxxx xxxx 00110_‚_‚ ÐÈ(}l }ÿþkD5MINITS10BCS P¢(èÈÐTO: D. Gassman, R. J. Sorensen 00010FM: K. Williams 9/10/83 00020 00030SJ: Minutes of 9/7-9/8/83 trip to St. Louis 00040----------------------------------------- 00050 000609/7: 1:00 Meeting with B. Hohn, J. Rosenauer, J. Kruse, RJS, KAW from ADS 00070 and Ray Lucchetti, Mike Lewcheski(?) from Bunker Ramo. 00080 00090 -Ray explained a potential BCS design he wrote up based on his 00100 understanding of our needs. The design included loading a 00110 portion of the delq accts daily into the transaction file, 00120 accessing each acct by acct # from transaction directory, 00130 entering activity and acct data to transmit to ADS and 00140 deleting transaction at end of day. 00150 00160 -After several gyrations, (main problem was again the amount 00170 of disk space needed to house activities on BR system) we 00180 tentatively agreed upon the following design: Daily NTX 00190 today's delq accts into the transaction file. Accts will be 00200 presorted by ADS in 1 of 2 orders as defined in users office 00210 record - 1) Next contact date, age and amount delq or 2) Next 00220 contact date, office #, age and amt delq. BR is to write code 00230 to load accts into the transaction file. CFS is to provide 00240 BR with acct key definitions and acct record layouts. 00250ÐÐ Each acct in trans file will have unique index # as well index 00260 # of next acct to be accessed. Collector will 1st access his 00270 accts by displaying transaction directory & choosing an acct 00280 by key which represents his acct category (i.e. office#, etc.). 00290 Acct breakdowns to be provided by CFS. Collector will get to 00300 his next acct by pressing NEXT REC key on BR terminal; BR to 00310 write code to satisfy this requirement. No activity history 00320 will be saved on 5 day accts. Trans for 5 day accts will not 00330 be deleted until end of day so as to allow collectors to enter 00340 multiple trans if necessary. Also, accts bypassed during day 00350 will be accessed again from directory using key with value 00360 indicating the acct has not been worked. 2nd level accts 00370 are displayed on a 3 page form (as opposed to 1 page for 5 day 00380 accts) where page 1 contains data automatically passed from 00390 ADS, page 2 contains only activity data (2 columns of 20 activity00400 strings) and page 3 contains data requested from ADS in an 00410 inquiry transaction. Inquiry transactions to be divided into 00420 several requests to cut down on response buffer size. CFS 00430 to define which fields ADS is to pass (with headers) for which 00440 inquiry request. When acct reaches 40 activity string maximum, 00450 oldest 20 will be printed & blank filled. 00460 00470 -3 types of backup were discussed: 1) hardcopy, 2) get BR quote 00480 for 10/20MB drive backup, 3) get BR quote for spanning a file 00490 over multiple floppies. 00500ÐÐ 00510 -NTX transmissions for collection module will have flag to denote 00520 whether delq file transmission or report. 00530 00540 005509/8: Meeting with Chuck Knopfel RE: A-30 design: 00560 00570 -ADS was seriously afraid users might subscribe to collection 00580 module with BR system (code would differ significantly to 00590 hardcopy terminal). KAW and RJS verified this is not the case, 00600 but further verification requested with Hohn & Rosenauer. 00610 00620 -Desired update transaction format discussed: ADS uses 4 char. 00630 keywords to denote which field(s) being updated on current 00640 trans. ADS to provide us with keywords, CFS to provide our 00650 needs in the host response. 00660 00670 -Received copy of most current D-SECT which shows no provision 00680 for counters for # times 120, 150 and 180+ days delq. 00690 00700 -Year of birth validity checking to be done on A-30. 00710 00720QUESTIONS RESULTING FROM ST. LOUIS TRIP 00730--------------------------------------- 00740 00750ÐÐ1) Walt indicated they can have something ready by Dec. timeframe. 00760 It's my understanding that he is referring to the A-30 design only. 00770 If the time delay problem in displaying 3 buffers transmitted from 00780 ADS as realized on BCS is also a factor on the A-30, the design for 00790 A-30 changes for the inquiry trans. After switching gears to BCS 00800 design work, I have seen possibilities for changes in other areas 00810 of our current A-30 design as well. In other words, BR is expecting 00820 ADS to have something to test with by Dec. and ADS is now busy working 00830 on what may be an obsolete A-30 design; what do we need to do to 00840 manage this situation? 00850 008602) What happened to space allotted for 120, 150, 180+ delq counters? 00870 Do we need to ask for them? 00880 008903) Do we want ADS to calculate exact # days delq as opposed to # of 00900 payments behind? Is ADS aware of this? 00910 009204) 00930_‚ ÐÐ ÐÐ_‚_‚ ÐÈ(dd@ dÿþyÈ*SECT4.2.BCS P„051684051684(èÈÐ 4.2.2 Report Processing 00010 00020 The reports illustrated in Appendix E are also generated 00030 during Action batch processing. They are generated by 00040 the frequency indicated below and transmitted to the 00050 BCS 90 via unsolicited NTX transmissions. These NTX 00060 reports should contain data only as they will be formatted00070 for print on the BCS 90. The NTX format for each report 00080 must be: 00090 00100 BEGIN/form-name/office/run date/field 1/...field x/*END*/ 00110 00120 The data fields are transmitted in the order they appear 00130 in the report. As the reports are loaded onto the BCS 90 00140 in four (4) page form buffers, it's possible that 1 report00150 may exceed that buffer length. In this case, the report 00160 must be broken into 95 accounts per transmission, each 00170 with its own BEGIN and *END*. 00180 00190 00200TREND ANALYSIS REPORT Reference Appendix E-1 00210 00220Purpose To demostrate the movement of accounts 00230 between aging periods 00240 00250ÐÐForm name COL-TREND 00260 00270Print frequency Monthly 00280 00290Print order Office # 00300 00310Account Selection All accounts that were at some time 00320 delinquent during this month 00330 00340Fields from MLR MLOFFC 00350 00360Calculated fields $$ amount reflects total past due amount 00370 for all delinquent accounts in that aging00380 period; total # of accounts in that aging00390 period 00400 00410Subtotals required Office totals; company grand total 00420 00430Similar existing ADS report Summarized Delinquency, Aggregate Aging 00440. 00450ACCOUNT SUMMARY LIST Reference Appendix E-2 00460 00470Purpose To provide a summary of currently 00480 delinquent accounts 00490 00500ÐÐForm name COL-SUMMRY 00510 00520Print frequency Monthly 00530 00540Print order Name 00550 00560Account selection All currently delinquent accounts 00570 00580Fields from MLR MLOFFC, MLNAME, MLACCT 00590 00600Calculated fields Delinquent date and past due amount 00610 00620Subtotals required None 00630 00640Similar existing ADS reports Detail Delinquency 00650 00660 00670ELIGIBLE FOR WRITE-OFF Reference Appendix E-3 00680 00690Purpose To provide a potential charge-off list 00700 00710Form name COL-WRTOFF 00720 00730Print frequency Monthly 00740 00750ÐÐPrint order # of days delinquent 00760 00770Account selection All currently delinquent accounts which 00780 are greater than xxx days delinquent 00790 where xxx is the potential charge-off 00800 value from the Delinquency Option Table 00810 OR 119 if above is not available 00820 00830Fields from MLR MLOFFC, MLACCT, MLNAME, MLCBAL 00840 00850Calculated fields Delinquent date, past due amt, days delq 00860 00870Subtotals required Office totals; company grand total 00880 00890Similar existing ADS report Charge-off Report 00900_‚ ÐÐ_‚_‚t order # of days delinquent 00760 00770Account selection All currently delinquent accounts which 00780 are greater than xxx days delinquent 00790 where xxx is the potential charge-off 00800 value from the Delinquency Option Table 00810 OR 119 if above is not available 00820 00830Fields from MLR MLOFFC, MLACCT, MLNAME, MLCBAL 00840 00850Calculated fields Delinquent date, past due amt, days delq 00860 00870Subtotals required Office totals; company grand total 00880 00890Similar existing ADS report Charge-off Report 00900_‚ ÐÈ( K  ÿüušNBCS-SPECBCS Pz030784030784(èÈÐ 00010 00020 00030 00040 00050 EXTERNAL REFERENCE SPECIFICATION 00060 00070 00080 00090 Dxxxx.11E 00100 00110 00120 00130 BCS-90 COLLECTION MODULE 00140 00150 00160 00170 00180 00190 00200 00210 00220 00230 00240 00250ÐÐ 00260 00270 00280 00290 00300 00310WRITTEN BY K. WILLIAMS DATE 05/15/84 00320 D. GASSMAN 00330 00340APPROVED BY R. SORENSEN _______________ __________ 00350 00360 W. SMITH _______________ __________ 00370. 00380 00390 CONTENTS 00400 00410 1.0 SCOPE 00420 2.0 GENERAL DESCRIPTION 00430 3.0 USAGE ON BCS 90 00440 4.0 PROCESSING 00450 4.1 BCS 90 PROCESSING 00460 4.2 ACTION (HOST) SYSTEM PROCESSING 00470 5.0 RESTRICTIONS AND DEPENDENCIES 00480 6.0 APPENDIX 00490. 00500ÐÐ1.0 SCOPE 00510 00520 This design document will discuss the usage of and the processing 00530 required to implement a credit collection module on the Action 00540 (host) system. 00550 00560 The collection capability will be enabled via the Bunker Ramo 00570 BCS 90 interfacing with Action Data. Some stand-alone oper- 00580 ations will be possible on the BCS 90 such as local letter and 00590 report generation. 00600 00610. 006202.0 GENERAL DESCRIPTION 00630 00640 The implementation of a collection module dictates that some daily 00650 off-line processing be done on the host system to prepare a user 00660 for collection operations (see Figure 2-1). This includes identifying00670 and ordering all currently delinquent accounts to be transmitted 00680 to the BCS 90 and the generation of BOSS transactions to update 00690 collection fields resident in the on-line Master Loan Record. 00700 00710 Upon transmission of the currently delinquent accounts, processing 00720 required on the BCS 90 includes automatically linking accounts for 00730 each collector in the order specified in the host transmission. It 00740 is also the responsibility of the BCS 90 to format and accept 00750ÐÐ transactions to and from ADS as well as dynamically updating the 00760 delinquency data resident on the BCS 90. 00770 00780 The on-line exchange of data between the BCS 90 and the host system 00790 is maintained via three types of transactions: account inquiry, update00800 account data and office category definition. 00810 00820 Collection module reports are generated on the host system and 00830 transmitted to print on the BCS 90 as well as generated and 00840 printed locally on the BCS 90. 00850. Figure 2-1 00860. 00870\SECT3.0 BCS 00880. 008904.0 PROCESSING 00900 00910 4.1 BCS 90 Processing 00920 00930 4.1.1 Off-line Processing 00940 00950 Off-line processing on the BCS 90 primarily involves 00960 accepting the pre-sorted delinquency records from ADS 00970 and applying them to the BCS transaction file. If a 00980 delinquent account already exists in this transaction 00990 file, the record is updated, otherwise it is appended 01000ÐÐ and an entry is added to the transaction directory with 01010 the appropriate keys. 01020 01030 At some point after daily processing has been completed, 01040 ADS will send (unsolicited) the delinquent account file 01050 to be loaded onto the BCS 90. 01060 This file contains three types of accounts: first level 01070 delinquent, second level delinquent and accounts that 01080 were previously second level delinquent accounts, but 01090 have satisfied as a result of today's processing. First 01100 and second level delinquent accounts are identified by 01110 the form identifier COL-1STLVL or COL-2NDLVL while 01120 satisfied or current accounts have a category of '*'. 01130 01140 Each account passed will have the category and account 01150 number of the next account to be worked attached to it 01160 so as to provide an automatic linking of accounts when 01170 the NEXT REC key is pressed. 01180. 4.1.2 On-line Processing on BCS 90 01190 01200 The collection module is entered by displaying an account 01210 record from either the COL-1STLVL or COL-2NDLVL form. 01220 COL-1STLVL is a two page form while COL-2NDLVL is a four 01230 page form where the last page of both forms are reserved 01240 for transaction response data from Action (see Figures 01250ÐÐ 4.1-1 through 4.1-3). 01260 01270 Upon entry into the collection module, processing contin- 01280 ues as outlined in Figure 4.1-4. If the collector entered01290 the collection module through form COL-2NDLVL, account 01300 data may be reviewed from either the primary, activity or 01310 update page of the form. On the primary page, data may 01320 viewed, the next contact date may be updated or further 01330 information may be requested from ADS. Inquiries to 01340 Action result in the appropriate host response displayed 01350 on the last page of the form. Local prints may be made 01360 from any page at any time. On the activity page, collec- 01370 tion type activity (i.e. action and result codes) may be 01380 entered along with promise-to-pay information. When any 01390 activity is entered, the account is flagged as worked and 01400 the collector must enter either the desired or system 01410 default next contact date. The worked flag is later used 01420 to print activity reports. Field updates (entered on the 01430 third page of the form) are restricted to demographic 01440 information. After successful transmission to ADS, the 01450 updates are applied to the ADS MLR and to the BCS files. 01460 01470 If the collection module is entered through the COL-1STLVL01480 form, only field updates (including next contact date) 01490 and local prints are allowed. Updates generate an ADS 01500ÐÐ bound transaction as in the COL-2NDLVL form. All first 01510 level delinquent accounts are deleted at the end of the 01520 day. Second levels are retained and then updated with 01530 subsequent delinquency transmission. 01540 01550 After reviewing an account, the NEXT REC key may be 01560 pressed to automatically display the next highest priority01570 account. If the automatic flow is interrupted by exiting 01580 to the transaction directory, it may be restarted by 01590 choosing the next unflagged account in the directory. 01600 If one pass has been made through today's scheduled 01610 accounts or an account has been worked out of the order 01620 transmitted from Action, the NEXT REC feature may not 01630 be available. If this is the case, accounts may still 01640 be reviewed by manual selection through the transaction 01650 directory. 01660 01670 On-line collection module activities are terminated by 01680 pressing the EXIT key. 01690. Figure 4.1-1 01700 01710\PRIMARY BCS 01720. Figure 4.1-2 01730\ACTIVITYBCS 01740. Figure 4.1-3 01750ÐÐ\CHANGE BCS 01760. Figure 4.1-4 01770 01780 ON-LINE PROCESSING ON BCS 90 01790 01800. 4.1.3 Report and Maintenance Processing 01810 01820 There are five types of reports generated on the BCS 90 01830 for collection purposes (see Appendix F). The Collector 01840 Changes, Collector Activity and Assignment List reports 01850 are printed during Batch Transaction Print procedures. By 01860 proper use of keys, one or all accounts may be printed 01870 for transactions loaded that day. The letters and requests01880 for hardcopy (input on activity page of COL-2NDLVL form) 01890 may either be printed by pressing DOCPRT or via the Batch 01900 Transaction Print procedures as above. 01910 01920 Delinquency category definitions or the manner in which 01930 accounts are worked may be maintained by each office. 01940 Accounts may be categorized in one of two ways: by 01950 office or by severity of delinquency (number of days 01960 delinquent). Within each of the above grouping types, 01970 the user also specifies the range breakdowns for each 01980 category within the chosen group type (see Figure 4.1-5). 01990 Within each category the accounts will also be sorted by 02000ÐÐ the Action system by next contact date, # days delinquent 02010 and past due amount. The collections office associated 02020 with each individual office must also be defined. 02030 02040 As the inputs for category definitions build an ADS 02050 transaction, changes in these definitions will not affect 02060 the ordering and grouping of accounts until the next 02070 working day. Collectors are assigned to categories of 02080 accounts via operator IDs. The first character of the 02090 ID is any unique character. Each of the remaining three 02100 characters represents the categories of accounts the 02110 collector is to work. It is the supervisor's responsi- 02120 bility to maintain the collector IDs in the manner 02130 described above. 02140 02150 Report, file and system maintenance of the BCS 90 is also 02160 the responsibility of each office. It is advisable to 02170 print the Assignment List Report daily via the Batch 02180 Transaction Print facility for backup purposes. 02190 Other maintenance procedures should be established as well02200 and executed as in the following example: 02210 02220 1. Re-assign collector IDs, if necessary, 02230 to reflect categories associated with 02240 collectors. 02250ÐÐ 02260 2. On-line activities 02270 02280 3. Batch Transaction Print Reports 02290 02300 4. Initiate print of reports from the host 02310 02320 5. Compress transaction file 02330 02340 6. Back-up system and application files 02350. Figure 4.1-5 02360\CATGRY BCS 02370. 4.1.4 Special BCS 90 Coding 02380 02390 Some special coding on the BCS 90 was necessary to 02400 accomodate required features of the collection module. 02410 This coding includes: 02420 02430 a. Accept unsolicited NTX from ADS and marry data to form 02440 specified in NTX. 02450 02460 b. If form identified in NTX transmission is COL-2NDLVL 02470 perform delete before add if key 1 (characters 1-15) 02480 of record already exists in transaction file. This 02490 is necessary to preserve order of transmission. Also, 02500ÐÐ flag COL-2NDLVL records as Deferred type transactions 02510 and all others as Host. 02520 02530 c. Log any errors during NTX transmission to printer. 02540 02550 d. While on-line and processing record from COL-1STLVL or 02560 COL-2NDLVL forms, link and display record with key 1 02570 matching next record field of current record when 02580 NXT REC key is pressed. 02590 02600 e. On accept from ADS (no error code), update COL-1STLVL 02610 or COL-2NDLVL records with character 16 of key 1 set 02620 to "-" to break automatic link. 02630 02640 f. Prohibit compress of COL-2NDLVL records from the 02650 transaction file, TXFILE3. 02660 02670 02680. 4.2 Action (Host) System Processing 02690 02700 4.2.1 Batch Processing 02710 02720 Action's daily batch processing for collection module 02730 users is done off-line after the sequential Master Loan 02740 Record has been generated. Described below is the pro- 02750ÐÐ cessing necessary for each collection office. 02760 02770 As shown by Figure 4.2-1, an account is read from the 02780 sequential Master Loan Record. The current delinquency 02790 flag is checked (1 or 2=delinquent, N=not delinquent) and 02800 whether the account is now delinquent is determined. 02810 The delinquency flag is set to '1' if the account is a 02820 first level delinquent or '2' if the account is a second 02830 level or beyond delinquent account. The Delinquency 02840 Option Table delinquency calculation should be used for 02850 the delinquency for this and all reports.on (i.e. by the 02860 02870 BOSS transactions to update the on-line MLR are generated 02880 when any of the following fields have changed: 12 month 02890 delinquency status, the delinquency flag, and the number 02900 of times the account is 30, 60, 90, 120 and 150+ days 02910 delinquent. A BOSS transaction should also be generated 02920 to blank out the next contact date field when an account 02930 is no longer delinquent. 02940 02950 The actual # of days delinquent and past due amount are 02960 calculated next to save with the delinquency file record, 02970 and do NOT affect the on-line MLR. 02980 02990 The user's category and range definitions are read from 03000ÐÐ the OSC record to determine what category letter should 03010 be assigned to the account. The delinquency level is 03020 is also decided and the appropriate form identifier is 03030 associated with the account. Accounts that were prev- 03040 iously second level (and beyond) delinquent, but are no 03050 longer delinquent as of today are assigned a '*' category.03060 Up-to-date accounts that were previously first level 03070 delinquent as well as first level accounts that have a 03080 non-blank next contact date are not passed to the BCS. 03090 03100 Data fields defined in Appendix A-1 are written to the 03110 delinquency file record for the appropriate collection 03120 office for later sorting. 03130 03140 Once all of a user's delinquent accounts are processed, 03150 they are sorted by category(A), next contact date(A), 03160 # days delinquent(D) and past due amount(D) where 03170 (A) is ascending and (D) is descending. The sorted file 03180 is then read to associate with each account, the category 03190 and account number of the next account in the sorted file 03200 (see Appendix A-1). This is necessary to provide the 03210 collection module with an automatic linking of accounts. 03220 03230 Finally, the delinquency file is transmitted to the 03240 collection office for this office and the BOSS transac- 03250ÐÐ tions are applied to the on-line MLR. 03260. Figure 4.2-1 03270 03280 ADS Batch Processing 03290. 03300\SECT4.2.BCS 03310. 03320 4.2.3 ADS On-Line Transaction Processing 03330 03340 There are three types of transactions required to maintain03350 the on-line exchange of data between the BCS 90 and 03360 the host sytem: 03370 03380 Account Inquiry 03390 Update Account Data 03400 Update Office Category Definitions 03410 03420 Data strings from the BCS 90 are requests for the 03430 above transactions while the data strings from the host 03440 are in response to these transaction strings and are 03450 called host response messages (see Appendix C and D). 03460 03470 The transaction illustrated in Figure 4.2-2 is a request 03480 for delinquent account information. Upon recognition of 03490 this transaction, the Action system reads the account # 03500ÐÐ and inquiry type from the transaction string. If it is a 03510 valid delinquent account, the host response message is 03520 formatted with the appropriate data from the on-line 03530 Master Loan Record for that inquiry. If a payment inquiry03540 the 2 character ADS payment codes are translated to 03550 character constants. An error condition is denoted in 03560 the standard manner for ADS transactions. 03570 03580 The transaction illustrated in Figure 4.2-3 is a request 03590 to update fields in the on-line Master Loan Record. The 03600 data field to update is identified by the four character 03610 keyword name in the transaction string. Multiple field 03620 update requests on an account are passed in one transac- 03630 tion string as long as they will fit in the maximum string03640 length of 150. That is, if the length of the fields to be03650 updated, plus fillers, plus 4 characters for each field 03660 for the keyword, plus 3 characters for the transaction 03670 code totals less than 150, the update requests will be 03680 transmitted in the same transaction string. Otherwise, 03690 the update requests will be divided into two separately 03700 transmitted transaction strings. 03710 03720 Lastly is a transaction to request an update to the 03730 category definitions in the user's OSC record. Fields 03740 which must be added to this table are outlined in 03750ÐÐ Appendix A-6. Validity checking is required only on the 03760 office # fields preceding the actual category definitions.03770 03780 Transaction processing is completed by transmitting the 03790 appropriate host response message to the BCS 90. 03800. Figure 4.2-2 03810 03820 ADS ON-LINE TRANSACTION PROCESSING 03830 Account Inquiry Transaction 03840. Figure 4.2-3 03850 03860 ADS ON-LINE TRANSACTION PROCESSING 03870 Update Account Data Transaction 03880. Figure 4.2-4 03890 03900 ADS ON-LINE TRANSACTION PROCESSING 03910 Update Office Category Definitions 03920. 03930\SECT5.0 BCS 03940. 039506.0 APPENDIX 03960 03970 03980 CONTENTS PAGE 03990 04000ÐÐ ADS Delinquency File A-1 04010 ADS Category Definitions A-2 04020 ADS Collection Fields from MLR A-3 04030 BCS 90 Transaction File B-1 04040 Transaction Strings C-1 04050 Host Response Messages D-1 04060 Reports Generated on ADS E-1 04070 Reports Generated on BCS 90 F-1 04080. 04090 04100 04110 04120 04130 04140 04150 04160 04170 APPENDIX A 04180 04190 ADS Files 04200. 04210 ADS DELINQUENCY FILE TRANSMITTED TO BCS 90 04220 04230Each line may contain several fields of the account record, but each field 04240must be followed by an '/' for the BCS 90 to accept as follows: 04250ÐÐ 04260# CHARS CONTENTS REMARKS 04270------- ----------------------- -------------------------------------- 04280 5 'BEGIN/' Identifies beginning of account record 04290 10 Form identifier/ 'COL-1STLVL' or 'COL-2NDLVL' 04300 16 Office,acct,category/ = key 1 (i.e. '000001-100198 A') 04310 26 Name/ = key 2 (last name first format) 04320 16 Category,lvl ident/ = key 3 (i.e. 'A 1ST') 04330 04340 16 Next Offc,acct,catgry/ non-displayed, used for account linking 04350 6 Office/ 1st displayed field 04360 14 Account #/ 04370 25 Name/ first name first format 04380 11 Amount delinquent/ must be pre-edited: 9999999.99S 04390 25 Address Line 1/ 04400 11 Past due amount/ must be pre-edited: 9999999.99S 04410 25 Address line 2/ 04420 11 Regular payment/ must be pre-edited: 9999999.99S 04430 20 City,state/ 04440 9 Zip/ 04450 12 12 Month Delinquency Status/ 04460 12 Home phone/ must be pre-edited: 999/999-9999 04470 12 Business phone/ must be pre-edited: 999/999-9999 04480 3 # days delinquent/ actual # of days 04490 12 Cosigner home phone/ must be pre-edited: 999/999-9999 04500ÐÐ 12 Cosigner business phone/ must be pre-edited: 999/999-9999 04510 8 Next contact date/ must be pre-edited: 99/99/99 04520 25 Cosigner name/ 04530 5 '*END*/' Identifies end of record 04540----- 04550 NOTE: The last record of the delinquency file should be: 04560 BEGIN/COL-END/*END*/ 04570. CATEGORY DEFINITIONS IN COMPANY/OFFICE TABLE 04580 04590# CHARS DESCRIPTION 04600------- --------------------------------------------------------------- 04610 6 Collection office for this office 04620 1 Grouping type: 1 = by account age (# of days delinquent) 04630 2 = by office # within company 04640 6 Collection office # for this office 04650 6 Begin value for category A 04660 6 End value for category A 04670 6 Begin value for category B 04680 6 End value for category B 04690 6 Begin value for category C 04700 6 End value for category C 04710 . . 04720 . . 04730 . . 04740 6 Begin value for category J 04750ÐÐ 6 End value for category J 04760. ADS COLLECTION FIELDS FROM MLR (newly added) 04770 04780KEYWRD # CHAR TAG DESCRIPTION 04790------ ------ -------- ------------------------------------------------ 04800ADL2 25 C-MLADL2 Borrower Address Line 2 04810BPHO 10 C-MLBPHO Borrower Home Phone 04820BNAM 25 C-MLBBNA Borrower Business Name 04830BBAD 25 C-MLBBAD Borrower Business Address 04840BBCT 20 C-MLBBCT Borrower Business City/State 04850BZIP 9 C-MLBBZP Borrower Business Zip 04860BBPH 10 C-MLBBPH Borrower Business Phone 04870BBEX 4 C-MLBBEX Borrower Business Extension 04880CNAM 25 C-MLCNAM Cosigner Name 04890CADD 25 C-MLCADD Cosigner Address 04900CCTY 20 C-MLCCTY Cosigner City/State 04910CZIP 9 C-MLCZIP Cosigner Zip 04920CHPH 10 C-MLCHPH Cosigner Home Phone 04930CBPH 10 C-MLCBPH Cosigner Business Phone 04940CBEX 4 C-MLCBEX Cosigner Business Extension 04950HC30 3 C-MLHC30 Number of Times 30 Days Delinquent 04960HC60 3 C-MLHC60 Number of Times 60 Days Delinquent 04970HC90 3 C-MLHC90 Number of Times 90 Days Delinquent 04980HCU1 3 C-MLHCU1 Number of Times 120 Days Delinquent 04990HCU2 3 C-MLHCU2 Number of Times 150+ Days Delinquent 05000ÐÐDFLG 1 C-MLDFLG Delinquency Flag 05010MDLQ 12 C-MLMDLQ 12 Month Delinquency Status 05020COL1 1 C-MLCOL1 Collection Module Flag Byte 1 05030COL2 1 C-MLCOL2 Collection Module Flag Byte 2 05040COL3 1 C-MLCOL3 Collection Module Flag Byte 3 05050COL4 1 C-MLCOL4 Collection Module Flag Byte 4 05060CDTE 6 C-MLCDTE Collection Module Date Flag 05070. 05080\MLDESC BCS 05090. 05100 05110 05120 05130 05140 05150 05160 APPENDIX B 05170 05180 05190 BCS 90 Files 05200 05210 05220There are no BCS 90 files unique to the collection module. Delinquency 05230records are maintained and viewed from the standard BCS resident 05240transaction file. They are displayed via either the COL-1STLVL or the 05250ÐÐCOL-2NDLVL forms. The access keys for these forms are as follows: 05260 05270 05280 CHARS DEFINITION 05290 ----- ----------------------------------------- 05300Key 1 = 1 - 6 Office (supplied by ADS NTX) 05310 7 - 7 "-" (supplied by ADS NTX) 05320 8 -13 Account # (supplied by ADS NTX) 05330 14 -15 Blanks (supplied by ADS NTX) 05340 16 -16 Category (supplied by ADS NTX) 05350 05360Key 2 = 1 -26 Borrower Name (supplied by ADS NTX) 05370 05380Key 3 = 1 - 1 Category (supplied by ADS NTX) 05390 1 - 1 '-' after account is worked 05400 2 - 3 Letter code, 'RH' or 'SR' or blanks as input on-line 05410 4 - 7 Collector ID of person who input above 05420 8 -13 Blanks 05430 14 -16 '1ST' or '2ND' (supplied by ADS NTX) 05440. 05450 05460 05470 05480 05490 05500ÐÐ 05510 05520 05530 APPENDIX C 05540 05550 Transaction Strings 05560. 05570\TRANS BCS 05580. 05590 05600 05610 05620 05630 05640 05650 05660 05670 05680 APPENDIX D 05690 05700 Host Response Messages 05710. 05720\REPLY BCS 05730. 05740 05750ÐÐ 05760 05770 05780 05790 05800 05810 05820 05830 05840 APPENDIX E 05850 05860 ADS Reports 05870. 05880 05890 05900 05910 05920 05930 05940 05950 05960 05970 05980 APPENDIX F 05990 06000ÐÐ BCS 90 Reports 06010_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(( Þ (MEMO0717BCS P@071784071784(èÈÐM E M O 7-17-84 00010------- 00020 00030TO: RJ SORENSEN 00040FM: KA WILLIAMS 00050SJ: AMENDMENT TO MEMO0716 00060 00070Since the 7-16-84 memo highlighting the Goldome collection module install 00080was written, more thought was given to the potential solutions for the NTX 00090transmission timing problem. The possible solutions listed in that memo 00100were: 00110 a. start NTXing earlier 00120 b. don't pass 1st levels; send collection letters from ADS as now 00130 c. don't pass all 2nd levels every day 00140 00150Under solution c, I mentioned what would happen if a collector finished 00160today's workload and continued with the next day's workload. Since that 00170memo was written, however, I realised that if only 2nd levels meeting 00180the described criteria are passed to the BCS, there would be no way of 00190working accounts in the automatic link by priority mode except for those 00200scheduled today. In fact, accounts not scheduled today would have to be 00210displayed and examined individually to determine what the next contact date00220is. 00230 00240Also since yesterday's memo, Debbie and I discussed the effect of choosing 00250ÐÐsolution b above: We would need to create a form for 1st level inquiries 00260and updates. The user would then use the 'x' day notice (where x is # of 00270days for that user's 1st level accounts) NTX report to determine if further00280collection letters/efforts are needed and fill in the appropriate informa- 00290tion on the newly created form. Another possibility is to create a new 00300NTX report that lists 1st levels much like the Account Summary List in 00310the order they would have been scheduled (and therefore passed to the BCS).00320 00330Please let me know if further or more detailed information is needed. 00340_‚ _‚_‚r solution c, I mentioned what would happen if a collector finished 00160today's workload and continued with the next day's workload. Since that 00170memo was written, however, I realised that if only 2nd levels meeting 00180the described criteria are passed to the BCS, there would be no way of 00190working accounts in the automatic link by priority mode except for those 00200scheduled today. In fact, accounts not scheduled today would have to be 00210displayed and examined individually to determine what the next contact date00220is. 00230 00240Also since yesterday's memo, Debbie and I discussed the effect of choosing 00250ÐÈ(ô Ê ôÿþoÑMINITS01BCS P6010484010484(èÈÐ01-04-84: Miscellaneous BCS questions KAW 00010-------- 00020-ADS having problem with '@' and '/' chars in NTX of dlqcy file 00030 and would like to replace @ with * and / with -. 00040 -->'/' replacement is fine, but Ray doesnt like DENDD*; he will get 00050 back to me with his preference. 00060 00070-what format should next contact be? --> YY/MM/DD 00080 00090-zero or blank-fill amounts? --> blank-fill is fine 00100 00110TO: Ray 00120-coll. module forms should be defined as HOST:???? --> IMMEDIATE 00130 00140-2000 bytes of Full Edit info per page or form? --> page 00150 00160-can you have variable string start location in Full Edits for fields? 00170 --> NO, only for element # in array constructs 00180 00190FM: Ray 00200-Need equivalent of TPS for coll. module transactions for testing. 00210 --> sent transaction layouts from BCS-SPEC on 01-05-84 00220 0023001-12-84: Review of Ray's collection module disk KAW 00240-------- 00250ÐÐ-Set up dummy transaction file accounts with link & keys in place as if 00260 it came from ADS 00270-Verified automatic acct linking working for worked and unworked accts 00280 via TRANSMIT and NEXT REC keys respectively 00290-Ray proposed a solution for second pass thru acct file to link only 00300 unworked accts: when accts are worked, he will blank out key1; 00310_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(dy¬ d*MEMO0719BCS PH071984071984(èÈÐM E M O 7-19-84 00010------- 00020 00030TO: RJ SORENSEN 00040FM: KA WILLIAMS 00050SJ: EVALUATION OF SOLUTIONS TO COLLECTION NTX TIMING PROBLEM 00060 00070SOLUTION A = E liminate page 3 of 2nd level form 00080 Benifits: 00090 -Cuts down # of pages displayed while loading each account in TXFILE3 00100 Drawbacks: 00110 -Would not significantly reduce total transmission elapsed time 00120 Mods Required: 00130 -Full Edits and format of 2nd level form 00140 00150SOLUTION B = Start NTX transmissions earlier 00160 Benifits: 00170 -Transmission would finish earlier 00180 Drawbacks: 00190 -Would need to start NTX at least 2 hours earlier unless combined 00200 with another solution 00210 Mods Required: 00220 -ADS operations schedule 00230. 00240SOLUTION C = Don't pass any 1st level accounts 00250ÐÐ Benifits: 00260 -Depending upon 1st to 2nd level account ratio, may cut down # of 00270 accounts transmitted by half 00280 -Would allow more 2nd level accounts to fit on BCS disk (in TXFILE3) 00290 [~1000 accts vs +/- 750 accounts depending on ratio] 00300 -Most 1st level account don't require further activity beyond late 00310 notice sent currently from ADS; this would therefore eliminate the 00320 collector having to bypass these accounts continually (or set new 00330 next contact date) until they reach 2nd level. 00340 Drawbacks: 00350 -Collectors would need to send inquiry transaction to ADS to get 00360 address and other data if further letters or activity required 00370 Mods Required: 00380 -Modify existing data entry form, COL-DATENT, to include 1st level 00390 activity (inquiries and letter requests); eliminate 1st level form 00400 -Generate from ADS, a daily list of 1st level accounts which includes 00410 office/account #, short name (15 chars), past due amount, 1st payment 00420 due date and category in priority order. Print 1 list for each 00430 office. Can change format of existing 1st level collection NTX to 00440 above format with NTX as form name. 00450 -BCS collector procedures (1st level only) 00460. 00470SOLUTION D = Pass 1st levels and only 2nd levels meeting criteria below 00480 Benifits: 00490 -Would reduce # of accounts transmitted in a day (% reduction unknown) 00500ÐÐ Drawbacks: 00510 -For accounts NOT scheduled today (call-ins and/or working ahead), the 00520 up-to-date past due amount and # days delinquent will either have to 00530 be calculated manually by the collector or referenced in the list 00540 generated daily as described below 00550 -Accounts scheduled after today cannot be automatically linked in 00560 priority order; the list described below would have to be referenced 00570 to get next accounts in priority order and dislayed 1 at-a-time for 00580 review 00590 -If today's accounts are not all worked, they will still appear 1st 00600 in the automatic link structure the next day. However, when 00610 yesterday's unworked accounts are worked, the automatic link will 00620 end instead of linking to the 1st today account. The collector will 00630 have to display the directory to find the 1st today account, then 00640 display it to restart today's automatic link structure. 00650 Mods Required: 00660 -Add code to collection NTX programs to pass 2nd level accounts 00670 meeting following criteria-- 00680 . new 2nd level account (next contact date is blank) 00690 . next contact date is today 00700 . category has changed since yesterday 00710 . account's due day is today 00720 . payment made 00730 -Add category field to MLR for determining when it changes 00740 -Pass next contact date (YYMMDD) in key 3 for each account (preserves 00750ÐÐ priority order for today) except for satisfied accounts which get 00760 today's date as coded now 00770 -Generate from ADS, a daily list of all 2nd level accounts by priority 00780 order (contains same data as 1st level report in Solution C) 00790 -Add BCS Full Edits to overlay date in key 3 with today's date when 00800 account worked to ensure only today's worked accounts are printed in 00810 the local management reports 00820 -BCS collector procedures 00830 -BCS operator procedures 00840_‚ ÐÐ_‚_‚ priority order for today) except for satisfied accounts which get 00760 today's date as coded now 00770 -Generate from ADS, a daily list of all 2nd level accounts by priority 00780 order (contains same data as 1st level report in Solution C) 00790 -Add BCS Full Edits to overlay date in key 3 with today's date when 00800 account worked to ensure only today's worked accounts are printed in 00810 the local management reports 00820 -BCS collector procedures 00830 -BCS operator procedures 00840_‚ ÐÈ(ÈÔ ÈÿþuÝTMINITS04BCS Pf041384041384(èÈÐ BCS 90 PROJECT NOTES FOR THE MONTH OF APRIL, 1984 00010 ------------------------------------------------- 00020 000304-05: Miscellaneous KAW 00040---- 00050-Doris found more bugs w/ latest 8 terminal system, therefore didn't send 00060 new diskettes w/ COL-DATENT to Gold Dome. 00070 000804-09: Trip to St. Louis KAW 00090---- 00100-4 terminal collection diskettes received from BR. Loaded program disks 00110 onto rigid, but couldn't test since Dlqcy test tape scratched the day 00120 before. 00130 001404-10: Trip to St. Louis KAW 00150---- 00160-Erv out sick; no one else knows how to regenerate test tape. 00170-Talked to Dan Clark & Les Getz -- they will now check for valid office 00180 #'s in branch & collection office fields in category transaction. 00190-Asked Doris P to look into how much effort/$ to get new Utility disk 00200 configured so that more than 2 people can work at 1 time (in Utility). 00210-Corrected minor COL-DATENT label problem; began inputting print formats. 00220 002304-11: Trip to St. Louis KAW 00240---- 00250ÐÐ-New Dlqcy test tape made; testing of latest 4 terminal collection system 00260 revealed NO further work had been done on real collection features, only 00270 on accepting/loading preformatted NTX reports into blank NTX form. 00280-Gold Dome wanted to cancel subscription to all of Late Notice System -- 00290 verified w/ Erv that they could cancel all but 1st & 2nd Late Notices. 00300-Doris P explained there is a (timing) problem in accepting NTX reports 00310 longer than 4 pages per transmission. I asked Erv to limit Collection 00320 NTX reports (WRTOFF and SUMMRY) to 95 accounts (equivalent of 4 form 00330 pages) for now until Dave Clark's group is finished re-writing NTX. 00340 Eventually NTX will break all reports into transmissions that are the 00350 length of a print page. 00360 003704-17: Miscellaneous KAW 00380---- 00390-8 terminal system appears to be bug-free & will go out to Gold Dome 00400 today with COL-DATENT form. 00410-Rosenauer questioned statement in MEMO0416 that coll. module users must 00420 not subscribe to Potential Delinquency option...verified with Erv that 00430 this is true. 00440 004504-19: Miscellaneous KAW 00460---- 00470-Testing of latest collection disk with Doris T: 00480 . 23 test accounts loaded correctly w/out any error messages 00490 . data was married to form fields correctly 00500ÐÐ . automatic acct linking didn't work 00510 . according to Doris P, reporting of transmission problems not working 00520 005304-23: Miscellaneous KAW 00540---- 00550-Pat Huber to do collection letters for Bank of Louisville. As there are 00560 many varied fields to be filled in the 22 collection letters, we had 00570 thought the best way to implement their letters was to have separate 00580 forms for each letter apart from the collection module forms. Since then 00590 it was decided to add 4 - 20 char fields to 1st pg of COL-1STLVL and 3rd 00600 pg of COL-2NDLVL forms to allow entry of variable fields into letters. 00610 006204-24/4-25: Miscellaneous KAW 00630--------- 00640-New collection diskettes arrived & installed -- enhancements: 00650 . 1st lvl data is saved . on 8 terminal system 00660 . transmission error reporting . data placed correctly on forms 00670-Demo of collection module was schedule for Thurs., but postponed due to 00680 problems in loading acct data. Problem found to be *end* at end of each 00690 record being passed as *end only. 00700-Discovered BR is triggering auto. next acct link on accept from host. 00710 Link should be triggered on NXT REC key only. Doris P looking into it. 00720-Discovered problem in updating based on key 2 (name + office) -- if name 00730 changes, acct gets added, not updated. Doris P looking into possibility 00740 of updating on key 1, chars 2-16 (will be acct + office -- necessary to 00750ÐÐ make unique & static combination since all other key fields may change & 00760 acct #s may be duplicated in separate offices). 00770-Planning trip to Trumbull nxt week to clamp down on problems such as 00780 above & make sure they are corrected properly; will continue form/format 00790 input & testing as well. 00800 008104-26: Miscellaneous KAW 00820---- 00830-Doris Pataki confirmed that triggering auto next acct link on NXT REC 00840 key is possible & being worked on now. 00850 00860-Bob Hohn/Doris T to input category transaction for Gold Dome. 00870_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(ú\ úÿþo©iMISCNOTEBCS P@100783100783(èÈÐ10/06/83 00010 Phone conversation with Ray Lucchetti 00020 ------------------------------------- 00030 1) Re section 1.2.7 of BRs BCS90 NTX/COLLECTION SYSTEM SPECIFICATION: 00040 How does formatted data after *END* get placed? -- BR to write PCU 00050 code to format data in form which must be defined with as many 00060 unprotected fields as there are data elements in NTX record. 00070 00080 2) On 5 day accts, can we delete worked record/trans later en masse? 00090 Not without special coding. 00100 00110 3) In A-30 implementation we will have inquiry tran with much the same 00120 amount of response data as on BCS; will we need to break inquiries 00130 into several trans (& therefore several responses) like we had to 00140 for BCS implementation? -- Yes, timing will still be a factor. 00150 00160 4) Why does ADS have to format inquiry trans responses with CRs and 00170 TABs & data positioned on right side of screen for collection 00180 module as well as in existing trans? Is it because of the network 00190 or because it's preferable to use/revise existing trans? -- 00200 Probably the latter. 00210 0022010/12/83 00230-------- 00240 Talked to Chuck Knopfel & ADS lead payment processing programmer RE: 00250ÐÐ Does MLR field exist which reflects date acct went delq? No, # of 00260 payments behind is calculated by fields such as 1st pay date, # pays 00270 made and # pays required. 00280 0029010/13/83 00300-------- 00310 Made additions to ADSADDS for RJS to discuss with Walt. 00320_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(2}­ 2ÿþ~ÈMEMO1104BCS P6110483110483(èÈÐTO: L. GETZ 11/04/83 FM: K. WILLIAMS SJ: BCS 90 AND A-30 PROJECTS Bob S. filled me in on your latest questions concerning BCS and A-30 transactions. If I left out anything in the answers below, please let me know. 1) What do the flag bytes look like? They are character data from the on-line MLR and are set/reset only via update transactions from the BCS or A-30. 2) The transaction length (177) for category definitions is too long. I've broken it up into 2 transactions as shown in the enclosed BCS spec. 3) What's length of age in category definitions transaction? While the actual maximum length of age is 3 characters, the age will be right justified/zero-filled in the 6 character field(s) used for either age or office #. 4) Inquiry transaction required for category definitions? Yes, you talked me into it. The response format has been included in the BCS spec. ÐÐ I also need something from you. Can you please send me a list of keywords for all collection module fields as well as pertinent fields from the MLR? I can be reached at 404/441-2867 or 3295 if there are any other questions. _‚ ÐÐ_‚_‚ also need something from you. Can you please send me a list of keywords for all collection module fields as well as pertinent fields from the MLR? I can be reached at 404/441-2867 or 3295 if there are any other questions. _‚ ÐÈ(ŠM) Šÿþt7A-30SPECBCS P030784030784(èÈÐ 00010 00020 00030 00040 00050 DRAFT 14 00060 00070 00080 00090 PRELIMINARY DESIGN SPECIFICATION 00100 00110 00120 00130 00140 00150 00160 00170 00180 00190 00200 00210 00220 00230 00240 00250ÐÐ 00260 00270WRITTEN BY K. WILLIAMS DATE 12/15/83 00280 D. GASSMAN 00290 00300APPROVED BY R. SORENSEN _______________ __________ 00310 00320 W. SMITH _______________ __________ 00330. 00340 00350 CONTENTS 00360 00370 1.0 SCOPE 00380 2.0 GENERAL DESCRIPTION 00390 3.0 USAGE ON ALADDIN-30 00400 4.0 PROCESSING 00410 4.1 ALADDIN-30 PROCESSING 00420 4.2 ACTION (HOST) SYSTEM PROCESSING 00430 5.0 RESTRICTIONS AND DEPENDENCIES 00440 6.0 APPENDIX 00450. 004601.0 SCOPE 00470 00480 This design document will discuss the usage of and the processing 00490 required to implement a credit collection module on the Action 00500ÐÐ (host) system. 00510 00520 The collection capability will be enabled via the Bunker Ramo 00530 Aladdin-30 interfacing with Action Data. Some stand-alone oper- 00540 ations will be possible on the Aladdin-30 such as local letter and 00550 report generation as well as assignment, utility and activity file 00560 maintenance. 00570. 005802.0 GENERAL DESCRIPTION 00590 00600 The implementation of a collection module dictates that some daily 00610 off-line processing be done on the host system to prepare a user 00620 for collection operations (see Figure 2-1). This includes the 00630 creation of a user's Delinquency Indicator File to be transmitted 00640 to the Aladdin-30 and the generation of BOSS transactions to 00650 update collection fields resident in the on-line Master Loan 00660 Record. 00670 00680 Upon transmission of the Delinquency Indicator File, processing 00690 required on the Aladdin-30 includes field calculations in the 00700 Activity/Collection Data File and the creation and sort of the 00710 Daily Assignment File. 00720 00730 The on-line exchange of data between the Aladdin-30 and the host 00740 system is maintained via two types of transactions: account inquiry 00750ÐÐ and update account data. 00760 00770 Collection module reports are generated on the host system and 00780 transmitted to print on the Aladdin-30 as well as generated and 00790 printed locally on the Aladdin-30. 00800 00810. Figure 2-1 00820\SECT3.0 00830. 008404.0 PROCESSING 00850 00860 4.1 Aladdin-30 Processing 00870 00880 4.1.1 Off-line Processing 00890 00900 Off-line processing on the Aladdin-30 primarily involves 00910 the preparation of the Daily Assignment File (Appendix 00920 B-2) which is used to determine which collectors work 00930 which acounts and in what order. The Daily Assignment 00940 File is actually a modified Delinquency Indicator File 00950 which is passed daily from the host to report which 00960 accounts are currently delinquent and which accounts were 00970 cured the day before (Appendix A-1). 00980 00990 Records are read from the Delinquency Indicator File and 01000ÐÐ processed as shown in Figure 4.1-1. If the delinquency 01010 indicator flag indicates the account is not delinquent, 01020 the delinquency indicator flag is updated in block '00' 01030 of the Collection Data File (Appendix B-3) for that 01040 account. The account is also deleted from the Delinquency01050 Indicator File so as not to be included in the accounts 01060 scheduled to be worked. 01070 01080 Next, the QUEKEY and PRIKEY records are read from the 01090 Utility File (Appendix B-1) to determine what options 01100 have been chosen for the queue, sort and priority assign- 01110 ment for that office. 01120 01130 If the delinquency indicator flag indicates the account 01140 IS delinquent and there is no block '00' Collection 01150 Data record for that account, it is considered a newly 01160 delinquent account and a '00' block record is added to 01170 the Collection Data File. If queue option A was chosen, 01180 the queue is set at '3-'. If priority option B was 01190 chosen, the priority is set at '70'. Otherwise, the 01200 account is assigned like any other delinquent account. 01210 01220 Next, the last payment date and amount from the Delin- 01230 quency Indicator File and the last promise-to-pay dates, 01240 flag and amount from the Collection Data File are used to 01250ÐÐ determine if the promise-to-pay flag and the kept and 01260 broken counts should be updated. 01270 01280 Finally, the queue and priority are assigned for the 01290 account based on the office options and data from the 01300 Collection Data File as described in Figure 4.1-1. 01310 The payment fields and delinquency flag in the Delinquency01320 Indicator record are then replaced with the new queue and 01330 priority and the next contact date to build that account's01340 Daily Assignment record. 01350. Figure 4.1-1 01360 01370 Off-line Processing on Aladdin-30 01380. 4.1.2 On-line Processing on Aladdin-30 01390 01400 The collection module is entered by choosing the 01410 COLLECTION form from the Data Entry Directory. This 01420 form is comprised of three pages or screen masks as shown 01430 in Figures 4.1-2 through 4.1-4. 01440 01450 Upon entry into the collection module, processing contin- 01460 ues as outlined in Figure 4.1-5. First, the user's A-30 01470 sign-on is matched against the collector id's in the 01480 Utility File. If no match is found, an error indication 01490 is reported. If the sign-on is validated, the matching 01500ÐÐ collector ID record from the Utility File is saved for 01510 further processing. 01520 01530 The first prompt on all collection module screens is to 01540 input either an account # or a function code. If function01550 code NA (which causes an account to be read from the Daily01560 Assignment File) or an account # is entered, the DC1 type 01570 0 transaction string (Append. C) is built to request the 01580 basic information on that account from ADS. When 01590 the data is returned from the host, this data as well as 01600 data from the A-30 Collection Data File is moved into the 01610 appropriate fields on the COLLECTION form screen masks. 01620 01630 The account #/function code prompt may then be bypassed 01640 to make any necessary field updates. Updates are re- 01650 stricted to fields indicated in Appendix D-1. Function 01660 codes DS (if authorized supervisor), DA and DI may 01670 be entered at this point to enter any other update or 01680 activity information. If DI (data inquiry) is input, the 01690 system prompts for the inquiry type desired. The type 01700 entered is used to build the appropriate transaction to 01710 ADS and the host response is formatted in the middle of 01720 the first page or screen mask of the COLLECTION form. 01730 Unique Full Edits are invoked as each screen mask is 01740 displayed and/or whn data fields are input. Data fields 01750ÐÐ resident on the Alladin-30 are dynamically updated. 01760 01770 If a new account # or NA function code is entered and 01780 updates are recognized on the currently displayed account 01790 a message indicating that TRANSMIT must be pressed to 01800 process the updates will be displayed. Upon TRANSMIT, 01810 transaction string DC2 is built to request that the 01820 updates be processed on the host system. 01830 01840 On-line collection module activities are terminated by 01850 pressing the EXIT key. 01860. Figure 4.1-2 01870 01880 PRIMARY COLLECTION SCREEN 01890 01900 01910 01920 01930\FORM1A 01940. Figure 4.1-3 01950 01960 ACTIVITY SCREEN 01970 01980 01990\FORM1C 02000ÐÐ. Figure 4.1-4 02010 02020 SPECIAL FUNCTIONS SCREEN 02030 02040 02050 02060 02070\FORM1D 02080. Figure 4.1-5 02090. 4.1.3 Report and Maintenance Processing 02100 02110 There are four types of reports generated on the Aladdin 02120 30 (see Appendix F) for collection purposes. The Detail 02130 List Report may be printed by pressing the DOCPRT key 02140 while an account is displayed on a screen mask. The 02150 letters, Collector Changes and Collection Activity Reports02160 are printed during Batch Transaction Print procedures. By02170 proper use of keys, one account may be printed or all 02180 accounts for transactions input that day. 02190 02200 Report, file and system maintenance of the Aladdin-30 is 02210 the responsibility of each office. Daily maintenance 02220 procedures should be established and executed as in the 02230 following example: 02240 02250ÐÐ 1. Initiate Daily Assignment File build after receiving 02260 the Delinquency Indicator File transmitted from the 02270 host system. 02280 02290 2. On-line activities 02300 02310 3. Initiate Batch Transaction and Host Reports 02320 02330 4. Purge transaction file 02340 02350 5. Move old Activity/Collection Data File accounts (as 02360 determined by UTIFIL parameters) to floppy disk and 02370 purge from on-line files. 02380 02390 6. Back-up system and application files. 02400 (i.e. transaction and assignment files) 02410 02420 02430. 4.2 Action (Host) System Processing 02440 02450 4.2.1 Batch Processing 02460 02470 Action's daily batch processing for collection module 02480 users is done off-line after the sequential Master Loan 02490 Record has been generated. 02500ÐÐ 02510 As shown by Figure 4.2-1, an account is read from the 02520 sequential Master Loan Record. The current delinquency 02530 flag is checked (1=1st level delinquent, 2=2nd level and 02540 beyond delinquent, and N = not delinquent) and 02550 whether the account is now delinquent is determined. 02560 The criteria used for determining delinquency is the 02570 same as the criteria used prior to a collection module 02580 implementation (i.e. by the office's Delinquency Option 02590 Table parameters). All delinquent accounts as well as 02600 that are no longer delinquent as of today are passed in 02610 the Delinquency Indicator File. 02620 02630 BOSS transactions are generated when of the following 02640 fields have changed: delinquency flag, 12 month delin- 02650 quency status and number of times 30,60,90,120 and 150+ 02660 days delinquent. 02670 02680 The number of days delinquent and past due amount must be 02690 calculated to pass in the delinquency file as they are not02700 stored in the on-line MLR. 02710 02720 Finally, the Delinquency Indicator File is transmitted 02730 and BOSS transactions are applied to the on-line MLR. 02740. Figure 4.2-1 02750ÐÐ 02760 ADS Batch Processing 02770 02780\SECT4.2. 02790. 02800 4.2.3 ADS On-Line Transaction Processing 02810 02820 There are two types of transactions required to maintain 02830 the on-line exchange of data between the Aladdin-30 and 02840 the host sytem: 02850 02860 'DC1' = Account Inquiry 02870 'DC2' = Update Account Data 02880 02890 Data strings from the Aladdin-30 are requests for the 02900 above transactions while the data strings from the host 02910 are in response to these transaction strings and are 02920 called host response messages (see Appendix C and D). 02930 02940 The transaction illustrated in Figure 4.2-2 is a request 02950 for delinquent account information. Upon recognition of 02960 this transaction, the Action system reads the account # 02970 and inquiry type from the transaction string. If it is a 02980 valid delinquent account, the host response message is 02990 formatted with the appropriate data from the on-line 03000ÐÐ Master Loan Record for that inquiry. In payment 03010 inquiries, the 2 character ADS payment codes are trans- 03020 lated into character constants. An error condition is 03030 denoted in the standard manner for ADS transactions. 03040 03050 The transaction illustrated in Figure 4.2-3 is a request 03060 to update fields in the on-line Master Loan Record. The 03070 data field to update is identified by the six character 03080 tag name in the transaction string. Multiple field 03090 update requests on an account are passed in one transac- 03100 tion string as long as they will fit in the maximum string03110 length of 150. That is, if the length of the fields to be03120 updated, plus fillers, plus 4 characters for each field 03130 for the keyword, plus 3 characters for the transaction 03140 code totals less than 150, the update requests will be 03150 transmitted in the same transaction string. Otherwise, 03160 the update requests will be divided into two separately 03170 transmitted transaction strings. 03180 03190 Transaction processing is completed by transmitting the 03200 appropriate host response message to the Aladdin-30. 03210. Figure 4.2-2 03220 03230 ADS ON-LINE TRANSACTION PROCESSING 03240 Account Inquiry Transaction 'DC1' 03250ÐÐ. Figure 4.2-3 03260 03270 ADS ON-LINE TRANSACTION PROCESSING 03280 Update Account Data Transaction 'DC2' 03290\SECT5.0 03300. 033106.0 APPENDIX 03320 03330 03340 CONTENTS PAGE 03350 03360 ADS Delinquency Indicator File A-1 03370 ADS Collection Fields from MLR A-5 03380 Aladdin-30 Daily Assignment File B-1 03390 Aladdin-30 Utility File B-2 03400 Aladdin-30 Activity/Collection Data File B-3 03410 Transaction Strings C-1 03420 Host Response Messages D-1 03430 Reports Generated on ADS E-1 03440 Reports Generated on Aladdin-30 F-1 03450. 03460 03470 03480 03490 03500ÐÐ 03510 03520 03530 03540 APPENDIX A 03550 03560 ADS Files 03570. 03580 ADS DELINQUENCY INDICATOR FILE 03590 03600OFFSET # CHAR TAG DESCRIPTION 03610------ ------ -------- ------------------------------------------------ 03620 1 8 C-MLOFFC Office number 03630 9 8 C-MLACCT Account number 03640 17 1 C-MLDFLG Delinquency Flag 03650 18 6 C-MLDAT1 Last Payment Date 03660 24 10 C-DIPAY1 Last Payment Amount 03670 34 3 C-DIDAYS Actual # of Days Delinquent 03680 37 10 C-DIPDUE Current Past Due Amount 03690\DIDESC 03700. ADS COLLECTION FIELDS FROM MLR (newly added) 03710 03720OFFSET # CHAR TAG DESCRIPTION 03730------ ------ -------- ------------------------------------------------ 03740 25 C-MLADL2 Borrower Address Line 2 03750ÐÐ 10 C-MLBPHO Borrower Home Phone 03760 25 C-MLBBNA Borrower Business Name 03770 25 C-MLBBAD Borrower Business Address 03780 20 C-MLBBCT Borrower Business City/State 03790 9 C-MLBBZP Borrower Business Zip 03800 10 C-MLBBPH Borrower Business Phone 03810 4 C-MLBBEX Borrower Business Extension 03820 25 C-MLCNAM Cosigner Name 03830 25 C-MLCADD Cosigner Address 03840 20 C-MLCCTY Cosigner City/State 03850 9 C-MLCZIP Cosigner Zip 03860 10 C-MLCHPH Cosigner Home Phone 03870 10 C-MLCBPH Cosigner Business Phone 03880 4 C-MLCBEX Cosigner Business Extension 03890 3 C-MLHC30 Number of Times 30 Days Delinquent 03900 3 C-MLHC60 Number of Times 60 Days Delinquent 03910 3 C-MLHC90 Number of Times 90 Days Delinquent 03920 3 C-MLHCU1 Number of Times 120 Days Delinquent 03930 3 C-MLHCU2 Number of Times 150+ Days Delinquent 03940 1 C-MLDFLG Delinquency Flag 03950 12 C-MLMDLQ 12 Month Delinquency Status 03960 1 C-MLCOL1 Collection Module Flag Byte 1 03970 1 C-MLCOL2 Collection Module Flag Byte 2 03980 1 C-MLCOL3 Collection Module Flag Byte 3 03990 1 C-MLCOL4 Collection Module Flag Byte 4 04000ÐÐ 6 C-MLCDAT Collection Module Date Flag 04010\MLDESC 04020. 04030 04040 04050 04060 04070 04080 04090 04100 04110 APPENDIX B 04120 04130 Aladdin-30 Files 04140. 04150 DAILY ASSIGNMENT FILE 04160 04170OFFSET # CHAR TAG DESCRIPTION 04180------ ------ ------ ------------------------------------------------ 04190 1 8 DAACCT Account Number 04200 9 2 DAQUE Queue 04210 11 6 DANXT Next Contact Date (YYMMDD) 04220 17 2 DAPRI Priority 04230 19 10 DASORT Additional Sort Field 04240 29 1 DAWORK Account Worked Flag 04250ÐÐ. 04260 UTILITY FILE 04270 04280The UTILITY FILE is a variable length ADTRAN Form-Oriented File. It is 04290read and updated by the key indicated below with '*'. 04300 04310# CHAR TAG DESCRIPTION 04320------ ------ ---------------------------------------------- 04330 4 OFFKEY* 'OFF1' -- Identifies Office Record 04340 8 OFFICE Office Number 04350 25 OFNAM1 Office Name 1 04360 25 OFNAM2 Office Name 2 04370 25 OFNAM3 Office Name 3 04380 --------------------------------------------------------------------- 04390 4 COID* Collector ID (1 record exists for each collector) 04400 25 CNAME Collector Name 04410 1 CFLAG Collector Flag: C=collector, S=supervisor 04420 2 CQUE1 Collector Queues 1-8: 04430 2 CQUE2 04440 2 CQUE3 04450 2 CQUE4 04460 2 CQUE5 04470 2 CQUE6 04480 2 CQUE7 04490 2 CQUE8 04500ÐÐ ----------------------------------------------------------------------- 04510 4 QUEKEY* 'QUE ' -- Identifies Queue Assignment Record 04520 2 QHOLD1 QHOLD 1 through QHOLD 5 are user defined queues 04530 2 QHOLD2 which are not re-assigned by assignment program 04540 2 QHOLD3 04550 2 QHOLD4 04560 2 QHOLD5 04570 1 QUEOPT Queue assignment option: (A or B) 04580 VALUE DESCRIPTION 04590 A: 3- less than 30 days delinquent 04600 3 30-59 days delinquent 04610 6 60-89 days delinquent 04620 9 90-119 days delinquent 04630 12 120-149 days delinquent 04640 15 150-179 days delinquent 04650 18 180+ days delinquent 04660 04670 B: 01-10 evenly distribute among queues 04680 01 through 10 04690 2 LASTQ Last queue assigned; used only if QUEOPT = B 04700 ----------------------------------------------------------------------- 04710. UTILITY FILE (continued) 04720 04730# CHAR TAG DESCRIPTION 04740------ -------- ------------------------------------------------ 04750ÐÐ 4 PRIKEY* 'PRI ' -- Identifies Priority Assignment Record 04760 2 PHOLD1 PHOLD1 through PHOLD5 are user defined priorities 04770 2 PHOLD2 which are not re-assigned by assignment program 04780 2 PHOLD3 04790 2 PHOLD4 04800 2 PHOLD5 04810 1 PRIOPT Priority assignment option: (A or B) 04820 VALUE DESCRIPTION 04830 A: 90 broken promise-to-pay 04840 50 all others 04850 04860 B: 90 broken promise-to-pay 04870 80 last pay date blank=1st pay default 04880 70 new account (no '00' activity rec) 04890 50 all others 04900 ----------------------------------------------------------------------- 04910 4 SRTKEY* 'SORT' -- Identifies Sort Record 04920 ?? SRTSTR Sort string 04930 ---------------------------------------------------------------------- 04940 4 PURGE 'PURG' -- Identifies Purge Parameter Record 04950 3 PACT # of days accounts remain inactive in the Activity/04960 Collection Data File before writing to floppy 04970 ----------------------------------------------------------------------- 04980. 04990 ACTIVITY/COLLECTION DATA FILE 05000ÐÐ 05010Collection Data Block: 05020 05030OFFSET # CHAR TAG DESCRIPTION 05040------ ------ ------ ---------------------------------------------- 05050 1 14 CDACCT Account Number 05060 15 2 CDBLCK '00' - Block Number 05070 17 25 CDNAME Account Name 05080 42 2 CDQUE Queue 05090 44 6 CDNXT Next Contact Date (YYMMDD) 05100 50 2 CDPRI Priority 05110 52 1 CDFLG Last Promise-to-Pay Flag 05120 53 6 CDDATE Last Promise-to-Pay Date 05130 59 9 CDAMT Last Promise-to-Pay Amount 05140 68 6 CDCDAT Last Promise-to-Pay Committment Date 05150 74 2 CDKEPT # of Kept Promise-to-Pays 05160 76 2 CDBROK # of Broken Promise-to-Pays 05170 78 30 CDPRM1 Permanent Comment 1 05180 108 30 CDPRM2 Permanent Comment 2 05190 138 1 CDDELQ Delinquency Indicator Flag (Y or N) 05200 139 3 CDDAYS # Days Delinquent 05210 142 10 CDPDUE Past Due Amount (999999999S) 05220 152 7 Unused 05230. 05240 ACTIVITY/COLLECTION DATA FILE 05250ÐÐ 05260Activity Blocks: 05270 05280OFFSET # CHAR TAG DESCRIPTION 05290------ ------ ------ ---------------------------------------------- 05300 1 8 ABACCT Account Number 05310 9 2 ABBLCK Block # (01-99) 05320 11 3 ABNEXT Offset of next available activity string 05330 14 487 Activity strings as shown below 05340 05350 05360Activity Block Strings: 05370 05380 # CHAR TAG DESCRIPTION 05390 ------ ------ ---------------------------------------------- 05400 6 ABDATE Contact Date/Date Activity Entered 05410 2 ABAC Action Code 05420 2 ABRS Result Code 05430 10 ABLETR Letter Name 05440 4 ABCOID Collector ID 05450 (max) 40 ABCOMM Comment 05460 1 hex 'AA' 05470 05480 NOTE: hex 'AA' is placed after the last character 05490 of the actual comment. For example, if no 05500ÐÐ comment was entered, hex 'AA' would be 05510 placed immediately following ABCOID. New 05520 activity strings are placed in back of the 05530 last activity string as indicated by ABNEXT 05540 which is then updated with the new offset 05550 for the next activity string. 05560. 05570 05580 05590 05600 05610 05620 05630 05640 05650 05660 APPENDIX C 05670 05680 Transaction Strings 05690. 05700\TRANS 05710. 05720 05730 05740 05750ÐÐ 05760 05770 05780 05790 05800 05810 APPENDIX D 05820 05830 Host Response Messages 05840. 05850\REPLY 05860. 05870 05880 05890 05900 05910 05920 05930 05940 05950 05960 05970 APPENDIX E 05980 05990 ADS Reports 06000ÐÐ. 06010 06020 06030 06040 06050 06060 06070 06080 06090 06100 06110 APPENDIX F 06120 06130 Aladdin-30 Reports 06140 06150 06160_‚ ÐÐ ÐÐ_‚_‚ ÐÈ(daû dÿþm*FORM1A BCS Pæ(èÈÐFUNCTION CODE/ACCOUNT #: xxxxxxxxxxxxxx DELINQUENCY FLAG x 00010 NEXT CONTACT xx/xx/xx 00020OFFICE xxxxxx ACCOUNT # xxxxxxxxxxxxxx QUEUE xx PRIORITY xx 00030 00040 LAST PROMISE-TO-PAY OTHER INFORMATION AVAILABLE: x 00050 MADE DUE AMOUNT FLAG 0 BASIC DATA 00060xx/xx/xx xx/xx/xx xxxxxxx.xx x 1 PAYMENT HISTORY 00070 2 DELINQUENCY HISTORY 00080# KEPT xx # BROKEN xx 3 BUSINESS INFORMATION 00090 4 COSIGNER INFORMATION 00100COMMENTS: xxxxxxxxxxxxxxxxxxxxxxxxx 5 INSURANCE INFORMATION 00110 xxxxxxxxxxxxxxxxxxxxxxxxx 6 MISCELLANEOUS INFORMATION 00120 7 CHARGE-OFF INFORMATION 00130***************************************************************************00140* *00150* *00160* [Inputs to OTHER INFORMATION AVAILABLE above results in inquiry *00170* transaction to the host system. The transaction response for each *00180* inquiry will be pre-formatted and displayed in this screen block.] *00190* *00200* *00210* *00220***************************************************************************00230_‚ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(2dÒ 2ÿþqMINITS03BCS P^040284040284(èÈÐ03-06-84: Miscellaneous KAW 00010-------- 00020-Worked out TIC requirements for receiving NTXed delin quent accounts: 00030 .If the collection office (where Delinquency NTX report is routed) is 00040 a branch office, no problem exist; the reports will be routed to the 00050 primary TIC in that office. 00060 .If the collection office is a home office, one of the terminals in 00070 that office must be designated as a branch office terminal (& therefore 00080 unique TIC) only. 00090 0010003-06-84: Collection Module Disk KAW 00110-------- 00120-Received and installed collection module disk from BR. Testing not 00130 possible because inable to sign in to ADS. 00140 0015003-17-84: Collection Module Disk KAW 00160-------- 00170-Testing of new coll. disk installed by Pat shows only 6 accounts load 00180 and save successfully, but data is married to wrong fields (see ACTIVITY 00190 from 3-19). 00200 0021003-26-84: Meeting with RJS, Pat and Doris KAW 00220-------- 00230-Complete collection module disk should arrive from BR on 4-9. 00240-Have COL-DATENT ready to go to Gold Dome by Fri/Mon. 00250ÐÐ-RJS to get w/ Rosenauer on delivery method of COL-DATENT -- diskette 00260 with memo to go via mail. 00270-KAW to call Dick Corley on collection module implementation plan. 00280-KAW to write memo to Dick Corley at Gold Dome describing the category 00290 definitions & what choices they need to make prior to shipment of the 00300 next set of forms. 00310-Pat/KAW to segment form source file into 4 parts and to organize backup 00320 procedure. 00330-RJS to get with McLaughlin at BR (Mike O. replacemnt) on delivery 00340 schedule of 20MB disk. 00350_‚ ÐÐ_‚_‚ to get w/ Rosenauer on delivery method of COL-DATENT -- diskette 00260 with memo to go via mail. 00270-KAW to call Dick Corley on collection module implementation plan. 00280-KAW to write memo to Dick Corley at Gold Dome describing the category 00290 definitions & what choices they need to make prior to shipment of the 00300 next set of forms. 00310-Pat/KAW to segment form source file into 4 parts and to organize backup 00320 procedure. 00330-RJS to get with McLaughlin at BR (Mike O. replacemnt) on delivery 00340 schedule of 20MB disk. 00350_‚ ÐÈ(F  ÿþ}óqCATGRY BCS P´030684030684(èÈÐ DELINQUENCY CATEGORY DEFINITIONS 00010 00020BRANCH OFFICE : xxxxxx ACCOUNT GROUPING BY: x 00030 00040COLLECTION OFFICE: xxxxxx 1 # of Days Delinquent 00050 2 Office # within company 00060 00070ACCOUNT GROUPING RANGE DEFINITIONS: 00080 00090Category A = xxxxxx to xxxxxx Category F = xxxxxx to xxxxxx 00100Category B = xxxxxx to xxxxxx Category G = xxxxxx to xxxxxx 00110Category C = xxxxxx to xxxxxx Category H = xxxxxx to xxxxxx 00120Category D = xxxxxx to xxxxxx Category I = xxxxxx to xxxxxx 00130Category E = xxxxxx to xxxxxx Category J = xxxxxx to xxxxxx 00140 00150Category Z = All Others 00160 00170 00180_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ _‚_‚ ÐÈ(}î ÿþ~½ MEMO1123BCS PÒ112283112283(èÈÐM E M O 00010------- 00020 00030TO: John Hartman 11/23/83 00040FM: Kathy Williams 00050SJ: BCS 90 and A-30 design documents 00060 00070The addition of cosigner name and phone number fields to the A-30 00080inquiry transaction response and to the daily transmission of the BCS 90 00090delinquency file is a new requirement arising out of the Nov. 16 00100User Advisory Board meeting. Affected pages in the (draft 5) BCS and 00110(draft 12) A-30 design specs are enclosed. 00120 00130Please distribute copies to the appropriate people. 00140 00150 00160Thank you, 00170 00180 00190K. A. Williams 00200404/441-2867 00210_‚ ÐÐ_‚_‚M O 00010------- 00020 00030TO: John Hartman 11/23/83 00040FM: Kathy Williams 00050SJ: BCS 90 and A-30 design documents 00060 00070The addition of cosigner name and phone number fields to the A-30 00080inquiry transaction response and to the daily transmission of the BCS 90 00090delinquency file is a new requirement arising out of the Nov. 16 00100User Advisory Board meeting. Affected pages in the (draft 5) BCS and 00110(draft 12) A-30 design specs are enclosed. 00120 00130Please distribute copies to the appropriate people. 00140 00150 00160Thank you, 00170 00180 00190K. A. Williams 00200404/441-2867 00210_‚ ÐÈ( ­ ÿü{— MEMO1206BCS PÒ120583120583(èÈÐ 12/06/83 00010 00020TO: Distribution 00030FM: Kathy Williams 00040SJ: BCS and A-30 Design Specs 00050 00060Enclosed are the latest BCS 90 and Aladdin 30 design specs. This BCS 00070draft will be the final PRELIMINARY draft. Please examine it carefully 00080and respond with any questions by the week of December 12-16. 00090 00100Our current plan is to have a formal BCS design walk-through sometime in 00110the near future with members from the systems and marketing departments and00120possibly from Bunker Ramo in attendance. The purpose of the walk-through 00130is to ensure that all design plans are workable and achieve the minimum 00140requirements in a collection module. 00150 00160 00170 00180 00190K. A. Williams 00200404/441-2867 or 3295 00210_‚ ÐÐ_‚_‚ 12/06/83 00010 00020TO: Distribution 00030FM: Kathy Williams 00040SJ: BCS and A-30 Design Specs 00050 00060Enclosed are the latest BCS 90 and Aladdin 30 design specs. This BCS 00070draft will be the final PRELIMINARY draft. Please examine it carefully 00080and respond with any questions by the week of December 12-16. 00090 00100Our current plan is to have a formal BCS design walk-through sometime in 00110the near future with members from the systems and marketing departments and00120possibly from Bunker Ramo in attendance. The purpose of the walk-through 00130is to ensure that all design plans are workable and achieve the minimum 00140requirements in a collection module. 00150 00160 00170 00180 00190K. A. Williams 00200404/441-2867 or 3295 00210_‚ ÐÈ(dx‹ dÿþqû*MEMO1214BCS P121483121483(èÈÐ 12/14/83 00010TO: Ray Lucchetti 00020FM: Kathy Williams 00030SJ: Collection Module Requirements 00040 00050Enclosed are highlights of our BCS Collection Module Design Spec 00060that apply to the work you are doing for us. I have also included 00070a copy of the Delinquency File NTX transmission layout and the form(s) 00080it will be loaded into. 00090 00100If you find anything that is inconsistent with our earlier discussions, 00110please let me know by Thursday, December 22. 00120 00130 00140Thank you, 00150 00160K. A. Williams 00170404/441-2867 or 3295 00180. 00190TRANSMISSION OF DELINQUENCY INFORMATION 00200 00210-Transmission format: 00220 00230 *BEGIN@form-name@ data field 1 @ field 2 @...@ field n @*END*@ 00240 00250ÐÐ-Collection data: 00260 . married with either form COL-1STLVL or COL-2NDLVL 00270 . 1st 3 data fields identify keys 1,2 and 3 on associated form 00280 . 4th data field identifies key field for next account link 00290 . collection data married to form COL-2NDLVL will update existing 00300 transaction file record when match found on keys 1,2 and 3 00310 00320-Report data: 00330 . married to forms COL-TREND, COL-SUMMRY, COL-WRTOFF 00340 . no update necessary if existing transactions for those forms 00350 00360DATA ENTRY 00370 00380-Special data entry handling necessary only for forms COL-1STLVL 00390 and COL-2NDLVL 00400 00410-Pressing of NEXT REC key results in automatic display of next transaction 00420 record with key field identified on currently displayed record 00430 00440-Pressing of NEXT REC key also results in update/save of current 00450 transaction when any changes made 00460 00470FILE COMPRESSION 00480 00490-COL-1STLVL transactions to be selectively deleted at end of day; 00500ÐÐ possibly through normal file compression routines 00510. D-1 00520. FIGURE 4-1.1 00530_‚ ÐÐ ÐÐ_‚_‚ ÐÈ(½M ½ÿüR®%MLDESC BCS PŠ(èÈÐ 00010MASTER LOAN RECORD BORROWER ADDRESS LINE 2 00020 00030 00040Purpose To provide mailing address of customer 00050 00060Assembly Value CL25' ' 00070 00080Description 25 alphanumeric or blank characters 00090 00100New Loan Routine Blank-fill 00110Initialization 00120 00130Online Conversion May be input from terminal 00140Initialization 00150 00160Online Update Input from terminal - Collection Module 00170 00180Online Usage Collection Module 00190 00200Offline Update None 00210 00220Offline Usage None 00230 00240Special Considerations None 00250ÐÐ 00260 00270 00280MASTER LOAN RECORD BORROWER PHONE 00290 00300 00310Purpose To provide home phone number of customer 00320 00330Assembly Value CL10' ' 00340 00350Description 10 alphanumeric or blank characters 00360 00370New Loan Routine Blank-fill 00380Initialization 00390 00400Online Conversion May be input from terminal 00410Initialization 00420 00430Online Update Input from terminal - Collection Module 00440 00450Online Usage Collection Module 00460 00470Offline Update None 00480 00490Offline Usage Assignment List 00500ÐÐ 00510Special Considerations None 00520. 00530MASTER LOAN RECORD BORROWER BUSINESS NAME 00540 00550 00560Purpose To provide place of customer employment 00570 00580Assembly Value CL25' ' 00590 00600 00610Description 25 alphanumeric or blank characters 00620 00630New Loan Routine Blank-fill 00640Initialization 00650 00660Online Conversion May be input from terminal 00670Initialization 00680 00690Online Update Input from terminal - Collection Module 00700 00710Online Usage Collection Module 00720 00730Offline Update None 00740 00750ÐÐOffline Usage None 00760 00770Special Considerations None 00780 00790 00800 00810MASTER LOAN RECORD BORROWER BUSINESS ADDRESS 00820 00830 00840Purpose To provide customer business mail address 00850 00860Assembly Value CL25' ' 00870 00880Description 25 alphanumeric or blank characters 00890 00900New Loan Routine Blank-fill 00910Initialization 00920 00930Online Conversion May be input from terminal 00940Initialization 00950 00960Online Update Input from terminal - Collection Module 00970 00980Online Usage Collection Module 00990 01000ÐÐOffline Update None 01010 01020Offline Usage None 01030 01040Special Considerations None 01050. 01060MASTER LOAN RECORD BORROWER BUSINESS CITY/STATE 01070 01080 01090Purpose To provide customer business mail address 01100 01110Assembly Value CL20' ' 01120 01130Description 20 alphanumeric or blank characters 01140 01150New Loan Routine Blank-fill 01160Initialization 01170 01180Online Conversion May be input from terminal 01190Initialization 01200 01210Online Update Input from terminal - Collection Module 01220 01230Online Usage Collection Module 01240 01250ÐÐOffline Update None 01260 01270Offline Usage None 01280 01290Special Considerations None 01300 01310 01320 01330MASTER LOAN RECORD BORROWER BUSINESS ZIP 01340 01350 01360Purpose To provide customer business zip code 01370 01380Assembly Value CL9' ' 01390 01400Description 9 alphanumeric or blank characters 01410 01420New Loan Routine Blank-fill 01430Initialization 01440 01450Online Conversion May be input from terminal 01460Initialization 01470 01480Online Update Input from terminal - Collection Module 01490 01500ÐÐOnline Usage Collection Module 01510 01520Offline Update None 01530 01540Offline Usage None 01550 01560Special Considerations None 01570. 01580MASTER LOAN RECORD BORROWER BUSINESS PHONE 01590 01600 01610Purpose To provide customer business phone number 01620 01630Assembly Value CL10' ' 01640 01650Description 10 alphanumeric or blank characters 01660 01670New Loan Routine Blank-fill 01680Initialization 01690 01700Online Conversion May be input from terminal 01710Initialization 01720 01730Online Update Input from terminal - Collection Module 01740 01750ÐÐOnline Usage Collection Module 01760 01770Offline Update None 01780 01790Offline Usage Assignment List 01800 01810Special Considerations None 01820 01830 01840 01850MASTER LOAN RECORD BORROWER BUSINESS EXTENSION 01860 01870 01880Purpose To provide customer business phone ext. 01890 01900Assembly Value CL4' ' 01910 01920Description 4 alphanumeric or blank characters 01930 01940New Loan Routine Blank-fill 01950Initialization 01960 01970Online Conversion May be input from terminal 01980Initialization 01990 02000ÐÐOnline Update Input from terminal - Collection Module 02010 02020Online Usage Collection Module 02030 02040Offline Update None 02050 02060Offline Usage Assignment List 02070 02080Special Considerations None 02090. 02100MASTER LOAN RECORD COSIGNER NAME 02110 02120 02130Purpose To provide name of customer cosigner 02140 02150Assembly Value CL25' ' 02160 02170Description 25 alphanumeric or blank characters 02180 02190New Loan Routine Blank-fill 02200Initialization 02210 02220Online Conversion May be input from terminal 02230Initialization 02240 02250ÐÐOnline Update Input from terminal - Collection Module 02260 02270Online Usage Collection Module 02280 02290Offline Update None 02300 02310Offline Usage None 02320 02330Special Considerations None 02340 02350 02360 02370MASTER LOAN RECORD COSIGNER ADDRESS 02380 02390 02400Purpose To provide mailing address of cosigner 02410 02420Assembly Value CL25' ' 02430 02440Description 25 alphanumeric or blank characters 02450 02460New Loan Routine Blank-fill 02470Initialization 02480 02490Online Conversion May be input from terminal 02500ÐÐInitialization 02510 02520Online Update Input from terminal - Collection Module 02530 02540Online Usage Collection Module 02550 02560Offline Update None 02570 02580Offline Usage None 02590 02600Special Considerations None 02610. 02620MASTER LOAN RECORD COSIGNER CITY/STATE 02630 02640 02650Purpose To provide mailing address of cosigner 02660 02670Assembly Value CL20' ' 02680 02690Description 20 alphanumeric or blank characters 02700 02710New Loan Routine Blank-fill 02720Initialization 02730 02740Online Conversion May be input from terminal 02750ÐÐInitialization 02760 02770Online Update Input from terminal - Collection Module 02780 02790Online Usage Collection Module 02800 02810Offline Update None 02820 02830Offline Usage None 02840 02850Special Considerations None 02860 02870 02880 02890MASTER LOAN RECORD COSIGNER ZIP 02900 02910 02920Purpose To provide mailing address of cosigner 02930 02940Assembly Value CL9' ' 02950 02960Description 9 alphanumeric or blank characters 02970 02980New Loan Routine Blank-fill 02990Initialization 03000ÐÐ 03010Online Conversion May be input from terminal 03020Initialization 03030 03040Online Update Input from terminal - Collection Module 03050 03060Online Usage Collection Module 03070 03080Offline Update None 03090 03100Offline Usage None 03110 03120Special Considerations None 03130. 03140MASTER LOAN RECORD COSIGNER HOME PHONE 03150 03160 03170Purpose To provide home phone number of cosigner 03180 03190Assembly Value CL10' ' 03200 03210Description 10 alphanumeric or blank characters 03220 03230New Loan Routine Blank-fill 03240Initialization 03250ÐÐ 03260Online Conversion May be input from terminal 03270Initialization 03280 03290Online Update Input from terminal - Collection Module 03300 03310Online Usage Collection Module 03320 03330Offline Update None 03340 03350Offline Usage None 03360 03370Special Considerations None 03380 03390 03400 03410MASTER LOAN RECORD COSIGNER BUSINESS PHONE 03420 03430 03440Purpose To provide business phone number of cosignr 03450 03460Assembly Value CL10' ' 03470 03480Description 10 alphanumeric or blank characters 03490 03500ÐÐNew Loan Routine Blank-fill 03510Initialization 03520 03530Online Conversion May be input from terminal 03540Initialization 03550 03560Online Update Input from terminal - Collection Module 03570 03580Online Usage Collection Module 03590 03600Offline Update None 03610 03620Offline Usage None 03630 03640Special Considerations None 03650. 03660MASTER LOAN RECORD COSIGNER BUSINESS EXTENSION 03670 03680 03690Purpose To provide business extension of cosigner 03700 03710Assembly Value CL4' ' 03720 03730Description 4 alphanumeric or blank characters 03740 03750ÐÐNew Loan Routine Blank-fill 03760Initialization 03770 03780Online Conversion May be input from terminal 03790Initialization 03800 03810Online Update Input from terminal - Collection Module 03820 03830Online Usage Collection Module 03840 03850Offline Update None 03860 03870Offline Usage None 03880 03890Special Considerations None 03900 03910 03920 03930MASTER LOAN RECORD NUMBER TIMES 30 DAYS DELQ. 03940 03950 03960Purpose To provide # of times acct 30-59 days delq. 03970 03980Assembly Value CL3' ' 03990 04000ÐÐDescription 3 alphanumeric or blank characters 04010 04020New Loan Routine Blank-fill 04030Initialization 04040 04050Online Conversion May be input from terminal 04060Initialization 04070 04080Online Update None 04090 04100Online Usage Collection Module 04110 04120Offline Update Batch processing, BOSS run 04130 04140Offline Usage None 04150 04160Special Considerations None 04170. 04180MASTER LOAN RECORD NUMBER TIMES 60 DAYS DELQ. 04190 04200 04210Purpose To provide # of times acct 60-89 days delq. 04220 04230Assembly Value CL3' ' 04240 04250ÐÐDescription 3 alphanumeric or blank characters 04260 04270New Loan Routine Blank-fill 04280Initialization 04290 04300Online Conversion May be input from terminal 04310Initialization 04320 04330Online Update None 04340 04350Online Usage Collection Module 04360 04370Offline Update Batch processing/BOSS run 04380 04390Offline Usage None 04400 04410Special Considerations None 04420 04430 04440 04450MASTER LOAN RECORD NUMBER TIMES 90 DAYS DELQ. 04460 04470 04480Purpose To provide # of times acct 90-119 days delq. 04490 04500ÐÐAssembly Value CL3' ' 04510 04520Description 3 alphanumeric or blank characters 04530 04540New Loan Routine Blank-fill 04550Initialization 04560 04570Online Conversion May be input from terminal 04580Initialization 04590 04600Online Update None 04610 04620Online Usage Collection Module 04630 04640Offline Update Batch processing/BOSS run 04650 04660Offline Usage None 04670 04680Special Considerations None 04690. 04700MASTER LOAN RECORD NUMBER TIMES 120 DAYS DELQ. 04710 04720 04730Purpose To provide # of times acct 120-149 days delq. 04740 04750ÐÐAssembly Value CL3' ' 04760 04770Description 3 alphanumeric or blank characters 04780 04790New Loan Routine Blank-fill 04800Initialization 04810 04820Online Conversion May be input from terminal 04830Initialization 04840 04850Online Update None 04860 04870Online Usage Collection Module 04880 04890Offline Update Batch processing/BOSS run 04900 04910Offline Usage None 04920 04930Special Considerations None 04940 04950 04960 04970MASTER LOAN RECORD NUMBER TIMES 150+ DAYS DELQ. 04980 04990 05000ÐÐPurpose To provide # of times acct 150+ days delq. 05010 05020Assembly Value CL3' ' 05030 05040Description 3 alphanumeric or blank characters 05050 05060New Loan Routine Blank-fill 05070Initialization 05080 05090Online Conversion May be input from terminal 05100Initialization 05110 05120Online Update None 05130 05140Online Usage Collection Module 05150 05160Offline Update Batch processing/BOSS run 05170 05180Offline Usage None 05190 05200Special Considerations None 05210. 05220MASTER LOAN RECORD DELINQUENCY FLAG 05230 05240 05250ÐÐPurpose To provide account delinquency determination 05260 05270Assembly Value CL1' ' 05280 05290Description 1 if currently 1st level delinquent 05300 2 if currently 2nd level or beyond delinquent 05310 N if not delinquent 05320New Loan Routine Blank-fill 05330Initialization 05340 05350Online Conversion None 05360Initialization 05370 05380Online Update None 05390 05400Online Usage Collection Module 05410 05420Offline Update Batch processing/BOSS run 05430 05440Offline Usage Build of Delinquency Indicator File 05450 05460Special Considerations None 05470 05480 05490 05500ÐÐMASTER LOAN RECORD 12 MONTH DELINQUENCY STATUS 05510 05520 05530Purpose To show in which months an acct was delq. 05540 05550Assembly Value CL12' ' 05560 05570Description 12 alphanumeric characters where each 05580 character represents a month starting with 05590 January and is set to Y or N to indicate 05600 whether the acct was delq. in that month 05610 05620New Loan Routine Omitted until delinq. at which time entire 05630Initialization trailer blank filled except where noted 05640 05650Online Conversion May be input from terminal 05660Initialization 05670 05680Online Update Input from terminal - Collection Module 05690 05700Online Usage Collection Module 05710 05720Offline Update None 05730 05740Offline Usage Collector Changes Report 05750ÐÐ 05760Special Considerations None 05770_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ _‚_‚ ÐÈ(,V ,ÿþuÝ}MEMO0416BCS PÎ041084041084(èÈÐ 04/16/84 00010 00020Mr. Richard Corley 00030 00040 00050 00060 00070Subject: Collection Module on the BCS 90 00080 00090 00100Dear Richard: 00110 00120The purpose of this memo is to give you an idea of what to expect in 00130the way of a collection capability in the following weeks. The current 00140plan is to install the new Collection Module on the BCS 90 in three (3) 00150stages. 00160 00170The first stage is to provide you with the transaction form, COL-DATENT, 00180for your department to begin entering new demographic fields which were 00190added to the ADS Master Loan Record to accomodate the Collection Module. 00200By now you should have received this form accompanied with the appropriate 00210Transaction Procedure Steps. 00220 00230The second phase is to provide you with a transaction form called 00240COL-CATGRY. This form will be used to define not only how accounts are 00250ÐÐto be categorized, but also to define from which offices accounts are 00260to be worked. It is advisable that you get an idea of what your office 00270and category definitions will be before receiving this form as this phase 00280must be completed prior to the installation of the on-line transactions. 00290 00300The final stage, of course, is the installation of the collection module 00310in its entirety. This includes on-line collection transaction forms, 00320forms to receive ADS generated reports and local reports. 00330 00340The following pages describe in further detail the features of the BCS 90 00350Collection Module and what is required of a new user to prepare for its 00360installation. 00370 00380If there are any questions, please contact 00390 00400 00410Sincerely, 00420 00430 00440 00450 00460. 00470OVERVIEW 00480 00490The Collection Module is a service that Action Data provides to aid in 00500ÐÐthe collection of delinquent accounts. 00510 00520The implementation of a collection module dictates that some daily off-line00530processing be done on the host system to prepare a user for collection 00540operations. This includes identifying and ordering all currently delin- 00550quent accounts to be transmitted to the BCS 90 and the generation of off- 00560line transactions to update collection fields resident in the on-line 00570Master Loan Record. Although the same amount of data is transmitted on 00580both, first level delinquent accounts are separately identified from 00590second level (and beyond) delinquent accounts. 00600 00610Users have some choice in how delinquent accounts will be sorted prior to 00620transmission to the BCS 90. This selection is done via the COL-CATGRY 00630form (see Figure 1). Accounts may be categorized or grouped in one of two 00640ways: by office # or by severity of delinquency (actual number of days 00650delinquent). Within either of these grouping types, up to ten (10) 00660category ranges may also be selected. During ADS nightly processing, 00670each account is assigned to a category (A through J) according to the 00680above category definitions chosen by the user. If no category ranges are 00690specified, all accounts will be assigned to category Z. Once assigned, 00700all accounts which will be routed to the same (collection) office are 00710sorted first by category, next contact date (set during on-line collection 00720processing), the number of days delinquent and by amount delinquent before 00730transmission to the appropriate collection office. 00740 00750ÐÐCategories of accounts are in turn assigned to collectors through proper 00760setup of their BCS operator ID codes. The first digit of the ID code is 00770any unique alphanumeric character. Each of the remaining 3 characters 00780represent the category or categories of accounts the collector is to work. 00790 00800Upon transmission of the currently delinquent accounts, processing required00810on the BCS 90 includes automatically linking accounts for each collector in00820the order specified in the host transmission. The BCS 90 will also format 00830and accept transactions to and from ADS as well as dynamically update the 00840delinquency and collection activity data resident on the BCS. 00850 00860Collection Module reports are generated on the ADS system and transmitted 00870to print on the BCS 90 as well as generated and printed locally on the BCS.00880. Figure 1: COL-CATGRY Form 00890. 00900IMPLEMENTATION 00910 00920The following are pre-requisites for subscribing to the BCS Collection 00930Module: 00940 00950 1) The user must NOT subscribe to the Potential Delinquency option. 00960 2) The user must subscribe to at least first and second Late Notices. 00970 00980Upon subscription to the BCS Collection Module, the following steps must be00990taken by the new subscriber and/or their Action Data customer service 01000ÐÐrepresentative: 01010 01020 1) Several new fields were added to the Master Loan Record to accomodate01030 the Collection Module. Those fields which are demographic (i.e. 01040 borrower, business and cosigner addresses) should be entered for 01050 all accounts via the COL-DATENT form. 01060 01070 2) Submit transactions to ADS via the COL-CATGRY form to define the 01080 collection office (where delinquent accounts are to be routed) for 01090 each branch office. Also input transactions to define each branch 01100 offices' collection category ranges. 01110 01120 3) Set up 4 character operator IDs for all collectors. The first digit 01130 must be a unique alphanumeric character. The remaining characters 01140 reflect the categories of accounts to be worked by that collector. 01150 01160 4) Identify which office(s) will house the BCS 90(s); these will be 01170 termed collection offices. One of the BCS 90 terminals must be 01180 established as a primary TIC by ADS Line Control. If any collection 01190 office is also a home office; that is, the BCS 90 terminals will be 01200 used for both home and branch office procedures, then one of the 01210 home office terminals must be reserved for branch office procedures 01220 only so that ADS Line Control can assign it a static (primary) TIC. 01230_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(È[ ÈÿüvXTWLKTHRU2BCS Pä120883120883(èÈÐ SYSTEMS BCS DESIGN WALK-THROUGH 00010 00020 00030DAILY DELINQUENCY TRANSMISSION 00040 00050 .ACCOUNTS TRANSMITTED TO DESIGNATED COLLECTION OFFICE 00060 00070 - ALL DELINQUENT ACCOUNTS 00080 - CURRENT ACCOUNTS THAT WERE 2ND LEVEL DELINQUENT YESTERDAY 00090 00100 .CALCULATED FIELDS 00110 00120 - PAST DUE AMOUNT 00130 - # OF DAYS DELINQUENT 00140 - CATEGORY ASSIGNMENT 00150 00160 .1ST LEVEL DELINQUENT ACCOUNTS DISTINGUISHED FROM ALL OTHERS 00170 00180 - DELINQUENCY FLAG 00190 - FORM NAME 00200 00210 .ACCOUNTS SORTED FOR EACH COLLECTION OFFICE BY: 00220 00230 - CATEGORY(A) 00240 - NEXT CONTACT DATE(A) = MLCDTE 00250ÐÐ - # DAYS DELINQUENT(D) 00260 - PAST DUE AMOUNT(D) 00270 00280 .ACCOUNTS LINKED WITH NEXT CATEGORY/ACCOUNT # 00290 00300 .BOSS TRANSACTIONS 00310 00320 - 12 MONTH DELINQUENCY STATUS 00330 - DELINQUENCY FLAG 00340 - # TIMES 30,60,90,120,150+ DAYS DELINQUENT 00350. 00360A-1 00370. 00380ON-LINE TRANSACTIONS 00390 00400 .INQUIRY 00410 00420 .UPDATE ACCOUNT DATA 00430 00440 .UPDATE CATEGORY DEFINITIONS 00450.C-1 (TOP) 00460.D-1 00470.C-1 (BOTTOM) 00480.D-3 (TOP) 00490.C-2 00500ÐÐ. 00510REPORTS 00520 00530 .NTXed WITH DATA ONLY 00540 00550 .FORMAT: 00560 00570 BEGIN/form name/data field 1/ field 2/ ... last field /*END*/ 00580 00590 .TRANSMITTED MONTHLY 00600 00610 .ACCOUNT SUMMARY LIST 00620 00630 - SORTED BY NAME THEN OFFICE 00640 - FORM NAME = COL-SUMMRY 00650 00660 .TREND ANALYSIS REPORT 00670 00680 - FORM NAME = COL-TREND 00690 00700 .CHARGE-OFF REPORT 00710 00720 - FORM NAME = COL-CHGOFF 00730.REPORT PAGES E-1 THRU E-3 00740_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(:“ :ÿþuŸACTIVITYBCS P(èÈÐ ACTIVITY SCREEN 00010 00020 00030 DATE AC RC LC COLL COMMENTS DATE AC RC LC COLL COMMENTS 00040xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00050xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00060xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00070xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00080xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00090xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00100xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00110xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00120xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00130xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00140xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00150xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00160xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00170xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00180xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxxx xx/xx/xx xx xx xx xxxx xxxxxxxxxxxxx00190 00200------ LAST ACTIVITY ------------ ------ LAST PROMISE-TO-PAY -------00210ACTION: xx RESULT: xx LETTER: xx MADE DUE AMOUNT SCHEDUL00220COMMENT: xxxxxxxxxxxxxxx xx/xx/xx xx/xx/xx xxxxxxx.xx xxxxxxx00230 00240************************************************************************** 00250ÐÐ 00260VALID ACTION CODES VALID RESULT CODES 00270----------------------------------- --------------------------------- 00280AR - ACCOUNT REVIEW BK - BANKRUPT 00290BC - BORROWER CALLED BZ - BUZY 00300CB - CALLED CREDIT BUREAU DA - DISPUTED ACCOUNT 00310CC - COSIGNER CALLED DS - DECEASED 00320CO - COMMENT ONLY DV - DIVORCED 00330DB - DEBIT ACCOUNT EX - EXTENSION GRANTED 00340IC - INSURANCE CLAIM FILED LM - LEFT MESSAGE 00350IN - BORROWER/COSIGNER IN OFFICE MP - MISAPPLIED PAYMENT 00360LG - LEGAL ACTION NA - NO ANSWER 00370LR - LETTER RECEIVED OT - OUT OF TOWN 00380LS - LETTER SENT PB - PAID AT BRANCH/ATM 00390PR - PAYMENT RECEIVED PM - PAYMENT MAILED 00400RO - REPOSSESSION ORDER PP - PROMISED-TO-PAY 00410SK - SKIP TRACE RH - REQUEST HARDCOPY 00420SR - SUPERVISOR REVIEW RP - REFUSED TO PAY 00430TA - TELEPHONE ATTORNEY SS - SAD STORY 00440TB - TELEPHONE BUSINESS UE - UNEMPLOYED 00450TC - TELEPHONE COSIGNER UP - UNPUBLISHED NUMBER/NO LISTING 00460TH - TELEPHONE HOME WN - WRONG NUMBER 00470TL - TELEPHONE LEAD 00480_‚ ÐÐ _‚_‚ DEBIT ACCOUNT EX - EXTENSION GRANTED 00340IC - INSURANCE CLAIM FILED LM - LEFT MESSAGE 00350IN - BORROWER/COSIGNER IN OFFICE MP - MISAPPLIED PAYMENT 00360LG - LEGAL ACTION NA - NO ANSWER 00370LR - LETTER RECEIVED OT - OUT OF TOWN 00380LS - LETTER SENT PB - PAID AT BRANCH/ATM 00390PR - PAYMENT RECEIVED PM - PAYMENT MAILED 00400RO - REPOSSESSION ORDER PP - PROMISED-TO-PAY 00410SK - SKIP TRACE RH - REQUEST HARDCOPY 00420SR - SUPERVISOR REVIEW RP - REFUSED TO PAY 00430TA - TELEPHONE ATTORNEY SS - SAD STORY 00440TB - TELEPHONE BUSINESS UE - UNEMPLOYED 00450TC - TELEPHONE COSIGNER UP - UNPUBLISHED NUMBER/NO LISTING 00460TH - TELEPHONE HOME WN - WRONG NUMBER 00470TL - TELEPHONE LEAD 00480_‚ ÐÈ(mj ÿþ|” PRIMARY1BCS P(èÈÐ PRIMARY COLLECTION SCREEN (COL-1STLVL) 00010 00020OFFICE : xxxxxx ACCOUNT : xxxxxx 00030 00040xxxxxxx (name) xxxxxxxx CUR BAL : xxxxxxx.xxS 00050xxxxxxx (addr) xxxxxxxx PAST DUE: xxxxxxx.xxS 00060xxxxxxx (addr) xxxxxxxx REG PAY : xxxxxxx.xxS 00070xxxx (city/state) xx xxxxxxxxx 12 MON DELQ STAT (JFMAMJJASOND): 00080 xxxxxxxxxxxx 00090H PHONE: xxx-xxx-xxxx 00100B PHONE: xxx-xxx-xxxx # DAYS DELINQUENT: xxx 00110C PHONE: xxx-xxx-xxxx xxx-xxx-xxxx NEXT CONTACT DATE: xx-xx-xx 00120C NAME : xxxxxxxxxxxxxxxxxxxxxxxxx 00130 00140UPDATE FIELD # : xx NEW VALUE: xxxxxxxxxxxxxxxxxxxxxxxxx00150 00160LETTER # DESIRED: xx ITEMS - 1: xxxxxxxxxxxxxxxxxxxxxxxxx00170 2: xxxxxxxxxxxxxxxxxxxxxxxxx00180 3: xxxxxxxxxxxxxxxxxxxxxxxxx00190 4: xxxxxxxxxxxxxxxxxxxxxxxxx00200_‚_‚ TELEPHONE COSIGNER UP - UNPUBLISHED NUMBER/NO LISTING 00460TH - TELEPHONE HOME WN - WRONG NUMBER 00470TL - TELEPHONE LEAD 00480_‚ ÐÈ(ÈTÓ ÈÿüK»TMINITS12BCS PB(èÈÐMINUTES FOR BR PROJECT RELATED TRIPS/EVENTS FOR DECEMBER, 1983 00010-------------------------------------------------------------- 00020 00030 0004012/01/83 - TRIP TO ST. LOUIS 00050-------- 00060-Meeting attendees: KAW John Hartman 00070 RJS Les Getz 00080 DMG Don Clark 00090 Jim Rosenauer Erv Cole 00100 00110POINTS OF DISCUSSION: 00120-Ray to be finished with collection module 2-1-84 00130-Resolution of recency vs. contractual delinquency: 00140 recency - # days since cust. made payment 00150 contractual - # of payments behind at month-end (unless on reduction 00160 system in which case mid-month payments are reflected) 00170-Colonial documentation: 00180 operator's manual written by Doris - also has section for supervisor 00190 functions such as disk loading and pages from BR manuals. 00200 usual ADS transaction manuals 00210 00220-Amount delinquent on ADS is considered total outstanding balance 00230 (our current balance) 00240-Past due amount is what we call amount delinquent 00250ÐÐ-Regular payment is what we call payment due 00260 00270-Need to add collection office designation to category transaction 00280 00290-On-line transactions to be ready from Les by 12/12 00300 00310-# days dlq & past due amt will now be calculated daily, but not 00320 stored in the on-line MLR 00330 0034012/02/83 - Phone conversation with Les Getz KAW 00350-------- 00360-payment inquiry response has been reformatted, hardcopy to follow 00370 00380-late charges stricken due to inavailability in MLR 00390 00400-Dsect has incorrect length & definition of collection flag bytes 00410 (see FIELDS); Les & RJS to follow-up through Walt 00420 0043012/02/83 - Phone conversation with Ray L. KAW 00440-------- 004501) If first level dlq accounts are deleted after NCD changes, what 00460 happens when accts are left unworked? 00470 00480 Ray will work on removing code to delete after working & add code to 00490 delete (1st lvl only) after Batch Transaction Print. 00500ÐÐ 005102) Any message when transaction file approaching capacity? 00520 00530 User will get message on status line (line 24) when tran file has 00540 reached 80% capacity & cannot continue w/o meaningful action 00550 005603) Can 1 forms library be created from 2 separate floppies? 00570 00580 Yes, Hohn knows the procedure 00590 0060012/12/83 - Systems BCS design walkthru in St. Louis KAW 00610-------- 00620-No unresolved issues 00630-ADS programming scheduled completion is Jan. 1 00640 0065012/13/83 - Marketing BCS design walkthru in St. Louis KAW 00660-------- 00670-letter # and office # added to end of delinquency file key 3 00680-WRTOFF report based on potential charge-off value in Delinq Option Table 00690-no unresolved issues 00700 00710Miscellaneous: 00720-Discussion with Ray: 00730 . test data requirements identified 00740 . deletion of 1st level delinquents currently slated to be handled 00750ÐÐ in standard compress module, possible transparent to user 00760 . verified format of NTX report transmissions loaded into form files 00770 . FOCUS requirements may slide back completion date for coll. module 00780 00790-with Bob Hohn: 00800 . Ran through ADS BCS file configuration 00810 . made plans to be in St. Louis 12-27 00820 . listed 2 transaction form files 00830 00840-Began collection module FORMGEN inputs 00850 0086012/14/83 - Miscellaneous KAW 00870-------- 00880-Call to Les: 00890 . would like new fields containing month-end 12 month payment history 00900 displayed in place of coll module 12 mon delqcy status in type 2 00910 inquiry response (12 mon delqcy stat already on primary screen); 00920 Les to confirm contents w/ Walt & relay keywork name for above field 00930 00940-Call to John Hartman: 00950 . relayed Ray's test data requirements; John to get w/ Ray on when 00960 to send to BR 00970 00980-Call to Bob Hohn: 00990 . Hohn's fear of overloading transaction file calmed somewhat after 01000ÐÐ talking to Ray & learning of selective compression & his reassurance 01010 of capacity w/ 20MB disk 01020 0103012-29-83: Trip to St. Louis KAW 01040-------- 01050-Finished CATEGORIES form; on-line testing with ADS remains to be done. 01060 01070-Ran through Hohn's BCS back-up procedures and other file maintenance 01080 procedures. 01090_‚ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(È ÿþ~* CHANGE BCS PÜ(èÈÐ CHANGE SCREEN 00010 00020 00030 KEYWORD OLD VALUE NEW VALUE 00040 00050 1 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00060 2 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00070 3 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00080 4 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00090 5 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00100 6 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00110 7 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00120 8 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00130 9 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00140 10 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00150 00160 LINE #: xx NEW VALUE: xxxxxxxxxxxxxxxxxxxxxxxxx 00170 00180 INPUT FIELDS FOR LETTER NUMBER xx - 1: xxxxxxxxxxxxxxxxxxxxxxxxx 00190 2: xxxxxxxxxxxxxxxxxxxxxxxxx 00200 3: xxxxxxxxxxxxxxxxxxxxxxxxx 00210 4: xxxxxxxxxxxxxxxxxxxxxxxxx 00220_‚ ÐÐ _‚_‚ 00030 KEYWORD OLD VALUE NEW VALUE 00040 00050 1 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00060 2 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00070 3 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00080 4 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00090 5 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00100 6 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00110 7 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00120 8 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00130 9 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00140 10 xxxx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 00150 00160 LINE #: xx NEW VALUE: xxxxxxxxxxxxxxxxxxxxxxxxx 00170 00180 INPUT FIELDS FOR LETTER NUMBER xx - 1: xxxxxxxxxxxxxxxxxxxxxxxxx 00190 2: xxxxxxxxxxxxxxxxxxxxxxxxx 00200 3: xxxxxxxxxxxxxxxxxxxxxxxxx 00210 4: xxxxxxxxxxxxxxxxxxxxxxxxx 00220_‚ ÐÈ({T‰ -ÿüK»4FORM1C BCS P(èÈÐFUNCTION CODE/ACCOUNT #: xx 00010 00020ACCOUNT #: xxxxxxxxxxxxxxxx NAME: xxxxxxxxxxxxxxxxxxxxxxxxx 00030 00040 DATE AC RC LETTER NME COLL COMMENTS 00050xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00060xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00070xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00080xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00090xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00100xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00110xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00120xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00130xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00140xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00150NEW ACTIVITY : 00160xx/xx/xx xx xx xxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00170 00180PTP DATE: xx/xx/xx NEXT CONTACT: xxxxxxxxxx ADDRESSEE CODE: x 00190PTP AMOUNT: xxxxxxxxx LETTER DATE: xx/xx/xx LETTER AMOUNT: xxxxxxxxx 00200 00210************************************************************************** 00220 00230VALID ACTION CODES VALID RESULT CODES 00240----------------------------------- --------------------------------- 00250ÐÐAR - ACCOUNT REVIEW BK - BANKRUPT 00260BC - BORROWER CALLED BZ - BUZY 00270CB - CALLED CREDIT BUREAU DA - DISPUTED ACCOUNT 00280CC - COSIGNER CALLED DS - DECEASED 00290CO - COMMENT ONLY DV - DIVORCED 00300DB - DEBIT ACCOUNT EX - EXTENSION GRANTED 00310IC - INSURANCE CLAIM FILED LM - LEFT MESSAGE 00320IN - BORROWER/COSIGNER IN OFFICE MP - MISAPPLIED PAYMENT 00330LG - LEGAL ACTION NA - NO ANSWER 00340LR - LETTER RECEIVED OT - OUT OF TOWN 00350LS - LETTER SENT PB - PAID AT BRANCH/ATM 00360PR - PAYMENT RECEIVED PM - PAYMENT MAILED 00370RO - REPOSSESSION ORDER PP - PROMISED-TO-PAY 00380SK - SKIP TRACE RH - REQUEST HARDCOPY 00390SR - SUPERVISOR REVIEW RP - REFUSED TO PAY 00400TA - TELEPHONE ATTORNEY SS - SAD STORY 00410TB - TELEPHONE BUSINESS UE - UNEMPLOYED 00420TC - TELEPHONE COSIGNER UP - UNPUBLISHED NUMBER/NO LISTING 00430TH - TELEPHONE HOME WN - WRONG NUMBER 00440TL - TELEPHONE LEAD 00450_‚_‚ 00210************************************************************************** 00220 00230VALID ACTION CODES VALID RESULT CODES 00240----------------------------------- --------------------------------- 00250ÐÈ(d ÿþt MEMO0314BCS Pæ031484031484(èÈÐ 03-14-84 00010 00020M E M O 00030------- 00040 00050TO: Pat Huber 00060FM: Kathy Williams 00070SJ: Collection Module TPS Pages 00080 00090The following is the documentation we discussed last week. The Overview 00100and Implementation sections are primarily intended for you and Doris or 00110any other ADS Customer Service rep installing a BCS with a collection 00120module. The TPS section is incomplete, but does include the TPS 00130documentation for the COL-CATGRY and COL-DATENT forms that are ready 00140for customer use now. 00150 00160Please take a close look at the TPS section while on the BCS 90 and let 00170me know if it's easy to follow. I would also appreciate any inputs and 00180suggestions for improvement. 00190 00200Thank you, 00210 00220K.A. Williams 00230_‚ ÐÐ_‚_‚ 03-14-84 00010 00020M E M O 00030------- 00040 00050TO: Pat Huber 00060FM: Kathy Williams 00070SJ: Collection Module TPS Pages 00080 00090The following is the documentation we discussed last week. The Overview 00100and Implementation sections are primarily intended for you and Doris or 00110any other ADS Customer Service rep installing a BCS with a collection 00120module. The TPS section is incomplete, but does include the TPS 00130documentation for the COL-CATGRY and COL-DATENT forms that are ready 00140for customer use now. 00150 00160Please take a close look at the TPS section while on the BCS 90 and let 00170me know if it's easy to follow. I would also appreciate any inputs and 00180suggestions for improvement. 00190 00200Thank you, 00210 00220K.A. Williams 00230_‚ ÐÈ(È» Èÿþu’TTPSMEMO BCS PH031384031384(èÈÐ\MEMO0314BCS 00010 00020 00030 00040 COLLECTION MODULE PROCEDURES 03/13/84 00050 BCS 90 TO ACTION DATA 00060 00070 00080 00090 1.0 OVERVIEW 00100 2.0 IMPLEMENTATION 00110 3.0 TPS 00120. 001301.0 OVERVIEW 00140 00150The collection module is a service that Action Data provides to aid in 00160the collection of delinquent accounts. 00170 00180The implementation of a collection module dictates that some daily off-line00190processing be done on the host system to prepare a user for collection 00200operations. This includes identifying and ordering all currently delin- 00210quent accounts to be transmitted to the BCS 90 and the generation of batch 00220(off-line) transactions to update collection fields resident in the on-line00230Master Loan Record. Although the same amount of data is passed on both, 00240first level delinquent accounts are separately identified from second 00250ÐÐlevel (and beyond) delinquent accounts. 00260 00270Users have some choice in how delinquent accounts will be sorted prior to 00280transmission to the BCS 90. This selection is done via the COL-CATGRY form00290described later. The primary sort option is either by account age (number 00300of days delinquent) or by office number. The range values for up to ten 00310categories within the sort option above may also be selected by the user. 00320The categories determine how the collectors work the accounts. 00330All delinquent accounts are sorted by the category (according to user 00340definition), by the next contact or follow-up date (set during on-line 00350processing), the number of days delinquent and the amount delinquent. 00360 00370Upon transmission of the currently delinquent accounts, processing required00380on the BCS 90 includes automatically linking accounts for each collector 00390in the order specified in the host transmission. It is also the respon- 00400sibility of the BCS 90 to format and accept transactions to and from ADS 00410as well as to dynamically update the delinquency data resident on the BCS. 00420 00430The on-line exchange of data between the BCS 90 and Action Data Services 00440is maintained via three types of transactions: account inquiry, update 00450account data and update office category definitions. These transactions 00460are input through the COL-1STLVL and COL-2NDLVL forms described later. 00470 00480Collection module reports are generated on the host system and transmitted 00490to print on the BCS 90 as well as generated and printed locally on the BCS.00500ÐÐ. 005102.0 IMPLEMENTATION 00520 00530The following are pre-requisites for subscribing to the collection module 00540on the BCS 90: 00550 00560 1) The user must NOT subscribe to the Potential Delinquency option. 00570 2) The user must subscribe to the Late Notices System. 00580 00590Upon subscription to the BCS Collection Module, the following steps must 00600be taken by the new subscriber and/or their ADS customer service represen- 00610tative: 00620 00630 1) Identify which office(s) will house the BCS 90(s); these will be 00640 termed collection offices. One of the BCS 90 terminals must be 00650 established as a primary TIC by ADS Line Control. If any collec- 00660 tion office is also a home office; that is, the BCS 90 terminals 00670 will be used for both home and branch office procedures, then one 00680 of the home office terminals must be reserved for branch office 00690 procedures only so that ADS Line Control can assign it a static 00700 (primary) TIC. 00710 2) Submit transactions to ADS to define the collection office (or 00720 where accounts are to be routed) for each branch office and to 00730 define each branch office's collection category definitions. 00740 3) Set up 4 character user ids for all collectors. The first digit 00750ÐÐ must be a unique alphanumeric character. The remaining characters 00760 reflect the categories of accounts assigned to be worked by that 00770 collector. 00780 4) Several new fields were added to the MLR to accomodate the collec- 00790 tion module. Those fields which are demographic (i.e. borrower 00800 business and cosigner addresses) must be entered for all accounts 00810 via the COL-DATENT form. 00820. 00830\BCS-TPS BCS 00840_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(}p@ }ÿþ|y5MEMO0413BCS Pä(èÈÐ 04-13-84 00010 00020Mr. Richard Corley 00030Gold Dome ........ 00040 ................. 00050 ................. 00060 00070Subject: 8 Terminal System and Demographic Data Entry Form 00080 00090 00100Dear Richard: 00110 00120 ................. Doris' verbage ................................... 00130 ....................................................................... 00140 00150Also enclosed is a diskette with the Form Object file containing a new 00160form called COL-DATENT. This form will allow your department to begin 00170inputting new demographic fields added to the ADS Master Loan Record to 00180accomodate the forthcoming Collection Module. The appropriate data for 00190all your accounts may be entered without leaving the form as described in 00200the attached Transaction Procedure Steps. 00210 00220 ................... more verbage from Doris ......................... 00230 ....................................................................... 00240 ....................................................................... 00250ÐÐ. TRANSACTION PROCEDURE STEPS 00260 00270COL-DATENT - Use this transaction form to input borrower, borrower business00280 and cosigner demographic information in the ADS MLR 00290 003001. Enter Office Number - must be 6 digits in the format SSNNNN 003102. Enter Account Number - must be 6 digits 003203. Enter demographic type on which inquiry/change required: 00330 0 = borrower demographic 00340 3 = borrower business demographic 00350 4 = cosigner demographic 003604. Push TRANSMIT 003705. Tab to 'UPDATE LINE' field, if necessary 003806. Enter line #, followed by TAB, of field requiring update 003907. Enter new value, followed by TAB, for field requiring update: 00400 . If phone number field, must be entered without edit characters 00410 . 1 to 4 fields may updated before TRANSMIT to ADS required; 'PLEASE 00420 TRANSMIT' will be displayed after 4th consecutive update entered 00430 . Check for errors 004408. If more updates of this demographic type for this account required: 00450 . Continue with Step 6 004609. If more updates of another demographic type for this account required: 00470 . push TRANSMIT (if previous updates not already transmitted) 00480 . TAB to 'DATA TYPE' 00490 . Continue with Step 3 00500ÐÐ10. If no more updates required on this account: 00510 . push TRANSMIT 00520 . Continue with Step 1 00530 00540Keyword Definitions: 00550ADL2 - Borrower address line 2 00560BBAD - Business address 00570BBCT - Business city/state 00580BBEX - Business phone extension 00590BBNA - Business name 00600BBPH - Business phone 00610BBZP - Business zip 00620BCTY - Borrower city/state 00630BNAM - Borrower name 00640BPHO - Borrower phone 00650BSTR - Borrower address line 1 00660BZIP - Borrower zip 00670CADD - Cosigner address 00680CBEX - Cosigner business phone extension 00690CBPH - Cosigner business phone 00700CCTY - Cosigner city/state 00710CHPH - Cosigner home phone 00720CNAM - Cosigner name 00730CZIP - Cosigner zip 00740SPS - Borrower spouse 1st name 00750ÐÐ_‚ ÐÐ ÐÐ_‚_‚ ÐÈ(#ƒ #ÿþ MEMO0227BCS P^022884022884(èÈÐ 00010 00020 00030 00040 00050TO: John Hartman 02/27/83 00060FM: Kathy Williams 00070SJ: Amendment to BCS Collection Module ERS 00080 00090 00100The purpose of this memo is to confirm items discussed during the 00110meeting in J. Rosenauer's office on 02-23-84. These items are either 00120updates or additions to the BCS 90 Collection Module ERS. 00130 00140Updates: 1) Collection module subscribers will no longer be able to 00150 subscribe to the Pre-Delinquency option. 00160 00170 2) The Delinquency Option Table delinquency calculation will 00180 now be used for all reports being NTXed to the BCS 90. 00190 00200Additions: 1) When an account becomes current, the MLR Next Contact Date 00210 field should be cleared out (MLCDTE). 00220 00230 2) If an account was a 1st level delinquent on the last run 00240 and the Next Contact Date is non-blank, do NOT pass that 00250ÐÐ account with the Delinquency File (report). 00260 00270Please let me know if any of the above items differ from what was 00280discussed last Thursday. 00290 00300cc: Debbie Gassman 00310 Jim Rosenauer 00320 Walt Smith 00330 Bob Sorensen 00340 Erv Thien 00350_‚_‚purpose of this memo is to confirm items discussed during the 00110meeting in J. Rosenauer's office on 02-23-84. These items are either 00120updates or additions to the BCS 90 Collection Module ERS. 00130 00140Updates: 1) Collection module subscribers will no longer be able to 00150 subscribe to the Pre-Delinquency option. 00160 00170 2) The Delinquency Option Table delinquency calculation will 00180 now be used for all reports being NTXed to the BCS 90. 00190 00200Additions: 1) When an account becomes current, the MLR Next Contact Date 00210 field should be cleared out (MLCDTE). 00220 00230 2) If an account was a 1st level delinquent on the last run 00240 and the Next Contact Date is non-blank, do NOT pass that 00250ÐÈ(úL¿ úÿþtViTESTPLANBCS PÔ053184053184(èÈÐ BCS 90 COLLECTION MODULE TEST PLAN 00010 00020 00030PREPARATION: 00040 000501. Initialize BCS transaction file, TXFILE3. 00060 000702. Schedule delinquency file build and collection report transmissions 00080 into ADS operations. 00090 001003. Dump copies of all NTX reports to printer for test comparisons. 00110 001204. Set proper system time/date on BCS prior to first transmission. 00130 001405. Set up '1ABZ' and '2FGZ' collector IDs on BCS. 00150 001606. Print copy of MLR record on accounts used in First and Second Level 00170 Collections tests. 00180. 00190\TEST-TBLBCS 00200. 00210DAY 1: 00220 00230 A. Delinquency File NTX Transmission 00240 00250ÐÐ(TBL) 1. Record delinquency file transmission start and stop time. 00260 00270(TBL) 2. Record number of first level accounts in TXFILE3. 00280 00290(TBL) 3. Record number of second level accounts in TXFILE3. 00300 00310(TBL) 4. Record number of new second level accounts in TXFILE3. 00320 00330(TBL) 5. Record TXFILE3 data end-of-file (from DSU). 00340 00350(TBL) 6. Record TXFILE3 index end-of-file (from DSU). 00360 00370(___) 7. Verify accounts on report are in category(A), next contact 00380 date(A), days delinquent(D) and past due amount(D) order. 00390 00400(___) 8. Display accounts in automatic link mode. Verify accounts are 00410 in same order as on report. 00420 00430(___) 9. Verify past due amount calculation on 10 random accounts. 00440 00450(___) 10. Verify days delinquent calculation on 10 random accounts. 00460 00470(TBL) 11. Compress TXFILE3 without flagging record types. Record compress 00480 start and stop times. 00490 00500ÐÐ. B. First Level Collections 00510 00520(___) 1. Sign-on BCS with '1ABZ' and sign-into ADS with '54010004'. 00530 00540(___) 2. Display first account in any first level category not matching 00550 those in collector ID, 1ABZ. Verify category flashes on screen. 00560 00570(___) 3. EXIT and start automatic link mode with DIS ,,,A. 00580 00590(___) 4. Change next contact date and TRANSMIT; verify response. 00600 00610(___) 5. Press NXT REC; verify correct next account displayed. 00620 00630(___) 6. Change fields 1-3 & next contact date, TRANSMIT; verify response.00640 00650(___) 7. Change fields 4-7, TRANSMIT; verify response. 00660 00670(___) 8. Change fields 8-10 & input letter #01, TRANSMIT; verify response.00680 00690(___) 9. EXIT automatic mode and display directory. 00700 00710(___) 10. Verify character 16 of key 1 = '-' for all accounts worked. 00720 00730(___) 11. Verify character 1 of key 3 = '-' for all accounts worked. 00740 00750ÐÐ(___) 12. Verify letter # ('01') in characters 2-3 of key 3 of account in 00760 step 8. 00770 00780(___) 13. Display first account worked, press NTX REC; verify automatic 00790 link broken. 00800. C. Second Level Collections 00810 00820(___) 1. Sign-on BCS with '2FGZ'. 00830 00840(___) 2. Start automatic link mode with DIS,,,F. 00850 00860(___) 3. Enter all possible standard action and result codes on page 2. 00870 Verify prompts and movement of data. 00880 00890(___) 4. Attempt TRANSMIT; verify prompt for next contact date. 00900 00910(___) 5. Enter next contact date, TRANSMIT; verify response and NXT REC. 00920 00930(___) 6. Enter next contact date and change fields 1-3 on page 3. 00940 TRANSMIT and verify response. 00950 00960(___) 7. Change fields 4-7. TRANSMIT and verify response. 00970 00980(___) 8. Change fields 8-10. TRANSMIT and verify response. 00990 01000ÐÐ(___) 9. NTX REC and input inquiry #'s 1,2,5,7,8. TRANSMIT and verify 01010 responses between each inquiry. 01020 01030(___) 10. Input inquiry #3. TRANSMIT and verify response. 01040 01050(___) 11. Enter next contact date, change fields 1-3 on page 3. TRANSMIT 01060 and verify response. 01070 01080(___) 12. Change fields 4-6, input letter #01. TRANSMIT & verify response. 01090 01100(___) 13. NXT REC and input inquiry #4. TRANSMIT and verify response. 01110 01120(___) 14. Enter next contact date, change fields 1-3 on page 3. TRANSMIT 01130 and verify response. 01140 01150(___) 15. Change fields 4-7. TRANSMIT and verify response. 01160 01170(___) 16. Change field 8, enter activity with 'SR' action code on page 2. 01180 TRANSMIT and verify response. 01190 01200(___) 17. NXT REC and input inquiry #6. TRANSMIT and verify response. 01210 01220(___) 18. Enter next contact date, change fields 1-3 on page 3. TRANSMIT 01230 and verify response. 01240 01250ÐÐ(___) 19. Change field 4, enter activity with 'RH' result code on page 2. 01260 TRANSMIT and verify response. 01270 01280(___) 20. EXIT and display directory. 01290 01300(___) 21. Verify character 16 of key 1 and character 1 of key 3 = '-' for 01310 all accounts worked. 01320 01330(___) 22. Verify characters 2-3 of key 3 = '01' for account in step 12. 01340 01350(___) 23. Verify characters 2-3 of key 3 = 'SR' for account in step 16. 01360 01370(___) 24. Verify characters 2-3 of key 3 = 'RH' for account in step 19. 01380 01390(___) 25. Display first account worked, NXT REC, verify link broken. 01400. 01410 D. Local Reports 01420 01430(___) 1. Print COL-ASSIGN with key 3 = '-', form length = 8. 01440 Verify report contents. 01450 01460(___) 2. Print COL-CHANGE with key 3 = '-', form length = 12. 01470 Verify report contents. 01480 01490(___) 3. Print COL-ACTVTY with key 3 = '-', form length = 1. 01500ÐÐ Verify report contents. 01510 01520(___) 4. Print COL-RH-1ST with key 3 = '-RH', form length = 66. 01530 Verify report contents and correct accounts printed. 01540 01550(___) 5. Print COL-RH-2ND with key 3 = '-RH', form length = 66. 01560 Verify report contents and correct accounts printed. 01570 01580(___) 6. Print COL-SUPREV with key 3 = '-SR', form length = 1. 01590 Verify report contents and correct accounts printed. 01600 01610(___) 7. Print COL-LTR-01 with key 3 = '-01' for both forms COL-1STLVL 01620 and COL-2NDLVL. Verify reports contents and accounts printed. 01630 01640 E. Transaction File, TXFILE3, Compression 01650 01660(TBL) 1. Compress TXFILE3 with X on all types. Record start and stop time.01670 01680(___) 2. Verify only second level accounts remain. 01690 01700(___) 3. Verify same number of second levels exist. 01710. 01720DAY 2: 01730 01740 A. Delinquency File Transmission 01750ÐÐ 01760(TBL) 1. Repeat steps A1-A6 and A11 of DAY 1. 01770 01780(___) 2. Verify no duplicate second level accounts exist. 01790 01800 B. First Level Collections 01810 01820(___) 1. Verify accounts on which next contact date entered yesterday 01830 not present. 01840 01850 C. Second Level Collections 01860 01870(___) 1. Verify MLR data on accounts which were changed yesterday. 01880 01890(___) 2. Verify activity page unaffected on accounts which activity was 01900 entered yesterday. 01910 01920(___) 3. Enter new activity and new next contact date; TRANSMIT and 01930 verify response. Verify activity string movement to next 01940 available string on page. 01950 01960(___) 4. Display satisfied account (if any) with DIS,,,*. Verify next 01970 contact date is blank. 01980 01990 D. Transaction File, TXFILE3, Compression 02000ÐÐ 02010(TBL) 1. Compress TXFILE3 with X on all types. Record start and stop time.02020. 02030DAY 3 to MONTH-END: 02040 02050(TBL) 1. Repeat steps A1-A6 and A11 from DAY 1. 02060 02070(TBL) 2. Compress TXFILE3 with X on all types. Record start and stop time.02080 02090. 02100MONTH-END: 02110 02120(TBL) 1. Repeat steps for DAY 3 to MONTH-END. 02130 02140 A. ADS Generated Collection Reports 02150 02160(___) 1. Print COL-SUMMRY. Verify same accounts as in TXFILE3. 02170 Verify 1 report for each office in this collection office. 02180 02190(___) 2. Print COL-CHGOFF. Verify 1 report for each office in this 02200 collection office. 02210 02220(___) 3. Print COL-TREND. Verify 1 report for each office in this 02230 collection office. 02240 02250ÐÐ(___) 4. Verify contents of above reports. 02260. 02270DAY 1 AFTER MONTH-END: 02280 02290(___) 1. Repeat steps A1 through A11 of DAY 1. 02300_‚ ÐÐ_‚_‚) 4. Verify contents of above reports. 02260. 02270DAY 1 AFTER MONTH-END: 02280 02290(___) 1. Repeat steps A1 through A11 of DAY 1. 02300_‚ ÐÈ(mx ÿþ|” PRIMARY2BCS P(èÈÐ PRIMARY COLLECTION SCREEN (COL-2NDLVL) 00230 00240OFFICE : xxxxxx ACCOUNT : xxxxxx 00250 00260xxxxxxx (name) xxxxxxxx CUR BAL : xxxxxxx.xxS 00270xxxxxxx (addr) xxxxxxxx PAST DUE: xxxxxxx.xxS 00280xxxxxxx (addr) xxxxxxxx REG PAY : xxxxxxx.xxS 00290xxxx (city/state) xx xxxxxxxxx 12 MON DELQ STAT (JFMAMJJASOND): 00300 xxxxxxxxxxxx 00310H PHONE: xxx-xxx-xxxx 00320B PHONE: xxx-xxx-xxxx # DAYS DELINQUENT: xxx 00330C PHONE: xxx-xxx-xxxx xxx-xxx-xxxx NEXT CONTACT DATE: xx-xx-xx 00340C NAME : xxxxxxxxxxxxxxxxxxxxxxxxx 00350 00360OTHER INFORMATION AVAILABLE: x 00370 003801 PAYMENT HISTORY, PART #: x 5 INSURANCE INFORMATION 003902 DELINQUENCY HISTORY 6 MISCELLANEOUS LOAN INFORMATION 004003 BUSINESS INFORMATION 7 CHARGE-OFF INFORMATION 004104 COSIGNER INFORMATION 8 CATEGORY DEFINITIONS 00420_‚_‚ ÐÈ(d  dÿþu’*SECT3.0 BCS PÔ051684051684(èÈÐ3.0 USAGE ON BCS 90 00010 00020 3.1 Operation 00030 00040 As the collector starts the work day, the system will display 00050 the highest priority account in the collector's schedule via an 00060 automatic file selection. The initial screen display will con- 00070 tain the borrower's basic account information and for second 00080 level (and beyond) delinquent accounts, the latest collection 00090 activity is also available. When the collector has performed 00100 a positive action on the account, the system will flag the 00110 account as worked and the collector displays the next account 00120 scheduled by pressing NXT REC. If for some reason the collector 00130 bypasses an account (i.e. not action taken), the system will 00140 display the next account scheduled without setting the worked 00150 flag so that the collector can easily recognized which accounts 00160 have been bypassed to review later whenever desired. 00170 00180 At any time, the collector may interrupt the automatic link mode 00190 to handle incoming calls from debtors. Any account can be 00200 accessed by account number or name. When this call is completed,00210 the collector picks up where left off in the same manner in 00220 which the first scheduled account was displayed. 00230 00240 Any account can be handled from any terminal (administrative CRT)00250ÐÐ hence collectors can accept incoming calls at any time (i.e. 00260 during lunch breaks, absences, etc.). 00270 00280 As a collector works his or her accounts, he or she can: 00290 00300 a. Review and analyze any account data transferred from the 00310 Action system. 00320 00330 b. Review the collection activity history of second level (and 00340 beyond) delinquent accounts logged on the BCS 90. 00350 00360 c. Request collection letters for borrowers. The content of 00370 these letters is user determined; insertion of variables 00380 within the letter text is also provided (i.e. dates, amounts, 00390 etc.). Letters are printed on a Letter Quality Printer. 00400 00410 d. Add and/or change pertinent non-financial information regard- 00420 ing the borrower such as borrower, business and cosigner 00430 demographic and telephone numbers. The system will report 00440 on theses changes. 00450 00460 e. Allow for flagging an account to print for supervisor review. 00470 00480 f. Record comments regarding the account or results of a debtor 00490 contact. This is considered a positive action and the account00500ÐÐ is flagged as worked accordingly. The system also requires 00510 that a next contact date be scheduled and prompt for other 00520 information if required (i.e. promise-to-pay information). 00530. 00540 3.2 Management 00550 00560 The collection system supervisor can access any account to 00570 review, update status changes or assign new next contact 00580 dates. 00590 00600 During periods of employee illness or vacation, accounts may 00610 quickly and easily be reassigned to different collectors. The 00620 ability to redistribute the delinquency workload helps ensure 00630 consistency in account follow-up. In addition, the supervisor 00640 may have categories created for his or her use. 00650 00660 3.3 Reports 00670 00680 The standard management reports will allow the user to interpret 00690 the trends of their collection activities and track productivity 00700 on a regular basis. 00710 00720 a. Delinquent Trend Analysis - Shows the movement of accounts; 00730 both by number of accounts and delinquent amounts between 00740 aging periods. The report is generated for each office in 00750ÐÐ the company. 00760 00770 b. Summary Account List - Will provide a one-line summary of 00780 account information in borrower name order for cross reference00790 00800 c. Eligible for Write-off - Will provide a list of accounts whose00810 delinquency status indicate a potential write-off. 00820 00830 d. Collector Activity List - Provides information on collection 00840 activity entered that day. 00850 00860 e. Collector Changes - Provides information on collector changes 00870 input that day. 00880 00890 f. Assignment List - Provides minimum account information to be 00900 used as a backup to the on-line system or for analysis of a 00910 collector's workload. 00920 00930 g. Requested Hardcopy - Provides detailed list of selected 00940 accounts. 00950 00960 h. Accounts for Supervisor Review - Provides list of accounts 00970 requested by collectors to be reviewed by a supervisor. 00980_‚ ÐÐ_‚_‚ the company. 00760 00770 b. Summary Account List - Will provide a one-line summary of 00780 account information in borrower name order for cross reference00790 00800 c. Eligible for Write-off - Will provide a list of accounts whose00810 delinquency status indicate a potential write-off. 00820 00830 d. Collector Activity List - Provides information on collection 00840 activity entered that day. 00850 00860 e. Collector Changes - Provides information on collector changes 00870 input that day. 00880 00890 f. Assignment List - Provides minimum account information to be 00900 used as a backup to the on-line system or for analysis of a 00910 collector's workload. 00920 00930 g. Requested Hardcopy - Provides detailed list of selected 00940 accounts. 00950 00960 h. Accounts for Supervisor Review - Provides list of accounts 00970 requested by collectors to be reviewed by a supervisor. 00980_‚ ÐÈ(( £ (ÿþSECT5.0 BCS P051684051684(èÈÐ5.0 RESTRICTIONS AND DEPENDENCIES 00010 00020 A. As it is the intention of the collection module to fit in with 00030 the current Action environment, it remains the responsibility of 00040 Action Data to route reports and transactions to the appropriate 00050 office. As collections for branch offices may be done at one or 00060 more 'collections' offices, the collection office associated with 00070 each branch office must be identified upon subscribing to the 00080 collection module. 00090 00100 B. Users subscribing to the collection module must also subscribe to 00110 the first and second late notices of the Late Notices System so 00120 as to have the most recent information provided by this system. 00130 00140 C. Any ADS reports currently subscribed to by a customer, collection 00150 or otherwise, should still be generated by ADS until subscription 00160 is cancelled. 00170 00180 D. Collection module users must not subscribe to the Potential 00190 Delinquency or Pre-Delinquency calculation option. 00200 00210 E. A BOSS tape should be generated daily for collection module 00220 subscribers and applied to the on-line MLR. 00230 00240 F. Collection module users should also subscribe to the Payment 00250ÐÐ History System and to the Past Due Calculation. 00260_‚ _‚_‚ or otherwise, should still be generated by ADS until subscription 00160 is cancelled. 00170 00180 D. Collection module users must not subscribe to the Potential 00190 Delinquency or Pre-Delinquency calculation option. 00200 00210 E. A BOSS tape should be generated daily for collection module 00220 subscribers and applied to the on-line MLR. 00230 00240 F. Collection module users should also subscribe to the Payment 00250ÐÈ( á ÿþðTEST-TBLBCS P(053184053184(èÈÐDATE XMIT XMIT # 1ST # 2ND # NEW TXFILE TXFILE TXFILE TXFILE00010 START STOP LEVEL LEVEL 2ND DATA INDEX CMPRESS CMPRES00020 TIME TIME ACCTS ACCTS ACCTS EOF EOF START STOP 00030----- ----- ----- ----- ----- ----- ------ ------ ------- ------00040_‚ _‚_‚ _‚_‚ or otherwise, should still be generated by ADS until subscription 00160 is cancelled. 00170 00180 D. Collection module users must not subscribe to the Potential 00190 Delinquency or Pre-Delinquency calculation option. 00200 00210 E. A BOSS tape should be generated daily for collection module 00220 subscribers and applied to the on-line MLR. 00230 00240 F. Collection module users should also subscribe to the Payment 00250ÐÈ(dsV dÿþw&*REPLY BCS PÊ051684051684(èÈÐ HOST RESPONSE MESSAGES 00010 00020Account Inquiry Transactions: Responses to all inquiry transactions must 00030 be pre-formatted and pre-edited and with CRs following each line 00040 including blank lines. 00050 00060********** TYPE 0 -- Basic Data ************************************** 00070xxxxxxx (NAME) xxxxxxxxx CUR BAL xxxxxxx.xxS 00080xxxxxxx (ADDR) xxxxxxxxx PAST DUE [leave blank] 00090xxxxxxx (ADDR) xxxxxxxxx REG PAY xxxxxxx.xxS 00100xxxxxxx (c/s/z) xxxxxxxxxxxxx 00110 00120H PHONE: xxx/xxx-xxxx # DAYS DELINQUENT: [leave blank] 00130B PHONE: xxx/xxx-xxxx NEXT CONTACT DATE: xx/xx/xx 00140C PHONE: xxx/xxx-xxxx xxx/xxx-xxxx 00150C NAME: xxxxxxxxxxxxxxxxxxxxxxxxx 00160 00170********** TYPE 1 -- Payment History ********************************* 00180 LATEST PAYMENT INFORMATION 00190 DATE PRINCIPAL INTEREST CODE 00200xx/xx/xx xxxxxxx.xxS xxxxxxx.xxS xxxxxxxx REGULAR PAYMENT xxxxxxx.xxS 00210xx/xx/xx xxxxxxx.xxS xxxxxxx.xxS xxxxxxxx DUE DAY xx 00220xx/xx/xx xxxxxxx.xxS xxxxxxx.xxS xxxxxxxx 00230NOTE: Although this host response exists in production, the collection 00240 module will be using the existing payment history transaction 00250ÐÐ (code = nHx, where x is segment # on which history desired) to 00260 display an 1 of up to 51 payment history items. 00270 00280********** TYPE 2 -- Delinquent History ****************************** 00290PREV DELINQUENCY xxx # TIMES 30 DAYS DELINQUENT xxx 00300ALLOWABLE THIS MONTH xx # TIMES 60 DAYS DELINQUENT xxx 00310ALLOWABLE LIFE CONTR xx # TIMES 90 DAYS DELINQUENT xxx 00320MONTH-END PAY STATUS # TIMES 120 DAYS DELINQUENT xxx 00330J F M A M J J A S O N D # TIMES 150+ DAYS DELINQUENT xxx 00340x x x x x x x x x x x x 00350yy yy yy yy yy yy yy yy yy yy yy yy 00360********** TYPE 3 - Business Information ***************************** 00370xxxxxxx (NAME) xxxxxxxx PHONE: xxx/xxx-xxxx 00380xxxxxxx (ADDR) xxxxxxxx EXT: xxx 00390xxxx (CITY/STATE) xx xx(ZIP)xx 00400 00410********** TYPE 4 -- Cosigner Information **************************** 00420xxxxxxx (name) xxxxxxxx HOME PHONE: xxx/xxx-xxxx 00430xxxxxxx (addr) xxxxxxxx BUS PHONE: xxx/xxx-xxxx EXT xxxx00440xxxx (city/state) xx xx(ZIP)xx SPOUSE: xxxxxxxxxx 00450 00460********** TYPE 5 -- Insurance Information *************************** 00470FIRE PREMIUM xxxxxxx.xxS INSURANCE CODE x 00480LIFE PREMIUM xxxxxxx.xxS INSURED INDICATOR x 00490A & H PREMIUM xxxxxxx.xxS OTHER PREMIUM xxxxxxx.xxS 00500ÐÐ. 00510 00520********** TYPE 6 -- Miscellaneous Information ************************ 00530DUE DAY xx PURPOSE CODE x BIRTH YEAR xx 00540ORIGINAL TERM xxxx SOURCE CODE xx PRIOR ACCT # xxxxxx 005501ST ENTRY DATE xx/xx/xx SECURITY CODE xx SS # xxx-xx-xxxx005601ST PAYM DATE xx/xx/xx 00570RATE xxxxxxx DEALER # xxxx CREDIT SCORE xxxx 00580 RSRV FROM PRIN xxxxxx 00590FLAG BYTES: 1 2 3 4 00600 x x x x xx/xx/xx 00610 00620********** TYPE 7 -- Charge-off Information ************************** 00630CHARGE-OFF DATE xx/xx/xx CHARGE-OFF AMOUNT xxxxxxx.xx 00640 00650********** TYPE 8 -- Category Definitions ***************************** 00660ACCOUNT GROUPED BY: xxxxxx COLLECTION OFFICE: xxxxxx 00670 00680CATEGORY: A = xxxxxx to xxxxxx CATEGORY: F = xxxxxx to xxxxxx 00690 B = xxxxxx to xxxxxx G = xxxxxx to xxxxxx 00700 C = xxxxxx to xxxxxx H = xxxxxx to xxxxxx 00710 D = xxxxxx to xxxxxx I = xxxxxx to xxxxxx 00720 E = xxxxxx to xxxxxx J = xxxxxx to xxxxxx 00730. 00740Update Account Data Transaction Response: 00750ÐÐ(For each field updated) 00760 00770OFFSET # CHAR TAG DESCRIPTION 00780------ ------ ------ ------------------------------------------------ 00790 1 14 MLACCT Account number 00800 15 1 Filler 00810 16 4 KEYWD1 Keyword of field # 1 00820 20 1 Filler 00830 21 x1 VALUE1 From value of field # 1 0084021+x1 1 Filler 0085022+x1 x2 VALUE2 To value of field # 1 00860 00870 00880 00890Update Office Category Definitions Transaction Response: 00900 00910This response format is the same as the inquiry type 8 response format. 00920_‚ ÐÐ_‚_‚ each field updated) 00760 00770OFFSET # CHAR TAG DESCRIPTION 00780------ ------ ------ ------------------------------------------------ 00790 1 14 MLACCT Account number 00800 15 1 Filler 00810 16 4 KEYWD1 Keyword of field # 1 00820 20 1 Filler 00830 21 x1 VALUE1 From value of field # 1 0084021+x1 1 Filler 0085022+x1 x2 VALUE2 To value of field # 1 00860 00870 00880 00890Update Office Category Definitions Transaction Response: 00900 00910This response format is the same as the inquiry type 8 response format. 00920_‚ ÐÈ(v ÿþwqBCS-TPS BCS P¬(èÈÐ3.0 Transaction Procedure Steps 00010 00020COL-CATGRY - Use this transaction form to (1) inquire upon the collection 00030 category definitions of a particular office or (2) to input 00040 changes to an office's collection category definitions as well00050 as to define the collection office for this office. 00060 NOTE: As the change portion of this transaction affects the 00070 routing of delinquent accounts, the collection office defini- 00080 tion for each branch office should be done only once. 00090 001001. Enter Office Number of office being changed or inquired upon - must be 00110 6 digits in format SSNNNN 001202. Push TRANSMIT if inquiry desired 001303. Enter grouping type desired: 00140 1 = assign account categories based upon account age (# of days delinq) 00150 2 = assign account categories based upon Office Number 001604. Enter the Collection Office Number (where delinquent acounts are/will be00170 routed) for the office being changed; defaults to Office Number entered00180 in Step 1 001905. Enter begin and ending range values for categories A through E: 00200 . If group type selected in Step 3 was 1, range values must be numeric 00210 between 0 and 999 00220 . Push TAB to skip over any categories not requiring a change 002306. Push TRANSMIT 002407. Check for errors 00250ÐÐ8. Enter begin and ending range values for categoreis F through J: 00260 . If group type selected in Step 3 was 1, range values must be numeric 00270 between 0 and 999 00280 . Push TAB to skip over any categories not requiring a change 002909. Push TRANSMIT 0030010. Check for errors 00310. 00320COL-DATENT - Use this transaction form to input borrower, borrower business00330 and cosigner demographic information in the ADS MLR 00340 NOTE: BACK TAB should NOT be used with this form. 00350 003601. Enter Office Number - must be 6 digits in the format SSNNNN 003702. Enter Account Number - must be 6 digits 003803. Enter demographic type on which inquiry/change required: 00390 0 = borrower demographic 00400 3 = borrower business demographic 00410 4 = cosigner demographic 004204. Push TRANSMIT 004305. Tab to 'UPDATE LINE' field, if necessary 004406. Enter line #, followed by TAB, of field requiring update 004507. Enter new value, followed by TAB, for field requiring update: 00460 . If phone number field, must be entered without edit characters 00470 . 1 to 4 fields may updated before TRANSMIT to ADS required; 'PLEASE 00480 TRANSMIT' will be displayed after 4th consecutive update entered 00490 . Check for errors 00500ÐÐ8. If more updates of this demographic type for this account required: 00510 . Continue with Step 6 005209. If more updates of another demographic type for this account required: 00530 . push TRANSMIT (if previous updates not already transmitted) 00540 . TAB to 'DATA TYPE' 00550 . Continue with Step 3 0056010. If no more updates required on this account: 00570 . push TRANSMIT 00580 . Continue with Step 1 00590 00600Keyword Definitions: 00610ADL2 - Borrower address line 2 00620BBAD - Business address 00630BBCT - Business city/state 00640BBEX - Business phone extension 00650BBNA - Business name 00660BBPH - Business phone 00670BBZP - Business zip 00680BCTY - Borrower city/state 00690BNAM - Borrower name 00700BPHO - Borrower phone 00710BSTR - Borrower address line 1 00720BZIP - Borrower zip 00730CADD - Cosigner address 00740CBEX - Cosigner business phone extension 00750ÐÐCBPH - Cosigner business phone 00760CCTY - Cosigner city/state 00770CHPH - Cosigner home phone 00780CNAM - Cosigner name 00790CZIP - Cosigner zip 00800SPS - Borrower spouse 1st name 00810. 00820COL-1STLVL - Use this transaction form to (1) review 1st level delinquent 00830 accounts, (2) input borrower demographic and next contact 00840 date changes and (3) request a collection letter. 00850 NOTE: BACK TAB should NOT be used with this form. 00860 008701. Bring up first account scheduled to be worked by entering 00880 DIS,,,x where x is the second character of the collector/operator 00890 ID. 00900 NOTE: The category will flash when an account is displayed if it 00910 doesn't match the categories in the collector ID. Although 00920 the account can still be worked, this is a warning that the 00930 collector is attempting to work an account to which he/she 00940 isn't assigned. 009502. Review data, if no letter or demographic update is required, press 00960 NXT REC to display next account scheduled. 009703. Enter next contact date in format MMDDYY; press TAB, if necessary. 009804. Enter field # of demographic update if required and press TAB, else 00990 press TAB only and continue with step 6. 01000ÐÐ NOTE: 4 fields may be updated before transmitting to Action. When 01010 new values have been entering for 4 fields, a message will 01020 appear indicating that the collector should TRANSMIT before 01030 continuing. However, if 4 and only 4 fields require updating, 01040 the collector should enter letter information before TRANSMIT 01050 to ensure that the letter data will be saved with the account 01060 as well. 010705. Enter new value for field requiring update; press TAB and continue 01080 with step 4. 010906. Enter 2 character letter code. 011007. Enter data to be printed with letter # requested, if necessary; press 01110 TAB and repeat for items 2 through 4. 01120 NOTE: Amount, phone # and date fields must be entered with edit 01130 characters. 011408. Press TRANSMIT 011509. Press NXT REC to display next account scheduled and continue with 01160 step 2. 01170 01180Field #'s on which Updates Allowed: 01190---------------------------------- 01200 1 = Borrower Name 6 = Borrower Home Phone 01210 2 = Borrower Address Line 1 7 = Borrower Business Phone 01220 3 = Borrower Address Line 2 8 = Cosigner Home Phone 01230 4 = Borrower City/State 9 = Cosigner Business Phone 01240 5 = Borrower Zip 10 = Cosigner Name 01250ÐÐ. 01260COL-2NDLVL - Use this transaction form to (1) review 2nd level delinquent 01270 accounts, (2) input demographic and collection data changes, 01280 and (3) input collection activity data including letter 01290 requests. 01300 NOTE: BACK TAB should NOT be used with this form. 01310 013201. Enter DIS,,,x to display first account scheduled to be worked where 01330 x is the second character of the collector/operator ID. Press TRANSMIT.01340 NOTE: The category will flash on the displayed account if it doesn't 01350 match the categories in the collector ID. Although the account 01360 may still be worked, this warning indicates the collector is 01370 attempting to work an account to which he/she isn't assigned. 013802. If no inquiry necessary, press TAB and continue with step 4. 013903. Enter # for which inquiry desired; press TRANSMIT. Repeat for further 01400 inquiries. 014104. Review data; if no letter, demographic update or collection activity 01420 required, press NXT REC to display next account scheduled and continue 01430 with step 2. 014405. Enter next contact date in format MMDDYY; TAB if necessary. 014506. Press NXT PAGE to display SECOND LEVEL ACTIVITY page. If no collection01460 activity inputs necessary, press NXT PAGE and continue with step 15. 014707. Enter 2 character action code. 014808. Enter 2 character result code. If result code entered is not 'PP', 01490 continue with step 12. 01500ÐÐ NOTE: Valid action and result codes are listed in the COLLCODES form 01510 via Local Information. 015209. Enter promise-to-pay due date; default is 7 days from today if date 01530 entered is not in the range of 1 to 65 days from today. 0154010. Enter promise-to-pay amount, TAB if necessary. 0155011. Enter 10 character promise-to-pay schedule, TAB is necessary. 0156012. Enter 2 character letter code, if required. 0157013. Enter 15 character comment, TAB if necessary. 0158014. If further collection activity required, continue with step 7, else 01590 press NXT PAGE to display 2ND LEVEL UPDATE page. 0160015. The old values for the data last inquired upon will be displayed. If 01610 no inquiry was made or the OTHER INFORMATION field was cleared before 01620 dislaying this page, the old values for data from the first page will 01630 be displayed. Changes are allowed only on borrower, business (inquiry 01640 type 3), cosigner (inquiry type 4) demographic fields and on the 4 01650 flag bytes from Miscellaneous Loan (inquiry type 6). If the last 01660 inquiry made was of types 1,2,5,7 or 8 continue with step 18. 0167016. Enter line # of field requiring update, press TAB. If no further 01680 updates required, press TAB only and continue with step 18. 0169017. Enter new value for field requiring update, press TAB. 01700 Continue with step 16. 01710 NOTE: 4 fields may be updated before TRANSMIT to Action; 2 changes 01720 to the same fields counts as 1 change. When 4 changes have been 01730 input, a message will appear indicating the collector should 01740 TRANSMIT before continuing. However, if 4 and only 4 field 01750ÐÐ updates are required, any letter information necessary should be 01760 input before TRANSMIT to ensure the letter data is saved with 01770 the account. 01780. 0179018. Enter data in items 1 through 4 followed by TAB if necessary for the 01800 letter requested on the SECOND LEVEL ACTIVITY page. 01810 NOTE: Amount, phone # and date fields should be entered with edit 01820 characters (i.e. $ sign, commas, slashes, dashes, etc.). 0183019. Press TRANSMIT. 0184020. Press NXT REC to display next scheduled account and continue with 01850 step 2. 01860 01870Fields for which Updates Allowed: 01880-------------------------------- 01890All fields listed in COL-DATENT Transaction Procedure Steps 01900COL1 = 1 character flag byte for use as defined by the user 01910COL2 = 1 character flag byte for use as defined by the user 01920COL3 = 1 character flag byte for use as defined by the user 01930COL4 = 1 character flag byte for use as defined by the user 01940(Sample usage of above flag bytes--'Call after' time, Don't call business, 01950 Deceased flag, etc.) 01960 01970ADDITIONAL NOTES 01980-If a call is received from a customer: 01990 (a) press EXIT from page 1 of currently displayed account 02000ÐÐ (b) enter DIS,,customer name followed by TRANSMIT 02010 (c) work account as described above 02020 (d) press EXIT after working and TRANSMIT of account 02030 (e) continue with step 1 above to get back into automatic account link 02040 mode 02050-If the account category flashed while in automatic link mode, the 02060 collector is not assigned to that category and should: 02070 (a) press EXIT to display data entry menu 02080 (b) enter DIS,,,y and TRANSMIT where y is next unworked category 02090 character from collector/operator ID. Continue with step 2 above. 02100-When all accounts scheduled for a particular collector have been worked 02110 and/or reviewed and bypassed, RECORD NOT FOUND will flash and the 02120 collector should: 02130 (a) enter DIS,,,(category character) followed by TRANSMIT to display 02140 and work any accounts which have been bypassed 02150-The Supervisor Review action code (SR), Request Hardcopy result code (RH) 02160 and the two character letter codes are collector inputs which trigger 02170 Batch Transaction reports at the end of the day. Although the SR, RH 02180 and any letter codes may all be input on the same account in the same 02190 day, only the last codes entered will set the flag for printing a Batch 02200 Transaction report. It is therefore the collector's responsibility that 02210 if more than one of the above codes is required on an account, the DOC PRT02220 key MUST be pressed and the appropriate print format name selected to get 02230 a report of all except the last code entered. This immediate print 02240 feature is available at any time. 02250ÐÐ_‚ ÐÐ _‚_‚ ÐÈ(ÈKÙ ÈÿþtqTWLKTHRU1BCS Pj120883120883(èÈÐ MARKETING BCS DESIGN WALK-THROUGH 00010 00020 00030DAILY DELINQUENCY TRANSMISSION 00040 00050 .ALL DELINQUENT ACCOUNTS 00060 00070 .1ST LEVEL DELINQUENT ACCOUNTS DISTINGUISHED FROM ALL OTHERS 00080 00090 .ALL ACCOUNTS SORTED BY CATEGORY, NEXT CONTACT DATE, AGE, PAST DUE AMOUNT00100 00110 .ACCOUNTS LINKED FOR AUTOMATIC REVIEW 00120 00130 .ACCOUNTS LOADED INTO BCS TRANSACTION FILE WITH ACCESS KEYS: 00140 00150 1 = OFFICE #/ACCOUNT #/CATEGORY 00160 2 = ACCOUNT NAME 00170 3 = CATEGORY/ACCOUNT WORKED FLAGS/COLLECTOR ID/1ST or 2ND LEVEL 00180 DESIGNATION 00190. 00200COLLECTION OF DELINQUENT ACCOUNTS 00210 00220 .4 CHARACTER COLLECTOR ID REFLECTS TYPES OR CATEGORIES OF ACCOUNTS 00230 ASSIGNED TO COLLECTOR 00240 00250ÐÐ i.e. KAEF - COLLECTOR K WORKS ACCOUNTS OF CATEGORY A, E & F 00260 00270 .CATEGORIES DEFINED BY USER 00280 00290 .COLLECTOR BEGINS WORKING HIS ASSIGNED CATEGORIES THROUGH 00300 TRANSACTION DIRECTORY 00310 00320 - DIS,,,A -DISPLAYS HIGHEST PRIORITY ACCOUNT IN CATEGORY A 00330 00340 .ACCESS KEY 3 IS FLAGGED FOR EACH WORKED ACCOUNT FOR: 00350 00360 - DIRECTORY REVIEW 00370 - REPORTS 00380 00390 .AFTER WORKING AN ACCOUNT, 'NXT REC' KEY IS PRESSED TO DISPLAY NEXT 00400 HIGHEST PRIORITY ACCOUNT 00410. 00420\CATGRY BCS 00430. 00440FIRST LEVEL DELINQUENT ACCOUNTS 00450 00460 .WORKED THROUGH FORM: COL-1STLVL 00470 00480 .SEND LETTER 00490 00500ÐÐ .CHANGE NON-FINANCIAL INFORMATION 00510 00520 .CHANGE NEXT CONTACT DATE 00530 00540 - DEFAULT = TODAY + 7 DAYS 00550 00560 .TRANSACTION TO ADS 00570. 00580\PRIMARY1BCS 00590. 00600SECOND LEVEL (AND BEYOND) DELINQUENT ACCOUNTS 00610 00620 .WORKED THROUGH FORM: COL-2NDLVL 00630 00640 .SEND LETTER 00650 00660 .CHANGE NON-FINANCIAL INFORMATION 00670 00680 .REQUEST FURTHER INFORMATION FROM HOST 00690 00700 .INPUT COLLECTION ACTIVITY 00710 00720 - CHANGE NEXT CONTACT DATE 00730 - 7 DAYS + TODAY = DEFAULT FOR NEXT CONTACT AND PROMISE-TO-PAY DATES 00740 - 30 ACTIVITY ENTRIES REQUIRES HARDCOPY BEFORE CONTINUING 00750ÐÐ 00760 .TRANSACTION TO ADS 00770. 00780\PRIMARY2BCS 00790. 00800\ACTIVITYBCS 00810. 00820\CHANGE BCS 00830. 00840\REPLY BCS 00850. 00860. 00870HOST GENERATED REPORTS 00880 00890 .3 REPORTS 00900 00910 - ACCOUNT SUMMARY LIST 00920 - TREND ANALYSIS REPORT 00930 - ELIGIBLE FOR CHARGE-OFF REPORT 00940 00950 .NTXed INTO TRANSACTION FILE THROUGH FORMS: COL-SUMMRY 00960 COL-TREND 00970 COL-CHGOFF 00980 00990 .PRINTED WITH FIELD LABELS VIA PRINTGEN 01000ÐÐ.REPORT PAGES E-1 THRU E-3 01010. 01020LOCAL REPORTS 01030 01040 .6 REPORTS 01050 01060 - LETTERS 01070 - ASSIGNMENT LIST 01080 - REQUESTED HARDCOPY FOR 1ST or 2ND LEVEL ACCOUNTS 01090 - ACCOUNTS FOR SUPERVISOR REVIEW LIST 01100 - COLLECTOR ACTIVITY 01110 - COLLECTOR CHANGES 01120 01130 .PRINTED VIA BATCH TRANSACTION PRINT 01140 01150 .1ST LEVEL DELINQUENT ACCOUNTS REMOVED FROM TRANSACTION FILE AFTER PRINT 01160 01170.REPORT PAGES F-1 THRU F-6 01180_‚ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(R Rÿþh"øPSRFILE DOCS Pl(èÈÐ PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 00010 *CFS 00001 HNB 12-23-81 DMG Urgent 00020 00030 ORIGINATOR NAME & PHONE: Bob Parent 203/728-4574 00040 00050 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 00060 Letter Statistics gives protect violation 00070 00080 FULL DESCRIPTION: 00090 On an intermittant basis, the letter summary statistics program gives 00100 a program protect violation. The location varies; console log shows a 00110 $0000 address. 00120 00130 00140 RESOLUTION. DATE: 01-25-83 ANALYST: RWE 00150 Corrective code generated: U.LTRSTA/CCS149 00160 ----------------------------------------------------------------------- 00170 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 00180 ? *CFS 00002 WFAL 01-25-83 SAH Urgent 00190 00200 ORIGINATOR NAME & PHONE: Mike Kiyota 415/396-3165 00210 00220 BRIEF DESCRIPTION. CCS/LA/BOTH : both 00230 UTIL/SAVE does not permit opr to modify input 00240 00250ÐÐ FULL DESCRIPTION: 00260 When performing a SAVE, if the operator keys in GO and then changes 00270 the decision, backspaces and enters EX, the original entry is what 00280 the system reacts does. 00290 _ 00300 _ 00310 RESOLUTION. DATE: __-__-__ ANALYST:________ 00320 _ 00330 ----------------------------------------------------------------------- 00340 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 00350 *CFS 00003 HNB 11-03-81 DMG CRITICAL 00360 00370 ORIGINATOR NAME & PHONE: Bob Parent 203/728-4574 00380 00390 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 00400 Band Printer causes system failure 00410 00420 FULL DESCRIPTION: 00430 During a print job when the printer fails, the standard error message 00440 appears (i.e., L12 failed 06 or L12 failed 02). Upon correcting 00450 printer problems (not ready or paper out) and giving the RP response, 00460 the system goes too SYFAIL. 00470 This problem can be duplicated by following these steps: 00480 1. DC menu, sel B - print letters. 00490 2. When the message "Do you wish to have another alignment line 00500ÐÐ printed? Enter Y or N" appears - stop the printer. 00510 3. Answer Y to the prompt (failure message appears). 00520 4. Start printer. 00530 5. Answer RP to failure message. 00540 RESOLUTION. DATE: 12-21-81 ANALYST: LJLOPS 00550 Patch #16 on tape of 12/21/81 - disable double buffering on output 00560------------------------------------------------------------------------ 00570 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 00580 ? *CFS 00004 HNB 12-09-81 DMG URGENT 00590 00600 ORIGINATOR NAME & PHONE: Bob Parent 203/782-4574 00610 00620 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 00630 Transaction reply prints garbage on UTIFIL error return 00640 00650 FULL DESCRIPTION: 00660 If collector ID is not found in the UTIFIL during the transaction reply 00670 execution, a file manager error is given and garbage prints on the line 00680 printer. 00690 It is suggested that a more descriptive message be printed (ex: 00700 collector COID not found) on the master console, the correct informa- 00710 tion should be printed on the line printer and or default collector 00720 code should be used to apply the activity to the account. Futhermore, 00730 this should not increment the error counter within TRNPLY. This same 00740 error is probably present in the L&A reply. 00750ÐÐ RESOLUTION. DATE: __-__-__ ANALYST:________ 00760 _ 00770------------------------------------------------------------------------ 00780 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 00790 ? *CFS 00004 RIHT 12-09-81 DMG SERIOUS 00800 00810 ORIGINATOR NAME & PHONE: Peter Godfrin 401/278-8218 00820 00830 BRIEF DESCRIPTION. CCS/LA/BOTH : LA 00840 Client reports do not indicate whether accounts are active or inactive 00850 00860 FULL DESCRIPTION: 00870 The inventory report by client and by customer should include the 00880 account status code on each account. By doing so, one can determine 00890 which accounts are currently liquidating, paid in full or non- 00900 liquidating. 00910 _ 00920 RESOLUTION. DATE: __-__-__ ANALYST:________ 00930 _ 00940------------------------------------------------------------------------ 00950 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 00960 ? *CFS 00005 RIHT 12-09-81 DMG URGENT 00970 00980 ORIGINATOR NAME & PHONE: Peter Godfrin 401/278-8218 00990 01000ÐÐ BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 01010 Transaction reply rejects reactivation activities 01020 01030 FULL DESCRIPTION: 01040 If the reactivation activity string is activated in the UPDATE/LUPDAT 01050 programs and a transaction reply is performed, those activity strings 01060 are rejected because the collector ID, HOST is not defined in the 01070 UTIFIL/LAUTIFIL files. 01080 _ 01090 RESOLUTION. DATE: 12-09-81 ANALYST:DMG 01100 The solution is to have the collector ID, HOST as a permanent key is the 01110 UTIFIL/LAUTIFIL files (i.e., similiar to RSW1, ect). 01120----------------------------------------------------------------------- 01130 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 01140 ? *CFS 00006 RIHT 12-09-81 DMG SERIOUS 01150 01160 ORIGINATOR NAME & PHONE: Peter Godfrin 401/278-8218 01170 01180 BRIEF DESCRIPTION. CCS/LA/BOTH : LA 01190 On return from HISTORY, account is not re-assigned to CLIENT 01200 01210 FULL DESCRIPTION: 01220 On returns from history, the account is not properly updated. It is 01230 necessary to save and restore the current client assigned, date re- 01240 ferred to that client and amount referred in order for client track- 01250ÐÐ ing to be effective. 01260 _ 01270 RESOLUTION. DATE: 12-09-81 ANALYST:DMG 01280 The LASUMHIST file description should be re-defined as follows: 01290 Account product type field (position 643, length 4) used for current 01300 client; account open date (position 647, length 6) used for date re- 01310 ferred and amount delinquent (position 653, length 9) used for amount 01320 referred. 01330 Obviously, then the account movement to history must be changed to save 01340 these fields and the update from history must be modified to restore 01350 them. In addition, the return module must update the client name and 01360 address in the account record and if the client is no longer on file, 01370 set the client number in the previous client field and print a message 01380 indicating that client XXXX not found. 01390------------------------------------------------------------------------ 01400 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 01410 ? *CFS 00007 RIHT 12-09-81 DMG SERIOUS 01420 01430 ORIGINATOR NAME & PHONE: Peter Godfrin 401/278-8218 01440 01450 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 01460 Procedure stream PRFLM017 is incorrect 01470 01480 FULL DESCRIPTION: 01490 Procedure stream PRFLM017 is incorrect in that it contains a program 01500ÐÐ call to LCLIUD. 01510 In addition it is suggested that the program CHEKID be eliminated so 01520 that this selection can be run at a user terminal where most entries 01530 are made. Futhermore, depending on the CRT type, this selection can 01540 not be executed at the master console. 01550 RESOLUTION. DATE: __-__-__ ANALYST:________ 01560 _ 01570------------------------------------------------------------------------ 01580 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 01590 *CFS 00008 RIHT 12-09-81 DMG SERIOUS 01600 01610 ORIGINATOR NAME & PHONE: Peter Godfrin 401/278-8218 01620 01630 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 01640 Date account last updated by A/R is BLANK 01650 01660 FULL DESCRIPTION: 01670 Date account last updated by A/R system should be updated each time 01680 the account is updated via LUPDAT. 01690 _ 01700 _ 01710 _ 01720 RESOLUTION. DATE: 12-09-81 ANALYST:DMG 01730 Currently this field (position 857 in LADLQMST) is blank on ADDs. 01740------------------------------------------------------------------------ 01750ÐÐ PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 01760 *CFS 00009 CIT 12-10-81 DMG SERIOUS 01770 01780 ORIGINATOR NAME & PHONE: Theresa Bessonette 313/762-0612 01790 01800 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 01810 Trend analysis incorrectly states newly added totals 01820 01830 FULL DESCRIPTION: 01840 The Trend Analysis Report is incorrect. It appears that inactive 01850 accounts (R,S,W) are included in the newly added totals. 01860 (Many other problems existed in Trend which was fixed within this PSR) 01870 01880 01890 RESOLUTION. DATE: 12-15-82 ANALYST: RWE 01900 See U.TRENDF,TRTRENDP,TFCMPACC/CCS149 for L&A see U.LTRNDF,TRLTRNDP, 01910 Program CMPACC handles both CCS & LA. 01920------------------------------------------------------------------------ 01930 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 01940 ? *CFS 00010 CBBX 12-22-81 DMG SERIOUS 01950 01960 ORIGINATOR NAME & PHONE: Revell Mantell 914/328-1233 01970 01980 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 01990 Year-round letter date is incorrectly calculated. 02000ÐÐ 02010 FULL DESCRIPTION: 02020 If letter date is keyed as 0101 without the year, COLECT and LEGAL 02030 APPEND "81" instead of "82". 02040 _ 02050 _ 02060 _ 02070 RESOLUTION. DATE: __-__-__ ANALYST:________ 02080 _ 02090If a yr is not entered, ithe default is to the next yr the mo/day are valid02100 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 02110 ? *CFS 00011 DBT 12-22-81 DMG URGENT 02120 02130 ORIGINATOR NAME & PHONE: Anne Leisiger 313/222-5051 02140 02150 BRIEF DESCRIPTION. CCS/LA/BOTH : CCS 02160 DALIST to tape does not sense end of tape 02170 02180 FULL DESCRIPTION: 02190 See above. 02200 _ 02210 _ 02220 _ 02230 _ 02240 RESOLUTION. DATE: 12-22-81 ANALYST:DMG 02250ÐÐ The Daily Assignment Report to tape program does not handle multi- 02260 reel output. 02270------------------------------------------------------------------------ 02280 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 02290 ? *CFS 00012 AGAFAC 01-25-83 KAW SERIOUS 02300 02310 ORIGINATOR NAME & PHONE: KATHY WILLIAMS 404/441-3295 02320 02330 BRIEF DESCRIPTION. CCS/LA/BOTH : LA 02340 LAXTRT doesn't check for deleted records. 02350 02360 FULL DESCRIPTION: 02370 The CCS to LA extract program, LAXTRT, doesn't check for deleted 02380 DELQMST records before passing to LADLQMST. The impact is that records 02390 marked for deletion from a name change or history run will be passed 02400 to LADLQMST; therefore, using file space unnecessarily. 02410 02420 RESOLUTION. DATE: __-__-__ ANALYST:________ 02430 _ 02440------------------------------------------------------------------------ 02450 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 02460 ? *CFS 00013 MNBT 02-25-82 DMG SERIOUS 02470 02480 ORIGINATOR NAME & PHONE: Bob Cassman 317/267-7412 02490 02500ÐÐ BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 02510 RSW flag change 02520 02530 FULL DESCRIPTION: 02540 When making changes to the RSW flag, the date last update by A/R 02550 system should be updated with the system date. This takes care 02560 of accounts which were added, (date not filled in) and then were 02570 inactivated manually. 02580 _ 02590 RESOLUTION. DATE: __-__-__ ANALYST:________ 02600 _ 02610------------------------------------------------------------------------ 02620 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 02630 ? *CFS 00014 DBT 01-03-83 DMG SERIOUS 02640 02650 ORIGINATOR NAME & PHONE: Anne Leisinger 313/222-3076 02660 02670 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 02680 CHUPD2 02690 02700 FULL DESCRIPTION: 02710 When CHUPD2 updates an account from SUMHIST, it builds a record in 02720 the ACTFIL for the on-line block. The program should first check 02730 the length for blank and skip the ACTFIL entry if the test is true. 02740 (len = blank) 02750ÐÐ _ 02760 RESOLUTION. DATE: __-__-__ ANALYST:________ 02770 _ 02780------------------------------------------------------------------------ 02790 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 02800 ? *CFS 00015 NCB 11-15-82 GBO Serious_ 02810 02820 ORIGINATOR NAME & PHONE: Dorothy Morcarski 216-575-9352 02830 02840 BRIEF DESCRIPTION. CCS/LA/BOTH : CCS 02850When reading in Update Tape , System hangs as though it's waiting to 02860update an account. 02870 FULL DESCRIPTION: 02880If an acct is being worked by an adjuster, and the update tape is be- 02890ing read in, when the system tried to update that acct it has to wait 02900for that acct to be released, therefore the tape stops processing until 02910the acct is released. Several times the tape has stopped processing for 02920as long as an hour, the terminals were checked to see if that acct 02930was up on a screen, it was not. The operator would ask that each 02940Adjuster log off, if time was important at the moment and the tape 02950would continue to process. Otherwise it would hang there indefinite. 02960One day 3 1/2 hrs. 02970 RESOLUTION. DATE: __-__-__ ANALYST:________ 02980 _ 02990------------------------------------------------------------------------ 03000ÐÐ PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 03010 ? *CFS 00016 HNB 02-07-83 FJJ SERIOUS_ 03020 03030 ORIGINATOR NAME & PHONE: Bob Parent 203/728-4574 03040 03050 BRIEF DESCRIPTION. CCS/LA/BOTH : BOTH 03060 Displayed activities on the Detail List Report. 03070 03080 FULL DESCRIPTION: 03090 CCS does not accomadate activities that will go below 00. 03100 _ 03110 _ 03120 _ 03130 _ 03140 RESOLUTION. DATE: 02-07-83 ANALYST:FJJ 03150 Corrective code change: MOVE '00' change to MOVE ' ' 03160------------------------------------------------------------------------ 03170 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 03180 ? *CFS 00017 SCNB 03-03-83 KAW SERIOUS 03190 03200 ORIGINATOR NAME & PHONE: Lisa Winters 803/765-3406 03210 03220 BRIEF DESCRIPTION. CCS/LA/BOTH : LA 03230 Report Generator doesn't pick up all accts that meet selection criteria 03240 03250ÐÐ FULL DESCRIPTION: 03260 -Selection criteria in this situation was an amt. field > 0. Accts were 03270 found with $$ > 0 that didnt print on report. CCSDMPs showed these 03280 accts were positive SIGNED (sign field = A - I) numeric. CCSDMPs and 03290 matrix & report output sent to NY office. 03300 _ 03310 RESOLUTION. DATE: __-__-__ ANALYST:________ 03320 _ 03330------------------------------------------------------------------------ 03340 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 03350s? *CFS 00018 _WFSJ 016-2583 _SAH URGENT 03360 03370 ORIGINATOR NAME & PHONE: M KIYOTA 415-396-3775 03380 03390 BRIEF DESCRIPTION. CCS/LA/BOTH : LA 03400 ogging of users in payment entry if account is locked to amouther user 03410 03420 FULL DESCRIPTION: 03430 The payment entry subroutine (PAYENT) checks if an account number is 03440 valid by doing a READR on the master file and rejecting(FM error and 03450 _ 03460 _ 03470 _ 03480 RESOLUTION. DATE: __-__-__ ANALYST:________ 03490 _ 03500ÐÐ------------------------------------------------------------------------ 03510 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 03520 ? *CFS _____ ________ 01-25-83 ________ ________ 03530 03540 ORIGINATOR NAME & PHONE: _______________________________________ 03550 03560 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 03570 ______________________________________________________________________ 03580 03590 FULL DESCRIPTION: 03600 _ 03610 _ 03620 _ 03630 _ 03640 _ 03650 RESOLUTION. DATE: __-__-__ ANALYST:________ 03660 _ 03670------------------------------------------------------------------------ 03680 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 03690 ? *CFS _____ ________ 01-25-83 ________ ________ 03700 03710 ORIGINATOR NAME & PHONE: _______________________________________ 03720 03730 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 03740 ______________________________________________________________________ 03750ÐÐ 03760 FULL DESCRIPTION: 03770 _ 03780 _ 03790 _ 03800 _ 03810 _ 03820 RESOLUTION. DATE: __-__-__ ANALYST:________ 03830 _ 03840------------------------------------------------------------------------ 03850 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 03860 ? *CFS _____ ________ 01-25-83 ________ ________ 03870 03880 ORIGINATOR NAME & PHONE: _______________________________________ 03890 03900 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 03910 ______________________________________________________________________ 03920 03930 FULL DESCRIPTION: 03940 _ 03950 _ 03960 _ 03970 _ 03980 _ 03990 RESOLUTION. DATE: __-__-__ ANALYST:________ 04000ÐÐ _ 04010------------------------------------------------------------------------ 04020 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 04030 ? *CFS _____ ________ 01-25-83 ________ ________ 04040 04050 ORIGINATOR NAME & PHONE: _______________________________________ 04060 04070 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 04080 ______________________________________________________________________ 04090 04100 FULL DESCRIPTION: 04110 _ 04120 _ 04130 _ 04140 _ 04150 _ 04160 RESOLUTION. DATE: __-__-__ ANALYST:________ 04170 _ 04180------------------------------------------------------------------------ 04190 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 04200 ? *CFS _____ ________ 01-25-83 ________ ________ 04210 04220 ORIGINATOR NAME & PHONE: _______________________________________ 04230 04240 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 04250ÐÐ ______________________________________________________________________ 04260 04270 FULL DESCRIPTION: 04280 _ 04290 _ 04300 _ 04310 _ 04320 _ 04330 RESOLUTION. DATE: __-__-__ ANALYST:________ 04340 _ 04350------------------------------------------------------------------------ 04360 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 04370 ? *CFS _____ ________ 01-25-83 ________ ________ 04380 04390 ORIGINATOR NAME & PHONE: _______________________________________ 04400 04410 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 04420 ______________________________________________________________________ 04430 04440 FULL DESCRIPTION: 04450 _ 04460 _ 04470 _ 04480 _ 04490 _ 04500ÐÐ RESOLUTION. DATE: __-__-__ ANALYST:________ 04510 _ 04520------------------------------------------------------------------------ 04530 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 04540 ? *CFS _____ ________ 01-25-83 ________ ________ 04550 04560 ORIGINATOR NAME & PHONE: _______________________________________ 04570 04580 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 04590 ______________________________________________________________________ 04600 04610 FULL DESCRIPTION: 04620 _ 04630 _ 04640 _ 04650 _ 04660 _ 04670 RESOLUTION. DATE: __-__-__ ANALYST:________ 04680 _ 04690------------------------------------------------------------------------ 04700 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 04710 ? *CFS _____ ________ 01-25-83 ________ ________ 04720 04730 ORIGINATOR NAME & PHONE: _______________________________________ 04740 04750ÐÐ BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 04760 ______________________________________________________________________ 04770 04780 FULL DESCRIPTION: 04790 _ 04800 _ 04810 _ 04820 _ 04830 _ 04840 RESOLUTION. DATE: __-__-__ ANALYST:________ 04850 _ 04860------------------------------------------------------------------------ 04870 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 04880 ? *CFS _____ ________ 01-25-83 ________ ________ 04890 04900 ORIGINATOR NAME & PHONE: _______________________________________ 04910 04920 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 04930 ______________________________________________________________________ 04940 04950 FULL DESCRIPTION: 04960 _ 04970 _ 04980 _ 04990 _ 05000ÐÐ _ 05010 RESOLUTION. DATE: __-__-__ ANALYST:________ 05020 _ 05030------------------------------------------------------------------------ 05040 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 05050 ? *CFS _____ ________ 01-25-83 ________ ________ 05060 05070 ORIGINATOR NAME & PHONE: _______________________________________ 05080 05090 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 05100 ______________________________________________________________________ 05110 05120 FULL DESCRIPTION: 05130 _ 05140 _ 05150 _ 05160 _ 05170 _ 05180 RESOLUTION. DATE: __-__-__ ANALYST:________ 05190 _ 05200------------------------------------------------------------------------ 05210 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 05220 ? *CFS _____ ________ 01-25-83 ________ ________ 05230 05240 ORIGINATOR NAME & PHONE: _______________________________________ 05250ÐÐ 05260 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 05270 ______________________________________________________________________ 05280 05290 FULL DESCRIPTION: 05300 _ 05310 _ 05320 _ 05330 _ 05340 _ 05350 RESOLUTION. DATE: __-__-__ ANALYST:________ 05360 _ 05370------------------------------------------------------------------------ 05380 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 05390 ? *CFS _____ ________ 01-25-83 ________ ________ 05400 05410 ORIGINATOR NAME & PHONE: _______________________________________ 05420 05430 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 05440 ______________________________________________________________________ 05450 05460 FULL DESCRIPTION: 05470 _ 05480 _ 05490 _ 05500ÐÐ _ 05510 _ 05520 RESOLUTION. DATE: __-__-__ ANALYST:________ 05530 _ 05540------------------------------------------------------------------------ 05550 PSR IDENTIFIER SITE ID DATE ANALYST PRIORITY 05560 ? *CFS _____ ________ 01-25-83 ________ ________ 05570 05580 ORIGINATOR NAME & PHONE: _______________________________________ 05590 05600 BRIEF DESCRIPTION. CCS/LA/BOTH : ____ 05610 ______________________________________________________________________ 05620 05630 FULL DESCRIPTION: 05640 _ 05650 _ 05660 _ 05670 _ 05680 _ 05690 RESOLUTION. DATE: __-__-__ ANALYST:________ 05700 _ 05710------------------------------------------------------------------------ 05720 05730 05740_‚ ÐÐ _‚_‚OLUTION. DATE: __-__-__ ANALYST:________ 05700 _ 05710------------------------------------------------------------------------ 05720 05730 05740_‚ ÐÈ(Ü_† ÜqTPVAULT CFS P 999999012683(èÈÐ REVISED: 07-19-84 00010 00020 **COLOR CODE 00030 ---------- 00040 BLUE 100-199 CFS - Demo System 00050 RED 200-299 CFS - ITK 00060 YELLOW 300-399 CFS - General 00070 *GREEN 400-499 Customer Sites 00080 ORANGE 500-599 LJL - LaJolla Hostage Tapes 00090 *GREEN 600-699 Customer Sites (continued) 00100 00110 00120 00130 00140 00150 CHICAGO DEMO CENTER 00160 TAPE VAULT STORAGE 00170 00180 SITE ** 00190 ID TAPE NO. CONTENTS BPI TAPE DATE 00200 ---- -------- ---------------------------------- --- --------- 00210 00220 BOC 400 DTLP - CCS 3.0-4 1600 09-30-83 00230 00240 BOC 429 EDTLP: SYSVOL Tape 1 of 3 1600 12-20-83 00250ÐÐ 00260 BOC 430 EDTLP: SYSVOL Tape 2 of 3 1600 12-20-83 00270 00280 BOC 431 EDTLP: SYSVOL Tape 3 of 3 1600 12-20-83 00290 00300 BOC 432 EDTLP: CDD01 Tape 1 of 3 1600 12-20-83 00310 00320 BOC 433 EDTLP: CDD01 Tape 2 of 3 1600 12-20-83 00330 00340 BOC 434 EDTLP: CDD01 Tape 3 of 3 1600 12-20-83 00350 00360 00370 BOC 601 EDTLP: (Run-on) 1600 02/13/84 00380 00390 BOC 602 EDTLP: (Test System -- MAB Protect Violation) 00400 00410 BOC 603 EDTLP: 00420 00430 BOC 604 EDTLP: 00440 00450 BOC 605 EDTLP: 00460 00470 BOC 606 EDTLP: 00480 00490 BOC 607 EDTLP: 00500ÐÐ 00510 00520 00530 00540 00550 CARL/ 482 UT DUMP of: 800 10-12-83 00560 CARU OW = CARL / D.PROFIL 00570 OW = CARU / U.MHUPDT,B.MHUPDT, 00580 U.MHUPDX,B.MHUPDX,I.MHUPDX, 00590 U.CCSDMP,I.CCSDMP,B.CCSDMP, 00600 D.TAPE,D.PROFIL,SITEDOC 00610 00620 00630 00640 00650 00660 00670 00680 00690 00700 CBLM 401 Citibank - BDP Subroutines 800 12-07-79 00710 (*BATCH,6) 00720 00730 CBLM 402 UT DUMP of Citibank Specials 800 05-21-81 00740 00750ÐÐ CBLM 403 UT DUMP of SRC Files (Citibank) 800 01-22-80 00760 00770 00780 00790 00800 CFS 100 DTLP50 (Before Compression) 800 06-27-84 00810 (See #128 for DTLP50 after compression) 00820 00830 CFS 101 DTLP (CCS 3.0-5)(UHC 12/09/83) 800 09-22-83 00840 00850 CFS 102 Demo System Patches 1600 01-06-83 00860 (DMPFIL of MODEMCHG) 00870 00880 CFS 103 EDTLP: SYSVOL Tape 1 of 1 1600 07-07-84 00890 00900 CFS 104 EDTLP: DEVEL Tape 1 of 3 1600 07-07-84 00910 00920 CFS 105 EDTLP: DEVEL Tape 2 of 3 1600 07-07-84 00930 00940 CFS 106 EDTLP: DEVEL Tape 3 of 3 1600 07-07-84 00950 00960 CFS 107 EDTLP: SITES Tape 1 of 2 1600 07-07-84 00970 00980 CFS 108 EDTLP: SITES Tape 2 of 2 1600 07-07-84 00990 01000ÐÐ CFS 109 EDTLP: CATLOG Tape 1 of 3 1600 07-07-84 01010 01020 CFS 110 EDTLP: CATLOG Tape 2 of 3 1600 07-07-84 01030 01040 CFS 111 EDTLP: CATLOG Tape 3 of 3 1600 07-07-84 01050 01060 CFS 112 01070 01080 CFS 113 01090 01100 CFS 114 01110 01120 CFS 115 01130 01140 CFS 116 01150 01160 CFS 117 01170 01180 CFS 118 01190 01200 CFS 119 01210 01220 CFS 120 01230 01240 01250ÐÐ 01260 01270 01280 01290 01300 01310 01320 CFS 121 01330 01340 CFS 122 01350 01360 CFS 123 01370 01380 CFS 124 SUMHIST (CFS Demo System) 1600 08-16-83 01390 01400 CFS 125 HISTORY TAPE (CFS Demo System) 1600 08-16-83 01410 01420 CFS 126 Chicago Demo System DTLP 1600 05-02-83 01430 w/LA Demo Subset 01440 01450 CFS 127 UT DUMP of All Sites - D.PROFIL 1600 10-12-83 01460 01470 CFS 128 DTLP50 (After Compression) 800 07/18/84 01480 01490 CFS 129 DTLP50 1600 07/18/84 01500ÐÐ 01510 01520 01530 01540 01550 01560 01570 CFS 130 CFS Calls Activities for 800 09-30-83 01580 Aug., Sept. - 1983 (MTH01) 01590 01600 CFS 131 CFS Calls Activities for 800 10-31-83 01610 Oct. - 1983 (MTH02) 01620 01630 CFS 132 CFS Calls Activities for 1600 12-02-83 01640 Nov. - 1983 (MTH03) 01650 01660 CFS 133 CFS Calls Activites for 1600 01-05-84 01670 Dec. - 1983 (MTH04) 01680 01690 CFS 134 CFS Calls Activities for 1600 03-01-84 01700 Feb. - 1984 01710 CFS 135 CFS CALLS ACTIVITIES FOR 1600 03-31-84 01720 MAR. - 1984 01730CFS 136 CFS CALLS ACTIVITIES FOR 1600 05-31-84 01740 MAY - 1984 01750ÐÐCFS 137 CFS CALLS ACTIVITIES FOR 1600 06-29-84 01760 JUNE - 1984 01770 01780 01790 01800 01810 01820 01830 01840 01850 01860 01870 01880 CFS 200 CCS 3.0-1 EDTLP (ITK) ???? 800 03-20-82 01890 01900 CFS 201 CCS 3.0-1 EDTLP (ITK) 800 03-20-82 01910 01920 CFS 202 CCS 3.0 UPDATE 500 P to P (ITK) 1600 03-11-82 01930 01940 CFS 203 CCS 3.0 REACTIVE SUMHIST (ITK) 1600 03-11-82 01950 01960 CFS 204 CCS 3.0 UPDATE 400 Non-Financial 1600 03-11-82 01970 (ITK) 01980 CFS 205 CCS 3.0 REACTIVE INACTIVE (ITK) 1600 03-11-82 01990 02000ÐÐ CFS 206 CCS 3.0 UPDATE 500 Payment 1600 03-11-82 02010 Stacking (ITK) 02020 02030 CFS 207 CCS 3.0 L/A LUD500 Financial 1 1600 03-11-82 02040 (ITK) 02050 02060 CFS 208 CCS 3.0 L/A LUD500 Financial 2 1600 03-11-82 02070 (ITK) 02080 02090 CFS 209 CCS 3.0 L/A UPDATE WRITEOFF (ITK) 1600 03-11-82 02100 02110 CFS 210 CCS 3.0-4 EDTLP (ITK) 56 Term. Sys. 800 11-04-82 02120 02130 CFS 211 CCS 3.0-4 DTLP (ITK) 56 Term. Sys. 800 11-04-82 02140 02150 CFS 212 CCS 3.0-4 DTLP w/LA after ITK 800 11-05-82 02160 02170 CFS 213 CCS 3.0 SYSTEM DTLP (ITK) 1600 03-11-82 02180 02190 CFS 214 CCS 3.0-5 EDTLP (ITK) 1600 03-17-83 02200 56 Terminal (RWE) 02210 02220 CFS 215 CCS 3.0 SYSTEM EDTLP (ITK) 1600 03-11-82 02230 (5-13-80) 02240 02250ÐÐ CFS 216 CCS 3.0 SYSTEM EDTLP (ITK) 03-11-82 02260 (5-13-80) 02270 (*SPECIAL NOTE: TAPES #215 & 216 -- were almost scratched 02280 in error. Tape 216 does not have original label. A 02290 CCSDMP is attached to each tape in the vault.) 02300 02310 02320 02330 02340 02350 02360 CFS 300 CCS 3.0 File Library Compression 800 10-17-81 02370 File 1: PGLDMP Install 02380 File 2: CLRSAT Install 02390 (Original) 02400 02410 CFS 301 CCS 3.0 File Library Compression 800 10-17-81 02420 File 1: PGLDMP Install 02430 File 2: CLRSAT Install 02440 (Copy of Tape #300) 02450 02460 CFS 302 CCS 3.0 Commercial Instruction Set 800 12-31-82 02470 Update Install (For DML & STRING Compare) 02480 (Original Copy) 02490 02500ÐÐ CFS 303 CCS 3.0 Commercial Instruction Set 800 12-31-82 02510 Update Install (For DML & String Compare) 02520 (Copy of Tape #302) 02530 02540 CFS 304 CCS 3.0 Install Commercial 800 04-29-82 02550 Instruction Set Update (MAB) 02560 02570 CFS 305 CCS 3.0, SL149 RPG Applications 800 05-07-81 02580 Source Files (CUDDLY) 02590 02600 CFS 306 CCS 3.1, SL173 RPG Applications 1600 06-30-82 02610 (CUDDLY) (COPY) 02620 02630 CFS 307 CCS 3.0, SL149 Report Generator 800 10-30-81 02640 with Scratch Relocator 02650 02660 CFS 308 CCS 3.0, SL149 Scratch Relocator 800 12-31-81 02670 Install Files 02680 02690 CFS 309 CCS 3.0, SL149 Scratch Relocator 800 01-18-82 02700 Install Files (COPY) 02710 02720 CFS 310 Soft Version 3 Install (*BATCH,6) 800 ?? 02730 02740 CFS 311 Easy Screen Source Files 800 ?? 02750ÐÐ 02760 CFS 312 DUMP of Easy Screen/Tools 800 08-29-78 02770 02780 CFS 313 Easy Screen: Source Files, 800 03-05-79 02790 Documentation Files, 02800 Work Files 02810 02820 CFS 314 UT DUMP of Council Craftsman 800 05-04-79 02830 Source: Order Entry, 02840 Accounts Receivable 02850 02860 CFS 315 CCS 3.0 DTLP (5-Vol. Work System) 800 ?? 02870 02880 CFS 316 CCS EDTLP (DEMOFILE) 800 6-81 02890 02900 CFS 317 WHIZBANG, SL141L (Product Set Loaded) ? 05-27-82 02910 02920 CFS 318 ITOS 2.0 Source ? 04-29-82 02930 02940 CFS 319 UT DUMP of Screen Routines for 800 07-18-79 02950 ITOS 2.0 02960 02970 CFS 320 ITOS 2.0, House 3 UT DUMP Format 800 03-05-82 02980 02990 CFS 321 Source Pack - DTLP of Source ? 01-29-81 03000ÐÐ Listings - RRS System 03010 03020 CFS 322 DUMP of Haskel SYSVOL (Final Pack) 800 03-25-79 03030 03040 CFS 323 DUMP of MFG001 Haskel Info ? 03-22-79 03050 03060 CFS 324 DUMP of HSOURCE2 (Final Haskel Pack) ? 03-23-79 03070 03080 CFS 325 ITOS 2.0, House 3 Operating System 800 03-05-82 03090 DTLP DUMP (SYSVOL ONLY) Tape 1 of 2 03100 03110 CFS 326 ITOS 2.0, House 3 Operating System 800 03-05-82 03120 DTLP DUMP (SYSVOL ONLY) Tape 2 of 2 03130 03140 CFS 327 DTLP CCS 3.0/84 Term. from LaJolla 800 09-11-83 03150 No L/A 03160 03170 CFS 328 Install EDTLP BINARIES (*BATCH,6) 800 06-15-83 03180 03190 CFS 329 109 Patch Tape (via DUMP File) 1600 12-10-82 03200 03210 CFS 330 EDTLP Install Tape (CCS L173) 1600 09-09-83 03220 Installs: EDTLP / EDTLPF (RJS) 03230 03240 CFS 331 -COPY- Program Library Compress 1600 08-08-83 03250ÐÐ F1 = PGLDMP Install 03260 F2 = CLRSAT Install 03270 03280 CFS 332 EDTLP CCS 3.0-6.56 (ITK) 1600 11-07-83 03290 03300 03310 03320 CFS 333 CCS LOOK-ALIKE Install (*BATCH,6) 800 11-08-83 03330 CCSLKL-4 (RWE) 03340 03350 CFS 334 DTLP / CCS 3.0-6.56 W/LA (ITK) 800 11-08-83 03360 03370 03380 CFS 335 EDTLP / CCS 3.0-6.56 W/LA (ITK) 800 11-08-83 03390 03400 03410 CFS 336 DTLP / CCS 3.0-6.56 Terminal (ITK) 800 11-07-83 03420 03430 CFS 337 DTLP / CCS 3.0-6.84 W/LA (ITK) 800 11-09-83 03440 03450 CFS 338 EDTLP / CCS 3.0-6.84 Terminal (ITK) 800 11-09-83 03460 03470 CFS 339 DTLP / CCS 3.0-6.84 Terminal (ITK) 800 11-09-83 03480 03490 CFS 340 EDTLP / CCS 3.0-7.56 (ITK) 800 02-21-84 03500ÐÐ 03510 CFS 341 EDTLP / CCS 3.0-7.56 W/LA (ITK) 800 02-21-84 03520 03530 CFS 342 EDTLP / CCS 3.0-7.84 (ITK) 800 02-21-84 03540 03550 CFS 343 EDTLP / CCS 3.0-7.84 W/LA (ITK) 800 02-22-84 03560 03570 CFS 344 CCS LOOK-ALIKE Install (*BATCH,6) 800 02-20-84 03580 CCSLKL-5 03590 03600 CFS 345 LA 3.1 W/O LKL-4 Install Tape (RWE) 800 11-08-83 03610 (*BATCH,6) 03620 03630 CFS 346 DTLP - CCS3.0-7.56 W/LA (ITK) 800 06-24-84 03640 03650 03660 03670 03680 03690 03700 CIT 478 EDTLP: SYSVOL Tape 1 of 2 1600 09-06-83 03710 03720 CIT 479 EDTLP: SYSVOL Tape 2 of 2 1600 09-06-83 03730 03740 CIT 480 EDTLP: CDD01 Tape 1 of 2 1600 09-06-83 03750ÐÐ 03760 CIT 481 EDTLP: CDD01 Tape 2 of 2 1600 09-06-83 03770 03780 CIT 487 DTLP (Before Compression) 800 10-05-83 03790 03800 CIT 488 DTLP (Compressed) 800 10-05-83 03810 03820 CIT 489 EDTLP: SYSVOL Tape 1 of 2 1600 11-07-83 03830 (After Compression) 03840 03850 CIT 490 EDTLP: SYSVOL Tape 2 of 2 1600 11-07-83 03860 03870 03880 03890 CLCL 499 EDTLP: Tape 1 of 2 1600 12-26-83 03900 (Above tape sent to MAB 5/15/84) 03910 CLCL 600 EDTLP: Tape 2 of 2 1600 12-26-83 03920 (Above tape sent to MAB 5/15/84) 03930 03940 03950 03960 03970 03980 03990 CMB 474 DTLP50 1600 08-19-83 04000ÐÐ 04010 CMB 483 EDTLP: SYSVOL Tape 1 of 1 1600 10-20-83 04020 04030 CMB 484 EDTLP: CDD01 Tape 1 of 3 1600 10-20-83 04040 04050 CMB 485 EDTLP: CDD01 Tape 2 of 3 1600 10-20-83 04060 04070 CMB 486 EDTLP: CDD01 Tape 3 of 3 1600 10-20-83 04080 04090 04100 04110 04120 04130 DBT 448 EDTLP: SYSVOL Tape 1 of 3 1600 01-27-83 04140 04150 DBT 449 EDTLP: SYSVOL Tape 2 of 3 1600 01-27-83 04160 04170 DBT 450 EDTLP: SYSVOL Tape 3 of 3 1600 01-27-83 04180 04190 DBT 451 EDTLP: CDD01 Tape 1 of 5 1600 01-27-83 04200 04210 DBT 452 EDTLP: CDD01 Tape 2 of 5 1600 01-27-83 04220 04230 DBT 453 EDTLP: CDD01 Tape 3 of 5 1600 01-27-83 04240 04250ÐÐ DBT 454 EDTLP: CDD01 Tape 4 of 5 1600 01-27-83 04260 04270 DBT 455 EDTLP: CDD01 Tape 5 of 5 1600 01-27-83 04280 04290 04300 04310 04320 04330 GENS 467 Program Library Compress 1600 08-09-83 04340 04350 GENS 472 Compressed DTLP 800 08-24-83 04360 04370 GENS 473 EDTLP (GNSP - Special System/SAH) 1600 02-24-83 04380 04390 04400 04410 04420 04430 04440 HNB 404 CCS 3.0-4 DTLP 800 11-04-82 04450 04460 HNB 441 EDTLP: SYSVOL Tape 1 of 1 800 02-12-84 04470 04480 HNB 442 EDTOP: CDD01 Tape 1 of 1 800 02-12-84 04490 04500ÐÐ HNB 443 EDTLP: CDD02 Tape 1 of 2 800 02-14-84 04510 04520 HNB 444 EDTLP: CDD02 Tape 2 of 2 800 02-12-84 04530 04540 HNB 445 EDTLP: CDD03 Tape 1 of 2 800 02-12-84 04550 04560 HNB 446 EDTLP: CDD03 Tape 2 of 2 800 02-12-84 04570 04580 04590 04600 04610 04620 04630 04640 04650 04660 LIB 405 EDTLP (SYSVOL ONLY) Tape 1 of 4 800 06-26-82 04670 04680 LIB 406 EDTLP (SYSVOL ONLY) Tape 2 of 4 800 06-26-82 04690 04700 LIB 407 EDTLP (SYSVOL ONLY) Tape 3 of 4 800 06-26-82 04710 04720 LIB 408 EDTLP (SYSVOL ONLY) Tape 4 of 4 800 06-26-82 04730 04740 LIB 428 Compressed DTLP as of 12-14-82 800 01-18-83 04750ÐÐ 04760 LIB 496 EDTLP: CDD01 Tape 1 of 3 800 06-26-82 04770 04780 LIB 497 EDTLP: CDD01 Tape 2 of 3 800 06-26-82 04790 04800 LIB 498 EDTLP: CDD01 Tape 3 of 3 800 06-26-82 04810 04820 04830 04840 LJL 500 CCS3.0 L/A Applications-COSY 800 05-07-80 04850 04860 LJL 501 CCS3.0 L/A RPG Applications-CUDDLY 800 05-11-80 04870 04880 LJL 502 CCS3 L/A Applications Install 800 04-15-81 04890 - QSS 24127 (03-QS-003) 04900 04910 LJL 503 CCS3.1 L/A RPG Applications-CUDDLY 800 12-30-81 04920 04930 LJL 504 CCS3.1 L/A RPG Applications-CUDDLY 800 12-30-81 04940 (COPY) 04950 04960 LJL 505 CCS3.1 L/A Applications Install 800 01-14-82 04970 (Binary) 04980 04990 LJL 506 CCS3.1 L/A Install (*BATCH,6) 800 08-04-82 05000ÐÐ 05010 LJL 507 CCS3.1 L/A Install (*BATCH,6) 1600 08-04-82 05020 05030 LJL 508 PGLDMP WF SYSTEM (84 TERMINAL) 1600 11-17-81 05040 05050 LJL 509 UT DUMP of SIGNON3,F3780,SIGNOFF, 800 ?? 05060 DN,AJOB -- ID=$$ 05070 05080 LJL 510 UTBATC Install 800 02-15-82 05090 05100 LJL 511 CCS3 - I&E Copy, Cycle 2, File= 800 03-18-?? 05110 CCSITO.C (03-01-019) 05120 05130 LJL 512 CCS3 - Cycle 2, UT DUMP of CCSITO.C 800 03-08-80 05140 (03-01-018) 05150 05160 LJL 513 UT DUMP of CCSPAM.C (03-00-033) 800 03-11-80 05170 05180 LJL 514 CCS3 Operating System, Part 2 - 800 03-12-80 05190 Install (03-01-020) 05200 05210 LJL 515 Operating System, Part 1 - Install 800 05-13-80 05220 (03-00-018) 05230 05240 LJL 516 Operating System, Part 2 - Install 800 05-13-80 05250ÐÐ (03-00-021) 05260 05270 LJL 517 Operating System, Part 3 - Install 800 05-13-80 05280 (FORTRAN Compiler Binary) (03-00-020) 05290 05300 LJL 518 CCS3, SL149, RPG Application 800 09-18-8 1 05310 (03-01-025) 05320 05330 LJL 519 CCS3.0 - Product Test, Operating 800 12-14-79 05340 System/DTLP (03-01-016) 05350 05360 LJL 520 CCS3.0-Cycle "Clean-Up" Submittal 800 05-12-80 05370 (03-00-040) 05380 05390 LJL 521 CCS3 - UT DUMP: Cycle "Clean-Up" 800 05-07-80 05400 Submittal (Binary) 05410 05420 LJL 522 CCS3.0, SL149 EDTLP (03-QS-005) 800 02-05-81 05430 05440 LJL 523 CCS3 - DTLP, QSS24127 (03-QS-004 800 02-05-81 05450 05460 LJL 524 CPFILE Install (LIBEDT,*K,I6,*V,6) 800 02-16-79 05470 Binary (03-00-009) 05480 05490 LJL 525 84 TERMINAL PATCH TAPE 11-10-82 05500ÐÐ 05510 05520 LJL 526 SCRATCH RELOCATOR - 84 TERMINAL 05-12-82 05530 05540 05550 LJL 527 CCS CUDDLY (03-01-011) 800 12-06-79 05560 05570 LJL 528 CCS File Load Tape Install 800 05-13-80 05580 05590 LJL 529 RPG II Compiler Install (03-00-012) 800 10-12-81 05600 05610 LJL 530 CCS3.1 RPG Application - CUDDLY 800 12-29-81 05620 05630 LJL 531 CCS3.1 Operating System, Part 2 - 800 01-15-82 05640 Install (Binary) 05650 05660 LJL 532 CCS3.1 Operating System, Part 1 - 800 01-20-82 05670 Install 05680 05690 LJL 533 CCS3.1 RPG Compiler Install (Binary) 800 01-20-82 05700 05710 LJL 534 CCS3.1 Application Install (Binary) 800 01-20-82 05720 05730 LJL 535 CCS3.1 - CCS Load File (Binary) 800 01-21-82 05740 05750ÐÐ LJL 536 CCS3.1 EDTLP/Product Test System 800 01-27-82 05760 05770 LJL 537 Micro Assembler Program Binaries 800 02-03-82 05780 (03-00-022) 05790 05800 LJL 538 CCP Install File (03-01-009) ? 02-09-82 05810 05820 LJL 539 CCP Host Output-Cycle 1 (03-01-021) 800 02-09-82 05830 05840 LJL 540 CCS3.1 - DTLP/Product Test System 800 01-27-82 05850 (Binary) 05860 05870 LJL 541 CCS3, Cycle 2 - CCP House 1 800 02-09-82 05880 Procedure 05890 05900 LJL 542 UT DUMP of LaJolla Hotline 800 02-26-82 05910 Support Programs 05920 05930 LJL 543 EDITOR Install (11-05-79) COPY ?? 01-21-83 05940 *BATCH,6 (1598 Records + 1 File) 05950 05960 LJL 544 TOOLS Source, Documents-- includes ?? 01-21-83 05970 ITOS UT Reload Format (11-7-79) 05980 COPY (7164 Records 65 Files) 05990 06000ÐÐ LJL 545 CCP 1 L446 1600 10-27-83 06010 (tape really is from Arden Hills) 06020 06030 06040 06050 06060 06070 MNBD 466 DTLP50 1600 08-30-83 06080 06090 MNBD 468 EDTLP: SYSVOL Tape 1 of 1 1600 10-06-83 06100 06110 MNBD 469 EDTLP: CDD01 Tape 1 of 2 1600 10-06-83 06120 06130 MNBD 470 EDTLP: CDD01 Tape 2 of 2 1600 10-06-83 06140 06150 MNBD 471 06160 06170 06180 06190 06200 06210 MNBT 475 EDTLP: SYSVOL Tape 1 of 1 800 08-18-83 06220 06230 MNBT 476 PGLDMP 800 09-15-83 06240 06250ÐÐ MNBT 477 DTLP (Compressed) 800 09-20-83 06260 06270 06280 06290 06300 06310 06320 06330 06340 06350 NCB 409 EDTLP: SYSVOL Tape 1 of 3 1600 12-09-82 06360 06370 NCB 410 EDTLP: SYSVOL Tape 2 of 3 1600 12-09-82 06380 06390 NCB 411 EDTLP: SYSVOL Tape 3 of 3 1600 12-09-82 06400 06410 NCB 412 EDTLP: CDD01 Tape 1 of 2 1600 12-09-82 06420 06430 NCB 413 EDTLP: CDD01 Tape 2 of 2 1600 12-09-82 06440 06450 06460 06470 RIHT 447 DTLP - CCS 3.0-4 800 11-04-82 06480 06490 06500ÐÐ 06510 06520 06530 06540 SCNB 456 EDTLP: SYSVOL Tape 1 of 3 1600 12-07-83 06550 06560 SCNB 457 EDTLP: SYSVOL Tape 2 of 3 1600 12-07-83 06570 06580 SCNB 458 EDTLP: SYSVOL Tape 3 of 3 1600 12-07-83 06590 06600 SCNB 459 EDTLP: CDD01 Tape 1 of 3 1600 12-07-83 06610 06620 SCNB 460 EDTLP: CDD01 Tape 2 of 3 1600 12-07-83 06630 06640 SCNB 461 EDTLP: CDD01 Tape 3 of 3 1600 12-07-83 06650 06660 06670 06680 WFSA 436 EDTLP: SYSVOL Tape 1 of 3 1600 01-08-83 06690 06700 WFSA 437 EDTLP: SYSVOL Tape 2 of 3 1600 01-08-83 06710 06720 WFSA 438 EDTLP: SYSVOL Tape 3 of 3 1600 01-08-83 06730 06740 WFSA 439 EDTLP: CDD01 Tape 1 of 2 1600 01-08-83 06750ÐÐ 06760 WFSA 440 EDTLP: CDD01 Tape 2 of 2 1600 01-08-83 06770 06780WFSA 611 DTLP50 (COMPRESSED) 1600 06-07-84 06790 06800 06810 06820 06830 06840 06850 06860 06870 WFSC 414 EDTLP: SYSVOL Tape 1 of 2 1600 ??* 06880 06890 WFSC 415 EDTLP: SYSVOL Tape 2 of 2 1600 ??* 06900 06910 WFSC 416 EDTLP: CDD01 Tape 1 of 2 1600 ??* 06920 06930 WFSC 417 EDTLP: CDD01 Tape 2 of 2 1600 ??* 06940 (*Above tapes not dated - received in 06950 Chicago on 1/13/83) 06960 06970 WFSC 610 DTLP50 (Compressed) 1600 05-24-84 06980 06990 07000ÐÐ 07010 WFSJ 418 EDTLP: SYSVOL Tape 1 of 3 1600 ??* 07020 07030 WFSJ 419 EDTLP: SYSVOL Tape 2 of 3 1600 ??* 07040 07050 WFSJ 420 EDTLP: SYSVOL Tape 3 of 3 1600 ??* 07060 07070 WFSJ 421 EDTLP: CDD01 Tape 1 of 2 1600 ??* 07080 07090 WFSJ 422 EDTLP: CDD01 Tape 2 of 2 1600 ??* 07100 (*Above tapes not dated -- received 07110 in Chicago on 1/13/83) 07120 07130 WFSJ 609 DTLP50 (compressed) 1600 04-25-84 07140 07150 07160 07170 07180 07190 WFWC 423 EDTLP: SYSVOL Tape 1 of 3 1600 ??* 07200 07210 WFWC 424 EDTLP: SYSVOL Tape 2 of 3 1600 ??* 07220 07230 WFWC 425 EDTLP: SYSVOL Tape 3 of 3 1600 ??* 07240 07250ÐÐ WFWC 426 EDTLP: CDD01 Tape 1 of 2 1600 ??* 07260 07270 WFWC 427 EDTLP: CDD01 Tape 2 of 2 1600 ??* 07280 (*Above tapes not dated - received 07290 in Chicago on 1/13/83) 07300 07310 WFWC 435 DTLP50 Library Empty ?? ?? 07320 07330 WFWC 608 DTLP50 (compressed) 1600 04-25-84 07340 07350 07360 07370 07380 WINT 491 EDTLP: SYSVOL Tape 1 of 1 1600 03-25-83 07390 07400 WINT 492 EDTLP: CDD01 Tape 1 of 2 1600 03-25-83 07410 07420 WINT 493 EDTLP: CDD01 Tape 2 of 2 1600 03-25-83 07430 07440 WINT 494 EDTLP: CDD02 Tape 1 of 2 1600 03-25-83 07450 07460 WINT 495 EDTLP: CDD02 Tape 2 of 2 1600 03-25-83 07470_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(XXÙ XúDISKPACKCFS Pâ999999062083(èÈÐ Rev: 07/19/84 00010 00020 CHICAGO DEMO CENTER 00030 DISK PACK IDENTIFICATION 00040 00050 (*=180MB) 00060 VOLUME 00070 SMD NO. S/N NAME CONTENTS 00080 ------- --- ------ --------------------------------- 00090 SMD001 A579876 VOL01 RRS SYSTEM - ITOS 2.0, SL-137 00100 00110 SMD002 A738638 SYSVOL RRS SYSTEM - ITOS 2.0, SL-137 00120 00130 SMD003 A738593 DEMOFILE WIZBANG/DEMOFILE SYSTEM 00140 ITOS 2.0 SL*** 00150 00160 SMD004 A765243 WIZBANG ITOS 2.0, SL*** 00170 00180 SMD005 A736518 CCS3.1 CCS 3.1 ORDER SYSTEM 00190 00200 SMD006 A736912 SOURCE CCS 3.0 84 TERMINAL SYSTEM 00210 00220 SMD007 A575949 SOURCE CCS 3.0 SOURCE DATA + 84 TERMINAL 00230 MODS - (2-12-82) 00240 00250ÐÐ SMD008 A753894 SYSVOL CCS ORDER SYSTEM (2-26-82) 00260 CYCLE #2 00270 00280 SMD009 A395748 SYSVOL ITOS 2.0 N.Y DEMO SYSTEM (5-16-79) 00290 00300 SMD010 A735317 SYSVOL 5 - VOLUME SYSTEM (DRG) 00310 00320 SMD011 A598841 SYSVOL CCS3.0-4 (ITK) TEST INFO FOR 00330 DEMO USAGE/56 TERMINAL 00340 (SEE SMD020) 00350 00360 SMD012 A735548 SYSVOL LJLOPS HOUSE 3 - ITOS 2.0, 00370 LEVEL 152 (3-22-83) 00380 00390 SMD013 A395372 SYSVOL 84 TERMINAL (12-16-82) 00400 00410 SMD014 A754040 SYSVOL -SCRATCH- (INITIALIZED) 00420 Presently Holding - 00430 DTLP CCS 3.0-7-56 W/LA 00440 6-27-84 00450 00460 SMD015 A755703 SYSVOL CCS 3.0-5 ITK (3-17-83) 00470 00480 SMD016 A603900 SYSVOL-OLD CFS DEMO SYSTEM, CCS 3.0-5 MASTER 00490 00500ÐÐ SMD017 A168808 SYSVOL CFS DEMO SYSTEM, CCS 3.0-5 BACKUP 00510 00520 SMD018 A731109 SITES CFS DEMO SYSTEM, CCS 3.0-5 MASTER 00530 00540 SMD019 B327528 SITES CFS DEMO SYSTEM, CCS 3.0-5 BACKUP 00550 00560 SMD020 A788006 CDD01 CCS 3.0-4 (ITK) TEST INFO FOR 00570 DEMO USAGE/56 TERMINAL 00580 (SEE SMD011) 00590 00600 SMD021 T250477* SYSVOL -- SCRATCH -- 00610 PREV HELD - WFWC DTLP Compressed 00620 6-06-84 00630 00640 00650 SMD022 H102363* -- CRASHED!!-- IN FOR REFURB 00660 PREV HELD - CFS DEVEL MASTER 00670 00680 SMD023 B552758* DEVEL CFS DEMO SYSTEM, CCS 3.0-5 BACKUP 00690 00700 SMD024 T250407* CATLOG CFS DEMO SYSTEM, CCS 3.0-5 MASTER 00710 00720 SMD025 T257507* CATLOG CFS DEMO SYSTEM, CCS 3.0-5 BACKUP 00730 00740 SMD026 G134891* SYSVOL --SCRATCH-- 00750ÐÐ PREV HELD - DTLP WFSCA 00760 (Compressed 06-06-84) 00770 00780 00790 SMD027 A733039 SYSVOL-NEW CFS DEMO SYSTEM, CCS 3.0-6 MASTER 00800 DRG SYSTEM 7/13/83 "CURRENT" 00810 00820 00830 00840 SMD028 A731111 SYSVOL -SCRATCH- (INITIALIZED) 00850 Presently holding: CCS3.0-5 00860 00870 SMD029 B858319* SYSVOL --SCRATCH-- 00880 PREV HELD - LIB 00890 06-21-84 00900 00910 SMD030 A601754 CDD01 --SCRATCH-- (Initialized) 00920 Presently Holding HNB's CDD01 00930 3-11-84 00940 00950 SMD031 A597347 CDD02 -SCRATCH- (Initialized) 00960 Presently Holding HNB's CDD02 00970 3/11/84 00980 00990 SMD032 A161633 SYSVOL 02-21-84 CCS 3.0-7.56 ITK 01000ÐÐ 01010 01020 SMD033 A161682 SYSVOL -SCRATCH- (Initialized) 01030 Presently holding CCS 2.0 L138 01040 DTLP w/EDTLP (Created 12/09/83 01050 for ASB) 01060 01070 SMD034 A736863 SYSVOL -SCRATCH- (Initialized) 01080 Presently holding HNB's SYSVOL 01090 3-11-84 /Contact DMG before using. 01100 01110 SMD035 T813979* DEVEL CFS DEMO SYSTEM, CCS 3.0-6 MASTER 01120 01130 01140 SMD036 T356314* SYSVOL -SCRATCH- (Initialized) 01150 Prev Held - MNBD 01160 Loaded 07/18/84 01170 01180 SMD037 HID2363* SYSVOL -SCRATCH- (INITIALIZED) 01190 07-18-84 W/OP SYS 01200 01210 SMD038 A578857 SYSVOL -SCRATCH- (INITIALIZED) 01220 07-18-84 W/OP SYS 01230 01240 01250ÐÐ_‚ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ ÐÐ_‚_‚ ÐÈ(v ÿþwqBCS-TPS BCS P¬(èÈÐ3.0 Transaction Procedure Steps 00010 00020COL-CATGRY - Use this transaction form to (1) inquire upon the collection 00030 category definitions of a particular office or (2) to input 00040 changes to an office's collection category definitions as well00050 as to define the collection office for this office. 00060 NOTE: As the change portion of this transaction affects the 00070 routing of delinquent accounts, the collection office defini- 00080 tion for each branch office should be done only once. 00090 001001. Enter Office Number of office being changed or inquired upon - must be 00110 6 digits in format SSNNNN 001202. Push TRANSMIT if inquiry desired 001303. Enter grouping type desired: 00140 1 = assign account categories based upon account age (# of days delinq) 00150 2 = assign account categories based upon Office Number 001604. Enter the Collection Office Number (where delinquent acounts are/will be00170 routed) for the office being changed; defaults to Office Number entered00180 in Step 1 001905. Enter begin and ending range values for categories A through E: 00200 . If group type selected in Step 3 was 1, range values must be numeric 00210 between 0 and 999 00220 . Push TAB to skip over any categories not requiring a change 002306. Push TRANSMIT 002407. Check for errors 00250ÐÐ8. Enter begin and ending range values for categoreis F through J: 00260 . If group type selected in Step 3 was 1, range values must be numeric 00270 between 0 and 999 00280 . Push TAB to skip over any categories not requiring a change 002909. Push TRANSMIT 0030010. Check for errors 00310. 00320COL-DATENT - Use this transaction form to input borrower, borrower business00330 and cosigner demographic information in the ADS MLR 00340 NOTE: BACK TAB should NOT be used with this form. 00350 003601. Enter Office Number - must be 6 digits in the format SSNNNN 003702. Enter Account Number - must be 6 digits 003803. Enter demographic type on which inquiry/change required: 00390 0 = borrower demographic 00400 3 = borrower business demographic 00410 4 = cosigner demographic 004204. Push TRANSMIT 004305. Tab to 'UPDATE LINE' field, if necessary 004406. Enter line #, followed by TAB, of field requiring update 004507. Enter new value, followed by TAB, for field requiring update: 00460 . If phone number field, must be entered without edit characters 00470 . 1 to 4 fields may updated before TRANSMIT to ADS required; 'PLEASE 00480 TRANSMIT' will be displayed after 4th consecutive update entered 00490 . Check for errors 00500ÐÐ8. If more updates of this demographic type for this account required: 00510 . Continue with Step 6 005209. If more updates of another demographic type for this account required: 00530 . push TRANSMIT (if previous updates not already transmitted) 00540 . TAB to 'DATA TYPE' 00550 . Continue with Step 3 0056010. If no more updates required on this account: 00570 . push TRANSMIT 00580 . Continue with Step 1 00590 00600Keyword Definitions: 00610ADL2 - Borrower address line 2 00620BBAD - Business address 00630BBCT - Business city/state 00640BBEX - Business phone extension 00650BBNA - Business name 00660BBPH - Business phone 00670BBZP - Business zip 00680BCTY - Borrower city/state 00690BNAM - Borrower name 00700BPHO - Borrower phone 00710BSTR - Borrower address line 1 00720BZIP - Borrower zip 00730CADD - Cosigner address 00740CBEX - Cosigner business phone extension 00750ÐÐCBPH - Cosigner business phone 00760CCTY - Cosigner city/state 00770CHPH - Cosigner home phone 00780CNAM - Cosigner name 00790CZIP - Cosigner zip 00800SPS - Borrower spouse 1st name 00810. 00820COL-1STLVL - Use this transaction form to (1) review 1st level delinquent 00830 accounts, (2) input borrower demographic and next contact 00840 date changes and (3) request a collection letter. 00850 NOTE: BACK TAB should NOT be used with this form. 00860 008701. Bring up first account scheduled to be worked by entering 00880 DIS,,,x where x is the second character of the collector/operator 00890 ID. 00900 NOTE: The category will flash when an account is displayed if it 00910 doesn't match the categories in the collector ID. Although 00920 the account can still be worked, this is a warning that the 00930 collector is attempting to work an account to which he/she 00940 isn't assigned. 009502. Review data, if no letter or demographic update is required, press 00960 NXT REC to display next account scheduled. 009703. Enter next contact date in format MMDDYY; press TAB, if necessary. 009804. Enter field # of demographic update if required and press TAB, else 00990 press TAB only and continue with step 6. 01000ÐÐ NOTE: 4 fields may be updated before transmitting to Action. When 01010 new values have been entering for 4 fields, a message will 01020 appear indicating that the collector should TRANSMIT before 01030 continuing. However, if 4 and only 4 fields require updating, 01040 the collector should enter letter information before TRANSMIT 01050 to ensure that the letter data will be saved with the account 01060 as well. 010705. Enter new value for field requiring update; press TAB and continue 01080 with step 4. 010906. Enter 2 character letter code. 011007. Enter data to be printed with letter # requested, if necessary; press 01110 TAB and repeat for items 2 through 4. 01120 NOTE: Amount, phone # and date fields must be entered with edit 01130 characters. 011408. Press TRANSMIT 011509. Press NXT REC to display next account scheduled and continue with 01160 step 2. 01170 01180Field #'s on which Updates Allowed: 01190---------------------------------- 01200 1 = Borrower Name 6 = Borrower Home Phone 01210 2 = Borrower Address Line 1 7 = Borrower Business Phone 01220 3 = Borrower Address Line 2 8 = Cosigner Home Phone 01230 4 = Borrower City/State 9 = Cosigner Business Phone 01240 5 = Borrower Zip 10 = Cosigner Name 01250ÐÐ. 01260COL-2NDLVL - Use this transaction form to (1) review 2nd level delinquent 01270 accounts, (2) input demographic and collection data changes, 01280 and (3) input collection activity data including letter 01290 requests. 01300 NOTE: BACK TAB should NOT be used with this form. 01310 013201. Enter DIS,,,x to display first account scheduled to be worked where 01330 x is the second character of the collector/operator ID. Press TRANSMIT.01340 NOTE: The category will flash on the displayed account if it doesn't 01350 match the categories in the collector ID. Although the account 01360 may still be worked, this warning indicates the collector is 01370 attempting to work an account to which he/she isn't assigned. 013802. If no inquiry necessary, press TAB and continue with step 4. 013903. Enter # for which inquiry desired; press TRANSMIT. Repeat for further 01400 inquiries. 014104. Review data; if no letter, demographic update or collection activity 01420 required, press NXT REC to display next account scheduled and continue 01430 with step 2. 014405. Enter next contact date in format MMDDYY; TAB if necessary. 014506. Press NXT PAGE to display SECOND LEVEL ACTIVITY page. If no collection01460 activity inputs necessary, press NXT PAGE and continue with step 15. 014707. Enter 2 character action code. 014808. Enter 2 character result code. If result code entered is not 'PP', 01490 continue with step 12. 01500ÐÐ NOTE: Valid action and result codes are listed in the COLLCODES form 01510 via Local Information. 015209. Enter promise-to-pay due date; default is 7 days from today if date 01530 entered is not in the range of 1 to 65 days from today. 0154010. Enter promise-to-pay amount, TAB if necessary. 0155011. Enter 10 character promise-to-pay schedule, TAB is necessary. 0156012. Enter 2 character letter code, if required. 0157013. Enter 15 character comment, TAB if necessary. 0158014. If further collection activity required, continue with step 7, else 01590 press NXT PAGE to display 2ND LEVEL UPDATE page. 0160015. The old values for the data last inquired upon will be displayed. If 01610 no inquiry was made or the OTHER INFORMATION field was cleared before 01620 dislaying this page, the old values for data from the first page will 01630 be displayed. Changes are allowed only on borrower, business (inquiry 01640 type 3), cosigner (inquiry type 4) demographic fields and on the 4 01650 flag bytes from Miscellaneous Loan (inquiry type 6). If the last 01660 inquiry made was of types 1,2,5,7 or 8 continue with step 18. 0167016. Enter line # of field requiring update, press TAB. If no further 01680 updates required, press TAB only and continue with step 18. 0169017. Enter new value for field requiring update, press TAB. 01700 Continue with step 16. 01710 NOTE: 4 fields may be updated before TRANSMIT to Action; 2 changes 01720 to the same fields counts as 1 change. When 4 changes have been 01730 input, a message will appear indicating the collector should 01740 TRANSMIT before continuing. However, if 4 and only 4 field 01750ÐÐ updates are required, any letter information necessary should be 01760 input before TRANSMIT to ensure the letter data is saved with 01770 the account. 01780. 0179018. Enter data in items 1 through 4 followed by TAB if necessary for the 01800 letter requested on the SECOND LEVEL ACTIVITY page. 01810 NOTE: Amount, phone # and date fields should be entered with edit 01820 characters (i.e. $ sign, commas, slashes, dashes, etc.). 0183019. Press TRANSMIT. 0184020. Press NXT REC to display next scheduled account and continue with 01850 step 2. 01860 01870Fields for which Updates Allowed: 01880-------------------------------- 01890All fields listed in COL-DATENT Transaction Procedure Steps 01900COL1 = 1 character flag byte for use as defined by the user 01910COL2 = 1 character flag byte for use as defined by the user 01920COL3 = 1 character flag byte for use as defined by the user 01930COL4 = 1 character flag byte for use as defined by the user 01940(Sample usage of above flag bytes--'Call after' time, Don't call business, 01950 Deceased flag, etc.) 01960 01970ADDITIONAL NOTES 01980-If a call is received from a customer: 01990 (a) press EXIT from page 1 of currently displayed account 02000ÐÐ (b) enter DIS,,customer name followed by TRANSMIT 02010 (c) work account as described above 02020 (d) press EXIT after working and TRANSMIT of account 02030 (e) continue with step 1 above to get back into automatic account link 02040 mode 02050-If the account category flashed while in automatic link mode, the 02060 collector is not assigned to that category and should: 02070 (a) press EXIT to display data entry menu 02080 (b) enter DIS,,,y and TRANSMIT where y is next unworked category 02090 character from collector/operator ID. Continue with step 2 above. 02100-When all accounts scheduled for a particular collector have been worked 02110 and/or reviewed and bypassed, RECORD NOT FOUND will flash and the 02120 collector should: 02130 (a) enter DIS,,,(category character) followed by TRANSMIT to display 02140 and work any accounts which have been bypassed 02150-The Supervisor Review action code (SR), Request Hardcopy result code (RH) 02160 and the two character letter codes are collector inputs which trigger 02170 Batch Transaction reports at the end of the day. Although the SR, RH 02180 and any letter codes may all be input on the same account in the same 02190 day, only the last codes entered will set the flag for printing a Batch 02200 Transaction report. It is therefore the collector's responsibility that 02210 if more than one of the above codes is required on an account, the DOC PRT02220 key MUST be pressed and the appropriate print format name selected to get 02230 a report of all except the last code entered. This immediate print 02240 feature is available at any time. 02250ÐÐ_‚ ÐÐ _‚_‚ Ð