000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010006 000200* SCRFILE ROOT SEGMENT (ENHANCED FOR CPCS) * 00020006 * *** ESCRROOT *** * 00020000 000300* * 00030006 000400* SEGMENT LENGTH 4000 BYTES -- SCRROOT * 00040006 000500* * 00050006 000600* DOCUMENTATION FROM 1982-1984 DELETED, 2-87 * 00060006 000700* DOCUMENTATION FROM 1985-1986 DELETED, 2-90 * 00070006 000800* DOCUMENTATION FROM 1987 DELETED, 11-90 * 00080006 000900* DOCUMENTATION FROM 1988-1989 DELETED, 11/94 * 00090006 000900* DOCUMENTATION FROM 1990-1994 DELETED, 03/2002 * 00090006 000900* DOCUMENTATION FROM 1995-1999 DELETED, 08/2012 * 00090006 * 03/12/00 HBATTISTINI DLR ADD FIELD R-NOTICE-TAKEN-VIA & * * ADD 88 LEVEL FOR ATTORNEY TO * * R-CALLER-TYPE AND CHANGE VALUE * * OF 88 LEVEL FOR CALLER-NONE * * M LAVOIE ADD 2 FIELDS: * * R-NOL-PROP-FIRE-DEPT-CALLED * * R-NOL-PROP-QUARTER-CONT-DMG * * NBAILEY CNTR R-NOL-PROP-EMERGENCY-REPAIR * * R-NOL-PROP-CLEANING-REQUIRE * * R-NOL-PROP-TYPE-CONTRACTOR * * R-NOL-PROP-NOT-EXCEED-AMT * ARLE * 06/11/00 V TELNOV ARLE ADD R-COV-IND-ARLE FOR CARS-CW * DOA1 * JD JONES DOA1 ADD R-DOA-POLICE-RPT-IND * DOA1 * ADD R-DOA-INSURED-CITED-IND * DOA1 * ADD R-DOA-OTHER-CITED-IND * DOA1 * ADD R-DOA-NEG-EST-ACTUAL * DOA1 * ADD R-DOA-VEH-GARAGED-IND * WKW * 11/2000 K WATHEN CNMKT ADD: * WKW * R-CONSTRUCT-DRVR-RELAT * WKW * R-CONSTRUCT-RELAT-LOSS * WKW * R-CONSTRUCT-PROJECT-TYPE * WKW * R-CONSTRUCT-CONTRACT-TYPE * WKW * R-CONSTRUCT-CRT-POTEN-1 * WKW * R-CONSTRUCT-CRT-POTEN-2 * WKW * R-CONSTRUCT-CRT-POTEN-3 * WKW * R-SIC-CODE-CATEGORY * WKW * R-CONSTRUCT-CONTR-FACTOR * NATL1 * 11/12/2000 H BATTISTINI NATL1 ADD R-PROCESS-CODE * SLL * 01/24/2001 S LEIDHOLD INTEG ADD R-INSURED-VEHICLE-TYPE * SLL * INTEG ADD R-INSURED-VEHICLE-TYPE * SLL * INTEG ADD R-INSURED-VEHICLE-TYPE * TRVGLS* 06/10/2001 M OLIVER TRVGLS ADD MITCHELL-CLM-SETUP * CONM * 06/10/2001 S RICHARDS REDEFINITION OF UNUSED SPACE FOR * * FOR CONSTRUCT-MARKET INDICATORS * SYNC * 03/10/2002 S SHAYER TRAVPRO IMPACT SYNCH UP * COVKD * 03/10/2002 V TELNOV ADDED NEW COV-KINDS FOR EXISTING COVS * SYNC2 * 04/14/2002 SSHAYER TPRO IMPACT SYNC UP * CDTE * 06/09/2002TODD SCHMIDT ADD CONTACT DATE NOT REQUIRED INDICATOR* CDTE * AND CONTACT DATE CREATION DATE. * PROP. * SSHAYER PL PROP REDESIGN * CDTE * 07/14/2002TODD SCHMIDT ADD AN ADDITIONAL CONTACT DATE NA 88LVL* SYNC. * SSHAYER SYNC UP- CALLER TITLE-LAST4 * * 11/10/02 JOCLAIR ADD R-WC-EVIDENCE-MANG-IND * * 11/10/02 K GULA ADD VIA-XML TO R-NOTICE-TAKEN-VIA * * 11/10/02 D MULCAHY ADD R-SIMP-PAY-TYPE * SYN. * 02/09/03 SSHAYER PROP * SPVR2 * 09/14/03 SCHMIDT ADD DEDICATED-IND * CLARN * DENBERG ADD R-AUTO-OWNERSHIP-TYPE AND * CLARN * R-AUTO-EMPLOYEE-TYPE * SPOSL * BMAGYAR ADD R-COV-IND-BI-SPOSL (SPOUSAL LIAB) * SPVR2 * 04/18/04 DENBERG ADDED A DATE TO USE FOR USE IN DECIDING * 01560006 * TO CHANGE THE R-PREV-CLM-EXP-TOT-EST * 01561006 * RIGHT NOW THIS FIELD GETS UPDATED EVERY* 01562006 * TIME A CLAIMANT HAS ITS ESTIMATE ADDED * 01563006 * OR CHANGED. THIS ONLY BECAME AN ISSUE * 01564006 * WHEN ESTIMATES CHANGED TO BE TRACKED ON* 01565006 * CLAIMANT LEVEL AND NOT FILE LEVEL. * 01566006 CRT * 04/18/04 DONIE ADDED FIELDS FOR CONSTRUCTION MARKET * 01567006 * FOR LIABILITY_CLAIMS * 01568006 * ALSO REDEFINED R-CONSTRUCT-RELAT-LOSS * 01568108 * AS R-CONSTRUCT-POLICY-HOLDER-TIER * 01568208 PLWSL * 09/12/04 MALICKI ADDED FIELD FOR SOURCE OF LOSS CODE * PLWSL * PLIP DOWNSTREAM PROCESSING. * 01567006 FTIC * 11/14/04 MCKEAG FIRST TRENTON CONVERSION * CDTE2 * SCHMIDT ADD DATE, AMPM AND TIME ZONE TO CONTACT * CDTE2 * DATES. * NCISO * JD JONES ADD R-PROP-COV-IND-C-ASL * NCISO * ADD R-LIAB-COV-IND-LIAB-ASL * * JMCNERNEY ADDED R-SPC-CLAIM-IND * FTIC2 * GONCHAROV FIRST TRENTON VALUE INDICATOR FOR COL-171* * TOM EVANS ADDED R-SPC-DATA-ITEMS * * S SHAYER CAT CLAIM XFER- ADD CAT-ZONE; CAT-SEVERITY * 04/10/05 ZOCCO ADD 25 INDICATORS R-PROP-COV-IND-... * STCOV * JD JONES ADD R-COV-IND-BPIP-MISC * STCOV * ADD R-COV-IND-OPIP-MISC * ISOPH2* ADD R-LIAB-COV-IND-PD-ASL * ISOPH2* ADD R-LIAB-COV-IND-PI-ASL * ISOPH2* ADD R-PROP-COV-IND-AE-ASL * * 07/10/05 ZOCCO ADD R-PROP-COV-IND-ALE-HB * SLG1 * MCKEAG ADD R-SLG-FILE-TYPE-IND * SLG1 * ADD R-SLG-LEAD-FILE-NUM * SLG1 * ADD R-SLCU-IND TNJ01 * JD JONES ADD R-PL-RATG-NUM-DRVRS * TNJ01 * ADD R-SOL-TRAVELERS-NJ 'L08' * SLG2 * 11/13/05 MCKEAG RELOCATE R-SLG-FILE-TYPE-IND * SLG2 * RELOCATE R-SLG-LEAD-FILE-NUM * BFOUN * JD JONES ADD R-PROP-COV-IND-B-FOUN * 3562 * D WALLACE ADD R-PROP-IA-IND * 3743 * 05/21/06 ST.ONGE ADD OCEAN LIABILITY TYPES * TNJ02 * MCKEAG ADD 88 LEVEL TO R-PL-SOURCE-OF-LOSS-CODE * TNJ02 * FOR TNJ DOMESTIC WC * 3558 * D WALLACE ADD R-PROP-CLAIM-OPEN-RSN-CD * 5032 * D WALLACE ADD R-AUTO-GENERALIST-IND * 5493 * B MALICKI ADD R-PROP-OCCUPANCY AND 18 COV IND'S * B5493 * B RAMACHA ADD R-RENTED-TO-OTHERS * 43260 * 02/11/07 S DONIE ADD R-ABI-COMPLEXITY-IND (REPLACE * * R-ADDINFO-UNUSED-1) * 33947 * B RAMACHA ADD R-LIAB-COV-IND-BI-ADIN * * R-LIAB-COV-IND-PD-ADIN * * R-LIAB-COV-IND-PI-ADIN * * R-LIAB-COV-IND-PRBI-ADIN * * R-LIAB-COV-IND-PRPD-ADIN * * R-PROP-COV-IND-EARN-DOS * * R-PROP-COV-IND-THFT-IDFR * * R-PROP-COV-IND-B-SEWR * * R-PROP-COV-IND-CI-SEWR * * R-PROP-COV-IND-EARN-SEWR * * R-PROP-COV-IND-IM-TRFL * * R-PROP-COV-IND-IM-PRFL * * R-PROP-COV-IND-IM-INFL * * R-PROP-COV-CI-OFPR * EQ. * 09/09/07 GONCHAROV ADD R-CAT-EQ-ENDRS-EXISTS * 54441 * 11/11/07 S DONIE ADD R-NOL-FIRE-IND * 119417* 02/10/08 V MALI ADD R-OTHER-FOREIGN-COUNTRY * 119417* 05/18/08 D MULCAHY ADD R-FLOOD-POL-NBR * 119417* R-FLOODL-POL-EFF-DT * 119417* R-FLOODL-POL-EXP-DT * 119417* R-FLOOD-POL-STS-CD * 119417* R-FLOOD-POL-SRCH-CD * 156831* 08/10/08 B MALICKI ADD NEW COV/KINDS FOR ITG#'S 151831, * 156831* 414661 AND 147316. * 126831* 11/09/08 V RAMAN ADDED 88 LEVEL - R-POLICY-TYPE-PIPELINE * 126831* UNDER R-POLICY-TYPE FOR ITG # 126831 * 126831* 11/09/08 V RAMAN ADDED NEW COVERAGE INDICATORS THAT WILL * 126831* BE SET FOR PIPELINE CLAIMS * 126831* - R-LIAB-COV-IND-BI-WATCF * 126831* - R-LIAB-COV-IND-PD-WATCF * 126831* - R-LIAB-COV-IND-PI-AI * 126831* - R-LIAB-COV-IND-PI-WEB * 126831* - R-LIAB-COV-IND-BI-POLUT * 126831* - R-LIAB-COV-IND-PD-POLUT * 126831* - R-LIAB-COV-IND-PRBI-POLUT * 126831* - R-LIAB-COV-IND-PI-ADV * 126831* - R-LIAB-COV-IND-PROF-EO * 164797* 11/09/08 A ROY ADDED NEW COVERAGE-KIND INDICATORS FOR * 164797* PROPERTY - GREEN BUILDING * 164797* - R-PROP-COV-IND-B-GRN * 164797* - R-PROP-COV-IND-B-GRNR * 164797* - R-PROP-COV-IND-BUS-GRN * 164797* - R-PROP-COV-IND-BUS-GRNR * 164797* - R-PROP-COV-IND-CI-GRN * 164797* - R-PROP-COV-IND-CI-GRNR * 164797* - R-PROP-COV-IND-EARN-GRN * 164797* - R-PROP-COV-IND-EARN-GRNR * 164797* 06/14/09 D MULCAH ADDED R-ALT-DATA-ITEMS * 237764* 08/09/09 R FONTANAZZA REMOVED PIPELINE-SPECIFIC R-COV-INDS * 237764* AND REPLACED WITH FILLER. * 237764* WE DON'T USE COV-INDS FOR PIPELINE. * 266946* 02/14/10 COGNIZANT ADDED NEW COVERAGE-KIND INDICATORS FOR * 266946* PROPERTY - GREEN BUILDING * 266946* - R-PROP-COV-IND-C-GRN * 266946* - R-PROP-COV-IND-C-GRNR * 266946* - R-PROP-COV-IND-OS-GRN * 266946* - R-PROP-COV-IND-OS-GRNR * 266946* - R-PROP-COV-IND-PPR-GRN * 266946* - R-PROP-COV-IND-PPR-GRNR * LT0510* 05/16/10 AFZULL R ADDED NEW COVERAGE-KIND INDICATORS * LT0510* - R-PROP-COV-IND-CI-ANIM * LT0510* - R-PROP-COV-IND-B-PEP * LT0510* - R-PROP-COV-IND-CI-PEP * LT0510* - R-PROP-COV-IND-BUS-TAX * 315391* 08/15/10 COGNIZANT ADDED PROPERTY COVERAGE INDICATORS FOR PL* 315391* - R-PROP-COV-IND-C-LEFR * 315391* - R-PROP-COV-IND-OS-LEFR * 315391* - R-PROP-COV-IND-B-LEFR * 315391* - R-PROP-COV-IND-PPR-LEFR * 315391* - R-PROP-COV-IND-AE-LEFR * 333092* 11/14/10 COGNIZANT ADDED PROPERTY COVERAGE INDICATORS FOR CL* 333092* - R-PROP-COV-IND-B-EXTRA * 333092* - R-PROP-COV-IND-EE-EXTRA * 333092* - R-PROP-COV-IND-CI-EXTRA * 351903* 02/13/11 L&T INFOTECH ADDED NEW COVERAGE-KIND INDICATORS * 351903* - R-PROP-COV-IND-CI-ATM * 351903* - R-PROP-COV-IND-IM-MAIL * 324871* 02/13/11 COGNIZANT ADDED PROPERTY COVERAGE INDICATORS FOR CL* 324871* - R-PROP-COV-IND-IM-SIGNS * 324871* - R-PROP-COV-IND-IM-MEDIC * 324871* - R-PROP-COV-IND-IM-PIERS * 324871* - R-PROP-COV-IND-IM-EQDLR * 324871* - R-PROP-COV-IND-IM-MUSIC * 324871* - R-PROP-COV-IND-IM-BRDCS * 324871* - R-PROP-COV-IND-IM-BAILE * 324871* - R-PROP-COV-IND-IM-CAMRA * 324871* - R-PROP-COV-IND-IM-CRGO * 324871* - R-PROP-COV-IND-IM-CRGLB * 324871* - R-PROP-COV-IND-IM-WHSE * 324871* - R-PROP-COV-IND-IM-FUR * 355324* 05/15/11 COGNIZANT ADDED PROPERTY COVERAGE INDICATORS FOR PL* 355324* WEATHER PLUS ENDORSEMENT * 355324* - R-PROP-COV-IND-B-TRMVL * 355324* - R-PROP-COV-IND-B-CONFR * 355324* - R-PROP-COV-IND-AE-EVAC * 355324* - R-PROP-COV-IND-AE-PWOUT * 355324* - R-PROP-COV-IND-OS-TRMVL * 355324* ADD WETHER PYMNT COUNTERS * 378893* 09/11/11 BATTISTINI ADD 88 LEVEL TO R-NOL-SOURCE-IND FOR CP * 372641* 09/11/11 COGNIZANT ADD ISO COMPOSITE CLASS CODE DESC FIELD * 372641* 378813* 11/13/11 COGNIZANT ADDED PROPERTY COVERAGE INDICATORS FOR CL* 378813* - R-PROP-COV-IND-IM-E3MPR * 378813* - R-PROP-COV-IND-IM-E3SGV * 378813* - R-PROP-COV-IND-IM-E3UGV * 378813* - R-PROP-COV-IND-IM-E3GCV * 378813* - R-PROP-COV-IND-IM-E3SPE * 378813* - R-PROP-COV-IND-IM-E3TEE * 378813* - R-PROP-COV-IND-IM-E3TRE * 386604* 11/13/11 COGNIZANT ADDED AUTO COVERAGE INDICATORS FOR PL * 386604* - R-COV-IND-COLL-GAP * 386604* - R-COV-IND-COMP-GAP * 386604* 02/12/12 MULCAHY ADDED R-DRVR-RELATIONSHIP-CD * 411407* 05/13/12 COGNIZANT ADDED AUTO GARAGE COV INDICATORS FOR CL * 411407* - R-COV-IND-PD-CON * 411407* - R-COV-IND-PD-DEF * 411407* - R-COV-IND-PD-EOD * 411407* - R-COV-IND-BI-PIAI * 413584* 05/20/12 COGNIZANT ADDED AUTO AND GL MEDICARE COV/KIND CODES* 413584* BI-CRF, BI-CRP, BI-FIN, BI-FIN2, BPIP-CRF* 413584* BPIP-CRP, BPIP-CMECF, BPIP-CMECP,MP-VMEDF* 413584* MP-VMEDP, MP-CRF, MP-CRP, OBL1-CRF, * 413584* OBL1-CRP, OBL3-CRF, OBL3-CRP, OBL4-CRF, * 413584* OBL4-CRP, OPIP-CRF, OPIP-CRP, PROF-FIN, * 413584* PROF-FIN2, XPIP-CRF, XPIP-CRP, PRBI-CRF, * 413584* PI-CRF, PI-CRP, PRBI-CRP, PROF-CRF, * 413584* PROF-CRP,UM-CRF,UM-CRP,UM-UNDF,UM-UNDP, * 413584* UM-PBIF,UM-PBIP,UM-PUNDF,UM-PUNDP. * 408956* 08/12/12 K STOTT ADDED COMP & COLL KIND INDICATORS FOR PL * 408956* LAVOIE ADDED R-VEH-GLASS-REPR-REPL-IND * 408956* COGNIZANT ADDED 88 LEVEL TO R-NOL-SOURCE-IND FOR * 408956* RENUGA ROADSIDE. * 428465* 08/12/12 COGNIZANT ADDED LIAB COVERAGE INDICATORS FOR PL * 428465* - R-LIAB-COV-IND-LIAB-CRF * 428465* - R-LIAB-COV-IND-LIAB-CRP * 404485* 09/09/12 COGNIZANT ADDED 11 NEW SPC PROP COVERAGE CODES * 404485* * 404485* - R-SPC-PROP-COV-IM-COW1A * 404485* - R-SPC-PROP-COV-IM-COW1B * 404485* - R-SPC-PROP-COV-IM-COW1C * 404485* - R-SPC-PROP-COV-IM-COW1D * 404485* - R-SPC-PROP-COV-IM-COWS2 * 404485* - R-SPC-PROP-COV-IM-COWS3 * 404485* - R-SPC-PROP-COV-IM-COWS4 * 404485* - R-SPC-PROP-COV-IM-CW1AP * 404485* - R-SPC-PROP-COV-IM-CW1CP * 404485* - R-SPC-PROP-COV-IM-OLP * 404485* - R-SPC-PROP-COV-IM-COWCS * 562787* 02/10/13 LAVOIE ADDED COVERAGE INDICATORS * 562787* R-COV-IND-COMP-REPL * 562787* R-COV-IND-COMP-AST * 562787* R-COV-IND-COLL-AST * 569115* 05/12/13 MAYUKH-CTS REMOVED 300 BYTES OF R-COV-INDICATORS * 569115* WHICH WILL BE REPLACED BY THE DB2 TABLE * 569115* CLM_COV_KIND.THE CHOSEN DRIVER NUMBER * 569115* AND THE VEHICLE NUMBER HAS BEEN EXPANDED* 569115* TO 2 BYTES.ALSO ADDED A NEW DRIVER * 569115* PRESENCE INDICATOR. ITG#569115 * 569915* 11/10/13 COGNIZANT ITG#569915 ADDED TWO NEW FIELDS * 569915* MONICK R-ROOF-AGE & R-ROOF-TYPE FOR PI PROPERTY* 617375* 02/09/14 A SCHWARTZ ITG#617375 - 88-LEVEL MOBILE-CLM-SETUP ***************************************************************** 01010006 010101 01010106 010102 03 R-ROOT-SEGMENT. 01010206 010103 01010306 010104 04 R-SHARED-DATA-AREA. 01010406 010105 01010506 010106 05 R-STATUS-DATA. 01010606 010107 07 R-SEGMENT-KEY. 01010706 010108 09 R-CLAIM-NUM PIC X(07). 01010806 010109 07 R-UPDATE-DATE. 01010906 010110 09 R-UPDATE-CC PIC X(02). 01011006 010120 09 R-UPDATE-YY PIC X(02). 01012006 010130 09 R-UPDATE-DDD PIC X(03). 01013006 010140 07 R-CLAIM-NUM-CHK-DIG PIC X(01). 01014006 010141 07 R-FILE-STATUS PIC X(01). 01014106 010142 01014206 010143 07 R-CPCS-FILE-STATUS REDEFINES 01014306 010144 R-FILE-STATUS PIC X(01). 01014406 010145 88 R-FILE-STATUS-CNA-ONLY VALUE SPACE. 01014506 010146 88 R-FILE-STATUS-FD VALUE '0'. 01014606 010147 88 R-FILE-STATUS-VOID VALUE '1'. 01014706 010148 88 R-FILE-STATUS-DUP VALUE '2'. 01014806 010149 88 R-FILE-STATUS-COMP-REF VALUE '3'. 01014906 010150 88 R-FILE-STATUS-ACTIVE VALUE '4'. 01015006 010151 88 R-FILE-STATUS-CLOSED VALUE '5'. 01015106 010152 88 R-FILE-STATUS-ACTIVE-SUBRO VALUE '6'. 01015206 010153 88 R-FILE-STATUS-CLOSE-PEND VALUE '7'. 01015306 010154 88 R-FILE-STATUS-CONVERTED VALUE '8'. 01015406 010155 88 R-FILE-STATUS-REJECTED VALUE '9'. 01015506 010156 88 R-FILE-STATUS-RECLOSE-PEND VALUE 'A'. 01015606 010157 88 R-FILE-STATUS-PLWKSTN-PEND VALUE 'B'. 01015706 010158 01015806 007400 07 R-WC-FILE-STATUS REDEFINES 00740000 007500 R-FILE-STATUS PIC X(01). 00750000 007600 88 R-WC-FILE-STATUS-OPEN VALUE '0'. 00760000 007700 88 R-WC-FILE-STATUS-FINAL VALUE '1'. 00770000 007800 88 R-WC-FILE-STATUS-REFINAL VALUE '2'. 00780000 007900 88 R-WC-FILE-STATUS-REOPEN VALUE '3'. 00790000 008000 88 R-WC-FILE-STATUS-IS-ACTIVE VALUES ARE 00800000 008100 '0' '3'. 00810000 008200 88 R-WC-FILE-STATUS-CLOSE-PEND VALUE '4'. 00820000 008300 88 R-WC-FILE-STATUS-RECLOSE-PEND VALUE '5'. 00830000 008400 88 R-WC-FILE-STATUS-INACTIVE VALUES ARE 00840000 008500 '1' '2' '4' '5'. 00850000 010159 07 R-ARCHIVE-DATE. 01015906 010180 09 R-ARCHIVE-CC PIC X(02). 01018006 010190 09 R-ARCHIVE-YY PIC X(02). 01019006 010180 09 R-ARCHIVE-DDD PIC X(03). 01018006 010190 09 FILLER PIC X(01). 01019006 010200 07 R-CONTROLLING-OFFICE PIC X(03). 01020006 010201 07 R-NUM-CLMT-SEGMENTS PIC X(03). 01020106 010202 07 R-PD-SEGMENTS PIC X(03). 01020206 010203 07 R-BI-SEGMENTS PIC X(03). 01020306 010204 07 R-FINAN-X-STATUS PIC X(01). 01020406 010205 07 R-FILE-STATUS-DATE. 01020506 010206 09 R-FILE-STATUS-MM PIC X(02). 01020606 010207 09 R-FILE-STATUS-DD PIC X(02). 01020706 010208 09 R-FILE-STATUS-CC PIC X(02). 01020806 010209 09 R-FILE-STATUS-YY PIC X(02). 01020906 010210 07 R-CMT-TYPE-IND. 01021006 010211 09 R-CMT-TYPES PIC X OCCURS 12 TIMES. 01021106 010212 07 R-INSURED-CMT-NUM PIC X(03). 01021206 010213 07 R-INJ-CMT-TYPS PIC X(01). 01021306 010214 07 R-FILE-ESTIMATE-STATUS PIC X(01). 01021406 010215 07 R-ESTIMATES-COMPLETED-IND PIC X(01). 01021506 010216 07 R-WF-STATUS-IND PIC X(01). 01021606 010217 07 R-SUBRO-ONLY-IND PIC X(01). 01021706 010218 07 R-CLM-SUBRO-IND PIC X(01). 01021806 010219 07 R-MANUAL-REG-DATE. 01021906 010220 09 R-MANUAL-REG-CC PIC X(02). 01022006 010230 09 R-MANUAL-REG-YY PIC X(02). 01023006 010240 09 R-MANUAL-REG-DDD PIC X(03). 01024006 010250 07 R-MANUAL-RFC-DATE. 01025006 010260 09 R-MANUAL-RFC-CC PIC X(02). 01026006 010270 09 R-MANUAL-RFC-YY PIC X(02). 01027006 010280 09 R-MANUAL-RFC-DDD PIC X(03). 01028006 010290 07 R-ADDINFO-CMPL-DATE. 01029006 010300 09 R-ADDINFO-CMPL-CC PIC X(02). 01030006 010400 09 R-ADDINFO-CMPL-YY PIC X(02). 01040006 010500 09 R-ADDINFO-CMPL-DDD PIC X(03). 01050006 010600 07 R-SELF-INSD-IND PIC X(01). 01060006 010700 07 R-CSSC-ACCT-NUM PIC X(03). 01070006 010800 07 R-ACCT-BANKING-COD REDEFINES 01080006 010900 R-CSSC-ACCT-NUM PIC X(03). 01090006 011000 07 R-REOPEN-IND PIC X(01). 01100006 011100 07 R-PRIOR-STATUS-IND PIC X(01). 01110006 011200 07 R-AUTO-REREG-DONE PIC X(01). 01120006 011300 07 R-PENDING-RENEWAL-IND PIC X(01). 01130006 011400 07 R-ERROR-CORRECTION-IND PIC X(01). 01140006 011500 07 R-ORIG-CLOSING-DATE. 01150006 011600 09 R-ORIG-CLOSING-MM PIC X(02). 01160006 011700 09 R-ORIG-CLOSING-DD PIC X(02). 01170006 011800 09 R-ORIG-CLOSING-CC PIC X(02). 01180006 011900 09 R-ORIG-CLOSING-YY PIC X(02). 01190006 012000 07 R-CAUSE-LOSS-ERR-IND PIC X(01). 01200006 012100 07 R-LINK-ACTIVITY-DATE. 01210006 012200 09 R-LINK-ACTIVITY-MM PIC X(02). 01220006 012201 09 R-LINK-ACTIVITY-DD PIC X(02). 01220106 012202 09 R-LINK-ACTIVITY-CC PIC X(02). 01220206 012203 09 R-LINK-ACTIVITY-YY PIC X(02). 01220306 012204 07 R-ERR-CORR-DATE. 01220406 012205 09 R-ERR-CORR-CC PIC 9(2). 01220507 012205 09 R-ERR-CORR-YY PIC 9(2). 01220607 012206 09 R-ERR-CORR-DDD PIC 9(3). 01220707 012209 07 R-SUBRO-CLS-PEND-IND PIC X(01). 01220906 012210 07 R-CONVERT-EST-IND PIC X(01). 01221006 012220 07 R-CONVERT-NRPAY-IND PIC X(01). 01222006 012230 07 R-CLAIM-LOCK-IND PIC X(01). 01223006 012240 07 R-SUBRO-FIRST-CRR-IND PIC X(01). 01224006 012250 07 R-COVERAGE-RETRIEVED-IND PIC X(01). 01225006 012260 07 R-STATUS-UNUSED PIC X(01). 01226006 012270 01227006 012280 05 R-CONTROL-DATA-ITEMS. 01228006 012290 07 R-PL-CL-IND PIC X(01). 01229006 012300 88 PL-CLAIM VALUE 'P'. 01230006 012400 88 CL-CLAIM VALUE 'C'. 01240006 012500 01250006 012600 07 R-CPCS-CONTROL-DATA-ITEMS. 01260006 012700 01270006 012800 09 R-MARKET-IND PIC X(02). 01280006 012900 09 R-CANADIAN-CLAIM-IND REDEFINES 01290006 013000 R-MARKET-IND PIC X(02). 01300006 013100 88 CANADIAN-CLAIM VALUE ARE 01310006 013200 '14' '50' '52' '53' '54' '55'. 01320006 013300 09 R-REP-PLAN-LINE-COD PIC X(02). 01330006 013400 09 R-REREG-INR-IND PIC X(01). 01340006 013500 88 REREG-PERFORMED VALUE 'R'. 01350006 013600 88 INR-PERFORMED VALUE 'I'. 01360006 013700 09 R-INOL-INDICATORS. 01370006 013800 11 R-INOL-LOSS-IND PIC X(01). 01380006 013900 11 R-INOL-POL-COV-IND PIC X(01). 01390006 014000 11 R-INOL-CMT-IND PIC X(01). 01400006 014100 11 R-INOL-CMPL-IND PIC X(01). 01410006 014200 09 R-NXT-PL-TRAN PIC X(08). 01420006 014300 09 R-ENG-RPT-CMPL-IND PIC X(01). 01430006 014400 09 R-SAC-CLM-ACK-COD PIC X(01). 01440006 014500 09 R-REG-PRT-IND PIC X(01). 01450006 014600 09 R-APPL-COV-ON-POL-IND PIC X(01). 01460006 014700 09 R-PROF-LIAB-IND PIC X(01). 01470006 014800 09 R-CL-REQ-COV-ADDR PIC X(03). 01480006 014900 09 R-ADDL-CMT-IND PIC X(01). 01490006 015000 09 R-AGGREGATES-APPLY-IND PIC X(01). 01500006 015100 09 R-AGGR-POL-YR. 01510006 015200 11 R-AGGR-POL-CC PIC X(02). 01520006 015300 11 R-AGGR-POL-YY PIC X(02). 01530006 015400 09 R-REINS-IND PIC X(01). 01540006 015500 09 R-REINS-RPT-CMPL-IND PIC X(01). 01550006 015600 09 R-POL-RETAIN-LMT PIC X(10). 01560006 015700 09 R-LARGE-LOSS-IND PIC X(01). 01570006 015800 09 R-ORP-PAP-IND PIC X(01). 01580006 015900 09 R-REG-STATUS-IND PIC X(01). 01590006 016000 09 R-NXT-CL-TRAN PIC X(08). 01600006 016100 09 R-FIRST-CL-TRAN-CODE PIC X(02). 01610006 016200 09 R-CRITICAL-REREG-IND PIC X(01). 01620006 016300 09 R-PL-RPT-LARGE-LOSS-IND PIC X(01). 01630006 016400 09 R-CNA-LOSS-TYPE PIC X(01). 01640006 016500 88 LOSS-TYPE-AUTO VALUE 'A'. 01650006 016600 88 LOSS-TYPE-LIAB VALUE 'L'. 01660006 016700 88 LOSS-TYPE-PROP VALUE 'P'. 01670006 016800 09 R-DUPLICATE-IND PIC X(01). 01680006 016900 88 DUPLICATES-FOUND VALUE 'Y'. 01690006 017000 88 DUPLICATES-NOT-FOUND VALUE 'N'. 01700006 017100 88 DUP-SEARCH-NOT-DONE VALUE 'X'. 01710006 017200 09 R-CNA-COV-IND PIC X(01). 01720006 017300 88 CNA-COV-AVAILABLE VALUE 'Y'. 01730006 017400 88 CNA-COV-NOT-AVAILABLE VALUE 'N'. 01740006 017500 09 R-TRANSFER-ACTIVITY-IND PIC X(01). 01750006 017600 88 TRANSFER-IN-PROGRESS VALUE 'T'. 01760006 017700 88 TRANSFER-COMPLETED VALUE 'Y'. 01770006 017800 88 NO-TRANSFER-ACTIVITY VALUE ' '. 01780006 017900 88 TRANSFER-FOR-REOPEN VALUE 'R'. 01790006 018000 09 R-TRANSFER-FROM-AFO PIC X(03). 01800006 018100 09 R-ST-IND PIC X(01). 01810006 018200 09 R-AETNA-CLAIM-IND PIC X(02). 01820006 88 AN-AETNA-PL-CLAIM VALUES 'P1' 'P2' 'P3'. 01831004 88 AETNA-PL-CONV-CLM VALUE 'P2'. 018400 88 AN-AETNA-CL-CLAIM VALUES 01840006 019200 'C1' 'C2' 01920003 019300 'C6' 'C7' 'C8'. 01930003 019400 88 AN-AETNA-MAN-CL-CLM VALUES 01940000 019500 'C1' 'C2' 01950000 019600 'C7'. 01960000 018600 88 AETNA-CL-NEW-CLM VALUE 'C1'. 01860006 018700 88 AETNA-CL-CONV-CLM VALUE 'C2'. 01870006 019900 88 AECOV-FULLY-AUTOMATED VALUE 'C6'. 01990000 019901 88 AECOV-PARTIALLY-AUTOMATED VALUE 'C7'. 01990100 019902 88 AECOV-PARTIAL-WAITING-MOVE VALUE 'C8'. 01990201 09 R-SPC-CLAIM-IND REDEFINES R-AETNA-CLAIM-IND PIC X(02). 88 SPC-CLAIM VALUES 'S1' 'S2' 'S3'. 88 SPC-CONVERTED-CLAIM VALUE 'S1'. 88 SPC-NEW-NOTICE-CLAIM VALUE 'S2'. 88 SPC-CONVERTED-REREGED-CLAIM VALUE 'S3'. 018800 09 R-NEW-NOTICE-SENT-IND PIC X(01). 01880006 09 R-NEW-PL-MARKET PIC X(02). 09 R-CPCS-CONTROL-UNUSED PIC X(08). SLR 09 R-CONSTRUCT-MKT-INDS REDEFINES SLR R-CPCS-CONTROL-UNUSED. SLR 11 R-CONSTRUCT-MKT-INJ-SEV-NDX PIC X(01). SLR 11 R-CONSTRUCT-MKT-NY-LBR-LAW PIC X(01). SLR 11 R-CONSTRUCT-MKT-WC-SETUP PIC X(01). *** 11/10/02 JMO USED A FILLER BYTE *************************** 11 R-CL-PL-EVIDENCE-MANG-IND PIC X(01). 88 EVIDENCE-MANAGEMENT-ACTIVE VALUE 'A'. 88 EVIDENCE-MANAGEMENT-CLOSED VALUE 'C'. CRT 11 R-CONSTRUCT-MKT-CRT-D-I PIC X(01). 03560006 CRT 11 R-CONSTRUCT-MKT-CRT-ADD-INS PIC X(01). 03570006 CRT 11 R-CONSTRUCT-MKT-CRT-OCP PIC X(01). 03571006 CRT 11 R-CONSTRUCT-MKT-CRT-OTHER PIC X(01). 03572006 019000 01900006 019100 01910000 019200 07 R-WC-CONTROL-DATA-ITEMS REDEFINES 01920000 019300 R-CPCS-CONTROL-DATA-ITEMS. 01930000 019400 01940000 019500 09 R-WC-COV-VER-IND PIC X(01). 01950000 019600 88 COVERAGE-WAS-VERIFIED VALUE 'Y'. 01960000 019700 88 COVERAGE-NOT-VERIFIED VALUE 'N'. 01970000 019800 88 COVERAGE-IS-UNDETERMINED VALUE 'U'. 01980000 019900 09 R-WC-INOL-SENT-IND PIC X(01). 01990000 020000 88 INOL-WAS-SENT VALUE 'Y'. 02000000 020100 09 R-WC-CRIT-LN-ITEMS-SW PIC X(01). 02010000 020200 88 CRITICAL-LN-ITEMS-PRESENT VALUE 'Y'. 02020000 020300 09 R-WC-CRIT-LC-ITEMS-SW PIC X(01). 02030000 020400 88 CRITICAL-LC-ITEMS-PRESENT VALUE 'Y'. 02040000 020500 09 R-WC-990-INOL-IND PIC X(01). 02050000 020600 88 990-INOL-WAS-GENERATED VALUE 'Y'. 02060000 020700 09 R-WC-991-INOL-IND PIC X(01). 02070000 020800 88 991-INOL-WAS-GENERATED VALUE 'Y'. 02080000 020900 09 R-WC-SPEC-REINS-IND PIC X(01). 02090000 021000 88 GULF-OIL-REINS-CLAIM VALUE 'G'. 02100000 021100 88 TRW-REINS-CLAIM VALUE 'T'. 02110000 021200 88 TENNECO-REINS-CLAIM VALUE 'O'. 02120000 021300 88 SPECIAL-REINS-CLAIM VALUE 'G' 'T' 'O'. 02130000 021400 09 R-WC-FIXED-LIAB-IND PIC X(01). 02140000 021500 88 A-FIXED-LIAB-CLAIM VALUE 'Y'. 02150000 021600 09 R-WC-WX-IN-POL-SYM-IND PIC X(01). 02160000 021700 88 WX-IN-POL-SYMBOL VALUE 'Y'. 02170000 021800 09 R-WC-NR-CLAIM-IND PIC X(01). 02180000 021900 88 NON-REGISTERED-CLAIM VALUE 'Y'. 02190000 022000 88 REGISTERED-CLAIM VALUE ' '. 02200000 022100 09 R-WC-MCR-CLAIM-IND PIC X(01). 02210000 022200 88 AN-MCR-CLAIM VALUE 'Y'. 02220000 022300 09 R-WC-TYPE-BUS-IND PIC X(01). 02230000 022400 88 TIC-BUSINESS VALUE 'T'. 02240000 022500 88 CSSC-BUSINESS VALUE 'C'. 02250000 022600 88 DOMESTIC-COMP VALUE 'D'. 02260000 022700 88 PRIOR-CARRIER-CSSC VALUE 'P'. 02270000 022800 09 R-WC-USL-FED-IND PIC X(01). 02280000 022900 88 USL-INDICATOR VALUE 'U'. 02290000 023000 88 FED-INDICATOR VALUE 'F'. 02300000 023100 09 FILLER PIC X(01). 02310000 023200 09 R-WC-COV-PRESENT-IND PIC X(01). 02320000 023300 88 COVERAGE-PRESENT VALUE 'Y'. 02330000 023400 88 COVERAGE-NOT-PRESENT VALUE 'N'. 02340000 023500 09 R-WC-SER-INJ-IND PIC X(01). 02350000 023600 09 R-WC-SUBRO-IND PIC X(01). 02360000 023700 09 R-WC-PRIOR-DCI-IND PIC X(01). 02370000 023800 88 PRIOR-DCI-COMPLETED VALUE 'Y'. 02380000 023900 09 R-WC-CTR-COMPL-IND PIC X(01). 02390000 024000 88 CTR-COMPLETED VALUE 'Y'. 02400000 024100 09 R-WC-CLRT-ACCESSED-IND PIC X(01). 02410000 024200 88 ACCESSED-CLRT-COVERAGE VALUE 'Y'. 02420000 024300 88 DECLINE-COVERAGE-RETRIEVAL VALUE 'N'. 02430000 024400 09 R-WC-TRANS-ACT-SW PIC X(01). 02440000 024500 88 TRANSFER-PENDING VALUE '1'. 02450000 024600 09 R-WC-PREV-ADJ-OFF PIC X(03). 02460000 024700 09 R-WC-INCOMP-DCI-IND PIC X(01). 02470000 024800 09 R-WC-LISS-TRAN-SEQ-NUM PIC 9(5). 02480000 024900 09 R-WC-NONMOVEABLE-EST-IND PIC X(01). 02490000 025000 09 R-WC-CLAIM-PYMT-IND PIC X(02). 02500000 025100 09 R-WC-ACTUARIAL-CLAIM-SW PIC X(01). 02510000 025200 88 AN-ACTUARIAL-CLAIM VALUES ARE 02520000 025300 'B' 'M' 'T'. 02530000 025400 09 R-WC-ESTIMATE-STATUS-IND PIC X(02). 02540000 025500 88 OPEN-NON-ACTUARY VALUE '11'. 02550000 025600 88 OPEN-ACTUARY VALUE '12'. 02560000 025700 88 CHANGE-NON-ACTUARY VALUE '13'. 02570000 025800 88 CHANGE-ACTUARY VALUE '14'. 02580000 025900 88 REOPEN-NON-ACTUARY VALUE '15'. 02590000 026000 88 REOPEN-ACTUARY VALUE '16'. 02600000 026100 09 R-WC-CLM-FA-IND PIC X(01). 02610000 026200 88 CLM-FIRST-PAYMENT-SET VALUE 'Y'. 02620000 026300 09 R-WC-MED-FA-IND PIC X(01). 02630000 026400 88 MED-FIRST-PAYMENT-SET VALUE 'Y'. 02640000 026500 09 R-WC-SB-FA-IND PIC X(01). 02650000 026600 88 SUP-FIRST-SB-PAYMENT-SET VALUE 'Y'. 02660000 026700 09 R-WC-SI-FA-IND PIC X(01). 02670000 026800 88 SUP-FIRST-SI-PAYMENT-SET VALUE 'Y'. 02680000 026900 09 R-WC-CM-TO-CB-TRANS-IND PIC X(01). 02690000 027000 88 LD-TRANSFER-IN-PROGRESS VALUE 'Y'. 02700000 027100 09 R-WC-INITIAL-VERIFY-IND PIC X(01). 02710000 027200 88 INITIAL-VERIFY VALUE ' '. 02720000 027300 09 R-WC-REQUEST-LOCAL-COV-IND PIC X(01). 02730000 027400 09 R-WC-MANUAL-COV-IND PIC X(01). 02740000 027500 88 MANUAL-COVERAGE-COMPLETE VALUE 'Y'. 02750000 027600 09 R-WC-PREVPAY-AMT-IND PIC X(01). 02760000 027700 88 PREVPAY-DOLLARS-EXIST VALUE 'Y'. 02770000 027800 09 R-WC-NEW-COV-NOT-VERIFIED PIC X(01). 02780000 027900 88 NEW-COVERAGE-NOT-VERIFIED VALUE 'Y'. 02790000 028000 09 R-WC-NR-DIARY-IND PIC X(01). 02800000 028100 88 NR-DIARY-SET VALUE 'Y'. 02810000 028200 09 R-WC-LOSS-COV-CHG-IND PIC X(01). 02820000 028300 09 R-WC-ICR-IND PIC X(01). 02830000 028400 88 ICR-REPORTABLE VALUE 'Y'. 02840000 028500 09 R-WC-DUPLICATE-IND PIC X(01). 02850000 028600 09 R-WC-DCI-IND PIC X(01). 02860000 028700 88 DCI-REPORTABLE VALUE 'Y'. 02870000 028800 09 R-WC-STATS1-COMPLETE PIC X(01). 02880000 028900 88 STATS1-COMPLETE VALUE 'Y'. 02890000 029000 09 R-WC-STATS2-COMPLETE PIC X(01). 02900000 029100 88 STATS2-COMPLETE VALUE 'Y'. 02910000 029200 09 R-WC-STATS3-COMPLETE PIC X(01). 02920000 029300 88 STATS3-COMPLETE VALUE 'Y'. 02930000 029400 09 R-WC-STATS4-COMPLETE PIC X(01). 02940000 029500 88 STATS4-COMPLETE VALUE 'Y'. 02950000 029600 09 R-WC-REOPENED-AT-TRANSFER-IND PIC X(01). 02960000 029700 88 REOPENED-AT-TRANSFER VALUE 'Y'. 02970000 029800 09 R-WC-REOPEN-ESTIMATE-IND PIC X(01). 02980000 029900 88 REOPEN-ESTIMATE-COMPLETED VALUE 'Y'. 02990000 030000 09 R-WC-ESTIMATE-TRAN-CODE PIC X(02). 03000000 030100 09 R-WC-FORMLINK-IND PIC X(01). 03010000 030200 88 CLAIM-ESTAB-VIA-FORMLINK VALUE 'Y'. 03020000 030300 09 R-WC-FORMLINK-EST-DONE-IND PIC X(01). 03030000 030400 88 FORMLINK-CLM-EST-DONE VALUE 'Y'. 03040000 030500 09 R-WC-FORMLINK-CM-DONE-IND PIC X(01). 03050000 030600 88 FORMLINK-CLM-CM-DONE VALUE 'Y'. 03060000 030700 09 R-WC-FORMLINK-CB1-DONE-IND PIC X(01). 03070000 030800 88 FORMLINK-CLM-CB1-DONE VALUE 'Y'. 03080000 030900 09 R-WC-FORMLINK-CB2-DONE-IND PIC X(01). 03090000 031000 88 FORMLINK-CLM-CB2-DONE VALUE 'Y'. 03100000 031100 09 R-WC-FORMLINK-CB3-DONE-IND PIC X(01). 03110000 031200 88 FORMLINK-CLM-CB3-DONE VALUE 'Y'. 03120000 031300 09 R-WC-STATS5-COMPLETE PIC X(01). 03130000 031400 88 STATS5-COMPLETE VALUE 'Y'. 03140000 031500 09 R-WC-SELECTED-FOR-DCI PIC X(01). 03150000 031600 88 NOT-SELECTED-FOR-DCI VALUE ' '. 03160000 031700 88 SEL-FOR-INITIAL-SAMPLE-DCI VALUE 'I'. 03170000 031800 88 SEL-FOR-STRAT-SAMPLE-DCI VALUE 'S'. 03180000 031900 09 R-WC-DED-CLM-IND PIC X(01). 03190000 032000 88 WC-DEDUCTIBLE-CLAIM VALUE 'Y'. 03200000 032100 09 R-WC-989-INOL-IND PIC X(01). 03210000 032200 88 WC-989-INOL-SENT VALUE 'Y'. 03220000 032300 09 R-WC-OLD-DED-CLM-IND PIC X(01). 03230000 032400 88 WC-OLD-DED-CLAIM VALUE 'Y'. 03240000 032500 09 R-WC-AIG-IND PIC X(01). 03250000 032600 88 WC-AIG-IND VALUE 'Y'. 03260000 032700 09 R-WC-CONTROL-DATA-UNUSED PIC X(06). 03270000 032800 03280000 019100 05 R-CLAIM-DATA. 01910006 019200 07 R-STKIND. 01920006 019300 09 R-STKIND-P-OR-D PIC X(01). 01930006 019400 09 R-STKIND-NAME PIC X(05). 01940006 019500 07 R-CAUSE-LOSS-COD PIC X(03). 01950006 019600 07 R-SUPV-ID PIC X(04). 01960006 019700 07 R-LOSS-DESIG PIC X(02). 01970006 019800 88 CM-CLAIM VALUE 'CM'. 01980006 019900 88 CB-CLAIM VALUE 'CB'. 01990006 020000 02000006 020100 07 R-REG-TYPE PIC X(04). 02010006 569115 07 R-LOC-NUM PIC X(01). 02030006 020400 07 R-BEN-STATE PIC X(02). 02040006 020500 07 R-CLM-ASGN. 02050006 020600 09 R-CLAIM-REP PIC X(04). 02060006 020700 09 R-IND-ADJ REDEFINES R-CLAIM-REP PIC X(04). 02070006 020800 88 GEN-ADJ-BUR VALUE '*GAB'. 02080006 020900 88 CRAWFORD-CO VALUE '*CRA'. 02090006 021000 88 OTH-AGENCY VALUE '*OTH'. 02100006 020700 09 R-WC-CLAIM-REP REDEFINES R-CLAIM-REP 02101014 PIC X(04). 02102014 035200 88 CLAIM-IS-UNASSIGNED VALUE 'UNA'. 03520000 035300 88 ASSGNED-TO-INDEP-ADJ VALUE 'INA'. 03530000 021100 07 R-CAT-CODE PIC X(02). 02110006 021200 07 R-CLM-NUM-DP-OR-RC PIC X(07). 02120006 021300 07 R-DUP-FTC PIC X(03). 02130006 021400 07 R-COMP-REF-OFFICE PIC X(03). 02140006 021500 07 R-COMP-REF-COMMENT PIC X(28). 02150006 021600 07 R-CFI-CHARS. 02160006 021700 09 R-FTC PIC X(03). 02170006 021800 09 R-CFI-CHARS-UNUSED PIC X(15). 02180006 021900 07 R-INTENSIFIED-APPRAISAL-CODE PIC X(01). 02190006 022000 88 R-INT-APPR-ELIG-APPR-UND VALUE '3'. 02200006 022100 88 R-INT-APPR-ELIG-APPR-OVR VALUE '5'. 02210006 022200 88 R-INT-APPR-NOT-ELIG-APPR-UND VALUE '4'. 02220006 022300 88 R-INT-APPR-NOT-ELIG-APPR-OVR VALUE '6'. 02230006 022400 88 R-INT-APPR-NOT-ELIGIBLE-UND VALUE '9'. 02240006 022500 88 R-INT-APPR-NOT-ELIGIBLE-OVR VALUE '8'. 02250006 022600 07 R-NOL-INSURED-PH-HOME PIC X(10). 02260006 022700 07 R-NOL-INSURED-PH-BUS PIC X(10). 02270006 022800 02280006 022900 05 R-NOL-DATA. 02290006 023000 07 R-DATE-OF-LOSS. 02300006 023100 09 R-DATE-OF-LOSS-MM PIC X(02). 02310006 023200 09 R-DATE-OF-LOSS-DD PIC X(02). 02320006 023300 09 R-DATE-OF-LOSS-CC PIC X(02). 02330006 023400 09 R-DATE-OF-LOSS-YY PIC X(02). 02340006 023500 07 R-PSEUDO-DOL. 02350006 023600 09 R-PSEUDO-DOL-MM PIC X(02). 02360006 023700 09 R-PSEUDO-DOL-DD PIC X(02). 02370006 023800 09 R-PSEUDO-DOL-CC PIC X(02). 02380006 023900 09 R-PSEUDO-DOL-YY PIC X(02). 02390006 024000 07 R-DATE-OF-NOL. 02400006 024100 09 R-DATE-OF-NOL-MM PIC X(02). 02410006 024200 09 R-DATE-OF-NOL-DD PIC X(02). 02420006 024300 09 R-DATE-OF-NOL-CC PIC X(02). 02430006 024400 09 R-DATE-OF-NOL-YY PIC X(02). 02440006 024500 07 R-NOL-INSURED-TYPE PIC X(01). 02450006 024600 07 R-NOL-INSURED-NAME PIC X(51). 02460006 024700 07 R-NOL-INSURED-ADDR. 02470006 024800 09 R-NOL-INSURED-STR-NUM PIC X(25). 02480006 024900 09 R-NOL-INSURED-CITY PIC X(13). 02490006 025000 09 R-NOL-INSURED-STATE PIC X(02). 02500006 025100 09 R-NOL-INSURED-ZIP-9. 02510006 025200 11 R-NOL-INSURED-ZIP PIC X(05). 02520006 025300 11 R-NOL-INSURED-ZIP-LAST4 PIC X(04). 02530006 025400 07 R-ACCIDENT-CITY PIC X(13). 02540006 025500 07 R-ACCIDENT-STATE PIC X(02). 02550006 025600 07 R-OWNER-POLHOLDER PIC X(01). 02560006 025700 07 R-VEH-OWNER PIC X(51). 02570006 025800 07 R-VEH-OWNER-ADDR. 02580006 025900 09 R-VEH-OWNER-STR-NUM PIC X(25). 02590006 026000 09 R-VEH-OWNER-CITY PIC X(13). 02600006 026100 09 R-VEH-OWNER-STATE PIC X(02). 02610006 026200 09 R-VEH-OWNER-ZIP-9. 02620006 026300 11 R-VEH-OWNER-ZIP PIC X(05). 02630006 026400 11 R-VEH-OWNER-ZIP-LAST4 PIC X(04). 02640006 026500 07 R-DRIVER PIC X(51). 02650006 026600 07 R-ADDLIAB-PROD-ITEMS REDEFINES R-DRIVER. 02660006 026700 09 R-PROD-TYPE PIC X(13). 02670006 026800 09 R-PROD-ADDR PIC X(28). 02680006 026900 09 R-PROD-PHONE PIC X(10). 02690006 027000 07 R-DRIVER-AGE PIC X(02). 02700006 027100 07 R-PROD-IND REDEFINES R-DRIVER-AGE. 02710006 027200 09 R-PROD-INSD-IND PIC X(01). 02720006 027300 88 PROD-INS-MAN VALUE 'M'. 02730006 027400 88 PROD-INS-VEN VALUE 'V'. 02740006 027500 88 PROD-INS-OTHER VALUE 'X'. 02750006 027600 07 R-DRIVER-RELASHIP PIC X(15). 02760006 027700 07 R-DRIVER-POU PIC X(10). 02770006 027800 07 R-DRIVER-USED-W-PERMISS PIC X(01). 02780006 027900 07 R-TIME-OF-LOSS. 02790006 028000 09 R-TIME-OF-LOSS-HR PIC X(02). 02800006 028100 09 R-TIME-OF-LOSS-MIN PIC X(02). 02810006 028200 09 R-TIME-OF-LOSS-AM-PM PIC X(01). 02820006 028300 07 R-CALLER-TYPE PIC X(01). 02830006 028500 88 CALLER-CMT VALUE 'C'. 02850006 028600 88 CALLER-INSD VALUE 'I'. 02860006 DLR 88 CALLER-NONE VALUE 'N'. 02940006 028400 88 CALLER-PROD VALUE 'P'. 02840006 DLR 88 CALLER-ATTORNEY VALUE 'T'. 02860006 028700 88 CALLER-ACORD-FORM VALUE '0'. 02870006 028800 88 CALLER-AGENT VALUE '1'. 02880006 028900 88 CALLER-CLAIMANT VALUE '2'. 02890006 029000 88 CALLER-INSURED VALUE '3'. 02900006 029100 88 CALLER-MAIL VALUE '4'. 02910006 029200 88 CALLER-OTHER VALUE '5'. 02920006 029300 88 CALLER-SUBRO-CARRIER VALUE '6'. 02930006 DLR 88 CALLER-FAX VALUE '7'. 02930006 DLR 88 CALLER-INTERNET VALUE '8'. 02930006 DLR 88 CALLER-EMAIL VALUE '9'. 02930006 029500 07 R-INITIAL-INR-DATE. 02950006 029600 09 R-INITIAL-INR-MM PIC X(02). 02960006 029700 09 R-INITIAL-INR-DD PIC X(02). 02970006 029800 09 R-INITIAL-INR-CC PIC X(02). 02980006 029900 09 R-INITIAL-INR-YY PIC X(02). 02990006 030000 07 R-NOLNOTE-CMPL-IND PIC X(01). 03000006 030100 07 R-OEM-ENDRS-IND PIC X(01). 03010006 54441 07 R-NOL-FIRE-IND PIC X(01). 03010006 54441 07 R-NOL-UNUSED PIC X(01). 03010006 030200 05 R-NJ-COMP-NEG-PERCENT PIC X(03). 03020006 030300 03030006 030400 05 R-ADDINFO-DATA. 03040006 030500 07 R-RISK-LOC-STR PIC X(39). 03050006 030600 07 R-RISK-LOC-CTY PIC X(20). 03060006 030700 07 R-RISK-LOC-STA PIC X(02). 03070006 030800 07 R-RISK-LOC-ZIP PIC X(09). 03080006 030900 07 R-SIR-COD PIC X(01). 03090006 031000 07 R-PIN-NUM-CHANGED-IND PIC X(01). 03100006 031100 88 PIN-NUM-CHANGED VALUE 'Y'. 03110006 031200 07 R-CL-SERV-OFF-COD PIC X(03). 03120006 031300 07 R-PROF-LIAB-CODE PIC X(01). 03130006 031400 07 R-ADDPROF-ITEMS. 03140006 031500 09 R-ADDPROF-SUIT-DATE. 03150006 031600 11 R-ADDPROF-SUIT-MM PIC X(02). 03160006 031700 11 R-ADDPROF-SUIT-DD PIC X(02). 03170006 031800 11 R-ADDPROF-SUIT-CC PIC X(02). 03180006 031900 11 R-ADDPROF-SUIT-YY PIC X(02). 03190006 032000 09 R-ADDPROF-CONSULTANT-FEE PIC X(01). 03200006 032100 09 R-ADDPROF-LEGAL-ITEMS. 03210006 032200 11 R-ADDPROF-CLAIM-TYPE PIC X(01). 03220006 032300 09 R-ADDPROF-MEDICAL-ITEMS. 03230006 032400 11 R-ADDPROF-ARBITRATION PIC X(01). 03240006 032500 11 R-ADDPROF-INCIDENT-NUMBER PIC X(06). 03250006 032600 11 R-ADDPROF-DISPOSITION-SUIT PIC X(01). 03260006 032700 07 R-ACCIDENT-STREET PIC X(25). 03270006 032800 07 R-NOL-VEH-PLATE-ST PIC X(12). 03280006 032900 07 R-ADDINFO-CMPL-IND PIC X(01). 03290006 033000 07 R-VEH-CLASS PIC X(01). 03300006 43260 07 R-ABI-COMPLEXITY-IND PIC X(01). 03310006 033200 07 R-CL-ONLY-DATA. 03320006 033300 09 R-SUBS-NAM PIC X(51). 03330006 033400 09 R-NOL-DESC-ACC-LOSS PIC X(70). 03340006 033500 09 R-NOL-DMG-INJ PIC X(50). 03350006 033600 09 R-INSD-LOC-COD PIC X(15). 03360006 033700 09 R-ENG-RPT-IND PIC X(01). 03370006 033800 07 R-AUTO-ONLY-DATA. 03380006 033900 09 R-NOL-VEH-YR. 03390006 034000 11 R-NOL-VEH-CC PIC X(02). 03400006 034100 11 R-NOL-VEH-YY PIC X(02). 03410006 034200 09 R-NOL-VEH-MAKE PIC X(09). 03420006 034300 09 R-NOL-VEH-MODEL PIC X(13). 03430006 034400 09 R-NOL-VEH-ID-NUM PIC X(17). 03440006 034500 09 R-VEH-OWN-TYP PIC X(01). 03450006 034600 09 R-TIC-CAR-NUM PIC X(05). 03460006 PROP. 07 R-PROP-ONLY-DATA REDEFINES R-AUTO-ONLY-DATA. 03470006 PROP 09 R-PROP-REP-EST-IND PIC X(01). 03460006 PROP 09 R-PROP-DMG-OTHER-IND PIC X(01). 03460006 PROP 09 R-PROP-DMG-1ROOM-IND PIC X(01). 03460006 PROP 09 R-PROP-DMG-DONE-IND PIC X(01). 03460006 PROP 09 R-PROP-REPAIRS-IND PIC X(01). 03460006 PROP 09 R-PROP-RENTED-IND PIC X(01). 03460006 PROP 09 R-PROP-IEB-IND PIC X(01). 03460006 PROP 09 R-PROP-EXPRESS-IND PIC X(01). 03460006 PROP 09 R-PROP-SEV-HANDL-IND PIC X(01). 03460006 PROP 09 R-PROP-SEV-HANDL-REASON PIC X(01). 03460006 PROP 09 R-PROP-LOC-SAME-IND PIC X(01). 03460006 3658 09 R-PROP-IA-IND PIC X(01). 03460006 3558 09 R-PROP-CLAIM-OPEN-RSN-CD PIC X(01). #5493 09 R-PROP-OCCUPANCY-AT-TOL PIC X(01). B5493 09 R-RENTED-TO-OTHERS PIC X(01). 03460006 B5493 09 R-FLOOD-POL-NBR PIC X(10). 03460006 B5493 09 R-FLOOD-POL-EFF-DT PIC X(08). 03460006 B5493 09 R-FLOOD-POL-EXP-DT PIC X(08). 03460006 B5493 09 R-FLOOD-POL-STS-CD PIC X(02). 03460006 B5493 09 R-FLOOD-POL-SRCH-CD PIC X(01). 03460006 355324 09 R-PROP-WTHR-PYMNT-CNT PIC 9(02). 03460006 355324 09 R-PROP-OTHRS-PYMNT-CNT PIC 9(02). 03460006 B5493 09 R-PROP-FILLER PIC X(01). 03460006 034700 07 R-ADDPROP-ONLY-DATA. 03470006 034800 09 R-NOL-ITEM-DESC PIC X(70). 03480006 034900 07 R-ADDLIAB-PREM-DATA REDEFINES R-ADDPROP-ONLY-DATA.03490006 035000 09 R-PREM-INSD-IND PIC X(01). 03500006 035100 88 PREM-INS-OWN VALUE 'O'. 03510006 035200 88 PREM-INS-TEN VALUE 'T'. 03520006 035300 88 PREM-INS-OTHER VALUE 'X'. 03530006 035400 09 R-PREM-TYPE PIC X(13). 03540006 035500 09 R-PREM-ADDR PIC X(28). 03550006 035600 09 R-PREM-PHONE PIC X(10). 03560006 035700 07 R-ADDLIAB-ONLY-DATA. 03570006 035800 09 R-APPL-COV PIC X(01). 03580006 035900 09 R-ACC-PREM-IND PIC X(01). 03590006 036000 09 R-SLG-FIELDS. 03600006 036100 11 R-SLG-RISK-ID PIC X(05). 03610006 036200 11 R-SLG-CLAIM-TYPE PIC X(01). 03620006 036300 11 R-SLG-LEAD-CLM-NUM PIC X(07). 03630006 036400 11 R-SLG-COURT-IND PIC X(01). 03640006 036500 11 R-SLG-COURT-CITY-CNTY PIC X(20). 03650006 036600 11 R-SLG-COURT-STATE PIC X(02). 03660006 036700 11 R-SLG-COURT-DISTRICT PIC X(04). 03670006 036800 11 R-SLG-COST-SHARE-CODE PIC X(01). 03680006 036900 11 R-SLG-SHARING-TYPE PIC X(01). 03690006 037000 11 R-SLG-TIC-LEAD PIC X(01). 03700006 037100 11 R-SLG-SEEKING-REIM PIC X(01). 03710006 037200 11 R-SLG-HW-SITE. 03720006 037300 13 R-SLG-HW-SITE-STATE PIC X(02). 03730006 037400 13 R-SLG-HW-SITE-NUM PIC X(07). 03740006 037500 13 R-SLG-HW-SITE-SEQ PIC X(03). 03750006 037600 11 R-SLG-GROUP-IND PIC X(03). 03760006 037700 11 R-SLG-ACCTG-FILE PIC X(01). 03770006 037800 11 R-SLG-SCREENS-DONE. 03780006 037900 13 R-SLG-REG-DONE PIC X(01). 03790006 038000 13 R-SLG-SPRED-DONE PIC X(01). 03800006 038100 13 R-SLG-ADD-DONE PIC X(01). 03810006 038200 11 R-SLG-LEAD-CLM-CHK-DIGIT PIC X(01). 03820006 038300 11 R-SLG-HAZ-TRANSMIT-DUE PIC X(01). 03830006 038400 11 R-MALPRACTICE-TYPE PIC X(01). 03840006 038500 11 R-PRIM-CLM-NUM PIC X(07). 03850006 038600 11 R-OCC-CLM-NUM PIC X(07). 03860006 051701 11 R-PRIOR-PAID-IND PIC X(01). 05171001 051701 11 FILLER PIC X(03). 05171001 038800 07 R-ADDLNOL-ONLY-DATA REDEFINES R-ADDLIAB-ONLY-DATA.03880006 038900 09 R-PL-SERV-OFF-COD PIC X(03). 03890006 039000 09 R-NOL-POL-EXPIR-DATE. 03900006 039100 11 R-NOL-POL-EXPIR-MM PIC X(02). 03910006 039200 11 R-NOL-POL-EXPIR-DD PIC X(02). 03920006 039300 11 R-NOL-POL-EXPIR-CC PIC X(02). 03940010 039400 11 R-NOL-POL-EXPIR-YY PIC X(02). 03940010 039500 09 R-IM-IND PIC X(01). 03950006 039600 09 R-IM-TYP PIC X(20). 03960006 039700 09 R-ADDLNOL-CMNT PIC X(50). 03970006 039800 09 FILLER PIC X(04). 03980011 039900 07 R-CL-PRINCIPAL-GAR-STA PIC X(02). 03990006 040000 07 R-SPEC-CAT-CLM-TYP PIC X(03). 04000006 040100 07 R-PROP-LIN-INS-COD PIC X(01). 04010006 040200 07 R-IM-LOC-COD PIC X(02). 04020006 040300 07 R-ADDINFO-RFC-IND PIC X(01). 04030006 040400 07 R-BM-TYPE-LOSS-COD PIC X(02). 04040006 040500 07 R-ADDAUTO-DRIVER-SSN PIC X(09). 04050006 040600 07 R-TIC-CAR-TYPE PIC X(01). 04060006 040700 04070006 040800 05 R-REG-DATA. 04080006 040900 07 R-POLICY-TYPE PIC X(01). 04090006 041000 88 R-POLICY-TYPE-ARTS VALUE 'A'. 04100006 041100 88 R-POLICY-TYPE-CARS-CW VALUE 'B'. 04110006 041200 88 R-POLICY-TYPE-CARS VALUE 'C'. 04120006 041300 88 R-POLICY-TYPE-AETNA-HOME VALUE 'D'. 04130006 041400 88 R-POLICY-TYPE-AETNA-AUTO VALUE 'E'. 04140006 88 R-POLICY-TYPE-CL-FIELD VALUE 'F'. 041500 88 R-POLICY-TYPE-TAP-HOME VALUE 'G'. 04150006 041600 88 R-POLICY-TYPE-HCB VALUE 'H'. 04160006 88 R-POLICY-TYPE-AETNA-HOME-MAN VALUE 'I'. 88 R-POLICY-TYPE-AETNA-AUTO-MAN VALUE 'J'. 88 R-POLICY-TYPE-MAN-AUTO VALUE 'K'. 88 R-POLICY-TYPE-TAP-HOME-MAN VALUE 'L'. 041700 88 R-POLICY-TYPE-HOMES VALUE 'M'. 04170006 041700 88 R-POLICY-TYPE-TRAVCAL-AUTO VALUE 'N'. 04170006 041700 88 R-POLICY-TYPE-CL-OMNI VALUE 'O'. 04170006 041800 88 R-POLICY-TYPE-MAN-PROP VALUE 'P'. 04180006 041900 88 R-POLICY-TYPE-MAN-LIAB VALUE 'P'. 04190006 TRVCA 88 R-POLICY-TYPE-TRAVCAL-MAN VALUE 'Q'. 05380000 041900 88 R-POLICY-TYPE-AETNA-DWEL VALUE 'R'. 04190006 042100 88 R-POLICY-TYPE-CL-AUTOMATED VALUE 'S'. 04210006 042400 88 R-POLICY-TYPE-CL-MSTPAC VALUE 'T'. 04240006 042400 88 R-POLICY-TYPE-BOAT VALUE 'U'. 04240006 042400 88 R-POLICY-TYPE-AETNA-DWEL-MAN VALUE 'V'. 04240006 042300 88 R-POLICY-TYPE-WORKERS-COMP VALUE 'W'. 04230006 AETBO 88 R-POLICY-TYPE-BOAT-MAN VALUE 'Y'. 05380000 042400 88 R-POLICY-TYPE-PIF VALUE 'Z'. 04240006 HUON 88 R-POLICY-TYPE-HUON VALUE '1'. 05411003 FTIC 88 R-POLICY-TYPE-FTIC VALUE '2'. 05411003 126831 88 R-POLICY-TYPE-PIPELINE VALUE '3'. 408956 88 R-POLICY-TYPE-PI-AUTO-4 VALUE '4'. 054200 07 R-CL-MAJ-LINE-IND PIC X(01). 05420000 054300 07 R-SAILOR-ACCT-NUM PIC X(09). 05430000 054400 07 R-SAC-IND PIC X(01). 05440000 054500 07 R-CL-POL-FORM PIC X(04). 05450000 054600 88 R-OMNI-FORM VALUE '660 ' '670 ' '675' 05460000 054700 '810' '820' '830' '840'. 05470000 054800 88 R-MPAC-FORM VALUE '680 ' 'PACP'. 05480000 054900 07 R-POL-ID PIC X(24). 05490000 055000 07 R-CL-POL-ID REDEFINES R-POL-ID. 05500000 055100 09 R-CL-POL-SYM PIC X(08). 05510000 055200 09 R-CL-POL-NUM PIC X(08). 05520000 055300 07 R-PIN REDEFINES R-POL-ID. 05530000 055400 09 R-PIN-PRODUCER PIC X(06). 05540000 055500 09 R-PIN-ACCOUNT PIC X(09). 05550000 FTIC 09 R-FTIC-ACCOUNT REDEFINES R-PIN-ACCOUNT. FTIC 11 R-FTIC-PIN-ACCOUNT PIC X(07). FTIC 11 R-FTIC-MOD-NUM PIC X(02). 055600 09 R-PIN-FORM PIC X(08). 05560000 055700 09 R-PIN-SEQ PIC X(01). 05570000 055800 07 R-REG-DATA-STATUS. 05580000 055900 09 R-REG-STATUS PIC X(01). 05590000 056000 09 R-POLICY-DATA-STATUS PIC X(01). 05600000 056100 07 R-REG-DATA-STATUS-2 REDEFINES 05610000 056200 R-REG-DATA-STATUS. 05620000 056300 09 R-2-BYTE-STATUS PIC X(02). 05630000 056400 88 R-POL-STATUS-CNA-ONLY VALUE SPACES. 05640000 056500 88 R-POL-STATUS-AUTO-RESP VALUE '01'. 05650000 056600 88 R-POL-STATUS-POL-COV VALUE '02'. 05660000 056700 88 R-POL-STATUS-POL-ONLY VALUE '11'. 05670000 056800 88 R-POL-STATUS-COV-ONLY VALUE '21'. 05680000 056900 88 R-POL-STATUS-MAN-RESP VALUE '31'. 05690000 057000 07 R-CLRT-RETURN-COD PIC X(02). 05700000 057100 05710000 057200 05720000 057300 05730000 057400 07 R-INSUREDS-NAME. 05740000 057500 09 R-INSUREDS-FIRST-MI PIC X(39). 05750000 057600 09 R-INSUREDS-LAST PIC X(39). 05760000 057700 09 R-WC-INSUREDS-NAME REDEFINES 05770000 057800 R-INSUREDS-LAST PIC X(30). 05780000 057900 07 R-INSUREDS-ADDR. 05790000 058000 09 R-INSUREDS-STR-NUM PIC X(39). 05800000 058100 09 R-INSUREDS-CITY-ST-ZIP PIC X(43). 05810000 058200 09 R-CARS-INSD-CITY-ST-ZIP REDEFINES 05820000 058300 R-INSUREDS-CITY-ST-ZIP. 05830000 058400 11 R-CARS-INSUREDS-CITY PIC X(25). 05840000 058500 11 FILLER PIC X(01). 05850000 058600 11 R-CARS-INSUREDS-ST PIC X(02). 05860000 058700 11 FILLER PIC X(01). 05870000 058800 11 R-CARS-INSUREDS-ZIP-9. 05880000 058900 13 R-CARS-INSUREDS-ZIP PIC X(05). 05890000 059000 13 R-CARS-ZIP-LAST4 PIC X(04). 05900000 059100 11 FILLER PIC X(05). 05910000 059200 09 R-INSD-CITY-ST-ZIP REDEFINES 05920000 059300 R-INSUREDS-CITY-ST-ZIP. 05930000 059400 11 R-INSUREDS-CITY PIC X(30). 05940000 059500 11 FILLER PIC X(01). 05950000 059600 11 R-INSUREDS-ST PIC X(02). 05960000 059700 11 FILLER PIC X(01). 05970000 059800 11 R-INSUREDS-ZIP-9. 05980000 059900 13 R-INSUREDS-ZIP PIC X(05). 05990000 060000 13 R-ZIP-LAST4 PIC X(04). 06000000 060100 09 R-CW-INSD-CITY-ST-ZIP REDEFINES 06010000 060200 R-INSUREDS-CITY-ST-ZIP. 06020000 060300 11 R-CW-INSD-CITY PIC X(20). 06030000 060400 11 R-CW-INSD-ST PIC X(02). 06040000 060500 11 R-CW-INSD-ZIP PIC X(09). 06050000 060600 11 FILLER PIC X(12). 06060000 FTIC 09 R-FTIC-INSD-CITY-ST-ZIP REDEFINES 06010000 FTIC R-INSUREDS-CITY-ST-ZIP. 06020000 FTIC 11 R-FTIC-INSD-CITY PIC X(28). 06030000 FTIC 11 R-FTIC-INSD-ST PIC X(02). 06040000 FTIC 11 R-FTIC-INSD-ZIP PIC X(06). 06050000 060600 11 FILLER PIC X(07). 06060000 060700 07 R-REG-DATE. 06070000 09 R-REG-CC PIC X(02). 09 R-REG-YY PIC X(02). 09 R-REG-DDD PIC X(03). 060800 07 R-STATE-CODE PIC X(02). 06080000 060900 07 R-PRODUCERS-NAME PIC X(24). 06090000 061000 07 R-PROD-COD PIC X(06). 06100000 061100 07 R-COMPANY PIC X(03). 06110000 061200 07 R-OFFICE-CODE PIC X(03). 06120000 061300 07 R-ORP-COD REDEFINES R-OFFICE-CODE PIC X(03). 06130000 061400 07 R-CL-OFF-ABBR PIC X(12). 06140000 061500 07 R-POLICY-CANNED-MESSAGE PIC X(60). 06150000 061600 07 R-CANNED-RESPONSE REDEFINES 06160000 061700 R-POLICY-CANNED-MESSAGE. 06170000 061800 09 FILLER PIC X(55). 06180000 061900 09 R-PL-CAN-RESP-DATE. 06190000 11 R-PL-CAN-RESP-YY PIC X(02). 11 R-PL-CAN-RESP-DDD PIC X(03). 062000 07 R-CL-CANNED-MSG REDEFINES 06200000 062100 R-POLICY-CANNED-MESSAGE. 06210000 062200 09 R-CL-CAN-RESP-POL-FORM PIC X(04). 06220000 062300 09 R-CL-CAN-RESP-POL-NUM PIC X(08). 06230000 062400 09 R-CL-CAN-RESP-MESSAGE. 06240000 062500 11 R-CL-MAN-CAN-RESP-MSG PIC X(43). 06250000 062600 11 R-CL-CAN-RESP-DATE. 06260000 13 R-CL-CAN-REP-YY PIC X(02). 13 R-CL-CAN-REP-DDD PIC X(03). 062700 07 R-HOMES-CANNED-MSG REDEFINES 06270000 062800 R-POLICY-CANNED-MESSAGE. 06280000 062900 09 R-HOMES-CANNED-MESSAGE PIC X(51). 06290000 063000 09 R-HOMES-LOC-TYPE PIC X(02). 06300000 063100 09 R-HOMES-STATE-CODE PIC X(02). 06310000 063200 09 FILLER PIC X(05). 06320000 062700 07 R-SAFARI-CANNED-MSG REDEFINES 06270000 062800 R-POLICY-CANNED-MESSAGE. 06280000 063000 09 FILLER PIC X(60). 06300000 07 R-TAP-CANNED-MSG REDEFINES R-POLICY-CANNED-MESSAGE. 09 FILLER PIC X(60). 063300 07 R-CW-POLICY-CANNED-MSG REDEFINES 06330000 063400 R-POLICY-CANNED-MESSAGE. 06340000 063500 09 R-CW-CANNED-TEXT PIC X(54). 06350000 063600 09 R-CW-IND PIC X(01). 06360000 063700 09 FILLER PIC X(05). 06370000 068500 07 R-CPL-IMPACT-WKSTN-ITEMS. 06850000 068600 09 R-NOL-TIME-OF-LOSS PIC X(20). 06860004 068700 09 R-NOL-INSURED-EXTENSION PIC X(05). 06870004 068800 09 R-NOL-INSRD-TMP-ADDR-IND PIC X(01). 06880004 068900 09 R-NOL-INSRD-TMP-ADDR-DATE PIC X(08). 06890004 069000 09 R-NOL-INSRD-MAIL-ADDR-IND PIC X(01). 06900004 069100 09 R-NOL-INSRD-PERM-ADDR-IND PIC X(01). 06910004 069200 09 R-NOL-INCIDENT-RPT-IND PIC X(01). 06920004 069300 09 R-NOL-WKSTN-DATE. 06930004 11 R-NOL-WKSTN-MM PIC X(02). 11 R-NOL-WKSTN-DD PIC X(02). 11 R-NOL-WKSTN-CC PIC X(02). 11 R-NOL-WKSTN-YY PIC X(02). 069400 09 R-NOL-WKSTN-TIME PIC X(05). 06940004 069500 09 R-NOL-SOURCE-IND PIC X(01). 06950004 069510 88 CPCS-CLM-SETUP VALUE ' '. 069520 88 PLWKSTN-CLM-SETUP VALUE '1'. 069530 88 CROSS-COUNTRY-CLM-SETUP VALUE '2'. OFFHRS 88 OFF-HOURS-CLM-SETUP VALUE '3'. 88 TRAVPRO-CLM-SETUP VALUE '4'. TRVGLS 88 MITCHELL-CLM-SETUP VALUE '5'. 378893 88 CLAIM-PLATFORM-CLM-SETUP VALUE '6'. 408956 88 ROADSIDE-CLM-SETUP VALUE '7'. 408956 88 MOBILE-CLM-SETUP VALUE '8'. 069600 09 R-NOL-AUTO-ITEMS. 06960000 069700 11 R-NOL-VEH-NONDRIVE-IND PIC X(01). 06970004 069800 11 R-NOL-POL-OWNERSHIP-TYPE PIC X(01). 06980004 069900 11 R-NOL-POL-PERMISS-USE-IND PIC X(01). 06990004 070000 11 R-NOL-POL-PURPOSE-USE-IND PIC X(01). 07000004 070000 11 R-NOL-POL-REQUEST-TYPE PIC X(01). 07000004 DOA1 11 R-DOA-POLICE-RPT-IND PIC X(01). 07010004 DOA1 11 R-DOA-INSURED-CITED-IND PIC X(01). 07010004 DOA1 11 R-DOA-OTHER-CITED-IND PIC X(01). 07010004 DOA1 11 R-DOA-NEG-EST-ACTUAL PIC X(01). DOA1 11 R-DOA-VEH-GARAGED-IND PIC X(01). 07010004 SYNC 11 R-AUTO-PED-INJ-IND PIC X(01). 07010004 SYNC 88 R-PEDESTRIAN-INJ VALUE 'Y'. SYNC 11 R-AUTO-PARKLOT-TYPE PIC X(01). 07010004 SYNC 11 R-AUTO-INTERSECTION-IND PIC X(01). 07010004 SYNC 11 R-AUTO-TYPE-SING-VEH-ACC PIC X(01). 07010004 070200 11 R-NOL-POL-SERIOUS-INJ-IND PIC X(01). 07020004 070210 88 R-SERIOUS-INJURY VALUE '1'. 070300 11 R-NOL-POL-MP-IND PIC X(01). 07030004 070310 88 R-INJ-MED-PAY VALUE '1'. 070400 11 R-NOL-POL-BI-IND PIC X(01). 07040004 070410 88 R-INJ-BI VALUE '1'. 070500 11 R-NOL-POL-UNINSURED-IND PIC X(01). 07050004 070510 88 R-INJ-UNINSURED VALUE '1'. 070600 11 R-NOL-POL-UNDERINSURED-IND PIC X(01). 07060004 070610 88 R-INJ-UNDERINSURED VALUE '1'. 070700 11 R-NOL-POL-ACC-TYPE-IND PIC X(01). 07070004 070710 88 R-SINGLE-VEHICLE VALUE '0'. 070720 88 R-MULTI-VEH-CLR VALUE '1'. 070730 88 R-MULTI-VEH-UNC VALUE '2'. 070800 11 R-NOL-POL-COLL-IND PIC X(01). 07080004 070810 88 R-PD-COLLISION VALUE '1'. 070900 11 R-NOL-POL-PD-IND PIC X(01). 07090004 070910 88 R-PD-PROP VALUE '1'. 071000 11 R-NOL-POL-NO-FAULT PIC X(01). 07100004 071010 88 R-INJ-NO-FAULT VALUE '1'. 071100 11 R-NOL-POL-COMP-LIST-IND PIC X(01). 07110004 071101 88 R-THEFT-LOSS VALUE 'J'. 071102 88 R-COMP-LOSS VALUE 'A' 'B' 071103 'C' 'D' 'E' 'F' 'G' 'H' 'I' 'K' 'L'. 071110 11 R-NOL-POL-AIP-IND PIC X(01). 07120004 071200 11 R-NOL-POL-VEH-REG-STATE PIC X(02). 07120004 071300 09 R-NOL-LIAB-ITEMS. 07130000 071400 11 R-NOL-LIAB-WHERE-LOSS-PLC PIC X(01). 07140004 071500 11 R-NOL-LIAB-OUTSIDE-REP-IND PIC X(01). 07150004 071600 11 R-NOL-LIAB-SERIOUS-INJ-IND PIC X(01). 07160004 071700 09 R-NOL-PROP-ITEMS. 07170000 071800 11 R-NOL-PROP-WHERE-LOSS-PLC PIC X(01). 07180004 071810 88 R-OFF-PREMISES VALUE '0'. 071820 88 R-ON-PREMISES VALUE '1'. 071900 11 R-NOL-PROP-TYPE-PROP-B PIC X(01). 07190004 071910 88 R-BUILDING-TYPE VALUE '1'. 072000 11 R-NOL-PROP-TYPE-PROP-C PIC X(01). 07200004 072010 88 R-CONTENTS-TYPE VALUE '1'. 072100 11 R-NOL-PROP-TYPE-PROP-F PIC X(01). 07210004 072110 88 R-FLOATER-TYPE VALUE '1'. 072200 11 R-NOL-PROP-TYPE-PROP-O PIC X(01). 07220004 072210 88 R-OTHER-TYPE VALUE '1'. 072300 11 R-NOL-PROP-TYPE-PROP-W PIC X(01). 07230004 072310 88 R-WATERCRAFT-TYPE VALUE '1'. 072400 11 R-NOL-PROP-BLD-RANGE PIC X(01). 07240004 072410 88 R-BLD-DOLLAR-RANGE-1 VALUE '1'. 072420 88 R-BLD-DOLLAR-RANGE-2 VALUE '2'. 072430 88 R-BLD-DOLLAR-RANGE-3 VALUE '3'. 072440 88 R-BLD-DOLLAR-RANGE-4 VALUE '4'. SUPV 88 R-BLD-DOLLAR-RANGE-5 VALUE '5'. 072500 11 R-NOL-PROP-CNT-RANGE PIC X(01). 07250004 072510 88 R-CNT-DOLLAR-RANGE-1 VALUE '1'. 072520 88 R-CNT-DOLLAR-RANGE-2 VALUE '2'. 072530 88 R-CNT-DOLLAR-RANGE-3 VALUE '3'. 072540 88 R-CNT-DOLLAR-RANGE-4 VALUE '4'. SUPV 88 R-CNT-DOLLAR-RANGE-5 VALUE '5'. 072600 11 R-NOL-PROP-OTH-RANGE PIC X(01). 07260004 072700 88 R-OTH-DOLLAR-RANGE-1 VALUE '1'. 072710 88 R-OTH-DOLLAR-RANGE-2 VALUE '2'. 072720 88 R-OTH-DOLLAR-RANGE-3 VALUE '3'. 072730 88 R-OTH-DOLLAR-RANGE-4 VALUE '4'. 88 R-OTH-DOLLAR-RANGE-5 VALUE '5'. 072800 11 R-NOL-PROP-OUTSIDE-REP-IND PIC X(01). 07280004 11 R-NOL-PROP-FIRE-DEPT-CALLED PIC X(01). 88 R-FIRE-DEPT-CALLED VALUE '1'. FTIC 09 R-FTIC-CLAIM-IND PIC X(01). 073100 09 R-ARNS-SENT-IND PIC X(01). 07310004 09 R-NOTICE-TAKER-FIELDS. 11 R-NOTICE-TAKER-OFFICE PIC X(03). 11 R-NOTICE-TAKER-ID PIC X(04). DLR 09 R-NOTICE-TAKEN-VIA PIC X(01). DLR 88 VIA-EDI VALUE 'E'. DLR 88 VIA-FAX VALUE 'F'. DLR 88 VIA-INTERNET VALUE 'I'. DLR 88 VIA-EMAIL VALUE 'L'. DLR 88 VIA-MAIL VALUE 'M'. DLR 88 VIA-PRIOR-CARRIER VALUE 'P'. DLR 88 VIA-TELEPHONE VALUE 'T'. DLR 88 VIA-XML VALUE 'X'. PLWSL 09 R-PL-SOURCE-OF-LOSS-CODE PIC X(03). PLWSL 88 R-SOL-ALL-OTHER VALUE 'L01'. PLWSL 88 R-SOL-TEXAS VALUE 'L02'. PLWSL 88 R-SOL-TRAVCAL VALUE 'L03'. PLWSL 88 R-SOL-ALWH-RUNOFF VALUE 'L04'. PLWSL 88 R-SOL-1ST-FLORIDIAN VALUE 'L05'. TNJ02 88 R-SOL-TIC-DWC VALUE 'L06'. PLWSL 88 R-SOL-1ST-TRENTON VALUE 'L07'. TNJ01 88 R-SOL-TRAVELERS-NJ VALUE 'L08'. TNJ02 88 R-SOL-TNJ-DWC VALUE 'L09'. TNJ01 09 R-PL-RATG-NUM-DRVRS PIC X(02). 408956 09 R-VEH-GLASS-REPR-REPL-IND PIC X(01). 408956 88 R-GLASS-REPAIR-ONLY VALUE 'R'. 408956 88 R-GLASS-REPLACE-ONLY VALUE 'L'. 408956 88 R-GLASS-BOTH VALUE 'B'. 073107 09 R-CROSS-COUNTRY-CALL-NUM PIC X(06). 073108 09 R-SIMP-PAY-TYPE PIC X(02). 073110 09 R-LOSS-DESC-DB2-NOTE-KEY PIC X(29). 07311004 073120 09 R-NATURE-OF-LOSS-IND PIC X(01). 07311004 073121 09 R-CONTROLLING-OFF-TYPE PIC X(01). 07311004 073130 09 R-CPL-LNLU-FOR-REREG-SW PIC X(01). 07311004 88 LNLU-DONE VALUE 'Y'. 88 LNLU-NOT-DONE VALUE ' '. 09 R-CPL-CRIME-TYPE-IND PIC X(01). 88 R-CPL-CRIME-TYPE-BURGLARY VALUE '0'. 88 R-CPL-CRIME-TYPE-FIDELITY VALUE '1'. 073130 09 R-DRVR-RELATIONSHIP-CD PIC X(01). 07311004 092400 05 R-DOA-DATA. 09240000 092500 07 R-DOA-INDICATORS OCCURS 50 TIMES. 09250000 092600 09 R-DOA-NUMERIC PIC X(01). 09260000 092700 09 R-DOA-ALPHA PIC X(01). 09270000 092800 07 R-DOA-OTHER-DESCR PIC X(50). 09280000 092900 07 R-DOL-1-BUILDING-COST PIC X(07). 09290000 093000 07 R-DOL-1-CONTENTS-COST PIC X(07). 09300000 093100 09310000 093200 05 R-WC-CLM-FINANCIAL-TOTALS REDEFINES R-DOA-DATA. 09320000 093300 07 R-WC-TOT-CLM-AMT-PAID PIC S9(10)V99. 09330000 093400 07 R-WC-TOT-CLM-AMT-EST PIC S9(10)V99. 09340000 093500 07 R-WC-TOT-MED-AMT-PAID PIC S9(10)V99. 09350000 093600 07 R-WC-TOT-MED-AMT-EST PIC S9(10)V99. 09360000 093700 07 R-WC-TOT-EXP-AMT-PAID PIC S9(10)V99. 09370000 093800 07 R-WC-TOT-EXP-AMT-EST PIC S9(10)V99. 09380000 093900 07 R-WC-TOT-SUP-AMT-PAID PIC S9(10)V99. 09390000 094000 07 FILLER PIC X(30). 09400000 094100 09410000 094200 09420000 094300 05 R-CLM-FINANCIAL-TOTALS. 09430000 094400 07 R-CLM-NUM-TOT-CLM-AMT-PAID PIC S9(10)V99. 09440000 094500 07 R-CLM-NUM-TOT-EXP-AMT-PAID PIC S9(10)V99. 09450000 094600 07 R-CLM-NUM-TOT-CLM-EST PIC S9(10). 09460000 094700 07 R-CLM-NUM-TOT-EXP-EST PIC S9(10). 09470000 094800**PIF IND. 09480000 094900 05 R-POLICY-SOURCE-IND PIC X(03). 09490000 095000 88 PIF-POLICY VALUE 'PIF'. 09500000 095100 05 R-COVERAGE-SOURCE-IND PIC X(01). 09510000 095200 88 COVERAGE-FROM-PIF VALUE 'P'. 09520000 095300 09530000 095400 09540000 095500 04 R-CPCS-ONLY-DATA. 09550000 095600 09560000 095700 05 R-REREG-SAVE-AREA. 09570000 095800 07 R-OLD-REG-TYPE PIC X(04). 09580000 095900 07 R-OLD-EFF-DATE-POL-PERD PIC X(08). 09590000 096000 07 R-OLD-EFF-DATE-POL-PERD-X REDEFINES 09600000 096100 R-OLD-EFF-DATE-POL-PERD. 09610000 096200 09 R-OLD-EFF-DATE-MM PIC X(02). 09620000 096300 09 R-OLD-EFF-DATE-DD PIC X(02). 09630000 096300 09 R-OLD-EFF-DATE-CC PIC X(02). 09630000 096400 09 R-OLD-EFF-DATE-YY PIC X(02). 09640000 096500 07 R-OLD-CL-POL-FORM PIC X(04). 09650000 096600 07 R-OLD-LOSS-DESG PIC X(02). 09660000 096700 07 R-OLD-REP-PLAN-LINE-COD PIC X(02). 09670000 096800 07 R-OLD-FIN-ACCT-COD PIC X(01). 09680000 096900 07 R-OLD-DATE-OF-LOSS. 09690000 097000 09 R-OLD-DATE-OF-LOSS-MM PIC X(02). 09700000 097100 09 R-OLD-DATE-OF-LOSS-DD PIC X(02). 09710000 097100 09 R-OLD-DATE-OF-LOSS-CC PIC X(02). 09710000 097200 09 R-OLD-DATE-OF-LOSS-YY PIC X(02). 09720000 097300 07 R-OLD-INJ-EXPOS-DIS-COD PIC X(03). 09730000 097400 05 R-PL-CANNED-RESPONSE-NUM PIC X(01). 09740000 097500 05 R-PL-CANNED-RESPONSE-PIN. 09750000 097600 06 R-PL-CANNED-RESP-PIN-PROD PIC X(06). 09760000 097700 06 R-PL-CANNED-RESP-PIN-ACCOUNT PIC X(09). 09770000 097800 06 R-PL-CANNED-RESP-PIN-FORM PIC X(08). 09780000 097900 06 R-PL-CANNED-RESP-PIN-SEQ-NUM PIC X(01). 09790000 098000 05 R-PREV-CL-ITEM-AREA REDEFINES 09800000 098100 R-PL-CANNED-RESPONSE-PIN. 09810000 098200 06 R-PREV-CLRT-RETURN-CODE PIC X(02). 09820000 098300 06 R-PREV-CLRT-RC-DATE. 09830000 08 R-PREV-CLRT-RC-CC PIC X(02). 08 R-PREV-CLRT-RC-YY PIC X(02). 08 R-PREV-CLRT-RC-DDD PIC X(03). 098400 06 R-OLD-CSSC-ACCT-NUM PIC X(03). 09840000 098500 06 R-REREG-DATE PIC X(07). 09850000 098500 06 R-PREV-CL-AREA-UNUSED PIC X(05). 09850000 098600 05 R-CL-PHASE3-INOL-OLD-ITEMS. 09860000 098700 06 R-OLD-ADDLIAB-ITEMS. 09870000 098800 10 FILLER PIC X(20). 09880000 098810 10 R-OLD-MALPRACTICE-TYPE PIC X(01). 09880000 098900 10 R-OLD-APPL-COV PIC X(01). 09890000 099000 10 R-OLD-SPEC-CAT-CLM-TYP PIC X(03). 09900000 099100 06 R-OLD-ADDAUTO-ITEMS REDEFINES 09910000 099200 R-OLD-ADDLIAB-ITEMS. 09920000 099300 10 R-OLD-PRIN-GARAGE PIC X(02). 09930000 099400 10 R-OLD-VEH-OWN-TYP PIC X(01). 09940000 099500 10 R-OLD-ADDAUTO-UNUSED PIC X(22). 09950000 099600 06 R-OLD-ADDPROP-ITEMS REDEFINES 09960000 099700 R-OLD-ADDLIAB-ITEMS. 09970000 099800 10 R-OLD-BOILER-INTERRUP-COD PIC X(03). 09980000 099900 10 R-OLD-BOILER-OBJ-COD PIC X(03). 09990000 100000 10 R-OLD-BOILER-OTHER-COD PIC X(03). 10000000 100100 10 R-OLD-PROP-LIN-INS-COD PIC X(01). 10010000 100200 10 R-OLD-CRIME-FORM-COD PIC X(02). 10020000 100300 10 R-OLD-CL-CAUS-LOSS-COD PIC X(03). 10030000 100400 10 R-OLD-ADDPROP-UNUSED PIC X(10). 10040000 100500 06 R-OLD-COMMON-ITEMS. 10050000 100600 10 R-OLD-CO-COD PIC X(03). 10060000 100700 10 R-OLD-ENTY-NUM PIC X(04). 10070000 100800 10 R-OLD-RATG-MOD PIC X(02). 10080000 100900 10 R-OLD-ORP-COD PIC X(03). 10090000 101000 10 R-OLD-RESPBL-COD PIC X(01). 10100000 101100 10 R-OLD-SPEC-ORP-COD PIC X(03). 10110000 101200 10 R-OLD-SPEC-COD PIC X(03). 10120000 101300 10 R-OLD-NONAUTO-LOSS-STA-COD PIC X(02). 10130000 101400 10 R-OLD-CLRT-RETURN-COD PIC X(02). 10140000 101500 10 R-OLD-PROD-COD PIC X(06). 10150000 101600 10 R-OLD-SAI-NUM PIC X(09). 10160000 101700 10 R-OLD-REINS-IND PIC X(01). 10170000 101800 10 R-OLD-MARKET-IND PIC X(02). 10180000 101900 10 R-OLD-CL-POL-SYM PIC X(08). 10190000 102000 10 R-OLD-CL-POL-NUM PIC X(08). 10200000 102100 10 R-OLD-CAT-CODE PIC X(02). 10210000 102200 10 R-OLD-PROF-LIAB-CODE PIC X(01). 10220000 102300 05 R-PL-SAVE-OLD-DATA-AREA REDEFINES 10230000 102400 R-CL-PHASE3-INOL-OLD-ITEMS. 10240000 102500 06 R-OLD-POL-ID PIC X(24). 10250000 102600 06 R-OLD-PIN REDEFINES R-OLD-POL-ID. 10260000 102700 10 R-OLD-PIN-PRODUCER PIC X(06). 10270000 102800 10 R-OLD-PIN-ACCOUNT PIC X(09). 10280000 102900 10 R-OLD-PIN-FORM PIC X(08). 10290000 103000 10 R-OLD-PIN-SEQ PIC X(01). 10300000 103100 06 R-OLD-CAUSE-LOSS-COD PIC X(03). 10310000 103200 06 R-OLD-GOOD-REG-IND PIC X(01). 10320000 103300 05 R-TOT-SUIT-COUNTS PIC X(03). 10330000 103400 05 R-TOT-SUIT-COUNTS-PIC9 REDEFINES 10340000 103500 R-TOT-SUIT-COUNTS PIC 9(3). 10350000 103600 05 R-HIGH-SERIAL-NUM PIC X(03). 10360000 103700 05 R-HIGH-SERIAL-NUM-PIC9 REDEFINES 10370000 103800 R-HIGH-SERIAL-NUM PIC 9(3). 10380000 103900 05 R-OLD-DATE-CLM-MADE. 10390000 07 R-OLD-CLM-MADE-MM PIC X(02). 07 R-OLD-CLM-MADE-DD PIC X(02). 07 R-OLD-CLM-MADE-CC PIC X(02). 07 R-OLD-CLM-MADE-YY PIC X(02). 104000 05 R-OLD-DATE-OCCUR-REPORTED. 10400000 07 R-OLD-OCCUR-REPORTED-MM PIC X(02). 07 R-OLD-OCCUR-REPORTED-DD PIC X(02). 07 R-OLD-OCCUR-REPORTED-CC PIC X(02). 07 R-OLD-OCCUR-REPORTED-YY PIC X(02). 104100 05 NEW-FIELDS-FOR-CLISO. 10410000 104200 06 R-DATE-CLM-MADE. 10420000 104300 08 R-DATE-CLM-MADE-MM PIC X(02). 10430000 104400 08 R-DATE-CLM-MADE-DD PIC X(02). 10440000 104400 08 R-DATE-CLM-MADE-CC PIC X(02). 10440000 104500 08 R-DATE-CLM-MADE-YY PIC X(02). 10450000 104600 06 R-DATE-OCCUR-REPORTED. 10460000 104700 08 R-DATE-OCCUR-REPORTED-MM PIC X(02). 10470000 104800 08 R-DATE-OCCUR-REPORTED-DD PIC X(02). 10480000 104800 08 R-DATE-OCCUR-REPORTED-CC PIC X(02). 10480000 104900 08 R-DATE-OCCUR-REPORTED-YY PIC X(02). 10490000 105000 06 R-RETRO-DATE. 10500000 105100 08 R-RETRO-DATE-MM PIC X(02). 10510000 105200 08 R-RETRO-DATE-DD PIC X(02). 10520000 105200 08 R-RETRO-DATE-CC PIC X(02). 10520000 105300 08 R-RETRO-DATE-YY PIC X(02). 10530000 105400 06 R-TAIL-EXP-DATE. 10540000 105500 08 R-TAIL-EXP-DATE-MM PIC X(02). 10550000 105600 08 R-TAIL-EXP-DATE-DD PIC X(02). 10560000 105600 08 R-TAIL-EXP-DATE-CC PIC X(02). 10560000 105700 08 R-TAIL-EXP-DATE-YY PIC X(02). 10570000 105800 06 R-TAIL-COV-IND PIC X(01). 10580000 105900 06 R-DEF-IND PIC X(03). 10590000 106000 06 R-CLM-MADE-OCC-COV-IND PIC X(01). 10600000 106100 06 R-AGGR-RULE PIC 9(5). 10610000 106200 06 R-SIMP-CLM-MADE-IND PIC X(01). 10620000 106300 88 A-SIMP-CLM-MADE VALUE '1' '2' '4' '5'. 10630000 106400 05 R-FILE-MGMT PIC X(04). 10640000 106500 05 NEW-FIELDS-FOR-CLISO-CONT. 10650000 106600 06 R-COV-OCC-COD PIC X(01). 10660000 106700 06 R-CL-ISO-UNUSED PIC X(17). 10670000 SLG2 05 R-SLG-INFO. SLG2 06 R-SLG-FILE-TYPE-IND PIC X(01). SLG2 06 R-SLG-LEAD-FILE-NUM PIC X(07). 106800 05 R-CLMCR-CONV-IND PIC X(01). 10680000 106900 88 CLMCR-PROCESSING VALUE 'Y'. 10690000 107000 88 CLMCR-COMPLETED VALUE 'N'. 10700000 107000 88 CLAET-IN-PROCESS VALUE 'Z'. 10700000 107000 88 CLAET-COMPLETED VALUE 'W'. 10700000 107000 88 CLAET-REREG-STARTED VALUE 'R'. 10700000 88 XR-CLAET-STARTED VALUE 'A'. SYNC 05 R-AUTHORITY-IND PIC X(01). 10850000 SYNC 05 R-WITNESS1-IND PIC X(01). 07010004 SYNC 05 R-WITNESS2-IND PIC X(01). 07010004 SYNC 05 R-WITNESS3-IND PIC X(01). 07010004 SYNC 05 R-AUTO-OTH-VEH-DMG-IND PIC X(01). 07010004 CLARN 05 R-AUTO-OWNERSHIP-TYPE PIC X(01). 10710000 CLARN 05 R-AUTO-EMPLOYEE-TYPE PIC X(01). 10710000 107200 05 R-CLMCR-COMPLETE-DATE. 10720000 07 R-CLMCR-COMPLETE-CC PIC X(02). 07 R-CLMCR-COMPLETE-YY PIC X(02). 07 R-CLMCR-COMPLETE-DDD PIC X(03). SYNC************* FILLER WAS 103 10850000 SYNC 05 R-TRAVPRO-INFO. 10850000 SYNC 07 R-CALLER-TITLE PIC X(10). SYNC 05 R-TRAVPRO-PL-INFO. 10850000 SYNC 07 R-AUTO-ROADWAY-IND PIC X(01). SYNC 07 R-AUTO-ROADWAY-TYPE PIC X(15). SYN. 07 R-TCC-TRIAGE-AFO PIC X(03). FTIC 07 R-FTIC-PRODUCER PIC X(07). 11670000 FTIC 07 R-FTIC-NJAIRE-IND PIC X(01). 11670000 FTIC2 07 R-FTIC-COL-171-VALUE PIC X(01). 11670000 EQ. 07 FILLER PIC X(05). EQ. 07 R-CAT-TRAVPRO-EQ-END-IND PIC X(01). EQ. 07 R-CAT-TRAVPRO-ORIG-SEV PIC X(01). EQ. 07 R-CAT-TRAVPRO-ALT-SEV PIC X(01). 07 R-CALLER-EMAIL PIC X(50). PROP. 07 R-NOTICE-TAKEN-COL PIC X(03). SYNC. 07 R-CALLER-TITLE-LAST4 PIC X(04). 108510 05 R-SAC-ID PIC X(09). 10851000 88 SAC-ID-NOT-FOUND VALUE SPACES ALL '9'. 10852001 108600 05 R-AGENT-STATUS PIC X(01). 10860000 108700 88 NOT-AN-AGENT-CLAIM VALUE SPACE. 10870000 108800 88 AGTCNA-COMPLETED VALUE '1'. 10880000 108900 88 AGTADD-COMPLETED VALUE '2'. 10890000 109000 88 AGTCMT-COMPLETED VALUE '3'. 10900000 109100 88 AGTRMK-COMPLETED VALUE '4'. 10910000 109200 88 FO-CNA-COMPLETED VALUE 'A'. 10920000 109300 88 FO-ADD-COMPLETED VALUE 'B'. 10930000 109400 88 FO-CMT-COMPLETED VALUE 'C'. 10940000 109500 88 FO-RMK-COMPLETED VALUE 'D'. 10950000 109600 88 FO-INR-COMPLETED VALUE 'Z'. 10960000 109700 05 R-AGENT-PAID PIC X(01). 10970000 109800 05 R-ADDINFO-RFC-CMNT PIC X(050). 10980000 109900 05 R-SAIL-SUBRO-IND PIC X(01). 10990000 110000 05 R-FIN-ACT-CLSD-CLM-DATE. 11000000 110100 07 R-FACC-DATE-MM PIC X(02). 11010000 110200 07 R-FACC-DATE-DD PIC X(02). 11020000 110200 07 R-FACC-DATE-CC PIC X(02). 11020000 110300 07 R-FACC-DATE-YY PIC X(02). 11030000 110400 05 R-FACC-CTR PIC 9(1). 11040000 110500 05 R-RESERVE-ADVISORY-IND PIC X(01). 11050000 110600 05 R-PRE-STLMT-IND PIC X(01). 11060000 110700 05 R-PREV-CLM-EXP-TOT-EST PIC S9(12). 11070000 110800 05 R-PREV-CLM-EXP-TOT-PAID PIC S9(12). 11080000 110900 05 R-ACE-ITEMS. 11090000 111000 07 R-INSD-FST-CNTC-DT. 11100000 111100 09 R-INSD-FST-CNTC-MM PIC X(02). 11110000 111200 09 R-INSD-FST-CNTC-DD PIC X(02). 11120000 111200 09 R-INSD-FST-CNTC-CC PIC X(02). 11120000 111300 09 R-INSD-FST-CNTC-YY PIC X(02). 11130000 111400 07 R-INSD-STMT-TK-DT. 11140000 111500 09 R-INSD-STMT-TK-MM PIC X(02). 11150000 111600 09 R-INSD-STMT-TK-DD PIC X(02). 11160000 111600 09 R-INSD-STMT-TK-CC PIC X(02). 11160000 111700 09 R-INSD-STMT-TK-YY PIC X(02). 11170000 SYNC 07 R-OLD-WITNESS-DATA PIC X(295). 11180000 SYNC 07 R-PL-TPRO-DATA REDEFINES R-OLD-WITNESS-DATA. 11180000 SYNC 09 R-AUTO-INTERSECTION-TYPE PIC X(15). SYNC 09 R-AUTO-INTERSECTION-CONTROL PIC X(15). SPVR2 09 R-PREV-CLM-EXP-EST-DATE PIC X(08). 12290006 CRT 09 R-CONSTRUCT-TYPE-OF-LOSS PIC X(01). 12300006 CRT 88 R-CON-FALL-FROM-HEIGHT VALUE 'A'. 12310006 CRT 88 R-CON-SLIP-TRIP-FALL VALUE 'B'. 12320006 CRT 88 R-CON-FALLING-OBJECT VALUE 'C'. 12330006 CRT 88 R-CON-WORK-ZONE VALUE 'D'. 12340006 CRT 88 R-CON-AUTO-TRUCK VALUE 'E'. 12350006 CRT 88 R-CON-STRUCK-BY VALUE 'F'. 12360006 CRT 88 R-CON-PRODUCT-INVOLVED VALUE 'G'. 12370006 CRT 88 R-CON-PROP-DAMAGE-ONLY VALUE 'H'. 12380006 CRT 09 R-CONSTRUCT-POL-HOLDER-ROLE PIC X(01). 12390006 CRT 88 R-CON-GENERAL-CONTRACTOR VALUE 'A'. 12400006 CRT 88 R-CON-CONS-MANAGER VALUE 'B'. 12410006 CRT 88 R-CON-SUB-CONTRACTOR VALUE 'C'. 12420006 CRT 88 R-CON-SELF-PERF-GC VALUE 'D'. 12430006 CRT 88 R-CON-SOLE-CONTRACTOR VALUE 'E'. 12440006 CRT 09 R-CONSTRUCT-INJURED-PARTY PIC X(01). 12450006 CRT 88 R-CON-INSURED-EMPLOYEE VALUE 'A'. 12460006 CRT 88 R-CON-SUB-EMPLOYEE VALUE 'B'. 12470006 CRT 88 R-CON-OTHER-CONTRACT-EMP VALUE 'C'. 12480006 CRT 88 R-CON-NON-EMPLOYEE VALUE 'D'. 12490006 CRT 09 R-CONSTRUCT-PARTY-TEND-CASE PIC X(01). 12500006 CRT 88 R-CON-PARTY-OWNER VALUE 'A'. 12510006 CRT 88 R-CON-PARTY-GC VALUE 'B'. 12520006 CRT 88 R-CON-PARTY-SUB VALUE 'C'. 12530006 CRT 88 R-CON-PARTY-CONS-MGR VALUE 'D'. 12540006 CRT 88 R-CON-PARTY-OTH-CO-DEFEND VALUE 'E'. 12550006 CRT 09 R-CONSTRUCT-TENDER-SUCCESS PIC X(01). 12560006 CRT 88 CONSTRUCT-TENDER-YES VALUE 'Y'. 12570006 CRT 88 CONSTRUCT-TENDER-NO VALUE 'N'. 12580006 CRT 09 R-CONSTRUCT-TENDER-FULL-COMP PIC X(01). 12590006 CRT 88 CONSTRUCT-TENDER-FULL VALUE 'F'. 12600006 CRT 88 CONSTRUCT-TENDER-COMP VALUE 'C'. 12610006 CRT 09 R-CONSTRUCT-MKT-DATE-FRST-TEND PIC X(08). 12620006 CRT 09 R-CONSTRUCT-MKT-DATE-TEND-ACC PIC X(08). 12630006 CRT 09 R-CONSTRUCT-BANKRUPTCY PIC X(01). 12640006 CRT 09 R-CONSTRUCT-NO-CARR-COOP PIC X(01). 12650006 CRT 09 R-CONSTRUCT-NOT-NAMED-AI PIC X(01). 12660006 CRT 09 R-CONSTRUCT-INAD-AI-LANG PIC X(01). 12670006 CRT 09 R-CONSTRUCT-INAD-DI-LANG PIC X(01). 12680006 CRT 09 R-CONSTRUCT-UNEXEC-CONTRACT PIC X(01). 12690006 CRT 09 R-CONSTRUCT-INAD-LIMITS-SUB PIC X(01). 12700006 CRT 09 R-CONSTRUCT-TENDER-OTHER PIC X(01). 12710006 372641 09 R-ISO-CMPST-CLS-DESC PIC X(08). 12720006 CRT 09 R-FILLER PIC X(219). 112400 07 R-LIAB-INVSTGT-BEGUN-DT. 11240000 112500 09 R-LIAB-INVSTGT-BEGUN-MM PIC X(02). 11250000 112600 09 R-LIAB-INVSTGT-BEGUN-DD PIC X(02). 11260000 112700 09 R-LIAB-INVSTGT-BEGUN-CC PIC X(02). 11270000 112700 09 R-LIAB-INVSTGT-BEGUN-YY PIC X(02). 11270000 112800 07 R-LIAB-INVSTGT-END-DT. 11280000 112900 09 R-LIAB-INVSTGT-END-MM PIC X(02). 11290000 113000 09 R-LIAB-INVSTGT-END-DD PIC X(02). 11300000 113000 09 R-LIAB-INVSTGT-END-CC PIC X(02). 11300000 113100 09 R-LIAB-INVSTGT-END-YY PIC X(02). 11310000 113200 07 R-CLM-CLOS-WO-PAY-IND PIC X(01). 11320000 113300 05 R-SAVE-VRU-DATA. 11330000 113400 07 R-VRU-CLM-TYPE PIC X(01). 11340000 113500 88 R-VRU-GLASS-CLM VALUE '1'. 11350000 113600 88 R-VRU-TOW-CLM VALUE '2'. 11360000 113700 07 R-VRU-PAYEE-IND PIC X(01). 11370000 113800 88 R-VRU-PAY-INSD VALUE '1'. 11380000 113900 88 R-VRU-PAY-PPO VALUE '2'. 11390000 114000 07 R-VRU-PAYMENT-AMT PIC X(07). 11400000 114100 07 R-VRU-PARTS. 11410000 114200 09 R-VRU-PART-NUM OCCURS 10 TIMES. 11420000 114300 11 R-VRU-PART-LOC PIC X(01). 11430000 114400 11 R-VRU-PART-DESC PIC X(01). 11440000 114500 07 R-VRU-REQ-PHONE. 11450000 114600 09 R-VRU-PHONE-AREA PIC X(03). 11460000 114700 09 R-VRU-PHONE-PREFIX PIC X(03). 11470000 114800 09 R-VRU-PHONE-EXCHANGE PIC X(04). 11480000 114900 07 R-VRU-ERR-CODE PIC X(03). 11490000 115000 88 R-VRU-DUPL-CLM VALUE '001'. 11500000 115100 88 R-VRU-NO-COVERAGE VALUE '002'. 11510000 115200 88 R-VRU-CANNED-RESP VALUE '003'. 11520000 115300 88 R-VRU-INR-TIMEOUT VALUE '004'. 11530000 115400 88 R-VRU-PERS-INVALID VALUE '005'. 11540000 115500 88 R-VRU-PERS-NOT-ACTIVE VALUE '006'. 11550000 115600 88 R-VRU-PERS-NOT-AUTHORIZED VALUE '007'. 11560000 115600 88 R-VRU-UNDEFINED-ERROR VALUE '008'. 11560000 115600 88 R-VRU-AMT-EXCEEDS-AUTHID-LIMIT VALUE '009'. 11560000 115700 07 R-VRU-CLAIM-IND PIC X(01). 11570000 115800 88 R-VRU-CLAIM VALUE 'Y'. 11580000 115900 07 R-VRU-SAFELITE-STORE-NO PIC X(05). 11590000 116000 07 R-VRU-ACCESSOR-TYPE PIC X(01). 11600000 116100 07 R-VRU-VEH-NUM PIC X(02). 11610000 116200 07 R-VRU-VEH-TYPE PIC X(01). 11620000 116300 07 R-VRU-PPO-PHONE PIC X(10). 11630000 116400 07 R-VRU-PARTS-3. 11640000 116500 09 R-VRU-PART-SHADE OCCURS 10 TIMES. 11650000 116600 11 R-VRU-PART-SHD PIC X(01). 11660000 116700 05 R-VRU-TPS-ERR-COD PIC X(06). 11670000 5032 05 R-VRU-FILLER PIC X(05). 11670000 5032 05 R-AUTO-GENERALIST-IND PIC X(01). SLG1 05 R-SLCU-IND PIC X(01). 116700 05 R-DATA-VER-NUM PIC 9(5). 11670000 116800 05 R-COMPAR-NEG-PERCENT PIC X(03). 11680000 116900 05 R-DATE-OF-ARN. 11690000 117000 07 R-ARN-MM PIC X(02). 11700000 117100 07 R-ARN-DD PIC X(02). 11710000 117100 07 R-ARN-CC PIC X(02). 11710000 117200 07 R-ARN-YY PIC X(02). 11720000 569115 05 FILLER PIC X(01). 11730000 117400 05 R-WAIVER-IND PIC X(01). 11740000 117500 05 R-FATALITY-IND PIC X(01). 11750000 117600 05 R-ACKNOWLG-IND PIC X(01). 11760000 117700 05 R-CL-DATABASE-RTN-CODE PIC X(01). 11770000 117800 05 R-REOPEN-DATE. 11780000 117900 09 R-REOPEN-DATE-MM PIC X(02). 11790000 118000 09 R-REOPEN-DATE-DD PIC X(02). 11800000 118000 09 R-REOPEN-DATE-CC PIC X(02). 11800000 118100 09 R-REOPEN-DATE-YY PIC X(02). 11810000 118200 05 R-RECLOSE-DATE. 11820000 118300 09 R-RECLOSE-DATE-MM PIC X(02). 11830000 118400 09 R-RECLOSE-DATE-DD PIC X(02). 11840000 118400 09 R-RECLOSE-DATE-CC PIC X(02). 11840000 118500 09 R-RECLOSE-DATE-YY PIC X(02). 11850000 118600 05 R-ORIG-CLOSE-SUBRO-DATE. 11860000 118700 09 R-ORIG-CLOSE-SUBRO-DATE-MM PIC X(02). 11870000 118800 09 R-ORIG-CLOSE-SUBRO-DATE-DD PIC X(02). 11880000 118800 09 R-ORIG-CLOSE-SUBRO-DATE-CC PIC X(02). 11880000 118900 09 R-ORIG-CLOSE-SUBRO-DATE-YY PIC X(02). 11890000 119000 05 R-WC-NI-REFINAL-DATE. 11900000 119100 09 R-WC-NI-REFINAL-DATE-MM PIC X(02). 11910000 119100 09 R-WC-NI-REFINAL-DATE-DD PIC X(02). 11910000 119200 09 R-WC-NI-REFINAL-DATE-CC PIC X(02). 11920000 119300 09 R-WC-NI-REFINAL-DATE-YY PIC X(02). 11930000 119400 05 R-REREG-TO-ADDS-ITEMS. 11940000 119500 09 R-OLD-EXP-DATE-POL-PER. 11950000 11 R-OLD-EXP-POL-PER-MM PIC X(02). 11 R-OLD-EXP-POL-PER-DD PIC X(02). 11 R-OLD-EXP-POL-PER-CC PIC X(02). 11 R-OLD-EXP-POL-PER-YY PIC X(02). 119600 09 R-OLD-SAILOR-IND PIC X(01). 11960000 119700 05 R-UND-TORTFEAS-PMT-CTR COMP-3 PIC S9(05). 11970000 05 R-UND-TORTFEAS-PMT-CTRX REDEFINES R-UND-TORTFEAS-PMT-CTR PIC X(03). 05 R-UND-TORTFEAS-LIMITS. 11980000 119900 09 R-UND-TORTFEAS-LIMIT1 PIC X(09). 11990000 120000 09 R-UND-TORTFEAS-LIMIT2 PIC X(09). 12000000 120100 09 R-UND-TORTFEAS-LIMIT3 PIC X(09). 12010000 120200 05 R-CL-KILL-ENDRMNTS-IND PIC X(01). 12020000 120300 88 KILLER-ENDORSMENT-PRESENT VALUE 'Y'. 12030000 120400 05 R-CL-KILL-ENDRMNTS-REASON PIC X(60). 12040000 120500 05 R-NEW-MULTI-LINE-DATA-ITEMS. 12050000 120600 07 R-ROSTER-UPDATE-IND PIC X(01). 12060000 120700 07 R-TEL-REPORT-IND PIC X(01). 12070000 120800 88 TELEPHONE-CLAIM VALUE 'Y' 'I'. 12080000 120900 88 TELEPHONE-DETAIL-NAV VALUE 'I'. 12090000 121000 07 R-INCIDENT-IND PIC X(01). 12100000 121100 07 R-TIME-OF-NOL PIC X(06). 12110000 121200 07 R-CAPTURE-TIME PIC X(06). 12120000 095600 07 R-ACCIDENT-LOCATION-EXTRA PIC X(25). 09560006 095700 07 R-ACCIDENT-COUNTY PIC X(15). 09570006 095800 07 R-ACCIDENT-ZIP PIC X(09). 09580006 095900 07 R-VEH-OWNER-PHONE PIC X(10). 09590006 096000 07 R-VEH-OWNER-BUS-PHONE PIC X(10). 09600006 096100 07 R-VEH-LEASED-IND PIC X(01). 09610006 096200 07 R-VEH-NON-OWNED-IND PIC X(01). 09620006 096300 07 R-DRIVER-STR PIC X(25). 09630006 096400 07 R-DRIVER-CITY PIC X(13). 09640006 096500 07 R-DRIVER-ST PIC X(02). 09650006 096600 07 R-DRIVER-ZIP9 PIC X(09). 09660006 096700 07 R-DRIVER-PHONE PIC X(10). 09670006 096800 07 R-DRIVER-DATE-OF-BIRTH. 09680006 096800 09 R-DRIVER-DOB-CC PIC X(02). 09681006 096800 09 R-DRIVER-DOB-YY PIC X(02). 09682006 096800 09 R-DRIVER-DOB-MM PIC X(02). 09683006 096800 09 R-DRIVER-DOB-DD PIC X(02). 09684006 096900 07 R-DRIVER-SSN PIC X(09). 09690006 097000 07 R-DRIVER-LICENSE-NUM PIC X(20). 09700006 097100 07 R-DRIVER-LICENSE-ST PIC X(02). 09710006 097200 07 R-DRIVER-CONTACT-INFO PIC X(50). 09720006 097300 07 R-SECURITY-BYTES PIC X(18). 09730006 569115 07 R-DOAACI-CHOSEN-DRVR-NUM PIC X(02). 569115 07 R-DRVR-PRESENCE PIC X(01). 569115 07 R-VEH-NUM PIC X(02). 569915 07 R-ROOF-AGE PIC 9(03). 569915 07 R-ROOF-TYPE PIC X(01). 569915 07 FILLER PIC X(291). 121865 12186506 121866 05 R-PF-CL-MANSCPT-IND PIC X(01). 12186606 CDTE 05 R-INS-CONTACT-DT-NA-RSN PIC X(02). 12705401 CDTE 88 R-CNTDT-NA-TOW VALUE 'TC'. CDTE 88 R-CNTDT-NA-GLASS VALUE 'GL'. CDTE 88 R-CNTDT-NA-AGENT-PAID VALUE 'AP'. CDTE 88 R-CNTDT-NA-CHDES VALUE 'HD'. CDTE 88 R-CNTDT-NA-ATTY VALUE 'AR'. CDTE 88 R-CNTDT-NA-MISG VALUE 'MC'. CDTE 88 R-CNTDT-NA-SAC VALUE 'SC'. CDTE 88 R-CNTDT-NA-SLG VALUE 'SL'. CDTE 88 R-CNTDT-NA-NRSP VALUE 'NR'. CDTE 88 R-CNTDT-NA-INJINS VALUE 'II'. CDTE 88 R-CNTDT-NA-INSCLMT VALUE 'IC'. CDTE 88 R-CNTDT-NA-DUPVD VALUE 'DV'. CDTE 05 R-INS-CONTACT-DT-CREATION PIC X(08). 12186711 SPVR2 05 R-DEDICATED-IND PIC X(01). 12186711 CDTE2 05 R-CONTACT-DATE-TIME PIC X(04). 12186711 CDTE2 05 R-CONTACT-DATE-AMPM-IND PIC X(01). 12186711 CDTE2 05 R-CONTACT-DATE-TIME-ZONE PIC X(01). 12186711 CATCLM 05 R-CAT-ZONE PIC X(03). 12186711 CATCLM 05 R-CAT-SEVERITY PIC X(01). 12186711 119417 05 R-OTHER-FOREIGN-COUNTRY PIC X(02). 12186711 119417 05 R-OTHR-FGN-CNTRY-CD REDEFINES 119417 R-OTHER-FOREIGN-COUNTRY PIC X(02). 119417 05 R-ADDTNL-PLWKSTN-ITEMS-UNUSED PIC X(02). 12186711 121868 05 R-PROPCODE-DATA. 12186806 121869 07 R-PROPCODE-IND PIC X(01). 12186906 121870 07 R-PCODE-CONSTRUCT-TYPE PIC X(02). 12187006 121880 07 R-PCODE-NUM-OF-STORIES PIC X(02). 12188006 121890 07 R-PCODE-PROP-STATUS PIC X(02). 12189006 121900 07 R-PCODE-AREA-OF-ORIGIN PIC X(02). 12190006 122000 07 R-PCODE-NUM-OF-CIVIL-INJ PIC X(02). 12200006 122100 07 R-PCODE-NUM-OF-CIVIL-DEA PIC X(02). 12210006 122200 07 R-PCODE-FIRST-DISC-ALARM PIC X(02). 12220006 122300 07 R-PCODE-CONTRIB-FACTORS-FIRST PIC X(02). 12230006 122400 07 R-PCODE-CONTRIB-FACTORS-SECOND PIC X(02). 12240006 122500 07 R-PCODE-CAUSE-OF-FIRE PIC X(02). 12250006 122600 07 R-PCODE-SPECIF-EQUIP-INV PIC X(02). 12260006 122700 07 R-PCODE-MAT-FIRST-IGNIT PIC X(02). 12270006 122800 07 R-PCODE-FUELED-FIRE-IND PIC X(02). 12280006 122900 07 R-PCODE-FIXED-FIRE-PROT-FIRST PIC X(02). 12290006 123000 07 R-PCODE-FIXED-FIRE-PROT-SECOND PIC X(02). 12300006 123100 07 R-PCODE-FIXED-FIRE-PROT-THIRD PIC X(02). 12310006 123200 07 R-PCODE-FIXED-FIRE-PROT-PERFOR PIC X(02). 12320006 123300 05 R-LAST-PAYMT-MADE-DATE. 12330006 123400 07 R-LAST-PAYMT-MADE-MM PIC X(02). 12340006 123500 07 R-LAST-PAYMT-MADE-DD PIC X(02). 12350006 123600 07 R-LAST-PAYMT-MADE-CC PIC X(02). 12360006 123601 07 R-LAST-PAYMT-MADE-YY PIC X(02). 12360106 123602 12360206 123603 05 R-LAST-EST-MADE-DATE. 12360306 123604 07 R-LAST-EST-MADE-MO PIC X(02). 12360406 123605 07 R-LAST-EST-MADE-DD PIC X(02). 12360506 123606 07 R-LAST-EST-MADE-CC PIC X(02). 12360606 123607 07 R-LAST-EST-MADE-YR PIC X(02). 12360706 123608 12360806 123609 05 R-TEMP-ESTAUTH-DATA. 12360906 123610 07 R-TEMP-ESTAUTH-AMT PIC 9(10)V99. 12361006 123620 07 R-TEMP-ESTAUTH-TO-ID PIC X(04). 12362006 123630 07 R-TEMP-ESTAUTH-FROM-OFFICE PIC X(03). 12363006 123631 07 R-TEMP-ESTAUTH-FROM-ID PIC X(04). 12363106 123632 07 R-TEMP-ESTAUTH-GIV-DATE. 12363206 123633 09 R-TEMP-ESTAUTH-GIV-MM PIC 9(2). 12363306 123634 09 R-TEMP-ESTAUTH-GIV-DD PIC 9(2). 12363406 123635 09 R-TEMP-ESTAUTH-GIV-YEAR. 12363506 123636 11 R-TEMP-ESTAUTH-GIV-CC PIC 9(2). 12363606 123637 11 R-TEMP-ESTAUTH-GIV-YY PIC 9(2). 12363706 123638 07 R-TEMP-ESTAUTH-EXP-DATE. 12363806 123639 09 R-TEMP-ESTAUTH-EXP-MM PIC 9(2). 12363906 123640 09 R-TEMP-ESTAUTH-EXP-DD PIC 9(2). 12364006 123641 09 R-TEMP-ESTAUTH-EXP-YEAR. 12364106 123642 11 R-TEMP-ESTAUTH-EXP-CC PIC 9(2). 12364206 123643 11 R-TEMP-ESTAUTH-EXP-YY PIC 9(2). 12364306 123644 05 R-SAFARI-PROCESSING-DATA. 12364406 123645 10 R-SAFARI-POLICY-NUMBER. 12364506 123646 15 R-SAFARI-POL-UNDW PIC X(03). 12364606 123647 15 R-SAFARI-POL-SYMBOL PIC X(04). 12364706 123648 15 R-SAFARI-POL-SERIAL-NUM PIC X(13). 12364806 123649 15 R-SAFARI-POL-SUFFIX PIC X(03). 12364906 123650 10 R-SAFARI-PIN-CHANGE-DATE PIC X(08). 12365006 123651 10 R-SAFARI-OLD-POLICY-NUMBER. 12365106 123652 15 R-SAFARI-OLD-POL-UNDW PIC X(03). 12365206 123653 15 R-SAFARI-OLD-POL-SYMBOL PIC X(04). 12365306 123654 15 R-SAFARI-OLD-POL-SERIAL-NUM PIC X(13). 12365406 123655 15 R-SAFARI-OLD-POL-SUFFIX PIC X(03). 12365506 123656 05 R-AETNA-DATA-ITEMS. 12365606 123657 10 R-AETNA-CURRENT-BRANCH-CD PIC X(03). 12365706 123658 10 R-AETNA-POL-UND-OFF PIC X(03). 12365806 123659 10 R-AETNA-POL-SYMBOL PIC X(04). 12365906 123660 10 R-AETNA-POL-SERIAL-NUM PIC 9(13). 12366006 123670 10 R-AETNA-POL-SUFFIX PIC X(03). 12367006 123680 10 R-AETNA-OLD-UND-OFF PIC X(03). 12368006 123690 10 R-AETNA-OLD-SYMBOL PIC X(04). 12369006 123700 10 R-AETNA-OLD-SERIAL-NUM PIC 9(13). 12370006 123800 10 R-AETNA-OLD-SUFFIX PIC X(03). 12380006 123900 10 R-AETNA-PRODUCER-CD PIC 9(04). 12390006 05 R-SPC-DATA-ITEMS REDEFINES R-AETNA-DATA-ITEMS. 10 R-SPC-POLICY-NUM PIC X(10). 10 R-SPC-CERTIFICATE-NUM PIC X(05). 10 R-SPC-HO-CLASS-CODE PIC X(06). 10 R-SPC-ISO-CLASS-CODE PIC X(06). 10 R-SPC-TTG-CODE PIC X(02). 10 FILLER PIC X(01). 10 R-SPC-INS-RATING-GROUP PIC X(03). 10 R-SPC-IR-IND PIC X(01). 10 R-OLD-SPC-POLICY-NUM PIC X(10). 10 R-OLD-SPC-CERTIFICATE-NUM PIC X(05). 10 R-SPC-BUS-UNIT PIC X(02). 10 FILLER PIC X(01). 10 R-SPC-OM-SMALL-BOATS-IND PIC X(01). 88 R-SPC-SMALL-BOAT VALUE 'Y'. 05 R-ALT-DATA-ITEMS REDEFINES R-AETNA-DATA-ITEMS. 10 R-ALT-CLM-NBR PIC X(20). 10 R-ALT-CLM-TYP-CD PIC X(01). 10 R-ALT-OCCR-NBR PIC X(03). 10 FILLER PIC X(29). 05 R-OLD-AETPROP-ITEMS. 10 R-OLD-AETPROP-COV-IND-BLDR PIC X(04). 10 R-OLD-AETPROP-COV-IND-CPBE PIC X(04). 10 R-OLD-AETPROP-COV-IND-IMFA PIC X(04). 10 R-OLD-AETPROP-COV-IND-IMOF PIC X(04). 10 R-OLD-AETPROP-COV-IND-CTRE PIC X(04). 05 R-SPC-DATA2-ITEMS REDEFINES R-OLD-AETPROP-ITEMS. 10 R-SPC-DRIVER-AGE-EMP-CODE PIC X(02). 88 R-SPC-NAMED-INSURED VALUE '10'. 88 R-SPC-FT2-UNDER21 VALUE '20'. 88 R-SPC-FT2-OVER21 VALUE '30'. 88 R-SPC-FTLT2-UNDER21 VALUE '40'. 88 R-SPC-FTLT2-OVER21 VALUE '50'. 88 R-SPC-PT-UNDER21 VALUE '60'. 88 R-SPC-PT-OVER21 VALUE '70'. 88 R-SPC-NOTEMP-UNDER21 VALUE '80'. 88 R-SPC-NOTEMP-OVER21 VALUE '90'. 88 R-SPC-DRIVER-AGE-OTHER VALUE '00'. 10 FILLER PIC X(18). 124100* THE ITEMS IN THIS BLOCK ARE USED BY THE CPL WORKSTATION. 12410006 124200 12420006 124300 05 R-ADDL-WORKSTATION-ITEMS. 12430006 124400 10 R-REMARKS-DB2-NOTE-KEY PIC X(29). 12440006 124500 10 FILLER PIC X(01). 12450006 124502 10 R-ASGN-REQUESTED-IND PIC X(01). 12450206 124503 88 ASGN-REQUESTED VALUE 'Y'. 12450306 124504 10 R-POLICY-SCHEDULED-IND PIC X(01). 12450406 124505 88 POLICY-SCHEDULED VALUE 'Y'. 12450506 124506 10 R-CL-TYPE-OF-LOSS PIC X(01). 12450606 124507 88 FASTTRACK-CLAIM VALUE 'F'. 12450706 124508 10 R-CRIME-TYPE PIC X(01). 12450806 124509 88 TYPE-IS-BURGLARY VALUE 'B'. 12450906 124510 88 TYPE-IS-FIDELITY-FORGERY VALUE 'F'. 12451006 124520 10 R-EMPL-DISHONESTY-IND PIC X(01). 12452006 124530 10 R-CLPROP-BUS-INTERRUPT-IND PIC X(01). 12453006 124540 10 R-CLPROP-INVENTORY-LOSS-IND PIC X(01). 12454006 124550 10 R-CLPROP-STRUCT-DMG-RANGE PIC X(01). 12455006 124560 10 R-CLLIAB-MP-IND PIC X(01). 12456006 124570 10 R-CLLIAB-MISC-PROP-DMG-IND PIC X(01). 12457006 124580 10 R-CLLIAB-BI-IND PIC X(01). 12458006 124590 10 R-CL-NATIONAL-ACCT-IND PIC X(01). 12459006 124590 10 R-CL-ENTY-MPACKEY. 12459006 15 R-CL-ENTY-MPAC-POL-CHG-DT. 20 R-CL-ENTY-MPAC-POL-CHG-CC PIC X(02). 20 R-CL-ENTY-MPAC-POL-CHG-YY PIC X(02). 20 R-CL-ENTY-MPAC-POL-CHG-MM PIC X(02). 20 R-CL-ENTY-MPAC-POL-CHG-DD PIC X(02). 15 R-CL-ENTY-MPAC-VER-ISS-DT. 20 R-CL-ENTY-MPAC-VER-ISS-CC PIC X(02). 20 R-CL-ENTY-MPAC-VER-ISS-YY PIC X(02). 20 R-CL-ENTY-MPAC-VER-ISS-MM PIC X(02). 20 R-CL-ENTY-MPAC-VER-ISS-DD PIC X(02). 15 R-CL-ENTY-MPAC-VER-NUM PIC X(03). 124590 10 R-CL-OMNIKEY REDEFINES R-CL-ENTY-MPACKEY. 12459006 124590 15 R-CL-ENTY-OMNIKEY PIC X(19). 12459006 124590 10 R-CL-ENTY-DBD-IND PIC X(01). 12459006 124590 10 R-CL-ENTY-PIF-INTERNAL-KEY PIC X(14). 12459006 124590 10 R-CLAUTO-CARE-CUST-CNTL PIC X(01). 12459006 124590 10 R-CLAUTO-COMPL-OPERATIONS PIC X(01). 12459006 124590 10 R-CLAUTO-PBBI-TO-OTHER PIC X(01). 12459006 127048* AECOV 3/99 12704801 127049 10 R-AET-STATE-BI PIC X(01). 12704901 127050 88 AET-STATE-BI-COVERAGE VALUE 'Y'. 12705001 127051 10 R-AET-STATE-PD PIC X(01). 12705101 127052 88 AET-STATE-PD-COVERAGE VALUE 'Y'. 12705201 127053 10 R-AET-STATE-CLASS-CD PIC X(09). 12705301 127054 10 FILLER PIC X(01). 12705401 05 R-CL-PROP-IM-IMPAK-IND PIC X(01). 88 R-CL-PROP-NO-IMPAK VALUE SPACE. 88 R-CL-PROP-IMPAK-ONLY VALUE '1'. 88 R-CL-PROP-IM-IMPAK VALUE '2'. 05 R-COMPOSITE-INFO. 12186704 10 R-CL-COMPOSITE-IND PIC X(01). 10 R-CL-COMPOSITE-COV-TYPE PIC X(01). 88 LIABILITY-ONLY VALUE 'L'. 88 DAMAGE-ONLY VALUE 'D'. 88 LIABILITY-AND-DAMAGE VALUE 'B'. 10 R-CL-COMPOSITE-CLASS-CODE PIC X(06). 10 R-CL-COMPOSITE-SYMBOL-DATA. 15 R-CL-COMPOSITE-SYM-TABLE OCCURS 5 TIMES. 20 R-CL-COMPOSITE-SYMBOL PIC X(02). 20 R-CL-COMPOSITE-SYM-VER-NUM PIC X(03). 121873 05 R-NYS-DEBIT-CNTL-NUM PIC 9(06). 12186704 05 R-WKSTN-UPDATE-IND PIC X(01). 121947 05 R-ORIG-CPL-OFFICE PIC X(03). 12194700 05 R-OLD-MISC-ITEMS. 10 R-OLD-IM-LOC-COD PIC X(02). 10 R-OLD-PREM-INSD-IND PIC X(01). 10 R-OLD-AETAUTO-PREMIUM-ST PIC X(02). 10 R-OLD-AETLIAB-CLASS-COD PIC X(06). 05 R-PIF-INQUIRY-INFO. 12186704 10 R-PIF-CALL-PGM-MOD-ID PIC X(02). 10 R-PIF-HLD-POLICY-TYPE PIC X(01). 10 R-PIF-CL-RETURN-CODE PIC X(02). 10 R-PIF-SQL-CODE PIC X(04). 10 R-PIF-SQL-CODE-S9 REDEFINES R-PIF-SQL-CODE PIC S9(04). 10 R-PIF-QUERY-STATUS PIC X(01). 88 MAX-SEQ-NOT-FOUND VALUE '1'. 88 MAX-SEQ-QUERY-ERR VALUE '2'. 88 SYS-ASSIGN-QUERY-ERR VALUE '3'. 88 ALT-INPUT-QUERY-ERR VALUE '4'. 88 INQUIRY-QUERY-SUCCESS VALUE '5'. 88 COVERAGE-QUERY VALUE '6'. 88 WKSTN-ENTITY-FAILURE VALUE '7'. 88 NO-APPLICABLE-COVERAGE VALUE '8'. 10 R-PIF-UNUSED PIC X(02). 108500 05 R-OLD-RETRO-CODE PIC X(02). 10850000 12187 05 R-GLASS-SGC-REF-NUM PIC X(06). 12186704 12187 05 R-GLASS-INVOICE-NUM PIC X(11). 12186704 05 R-CONSTRUCT-CLAIM PIC X(01). 05 R-CONSTRUCT-INSD-TYPE PIC X(02). 05 R-CONSTRUCT-PRIME-LOSS PIC X(02). 05 R-CONSTRUCT-TYPE-STRUCTURE PIC X(02). 05 R-CONSTRUCT-DATE-COMPLETE PIC X(08). 05 R-CONSTRUCT-ADD-INSD PIC X(01). 05 R-CONSTRUCT-PLAINT-CLAIM PIC X(02). CASDGN******************************************************************12186711 CASDGN******* 'R-CD-WKSTN-PHS1-XXXX-DATA' ARE DATA ITEMS USED 12186711 CASDGN******* FOR THE ASSIGNMENT PROCESS ON THE WORKSTATION IN PHASE 1 12186711 CASDGN******* OF CASUALTY DESIGN. 12186711 CASDGN******************************************************************12186711 CASDGN 05 R-CD-WKSTN-PHS1-ASGN-DATA. 12186711 CASDGN 10 R-NOL-DEF-SUPV-SW PIC X(01). 12186711 CASDGN 88 R-FILE-LEVEL-ASSIGN VALUE '0'. 12186711 CASDGN 88 R-TEMP-DEFAULT-SUPV VALUE '1'. 12186711 CASDGN 88 R-ACTUAL-DEFAULT-SUPV VALUE '2'. 12186711 124800 12480006 CASDGN 05 R-CD-WKSTN-PHS1-AUTO-DATA. 12186711 CASDGN 10 R-CLAUTO-DEALERSHIP-INVT PIC X(01). 12186711 121947 12194700 CASDGN 05 R-CD-WKSTN-PHS1-AUTO-LIAB-DATA. 12186711 CASDGN 10 R-SUIT-ATTY-1ST-NOTICE PIC X(01). 12186711 CASDGN 12453006 CASDGN 05 R-CD-WKSTN-PHS1-LIAB-DATA. 12186711 CASDGN 10 R-NOL-LIAB-TYPE-INV-A PIC X(01). 12186711 CASDGN 88 R-LIAB-DAMAGE-TO-AUTO VALUE '1'. 12186711 CASDGN 10 R-NOL-LIAB-TYPE-INV-B PIC X(01). 12453006 CASDGN 88 R-LIAB-BUILDING-TYPE VALUE '1'. 12453006 CASDGN 10 R-NOL-LIAB-TYPE-INV-O PIC X(01). 12453006 CASDGN 88 R-LIAB-OTHER-TYPE VALUE '1'. 12453006 CASDGN 10 R-LIAB-CATASTROPHIC-IND PIC X(01). 12453006 CASDGN 10 R-CLLIAB-PI-CAUSE-CODE PIC X(02). 12453006 CASDGN 88 R-PI2-CRIM-ASSAULT VALUE '01'. 12453006 CASDGN 88 R-PI2-NEGLIGENTS VALUE '02'. 12453006 CASDGN 88 R-PI2-SLANDER-PERSON-ADVERT VALUE '03'. 12453006 CASDGN 88 R-PI2-LIBEL-PERSON-ADVERT VALUE '04'. 12453006 CASDGN 88 R-PI2-FALSE-IMPRISON VALUE '05'. 12453006 CASDGN 88 R-PI2-EMPLOYER-LIABILITY VALUE '06'. 12453006 CASDGN 88 R-PI2-VIOLATION-OF-PRIVACY VALUE '07'. 12453006 CASDGN 88 R-PI3-RAPE VALUE '08'. 12453006 CASDGN 88 R-PI3-SEXUAL-HARASS VALUE '09'. 12453006 CASDGN 88 R-PI3-CLASS-ACTION-SUIT VALUE '10'. 12453006 CASDGN 88 R-PI3-VIOLATION-OF-IDEAS VALUE '11'. 12453006 CASDGN 88 R-PI3-COPYRIGHT-INFRINGEMENT VALUE '12'. 12453006 CASDGN 88 R-PI3-DISCRIMINATION VALUE '13'. 12453006 CASDGN 10 R-PLLIAB-BI-IND PIC X(01). 12453006 CASDGN 12453006 CASDGN 05 R-CD-WKSTN-PHS1-LIAB-PROP-DATA. 12186711 CASDGN 10 R-OPEN-TO-ELEMTS-IND PIC X(01). 12453006 CASDGN 10 R-HABITABLE-OCCUPIED-IND PIC X(01). 12453006 CASDGN 10 R-BUILD-EST-AMOUNT PIC S9(07). 12453006 CASDGN 10 R-OTHER-CONT-EST-AMOUNT PIC S9(07). 12453006 CASDGN 12453006 CASDGN 05 R-CD-WKSTN-PHS1-PROP-DATA. 12186711 CASDGN 10 R-PLPROP-ADD-LIVING-EXP-IND PIC X(01). 12453006 CASDGN 10 R-CLPROP-GLASS-SIGN-IND PIC X(01). 12453006 CASDGN 10 R-PROP-TIME-EST-DAYS PIC X(01). 12453006 CASDGN 88 NO-DAYS VALUE '0'. 12453006 CASDGN 88 UP-TO-PT5-DAYS VALUE '1'. 12453006 CASDGN 88 PT6-TO-1-DAYS VALUE '2'. 12453006 CASDGN 88 1PT1-TO-3-DAYS VALUE '3'. 12453006 CASDGN 88 3PT1-TO-7-DAYS VALUE '4'. 12453006 CASDGN 88 7PT1-TO-10-DAYS VALUE '5'. 12453006 CASDGN 88 GREATER-10-DAYS VALUE '6'. 12453006 CASDGN 10 R-PROP-LOSS-MITIGATED-IND PIC X(01). 12453006 CASDGN 12453006 CASDGN 05 R-CD-WKSTN-PHS1-CL-DED-DATA. 12186711 **** NEED TO BE KEPT IN SYNC WITH POLICY SEG FLDS 10 R-ASSIGN-SAI-NUMBER PIC X(09). 10 R-ASSIGN-PRODUCER-COD PIC X(05). 10 R-ASSIGN-LOC-COD PIC X(20). 124800 12480006 05 R-CD-WKSTN-PHS1-FILE-CH-OR-SUP. 12186711 10 R-TYPE-OF-HNDLR PIC X(03). 10 R-UNIT-OF-HNDLR PIC X(03). 121947 12194700 05 R-CD-WKSTN-PHS2-CONTRACT. 12186711 10 R-CONTRACT-ELIGIBLE-IND PIC X(01). 10 R-CONTRACT-ACCEPT-IND PIC X(01). 124800 12480006 128282 05 R-SENSITIVE-INDICATORS. 12828201 128283 10 R-TRAV-SENS-IND PIC X(01). 12828301 128284 10 R-OTH-SENS-IND PIC X(01). 12828401 121947 12194700 05 R-NOL-CONTRACTOR-DATA. 10 R-NOL-PROP-EMERGENCY-REPAIR PIC X(01). 10 R-NOL-PROP-CLEANING-REQUIRE PIC X(01). 10 R-NOL-PROP-TYPE-CONTRACTOR PIC X(01). 10 R-NOL-PROP-NOT-EXCEED-AMT PIC S9(07). C@O 10 R-NOL-PROP-NON-CAT-BKUP-IND PIC X(01). C@O 10 R-NOL-PROP-AUTO-REFERRAL-SW PIC X(01). C@O 88 R-PROP-CMT-CONT-BKUP-REF VALUE 'C'. 121947 12194700 WKW 05 R-CONSTRUCT-MARKET-DATA. WKW 10 R-CONSTRUCT-DRVR-RELAT PIC X(01). WKW 88 R-CON-DRIVER-EMPLOYEE VALUE 'A'. WKW 88 R-CON-DRIVER-RELATIVE VALUE 'B'. WKW 88 R-CON-DRIVER-SUBCONTR VALUE 'C'. WKW 88 R-CON-DRIVER-NONPERM VALUE 'D'. WKW 10 R-CONSTRUCT-RELAT-LOSS PIC X(01). CRT 10 R-CONSTRUCT-POLICY-HOLDER-TIER 20831108 CRT REDEFINES R-CONSTRUCT-RELAT-LOSS PIC X(01). 20831208 WKW 88 R-CON-HIGHER-TIER VALUE 'A'. WKW 88 R-CON-LOWER-TIER VALUE 'B'. CRT 88 R-CON-SOLE-DEFENDENT VALUE 'C'. 20832206 WKW 10 R-CONSTRUCT-PROJECT-TYPE PIC X(01). WKW 88 R-CON-PROJ-WRAPUP VALUE 'A'. WKW 88 R-CON-PROJ-JOBSITE VALUE 'B'. WKW 10 R-CONSTRUCT-CONTRACT-TYPE PIC X(01). WKW 88 R-CON-CONTRACT-EXEC VALUE 'A'. WKW 88 R-CON-CONTRACT-NONEXEC VALUE 'B'. WKW 88 R-CON-CONTRACT-PURCHASE VALUE 'C'. CRT 88 R-CON-CONTRACT-NO-WRIT VALUE 'D'. 20833006 WKW 10 R-CONSTRUCT-CRT-POTEN-1 PIC X(01). WKW 88 CONSTRUCT-CRT-POTEN-1 VALUE 'Y'. WKW 88 CONSTRUCT-CRT-POTEN-1-NA VALUE 'X'. WKW 10 R-CONSTRUCT-POTEN1-ADDITION PIC X(01). WKW 88 POTEN1-ADDITIONAL-INS VALUE 'A'. WKW 88 POTEN1-BOTH VALUE 'B'. WKW 88 POTEN1-CONTRACT VALUE 'C'. WKW 10 R-CONSTRUCT-CRT-POTEN-2 PIC X(01). WKW 88 CONSTRUCT-CRT-POTEN-2 VALUE 'Y'. WKW 88 CONSTRUCT-CRT-POTEN-2-NA VALUE 'X'. WKW 10 R-CONSTRUCT-CRT-POTEN-3 PIC X(01). WKW 88 CONSTRUCT-CRT-POTEN-3 VALUE 'Y'. WKW 88 CONSTRUCT-CRT-POTEN-3-NA VALUE 'X'. WKW 10 R-CONSTRUCT-POTEN3-ADDITION PIC X(01). WKW 88 POTEN3-ADDITIONAL-INS VALUE 'A'. WKW 88 POTEN3-CONTRACT VALUE 'C'. WKW 88 POTEN3-LIMITS-INSURANCE VALUE 'L'. WKW 10 R-CONSTRUCT-CONTR-FACTOR PIC X(01). WKW 88 R-CON-CELL-RADIO VALUE 'A'. WKW 88 R-CON-REACHING VALUE 'B'. WKW 88 R-CON-DISTRACTION VALUE 'C'. WKW 88 R-CON-TRAFFIC-VIOLAT VALUE 'D'. WKW 88 R-CON-SUN-LIGHTS VALUE 'E'. WKW 88 R-CON-DRUGS-ALCOHOL VALUE 'F'. SLL 10 R-INSD-VEHICLE-TYPE PIC X(01). SLL 88 R-INSD-VEH-TYPE-AUTO VALUE 'A'. SLL 88 R-INSD-VEH-TYPE-LTRUCK VALUE 'L'. SLL 88 R-INSD-VEH-TYPE-HTRUCK VALUE 'H'. SLL 88 R-INSD-VEH-TYPE-HEQUIP VALUE 'E'. SLL 10 R-CONSTRUCT-VEHICLE-TYPE REDEFINES SLL R-INSD-VEHICLE-TYPE PIC X(01). WKW 88 R-CON-PICKUP VALUE 'P'. WKW 88 R-CON-PRIVATE-PASSENGER VALUE 'R'. WKW 88 R-CON-SPORT-UTILITY VALUE 'S'. WKW 88 R-CON-TRAILERS VALUE 'T'. WKW 88 R-CON-VAN-BUS VALUE 'V'. WKW 88 R-CON-DUMPTRUCK VALUE 'D'. WKW 10 R-SIC-CODE-CATEGORY PIC X(01). NATL1 05 R-PROCESS-CODE PIC X(02). 12828601 LIT 05 R-ROOT-LIT-DATA-ON-DB2 PIC X(01). 12828601 SLL 05 R-DRIVER-RELAT-TO-INSD PIC X(01). 12828601 SLL 88 R-DRVR-RELAT-INSD VALUE 'I'. SLL 88 R-DRVR-RELAT-EMPLOYEE VALUE 'E'. SLL 88 R-DRVR-RELAT-RELATIVE VALUE 'R'. SLL 88 R-DRVR-RELAT-USED-WOUT-PERM VALUE 'U'. SLL 05 R-SPECIAL-CIRCUMSTANCES-IND PIC X(01). 12828601 SLL 88 R-SPECIAL-CIRC-IMPAIRED-DRVR VALUE 'I'. SLL 88 R-SPECIAL-CIRC-UNLIC-DRVR VALUE 'U'. SLL 88 R-SPECIAL-CIRC-OTHER VALUE 'O'. SLL 05 R-CONTRIBUTING-CAUSE PIC X(01). 12828601 SLL 88 R-CONTRIB-CAUSE-DISREPAIR VALUE 'D'. SLL 88 R-CONTRIB-CAUSE-LACK-TRNG VALUE 'T'. SLL 88 R-CONTRIB-CAUSE-IMP-MAINT VALUE 'M'. SLL 88 R-CONTRIB-CAUSE-OTHER VALUE 'O'. SLL 05 R-DATA-INTEGRITY-CHECKED PIC X(01). 12828601 SLL 88 R-DATA-INTEG-CHECKED VALUE 'Y'. SLL 88 R-DATA-INTEG-NOT-CHECKED VALUES 'N' ' '. 05 R-MPAC-PPAK-XTND-IND PIC X(01). 128288 12828800 128288 12828800 125100 04 R-WC-ONLY-DATA REDEFINES R-CPCS-ONLY-DATA. 12490006 125200 12500006 125300 05 R-WC-DATES. 12510006 125400 07 R-WC-DATE-DISAB-BEGAN. 12520006 125500 09 R-WC-DATE-DISAB-BEGAN-MM PIC X(02). 12530006 125600 09 R-WC-DATE-DISAB-BEGAN-DD PIC X(02). 12540006 125800 09 R-WC-DATE-DISAB-BEGAN-YY PIC X(02). 12560006 125900 07 R-WC-DATE-DISAB-ENDED. 12570006 126000 09 R-WC-DATE-DISAB-ENDED-MM PIC X(02). 12580006 126100 09 R-WC-DATE-DISAB-ENDED-DD PIC X(02). 12590006 126300 09 R-WC-DATE-DISAB-ENDED-YY PIC X(02). 12610006 126400 07 R-WC-DATE-COMPEN-BEGAN. 12620006 126500 09 R-WC-DATE-COMPEN-BEG-MM PIC X(02). 12630006 126600 09 R-WC-DATE-COMPEN-BEG-DD PIC X(02). 12640006 126800 09 R-WC-DATE-COMPEN-BEG-YY PIC X(02). 12660006 126900 07 R-WC-DATE-OF-DEATH. 12670006 127000 09 R-WC-DATE-OF-DEATH-MM PIC X(02). 12680006 127100 09 R-WC-DATE-OF-DEATH-DD PIC X(02). 12690006 127300 09 R-WC-DATE-OF-DEATH-YY PIC X(02). 12710006 127400 07 R-WC-DATE-SER-INJ-BEGAN. 12720006 127500 09 R-WC-DATE-SER-INJ-BEG-MM PIC X(02). 12730006 127600 09 R-WC-DATE-SER-INJ-BEG-DD PIC X(02). 12740006 127800 09 R-WC-DATE-SER-INJ-BEG-YY PIC X(02). 12760006 127900 07 R-WC-DATE-SER-INJ-ENDED. 12770006 128000 09 R-WC-DATE-SER-INJ-END-MM PIC X(02). 12780006 128100 09 R-WC-DATE-SER-INJ-END-DD PIC X(02). 12790006 128300 09 R-WC-DATE-SER-INJ-END-YY PIC X(02). 12810006 128400 07 R-WC-DATE-CM-TO-CB-TRANS. 12820006 128500 09 R-WC-DATE-CM-TO-CB-TRANS-MM PIC X(02). 12830006 128600 09 R-WC-DATE-CM-TO-CB-TRANS-DD PIC X(02). 12840006 128800 09 R-WC-DATE-CM-TO-CB-TRANS-YY PIC X(02). 12860006 128900 07 R-WC-DATE-INITIAL-ESTIMATE. 12870006 129000 09 R-WC-DATE-INITIAL-EST-MM PIC X(02). 12880006 129100 09 R-WC-DATE-INITIAL-EST-DD PIC X(02). 12890006 129300 09 R-WC-DATE-INITIAL-EST-YY PIC X(02). 12910008 129400 07 R-WC-DATE-DCI-DUE. 12920006 129500 09 R-WC-DATE-DCI-DUE-MM PIC X(02). 12930006 129600 09 R-WC-DATE-DCI-DUE-DD PIC X(02). 12940006 129800 09 R-WC-DATE-DCI-DUE-YY PIC X(02). 12960006 129900 07 R-WC-DATE-TRANS-SCH. 12970006 130000 09 R-WC-DATE-TRANS-SCH-MM PIC X(02). 12980006 130100 09 R-WC-DATE-TRANS-SCH-DD PIC X(02). 12990006 130300 09 R-WC-DATE-TRANS-SCH-YY PIC X(02). 13010006 130400 07 R-WC-DATE-REFINALED. 13020006 130500 09 R-WC-DATE-REFINALIZED-MM PIC X(02). 13030006 130600 09 R-WC-DATE-REFINALIZED-DD PIC X(02). 13040006 130800 09 R-WC-DATE-REFINALIZED-YY PIC X(02). 13060006 130900 07 R-WC-DATE-REOPENED. 13070006 131000 09 R-WC-DATE-REOPENED-MM PIC X(02). 13080006 131100 09 R-WC-DATE-REOPENED-DD PIC X(02). 13090006 131300 09 R-WC-DATE-REOPENED-YY PIC X(02). 13110006 131400 07 R-WC-DATE-RESTORED. 13120006 131500 09 R-WC-DATE-RESTORED-MM PIC X(02). 13130006 131600 09 R-WC-DATE-RESTORED-DD PIC X(02). 13140006 131800 09 R-WC-DATE-RESTORED-YY PIC X(02). 13160006 131900 07 R-WC-DATE-CLM-NUM-ASSGN. 13170006 132000 09 R-WC-DATE-CLM-NUM-ASSGN-MM PIC X(02). 13180006 132100 09 R-WC-DATE-CLM-NUM-ASSGN-DD PIC X(02). 13190006 132300 09 R-WC-DATE-CLM-NUM-ASSGN-YY PIC X(02). 13210006 132400 07 R-WC-DATE-CTR-COMPLETED. 13220006 132500 09 R-WC-DATE-CTR-COMP-MM PIC X(02). 13230006 132600 09 R-WC-DATE-CTR-COMP-DD PIC X(02). 13240006 132800 09 R-WC-DATE-CTR-COMP-YY PIC X(02). 13260006 132900 07 R-WC-DATE-ESTIMATE-EFF. 13270006 133000 09 R-WC-DATE-EST-EFF-MM PIC X(02). 13280006 133100 09 R-WC-DATE-EST-EFF-DD PIC X(02). 13290006 133300 09 R-WC-DATE-EST-EFF-YY PIC X(02). 13310006 133400 07 R-WC-DATE-MCR-RECON. 13320006 133500 09 R-WC-DATE-MCR-RECON-MM PIC X(02). 13330006 133600 09 R-WC-DATE-MCR-RECON-DD PIC X(02). 13340006 133800 09 R-WC-DATE-MCR-RECON-YY PIC X(02). 13360006 133900 07 R-WC-DATE-LAST-MCR-PYMT. 13370006 134000 09 R-WC-DATE-LAST-MCR-PYMT-MM PIC X(02). 13380006 134100 09 R-WC-DATE-LAST-MCR-PYMT-DD PIC X(02). 13390006 134300 09 R-WC-DATE-LAST-MCR-PYMT-YY PIC X(02). 13410006 134400 07 R-WC-DATE-EST-EVAL. 13420006 134500 09 R-WC-DATE-EST-EVAL-MM PIC X(02). 13430006 134600 09 R-WC-DATE-EST-EVAL-DD PIC X(02). 13440006 134800 09 R-WC-DATE-EST-EVAL-YY PIC X(02). 13460006 134900 07 R-WC-DATE-CYCLOPS-NOTIFIED. 13470006 135000 09 R-WC-DATE-CYCLOPS-NOTF-MM PIC X(02). 13480006 135100 09 R-WC-DATE-CYCLOPS-NOTF-DD PIC X(02). 13490006 135300 09 R-WC-DATE-CYCLOPS-NOTF-YY PIC X(02). 13510006 135400 07 R-WC-DATE-FIRST-CLM-PYMT. 13520006 135500 09 R-WC-DATE-FIRST-CLM-PYMT-MM PIC X(02). 13530006 135600 09 R-WC-DATE-FIRST-CLM-PYMT-DD PIC X(02). 13540006 135800 09 R-WC-DATE-FIRST-CLM-PYMT-YY PIC X(02). 13560006 135900 07 R-WC-DATE-PREVPAY-COMPLETED. 13570006 136000 09 R-WC-PREVPAY-DATE-MM PIC X(02). 13580006 136100 09 R-WC-PREVPAY-DATE-DD PIC X(02). 13590006 136300 09 R-WC-PREVPAY-DATE-YY PIC X(02). 13610006 136400 07 R-WC-DATE-FIRST-DCI-DIARY. 13620006 136500 09 R-WC-DATE-FIRST-DCI-DIARY-MM PIC X(02). 13630006 136600 09 R-WC-DATE-FIRST-DCI-DIARY-DD PIC X(02). 13640006 136800 09 R-WC-DATE-FIRST-DCI-DIARY-YY PIC X(02). 13660006 136900 07 R-WC-DATE-BCL13-SENT. 13670006 137000 09 R-WC-DATE-BCL13-SENT-MM PIC X(02). 13680006 137100 09 R-WC-DATE-BCL13-SENT-DD PIC X(02). 13690006 137300 09 R-WC-DATE-BCL13-SENT-YY PIC X(02). 13710006 137400 07 R-WC-RPT-TO-ER-DT. 13720006 137500 09 R-WC-RPT-TO-ER-MM PIC X(02). 13730006 137600 09 R-WC-RPT-TO-ER-DD PIC X(02). 13740006 137800 09 R-WC-RPT-TO-ER-YY PIC X(02). 13760006 137900 07 R-WC-EE-HIRE-DT. 13770006 138000 09 R-WC-EE-HIRE-MM PIC X(02). 13780006 138100 09 R-WC-EE-HIRE-DD PIC X(02). 13790006 138300 09 R-WC-EE-HIRE-YY PIC X(02). 13810006 138400 07 R-WC-ER-CNTC-DT. 13820006 138500 09 R-WC-ER-CNTC-MM PIC X(02). 13830006 138600 09 R-WC-ER-CNTC-DD PIC X(02). 13840006 138800 09 R-WC-ER-CNTC-YY PIC X(02). 13860006 138900 07 R-WC-EE-CNTC-DT. 13870006 139000 09 R-WC-EE-CNTC-MM PIC X(02). 13880006 139100 09 R-WC-EE-CNTC-DD PIC X(02). 13890006 139300 09 R-WC-EE-CNTC-YY PIC X(02). 13910006 139400 07 R-WC-COMP-INVSTGT-BGN-DT. 13920006 139500 09 R-WC-COMP-INVSTGT-BGN-MM PIC X(02). 13930006 139600 09 R-WC-COMP-INVSTGT-BGN-DD PIC X(02). 13940006 139800 09 R-WC-COMP-INVSTGT-BGN-YY PIC X(02). 13960006 139900 07 R-WC-COMP-INVSTGT-END-DT. 13970006 140000 09 R-WC-COMP-INVSTGT-END-MM PIC X(02). 13980006 140100 09 R-WC-COMP-INVSTGT-END-DD PIC X(02). 13990006 140300 09 R-WC-COMP-INVSTGT-END-YY PIC X(02). 14010006 140400 07 R-WC-RTN-TO-WRK-DT. 14020006 140500 09 R-WC-RTN-TO-WRK-MM PIC X(02). 14030006 140600 09 R-WC-RTN-TO-WRK-DD PIC X(02). 14040006 140800 09 R-WC-RTN-TO-WRK-YY PIC X(02). 14060006 140900 07 R-WC-RTN-TO-WRK1-DT. 14070006 141000 09 R-WC-RTN-TO-WRK1-MM PIC X(02). 14080006 141100 09 R-WC-RTN-TO-WRK1-DD PIC X(02). 14090006 141300 09 R-WC-RTN-TO-WRK1-YY PIC X(02). 14110006 141400 07 R-WC-RTN-TO-WRK2-DT. 14120006 141500 09 R-WC-RTN-TO-WRK2-MM PIC X(02). 14130006 141600 09 R-WC-RTN-TO-WRK2-DD PIC X(02). 14140006 141800 09 R-WC-RTN-TO-WRK2-YY PIC X(02). 14160006 141900 07 R-WC-RTN-TO-WRK3-DT. 14170006 142000 09 R-WC-RTN-TO-WRK3-MM PIC X(02). 14180006 142100 09 R-WC-RTN-TO-WRK3-DD PIC X(02). 14190006 142300 09 R-WC-RTN-TO-WRK3-YY PIC X(02). 14210006 142400 07 R-WC-SBSEQ-DSBL1-DT. 14220006 142500 09 R-WC-SBSEQ-DSBL1-MM PIC X(02). 14230006 142600 09 R-WC-SBSEQ-DSBL1-DD PIC X(02). 14240006 142800 09 R-WC-SBSEQ-DSBL1-YY PIC X(02). 14260006 142900 07 R-WC-SBSEQ-DSBL2-DT. 14270006 143000 09 R-WC-SBSEQ-DSBL2-MM PIC X(02). 14280006 143100 09 R-WC-SBSEQ-DSBL2-DD PIC X(02). 14290006 143300 09 R-WC-SBSEQ-DSBL2-YY PIC X(02). 14310006 143400 07 R-WC-SBSEQ-DSBL3-DT. 14320006 143500 09 R-WC-SBSEQ-DSBL3-MM PIC X(02). 14330006 143600 09 R-WC-SBSEQ-DSBL3-DD PIC X(02). 14340006 143800 09 R-WC-SBSEQ-DSBL3-YY PIC X(02). 14360006 143900 07 FILLER PIC X(18). 14370006 144000 14380006 144100 05 R-WC-LN-DATA-ITEMS. 14390006 144200 07 R-WC-ACCIDENT-LOC PIC X(20). 14400006 144300 07 R-WC-ACCIDENT-ZIP PIC X(09). 14410006 144400 07 R-WC-EMPLOYEE-SEX PIC X(01). 14420006 144500 07 R-WC-AVG-WKLY-WAGE PIC S9(4)V99. 14430006 144600 07 R-WC-COMP-RATE PIC S9(4)V99. 14440006 144700 07 R-WC-LENGTH-EMPLOYMENT PIC X(06). 14450006 144800 07 R-WC-TREATMENT-DESC PIC X(50). 14460006 144900 07 R-WC-EST-LENGTH-DISAB. 14470006 145000 09 R-WC-EST-DISAB-MOS PIC X(02). 14480006 145100 09 R-WC-EST-DISAB-WKS PIC X(02). 14490006 145200 09 R-WC-EST-DISAB-DAYS PIC X(02). 14500006 145300 07 R-WC-NAT-OF-BUS PIC X(35). 14510006 145400 07 R-WC-CHKLIST-EMPLER-NAME PIC X(35). 14520006 145500 07 R-WC-EMPLOYEE-MAR-STAT PIC X(02). 14530006 145600 07 R-WC-PRIOR-CARRIER PIC X(35). 14540006 145700 07 R-WC-PRIOR-FILE-NUM PIC X(20). 14550006 145800 07 R-WC-IN-YEAR. 14560006 146000 09 R-WC-IN-YY PIC X(02). 14580006 146100 07 R-WC-CUMULATIVE-INJ-IND PIC X(01). 14590006 146200 07 R-WC-OCC-DISEASE-IND PIC X(01). 14600006 146300 07 R-WC-ACCOUNT-REEVAL-IND PIC X(01). 14610006 146400 07 R-WC-SAFEGUARDS-PROV-IND PIC X(01). 14620006 146500 07 R-WC-SAFEGUARDS-IN-USE-IND PIC X(01). 14630006 146600 07 R-WC-CASE-NUM PIC X(20). 14640006 146700 07 R-WC-EMPLOYEE-AGE PIC X(03). 14650006 146800 07 R-WC-PREFILL-EMPLYEE-NAME. 14660006 146900 09 R-WC-PREFILL-FIRST PIC X(09). 14670006 147000 09 FILLER PIC X(01). 14680006 147100 09 R-WC-PREFILL-MIDDLE PIC X(01). 14690006 147200 09 FILLER PIC X(01). 14700006 147300 09 R-WC-PREFILL-LAST PIC X(15). 14710006 147400 07 R-WC-PREFILL-SSN PIC X(09). 14720006 147500 07 R-WC-ADJ-STATE PIC X(02). 14730006 147600 07 R-WC-BACK-TO-WORK-IND PIC X(01). 14740006 147700 07 R-WC-TYPE-OF-LABOR PIC X(01). 14750006 147800 07 R-WC-SIMILAR-INJURY PIC X(01). 14760006 147900 07 R-WC-DISABILITY-RATING PIC 9(3). 14770006 148000 07 R-WC-INDP-ADJ-IND PIC X(01). 14780006 148100 07 R-WC-CONTRV-CNTST-IND PIC X(01). 14790006 148200 07 R-WC-CAT-INJ-IND PIC X(01). 14800006 148300 07 R-WC-CAT-CD PIC X(01). 14810006 148400 07 R-WC-TOT-WK-OUT-OF-WRK-NBR PIC 9(04). 14820006 148500 07 R-WC-TOT-WK-OUT-OF-WRK-NBR-X REDEFINES 14830006 148600 R-WC-TOT-WK-OUT-OF-WRK-NBR PIC X(04). 14840006 148700 07 R-WC-TOT-WK-COMP-NBR PIC 9(04). 14850006 148800 07 R-WC-TOT-WK-COMP-NBR-X REDEFINES 14860006 148900 R-WC-TOT-WK-COMP-NBR PIC X(04). 14870006 149000 14880006 149100 05 R-WC-RECOVERY-ITEMS. 14890006 149200 07 R-WC-SEC-INJ-FUND-IND PIC X(01). 14900006 149300 07 R-WC-ACPT-BY-SEC-INJ-FUND-DT. 14910006 149400 09 R-WC-ACPT-BY-SEC-INJ-FUND-MM PIC X(02). 14920006 149500 09 R-WC-ACPT-BY-SEC-INJ-FUND-DD PIC X(02). 14930006 149700 09 R-WC-ACPT-BY-SEC-INJ-FUND-YY PIC X(02). 14950006 149800 07 R-WC-REF-TO-SEC-INJ-FUND-DT. 14960006 149900 09 R-WC-REF-TO-SEC-INJ-FUND-MM PIC X(02). 14970006 150000 09 R-WC-REF-TO-SEC-INJ-FUND-DD PIC X(02). 14980006 150200 09 R-WC-REF-TO-SEC-INJ-FUND-YY PIC X(02). 15000006 150300 07 R-WC-REJ-BY-SEC-INJ-FUND-DT. 15010006 150400 09 R-WC-REJ-BY-SEC-INJ-FUND-MM PIC X(02). 15020006 150500 09 R-WC-REJ-BY-SEC-INJ-FUND-DD PIC X(02). 15030006 150700 09 R-WC-REJ-BY-SEC-INJ-FUND-YY PIC X(02). 15050006 150800 07 R-WC-ESCL-SUPL-BEN-IND PIC X(01). 15060006 150900 07 R-WC-REIM-OF-BEN-IND PIC X(01). 15070006 151000 07 R-WC-PROJ-SUPL-SV-AMT PIC 9(09). 15080006 151100 07 R-WC-PROJ-SUPL-SV-AMT-X REDEFINES 15090006 151200 R-WC-PROJ-SUPL-SV-AMT PIC X(09). 15100006 151300 07 R-WC-APPORT-CNTRB-IND PIC X(01). 15110006 151400 07 R-WC-APPORT-CNTRB-REQ-DT. 15120006 151500 09 R-WC-APPORT-CNTRB-REQ-MM PIC X(02). 15130006 151600 09 R-WC-APPORT-CNTRB-REQ-DD PIC X(02). 15140006 151800 09 R-WC-APPORT-CNTRB-REQ-YY PIC X(02). 15160006 151900 07 R-WC-RDUC-REIM-AMT PIC 9(09). 15170006 152000 07 R-WC-RDUC-REIM-AMT-X REDEFINES 15180006 152100 R-WC-RDUC-REIM-AMT PIC X(09). 15190006 152200 07 R-WC-SOC-SECUR-OFST-IND PIC X(01). 15200006 152300 07 R-WC-SOC-SECUR-REQ-DT. 15210006 152400 09 R-WC-SOC-SECUR-REQ-MM PIC X(02). 15220006 152500 09 R-WC-SOC-SECUR-REQ-DD PIC X(02). 15230006 152700 09 R-WC-SOC-SECUR-REQ-YY PIC X(02). 15250006 152800 07 R-WC-SOC-SECUR-OFST-RDUC-AMT PIC 9(09). 15260006 152900 07 R-WC-SOC-SECUR-OFST-RDUC-AMT-X REDEFINES 15270006 153000 R-WC-SOC-SECUR-OFST-RDUC-AMT PIC X(09). 15280006 153100 07 R-WC-RECOV-CMPL-IND PIC X(01). 15290006 153200 15300006 153300 05 R-WC-SUBROGATION-ITEMS. 15310006 153400 07 R-WC-SUBRO-PURSUED-IND PIC X(01). 15320006 153500 07 R-WC-SUBRO-LIEN-DT. 15330006 153600 09 R-WC-SUBRO-LIEN-MM PIC X(02). 15340006 153700 09 R-WC-SUBRO-LIEN-DD PIC X(02). 15350006 153900 09 R-WC-SUBRO-LIEN-YY PIC X(02). 15370006 154000 07 R-WC-SUBRO-LIEN-AMT PIC 9(09). 15380006 154100 07 R-WC-SUBRO-LIEN-AMT-X REDEFINES 15390006 154200 R-WC-SUBRO-LIEN-AMT PIC X(09). 15400006 154300 07 R-WC-SUBRO-RECOV-AMT PIC 9(09). 15410006 154400 07 R-WC-SUBRO-RECOV-AMT-X REDEFINES 15420006 154500 R-WC-SUBRO-RECOV-AMT PIC X(09). 15430006 154600 07 R-WC-SUBRO-RECOV-PRDCT-IND PIC X(01). 15440006 154700 07 R-WC-SUBRO-RECOV-AUTO-IND PIC X(01). 15450006 154800 07 R-WC-SUBRO-RECOV-OTHR-IND PIC X(01). 15460006 154900 07 R-WC-SUBRO-OPN-DT. 15470006 155000 09 R-WC-SUBRO-OPN-MM PIC X(02). 15480006 155100 09 R-WC-SUBRO-OPN-DD PIC X(02). 15490006 155300 09 R-WC-SUBRO-OPN-YY PIC X(02). 15510006 155400 07 R-WC-SUBRO-CLS-DT. 15520006 155500 09 R-WC-SUBRO-CLS-MM PIC X(02). 15530006 155600 09 R-WC-SUBRO-CLS-DD PIC X(02). 15540006 155800 09 R-WC-SUBRO-CLS-YY PIC X(02). 15560006 155900 07 R-WC-SUBRO-CMPL-IND PIC X(01). 15570006 156000 07 R-WC-SUBRO-FUTR-PAY-CRDT-AMT PIC 9(09). 15580006 156100 07 R-WC-SUBRO-FUTR-PAY-CRDT-AMT-X REDEFINES 15590006 156200 R-WC-SUBRO-FUTR-PAY-CRDT-AMT PIC X(09). 15600006 156300 05 FILLER PIC X(69). 15610006 156400 15620006 156500 05 R-WC-LC-DATA-ITEMS. 15630006 156600 07 R-WC-EXCESS-IND PIC X(01). 15640006 156700 07 R-WC-FIRST-NOTICE-IND PIC X(01). 15650006 156800 07 R-WC-CM-NOD-IND PIC X(01). 15660006 156900 88 NOD-REQUIRED-ON-CM VALUE 'Y'. 15670006 157000 07 R-WC-ACT-TIME-IND PIC X(01). 15680006 157100 07 R-WC-ADDL-CLASSES-IND PIC X(01). 15690006 157200 07 R-WC-INSP-IND PIC X(01). 15700006 157300 07 R-WC-REINS-IND PIC X(01). 15710006 157400 07 R-WC-ORP-PAPER-IND PIC X(01). 15720006 157500 07 R-WC-COMP-A-R-OFF-CODE PIC X(03). 15730006 157600 07 R-WC-COMP-A-R-OFF-NAME PIC X(08). 15740006 157700 15750006 157800 05 R-WC-ACCT1-ACCT8-TOTALS. 15760006 157900 07 R-WC-CLM-ACCT-8-PD-AMT PIC S9(10)V99 COMP-3. 15770006 158000 07 R-WC-MED-ACCT-8-PD-AMT PIC S9(10)V99 COMP-3. 15780006 158100 07 R-WC-EXP-ACCT-8-PD-AMT PIC S9(10)V99 COMP-3. 15790006 158200 07 R-WC-CLM-ACCT-1-PD-AMT PIC S9(10)V99 COMP-3. 15800006 158300 07 R-WC-MED-ACCT-1-PD-AMT PIC S9(10)V99 COMP-3. 15810006 158400 07 R-WC-EXP-ACCT-1-PD-AMT PIC S9(10)V99 COMP-3. 15820006 158500 07 R-WC-CLM-ACCT-8-EST-AMT PIC S9(10)V99 COMP-3. 15830006 158600 07 R-WC-MED-ACCT-8-EST-AMT PIC S9(10)V99 COMP-3. 15840006 158700 07 R-WC-EXP-ACCT-8-EST-AMT PIC S9(10)V99 COMP-3. 15850006 158800 07 R-WC-CLM-ACCT-1-EST-AMT PIC S9(10)V99 COMP-3. 15860006 158900 07 R-WC-MED-ACCT-1-EST-AMT PIC S9(10)V99 COMP-3. 15870006 159000 07 R-WC-EXP-ACCT-1-EST-AMT PIC S9(10)V99 COMP-3. 15880006 159100 07 FILLER PIC X(97). 15890006 159200 15900006 159300 05 R-WC-OTHER. 15910006 159400 07 R-WC-TEST-INFO PIC X(20). 15920006 159500 07 R-WC-OLD-FILE-STATUS PIC X(01). 15930006 159600 07 R-WC-EST-AUTH-ID PIC X(04). 15940006 159700 07 R-WC-INJURY-TYPE PIC X(01). 15950006 159800 07 FILLER PIC X(02). 15960006 159900 07 R-WC-OTP-CODE PIC X(02). 15970006 160000 07 R-WC-OTP-APPLIED-IND PIC X(01). 15980006 160100 88 OTP-APPLIED VALUE 'Y'. 15990006 160200 07 R-WC-OTP-PAY-KEY PIC X(05). 16000006 160300 16010006 160400 07 R-WC-RESERVE-ADVISORY-IND PIC X(01). 16020006 160500 07 R-WC-SAC-SUBSIDIARY-ID PIC X(04). 16030006 160600 07 R-PREV-WC-SAC-EST-AMT PIC S9(9)V99. 16040006 160700 05 R-WC-EAF-CHANGES. 16050006 160800 07 R-WC-OCCUP-RISK PIC X(01). 16060006 160900 07 R-WC-UNREL-PHYS-IND PIC X(01). 16070006 161000 07 R-WC-PRE-EXIST-COND PIC X(01). 16080006 161100 07 R-WC-PERM-PROB PIC X(01). 16090006 161200 07 R-WC-MAX-MED-IMPROVE-IND PIC X(01). 16100006 161300 07 R-WC-TT-RESOLVED PIC X(01). 16110006 161400 07 R-WC-TP-RESOLVED PIC X(01). 16120006 161500 07 R-WC-PT-RESOLVED PIC X(01). 16130006 161600 07 R-WC-PP-RESOLVED PIC X(01). 16140006 161700 07 R-WC-VR-RESOLVED PIC X(01). 16150006 161800 07 R-WC-ANTICIP-LITIG PIC X(01). 16160006 161900 07 R-WC-ANTICIP-MED-MGMT PIC X(01). 16170006 162000 07 R-WC-EAF-ASSIGN-TO PIC X(04). 16180006 162100 07 R-WC-WKLY-RATE-CLM-PYMT PIC S9(4)V99. 16190006 162200 07 R-WC-WKLY-RATE-MED-PYMT PIC S9(4)V99. 16200006 162300 07 R-WC-WKLY-RATE-EXP-PYMT PIC S9(4)V99. 16210006 162400 07 R-WC-INDUS-RISK PIC X(01). 16220006 162500 07 R-WC-MODEL-IND PIC X(01). 16230006 162600 07 R-WC-EAF-IND PIC X(01). 16240006 162700 07 R-WC-PENDING-SEGMENT-EXISTS PIC X(01). 16250006 162800 88 PENDING-SEGMENT-EXISTS VALUE 'Y'. 16260006 162900 07 R-WC-REV-PRR-ACPT-WCEAF-IND PIC X(01). 16270006 163000 88 REVIEWING-PRIOR-ACCEPTED-EAF VALUE 'Y'. 16280006 163100 88 EAF-INPUT-IN-PROGRESS VALUE 'N'. 16290006 163200 07 R-WC-TOT-MODEL-CLM-AMT-EST PIC S9(10)V99. 16300006 163300 07 R-WC-TOT-MODEL-MED-AMT-EST PIC S9(10)V99. 16310006 163400 07 R-WC-FILE-HANDLER-SUPERVISOR PIC X(04). 16320006 163500 07 R-WC-ATTY-REP PIC X(01). 16330006 163600 07 R-WC-EAF-DATE PIC X(06). 16340006 163700 07 R-WC-ANTICIP-SURGERY PIC X(01). 16350006 163800 07 R-WC-ATTN-NAME PIC X(51). 16360006 163900 07 R-WC-TT-MODEL-EST PIC S9(10)V99. 16370006 164000 07 R-WC-PP-MODEL-EST PIC S9(10)V99. 16380006 164100 07 R-WC-ORG-CLM-MODEL-EST PIC S9(10)V99. 16390006 164200 07 R-WC-ORG-MED-MODEL-EST PIC S9(10)V99. 16400006 164300 07 R-WC-CLM-REVIEW-DT. 16410006 164400 09 R-WC-CLM-REVIEW-MM PIC X(02). 16420006 164500 09 R-WC-CLM-REVIEW-DD PIC X(02). 16430006 164700 09 R-WC-CLM-REVIEW-YY PIC X(02). 16450006 164800 07 R-WC-CAPTURE-TIME. 16460006 164900 09 R-WC-CAPTURE-HH PIC 9(02). 16470006 165000 09 R-WC-CAPTURE-MM PIC 9(02). 16480006 165100 09 R-WC-CAPTURE-SS PIC 9(02). 16490006 165200 05 R-WC-DATE-ICR-DUE. 16500006 165300 09 R-WC-DATE-ICR-DUE-MM PIC X(02). 16510006 165400 09 R-WC-DATE-ICR-DUE-DD PIC X(02). 16520006 165600 09 R-WC-DATE-ICR-DUE-YY PIC X(02). 16540006 165700 05 R-WC-DATE-FIRST-ICR-DIARY PIC X(06). 16550006 165800 05 R-WC-DATE-SELECTED-DCI PIC X(05). 16560006 165900 05 R-WC-PPO-IND PIC X(01). 16570006 166000 05 R-WC-INS-PH-BUS-EXT PIC X(04). 16580006 166100 05 R-WC-EMPLR-COUNTY PIC X(15). 16590006 166200 05 R-CLOSE-CHK-CTR PIC 9(02). 16600006 166300 05 R-REOPEN-CTR PIC 9(02). 16610006 166400 05 R-WC-UNUSED PIC X(379). 16620006 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 * SPECIAL ALERT * * CHANGES TO THIS COPYBOOK MAY ALSO NEED TO BE MADE TO OPMICCMT* * AND OPMICCTV - TALK TO THE OPMI TEAM - 6/23/03 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 000200* SCRFILE CLAIMANT SEGMENT * 00020000 000300* CPCSLIB SUBSET SCRCLMT * 00030000 000400* UPDATED FOR AGGREGATE TOTALS 6/82 JMH * 00040000 000500* UPDATED FOR VOL-STAT CRR TRANS CNT 7/84 KMM * 00050000 000600* UPDATED FOR INOL 4/85 RME * 00060000 000700* UPDATED FOR NJAIRE 11/85 KTD * 00070000 000800* UPDATED FOR TRANSFER 04/86 JMH. * 00080000 000900* UPDATED FOR LITIGATION 09/86 DLB. * 00090000 001000* UPDATED FOR AGENT NOL 06/87 NTF. * 00100000 001100* UPDATED FOR SR#GO6 ADDED C-TOT-PART-IND 11/02/87 DANA A * 00110000 001200* ADD 88 LEVELS FOR SUIT STATUS 12-04-87 -- DAW * 00120000 001300***************************************************************** 00130000 001400* M A I N T E N A N C E L O G * 00140000 001500***************************************************************** 00150000 001600* * 00160000 001700* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00170000 001800***************************************************************** 00180000 001900* 11/14/88 TONY D COMP ADD NEW FIELDS FOR COMP * 00190000 002000* 11/14/88 AL PEPIN GRZ ADD NEW FIELDS FOR BICAP * 00200000 002100* 11/21/88 SANDY B CBA FINANCIAL ACT ON CLSD CLAIMS * 00210000 002200* 12/13/88 JOE C. GSI ADD FIELDS FOR CMT LEVEL FILE* 00220000 002300* HANDLER * 00230000 002400* 01/16/89 D.PATEL GNT ADD FIELDS FOR NJAIRE * 00240000 002500* 04/12/89 KIM STEVENS GSD ADD C-CONTACT-DATE * 00250000 002600* 11/09/88 TONY D COMP ADD CTRS FOR COMP INQUIRES * 00260000 002700* 06/26/89 JAE TECH REDEFINE C-SUIT-AD-DAMNUM * 00270000 002800* 03/01/90 SLL MIS ADDED NEW FIELD TO SUIT INFO * 00280000 002900* C-SUIT-HIERARCHIAL-SYMBOL * 00290000 003000* 01/18/90 SANDY/TJM TECH EXPAND SEG FROM 1200 - 3500 * 00300000 003100* 01/26/90 CATHY ACE ADD ACE CLAIMANT INFORMATION * 00310000 003200* 07/05/90 S.GOYETTE TECH ADDED THE FIELD * 00320000 003300* C-CLMT-EST-REPORTABLE-IND * 00330000 003400* 08/32/90 C.MARKIEWICZ ACE ADDED C-SUIT-CSE-ACTION-CD * 00340000 003500* C-SUIT-APPL-FILED-IND * 00350000 003600* C-SUIT-CLOSE-REOPEN-IND* 00360000 003700* C-CLMT-CLOS-WO-PAY-IND * 00370000 003800* 11/26/90 S.MURPHY ACK ADDED ACKCMT LETTER IND. * 00380000 003900* 01/01/91 SANDY B SLG ADDED NEW SLG FIELDS * 00390000 004000* 04/01/91 CATHY M LITM ADDED NEW LITIGATION FIELDS * 00400000 004100* 06/11/91 GULDEN LTRS DELETE ACKCMT LETTER IND. * 00410000 004200* 08/12/91 FAENZA ADD CHKAUTH FIELDS * 00420000 004300* 03/16/92 J JONES PATORT ADD C-TORT-CD * 00430000 004400* 07/06/92 M OLIVER CREC REDEFINE STOP-PENDING-COUNT * 00440000 004500* C ELEY STRG ADD STRATEGIC FIELDS * 00450000 004600* 10/12/92 J BROCHU SUBRO ADD SUBRO DATES * 00460000 004700* 10/12/92 J PITONIAK OBEL ADD OBEL-INDICATOR * 00470000 004800* 05/16/93 J PITONIAK PATORT ADD 4 PATORT FIELDS * 00480000 004900* 07/11/93 J CALVI LITIG ADD INSURED CONTROL INDICATOR* 00490000 005000* 11/14/93 D GULDEN MNOL ADD 1-800 MULTI-LINE DATA ITEMS00500000 005100* 01/09/94 D MICHAUD AIB ADD AIB INDICATORS AND DATES * 00510000 005200* 05/15/94 D MICHAUD AIB ADD AIB SIU DENIAL IND * 00520000 005300* 11/13/94 V DESILVA CLMT EXPAND TO 4K FOR PLWRKSTN * 00530000 005400* C-COMP-CLMT-NAME * 00540000 005500* REDEFINES C-CLMT-NAME * 00550000 005600* ADD GROUP NEW-PLWKSTN-ITEMS * 00560000 005700* 03/06/95 G SEYMOUR CLMT ADD EST DT & AUTOMATED FIELDS* 00570000 005800* 11/12/95 M BATT AIBBY ADD C-AIB-BYPASS-SW * 00580000 005900* 03/10/96 BBOWEN PLWS REDEFINED C-TOTAL-CLAIM-PAID * 00590000 006000* AND C-TOTAL-EXPENSE-PAID * 00600000 006100* 06/09/96 M SANCHEZ PLWS ADD C-CLMT-AIR-BAG FIELD * 00610000 006200* 09/15/96 A SCHWARTZ SPATS ADD C-SUIT-BILLING-IND * 00620000 006300* 03/09/97 G CALIANDO AETN ADD C-CLMT-TAG-COD(TAG CODE) * 00630000 005829* 06/15/97 JIM HALL LWS ADD LG-LOSS, SER-INJ, COLOS * 00586001 005829* 03/15/98 K STOTT Y2K RESERVE SPACE FOR EXPANSION * 00587002 005829* 03/15/98 B MALICKI PLCNV ADDED 2 FIELDS :C-CLMT-NEW-ON* 00588007 005900* -CONV-CLAIM AND C-CLMT- * 00590007 005900* FIRST-FINAN-COMPLETE * 00591006 006400* 03/07/97 JMBONNEY Y2KEANE ADD CENTURY FOR YEAR 2000 * 00640000 006400* 12/13/98 F DANIELE STRG2 ADD STRATEGIC STATUS FIELD * 00640000 CASDGN* 03/14/99 T BEAULIEU WKSTN ASGN CASUALTY DESIGN PHASE 1 * 00640000 CASDGN* 10/10/99 D MULCAHY LOIMP ADD C-CLMT-LOW-IMPACT-COLL-IND * 00640000 DOARN * 06/11/00 HOULE DOARN ADD C-RESIDENT-INDICATOR * 00640000 DOARN * ADD C-OPERATOR-INDICATOR * 00640000 WKW * 11/2000 K WATHEN CNKMT ADD C-AREA-OF-IMPACT * LIT * 03/2001 T BEAULIEU LIT ADD C-CLMT-LIT-DATA-ON-DB2 * SOS * 06/2001 J SILLUZIO SOSCH SOS SCREEN CHANGES CHG FIELDS * AISG * 11/2001 V PHAM AISG ADD C-CLMT-ISO-STATUS-IND * SYNC * 03/2002 S SHAYER SYNC ADD ADD'L TRAVPRO ITEMS * CDTE * 06/09/2002 TODD SCHMIDT CDTE ADD CONTACT DATE NOT REQUIRED * CDTE * INDICATORS AND CNTDT CREATION. * CLOSE * 06/09/2002 TODD SCHMIDT CLOSE ADD FILE STATUS FOR SUBRO ONLY * CDTE * 07/14/2002 TODD SCHMIDT CDTE ADD A CTDT NA 88 LEVEL. * CLOSE2* 06/14/2003 V GONCHAROV CLOSE ADD 4 FIELD TO THE END. * ETOW * 09/14/2033 J O'CLAIR ETOW ADD ETOW FIELDS * APPR * SSHAYER APPR ADD APPR FIELDS * MLINK * 07/11/2004 LAM HUYNH MLINK ADD CLMT LINKED FIELDS * MADOR * 09/12/2004 LAM HUYNH ADD FIELDS FOR MASS DOR/DMA PROJECT SALV * 11/14/2004 M OLIVER SALV ADD FIELDS FOR SALVAGE ASSIGNMENT CDTE2 * 11/14/04 SCHMIDT ADD DATE, AMPM AND TIME ZONE TO CONTACT* CDTE2 * DATES. * CDTE2 * 02/13/05 ZOCCO ADD PAC-INVOKED-IND * 006500* 02/13/05 TOM EVANS ADD SPC-SPECIALTY-LOSS-ITEMS * SALV2 * 04/10/05 OLIVER ADD TOTAL LOSS EVALUATION ITEMS * CARS * 07/10/05 OLIVER ADD ACTUAL REPAIR COST * SLG1 * 07/10/05 MCKEAG ADD C-SLG-MISC * 3017 * 07/10/05 OSOSKI ADD FIELD FOR MCU CONSTRUCTION OFFICE * VVG1 * 07/10/05 GONCHAROV ADD FIELD FOR ISO SALVAGE REPORTING * OUTSD * 09/11/05 P RADY ADD C-OUTSIDE-HANDLING * 2829 * JD JONES TNJ02 - ADD TRAVELERS OF NJ ITEMS * APPRNA* D WALLACE ADD C-APPR-NA-IND * 1747 * EOSOSKI ADD C-COMPENS-IND * 4291 * 11/13/05 M OLIVER ADD BID-TO-BE-APPROVED *00440000 3562 * D WALLACE ADD C-IA-IND * 3558 * ADD C-PROP-CLAIM-OPEN-RSN * ITV. * 05/21/06 GONCHAROV ADD ITV INFORMATION FILEDS * 37568 * 08/13/06 DONIE ADD THRESHOLD * 35972 * GONCHAROV ADD CLOSE CAT FILEDS * 41433 * 11/12/06 LJFAWKNER ADD FIRST CALL SETTLEMENT INDICATOR * 33621 * SDONIE ADD SUBRO CONTACT NA FIELD * 35533 * GONCHAROV ADD C-CLOSE-REOPEN-IND * 43260 * 02/11/07 SDONIE R ADD ABI COMPLEXITY LEVEL INDICATOR * 35413 * 09/21/07 COGNIZANT ADD VEHICLE RECOVERY TIME AND AMPM IND * 35413 * 06/14/09 DMULCAHY ADDED C-ALT-CLMT-NBR 195188* 08/09/09 MWOLIVER NMVTIS SUPPORT 35413 * 09/13/09 DMULCAHY MODIFY PLACEMENT OF C-ALT-CLMT-NBR 267138* 11/15/09 COGNIZANT ADDED C-SLG-DECEASED-IND T5SALV* 11/14/10 SALVAGE CONVERSION * 11/13/11 DMULCAHY ADD C-DRVR-GENDER-CD * C-CLMT-INSD-VEH-DISP-CD 408956* 08/12/12 F DANIELE ADD 5 FIELDS FOR SERVICE TYPES 408956* ADD 1 TOW/DISABLEMENT IND 408956* RENUGA ADDED C-CLMT-AST-BILL-RCVD 414790* 05/12/13 MAYUKH-CTS ADDED C-CLMT-SAL-NEWCR-APP-IND 414790* C-CLMT-SAL-LLGAP-CD 414790* FOR SALVAGE REQ IN APR DAY2 006600******************************************************************00660000 006700* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00670000 006800 SKIP2 00680000 006900 03 SCRFILE-CLAIMANT-SEGMENT PIC X(4000). 00690000 007000 00700000 007100 03 C-CLMT-SEGMENT REDEFINES SCRFILE-CLAIMANT-SEGMENT. 00710000 007200 05 C-SEGMENT-KEY. 00720000 007300 07 C-CLMT-NUM PIC XXX. 00730000 007400 05 COMMON-CLMT-SEGMENT-DATA. 00740000 007500 07 C-SEGMENT-TYPE PIC X. 00750000 007600 07 C-SEGMENT-STATUS PIC X. 00760000 007700 88 C-SEGMENT-STATUS-ACTIVE VALUE SPACE. 00770000 007800 88 C-SEGMENT-STATUS-CLOSE-W-PYMT VALUE '1'. 00780000 007900 88 C-SEGMENT-STATUS-CLOSE-WO-PYMT VALUE '2'. 00790000 008000 88 C-SEGMENT-STATUS-CLOSE-PEND VALUE '3'. 00800000 008100 88 C-SEGMENT-STATUS-RECLOSE-PEND VALUE '4'. 00810000 CLOSE 88 C-SEGMENT-STATUS-SUBRO-ONLY VALUE '5'. 00810000 008200 07 C-NUM-FINSUM-SEGS PIC XXX. 00820000 008300 07 C-NUM-ESTHIST-SEGS PIC XXX. 00830000 008400 07 C-NUM-PAYMT-SEGS PIC XXX. 00840000 008500 07 C-NUM-CREDIT-SEGS PIC XXX. 00850000 008600 07 C-STOP-PENDING-COUNT PIC 99. 00860000 008700 07 C-CHECKREC-PENDING-COUNT REDEFINES 00870000 008800 C-STOP-PENDING-COUNT PIC 99. 00880000 008900 07 C-UNREG-COUNT PIC 99. 00890000 009000 07 C-NUM-CREDIT-CHANGE-DUE PIC 99. 00900000 009100 07 C-UNSTOP-PENDING-COUNT PIC 99. 00910000 009200 07 C-AGGR-TYP PIC XX. 00920000 009300 07 C-STAG-CHK-CTR PIC 99. 00930000 009400 07 C-CLMT-NAME PIC X(51). 00940000 009500 07 C-WC-CLMT-NAME REDEFINES C-CLMT-NAME. 00950000 009600 09 C-WC-CLMT-NAME-FIRST PIC X(9). 00960000 009700 09 C-WC-CLMT-NAME-MID PIC X. 00970000 009800 09 C-WC-CLMT-NAME-LAST PIC X(15). 00980000 009900 09 FILLER PIC X(26). 00990000 010000 07 C-CPCS-CLMT-NAME REDEFINES C-CLMT-NAME. 01000000 010100 09 C-CPCS-CLMT-NAME-FIRST PIC X(20). 01010000 010200 09 C-CPCS-CLMT-NAME-MID PIC X. 01020000 010300 09 C-CPCS-CLMT-NAME-LAST PIC X(30). 01030000 010400 07 C-CLMT-ADDR. 01040000 010500 09 C-CLMT-STR-NUM PIC X(25). 01050000 010600 09 C-CLMT-CITY PIC X(13). 01060000 010700 09 C-CLMT-STATE PIC XX. 01070000 010800 09 C-CLMT-ZIP-9. 01080000 010900 11 C-CLMT-ZIP PIC X(5). 01090000 011000 11 C-CLMT-ZIP-FILLER PIC X(4). 01100000 011100 07 C-PART-REF-DATA. 01110000 011200 09 C-PART-REF. 01120000 011300 11 C-PART-REF-OFF PIC XXX. 01130000 011400 11 C-PART-REF-OFF-S PIC X. 01140000 011500 09 C-PART-REF-SUPV-ID PIC X(4). 01150000 011600 09 C-PART-REF-CLAIM-REP PIC X(4). 01160000 011700 09 C-PART-REF-IND-ADJ REDEFINES 01170000 011800 C-PART-REF-CLAIM-REP PIC X(4). 01180000 011900 88 C-GEN-ADJ-BUR VALUE '*GAB'. 01190000 012000 88 C-CRAWFORD-CO VALUE '*CRA'. 01200000 012100 88 C-OTH-AGENCY VALUE '*OTH'. 01210000 012200 09 C-PART-REF-OFF-COMMENT PIC X(28). 01220000 012300 07 CLMT-OVERALL-TOTALS. 01230000 012400 09 C-TOTAL-CLAIM-PAID PIC 9(9)V99. 01240000 012500 09 C-TOTAL-CLAIM-PAID-ND REDEFINES 01250000 012600 C-TOTAL-CLAIM-PAID PIC 9(11). 01260000 012700 09 C-TOTAL-EXPENSE-PAID PIC 9(9)V99. 01270000 012800 09 C-TOTAL-EXPENSE-PAID-ND REDEFINES 01280000 012900 C-TOTAL-EXPENSE-PAID PIC 9(11). 01290000 013000 09 C-TOTAL-CLAIM-ESTIMATE PIC 9(9). 01300000 013100 09 C-TOTAL-EXPENSE-ESTIMATE PIC 9(9). 01310000 013200 09 C-TOTAL-CLAIM-EST-RECOV PIC 9(9). 01320000 013300 09 C-TOTAL-EXPENSE-EST-RECOV PIC 9(9). 01330000 013400 09 C-TOTAL-CLAIM-CREDIT PIC 9(9)V99. 01340000 013500 09 C-TOTAL-EXPENSE-CREDIT PIC 9(9)V99. 01350000 013600 09 C-TOTAL-CLAIM-SUBRO PIC 9(9)V99. 01360000 013700 09 C-TOTAL-EXPENSE-SUBRO PIC 9(9)V99. 01370000 013800 09 C-TOTAL-ESTIMATE-AGGR PIC 9(9). 01380000 013900 09 C-TOTAL-PAYMENT-AGGR PIC 9(9)V99. 01390000 014000 07 C-WC-CTRS-AND-TOTALS REDEFINES 01400000 014100 CLMT-OVERALL-TOTALS. 01410000 014200 09 C-WC-NUM-PAYMT-SEGS PIC 9(5). 01420000 014300 09 C-WC-CLAIM-REP-CTR PIC 99. 01430000 014400 09 C-WC-SUP-REP-CTR PIC 99. 01440000 014500 09 C-WC-MED-REP-CTR PIC 99. 01450000 014600 09 C-WC-EXP-REP-CTR PIC 99. 01460000 014700 09 C-WC-TOT-PRIOR-EST PIC 9(4). 01470000 014800 09 C-WC-SUP-PAID-NONWC PIC S9(7)V99. 01480000 014900 09 C-WC-LAST-PAY-KEY PIC 9(6). 01490000 015000 09 C-WC-LAST-CREDIT-KEY PIC 9(4). 01500000 015100 09 C-WC-NUMBER-OF-REPDTAIL PIC 9. 01510000 015200 09 C-WC-CARMA-CTR PIC 9(5). 01520000 015300 09 C-WC-CLM-PAY-CTR PIC 9(5). 01530000 015400 09 C-WC-MED-PAY-CTR PIC 9(5). 01540000 015500 09 C-WC-EXP-PAY-CTR PIC 9(5). 01550000 015600 09 C-WC-SUP-PAY-CTR PIC 9(5). 01560000 015700 09 FILLER PIC X(60). 01570000 015800 07 C-CLMT-CLOSE-DATE. 01580000 015900 09 C-CLMT-CLOSE-DATE-MM PIC XX. 01590000 016000 09 C-CLMT-CLOSE-DATE-DD PIC XX. 01600000 016100 09 C-CLMT-CLOSE-DATE-CC PIC XX. 01610000 016200 09 C-CLMT-CLOSE-DATE-YY PIC XX. 01620000 016300 07 C-NJAIRE-DATA. 01630000 016400 09 C-NJ-CMT-THRSHLD PIC X. 01640000 016500 09 C-NJ-CMT-SUBJ-RANGE PIC X. 01650000 016600 09 C-NJ-SUBJ-CLM-IND PIC X. 01660000 016700 88 NOT-A-SUBJ-CLAIM VALUE '1'. 01670000 016800 88 IS-A-SUBJ-CLAIM VALUE '2'. 01680000 016900 88 OTHER-TORT-THRSHLD VALUE '3'. 01690000 017000 88 IS-REPORT-CLAIM VALUE '4'. 01700000 017100 88 IS-NOT-REPORT-CLAIM VALUE '5'. 01710000 017200 09 C-NJ-CMT-VEB-THRSHLD PIC X. 01720000 017300 09 C-NJ-CMT-VEB-MET PIC X. 01730000 33621 07 C-SUBRO-CONTACT-NA PIC X(1). 01740000 37568 07 C-THRESHOLD PIC X(1). 01740000 1747 07 C-COMPENS-IND PIC X(1). 01740000 APPRNA 07 C-APPR-NA-IND PIC X(1). 01740000 3562 07 C-IA-IND PIC X(1). 01740000 3558 07 C-PROP-CLAIM-OPEN-RSN PIC X(1). CMPIND 07 C-COMMON-CLMT-UNUSED PIC X(1). 01740000 017500 07 CD-DESC-OF-INJ PIC X(17). 01750000 017600 07 CD-INJ-AGE PIC X. 01760000 017700 07 CD-INJ-CMT-CLASS PIC X. 01770000 017800 07 CD-INJ-CMT-CLTL-SOURCE PIC X. 01780000 017900 07 CD-WAG-BEN-PER PIC XXX. 01790000 018000 05 FOR-VOL-STAT. 01800000 018100 07 C-VOL-REF-OFF PIC X(3). 01810000 018200 05 NEW-INOL-ITEMS. 01820000 018300 07 C-CLMT-RES-PHONE PIC X(10). 01830000 018400 07 C-CLMT-BUS-PHONE PIC X(10). 01840000 018500 07 C-CLMT-AGE PIC X(2). 01850000 018600 07 C-CLMT-INSPECT-AT PIC X(25). 01860000 018700 07 C-CLMT-WHEN PIC X(13). 01870000 018800 07 C-CLMT-OCCUPA PIC X(28). 01880000 018900 07 C-CLMT-SS-NUM PIC X(9). 01890000 019000 07 C-CLMT-ADDL-CMT-IND PIC X. 01900000 019100 07 C-CLMT-INJ-CODE. 01910000 019200 09 C-CLMT-INJ-PART PIC X(2). 01920000 019300 09 C-CLMT-INJ-NATR PIC X(2). 01930000 019400 09 C-CLMT-ACC-NATR PIC X(2). 01940000 019500 07 C-CLMT-CAUSA-AGT PIC X(3). 01950000 019600 07 C-CLMT-OTH-DESC1 PIC X(27). 01960000 019700 07 C-CLMT-DIS-DAMG-CODE PIC X(3). 01970000 019800 07 C-CLMT-OTH-DESC2 PIC X(27). 01980000 019900 07 C-CLMT-EXPOS-PERD PIC X(2). 01990000 020000 07 C-CLMT-GAPS-IN-EXPOS OCCURS 5 TIMES. 02000000 020100 09 C-CLMT-GAPS-START-YR. 02010000 020200 11 C-CLMT-GAPS-START-CC PIC X(2). 02020000 020300 11 C-CLMT-GAPS-START-YY PIC X(2). 02030000 020400 09 C-CLMT-GAPS-END-YR. 02040000 020500 11 C-CLMT-GAPS-END-CC PIC X(2). 02050000 020600 11 C-CLMT-GAPS-END-YY PIC X(2). 02060000 020700 05 C-OLD-INJ-EXPOS-ITEMS. 02070000 020800 07 C-OLD-CAUSA-AGT PIC X(3). 02080000 020900 07 C-OLD-DIS-DAMG-CODE PIC X(3). 02090000 021000 07 C-OLD-EXPOS-PERD PIC X(2). 02100000 021100 07 C-OLD-GAPS-IN-EXPOS OCCURS 5 TIMES. 02110000 021200 09 C-OLD-GAPS-START-YR. 02120000 021300 11 C-OLD-GAPS-START-CC PIC X(2). 02130000 021400 11 C-OLD-GAPS-START-YY PIC X(2). 02140000 021500 09 C-OLD-GAPS-END-YR. 02150000 021600 11 C-OLD-GAPS-END-CC PIC X(2). 02160000 021700 11 C-OLD-GAPS-END-YY PIC X(2). 02170000 35972 05 C-CLOSE-ITEMS REDEFINES C-OLD-INJ-EXPOS-ITEMS. 35972 07 C-CLOSE-DEPR-WITHHELD PIC X(1). 35972 07 C-CLOSE-BLD-REPL-COST PIC X(9). 35972 07 C-CLOSE-CONT-REPL-COST PIC X(9). 35972 07 C-CLOSE-CWOUTPAY-REAS PIC X(1). 41433 07 C-CLOSE-FRST-CALL-SETTL PIC X(01). 35972 07 C-CLOSE-REOPEN-IND PIC X(01). 35972 07 FILLER PIC X(26). 35972 05 C-CONTACT-MILESTONE-INDS REDEFINES 35972 C-OLD-INJ-EXPOS-ITEMS. 35972 07 C-REDEF-CLOSE-ITEMS PIC X(22). 35972 07 C-PROP-CONT-CNTCT-MADE PIC X(01). 35972 07 C-PROP-CONT-INSPT-CMPLT PIC X(01). 35972 07 C-PROP-CONT-SCOPE-INVT PIC X(01). 35972 07 C-PROP-CONT-VALID-INVT PIC X(01). 35972 07 C-PRIC-SPEC-VALID-INVT PIC X(01). 35972 07 FILLER PIC X(21). 35972 021800 05 C-CLM-TRANSFER-IND PIC X. 02180000 021900 02190000 022000 05 C-SUIT-INFO. 02200000 022100 07 C-CLMT-REP-BY-ATTY-IND PIC X(1). 02210000 022200 07 C-SUIT-TYP PIC X(3). 02220000 022300 07 C-SUIT-CMT-NUM PIC X(3). 02230000 022400 07 C-CMT-SUIT-STATUS PIC X(6). 02240000 022500 88 SUIT-STATUS-ACTIVE VALUE 'ACTIVE'. 02250000 022600 88 SUIT-STATUS-CLOSED VALUE 'CLOSED'. 02260000 022700 88 SUIT-STATUS-REOPEN VALUE 'REOPEN'. 02270000 022800 07 C-SUIT-AD-DAMNUM PIC 9(9)V99. 02280000 022900 07 C-SUIT-AD-DAMNUM-PICX REDEFINES 02290000 023000 C-SUIT-AD-DAMNUM PIC X(11). 02300000 023100 07 C-PUNITIVE-DAM-CLM-AMT PIC 9(9)V99. 02310000 023200 07 C-PUNITIVE-DAM-CLM-AMT-PICX REDEFINES 02320000 023300 C-PUNITIVE-DAM-CLM-AMT PIC X(11). 02330000 023400 07 C-SUIT-CONVERSION-IND PIC X. 02340000 023500 07 C-COMPLNT-CD PIC X. 02350000 023600 07 C-RSN-FOR-DFNS-CD PIC X. 02360000 023700 07 C-BAD-FAITH-ALLEGAT-IND PIC X. 02370000 023800 07 C-SUIT-CLASS-COD PIC X. 02380000 023900 88 C-SUIT-CLASS-COD-REGLR VALUE 'R'. 02390000 024000 88 C-SUIT-CLASS-COD-CACTN VALUE 'C'. 02400000 024100 88 C-SUIT-CLASS-COD-MULTI VALUE 'M'. 02410000 024200 07 C-TGT-DEFNDNT-IND PIC X. 02420000 024300 07 C-LEG-OFF-CD PIC X(3). 02430000 024400 07 C-RSN-PNL-SEL-CD PIC X. 02440000 024500 07 C-SUIT-HANDL-ID PIC X(4). 02450000 024600 07 C-DATE-SUIT-FILED. 02460000 024700 09 C-DATE-SUIT-MM PIC XX. 02470000 024800 09 C-DATE-SUIT-DD PIC XX. 02480000 024900 09 C-DATE-SUIT-CC PIC XX. 02490000 025000 09 C-DATE-SUIT-YY PIC XX. 02500000 025100 07 C-TIC-SUIT-NTC-DT. 02510000 025200 09 C-TIC-SUIT-NTC-MM PIC XX. 02520000 025300 09 C-TIC-SUIT-NTC-DD PIC XX. 02530000 025400 09 C-TIC-SUIT-NTC-CC PIC XX. 02540000 025500 09 C-TIC-SUIT-NTC-YY PIC XX. 02550000 025600 07 C-SUIT-REFER-ATTY-DT. 02560000 025700 09 C-SUIT-REFER-ATTY-MM PIC XX. 02570000 025800 09 C-SUIT-REFER-ATTY-DD PIC XX. 02580000 025900 09 C-SUIT-REFER-ATTY-CC PIC XX. 02590000 026000 09 C-SUIT-REFER-ATTY-YY PIC XX. 02600000 026100 07 C-RTN-DT. 02610000 026200 09 C-RTN-MM PIC XX. 02620000 026300 09 C-RTN-DD PIC XX. 02630000 026400 09 C-RTN-CC PIC XX. 02640000 026500 09 C-RTN-YY PIC XX. 02650000 026600 07 C-SUIT-ACKNOWLE-DT. 02660000 026700 09 C-SUIT-ACKNOWLE-MM PIC XX. 02670000 026800 09 C-SUIT-ACKNOWLE-DD PIC XX. 02680000 026900 09 C-SUIT-ACKNOWLE-CC PIC XX. 02690000 027000 09 C-SUIT-ACKNOWLE-YY PIC XX. 02700000 027100 07 C-DIARY-DATE. 02710000 027200 09 C-DIARY-MM PIC XX. 02720000 027300 09 C-DIARY-DD PIC XX. 02730000 027400 09 C-DIARY-CC PIC XX. 02740000 027500 09 C-DIARY-YY PIC XX. 02750000 027600 07 C-SUIT-COMM-DT. 02760000 027700 09 C-SUIT-COMM-MM PIC XX. 02770000 027800 09 C-SUIT-COMM-DD PIC XX. 02780000 027900 09 C-SUIT-COMM-CC PIC XX. 02790000 028000 09 C-SUIT-COMM-YY PIC XX. 02800000 028100 07 C-SUIT-DFCLT-LVL-CD PIC X(1). 02810000 028200 07 C-SUIT-RECOMMEN-ACT-CD PIC X(1). 02820000 028300 07 C-LITG-PLN-DT. 02830000 028400 09 C-LITG-PLN-MM PIC XX. 02840000 028500 09 C-LITG-PLN-DD PIC XX. 02850000 028600 09 C-LITG-PLN-CC PIC XX. 02860000 028700 09 C-LITG-PLN-YY PIC XX. 02870000 028800 07 C-TRIAL-COMM-DT. 02880000 028900 09 C-TRIAL-COMM-MM PIC XX. 02890000 029000 09 C-TRIAL-COMM-DD PIC XX. 02900000 029100 09 C-TRIAL-COMM-CC PIC XX. 02910000 029200 09 C-TRIAL-COMM-YY PIC XX. 02920000 029300 07 C-COURT-CD PIC X(1). 02930000 029400 07 C-LIT-TRIAL-VENUE-CD PIC X(5). 02940000 029500 07 C-TRIAL-COMMENCE-DT. 02950000 029600 09 C-TRIAL-COMMENCE-MM PIC XX. 02960000 029700 09 C-TRIAL-COMMENCE-DD PIC XX. 02970000 029800 09 C-TRIAL-COMMENCE-CC PIC XX. 02980000 029900 09 C-TRIAL-COMMENCE-YY PIC XX. 02990000 030000 07 C-JDG-NM PIC X(51). 03000000 030100 07 C-SUIT-CSE-NM PIC X(51). 03010000 030200 07 C-DOCKET-NBR PIC X(15). 03020000 030300 07 C-SUIT-PANEL-CNSL-TAX-NUM PIC X(09). 03030000 030400 07 C-SUIT-HIERARCHIAL-SYMBOL PIC X(03). 03040000 030500 07 C-LIT-PATH-IND PIC X(01). 03050000 030600 07 C-SUIT-CSE-ACTION-CD PIC X(01). 03060000 030700 07 C-SUIT-APPL-FILED-IND PIC X(01). 03070000 030800 07 C-SUIT-CLOSE-REOPEN-IND PIC X(01). 03080000 030900 07 C-LITG-OBJ-CD PIC X(1). 03090000 031000 07 C-LITG-EXPOS-CD PIC X(1). 03100000 031100 07 C-LITG-LIAB-CD PIC X(1). 03110000 031200 03120000 031300 03130000 031400 05 C-AGENT-STATUS PIC X. 03140000 031500 88 NOT-AN-AGENT-CLMT VALUE SPACE. 03150000 031600 88 AN-AGENT-CLMT VALUE '1'. 03160000 031700 05 C-TOTAL-PARTIAL-LOSS-AREA. 03170000 031800 07 C-TOT-PART-IND PIC X(01). 03180000 031900 88 C-TOTAL-LOSS-IND VALUE 'Y'. 03190000 032000 88 C-PARTIAL-LOSS-IND VALUE 'N'. 03200000 032100 07 C-FIRST-CLAIM-PYMT PIC X(01). 03210000 032200 88 C-FIRST-CLAIM-PYMT-Y VALUE 'Y'. 03220000 032300 88 C-FIRST-CLAIM-PYMT-N VALUE 'N'. 03230000 032400 88 C-NO-FIRST-CLAIM-PYMT VALUE ' '. 03240000 032500 03250000 032600 03260000 032700 05 C-SUIT-INFO-PART-2. 03270000 032800 07 C-LIT-PRE-TRIAL-LEG-EXPN-AMT PIC 9(9). 03280000 032900 07 C-LIT-TOT-TRIAL-LEG-EXPN-AMT PIC 9(9). 03290000 033000 07 C-LIT-LST-PRE-TRIAL-DMD-AMT PIC 9(9)V99. 03300000 033100 07 C-LST-PRE-TRIAL-DMD-AMT-PICX REDEFINES 03310000 033200 C-LIT-LST-PRE-TRIAL-DMD-AMT PIC X(11). 03320000 033300 07 C-LIT-LST-PRE-TRIAL-OFR-AMT PIC 9(9)V99. 03330000 033400 07 C-LST-PRE-TRIAL-OFR-AMT-PICX REDEFINES 03340000 033500 C-LIT-LST-PRE-TRIAL-OFR-AMT PIC X(11). 03350000 033600 07 C-SUIT-DISP-COD PIC X. 03360000 033700 07 C-LIT-CLS-WO-PAY-CD PIC X(1). 03370000 033800 07 C-PUNITIVE-DAM-AWARDED-AMT PIC 9(9)V99. 03380000 033900 07 C-PUN-DAM-AWARDED-AMT-PICX REDEFINES 03390000 034000 C-PUNITIVE-DAM-AWARDED-AMT PIC X(11). 03400000 034100 07 C-PST-TRIAL-MOTION-CD. 03410000 034200 09 C-PST-TRIAL-MOTION-1 PIC X(1). 03420000 034300 09 C-PST-TRIAL-MOTION-2 PIC X(1). 03430000 034400 09 C-PST-TRIAL-MOTION-3 PIC X(1). 03440000 034500 09 C-PST-TRIAL-MOTION-4 PIC X(1). 03450000 034600 07 C-REMITR-AMT PIC 9(9)V99. 03460000 034700 07 C-REMITR-AMT-PICX REDEFINES 03470000 034800 C-REMITR-AMT PIC X(11). 03480000 034900 07 C-ADDITUR-AMT PIC 9(9)V99. 03490000 035000 07 C-ADDITUR-AMT-PICX REDEFINES 03500000 035100 C-ADDITUR-AMT PIC X(11). 03510000 035200 07 C-LIT-TRIAL-COURT-JDGMT-AMT PIC 9(9)V99. 03520000 035300 07 C-LIT-TRIAL-COURT-JDGMT-PICX REDEFINES 03530000 035400 C-LIT-TRIAL-COURT-JDGMT-AMT PIC X(11). 03540000 035500 07 C-PST-TRIAL-MOTION-RSLT-CD PIC X(1). 03550000 035600 05 C-FIN-ACT-CLSD-CLMT-DATE. 03560000 035700 07 C-FACC-DATE-MM PIC XX. 03570000 035800 07 C-FACC-DATE-DD PIC XX. 03580000 035900 07 C-FACC-DATE-CC PIC XX. 03590000 036000 07 C-FACC-DATE-YY PIC XX. 03600000 036100 05 C-REOPEN-CLMT-IND PIC X. 03610000 036200 88 C-CLMT-REOPENED VALUE 'Y'. 03620000 036300 88 C-CLMT-NOT-REOPENED VALUE ' '. 03630000 036400 05 C-CLMT-SUB-FILE-HANDLER PIC X(04). 03640000 036500 05 C-CLMT-APPRAISER-ID PIC X(04). 03650000 036600 05 C-CLMT-APPRAISAL-AFO PIC X(03). 03660000 036700 05 C-ORIG-CLOSING-DATE. 03670000 036800 07 C-ORIG-CLOSING-MM PIC XX. 03680000 036900 07 C-ORIG-CLOSING-DD PIC XX. 03690000 037000 07 C-ORIG-CLOSING-CC PIC XX. 03700000 037100 07 C-ORIG-CLOSING-YY PIC XX. 03710000 037200 05 C-CONTACT-DATE. 03720000 037300 07 C-CONTACT-DATE-MM PIC 9(02). 03730000 037400 07 C-CONTACT-DATE-DD PIC 9(02). 03740000 037500 07 C-CONTACT-DATE-CC PIC 9(02). 03750000 037600 07 C-CONTACT-DATE-YY PIC 9(02). 03760000 037700 05 C-CONTACT-DATE-X REDEFINES C-CONTACT-DATE 03770001 037800 PIC X(08). 03780000 037900 05 C-CLMT-AUDATEX-INFORMATION PIC X(600). 03790000 038000 03800000 038100 05 C-CLMT-AUDATEX-DATA-AREA REDEFINES 03810000 038200 C-CLMT-AUDATEX-INFORMATION. 03820000 038300 03830000 038400 07 C-CLMT-VEH-DATA. 03840000 038500******************************************************************03850000 038600* THE VEHICLE INFORMATION FOR THE INSURED WILL BE STORED ON THE *03860000 038700* ROOT SEGMENT. THE VEHICLE INFORMATION FOR CLAIMANTS THAT ARE *03870000 038800* NOT THE INSURED WILL BE STORED HERE. THE MILEAGE, ENG-CODE, *03880000 038900* COLOR, DESCRIPTION, TOT-LOSS-IND, DAMAGE, AND THEFT INFO FOR *03890000 039000* ALL CLAIMTANTS INCLUDING THE INSURED WILL BE STORED HERE *03900000 039100* THERE IS NO PLACE FOR THEM ON THE ROOT SEGMENT. (01/15/90) *03910000 039200******************************************************************03920000 039300 09 C-CLMT-VEH-YR. 03930000 039400 11 C-CLMT-VEH-CC PIC X(02). 03940000 039500 11 C-CLMT-VEH-YY PIC X(02). 03950000 039600 09 C-CLMT-VEH-MAKE PIC X(09). 03960000 039700 09 C-CLMT-VEH-MODEL PIC X(13). 03970000 039800 09 C-CLMT-VEH-ID-NUM PIC X(17). 03980000 039900 09 C-CLMT-VEH-OWN-TYPE PIC X(01). 03990000 040000 09 C-CLMT-TIC-CAR-NUM PIC X(05). 04000000 040100 09 C-CLMT-VEH-MILEAGE PIC X(06). 04010000 040200 09 C-CLMT-VEH-DESCRIPTION PIC X(34). 04020000 040300 09 C-CLMT-VEH-ENG-CODE PIC X(01). 04030000 040400 09 C-CLMT-VEH-AUD-CODE PIC X(06). 04040000 040500 09 C-CLMT-VEH-COLOR PIC X(14). 04050000 040600 09 C-CLMT-VEH-PLATE-STATE PIC X(12). 04060000 040700 09 C-CLMT-SUPL-OVERFLOW PIC 9(01). 04070000 040800 09 C-CLMT-VEH-HVY-EQP-IND PIC X(01). 04080000 040900 09 C-CLMT-VEH-DAMAGE PIC X(19). 04090000 041000 09 C-CLMT-VEH-UNRECOV-THEFT PIC X(01). 04100000 041100 09 C-CLMT-VEH-THEFT-CITY PIC X(25). 04110000 041200 09 C-CLMT-VEH-THEFT-ST PIC X(02). 04120000 041300 09 C-CLMT-VEH-TOT-LOSS-IND PIC X(01). 04130000 041400 09 C-CLMT-MAN-VEH-EST-IND PIC X(01). 04140000 041500 09 C-CLMT-APPR-INDPT-FIRM PIC X(25). 04150000 041600 04160000 041700 09 C-CLMT-ADTX-NBR-OF-CORRECTS PIC 9(02) COMP-3.04170000 041800 09 C-CLMT-ADTX-NBR-OF-CORRECTSX REDEFINES 04180000 041900 C-CLMT-ADTX-NBR-OF-CORRECTS PIC X(02). 04190000 042000 09 C-CLMT-ADTX-DT-ORIG-EST. 04200000 042100 11 C-CLMT-ADTX-ORIG-EST-MM PIC X(02). 04210000 042200 11 C-CLMT-ADTX-ORIG-EST-DD PIC X(02). 04220000 042300 11 C-CLMT-ADTX-ORIG-EST-CC PIC X(02). 04230000 042400 11 C-CLMT-ADTX-ORIG-EST-YY PIC X(02). 04240000 042500 09 C-CLMT-ADTX-DT-ORIG-REQ. 04250000 042600 11 C-CLMT-ADTX-ORIG-REQ-MM PIC X(02). 04260000 042700 11 C-CLMT-ADTX-ORIG-REQ-DD PIC X(02). 04270000 042800 11 C-CLMT-ADTX-ORIG-REQ-CC PIC X(02). 04280000 042900 11 C-CLMT-ADTX-ORIG-REQ-YY PIC X(02). 04290000 043000 09 C-CLMT-ADTX-DT-ORIG-ASGN. 04300000 043100 11 C-CLMT-ADTX-ORIG-ASGN-MM 04310000 043200 PIC X(02). 04320000 043300 11 C-CLMT-ADTX-ORIG-ASGN-DD 04330000 043400 PIC X(02). 04340000 043500 11 C-CLMT-ADTX-ORIG-ASGN-CC 04350000 043600 PIC X(02). 04360000 043700 11 C-CLMT-ADTX-ORIG-ASGN-YY 04370000 043800 PIC X(02). 04380000 043900 09 C-CLMT-ADTX-DT-ORIG-CANC. 04390000 044000 11 C-CLMT-ADTX-DT-ORIG-CANC-MM 04400000 044100 PIC X(02). 04410000 044200 11 C-CLMT-ADTX-DT-ORIG-CANC-DD 04420000 044300 PIC X(02). 04430000 044400 11 C-CLMT-ADTX-DT-ORIG-CANC-CC 04440000 044500 PIC X(02). 04450000 044600 11 C-CLMT-ADTX-DT-ORIG-CANC-YY 04460000 044700 PIC X(02). 04470000 044800 09 C-CLMT-NUM-OF-DAMEST PIC 9(02). 04480000 044900 09 C-CLMT-NUM-OF-DAMESTX REDEFINES 04490000 045000 C-CLMT-NUM-OF-DAMEST PIC X(02). 04500000 045100 09 C-CLMT-ADTX-LOSS-TYPE PIC X(04). 04510000 045200 04520000 045300 07 C-CLMT-SALVAGE-DATA. 04530000 045400 04540000 T5SALV****** INCREASED FIELDS FOR CLAIM HANDLING CHANGES T5SALV 09 C-CLMT-SAL-ACT-CASH-VAL 04550000 T5SALV PIC S9(7)V9(2) COMP-3. T5SALV 09 C-CLMT-SAL-EST-SALV-VAL 04580000 T5SALV PIC S9(7)V9(2) COMP-3. T5SALV* 09 FILLER PIC X(18). 414790 09 C-CLMT-SAL-NEWCR-APP-IND PIC X(01). 414790 09 C-CLMT-SAL-LLGAP-CD PIC X(01). 414790 88 C-CLMT-SAL-LOAN-CD VALUE 'L'. 414790 88 C-CLMT-SAL-LEASE-CD VALUE 'S'. 414790 88 C-CLMT-SAL-NO-LLGAP-CD VALUE 'N'. 414790 09 FILLER PIC X(16). 047600 09 C-CLMT-SAL-DT-TO-SALV-UNIT. 04760000 047700 11 C-CLMT-SAL-TO-SALV-UNIT-MM 04770000 047800 PIC X(02). 04780000 047900 11 C-CLMT-SAL-TO-SALV-UNIT-DD 04790000 048000 PIC X(02). 04800000 048100 11 C-CLMT-SAL-TO-SALV-UNIT-CC 04810000 048200 PIC X(02). 04820000 048300 11 C-CLMT-SAL-TO-SALV-UNIT-YY 04830000 048400 PIC X(02). 04840000 048500 09 C-CLMT-SAL-DT-UNIT-ACCEPT. 04850000 048600 11 C-CLMT-SAL-UNIT-ACC-MM 04860000 048700 PIC X(02). 04870000 048800 11 C-CLMT-SAL-UNIT-ACC-DD 04880000 048900 PIC X(02). 04890000 049000 11 C-CLMT-SAL-UNIT-ACC-CC 04900000 049100 PIC X(02). 04910000 049200 11 C-CLMT-SAL-UNIT-ACC-YY 04920000 049300 PIC X(02). 04930000 049400 09 C-CLMT-SAL-THEFT-RECOV-DT. 04940000 049500 11 C-CLMT-SAL-THEFT-RECOV-MM 04950000 049600 PIC X(02). 04960000 049700 11 C-CLMT-SAL-THEFT-RECOV-DD 04970000 049800 PIC X(02). 04980000 049900 11 C-CLMT-SAL-THEFT-RECOV-CC 04990000 050000 PIC X(02). 05000000 050100 11 C-CLMT-SAL-THEFT-RECOV-YY 05010000 050200 PIC X(02). 05020000 050300 09 C-CLMT-SAL-THEFT-DAMAGE PIC X(01). 05030000 050400 09 C-CLMT-SAL-DT-POOL-CALLED. 05040000 050500 11 C-CLMT-SAL-POOL-CALL-MM PIC X(02). 05050000 050600 11 C-CLMT-SAL-POOL-CALL-DD PIC X(02). 05060000 050700 11 C-CLMT-SAL-POOL-CALL-CC PIC X(02). 05070000 050800 11 C-CLMT-SAL-POOL-CALL-YY PIC X(02). 05080000 050900 09 C-CLMT-SAL-SALV-POOL-CODE PIC X(02). 05090000 051000 09 C-CLMT-SAL-POOL-STOCK-NUM PIC X(10). 05100000 051100 09 C-CLMT-SAL-DT-VEH-AT-POOL. 05110000 051200 11 C-CLMT-SAL-VEH-AT-POOL-MM 05120000 051300 PIC X(02). 05130000 051400 11 C-CLMT-SAL-VEH-AT-POOL-DD 05140000 051500 PIC X(02). 05150000 051600 11 C-CLMT-SAL-VEH-AT-POOL-CC 05160000 051700 PIC X(02). 05170000 051800 11 C-CLMT-SAL-VEH-AT-POOL-YY 05180000 051900 PIC X(02). 05190000 052000 09 C-CLMT-SAL-DT-BEG-STORAGE. 05200000 052100 11 C-CLMT-SAL-BEG-STOR-MM PIC X(02). 05210000 052200 11 C-CLMT-SAL-BEG-STOR-DD PIC X(02). 05220000 052300 11 C-CLMT-SAL-BEG-STOR-CC PIC X(02). 05230000 052400 11 C-CLMT-SAL-BEG-STOR-YY PIC X(02). 05240000 052500 09 C-CLMT-SAL-DT-TITLE-AT-POOL. 05250000 052600 11 C-CLMT-SAL-TITLE-POOL-MM 05260000 052700 PIC X(02). 05270000 052800 11 C-CLMT-SAL-TITLE-POOL-DD 05280000 052900 PIC X(02). 05290000 053000 11 C-CLMT-SAL-TITLE-POOL-CC 05300000 053100 PIC X(02). 05310000 053200 11 C-CLMT-SAL-TITLE-POOL-YY 05320000 053300 PIC X(02). 05330000 053400 09 C-CLMT-SAL-OWNERSHIP-TYPE PIC X(01). 05340000 053500 88 C-CLMT-SAL-OWNERSHIP-BOS VALUE 'B'. 05350000 053600 88 C-CLMT-SAL-OWNERSHIP-TITLE VALUE 'T'. 05360000 053700 09 C-CLMT-SAL-DT-VEH-SOLD. 05370000 053800 11 C-CLMT-SAL-VEH-SOLD-MM PIC X(02). 05380000 053900 11 C-CLMT-SAL-VEH-SOLD-DD PIC X(02). 05390000 054000 11 C-CLMT-SAL-VEH-SOLD-CC PIC X(02). 05400000 054100 11 C-CLMT-SAL-VEH-SOLD-YY PIC X(02). 05410000 054300 09 C-CLMT-SAL-BUYER-NAME PIC X(30). 05430000 ISO. 09 C-CLMT-SAL-P-BUYER REDEFINES 06680000 ISO. C-CLMT-SAL-BUYER-NAME. 06680000 ISO. 11 C-ISO-SALV-LASTNAME PIC X(17). ISO. 11 C-ISO-SALV-FIRSTNAME PIC X(13). 054500 09 C-CLMT-SAL-DT-LEFT-W-OWNER. 05450000 054600 11 C-CLMT-SAL-LEFT-OWN-MM PIC X(02). 05460000 054700 11 C-CLMT-SAL-LEFT-OWN-DD PIC X(02). 05470000 054800 11 C-CLMT-SAL-LEFT-OWN-CC PIC X(02). 05480000 054900 11 C-CLMT-SAL-LEFT-OWN-YY PIC X(02). 05490000 055100 09 C-CLMT-SAL-EST-AVOID-EXP PIC 9(06). 05510000 T5SALV************ NEW FIELDS FOR CLAIM HANDLING T5SALV 09 C-CLMT-SAL-VEND-CNTC-IND PIC X(01). T5SALV 09 C-CLMT-SAL-MIN-BID-IND PIC X(01). T5SALV 09 C-CLMT-OTHR-TIER-TAX-DESC PIC X(32). T5SALV 09 C-CLMT-VEH-ON-EVD-HOLD-IND PIC X(01). ************ NEW FIELDS FOR CHOICEPOINT PROJECT 09 C-DRVR-GENDER-CD PIC X(01). 09 C-CLMT-INSD-VEH-DISP-CD PIC X(01). 09 FILLER PIC X(11). 408956 07 C-CLMT-VEH-HOIST-ROAD-IND PIC X(01). 408956 07 C-CLMT-JUMP-DEAD-BTY-IND PIC X(01). 408956 07 C-CLMT-CHNG-FLAT-TIRE-IND PIC X(01). 408956 07 C-CLMT-KEY-LOCK-IND PIC X(01). 408956 07 C-CLMT-FLD-SPLY-DLVRY-IND PIC X(01). 408956 07 C-CLMT-DSBL-VEH-TOW-SRVC-CD PIC X(01). 408956 88 C-CLMT-TOW VALUE 'T'. 408956 88 C-CLMT-DSBLMENT VALUE 'D'. 408956 88 C-CLMT-TD-BOTH VALUE 'B'. 408956 07 C-CLMT-AST-BILL-RCVD PIC X(01). 414790 07 C-CLMT-CSTM-EQP-DMG-IND PIC X(01). 414790 07 C-CLMT-CSTM-EQP-LMT-XCD-IND PIC X(01). 414790 07 FILLER PIC X(21). 055300 05530000 07 C-CLMT-VEH-STORG-IND PIC X(01). 07 C-CLMT-VEH-DRP-IND PIC X(01). 07 C-CLMT-VEH-TYPE-CLASS PIC X(01). 07 C-CLMT-VEH-MOVED PIC X(01). 07 C-CLMT-VEH-ETOW-IND PIC X(02). SALV 07 C-CLMT-SAL-IND PIC X(2). SALV 07 C-CLMT-SAL-TYPE-OF-TITLE PIC X(1). SALV 07 C-CLMT-SAL-TITLE-CERT-NUM PIC X(25). T5SALV******* FIELD SIZE CHANGED FOR CLAIM HANDLING CHANGES T5SALV 07 C-CLMT-SAL-VEH-TAX-PERCENT T5SALV PIC S9(2)V9(5) COMP-3. SALV 07 C-CLMT-VEH-DED-AMT PIC X(4). SALV 07 C-CLMT-SAL-PERCENT-LIABILITY PIC X(3). SALV 07 C-CLMT-SAL-VEH-SETTLE-TYPE PIC X(1). SALV 07 C-CLMT-LIEN-POL-IND PIC X(1). SALV 07 C-CLMT-LIEN-CONFIRM-IND PIC X(1). SALV 07 C-CLMT-SAL-EST-BID-NUM PIC X(25). SALV 07 C-CLMT-SAL-SUPV-APPR-IND PIC X(1). SALV 07 C-CLMT-SAL-NICB-IND PIC X(1). SALV 07 C-CLMT-SAL-STATE-REG-IND PIC X(1). SALV 07 C-CLMT-SAL-KEYS-IND PIC X(1). SALV 07 C-CLMT-VEH-RR-LIMIT1 PIC X(5). SALV 07 C-CLMT-VEH-RR-LIMIT2 PIC X(5). 055400 07 C-CLMT-VEH-MAKE-DESC PIC X(25). 05540000 SALV2 07 C-CLMT-TOT-LOSS-EVAL-NUM PIC X(10). 05540000 CARS 07 C-CLMT-ACT-REPAIR-COST PIC 9(7)V99. 05540000 4291 07 C-CLMT-SAL-BID-TO-BE-APPROVED PIC X(01). 05540000 195188 07 C-CLMT-SAL-CNFM-TOT-LS-CD PIC X(01). 05540000 195188 07 C-CLMT-SAL-ADDOWNR-PRTCP-IND PIC X(01). 05540000 055500 05550000 055600 05 C-SUIT-PART-3. 05560000 055700 07 C-LIT-APPL-DT. 05570000 055800 09 C-LIT-APPL-MM PIC XX. 05580000 055900 09 C-LIT-APPL-DD PIC XX. 05590000 056000 09 C-LIT-APPL-CC PIC XX. 05600000 056100 09 C-LIT-APPL-YY PIC XX. 05610000 056200 07 C-LIT-TRIAL-COMM-APPL-DECN-DT. 05620000 056300 09 C-LIT-TRIAL-COMM-APPL-DECN-MM PIC XX. 05630000 056400 09 C-LIT-TRIAL-COMM-APPL-DECN-DD PIC XX. 05640000 056500 09 C-LIT-TRIAL-COMM-APPL-DECN-CC PIC XX. 05650000 056600 09 C-LIT-TRIAL-COMM-APPL-DECN-YY PIC XX. 05660000 056700 07 C-LIT-APPL-LEG-EXPN-AMT PIC 9(9). 05670000 056800 07 C-LIT-APPL-COURT-CD PIC X(1). 05680000 056900 07 C-LIT-APPL-VENUE-CD PIC X(5). 05690000 057000 07 C-LIT-APPL-JDG-NM PIC X(51). 05700000 057100 07 C-LIT-APPL-DOCKET-NBR PIC X(15). 05710000 057200 07 C-LIT-APPL-OTCOME-CD PIC X(1). 05720000 057300 07 C-SUIT-STATUS-DATE. 05730000 057400 09 C-STATUS-DATE-MM PIC XX. 05740000 057500 09 C-STATUS-DATE-DD PIC XX. 05750000 057600 09 C-STATUS-DATE-CC PIC XX. 05760000 057700 09 C-STATUS-DATE-YY PIC XX. 05770000 057800 07 C-SUIT-EST-OFFICE PIC XXX. 05780000 057900 07 C-SUIT-TOT-EXP-ESTIMATE PIC 9(9). 05790000 058000 07 C-SUIT-TOT-CLM-ESTIMATE PIC 9(9). 05800000 058100 07 C-SUIT-OLD-OFF-REGN-AFFL PIC X(2). 05810000 058200 07 C-SUIT-OLD-AFO-CODE PIC X(3). 05820000 058300 07 C-SUIT-OLD-MARKET-IND PIC X(2). 05830000 058400 07 C-SUIT-OLD-SPEC-CAT-COD PIC X(3). 05840000 058500 07 C-SUIT-OLD-SUIT-TYP PIC X(3). 05850000 058600 07 C-SUIT-EST-OFFICE-TYP PIC X. 05860000 058700 07 C-APPL-ADDITUR-AMT PIC 9(09)V99. 05870000 058800 07 C-APPL-ADDITUR-AMT-PICX REDEFINES 05880000 058900 C-APPL-ADDITUR-AMT PIC X(11). 05890000 059000 07 C-APPL-REMITR-AMT PIC 9(09)V99. 05900000 059100 07 C-APPL-REMITR-AMT-PICX REDEFINES 05910000 059200 C-APPL-REMITR-AMT PIC X(11). 05920000 059300 07 C-APPL-SETL-DFN-AMT PIC 9(09)V99. 05930000 059400 07 C-APPL-SETL-DFN-AMT-PICX REDEFINES 05940000 059500 C-APPL-SETL-DFN-AMT PIC X(11). 05950000 059600 07 C-APPL-SETL-PLF-AMT PIC 9(09)V99. 05960000 059700 07 C-APPL-SETL-PLF-AMT-PICX REDEFINES 05970000 059800 C-APPL-SETL-PLF-AMT PIC X(11). 05980000 059900 07 C-CLS-SUIT-ON-APPL-IND PIC X(01). 05990000 060000 07 C-LITG-LEG-ISS-IND PIC X(1). 06000000 060100 07 C-LITG-MULT-PTY-IND PIC X(1). 06010000 060200 07 C-LITG-SPCL-BIL-CD PIC X(1). 06020000 060300 07 C-SUIT-DEL-MIS-IND PIC X(1). 06030000 060400 07 C-SUIT-BILLING-IND PIC X(1). 06040000 060500 06050000 060600 05 C-NEGOTIATION-HISTORY. 06060000 060700 07 C-NEG-HIST-OFFERS OCCURS 6 TIMES. 06070000 060800 09 C-DOL-OFR-AMT PIC 9(9). 06080000 060900 09 C-OFR-DT. 06090000 061000 11 C-OFR-MM PIC XX. 06100000 061100 11 C-OFR-DD PIC XX. 06110000 061200 11 C-OFR-YR. 06120000 061300 13 C-OFR-CC PIC XX. 06130000 061400 13 C-OFR-YY PIC XX. 06140000 061500 07 C-NEG-HIST-DEMANDS OCCURS 6 TIMES. 06150000 061600 09 C-DOL-DMD-AMT PIC 9(9). 06160000 061700 09 C-DMD-DT. 06170000 061800 11 C-DMD-MM PIC XX. 06180000 061900 11 C-DMD-DD PIC XX. 06190000 062000 11 C-DMD-YR. 06200000 062100 13 C-DMD-CC PIC XX. 06210000 062200 13 C-DMD-YY PIC XX. 06220000 062300 07 C-NEG-HIST-UNUSED PIC X(26). 06230000 SLG1 07 C-SLG-MISCELLANEOUS REDEFINES C-NEG-HIST-UNUSED.06680000 SLG1 09 C-SLG-MISC PIC X(20). 267138 09 C-SLG-DECEASED-IND PIC X(01). 267138 09 FILLER PIC X(05). 062400 06240000 062500 05 C-SIU-DATA. 06250000 062600 07 C-REF-TO-SIU-DT. 06260000 062700 09 C-REF-TO-SIU-MM PIC XX. 06270000 062800 09 C-REF-TO-SIU-DD PIC XX. 06280000 062900 09 C-REF-TO-SIU-CC PIC XX. 06290000 063000 09 C-REF-TO-SIU-YY PIC XX. 06300000 063100 07 C-ACPT-BY-SIU-DT. 06310000 063200 09 C-ACPT-BY-SIU-MM PIC XX. 06320000 063300 09 C-ACPT-BY-SIU-DD PIC XX. 06330000 063400 09 C-ACPT-BY-SIU-CC PIC XX. 06340000 063500 09 C-ACPT-BY-SIU-YY PIC XX. 06350000 063600 07 C-ASGN-IN-SIU-DT. 06360000 063700 09 C-ASGN-IN-SIU-MM PIC XX. 06370000 063800 09 C-ASGN-IN-SIU-DD PIC XX. 06380000 063900 09 C-ASGN-IN-SIU-CC PIC XX. 06390000 064000 09 C-ASGN-IN-SIU-YY PIC XX. 06400000 064100 07 C-SIU-HNDL-ID PIC X(4). 06410000 064200 07 C-CSE-CLOS-BY-SIU-DT. 06420000 064300 09 C-CSE-CLOS-BY-SIU-MM PIC XX. 06430000 064400 09 C-CSE-CLOS-BY-SIU-DD PIC XX. 06440000 064500 09 C-CSE-CLOS-BY-SIU-CC PIC XX. 06450000 064600 09 C-CSE-CLOS-BY-SIU-YY PIC XX. 06460000 064700 07 C-RECOV-BY-SIU-AMT PIC 9(9). 06470000 064800 07 C-RECOV-BY-SIU-AMTX REDEFINES 06480000 064900 C-RECOV-BY-SIU-AMT PIC X(9). 06490000 065000 07 C-SIU-CONCLUS-CD PIC X(1). 06500000 065100 07 C-WO-PAY-DUE-TO-SIU-IND PIC X(1). 06510000 065200 07 C-ROPEN-BY-SIU-DT. 06520000 065300 09 C-ROPEN-BY-SIU-MM PIC XX. 06530000 065400 09 C-ROPEN-BY-SIU-DD PIC XX. 06540000 065500 09 C-ROPEN-BY-SIU-CC PIC XX. 06550000 065600 09 C-ROPEN-BY-SIU-YY PIC XX. 06560000 065700 07 C-RECLOSED-BY-SIU-DT. 06570000 065800 09 C-RECLOSED-BY-SIU-MM PIC XX. 06580000 065900 09 C-RECLOSED-BY-SIU-DD PIC XX. 06590000 066000 09 C-RECLOSED-BY-SIU-CC PIC XX. 06600000 066100 09 C-RECLOSED-BY-SIU-YY PIC XX. 06610000 066200 07 C-FNL-DOL-RECOV-BY-SIU-AMT PIC 9(9). 06620000 066300 07 C-FNL-DOL-RECOV-BY-SIU-AMTX REDEFINES 06630000 066400 C-FNL-DOL-RECOV-BY-SIU-AMT PIC X(9). 06640000 066500 07 C-FNL-SIU-CONCLUS-CD PIC X(1). 06650000 066600 07 C-CLOS-WO-PAY-FNL-SIU-IND PIC X(1). 06660000 066700 07 C-SIU-UNUSED PIC X(38). 06670000 VVG1 07 C-ISO-SALVER-DATA REDEFINES C-SIU-UNUSED. 06680000 ISO. 09 C-ISO-THEFT-RECOV-AGENCY PIC X(35). ISO. 09 C-ISO-THEFT-RECOV-STATE PIC X(02). ISO. 09 C-ISO-THEFT-RECOV-COND PIC X(01). 066900 05 C-CLAIMANT-DATES-AND-MISC-INFO. 06690000 067000 07 C-CLMT-FST-DIR-CNTC-DT. 06700000 067100 09 C-CLMT-FST-DIR-CNTC-MM PIC XX. 06710000 067200 09 C-CLMT-FST-DIR-CNTC-DD PIC XX. 06720000 067300 09 C-CLMT-FST-DIR-CNTC-CC PIC XX. 06730000 067400 09 C-CLMT-FST-DIR-CNTC-YY PIC XX. 06740000 067500 07 C-CLMT-INIT-FACE-MEET-DT. 06750000 067600 09 C-CLMT-INIT-FACE-MEET-MM PIC XX. 06760000 067700 09 C-CLMT-INIT-FACE-MEET-DD PIC XX. 06770000 067800 09 C-CLMT-INIT-FACE-MEET-CC PIC XX. 06780000 067900 09 C-CLMT-INIT-FACE-MEET-YY PIC XX. 06790000 068000 07 C-CLMT-STMT-TK-DT. 06800000 068100 09 C-CLMT-STMT-TK-MM PIC XX. 06810000 068200 09 C-CLMT-STMT-TK-DD PIC XX. 06820000 068300 09 C-CLMT-STMT-TK-CC PIC XX. 06830000 068400 09 C-CLMT-STMT-TK-YY PIC XX. 06840000 068500 07 C-CLMT-DAM-INVSTGT-BEGUN-DT. 06850000 068600 09 C-CLMT-DAM-INVSTGT-BEGUN-MM PIC XX. 06860000 068700 09 C-CLMT-DAM-INVSTGT-BEGUN-DD PIC XX. 06870000 068800 09 C-CLMT-DAM-INVSTGT-BEGUN-CC PIC XX. 06880000 068900 09 C-CLMT-DAM-INVSTGT-BEGUN-YY PIC XX. 06890000 069000 07 C-CLMT-DAM-INVSTGT-CMPL-DT. 06900000 069100 09 C-CLMT-DAM-INVSTGT-CMPL-MM PIC XX. 06910000 069200 09 C-CLMT-DAM-INVSTGT-CMPL-DD PIC XX. 06920000 069300 09 C-CLMT-DAM-INVSTGT-CMPL-CC PIC XX. 06930000 069400 09 C-CLMT-DAM-INVSTGT-CMPL-YY PIC XX. 06940000 069500 07 C-CLM-AGNST-TIC-BY-ANTHR-IND PIC X(1). 06950000 069600 07 C-NATR-OF-INJ-IN-30-DAY-IND PIC X(1). 06960000 069700 07 C-CLMT-DAM-INSPT-BY-TIC-DT. 06970000 069800 09 C-CLMT-DAM-INSPT-BY-TIC-MM PIC XX. 06980000 069900 09 C-CLMT-DAM-INSPT-BY-TIC-DD PIC XX. 06990000 070000 09 C-CLMT-DAM-INSPT-BY-TIC-CC PIC XX. 07000000 070100 09 C-CLMT-DAM-INSPT-BY-TIC-YY PIC XX. 07010000 070200 07 C-CLMT-APPR-ORDR-DT. 07020000 070300 09 C-CLMT-APPR-ORDR-MM PIC XX. 07030000 070400 09 C-CLMT-APPR-ORDR-DD PIC XX. 07040000 070500 09 C-CLMT-APPR-ORDR-CC PIC XX. 07050000 070600 09 C-CLMT-APPR-ORDR-YY PIC XX. 07060000 070700 07 C-CLMT-APPR-CMPL-DT. 07070000 070800 09 C-CLMT-APPR-CMPL-MM PIC XX. 07080000 070900 09 C-CLMT-APPR-CMPL-DD PIC XX. 07090000 071000 09 C-CLMT-APPR-CMPL-CC PIC XX. 07100000 071100 09 C-CLMT-APPR-CMPL-YY PIC XX. 07110000 071200 07 C-SIR-HNDL-ID PIC X(4). 07120000 071300 07 C-SIR-REF-DT. 07130000 071400 09 C-SIR-REF-MM PIC XX. 07140000 071500 09 C-SIR-REF-DD PIC XX. 07150000 071600 09 C-SIR-REF-CC PIC XX. 07160000 071700 09 C-SIR-REF-YY PIC XX. 07170000 071800 07 C-SIR-CD PIC X. 07180000 071900 07 C-CLMT-MRTL-STS-CD PIC XX. 07190000 072000 07 C-CLMT-SEX-IND PIC X. 07200000 072100 07 C-CLMT-DT-OF-BTH-DT. 07210000 072200 09 C-CLMT-DT-OF-BTH-MM PIC XX. 07220000 072300 09 C-CLMT-DT-OF-BTH-DD PIC XX. 07230000 072400 09 C-CLMT-DT-OF-BTH-CC PIC XX. 07240000 072500 09 C-CLMT-DT-OF-BTH-YY PIC XX. 07250000 072600 07 C-INJ-SEV-CD PIC X. 07260000 072700 07 C-CLMT-ESTAB-DT. 07270000 072800 09 C-CLMT-ESTAB-DT-MM PIC XX. 07280000 072900 09 C-CLMT-ESTAB-DT-DD PIC XX. 07290000 073000 09 C-CLMT-ESTAB-DT-CC PIC XX. 07300000 073100 09 C-CLMT-ESTAB-DT-YY PIC XX. 07310000 073200 07 C-CLMT-CNTC-TYP-CD PIC X. 07320000 073300 07 C-STRG-HNDL-ID PIC X(4). 07330000 073400 07 C-STRG-ASGN-DT. 07340000 073500 09 C-STRG-ASGN-MM PIC XX. 07350000 073600 09 C-STRG-ASGN-DD PIC XX. 07360000 073700 09 C-STRG-ASGN-CC PIC XX. 07370000 073800 09 C-STRG-ASGN-YY PIC XX. 07380000 073900 07 C-CLMT-EST-REPORTABLE-IND PIC X(01). 07390000 074000 07 C-CLMT-CLOS-WO-PAY-IND PIC X(01). 07400000 074100 07 C-TORT-CD PIC X(01). 07410000 074200 07 C-TORT-OPTIONS. 07420000 074300 09 C-TORT-OPTION PIC X(01). 07430000 074400 09 C-TORT-OUT-OF-STATE-IND PIC X(01). 07440000 074500 09 C-TORT-DWI-IND PIC X(01). 07450000 074600 09 C-TORT-INTENT-INJURY-IND PIC X(01). 07460000 074700 07 C-CLMT-ESTIMATE-DT. 07470000 074800 09 C-ESTIMATE-MM PIC X(02). 07480000 074900 09 C-ESTIMATE-DD PIC X(02). 07490000 075000 09 C-ESTIMATE-CC PIC X(02). 07500000 075100 09 C-ESTIMATE-YY PIC X(02). 07510000 075200 07 C-CLMT-AUTOMATED-IND PIC X(01). 07520000 075300 07 C-CLMT-ISB-INITIAL-SENT-SW PIC X(01). 07530000 075400 07 C-CLMT-TAG-COD PIC X(03). 07540000 07 C-CLMT-NEW-ON-CONV-CLAIM PIC X(01). 05903004 07 C-CLMT-FIRST-FINAN-COMPLETE PIC X(01). 05904004 07 C-CLMT-STRG-STATUS PIC X(01). CDTE2 07 C-CLMT-CONTACT-DATE-TIME PIC X(04). 08616000 075600 07560000 075700 05 C-SOS-TOTALS. 07570000 075800 07 FILLER PIC 9(09). 07580000 075900 07 C-SOS-TOT-CASH-PAY-AMT PIC 9(09). 07590000 076000 07 C-SOS-PREMIUM-AMT PIC 9(09). 07600000 076100 07 C-SOS-ASSIGNED-IND PIC X(01). 07610000 076100 07 FILLER PIC 9(08). 07610000 076200 07 FILLER PIC 9(09). 07620000 076300 07 C-SOS-TOT-TIC-CST-AMT PIC 9(09). 07630000 43260 07 C-ABI-COMPLEXITY-IND PIC X(1). 43260 07 C-SOS-TOTALS-UNUSED PIC X(17). 07640000 076500 07650000 075700 05 C-CLMT-VEH-RECOVERY-TIME REDEFINES C-SOS-TOTALS. 07570000 075800 07 C-CLMT-VEH-RECOVERY-HHMM. 07580000 075800 09 C-CLMT-VEH-RECOVERY-HH PIC X(02). 07580000 075900 09 C-CLMT-VEH-RECOVERY-MM PIC X(02). 07590000 075900 07 C-CLMT-VEH-RECOVERY-AM-PM PIC X(01). 07590000 076100 07 FILLER PIC X(67). 07610000 076600 05 C-ACE-COUNTERS-AND-INDICATORS. 07660000 076700 07 C-ACE-CD PIC X. 07670000 076800 88 ACE-INFO-REQ VALUE 'A'. 07680000 076900 88 BASIC-ACE-INFO-REQ VALUE 'B'. 07690000 077000 88 NO-ACE-INFO-REQ VALUE 'N'. 07700000 077100 07 C-SUIT-PROGRESS-IND. 07710000 077200 09 C-LITESTB-IND PIC X. 07720000 077300 09 C-LITREAS-IND PIC X. 07730000 077400 09 C-LITTEAM-IND PIC X. 07740000 077500 09 C-LITDATE-IND PIC X. 07750000 077600 09 C-LITEXP-IND PIC X. 07760000 077700 09 C-LITRES-IND PIC X. 07770000 077800 09 C-LITAPPL-IND PIC X. 07780000 077900 07 C-NAME-SEG-CTR PIC 9(03). 07790000 078000 07 C-ATTY-NAME-SEG-NBR PIC 9(02). 07800000 078100 07 C-DFNS-ATTY-NAME-SEG-NBR PIC 9(02). 07810000 078200 07 C-WC-ATTY-NAME-NBR PIC 9(02). 07820000 078300 07 C-WC-PRIME-PHYS-NAME-NBR PIC 9(02). 07830000 078400 07 C-PHYS-NAME-SEG-NBR PIC 9(02). 07840000 078500 07 C-WC-IME-PHYS-NAME-NBR PIC 9(02). 07850000 078600 07 C-EVAL-SEG-CTR PIC 9(04). 07860000 078700 07 C-BI-EVAL-NBR PIC 9(03). 07870000 078800 07 C-MPD-EVAL-NBR PIC 9(03). 07880000 078900 07 C-WC-EVAL-NBR PIC 9(03). 07890000 079000 07 C-REFRL-TRCK-SEG-CTR PIC 9(04). 07900000 079100 07 C-WC-HEAR-EVAL-NBR PIC 9(03). 07910000 079200 07 C-IME-TRCK-NBR PIC 9(03). 07920000 079300 07 C-VR-TRCK-NBR PIC 9(03). 07930000 079400 07 C-MED-MGMT-TRCK-NBR PIC 9(03). 07940000 079500 07 C-ADR-TRCK-NBR PIC 9(03). 07950000 079600 07 C-SOS-TRCK-NBR PIC 9(03). 07960000 079700 07 C-COST-CNTN-TRCK-NBR PIC 9(03). 07970000 079800 07 C-ADR-IND PIC X. 07980000 079900 07 C-SOS-IND PIC X. 07990000 080000 07 C-NEG-HIST-IND PIC X. 08000000 080100 07 C-WC-REFRL-PHYS-NAME-NBR PIC 9(02). 08010000 080200 07 C-ADR-COMPLETION-IND PIC X(01). 08020000 080300 07 C-WC-EXST-ATTY-IND PIC X(01). 08030000 080400 07 C-WC-EXST-PRIME-PHYS-IND PIC X(01). 08040000 080500 07 C-WC-EXST-IME-PHYS-NBR PIC 9(02). 08050000 080600 07 C-WC-EXST-REFRL-PHYS-NBR PIC 9(02). 08060000 080700 07 C-HOSP-SEG-NBR PIC 9(02). 08070000 080800 07 C-ACE-COUNTERS-UNUSED PIC X(100). 08080000 07 C-SPC-SPECIALTY-LOSS-ITEMS REDEFINES C-ACE-COUNTERS-UNUSED. ITV. 09 C-ITV-INFORMATION. ITV. 11 C-ITV-COMPLETED-IND PIC X(01). ITV. 11 C-ITV-COMPLETED-DATE PIC X(08). ITV. 11 C-ITV-EVALUATON-AMT PIC 9(09)V99. ITV. 11 C-ITV-EVALUATON-AMTX REDEFINES ITV. C-ITV-EVALUATON-AMT PIC X(11). ITV. 11 FILLER PIC X(11). 09 C-ALT-CLMT-NBR PIC X(03). COL. 09 C-SPC-NEW-SUP-COL-SW PIC X(01). 09 C-SPC-VESSEL-NAME PIC X(45). 09 C-OCCPL-CTGRY-TYPE PIC X(02). 09 C-SPC-CAUSE-CTGRY PIC X(03). 09 C-SPC-CAUSE-LEVEL-2 PIC X(03). 09 C-SPC-CAUSE-LOSS PIC X(02). 09 C-SPC-SRC-LOC-LOSS PIC X(02). 09 C-SPC-SRC-LOC-CTGRY PIC X(03). 09 C-SPC-NATURE-LOSS PIC X(02). 09 C-SPC-DIABIL-SEVERITY PIC X(01). 09 C-SPC-AGE-RANGE PIC X(02). 081000 05 C-SUIT-PART-4. 08100000 081100 07 C-CLS-SUIT-WO-PST-TRIAL-IND PIC X. 08110000 081200 07 C-CLS-SUIT-W-PST-TRIAL-IND PIC X. 08120000 081300 07 C-SETLMNT-AMT PIC 9(09)V99. 08130000 081400 07 C-SETLMNT-AMT-PICX REDEFINES 08140000 081500 C-SETLMNT-AMT PIC X(11). 08150000 081600 07 C-JDGMNT-NOV-AMT PIC 9(09)V99. 08160000 081700 07 C-JDGMNT-NOV-AMT-PICX REDEFINES 08170000 081800 C-JDGMNT-NOV-AMT PIC X(11). 08180000 081900 07 C-APPL-COURT-JDGMNT-AMT PIC 9(09)V99. 08190000 082000 07 C-APPL-COURT-JDGMNT-AMT-PICX REDEFINES 08200000 082100 C-APPL-COURT-JDGMNT-AMT PIC X(11). 08210000 082200 07 C-LIT-EST-TOT-LEG-HR-AMT PIC 9(4)V9. 08220000 082300 07 C-LIT-EST-TOT-LEG-HR-PICX REDEFINES 08230000 082400 C-LIT-EST-TOT-LEG-HR-AMT PIC X(5). 08240000 082500 07 C-LIT-EST-TOT-LEG-EXPN-AMT PIC 9(9). 08250000 082600 07 C-LIT-EST-TOT-LEG-EXPN-PICX REDEFINES 08260000 082700 C-LIT-EST-TOT-LEG-EXPN-AMT PIC X(9). 08270000 082800 07 C-LITG-INIT-EST-DT. 08280000 082900 09 C-LITG-INIT-EST-MM PIC X(02). 08290000 083000 09 C-LITG-INIT-EST-DD PIC X(02). 08300000 083100 09 C-LITG-INIT-EST-CC PIC X(02). 08310000 083200 09 C-LITG-INIT-EST-YY PIC X(02). 08320000 083300 07 C-LITG-LST-EST-DT. 08330000 083400 09 C-LITG-LST-EST-MM PIC X(02). 08340000 083500 09 C-LITG-LST-EST-DD PIC X(02). 08350000 083600 09 C-LITG-LST-EST-CC PIC X(02). 08360000 083700 09 C-LITG-LST-EST-YY PIC X(02). 08370000 083800 07 C-LIT-INIT-TOT-LEG-HR-AMT PIC 9(4)V9. 08380000 083900 07 C-LIT-INIT-TOT-LEG-HR-PICX REDEFINES 08390000 084000 C-LIT-INIT-TOT-LEG-HR-AMT PIC X(5). 08400000 084100 07 C-LIT-INIT-TOT-LEG-EXPN-AMT PIC 9(9). 08410000 084200 07 C-LIT-INIT-TOT-LEG-EXPN-PICX REDEFINES 08420000 084300 C-LIT-INIT-TOT-LEG-EXPN-AMT PIC X(9). 08430000 084400 07 C-INS-CNTRL-IND PIC X(1). 08440000 084500 05 C-CLMT-SLG-FIELDS. 08450000 084600 07 C-CLMT-SLG-JOB-OCCUP PIC X(2). 08460000 084700 07 C-CLMT-SLG-HW-CLMT-TYPE PIC X(1). 08470000 084800 07 C-CLMT-SLG-HW-ACTIV-TYPE PIC X(1). 08480000 084900 07 C-CLMT-SLG-PERSONAL-REP PIC X(51). 08490000 085000 07 C-CLMT-SLG-SPREAD-DATE OCCURS 20 TIMES. 08500000 085100 09 C-CLMT-SLG-INCEPT-DATE. 08510000 085200 11 C-CLMT-SLG-INCEPT-MM PIC X(2). 08520000 085300 11 C-CLMT-SLG-INCEPT-DD PIC X(2). 08530000 085400 11 C-CLMT-SLG-INCEPT-YYYY. 08540000 085500 13 C-CLMT-SLG-INCEPT-YY1 PIC X(2). 08550000 085600 13 C-CLMT-SLG-INCEPT-YY2 PIC X(2). 08560000 085700 09 C-CLMT-SLG-EXPIR-DATE. 08570000 085800 11 C-CLMT-SLG-EXPIR-MM PIC X(2). 08580000 085900 11 C-CLMT-SLG-EXPIR-DD PIC X(2). 08590000 086000 11 C-CLMT-SLG-EXPIR-YYYY. 08600000 086100 13 C-CLMT-SLG-EXPIR-YY1 PIC X(2). 08610000 086200 13 C-CLMT-SLG-EXPIR-YY2 PIC X(2). 08620000 086300 05 C-CLMT-TMP-AUTH-DATA. 08630000 086400 07 C-CLMT-TMP-TO-OFF PIC X(03). 08640000 086500 07 C-CLMT-TMP-TO-ID PIC X(04). 08650000 086600 07 C-CLMT-TMP-AUTH-ID PIC X(04). 08660000 086700 07 C-CLMT-TMP-INPUT-DATE. 08670000 086800 09 C-CLMT-TMP-INPUT-MM PIC X(02). 08680000 086900 09 C-CLMT-TMP-INPUT-DD PIC X(02). 08690000 087000 09 C-CLMT-TMP-INPUT-CC PIC X(02). 08700000 087100 09 C-CLMT-TMP-INPUT-YY PIC X(02). 08710000 087200 07 C-CLMT-TMP-INPUT-OFF PIC X(03). 08720000 087300 07 C-CLMT-TMP-INPUT-AUTH PIC X(04). 08730000 087400 07 C-CLMT-TMP-CHANGE-DATE. 08740000 087500 09 C-CLMT-TMP-CHANGE-MM PIC X(02). 08750000 087600 09 C-CLMT-TMP-CHANGE-DD PIC X(02). 08760000 087700 09 C-CLMT-TMP-CHANGE-CC PIC X(02). 08770000 087800 09 C-CLMT-TMP-CHANGE-YY PIC X(02). 08780000 087900 07 C-CLMT-TMP-CHANGE-OFF PIC X(03). 08790000 088000 07 C-CLMT-TMP-CHANGE-AUTH PIC X(04). 08800000 088100 07 C-CLMT-TMP-EXPIRE-DATE. 08810000 088200 10 C-CLMT-TMP-EXPIRE-MM PIC X(02). 08820000 088300 10 C-CLMT-TMP-EXPIRE-DD PIC X(02). 08830000 088400 10 C-CLMT-TMP-EXPIRE-CC PIC X(02). 08840000 088500 10 C-CLMT-TMP-EXPIRE-YY PIC X(02). 08850000 088600 07 C-CLMT-TMP-AUTH-AMT-X PIC X(09). 08860000 088700 07 C-CLMT-TMP-AUTH-AMT REDEFINES 08870000 088800 C-CLMT-TMP-AUTH-AMT-X PIC 9(07)V99. 08880000 088900 07 C-CLMT-TMP-PAYS-ALLOWED-X PIC X(03). 08890000 089000 07 C-CLMT-TMP-PAYS-ALLOWED REDEFINES 08900000 089100 C-CLMT-TMP-PAYS-ALLOWED-X PIC 9(03). 08910000 089200 07 C-CLMT-TMP-PAYS-USED-X PIC X(03). 08920000 089300 07 C-CLMT-TMP-PAYS-USED REDEFINES 08930000 089400 C-CLMT-TMP-PAYS-USED-X PIC 9(03). 08940000 089500 05 C-CLMT-STRG-FIELDS. 08950000 089600 07 C-CLMT-STRG-AUTH-ID PIC X(4). 08960000 089700 07 C-CLMT-STRG-UNIT-CODE PIC 9(2). 08970000 089800 07 C-CLMT-STRG-LINE-CODE PIC 9(4). 08980000 089900 07 C-CLMT-STRG-CO-MANAGE PIC X(1). 08990000 090000 88 C-CLMT-STRG-KEEP VALUE 'K'. 09000000 090100 88 C-CLMT-STRG-RETURN VALUE 'R'. 09010000 090200 88 C-CLMT-STRG-COVERAGE VALUE 'C'. 09020000 090300 07 C-CLMT-STRG-INPUT-DATE. 09030000 090400 09 C-CLMT-STRG-INPUT-MM PIC X(2). 09040000 090500 09 C-CLMT-STRG-INPUT-DD PIC X(2). 09050000 090600 09 C-CLMT-STRG-INPUT-YYYY. 09060000 090700 11 C-CLMT-STRG-INPUT-YY1 PIC X(2). 09070000 090800 11 C-CLMT-STRG-INPUT-YY2 PIC X(2). 09080000 090900 07 C-CLMT-STRG-REVIEW-DATE. 09090000 091000 09 C-CLMT-STRG-REVIEW-MM PIC X(2). 09100000 091100 09 C-CLMT-STRG-REVIEW-DD PIC X(2). 09110000 091200 09 C-CLMT-STRG-REVIEW-YYYY. 09120000 091300 11 C-CLMT-STRG-REVIEW-YY1 PIC X(2). 09130000 091400 11 C-CLMT-STRG-REVIEW-YY2 PIC X(2). 09140000 091500 07 C-CLMT-STRG-SETTLE-DATE. 09150000 091600 09 C-CLMT-STRG-SETTLE-MM PIC X(2). 09160000 091700 09 C-CLMT-STRG-SETTLE-DD PIC X(2). 09170000 091800 09 C-CLMT-STRG-SETTLE-YYYY. 09180000 091900 11 C-CLMT-STRG-SETTLE-YY1 PIC X(2). 09190000 092000 11 C-CLMT-STRG-SETTLE-YY2 PIC X(2). 09200000 092100 07 C-CLMT-STRG-CLOSE-1-DATE. 09210000 092200 09 C-CLMT-STRG-CLOSE-1-MM PIC X(2). 09220000 092300 09 C-CLMT-STRG-CLOSE-1-DD PIC X(2). 09230000 092400 09 C-CLMT-STRG-CLOSE-1-YYYY. 09240000 092500 11 C-CLMT-STRG-CLOSE-1-YY1 PIC X(2). 09250000 092600 11 C-CLMT-STRG-CLOSE-1-YY2 PIC X(2). 09260000 092700 07 C-CLMT-STRG-CLOSE-2-DATE. 09270000 092800 09 C-CLMT-STRG-CLOSE-2-MM PIC X(2). 09280000 092900 09 C-CLMT-STRG-CLOSE-2-DD PIC X(2). 09290000 093000 09 C-CLMT-STRG-CLOSE-2-YYYY. 09300000 093100 11 C-CLMT-STRG-CLOSE-2-YY1 PIC X(2). 09310000 093200 11 C-CLMT-STRG-CLOSE-2-YY2 PIC X(2). 09320000 093300 07 C-CLMT-STRG-CLOSE-3-DATE. 09330000 093400 09 C-CLMT-STRG-CLOSE-3-MM PIC X(2). 09340000 093500 09 C-CLMT-STRG-CLOSE-3-DD PIC X(2). 09350000 093600 09 C-CLMT-STRG-CLOSE-3-YYYY. 09360000 093700 11 C-CLMT-STRG-CLOSE-3-YY1 PIC X(2). 09370000 093800 11 C-CLMT-STRG-CLOSE-3-YY2 PIC X(2). 09380000 093900 07 C-CLMT-STRG-REOPN-1-DATE. 09390000 094000 09 C-CLMT-STRG-REOPN-1-MM PIC X(2). 09400000 094100 09 C-CLMT-STRG-REOPN-1-DD PIC X(2). 09410000 094200 09 C-CLMT-STRG-REOPN-1-YYYY. 09420000 094300 11 C-CLMT-STRG-REOPN-1-YY1 PIC X(2). 09430000 094400 11 C-CLMT-STRG-REOPN-1-YY2 PIC X(2). 09440000 094500 07 C-CLMT-STRG-REOPN-2-DATE. 09450000 094600 09 C-CLMT-STRG-REOPN-2-MM PIC X(2). 09460000 094700 09 C-CLMT-STRG-REOPN-2-DD PIC X(2). 09470000 094800 09 C-CLMT-STRG-REOPN-2-YYYY. 09480000 094900 11 C-CLMT-STRG-REOPN-2-YY1 PIC X(2). 09490000 095000 11 C-CLMT-STRG-REOPN-2-YY2 PIC X(2). 09500000 095100 05 C-CLMT-LAST-SUBRO-REFER-DATE. 09510000 095200 07 C-CLMT-REFER-SUBRO-MM PIC X(02). 09520000 095300 07 C-CLMT-REFER-SUBRO-DD PIC X(02). 09530000 095400 07 C-CLMT-REFER-SUBRO-CC PIC X(02). 09540000 095500 07 C-CLMT-REFER-SUBRO-YY PIC X(02). 09550000 095600 05 C-CLMT-LAST-SUBRO-CLOSE-DATE. 09560000 095700 07 C-CLMT-CLOSE-SUBRO-MM PIC X(02). 09570000 095800 07 C-CLMT-CLOSE-SUBRO-DD PIC X(02). 09580000 095900 07 C-CLMT-CLOSE-SUBRO-CC PIC X(02). 09590000 096000 07 C-CLMT-CLOSE-SUBRO-YY PIC X(02). 09600000 096100 05 C-CLMT-OBEL-IND PIC X. 09610000 096200 88 OBEL1 VALUE '1'. 09620000 096300 88 OBEL2 VALUE '2'. 09630000 096400 88 OBEL3 VALUE '3'. 09640000 096500 88 OBEL4 VALUE '4'. 09650000 096600 05 C-DRVR-NAME PIC X(51). 09660000 096700 05 C-DRVR-STR-ADD PIC X(25). 09670000 096800 05 C-DRVR-CITY PIC X(13). 09680000 096900 05 C-DRVR-STATE PIC X(02). 09690000 097000 05 C-DRVR-ZIP-9 PIC X(09). 09700000 097100 05 C-DRVR-PHONE PIC X(10). 09710000 097200 05 C-DRVR-DT-OF-BIRTH. 09720000 097300 10 C-DRVR-DT-OF-BIRTH-CC PIC X(02). 09730000 097400 10 C-DRVR-DT-OF-BIRTH-YY PIC X(02). 09740000 097500 10 C-DRVR-DT-OF-BIRTH-MM PIC X(02). 09750000 097600 10 C-DRVR-DT-OF-BIRTH-DD PIC X(02). 09760000 097700 05 C-DRVR-AGE PIC X(02). 09770000 097800 05 C-DRVR-SSN PIC X(09). 09780000 097900 05 C-DRVR-LICENSE-NUM PIC X(20). 09790000 098000 05 C-DRVR-LICENSE-STATE PIC X(02). 09800000 098100 05 C-DRVR-CONTACT-INFO PIC X(50). 09810000 098200 05 C-DESC-OF-INJ-ADD PIC X(100). 09820000 098300 05 C-DRIVABLE-IND PIC X(01). 09830000 098400 05 C-VEH-LOC-SHOP-IND PIC X(01). 09840000 098500 05 C-PERMISS-TO-MOVE-IND PIC X(01). 09850000 098600 05 C-EST-AVAIL-IND PIC X(01). 09860000 098700 05 C-ESTIMATE-VALUE PIC X(08). 09870000 098800 05 C-PROP-DMG-VALUE PIC X(08). 09880000 098900 05 C-CLMT-AIB-FIELDS. 09890000 099000 07 C-AIB-BI-USED PIC X(01). 09900000 099100 07 C-AIB-UNS-USED PIC X(01). 09910000 099200 07 C-AIB-UND-USED PIC X(01). 09920000 099300 07 C-AIB-PIP-USED PIC X(01). 09930000 099400 07 C-AIB-BI-DTE-FRM-COMP PIC X(08). 09940000 099500 07 C-AIB-UNS-DTE-FRM-COMP PIC X(08). 09950000 099600 07 C-AIB-UND-DTE-FRM-COMP PIC X(08). 09960000 099700 07 C-AIB-PIP-DTE-FRM-COMP PIC X(08). 09970000 099800 07 C-AIB-SIU-DENIAL PIC X(01). 09980000 099900 05 C-DRVR-RELATIONSHIP PIC X(25). 09990000 100000 05 C-DRVR-RES-TIME-TO-CALL PIC X(20). 10000000 100100 05 C-DRVR-BUS-PHONE PIC X(10). 10010000 100200 05 C-DRVR-BUS-PHONE-EXT PIC X(04). 10020000 100300 05 C-DRVR-BUS-TIME-TO-CALL PIC X(20). 10030000 100400 05 C-AIB-BYPASS-SW PIC X(01). 10040000 100400 05 C-SUBRO-SUPV-ID PIC X(04). 10040000 DOARN 05 C-DRVR-RESIDENT-INDICATOR PIC X(01). DOARN 05 C-DRVR-OPERATOR-INDICATOR PIC X(01). WKW 05 C-AREA-OF-IMPACT PIC X(01). WKW 88 C-IMPACT-AREA-FRONT VALUE 'A'. WKW 88 C-IMPACT-AREA-PASS-SIDE VALUE 'B'. WKW 88 C-IMPACT-AREA-DRVR-SIDE VALUE 'C'. WKW 88 C-IMPACT-AREA-REAR VALUE 'D'. 05 C-CLMT-MA-SURCHG-IND PIC X(01). 10050000 APPR. 05 C-CLMT-INSP-LOC-DATA. 10050000 APPR 10 C-CLMT-INSP-LOC-CITY PIC X(13). 10050000 APPR 10 C-CLMT-INSP-LOC-ST PIC X(02). 10050000 APPR 10 C-CLMT-INSP-LOC-ZIP PIC X(09). 10050000 APPR 10 C-CLMT-INSP-LOC-PH PIC X(10). 10050000 APPR 10 C-CLMT-INSP-WHEN PIC X(20). 10050000 APPR 10 C-CLMT-INSP-STR PIC X(18). 10050000 100600 05 NEW-PLWKSTN-ITEMS. 10060000 100700 10 C-CLMT-RES-TIME-TO-CALL PIC X(20). 10070000 100800 10 C-CLMT-BUS-PHONE-EXT PIC X(04). 10080000 100900 10 C-CLMT-BUS-TIME-TO-CALL PIC X(20). 10090000 101000 10 C-CLMT-VEH-RECOVERY-DATE PIC X(08). 10100000 101100 10 C-CLMT-DRVR-OTHRTHAN-OWNER PIC X(01). 10110000 101200 10 C-CLMT-UMPD-IND PIC X(01). 10120000 101300 10 C-CLMT-PROPERTY-LOCATION PIC X(25). 10130000 101400 10 C-CLMT-PROPERTY-STREET PIC X(25). 10140000 101500 10 C-CLMT-PROPERTY-CITY PIC X(13). 10150000 101600 10 C-CLMT-PROPERTY-STATE PIC X(02). 10160000 101700 10 C-CLMT-PROPERTY-ZIP PIC X(09). 10170000 101800 10 C-CLMT-PROPERTY-EST-DAMAGE PIC 9(09). 10180000 ********************************************************** * ADDING LOW-IMPACT-COLL-IND FOR OCT 99 VERSION ********************************************************** 101800 10 C-CLMT-LOW-IMPACT-COLL-IND PIC X(01). 10180000 ISO. 10 C-ISO-SALV-BP-IND PIC X(01). OUTSD 10 C-OUTSIDE-HANDLING PIC X(01). 10190000 3017 10 C-CLMT-MCU-OFC PIC X(03). 10190000 102000 10 C-CLMT-BI-TYPE PIC X(03). 10200000 88 C-CLMT-BI VALUE 'B '. 88 C-CLMT-UM-UIM VALUE 'U '. 88 C-CLMT-NO-FAULT VALUE 'N '. 88 C-CLMT-MED-PAY VALUE 'P '. 102100 10 C-CLMT-MARRIED-IND PIC X(01). 10210000 102200 10 C-CLMT-NO-FAULT-MEDPAY PIC X(01). 10220000 102300* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 10230000 102400* THE TWO "NOTE KEYS" FIELDS BELOW HOLD THE NOTE DB2 TABLE 10240000 102500* KEYS FOR THE DAMAGE DESCRIPTION AND DAMAGED PROPERTY LIST 10250000 102600* FOR THE CLAIMANT SLICE. THE KEY AREAS CONTAIN THE FOLLOWING 10260000 102700* FIELDS ON THE NOTE DB2 TABLE DCLGEN: 10270000 102800* 10280000 102900* PART-NBR PIC X(01). 10290000 103000* CLM-NBR PIC X(07). 10300000 103100* CLMT-NBR PIC X(03). 10310000 103200* CREATE-DATE PIC X(10). 10320000 103300* CREATE-TIME PIC X(08). 10330000 103400* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 10340000 103500 10 C-CLMT-DAMAGE-DESC-NOTE-KEY PIC X(29). 10350000 103600 10 C-CLMT-PROPERTY-LIST-NOTE-KEY PIC X(29). 10360000 103700 10 C-PART-REF-ACTIVITY-PERFORMED PIC X(01). 10370000 103800 88 PREM-INSPEC VALUE 'A'. 10380000 103900 88 FULL-INVEST VALUE 'B'. 10390000 104000 88 TRIAL VALUE 'C'. 10400000 104100 88 MEDIATION VALUE 'D'. 10410000 104200 88 COV-B VALUE 'E'. 10420000 104300 10 C-CLMT-WKSTN-CLAIMANT-IND PIC X(01). 10430000 104400 10 C-CLMT-DATE-OF-BIRTH. 10440000 104500 15 C-CLMT-DATE-OF-BIRTH-MM PIC X(02). 10450000 104600 15 C-CLMT-DATE-OF-BIRTH-DD PIC X(02). 10460000 104700 15 C-CLMT-DATE-OF-BIRTH-CC PIC X(02). 10470000 104800 15 C-CLMT-DATE-OF-BIRTH-YY PIC X(02). 10480000 104900 10 C-CLMT-AUTOPROP-IND PIC X(01). 10490000 105000 10 C-CLMT-IN-OUTSIDE-IND PIC X(01). 10500000 105100 10 C-CLMT-AIR-BAG PIC X(01). 10510000 105200 10 C-CLMT-LARGE-LOSS-FLAG PIC X(01). 10520000 105300 10 C-CLMT-SERIOUS-INJ-FLAG PIC X(01). 10530000 105400 10 C-CLMT-COLOSSUS-FLAG PIC X(01). 10540000 CASDGN******************************************************************08616000 CASDGN******* 'C-CD-WKSTN-PHS1-XXXX-DATA' ARE DATA ITEMS USED 08616000 CASDGN******* FOR THE ASSIGNMENT PROCESS ON THE WORKSTATION IN PHASE 1 08616000 CASDGN******* OF CASUALTY DESIGN. 08616000 CASDGN******************************************************************08616000 CASDGN 05 C-CD-WKSTN-PHS1-ASGN-DATA. 08616000 CASDGN 10 C-CLMT-INJ-LEVEL PIC X(01). 10540000 CASDGN 10 C-CLMANT-ASSIGNMENTS. CASDGN 15 C-TYPE-OF-HNDLR PIC X(03). CASDGN 15 C-UNIT-OF-HNDLR PIC X(03). CASDGN 10 C-CLMT-ASGN-SW PIC X(01). 10540000 CASDGN 88 CLMANT-ASSIGN-FILE-SEG VALUE '1'. 00380016 CASDGN 88 CLMANT-ADD-DEF-MODE-SEG VALUE '2'. 00380016 CASDGN 88 ADD-CMT-AFTER-ASSIGN-SEG VALUE '3'. 00380016 CASDGN* 05 C-CD-WKSTN-PHS1-AUTO-LIAB-DATA. 08616000 CASDGN* 05 C-CD-WKSTN-PHS1-LIAB-DATA. 08616000 CASDGN* 05 C-CD-WKSTN-PHS1-LIAB-PROP-DATA. 08616000 CASDGN* 05 C-CD-WKSTN-PHS1-PROP-DATA. 08616000 CASDGN 08616000 LIT 05 C-CLMT-LIT-DATA-ON-DB2 PIC X(01). 08616000 LIT 08616000 ************************************************************************08616000 ******* SEVERITY INDEX CODE ADDED 7/30/01 FOR SEPTEMBER VERSION 08616000 ************************************************************************08616000 05 C-CLMT-SEV-INDEX PIC X(01). 08616000 88 MINOR VALUE '1'. 08616000 88 MODERATE VALUE '2'. 08616000 88 SERIOUS VALUE '3'. 08616000 88 VERY-SERIOUS VALUE '4'. 08616000 88 PROPERTY-DAMAGE VALUE '5'. 08616000 ************************************************************************08616000 AISG 05 C-CLMT-ISO-STATUS-IND PIC X(02). 08616000 05 C-NOL-DEF-CH-SW PIC X(01). 10540000 88 C-CLMT-FILE-ASSIGN VALUE '0'. 00380016 88 C-TEMP-DEFAULT-CH VALUE '1'. 00380016 SYNC 05 C-CLMT-MED-IND PIC X(01). 08616000 SYNC 05 C-CLMT-TREATMENT-IND PIC X(01). 08616000 SYNC 05 C-CLMT-MORE-TREAT-IND PIC X(01). 08616000 SYNC 05 C-CLMT-SEATBELT-IND PIC X(01). 08616000 SYNC 05 C-CLMT-PROP-DMG-EST-IND PIC X(01). 08616000 SYNC 05 C-CLMT-VEH-TOW-IND PIC X(01). 08616000 SYNC 05 C-CLMT-NUM-OCCUP PIC X(03). 08616000 SYNC 05 C-CLMT-RENTAL-IND PIC X(01). 08616000 CDTE 05 C-CLMT-CONTACT-DT-NA-RSN PIC X(02). 08616000 CDTE 88 C-CNTDT-NA-TOW VALUE 'TC'. CDTE 88 C-CNTDT-NA-GLASS VALUE 'GL'. CDTE 88 C-CNTDT-NA-AGENT-PAID VALUE 'AP'. CDTE 88 C-CNTDT-NA-SUIT VALUE 'SN'. CDTE 88 C-CNTDT-NA-CHDES VALUE 'HD'. CDTE 88 C-CNTDT-NA-ATTY VALUE 'AR'. CDTE 88 C-CNTDT-NA-MISG VALUE 'MC'. CDTE 88 C-CNTDT-NA-SAC VALUE 'SC'. CDTE 88 C-CNTDT-NA-SLG VALUE 'SL'. CDTE 88 C-CNTDT-NA-NRSP VALUE 'NR'. CDTE 88 C-CNTDT-NA-INJINS VALUE 'II'. CDTE 88 C-CNTDT-NA-INSCLMT VALUE 'IC'. CDTE 88 C-CNTDT-NA-DUPVD VALUE 'DV'. CDTE 05 C-CLMT-CONTACT-DT-CREATION PIC X(08). 08616000 PROP. 05 C-CLMT-AGE-THREE-BYTES. 08616000 10 C-CLMT-AGE-HUNDRED-PLACE PIC X(01). 10 C-CLMT-AGE-LAST2 PIC X(02). CLOSE2 05 C-CLMT-OLD-SUBRO-OFFICE PIC X(03). 08616000 CLOSE2 05 C-CLMT-OLD-SUBRO-SUPV PIC X(04). 08616000 CLOSE2 05 C-CLMT-OLD-SUBRO-CLM-REP PIC X(04). 08616000 CLOSE2 05 C-CLMT-OLD-SUBRO-OFF-S PIC X(01). 08616000 MLINK 05 C-CLMT-MASS-LINK-CMT. 08616000 MLINK 10 C-CLMT-MASS-LINKED-CMT PIC X(03). 08616000 MLINK 10 C-CLMT-MASS-UNLINK-CMT PIC X(03). 08616000 MLINK 05 C-CLMT-MASS-LINK-DATE PIC X(08). 08616000 MADOR 05 C-CLMT-MASS-HOLD-CHK-FLDS. 08616000 MADOR 07 C-CLMT-MA-DOR-FIELDS. 08616000 MADOR 10 C-CLMT-MA-DOR-DATE PIC X(08). 08616000 MADOR 10 C-CLMT-MA-DOR-LIEN-CNSDER PIC X. 08616000 MADOR 10 C-CLMT-MA-DOR-AMT PIC 9(9)V99. 08616000 MADOR 10 C-CLMT-MA-DOR-NO-LIEN PIC X. 08616000 MADOR 10 C-CLMT-MA-DOR-NAPLY PIC X. 08616000 MADOR 07 C-CLMT-MA-DMA-FIELDS. 08616000 MADOR 10 C-CLMT-MA-DMA-DATE PIC X(08). 08616000 MADOR 10 C-CLMT-MA-DMA-LIEN-CNSDER PIC X. 08616000 MADOR 10 C-CLMT-MA-DMA-AMT PIC 9(9)V99. 08616000 MADOR 10 C-CLMT-MA-DMA-NO-LIEN PIC X. 08616000 MADOR 10 C-CLMT-MA-DMA-NAPLY PIC X. 08616000 MADOR 07 C-CLMT-MA-TAX-FIELDS. 08616000 MADOR 10 C-CLMT-MA-TAX-DATE PIC X(08). 08616000 MADOR 10 C-CLMT-MA-TAX-LIEN-CNSDER PIC X. 08616000 MADOR 10 C-CLMT-MA-TAX-AMT PIC 9(9)V99. 08616000 MADOR 10 C-CLMT-MA-TAX-NO-LIEN PIC X. 08616000 MADOR 10 C-CLMT-MA-TAX-NAPLY PIC X. 08616000 CDTE2 05 C-CLMT-CONTACT-DATE-AMPM-IND PIC X(01). 08616000 CDTE2 05 C-CLMT-CONTACT-DATE-TIME-ZONE PIC X(01). 08616000 05 C-CLMT-PAC-INVOKED-IND PIC X(01). 08616000 3017 05 C-CLMT-MCU-HANDLER PIC X(04). 08616000 00001 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 12/17/85 00002 * FINANCIAL SUMMARY SEGMENT * PSCRFINS 00003 * CPCSLIB SUBSET SCRFINSUM * UM LV001 00004 * SEGMENT LENGTH 100 BYTES * PSCRFINS * * WKW * 11/00 ADD NON REGISTERED INDICATOR K. WATHEN * 00005 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PSCRFINS 00006 03 E-FINSUM-SEGMENT REDEFINES SCRFILE-FINANCIAL-SEGMENT. PSCRFINS 00007 05 E-FINSUM-KEY. PSCRFINS 00008 07 E-COVERAGE-CODE PIC X(4). PSCRFINS 00009 07 E-KIND-CODE PIC X(5). PSCRFINS 00010 05 E-REFERENCE-DATE. PSCRFINS 07 E-REF-DT-MM PIC XX. 07 E-REF-DT-DD PIC XX. 07 E-REF-DT-CC PIC XX. 07 E-REF-DT-YY PIC XX. 00011 05 E-FINSUM-DATA. PSCRFINS 00012 07 E-CLAIM-PAID PIC 9(9)V99. PSCRFINS 00013 07 E-EXPENSE-PAID PIC 9(9)V99. PSCRFINS 00014 07 E-CLAIM-ESTIMATE PIC 9(9). PSCRFINS 00015 07 E-EXPENSE-ESTIMATE PIC 9(9). PSCRFINS 00016 07 E-CLAIM-EST-RECOV PIC 9(9). PSCRFINS 00017 07 E-EXPENSE-EST-RECOV PIC 9(9). PSCRFINS 00018 07 E-CLAIM-CREDIT PIC 9(9)V99. PSCRFINS 00019 07 E-EXPENSE-CREDIT PIC 9(9)V99. PSCRFINS 00020 07 E-ESTIMATE-IND PIC X. PSCRFINS WKW 07 E-NR-IND PIC X. WKW 05 FILLER PIC X(1). PSCRFINS 00022 EJECT PSCRFINS 00001 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 06/14/89 00002 * F ESTIMATE HISTORY SEGMENT * PSCRESTH 00003 * CPCSLIB SUBSET SCRESTHIST * IS LV003 00004 * SEGMENT LENGTH 100 BYTES * PSCRESTH 00005 * 08/19/87 SLL SR#GNP ADD F-EST-HIST-REASON-CODE * PSCRESTH 00006 ***************************************************************** CL**3 00007 * M A I N T E N A N C E L O G * CL**3 00008 ***************************************************************** CL**3 00009 * * CL**3 00010 * DATE NAME SR/DISC DESCRIPTION OF CHANGE * CL**3 00011 ***************************************************************** CL**3 00012 * 01/23/89 SANDY B CBA12 FINANCIAL ACT ON CLSD CLAIMS * CL**3 00012 * 07/09/95 K HANSON ABI ADDED 88 LEVELS FOR * CL**3 00012 * F-EST-HIST-TYP * CL**3 00012 * 06/09/96 R ALLEN ESTA ADDED HIST-ESTIMATOR-ID * CL**3 * 04/15/97 BBERMAN Y2KEANE ADDED CENTURY TO DATES 8 00012 * 03/15/98 K STOTT Y2K CORRECT FILLER AMOUNT * CL**3 00013 ***************************************************************** CL**3 00014 SKIP2 PSCRESTH 00015 03 F-EST-HIST-SEGMENT REDEFINES SCRFILE-FINANCIAL-SEGMENT. PSCRESTH 00016 05 F-EST-HIST-SEG-KEY. PSCRESTH 00017 07 F-EST-HIST-COV PIC XXXX. PSCRESTH 00018 07 F-EST-HIST-KIND PIC X(5). PSCRESTH 00019 07 F-EST-HIST-DATE. PSCRESTH 00020 09 F-EST-HIST-CC PIC XX. PSCRESTH 00020 09 F-EST-HIST-YR PIC XX. PSCRESTH 00021 09 F-EST-HIST-MO PIC XX. PSCRESTH 00022 09 F-EST-HIST-DAY PIC XX. PSCRESTH 00023 07 F-EST-HIST-TIME PIC X(4). PSCRESTH 00024 07 F-EST-HIST-TIME-9 REDEFINES PSCRESTH 00025 F-EST-HIST-TIME PIC 9(7) COMP-3. PSCRESTH 00026 05 F-EST-HIST-DATA. PSCRESTH 00027 07 F-EST-HIST-TYP PIC X. PSCRESTH 00028 88 F-INITIAL-ESTIMATE VALUE '1'. PSCRESTH 00029 88 F-SYSTEM-ADJUSTMENT VALUE '2'. PSCRESTH 00030 88 F-CHANGE-ESTIMATE VALUE '3'. PSCRESTH 00031 88 F-FINAL VALUE '4'. PSCRESTH 00032 88 F-REOPEN VALUE '5'. PSCRESTH 00033 88 F-REFINAL VALUE '6'. PSCRESTH 00034 88 F-SUBRO VALUE '7'. PSCRESTH 00035 88 F-ATS VALUE '8'. CL**3 00036 88 F-FIN-ADJ VALUE '9'. CL**3 00036 88 F-90-DAY-EST VALUE 'A'. CL**3 00036 88 F-180-DAY-EST VALUE 'B'. CL**3 00036 88 F-365-DAY-EST VALUE 'C'. CL**3 00037 07 F-EST-HIST-CLM-AMT PIC S9(9). PSCRESTH 00038 07 F-EST-HIST-EXP-AMT PIC S9(9). PSCRESTH 00039 07 F-EST-HIST-CLM-RECOV PIC S9(9). PSCRESTH 00040 07 F-EST-HIST-EXP-RECOV PIC S9(9). PSCRESTH 00041 07 F-EST-HIST-REASON-CODE PIC X(02). PSCRESTH 00041 07 F-EST-HIST-ESTIMATOR-ID PIC X(04). PSCRESTH 07 F-EST-HIST-OFF-GROUP PIC X. 07 F-EST-HIST-ADJ-OFF-CODE PIC XXX. 00042 05 FILLER PIC X(32). PSCRESTH 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* G PAYMENT SEGMENT * 00020000 000300* CPCSLIB SUBSET SCRPAYMENT * 00030000 000400* SEGMENT LENGTH 1000 BYTES * 00040000 000500* * 00050000 000600* UPDATE LOG * 00060000 000700* 10/25/82 VJD * 00070000 000800* 11/01/83 DMM "D" L-203 ADDED 1 INDICATOR PER COVERAGE * 00080000 000900* CODE FOR FIRST/ADDITIONAL * 00090000 001000* 01/26/84 SAD ADDED DATA NAMES NEEDED FOR SCREEN PRIOR * 00100000 001100* 08/16/84 JPP ADDED 88 LEV A-MCR-LOFIR-PAYMENT * 00110000 001200* 11/27/84 JEM ADDED DATA NAMES FOR MULTI-CLAIM PAYMENT * 00120000 001300* PROCESSING. * 00130000 001400* 01/17/85 JEM ADDED DATA NAME FOR MULTICLAIM PROCESS * 00140000 001500* G-MLTPAY-ORIG-BNK-CD * 00150000 001600* 08/23/85 WPB REDEFINED MULTIPAY FIELDS FOR USE BY * 00160000 001700* ATS RECORDS (DEBIT ALLOC) * 00170000 001800* 03/01/86 SOAN ADD THE MICRO NUMBER PREFIX: * 00180000 001900* G-MICR-PREFIX. * 00190000 002000* TESTING LOG SR GIE CLMCR CONVERSION * 00200000 002100* 01/01/87 APP ADDED G-SUPPLEMENTAL-DATA * 00210000 002200* FOR CL MCR CONVERSION * 00220000 002300* 08/18/87 JK ADDED PANEL ATTORNEY HOURS PAID * 00230000 002400***************************************************************** 00240000 002500* M A I N T E N A N C E L O G * 00250000 002600***************************************************************** 00260000 002700* * 00270000 002800* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00280000 002900***************************************************************** 00290000 003000* 10/28/87 RY GIO ADDED NEW FLD G-DBT-ALOC- * 00300000 003100* ATS-CANCEL-IND * 00310000 003200* 10/28/87 NHM TECHFIX REDEFINE FOR SIGN - B AND C * 00320000 003300* CLAIM AND EXP AMOUNTS. * 00330000 003400* SUPPLEMENTAL AMOUNTS. * 00340000 003500* 10/12/87 JAE JUA ADDED 88 LEVEL NJ JUA BK ACCT * 00350000 003600* 11/14/88 K STOTT SR GSA ADD STAGE-DATE,STAGE-TIME 00360000 003700* TO TO USE NEW KEY STRUCTURE 00370000 003800* OF FIN. STAGING FILE. 00380000 003900* 01/13/89 SANDY CBA#12 FIN ACT ON CLSD CLAIMS * 00390000 004000* 05/13/89 KIM S SR ATS ADDED STAFF ATTNY HOURS * 00400000 004100* 01/18/90 SANDY TECHSB EXPANDED SEG (900 - 1000) * 00410000 004200* 02/26/90 CATHY ACE ADDED ACE COST CONTAINMENT* 00420000 004300* 02/07/91 J PITONIAK CCHK G-MAILED-FROM, * 00430000 004400* G-LOCAL-CENTRAL-IND, * 00440000 004500* 08/12/91 FAENZA ADD CHKAUTH FIELDS *00450000 004600* 07/04/92 GULDEN ADD SUBRO DESC AND SUBRO IND 00460000 004700* 07/04/92 OLIVER CHECKREC ADD NEW G-STATUS-INDICATORS *00470000 004800* ADD G-PAYMENT-PEND-AREA *00480000 004900* 11/92 OLIVER MCORR CREATE A CPCS MICR CORR SCREEN *00490000 005000* 11/92 PITONIAK PLIP ADDED REVVOID-DATE *00500000 005100* 07/10/94 SLUSARCZYK ADD PEND-XFER STATUS 88 LEVEL *00510000 005200* 11/12/95 SLUSARCZYK ADD FUNDXFER AND CHARGE PYMT *00520000 005300* TYPE LOGIC *00530000 005400* 06/09/96 SLUSARCZYK ADD G-ISSUING-VENDOR FIELD TO BE *00540000 005500* USED FOR PAYMENT SOURCE IDENTIFCTN*00550000 005600* 12/18/96 ML ADDED G-VENDOR-CODE *00560000 005700* 03/07/97 SLUSARCZYK ADD G-NY-SURCHARGE... FIELDS *00570000 005800* 03/07/97 JMBONNEY Y2KEANE ADD CENTURY FOR YEAR 2000 *00580000 * 05/20/97 PFLEGER ADD NEW 88 LEVEL A-GEN-PRIOR-PAID * * VALUE 'G' TO G-PAYMENT-TYPE-IND * 00047 * 03/15/98 N BAILEY IRS ADD ATTY-IND * CL*10 005900* 03.12.99 FCARDINI G-PAYMENT-UNUSED-2 PIC X(24) ---> *00590000 005900* G-PAYMENT-UNUSED-2 PIC X(21) + *00590000 005900* G-IRS-WH-LINKED-SEQ-NUM PIC 9(3) *00590000 005900* 10.10.99 FCARDINI CHANGE ABOVE PIC 9(3) TO PIC 9(X) *00590000 * 11/11/01 CGIGUERE ADDED BILL CONTROL NUMBER AND NEW 88 LEVEL * * TO G-PAYMENT-SOURCE, 'C' FOR CORP SYSTEMS * SPAY * 11/10/02 DPMULCAH ADD 88 LEVEL TO G-ISSUING-VENDOR * * 11/12/04 JMCNERNEY ADD 88 LEVELS TO G-DBT-ALOC-SOURCE * * ADD 88 LEVEL TO G-PAYMENT-SOURCE * * APRIL '05 EXPAND MICR-NUMBER AND ADD ACCT BANK CODE * * * * 11/13/05 K GULA ADDED G-PL-INITIAL-BTL-DATE AND * G-PL-PAYMENT-CHANGE-DATE * CHANGED LAST FILLER TO X(477) 41431 * 11/12/06 GONCHAROV ADDED G-PAYMENT-REASONS * 316594* 08/15/10 CLCHASE CLAIM HANDLING: NEW PAYEE CONTINUATION * 316594* IND: G-PAYE-CONT-IND * 005900******************************************************************00590000 006000* WE USE THE G-ISSUING-VENDOR FIELD TO TRACK WHERE CPCS 00600000 006100* PAYMENTS ORIGINATE. SEE M316260J FOR MORE DETAILS. THE 00610000 006200* FIRST BYTE OF THIS 3 BYTE FIELD INDICATES THE SOURCE WHILE 00620000 006300* THE SECOND AND THIRD BYTES ARE USED FOR DUPLICATE AND UPDATE 00630000 006400* TRACKING. BRIEFLY, THE SOURCES FOR CPCS PAYMENTS ARE 00640000 006500* A = AETNA 00650000 006600* H = HOST CHECK/JCHECK 00660000 006700* I = IMPACT WRKSTN 00670000 006800* L = LIABILITY WRKSTN 00680000 006900* N = NEW YORK SURCHARGE BMP 00690000 007000* S = SPATS (PANEL) M3162282 BMP 00700000 007100* U = THE ORIGINAL SOURCE OF PMT UNKNOWN 00710000 007200* V = VRU 00720000 * C = CORPORATE SYSTEMS ******************************************************************00590000 * G-PL-INITIAL-BTL-DATE IS THE DATE * G-STATUS-IND IS FIRST SET TO 0 (ISSUED) * BTL = BOOKED TO LEDGER * THIS DATE IS SET FOR PL CLAIMS ONLY * * G-PL-PAYMENT-CHANGE-DATE IS SET WHEN KEY * PAYMENT ITEMS ARE CHANGED FOR A PL CLAIM ******************************************************************00590000 007300**************************************************************** 00730000 007400 SKIP2 00740000 007500 03 G-PAYMENT-SEGMENT REDEFINES SCRFILE-FINANCIAL-SEGMENT. 00750000 007600 05 G-SEGMENT-KEY. 00760000 007700 07 G-FIN-SEQ-NUM PIC XXX. 00770000 007800 05 G-PAYMENT-TYPE-IND PIC X. 00780000 007900 88 A-COMPUTER-CHECK VALUE 'C'. 00790000 88 A-GEN-PRIOR-PAID VALUE 'G'. 008000 88 A-MANUAL-CHECK VALUE 'M'. 00800000 008100 88 A-DEBIT-ALLOC VALUE 'D'. 00810000 008200 88 A-PRIOR-PAYMENT VALUE 'P'. 00820000 008300 88 A-MCR-LOFIR-PAYMENT VALUE 'L'. 00830000 008400 88 A-FUNDXFER-PAYMENT VALUE 'T'. 00840000 008500 88 A-CHARGE VALUE 'W'. 00850000 008600 88 A-MULTIPAY-CHECK VALUE 'X'. 00860000 88 A-IRS-BACKUP-CHECK VALUE 'I'. 008700 05 G-MICR-NUMBER. 00870000 07 G-MICR-NUMBER-2 PIC X(2). 07 G-MICR-NUMBER-8 PIC X(8). 008800 05 G-DBT-ALOC-CNTL-NUM REDEFINES 00880000 008900 G-MICR-NUMBER PIC X(10). 00890000 009000 05 G-BANK-ACCT-NUMBER PIC X(13). 00900000 009100 88 G-NJ-JUA-BANK-ACCT-NUMBER VALUE 00910000 009200 '0007061980490'. 00920000 009300 88 G-FUNDXFER-BANK-ACCT-NUMBER VALUE 00930000 009400 '00000000FXFER'. 00940000 009500 88 G-CHARGE-BANK-ACCT-NUMBER VALUE 00950000 009600 '0000000000CEV'. 00960000 009700 05 G-STATUS-IND PIC X. 00970000 009800 88 G-STAT-STAGED VALUE ' '. 00980000 009900 88 G-STAT-ISSUED VALUE '0'. 00990000 010000 88 G-STAT-STOP-PENDING VALUE '1'. 01000000 010100 88 G-STAT-STOPPED VALUE '2'. 01010000 010200 88 G-STAT-REV-STOP-PENDING VALUE '3'. 01020000 010300 88 G-STAT-VOID VALUE '4'. 01030000 010400 88 G-STAT-CANCELLED VALUE '4'. 01040000 010500 88 G-STAT-VOID-PENDING VALUE '5'. 01050000 010600 88 G-STAT-CANCEL-PENDING VALUE '5'. 01060000 010700 88 G-STAT-TRANSFERRED VALUE '6'. 01070000 010800 88 G-STAT-REV-VOID-PENDING VALUE '7'. 01080000 010900 88 G-STAT-PEND-PRINT VALUE '8'. 01090000 011000 88 G-STAT-DELETED VALUE '9'. 01100000 011100 88 G-STAT-UNDEL-PENDING VALUE 'A'. 01110000 011200 88 G-STAT-UNDELIVERABLE VALUE 'B'. 01120000 011300 88 G-STAT-REV-UNDEL-PENDING VALUE 'C'. 01130000 011400 88 G-STAT-CASHED VALUE 'D'. 01140000 011500 88 G-STAT-CHANGE-PENDING VALUE 'E'. 01150000 011600 88 G-STAT-CANCEL-DEBIT VALUE 'F'. 01160000 011700 88 G-STAT-PEND-XFER VALUE 'G'. 01170000 011800 05 G-AGGR-OVR-COD PIC XXX. 01180000 011900 05 G-CHK-ATTACH-IND PIC X. 01190000 012000 05 G-STATUS-DATES. 01200000 012100 07 G-DATE-OF-ISSUE. 01210000 012200 09 G-DOI-MO PIC XX. 01220000 012300 09 G-DOI-DAY PIC XX. 01230000 012400 09 G-DOI-CC PIC XX. 01240000 012500 09 G-DOI-YR PIC XX. 01250000 012600 07 G-LAST-REF-DATE. 01260000 012700 09 G-LRD-MO PIC XX. 01270000 012800 09 G-LRD-DAY PIC XX. 01280000 012900 09 G-LRD-CC PIC XX. 01290000 013000 09 G-LRD-YR PIC XX. 01300000 013100 07 G-STOP-PENDING-DATE. 01310000 013200 09 G-SPD-MO PIC XX. 01320000 013300 09 G-SPD-DAY PIC XX. 01330000 013400 09 G-SPD-CC PIC XX. 01340000 013500 09 G-SPD-YR PIC XX. 01350000 013600 07 G-CHECKREC-PENDING-DATE REDEFINES 01360000 013700 G-STOP-PENDING-DATE. 01370000 013800 09 G-CREC-MO PIC XX. 01380000 013900 09 G-CREC-DAY PIC XX. 01390000 014000 09 G-CREC-CC PIC XX. 01400000 014100 09 G-CREC-YR PIC XX. 01410000 014200 07 G-STOP-DATE. 01420000 014300 09 G-SD-MO PIC XX. 01430000 014400 09 G-SD-DAY PIC XX. 01440000 014500 09 G-SD-CC PIC XX. 01450000 014600 09 G-SD-YR PIC XX. 01460000 014700 07 G-CANCEL-DATE. 01470000 014800 09 G-CD-MO PIC XX. 01480000 014900 09 G-CD-DAY PIC XX. 01490000 015000 09 G-CD-CC PIC XX. 01500000 015100 09 G-CD-YR PIC XX. 01510000 015200 07 G-REPORTED-DATE. 01520000 015300 09 G-RD-MO PIC XX. 01530000 015400 09 G-RD-DAY PIC XX. 01540000 015500 09 G-RD-CC PIC XX. 01550000 015600 09 G-RD-YR PIC XX. 01560000 015700 07 G-DBT-ALOC-DATE. 01570000 015800 09 G-DBT-MO PIC XX. 01580000 015900 09 G-DBT-DAY PIC XX. 01590000 016000 09 G-DBT-CC PIC XX. 01600000 016100 09 G-DBT-YR PIC XX. 01610000 016200 05 G-MLTPAY-SECTION. 01620000 016300 07 G-MLTPAY-1ST-CLM PIC X(7). 01630000 016400 07 G-MLTPAY-1ST-CMT PIC X(3). 01640000 016500 07 G-MLTPAY-1ST-PAY-SEQ PIC X(3). 01650000 016600 07 G-MLTPAY-NXT-CLM PIC X(7). 01660000 016700 07 G-MLTPAY-NXT-CMT PIC X(3). 01670000 016800 07 G-MLTPAY-NXT-PAY-SEQ PIC X(3). 01680000 016900 07 G-MLTPAY-TOT-CHK-AMT PIC 9(8)V99. 01690000 017000 07 G-MLTPAY-ORIG-BNK-CD PIC X(3). 01700000 017100 07 G-MLTPAY-CLM-EXP-IND PIC X(1). 01710000 017200 88 CLAIM-TO-EXP-CHNG VALUE '1'. 01720000 017300 88 EXP-TO-CLAIM-CHNG VALUE '2'. 01730000 017400 05 G-ATS-SECTION REDEFINES G-MLTPAY-SECTION. 01740000 017500 07 G-DBT-ALOC-LEG-OFF-CASE-NUM PIC 9(6). 01750000 017600 07 G-DBT-ALOC-CLM-EXP-IND PIC X(1). 01760000 017700 07 G-DBT-ALOC-EXP-COD PIC X(2). 01770000 017800 07 G-DBT-ALOC-SOURCE PIC X(1). 01780000 88 SPC-CONVERTED-CHK VALUE '1'. 88 SPC-SPACE-JOURNAL-ENTRY VALUE '2'. 88 SPC-COLLECTION-FEES VALUE '4'. 88 SPC-REHAB VALUE '6'. 88 SPC-STAFF-ATTORNEY VALUE '7'. 88 SPC-SPACE-CORRECTION VALUE '9'. 017900 07 G-DBT-ALOC-ATS-CANCEL-IND PIC X(01). 01790000 018000 07 G-ATS-UNUSED PIC X(29). 01800000 018100 05 G-FACC-IND PIC X(1). 01810000 018200 05 G-PAYMENT-UNUSED-A PIC X(3). 01820000 018300 05 G-SCREEN-DATA. 01830000 018400 07 G-AUTH-ID PIC X(4). 01840000 018500 07 G-AUTH-OFF PIC XXX. 01850000 018600 07 G-TOTAL-AMOUNT. 01860000 018700 09 G-TOTAL-DOLLARS PIC 9(7). 01870000 018800 09 G-TOTAL-CENTS PIC 99. 01880000 018900 07 G-DBT-ALOC-TOT-EXP-AMT REDEFINES G-TOTAL-AMOUNT. 01890000 019000 09 G-DBT-ALOC-EXP-DOLLARS PIC 9(7). 01900000 019100 09 G-DBT-ALOC-EXP-CENTS PIC 99. 01910000 019200 07 G-TOTAL-AMOUNT-R REDEFINES G-TOTAL-AMOUNT 01920000 019300 PIC 9(7)V99. 01930000 019400 07 G-TOTAL-AMOUNT-S REDEFINES G-TOTAL-AMOUNT 01940000 019500 PIC S9(7)V99. 01950000 019600 07 G-IRS-IND PIC X. 01960000 019700 07 G-TAX-ID. 01970000 019800 09 G-TAX-ID-NUM PIC X(9). 01980000 019900 09 G-TAX-ID-CONSTANT PIC X. 01990000 020000 07 G-COV-CODE-A PIC X(4). 02000000 020100 07 G-KIND-A PIC X(5). 02010000 020200 07 G-CLAIM-AMT-A. 02020000 020300 09 G-CLAIM-DOLLARS-A PIC 9(7). 02030000 020400 09 G-CLAIM-CENTS-A PIC 99. 02040000 020500 07 G-CLAIM-AMT-AS REDEFINES G-CLAIM-AMT-A 02050000 020600 PIC S9(7)V99. 02060000 020700 07 G-EXPENSE-AMT-A. 02070000 020800 09 G-EXPENSE-DOLLARS-A PIC 9(7). 02080000 020900 09 G-EXPENSE-CENTS-A PIC 99. 02090000 021000 07 G-EXPENSE-AMT-AS REDEFINES G-EXPENSE-AMT-A 02100000 021100 PIC S9(7)V99. 02110000 021200 07 G-EXPENSE-DESC-A PIC XX. 02120000 021300 07 G-FROM-DATE-A. 02130000 021400 09 G-F-MO-A PIC XX. 02140000 021500 09 G-F-DAY-A PIC XX. 02150000 021600 09 G-F-CC-A PIC XX. 02160000 021700 09 G-F-YR-A PIC XX. 02170000 021800 07 G-TO-DATE-A. 02180000 021900 09 G-T-MO-A PIC XX. 02190000 022000 09 G-T-DAY-A PIC XX. 02200000 022100 09 G-T-CC-A PIC XX. 02210000 022200 09 G-T-YR-A PIC XX. 02220000 022300 07 G-COV-CODE-B PIC X(4). 02230000 022400 07 G-KIND-B PIC X(5). 02240000 022500 07 G-CLAIM-AMT-B. 02250000 022600 09 G-CLAIM-DOLLARS-B PIC 9(7). 02260000 022700 09 G-CLAIM-CENTS-B PIC 99. 02270000 022800 07 G-CLAIM-AMT-BS REDEFINES G-CLAIM-AMT-B 02280000 022900 PIC S9(7)V99. 02290000 023000 07 G-EXPENSE-AMT-B. 02300000 023100 09 G-EXPENSE-DOLLARS-B PIC 9(7). 02310000 023200 09 G-EXPENSE-CENTS-B PIC 99. 02320000 023300 07 G-EXPENSE-AMT-BS REDEFINES G-EXPENSE-AMT-B 02330000 023400 PIC S9(7)V99. 02340000 023500 07 G-EXPENSE-DESC-B PIC XX. 02350000 023600 07 G-FROM-DATE-B. 02360000 023700 09 G-F-MO-B PIC XX. 02370000 023800 09 G-F-DAY-B PIC XX. 02380000 023900 09 G-F-CC-B PIC XX. 02390000 024000 09 G-F-YR-B PIC XX. 02400000 024100 07 G-TO-DATE-B. 02410000 024200 09 G-T-MO-B PIC XX. 02420000 024300 09 G-T-DAY-B PIC XX. 02430000 024400 09 G-T-CC-B PIC XX. 02440000 024500 09 G-T-YR-B PIC XX. 02450000 024600 07 G-COV-CODE-C PIC X(4). 02460000 024700 07 G-KIND-C PIC X(5). 02470000 024800 07 G-CLAIM-AMT-C. 02480000 024900 09 G-CLAIM-DOLLARS-C PIC 9(7). 02490000 025000 09 G-CLAIM-CENTS-C PIC 99. 02500000 025100 07 G-CLAIM-AMT-CS REDEFINES G-CLAIM-AMT-C 02510000 025200 PIC S9(7)V99. 02520000 025300 07 G-EXPENSE-AMT-C. 02530000 025400 09 G-EXPENSE-DOLLARS-C PIC 9(7). 02540000 025500 09 G-EXPENSE-CENTS-C PIC 99. 02550000 025600 07 G-EXPENSE-AMT-CS REDEFINES G-EXPENSE-AMT-C 02560000 025700 PIC S9(7)V99. 02570000 025800 07 G-EXPENSE-DESC-C PIC XX. 02580000 025900 07 G-FROM-DATE-C. 02590000 026000 09 G-F-MO-C PIC XX. 02600000 026100 09 G-F-DAY-C PIC XX. 02610000 026200 09 G-F-CC-C PIC XX. 02620000 026300 09 G-F-YR-C PIC XX. 02630000 026400 07 G-TO-DATE-C. 02640000 026500 09 G-T-MO-C PIC XX. 02650000 026600 09 G-T-DAY-C PIC XX. 02660000 026700 09 G-T-CC-C PIC XX. 02670000 026800 09 G-T-YR-C PIC XX. 02680000 026900 07 G-EXPLANATION-COMMENT-AREA. 02690000 027000 09 G-EXPLANATION-LINE-1 PIC X(21). 02700000 027100 09 G-EXPLANATION-LINE-2 PIC X(39). 02710000 027200 07 G-FOR-BLOCK PIC X(50). 02720000 027300 07 G-ATS-MISC REDEFINES G-FOR-BLOCK. 02730000 027400 09 G-PANEL-LFO PIC X(3). 02740000 027500 09 FILLER PIC X. 02750000 027600 09 G-CASE-NUMBER PIC X(6). 02760000 027700 09 FILLER PIC X. 02770000 027800 09 G-REDUCED-AMT PIC S9(8)V99. 02780000 027900 09 FILLER PIC X(29). 02790000 028000 07 G-PAYEE-NAME PIC X(51). 02800000 028100 07 G-DBT-ALOC-PROV-SERV REDEFINES 02810000 028200 G-PAYEE-NAME PIC X(20). 02820000 028300* 02830000 028400* IF A R1 REFERENCE CODE IS USED FOR PAYEE ADDRESS OR 02840000 028500* MAIL TO ADDRESS THEN THE INSURED'S ADDRESS FROM THE 02850000 028600* ROOT SEGMENT IS STORED IN THE GROUP ITEM 02860000 028700* G-PAYEE-CTY-STA-ZIP/G-MAIL-CTY-STA-ZIP. 02870000 028800* OTHERWISE THE ELEMENTARY ITEMS CITY, STATE, AND ZIP 02880000 028900* ARE USED. 02890000 029000* 02900000 029100 07 G-PAYEE-ADDRESS. 02910000 029200 09 G-PAYEE-STREET PIC X(25). 02920000 029300 09 G-PAYEE-CTY-STA-ZIP. 02930000 029400 11 G-PAYEE-CITY PIC X(13). 02940000 029500 11 G-PAYEE-STATE PIC XX. 02950000 029600 11 G-PAYEE-ZIP-9. 02960000 029700 13 G-PAYEE-ZIP PIC X(5). 02970000 029800 13 G-PAYEE-ZIP-LAST4 PIC X(4). 02980000 029900 11 FILLER PIC X(19). 02990000 030000 07 G-ADDL-PAYEE PIC X(51). 03000000 030100 07 G-MAIL-NAME PIC X(51). 03010000 030200 07 G-MAIL-ADDRESS. 03020000 030300 09 G-MAIL-STREET PIC X(25). 03030000 030400 09 G-MAIL-CTY-STA-ZIP. 03040000 030500 11 G-MAIL-CITY PIC X(13). 03050000 030600 11 G-MAIL-STATE PIC XX. 03060000 030700 11 G-MAIL-ZIP-9. 03070000 030800 13 G-MAIL-ZIP PIC X(5). 03080000 030900 13 G-MAIL-ZIP-LAST4 PIC X(4). 03090000 031000 11 FILLER PIC X(19). 03100000 031100 07 G-NR-IND PIC X. 03110000 031200 07 G-DBT-ALOC-MED-IND PIC X. 03120000 031300 07 G-DBT-ALOC-LEG-OFF-COD PIC XXX. 03130000 031400 05 G-PRIOR-SCREEN-DATA 03140000 031500 REDEFINES G-SCREEN-DATA. 03150000 031600 07 FILLER PIC X(162). 03160000 031700 07 G-PRIOR-CARRIER-NAM PIC X(51). 03170000 031800 07 G-PRIOR-CARRIER-FIL-NUM PIC X(30). 03180000 031900 07 G-PRIOR-CARRIER-POL-NUM PIC X(25). 03190000 032000 07 FILLER PIC X(288). 03200003 032100 05 G-CAUSE-LOSS-COD PIC XXX. 03210000 032200 05 G-PAYEE-NAM-REF-COD PIC X(3). 03220000 032300 05 G-PAYEE-ADDR-REF-COD PIC X(3). 03230000 032400 05 G-ADDL-PAYEE-REF-COD PIC X(3). 03240000 032500 05 G-MAIL-TO-NAM-REF-COD PIC X(3). 03250000 032600 05 G-MAIL-TO-ADDR-REF-COD PIC X(3). 03260000 032700 05 G-PAYEE-REF-IND PIC X. 03270000 032800 05 G-MAIL-TO-REF-IND PIC X. 03280000 032900 05 G-FA-PAYMT-IND-A PIC X. 03290000 033000 88 G-FIRST-PAYMENT-A VALUE '1'. 03300000 033100 88 G-ADDNL-PAYMENT-A VALUE '0'. 03310000 033200 05 G-FA-PAYMT-IND-B PIC X. 03320000 033300 88 G-FIRST-PAYMENT-B VALUE '1'. 03330000 033400 88 G-ADDNL-PAYMENT-B VALUE '0'. 03340000 033500 05 G-FA-PAYMT-IND-C PIC X. 03350000 033600 88 G-FIRST-PAYMENT-C VALUE '1'. 03360000 033700 88 G-ADDNL-PAYMENT-C VALUE '0'. 03370000 033800 05 G-MICR-PREFIX PIC X(05). 03380000 033900 05 G-SUPPLEMENTAL-DATA. 03390000 034000 07 G-SUPPL-CLM-AMT-A. 03400000 034100 09 G-SUPPL-CLM-DLRS-A PIC 9(7). 03410000 034200 09 G-SUPPL-CLM-CNTS-A PIC 99. 03420000 034300 07 G-SUPPL-CLM-AMT-AS REDEFINES G-SUPPL-CLM-AMT-A 03430000 034400 PIC S9(7)V99. 03440000 034500 07 G-SUPPL-EXP-AMT-A. 03450000 034600 09 G-SUPPL-EXP-DLRS-A PIC 9(7). 03460000 034700 09 G-SUPPL-EXP-CNTS-A PIC 99. 03470000 034800 07 G-SUPPL-EXP-AMT-AS REDEFINES G-SUPPL-EXP-AMT-A 03480000 034900 PIC S9(7)V99. 03490000 035000 07 G-SUPPL-CLM-AMT-B. 03500000 035100 09 G-SUPPL-CLM-DLRS-B PIC 9(7). 03510000 035200 09 G-SUPPL-CLM-CNTS-B PIC 99. 03520000 035300 07 G-SUPPL-CLM-AMT-BS REDEFINES G-SUPPL-CLM-AMT-B 03530000 035400 PIC S9(7)V99. 03540000 035500 07 G-SUPPL-EXP-AMT-B. 03550000 035600 09 G-SUPPL-EXP-DLRS-B PIC 9(7). 03560000 035700 09 G-SUPPL-EXP-CNTS-B PIC 99. 03570000 035800 07 G-SUPPL-EXP-AMT-BS REDEFINES G-SUPPL-EXP-AMT-B 03580000 035900 PIC S9(7)V99. 03590000 036000 07 G-SUPPL-CLM-AMT-C. 03600000 036100 09 G-SUPPL-CLM-DLRS-C PIC 9(7). 03610000 036200 09 G-SUPPL-CLM-CNTS-C PIC 99. 03620000 036300 07 G-SUPPL-CLM-AMT-CS REDEFINES G-SUPPL-CLM-AMT-C 03630000 036400 PIC S9(7)V99. 03640000 036500 07 G-SUPPL-EXP-AMT-C. 03650000 036600 09 G-SUPPL-EXP-DLRS-C PIC 9(7). 03660000 036700 09 G-SUPPL-EXP-CNTS-C PIC 99. 03670000 036800 07 G-SUPPL-EXP-AMT-CS REDEFINES G-SUPPL-EXP-AMT-C 03680000 036900 PIC S9(7)V99. 03690000 037000 07 G-SUPPL-TOTAL-AMT. 03700000 037100 09 G-SUPPL-TOTAL-DLRS PIC 9(7). 03710000 037200 09 G-SUPPL-TOTAL-CNTS PIC 99. 03720000 037300 07 G-SUPPL-TOTAL-AMT-S REDEFINES 03730000 037400 G-SUPPL-TOTAL-AMT PIC S9(7)V99. 03740000 037500 05 G-PANEL-ATTORNEY-HRS-PAID. 03750000 037600 07 G-HOURS PIC 9(3). 03760000 037700 07 G-TENTHS-HRS PIC 9. 03770000 037800 05 G-PANEL-ATTORNEY-HOURS-PAID REDEFINES 03780000 037900 G-PANEL-ATTORNEY-HRS-PAID PIC 9(3)V9. 03790000 038000 05 G-STAFF-ATTORNEY-HOURS-PAID REDEFINES 03800000 038100 G-PANEL-ATTORNEY-HRS-PAID PIC S9(3)V9. 03810000 038200 05 G-CHECK-TYPE-INDICATOR PIC X(01). 03820000 038300 88 G-JUA-CHECK-INDICATOR VALUE 'J'. 03830000 038400 05 G-PAYMENT-STAGED-DATE. 03840000 038500 07 G-PAYMENT-STAGED-YR. 03850001 038600 09 G-PAYMENT-STAGED-CC PIC 9(02). 03860002 038700 09 G-PAYMENT-STAGED-YY PIC 9(02). 03870002 038800 07 G-PAYMENT-STAGED-DDD PIC 9(03). 03880002 038900 05 G-PAYMENT-STAGED-TIME PIC 9(8). 03890000 039000 05 G-ACE-COST-CONTAIN-DATA. 03900000 039100 07 G-CST-CNTN-IND PIC X. 03910000 039200 07 G-CST-CNTN-VEND-CD PIC X. 03920000 039300 07 G-CST-CNTN-SRVC-CD PIC X(02). 03930000 039400 07 G-CST-CNTN-SBMT-DT. 03940000 039500 09 G-CST-CNTN-SBMT-MM PIC XX. 03950000 039600 09 G-CST-CNTN-SBMT-DD PIC XX. 03960000 039700 09 G-CST-CNTN-SBMT-CC PIC XX. 03970000 039800 09 G-CST-CNTN-SBMT-YY PIC XX. 03980000 039900 07 G-CST-CNTN-ACTUL-BIL-AMT PIC 9(07)V99. 03990000 040000 07 G-CST-CNTN-RECOM-AMT PIC 9(07)V99. 04000000 040100 07 G-CST-CNTN-SRVC-CST-AMT PIC 9(05)V99. 04010000 040200 07 G-CST-CNTN-CHK-AMT PIC 9(07)V99. 04020000 41431 05 G-PAYMENT-REASONS. 04030000 41431 07 G-PAYMENT-REASON-A PIC X. 03920000 41431 07 G-PAYMENT-REASON-B PIC X. 03920000 41431 07 G-PAYMENT-REASON-C PIC X. 03920000 41431 07 G-PAYMENT-NOTUSED PIC XXX. 03920000 040400 05 G-MAILED-FROM PIC X. 04040000 040500 05 G-PRINT-LOCATION-IND PIC X. 04050000 040600 05 G-PAYMT-TMP-AUTH-DATA. 04060000 040700 07 G-PAYMT-TMP-TO-OFF PIC X(03). 04070000 040800 07 G-PAYMT-TMP-TO-ID PIC X(04). 04080000 040900 07 G-PAYMT-TMP-AUTH-ID PIC X(04). 04090000 041000 07 G-PAYMT-TMP-USED-DATE. 04100000 041100 09 G-PAYMT-TMP-USED-MM PIC X(02). 04110000 041200 09 G-PAYMT-TMP-USED-DD PIC X(02). 04120000 041300 09 G-PAYMT-TMP-USED-CC PIC X(02). 04130000 041400 09 G-PAYMT-TMP-USED-YY PIC X(02). 04140000 041500 07 G-PAYMT-TMP-EXPIRE-DATE. 04150000 041600 09 G-PAYMT-TMP-EXPIRE-MM PIC X(02). 04160000 041700 09 G-PAYMT-TMP-EXPIRE-DD PIC X(02). 04170000 041800 09 G-PAYMT-TMP-EXPIRE-CC PIC X(02). 04180000 041900 09 G-PAYMT-TMP-EXPIRE-YY PIC X(02). 04190000 042000 07 G-PAYMT-TMP-AUTH-AMT-X PIC X(09). 04200000 042100 07 G-PAYMT-TMP-AUTH-AMT REDEFINES 04210000 042200 G-PAYMT-TMP-AUTH-AMT-X PIC 9(07)V99. 04220000 042300 07 G-PAYMT-TMP-PAYS-ALLOWED PIC X(03). 04230000 042400 05 G-SUBRO-DESC-A PIC X(02). 04240000 042500 05 G-SUBRO-DESC-B PIC X(02). 04250000 042600 05 G-SUBRO-DESC-C PIC X(02). 04260000 042700 05 G-SUBRO-ANTICIPATED-IND PIC X(01). 04270000 042800 05 G-OLD-BANK-ACCT-NUMBER PIC X(13). 04280000 042900 05 G-OLD-MICR-NUMBER. 04290000 07 G-OLD-MICR-NUMBER-2 PIC X(02). 07 G-OLD-MICR-NUMBER-8 PIC X(08). 043000 05 G-OLD-TOTAL-AMOUNT. 04300000 043100 07 G-OLD-TOTAL-DOLLARS PIC 9(7). 04310000 043200 07 G-OLD-TOTAL-CENTS PIC 99. 04320000 043300 05 G-MICR-ACCT-AMT-UPDATE-DATE. 04330000 043400 07 G-UPDATE-MO PIC XX. 04340000 043500 07 G-UPDATE-DAY PIC XX. 04350000 043600 07 G-UPDATE-CC PIC XX. 04360000 043700 07 G-UPDATE-YR PIC XX. 04370000 043800 05 G-CHANGE-PEND-KEY PIC X(7). 04380000 043900 05 G-REVVOID-DATE. 04390000 044000 07 G-REVVOID-MO PIC XX. 04400000 044100 07 G-REVVOID-DAY PIC XX. 04410000 044200 07 G-REVVOID-CC PIC XX. 04420000 044300 07 G-REVVOID-YR PIC XX. 04430000 044400 05 G-CHARGE-TYPE PIC X. 04440000 044500 05 G-VOUCHER-TYPE PIC X. 04450000 044600 05 G-ISSUING-VENDOR. 04460000 044700 10 G-PAYMENT-SOURCE PIC X(01). 04470000 044800 88 AETNA-PAYMENT VALUE 'A'. 04480000 044900 88 HOST-CHECK-JCHECK VALUE 'H'. 04490000 045000 88 IMPACT-WKSTN VALUE 'I'. 04500000 045100 88 LIABILITY-WKSTN VALUE 'L'. 04510000 045200 88 ATS-PANEL-PAYMENT VALUE 'S'. 04520000 045300 88 UNKNOWN-SOURCE VALUE 'U'. 04530000 045400 88 VRU-PAYMENT VALUE 'V'. 04540000 045400 88 CORP-SYS VALUE 'C'. 04540000 SPAY 88 TRAVPRO-SIMP-PAYMENT VALUE 'T'. 04540000 88 SPC-CONVERTED-CHECK VALUE '1'. 045500 10 G-ISSUING-VENDOR-DUP PIC X(01). 04550000 045600 88 SUSPECT-DUP VALUE 'D'. 04560000 045700 88 REGULAR-TYP VALUE 'R'. 04570000 045800 88 UNKNOWN-TYP VALUE 'U'. 04580000 045900 10 G-ISSUING-VENDOR-UPD PIC X(01). 04590000 046000 88 REGULAR-NO-UPD VALUE 'G'. 04600000 046100 88 SUSPECT-DUP-NO-UPD VALUE 'P'. 04610000 046200 88 HOST-UPD-PAY-STAGE VALUE 'S'. 04620000 046300 88 HOST-UPD-PAY-ISSUED VALUE 'I'. 04630000 046400 88 HOST-UPD-PAY-STG-ISS VALUE 'B'. 04640000 046500 88 UNKNOWN-UPD VALUE 'U'. 04650000 046600 05 G-VENDOR-CODE PIC X(07). 04660000 046700 05 G-NY-SURCHARGE-ISSUE PIC X(01). 04670000 046800 05 G-NY-SURCHARGE-STOP PIC X(01). 04680000 046900 05 G-NY-SURCHARGE-CANCEL PIC X(01). 04690000 00381 05 G-IRS-ATTY-IND PIC X(01). CL*12 00381 05 G-IRS-WH-LINKED-SEQ-NUM PIC X(3). CL*12 05 G-BILL-CONTROL-NUM PIC X(12). 00381 05 G-PAYMENT-UNUSED-2 PIC X(09). CL*12 05 G-ACCOUNT-BANK-CODE PIC X(03). 05 G-PL-INITIAL-BTL-DATE. 10 G-PL-BTL-DATE-MM PIC XX. 10 G-PL-BTL-DATE-DD PIC XX. 10 G-PL-BTL-DATE-CC PIC XX. 10 G-PL-BTL-DATE-YY PIC XX. 05 G-PL-PAYMENT-CHANGE-DATE. 10 G-PL-CHANGE-DATE-MM PIC XX. 10 G-PL-CHANGE-DATE-DD PIC XX. 10 G-PL-CHANGE-DATE-CC PIC XX. 10 G-PL-CHANGE-DATE-YY PIC XX. 05 G-PAYE-CONT-IND PIC X. 05 FILLER PIC X(476). 047100 EJECT 04710000 00001 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02/03/93 00002 * H CREDIT SEGMENT * PSCRCRED 00003 * CPCSLIB SUBSET SCRCREDIT * IT LV005 00004 * SEGMENT LENGTH 300 BYTES * PSCRCRED 00005 * * PSCRCRED 00006 * UPDATE LOG * PSCRCRED 00007 * 11/01/83 DMM "D" L-203 ADDED 1 INDICATOR PER COVERAGE * PSCRCRED 00008 * CODE FOR FIRST/ADDITIONAL. * PSCRCRED 00007 * 05/16/93 JCP CREDIT ADDED CHANGE-DATE AND OLD * PSCRCRED 00007 * AMOUNT RECOVERED - TO BE USED * PSCRCRED 00007 * IN CONTROLS PROCESSING * PSCRCRED 00007 * 11/14/93 JCP CREDIT ADDED CVLIST-DATE TO BE USED * PSCRCRED 00007 * IN CONTROLS PROCESSING * PSCRCRED 00007 * 03/09/97 SLUSARCZYK ADDED TAX-ID AND NY-SURCHARGE * PSCRCRED 00007 * 03/07/97 JMBONNEY Y2KEANE ADDED CENTURY FOR YEAR 2000 * PSCRCRED 1522 * APRIL '05 EXPANDED VOUCHER NUMBER * PSCRCRED 00009 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PSCRCRED 00010 SKIP2 PSCRCRED 00011 03 H-CREDIT-SEGMENT REDEFINES SCRFILE-FINANCIAL-SEGMENT. PSCRCRED 00012 05 H-SEGMENT-KEY. PSCRCRED 00013 07 H-FIN-SEQ-NUM PIC XXX. PSCRCRED 00014 05 H-REFERENCE-DATE. PSCRCRED 00015 07 H-RD-MO PIC XX. PSCRCRED 00016 07 H-RD-DAY PIC XX. PSCRCRED 00017 07 H-RD-CC PIC XX. PSCRCRED 00017 07 H-RD-YR PIC XX. PSCRCRED 1522 05 H-VOUCHER-NUMBER. PSCRCRED 1522 07 H-VOUCHER-NUMBER-2 PIC XX. 1522 07 H-VOUCHER-NUMBER-8 PIC X(8). 00019 05 H-STATUS-IND PIC X. PSCRCRED 00020 05 H-SCREEN-DATA. PSCRCRED 00021 07 H-AUTH-ID PIC X(4). PSCRCRED 00022 07 H-AUTH-OFF PIC XXX. PSCRCRED 00023 07 H-AMOUNT-RECOVERED PIC 9(7)V99. PSCRCRED 00024 07 H-RECOVERY-TYPE PIC X. PSCRCRED 00025 88 SUBRO-TYPE VALUE '1'. PSCRCRED 00026 88 SALVAGE-TYPE VALUE '2'. PSCRCRED 00027 88 OVERPAYMENT-TYPE VALUE '3'. PSCRCRED 00028 88 MISC-TYPE VALUE '4'. PSCRCRED 00029 88 PIP-TYPE VALUE '5'. PSCRCRED 88 DEDUCTIBLE-RECOV VALUE '6'. 00030 07 H-COV-CODE-A PIC XXXX. PSCRCRED 00031 07 H-KIND-A PIC X(5). PSCRCRED 00032 07 H-CLAIM-AMT-A PIC 9(7)V99. PSCRCRED 00033 07 H-EXP-AMT-A PIC 9(7)V99. PSCRCRED 00034 07 H-EXP-DESC-A PIC XX. PSCRCRED 00035 07 H-COV-CODE-B PIC XXXX. PSCRCRED 00036 07 H-KIND-B PIC X(5). PSCRCRED 00037 07 H-CLAIM-AMT-B PIC 9(7)V99. PSCRCRED 00038 07 H-EXP-AMT-B PIC 9(7)V99. PSCRCRED 00039 07 H-EXP-DESC-B PIC XX. PSCRCRED 00040 07 H-COV-CODE-C PIC XXXX. PSCRCRED 00041 07 H-KIND-C PIC X(5). PSCRCRED 00042 07 H-CLAIM-AMT-C PIC 9(7)V99. PSCRCRED 00043 07 H-EXP-AMT-C PIC 9(7)V99. PSCRCRED 00044 07 H-EXP-DESC-C PIC XX. PSCRCRED 00045 07 H-SOLD-TO-NAME PIC X(51). PSCRCRED 00046 07 H-SOLD-TO-ADDR. PSCRCRED 00047 09 H-SOLD-TO-STREET PIC X(25). PSCRCRED 00048 09 H-SOLD-TO-CITY PIC X(13). PSCRCRED 00049 09 H-SOLD-TO-STATE PIC XX. PSCRCRED 00050 09 H-SOLD-TO-ZIP-9. PSCRCRED 00051 11 H-SOLD-TO-ZIP PIC X(5). PSCRCRED 00052 11 H-SOLD-TO-ZIP-LAST-4 PIC X(4). PSCRCRED 00053 05 H-CHANGE-DUE PIC X. PSCRCRED 00054 05 H-CAUSE-LOSS-COD PIC XXX. PSCRCRED 00055 05 H-FA-CREDIT-IND-A PIC X. PSCRCRED 00056 05 H-FA-CREDIT-IND-B PIC X. PSCRCRED 00057 05 H-FA-CREDIT-IND-C PIC X. PSCRCRED 00058 05 H-SUBRO-DESC-A PIC X(2). CL**2 00059 05 H-SUBRO-DESC-B PIC X(2). CL**2 00060 05 H-SUBRO-DESC-C PIC X(2). CL**2 00061 05 H-SUBRO-TYPE PIC X. CL**4 00014 05 H-CHG-REFERENCE-DATE. PSCRCRED 00015 07 H-CHG-RD-MO PIC XX. PSCRCRED 00016 07 H-CHG-RD-DAY PIC XX. PSCRCRED 00017 07 H-CHG-RD-CC PIC XX. PSCRCRED 00017 07 H-CHG-RD-YR PIC XX. PSCRCRED 00023 05 H-OLD-AMOUNT-RECOVERED PIC 9(7)V99. PSCRCRED 00014 05 H-CVLIST-DATE. PSCRCRED 00015 07 H-CVLIST-MO PIC XX. PSCRCRED 00016 07 H-CVLIST-DAY PIC XX. PSCRCRED 00017 07 H-CVLIST-CC PIC XX. PSCRCRED 00017 07 H-CVLIST-YR PIC XX. PSCRCRED 05 H-PRINT-LOCATION PIC XXX. 05 H-TAX-ID PIC X(9). 05 H-NY-SURCHARGE-APPLIED PIC X(1). 1522 05 H-CREDIT-UNUSED PIC X(22). CL**4 00063 EJECT PSCRCRED 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* SCR/CMF MISC NAME SEGMENT * 00020000 000300* CPCSLIB SUBSET NAMESEG * 00030000 000400***************************************************************** 00040000 000500* M A I N T E N A N C E L O G * 00050000 000600***************************************************************** 00060000 000700* * 00070000 000800* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00080000 000900***************************************************************** 00090000 001000* 01/25/90 CATHY M ACE CREATED * 00100000 001100* 08/28/90 SSHAYER ACE ADD FGN-DFNS-IND AND ASGN- * 00110000 001200* OR-CHG-DT TO ATTY 00120000 001300* 11/14/93 DGULDEN MNOL ADD 1-800 MULTI-LINE DATA ITEMS00130000 001400* 01/09/94 DMICHAUD AIB ADD AIB FIELDS USED FO NAMES * 00140000 001500* 10/31/94 MASCIADRELLI PLWKSTN ADDED FIELDS TO M-VEH * 00150000 001600* 03/10/96 BATT SURCHG ADD SURCHARGE: KEY 'S' * 00160000 001600* 06/09/96 SCHWARTZ SPAT ADD 88 LVL M-SPATS-PANEL-ATTY* 00161000 001600* 06/09/96 BATT PR53 ADD ADDL SURCHARG FIELDS * 00162000 * 04/15/97 EDWARDS Y2KEANE ADDED CENTURY FOR YEAR 2000 * 00162100 * 09/10/00 LAM HUYNH SURCHG INCREASE LICENSE# TO 25 BYTES* 00162200 PARTII* 11/12/00 BATTISTINI ADDED PARTIC_SELECTED CAT/TYPE/DATETIME KEY 00150000 * INFO TO APPLICABLE SEGMENT TYPE ATTY/PHYS/VEH-CON/CLMT-INS/HOSP 00150000 * FROM PARTIC_SELECTED FETCH FOR CONVERTED NAME INFO - THESE ARE 00150000 * HOLD FIELDS - THEY ARE NOT ON THE IMS NAME SEGMENT - THEY ARE 00150000 * BEING HELD TO COMPLETE A FULL KEY WHEN UPDATE IS PROCESSED * TO PARTIC_SELECTED 001600* 09/09/01 LAM HUYNH DCDDP ADD FIELDS FOR DUPS FROM CLOSE. 00162000 185829* 05/17/09 COGNIZANT SURG ADDED FORM TYPE FOR SURCHARGE * 001700***************************************************************** 00163000 001800* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00164000 001900 00165000 002000 03 M-MISC-NAME-SEGMENT PIC X(300). 00166000 002100 03 M-NAME-SEGMENT REDEFINES M-MISC-NAME-SEGMENT. 00167000 002200 05 M-SEGMENT-KEY. 00168000 002300 07 M-NAME-TYP-CD PIC X(01). 00169000 002400 88 M-PLTF-ATTY VALUE 'A'. 00170000 002500 88 M-DFNS-ATTY VALUE 'D'. 00180000 002600 88 M-PHYS VALUE 'P'. 00190000 002700 88 M-WC-EMPL-ATTY VALUE 'W'. 00200000 002800 88 M-WC-PRIM-PHYS VALUE 'P'. 00210000 002900 88 M-WC-REFRL-PHYS VALUE 'R'. 00220000 003000 88 M-WC-IME-PHYS VALUE 'I'. 00230001 003100 88 M-VEH-CONTACT VALUE 'V'. 00240000 003200 88 M-CLMT-INS-CO VALUE 'C'. 00250000 003300 88 M-HOSPITAL VALUE 'H'. 00260000 003400 88 M-EMPLOYER VALUE 'E'. 00270000 003500 88 M-AIB VALUE 'B'. 00280000 003600 88 M-SURCHARGE VALUE 'S'. 00290000 003700 07 M-NAME-SEQ-NBR PIC 9(02). 00300000 003800 07 M-AIB-COV-SEQ REDEFINES 00310000 003900 M-NAME-SEQ-NBR PIC 9(02). 00320000 004000 05 M-ATTY-INFO. 00330000 004100 07 M-DFNS-ATTY-CD PIC X(01). 00340000 004200 88 M-STAFF-ATTY VALUE 'S'. 00350000 004300 88 M-PANEL-ATTY VALUE 'P'. 00360000 004300 88 M-SPATS-PANEL-ATTY VALUE 'A'. 00370000 004400 88 M-OTHER VALUE 'O'. 00380000 004500 88 M-EXTENSION VALUE 'E'. 00390000 004600 07 M-ATTY-PRTN-ASSOC-IND PIC X(01). 00400000 004700 88 M-PARTNER VALUE 'P'. 00410000 004800 88 M-ASSOCIATE VALUE 'A'. 00420000 004900 07 M-ATTY-NM PIC X(51). 00430000 005000 07 M-ATTY-LEG-FIRM-NM PIC X(51). 00440000 005100 07 M-ATTY-STR-ADR PIC X(25). 00450000 005200 07 M-ATTY-CTY-ADR PIC X(13). 00460000 005300 07 M-ATTY-ST-ADR PIC X(02). 00470000 005400 07 M-ATTY-ADR-ZIP-CD. 00480000 005500 09 M-ATTY-ZIP PIC X(05). 00490000 005600 09 M-ATTY-ZIP-LAST4 PIC X(04). 00500000 005700 07 M-ATTY-TEL-NBR PIC X(10). 00510000 005800 07 M-ATTY-TAX-ID-NBR PIC X(09). 00520000 005900 07 M-FST-NTFY-ATTY-REP-DT. 00530000 006000 09 M-FST-NTFY-ATTY-REP-MM PIC XX. 00540000 006100 09 M-FST-NTFY-ATTY-REP-DD PIC XX. 00550000 006200 09 M-FST-NTFY-ATTY-REP-CC PIC XX. 00560000 006200 09 M-FST-NTFY-ATTY-REP-YY PIC XX. 00561000 006300 07 M-ATTY-FST-CNTC-DT. 00570000 006400 09 M-ATTY-FST-CNTC-MM PIC XX. 00580000 006500 09 M-ATTY-FST-CNTC-DD PIC XX. 00590000 006600 09 M-ATTY-FST-CNTC-CC PIC XX. 00600000 006600 09 M-ATTY-FST-CNTC-YY PIC XX. 00601000 006700 07 M-ATTY-USED-IND PIC X(01). 00610000 006800 07 M-ATTY-FGN-DFNS-FIRM-IND PIC X(01). 00620000 006900 07 M-ATTY-ASGN-OR-CHG-DT. 00630004 09 M-ATTY-ASGN-OR-CHG-DT-MM PIC X(02). 00631004 09 M-ATTY-ASGN-OR-CHG-DT-DD PIC X(02). 00632004 09 M-ATTY-ASGN-OR-CHG-DT-CC PIC X(02). 00633004 09 M-ATTY-ASGN-OR-CHG-DT-YY PIC X(02). 00634004 007000 07 M-ATTY-SUIT-IND PIC X(01). 00640000 007100 07 M-ATTY-DATE-OF-SERV. 00650009 09 M-ATTY-DATE-OF-SERV-CC PIC X(02). 00651010 09 M-ATTY-DATE-OF-SERV-YY PIC X(02). 00652010 09 M-ATTY-DATE-OF-SERV-MM PIC X(02). 00653010 09 M-ATTY-DATE-OF-SERV-DD PIC X(02). 00654010 PARTII 07 M-ATTY-HOLD-PART-KEY. 00660012 09 M-ATTY-HOLD-CAT PIC X(03). 00651010 09 M-ATTY-HOLD-TYPE PIC X(08). 00651010 09 M-ATTY-HOLD-DT-TIME PIC X(26). 00651010 007200 07 FILLER PIC X(52). 00660012 007300 00670000 007400 05 M-PHYS-INFO REDEFINES M-ATTY-INFO. 00680000 007500 00690000 007600 07 M-PHYS-NM PIC X(51). 00700000 007700 07 M-PHYS-STR-ADR PIC X(25). 00710000 007800 07 M-PHYS-CTY-ADR PIC X(13). 00720000 007900 07 M-PHYS-ST-ADR PIC X(02). 00730000 008000 07 M-PHYS-ADR-ZIP-CD. 00740000 008100 09 M-PHYS-ZIP PIC X(05). 00750000 008200 09 M-PHYS-ZIP-LAST4 PIC X(04). 00760000 008300 07 M-PHYS-TEL-NBR PIC X(10). 00770000 008400 07 M-PHYS-TAX-ID-NBR PIC X(09). 00780000 008500 07 M-PHYS-SPEC-CD PIC X(03). 00790000 008600 07 M-PROV-INFO-NBR PIC X(12). 00800000 008700 07 M-PHYS-FST-CNTC-DT. 00810000 008800 09 M-PHYS-FST-CNTC-MM PIC XX. 00820000 008900 09 M-PHYS-FST-CNTC-DD PIC XX. 00830000 009000 09 M-PHYS-FST-CNTC-CC PIC XX. 00840000 009000 09 M-PHYS-FST-CNTC-YY PIC XX. 00841000 009100 07 M-IME-PHYS-USED-IND PIC X(01). 00850000 009200 07 M-PHYS-SPECIAL PIC X(20). 00860000 009300 07 M-PHYS-TREAT PIC X(30). 00870000 009400 07 M-PHYS-FIRST-TREAT-DATE. 00880009 09 M-PHYS-FIRST-TREAT-DATE-CC PIC X(02). 00881009 09 M-PHYS-FIRST-TREAT-DATE-YY PIC X(02). 00882009 09 M-PHYS-FIRST-TREAT-DATE-MM PIC X(02). 00883009 09 M-PHYS-FIRST-TREAT-DATE-DD PIC X(02). 00884009 PARTII 07 M-PHYS-HOLD-PART-KEY. 00660012 09 M-PHYS-HOLD-CAT PIC X(03). 00651010 09 M-PHYS-HOLD-TYPE PIC X(08). 00651010 09 M-PHYS-HOLD-DT-TIME PIC X(26). 00651010 009500 07 FILLER PIC X(56). 00890011 009600 00900000 009700 05 M-VEH-CONTACT-INFO REDEFINES M-ATTY-INFO. 00910000 009800 07 M-VEH-CONTACT-NM1 PIC X(51). 00920000 009900 07 M-VEH-CONTACT-NM2 PIC X(51). 00930000 010000 07 M-VEH-CONTACT-STR PIC X(25). 00940000 010100 07 M-VEH-CONTACT-CITY PIC X(13). 00950000 010200 07 M-VEH-CONTACT-ST PIC X(02). 00960000 010300 07 M-VEH-CONTACT-ZIP9 PIC X(09). 00970000 010400 07 M-VEH-CONTACT-PHONE PIC X(10). 00980000 010500* PLWKSTN FIELDS 00990000 010600 07 M-VEH-CONTACT-WHERE PIC X(18). 01000000 010700 07 M-VEH-CONTACT-WHEN PIC X(17). 01010000 010800 07 M-VEH-CONTACT-BUS-PHONE PIC X(10). 01020000 010900 07 M-VEH-CONTACT-BUS-EXT PIC X(04). 01030000 011000 07 M-VEH-CONTACT-RELATIONSHIP PIC X(25). 01040000 PARTII 07 M-VEH-CONTACT-HOLD-PART-KEY. 00660012 09 M-VEH-HOLD-CAT PIC X(03). 00651010 09 M-VEH-HOLD-TYPE PIC X(08). 00651010 09 M-VEH-HOLD-DT-TIME PIC X(26). 00651010 011100 07 FILLER PIC X(24). 01050000 011200 01060000 011300 05 M-CLMT-INS-CO-INFO REDEFINES M-ATTY-INFO. 01070000 011400 07 M-CLMT-INS-CO-NAME PIC X(51). 01080000 011500 07 M-CLMT-INS-CO-STR PIC X(25). 01090000 011600 07 M-CLMT-INS-CO-CITY PIC X(13). 01100000 011700 07 M-CLMT-INS-CO-ST PIC X(02). 01110000 011800 07 M-CLMT-INS-CO-ZIP9 PIC X(09). 01120000 011900 07 M-CLMT-INS-CO-PHONE PIC X(10). 01130000 012000 07 M-CLMT-INS-CO-POL-ID PIC X(25). 01140000 012100 07 M-CLMT-INS-CO-CLAIM-NUM PIC X(25). 01150000 012200 07 M-CLMT-INS-CO-AGENT-NM PIC X(51). 01160000 PARTII 07 M-CLMT-INS-HOLD-PART-KEY. 00660012 09 M-CLMT-INS-HOLD-CAT PIC X(03). 00651010 09 M-CLMT-INS-HOLD-TYPE PIC X(08). 00651010 09 M-CLMT-INS-HOLD-DT-TIME PIC X(26). 00651010 012300 07 FILLER PIC X(48). 01170000 012400 01180000 012500 05 M-HOSPITAL-INFO REDEFINES M-ATTY-INFO. 01190000 012600 07 M-HOSP-NAME PIC X(51). 01200000 012700 07 M-HOSP-STR PIC X(25). 01210000 012800 07 M-HOSP-CITY PIC X(13). 01220000 012900 07 M-HOSP-ST PIC X(02). 01230000 013000 07 M-HOSP-ZIP9 PIC X(09). 01240000 013100 07 M-HOSP-PHONE PIC X(10). 01250000 013200 07 M-HOSP-TREAT PIC X(30). 01260000 013300 07 M-HOSP-TIME-OF-STAY PIC X(10). 01270000 013400 07 M-HOSP-FIRST-TREAT-DATE. 01280009 09 M-HOSP-FIRST-TREAT-DATE-CC PIC X(02). 01281009 09 M-HOSP-FIRST-TREAT-DATE-YY PIC X(02). 01282009 09 M-HOSP-FIRST-TREAT-DATE-MM PIC X(02). 01283009 09 M-HOSP-FIRST-TREAT-DATE-DD PIC X(02). 01284009 PARTII 07 M-HOPS-HOLD-PART-KEY. 00660012 09 M-HOSP-HOLD-CAT PIC X(03). 00651010 09 M-HOSP-HOLD-TYPE PIC X(08). 00651010 09 M-HOSP-HOLD-DT-TIME PIC X(26). 00651010 013500 07 FILLER PIC X(99). 01290011 013600 01300000 013700 05 M-EMPLOYER-INFO REDEFINES M-ATTY-INFO. 01310000 013800 07 M-EMPL-NAME PIC X(51). 01320000 013900 07 M-EMPL-STR PIC X(25). 01330000 014000 07 M-EMPL-CITY PIC X(13). 01340000 014100 07 M-EMPL-ST PIC X(02). 01350000 014200 07 M-EMPL-ZIP9 PIC X(09). 01360000 014300 07 M-EMPL-PHONE PIC X(10). 01370000 014400 07 FILLER PIC X(186). 01380000 014500 01390000 014600 05 M-AIB-INFO REDEFINES M-ATTY-INFO. 01400000 014700 07 M-AIB-TOWN-CODE PIC X(03). 01410000 014800 07 M-AIB-TOWN-NAME PIC X(20). 01420000 014900 07 M-AIB-CMT-DOB PIC X(08). 01430000 015000 07 M-AIB-EMERG-IND PIC X(01). 01440000 015100 07 M-AIB-HEALTH-IND PIC X(01). 01450000 015200 07 M-AIB-TYPE-INJ PIC X(02). 01460000 015300 07 M-AIB-INJ-DESC PIC X(20). 01470000 015400 07 M-AIB-TYP-PROV1 PIC X(01). 01480000 015500 07 M-AIB-TYP-DESCR1 PIC X(20). 01490000 015600 07 M-AIB-PROV1-NUM PIC X(06). 01500000 015700 07 M-AIB-AMT-BILLED1 PIC 9(10). 01510000 015800 07 M-AIB-AMT-PAID1 PIC 9(10). 01520000 015900 07 M-AIB-DFT1 PIC X(08). 01530000 016000 07 M-AIB-TYP-PROV2 PIC X(01). 01540000 016100 07 M-AIB-TYP-DESCR2 PIC X(20). 01550000 016200 07 M-AIB-PROV2-NUM PIC X(06). 01560000 016300 07 M-AIB-AMT-BILLED2 PIC 9(10). 01570000 016400 07 M-AIB-AMT-PAID2 PIC 9(10). 01580000 016500 07 M-AIB-DFT2 PIC X(08). 01590000 016600 07 M-AIB-ATTY-TYPE PIC X(01). 01600000 016700 07 M-AIB-ATTY-NUM PIC X(06). 01610000 016800 07 M-AIB-IME-REQ PIC X(01). 01620000 016900 07 M-AIB-IME-RES PIC X(01). 01630000 017000 07 M-AIB-IME-AMT-SAVED PIC X(10). 01640000 017100 07 M-AIB-MED-REQ PIC X(01). 01650000 017200 07 M-AIB-MED-RES PIC X(01). 01660000 017300 07 M-AIB-MED-AMT-SAVED PIC X(10). 01670000 017400 07 M-AIB-SIU-REQ PIC X(01). 01680000 017500 07 M-AIB-SIU-RES PIC X(01). 01690000 017600 07 M-AIB-SIU-AMT-SAVED PIC X(10). 01700000 017700 07 M-AIB-STAT-IND PIC X(01). 01710000 017800 07 M-AIB-ERR-NUMBER PIC X(07). 01720000 017900 07 M-AIB-PREV-PD-TOT PIC 9(10). 01730000 017900 07 M-AIB-DCD-UPDT-IND PIC X(01). 01730000 017900 07 FILLER PIC X(69). 01730000 018000 05 M-SURCHG-INFO REDEFINES M-ATTY-INFO. 01740000 018100 07 M-SURCHG-LOSS-CODE PIC X(02). 01750000 018200 07 M-SURCHG-SURCHARGE-CODE PIC X(02). 01760000 018300 07 M-SURCHG-LOSS-AMT PIC X(06). 01770000 018400 07 M-SURCHG-TRANS-CODE PIC X(02). 01780000 018500 07 M-SURCHG-AMEND PIC X(01). 01790000 018600 07 M-SURCHG-REV-REASON PIC X(02). 01800000 018700 07 M-SURCHG-INC-DEC PIC X(01). 01810000 018800 07 M-SURCHG-INSRD-1ST-NAME PIC X(10). 01820000 018900 07 M-SURCHG-INSRD-MID-INIT PIC X(01). 01830000 019000 07 M-SURCHG-INSRD-LAST-NAME PIC X(20). 01840000 019100 07 M-SURCHG-INSRD-DOB PIC X(08). 01850000 019200 07 M-SURCHG-INSRD-LIC-NUM PIC X(25). 01860000 019300 07 M-SURCHG-INSRD-LIC-ST PIC X(02). 01870000 019400 07 M-SURCHG-OPER-SAME-CODE PIC X(01). 01880000 019500 07 M-SURCHG-OPER-1ST-NAME PIC X(10). 01890000 019600 07 M-SURCHG-OPER-MID-INIT PIC X(01). 01900000 019700 07 M-SURCHG-OPER-LAST-NAME PIC X(20). 01910000 019800 07 M-SURCHG-OPER-DOB PIC X(08). 01920000 019900 07 M-SURCHG-OPER-LIC-NUM PIC X(25). 01930000 020000 07 M-SURCHG-OPER-LIC-ST PIC X(02). 01940000 020100 07 M-SURCHG-OPER-STREET PIC X(26). 01950000 020200 07 M-SURCHG-OPER-CITY PIC X(20). 01960000 020300 07 M-SURCHG-OPER-ST PIC X(02). 01970000 020400 07 M-SURCHG-OPER-ZIP PIC X(05). 01980000 020500 07 M-SURCHG-COMP-PAYEE-NAME PIC X(15). 01990000 020600 07 M-SURCHG-COMP-PAYEE-STREET PIC X(15). 02000000 020600 07 M-SURCHG-1ST-PAYMT-DATE PIC X(08). 02010000 020600 07 M-SURCHG-ACCIDENT-CITY PIC X(20). 02020000 020600 07 M-SURCHG-GARAGE-CITY PIC X(20). 02030000 185829 07 M-SURCHG-FORM-TYPE PIC X(01). 185829 88 M-SURCHG-NEW-FORM VALUE 'N'. 185829 88 M-SURCHG-OLD-FORM VALUE 'O'. 185829 07 FILLER PIC X(15). 02040000 018000 05 M-SURCHG-OLD-INFO REDEFINES M-ATTY-INFO. 02041003 018100 07 FILLER PIC X(55). 02042001 019200 07 M-OLD-INSRD-LIC-NUM PIC X(09). 02049402 019300 07 M-OLD-INSRD-LIC-ST PIC X(02). 02049502 019400 07 M-OLD-OPER-SAME-CODE PIC X(01). 02049602 019500 07 M-OLD-OPER-1ST-NAME PIC X(10). 02049702 019600 07 M-OLD-OPER-MID-INIT PIC X(01). 02049802 019700 07 M-OLD-OPER-LAST-NAME PIC X(20). 02049902 019800 07 M-OLD-OPER-DOB PIC X(08). 02050002 019900 07 M-OLD-OPER-LIC-NUM PIC X(09). 02050102 020000 07 M-OLD-OPER-LIC-ST PIC X(02). 02050202 020100 07 M-OLD-OPER-STREET PIC X(26). 02050302 020200 07 M-OLD-OPER-CITY PIC X(20). 02050402 020300 07 M-OLD-OPER-ST PIC X(02). 02050502 020400 07 M-OLD-OPER-ZIP PIC X(05). 02050602 020500 07 M-OLD-COMP-PAYEE-NAME PIC X(15). 02050702 020600 07 M-OLD-COMP-PAYEE-STREET PIC X(15). 02050802 020600 07 M-OLD-1ST-PAYMT-DATE PIC X(08). 02050902 020600 07 M-OLD-ACCIDENT-CITY PIC X(20). 02051002 020600 07 M-OLD-GARAGE-CITY PIC X(20). 02051102 020700 07 FILLER PIC X(48). 02040000 020800 02050000 020900 05 M-DELETED-IND PIC X(01). 02060000 021000 02070000 00001 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 11/05/92 00002 * V PAYMENT CHANGE PENDING SEGMENT * PSCRPEND 00003 * PSCRPEND * LV002 00004 * SEGMENT LENGTH 700 BYTES * PSCRPEND 00005 * * PSCRPEND 00006 ***************************************************************** PSCRPEND 00007 * M A I N T E N A N C E L O G * PSCRPEND 00008 ***************************************************************** PSCRPEND 00009 * * PSCRPEND 00010 * DATE NAME SR/DISC DESCRIPTION OF CHANGE * PSCRPEND 00011 ***************************************************************** PSCRPEND 00012 * 03/13/92 K STOTT CHECK REC CREATED NEW INCLUDE * PSCRPEND 00013 * 10/12/92 D GULDEN ADD SUBRO DESC AND ANTICIPATED IND * CL**2 00013 * 09/15/96 R ALLEN MANC ADDED V-DATE-OF-ISSUE FIELD * CL**2 00013 * TO ALLOW MANUAL CHECK DOI CHANGE * CL**2 * 04/15/97 BBERMAN Y2KEANE ADDED CENTURY TO DATES * 00013 * 03/15/98 NBAILEY IRS ADD IRS-ATTY-IND * CL**2 1522 * 11/30/04 G TOBLER PROJECT# 1522 ADDED 2 BYTES FOR THE CHECK* 1522 * SPMICR NUMBER EXPANSION PROJECT. * 00014 ***************************************************************** PSCRPEND 00015 03 V-CHECK-PEND-SEGMENT. PSCRPEND 00016 05 V-CHECK-PEND-SEGMENT-KEY. PSCRPEND 00017 07 V-CHECK-PEND-TYP-CD PIC X(4). PSCRPEND 00018 07 V-CHECK-PEND-SEQ-NBR PIC 9(3). PSCRPEND 1522 05 V-MICR-NUMBER. PSCRPEND 1522 10 V-MICR-NUMBER-2 PIC X(2). PSCRPEND 1522 10 V-MICR-NUMBER-8 PIC X(8). PSCRPEND 00020 05 V-BANK-ACCT-NUMBER PIC X(13). PSCRPEND 00021 05 V-MLTPAY-SECTION. PSCRPEND 00022 07 V-MLTPAY-TOT-CHK-AMT PIC 9(8)V99. PSCRPEND 00023 07 V-MLTPAY-ORIG-BNK-CD PIC X(3). PSCRPEND 00024 07 V-MLTPAY-CLM-EXP-IND PIC X(1). PSCRPEND 00025 88 CLAIM-TO-EXP-CHNG VALUE '1'. PSCRPEND 00026 88 EXP-TO-CLAIM-CHNG VALUE '2'. PSCRPEND 00027 05 V-SCREEN-DATA. PSCRPEND 00028 07 V-AUTH-ID PIC X(4). PSCRPEND 00029 07 V-TOTAL-AMOUNT. PSCRPEND 00030 09 V-TOTAL-DOLLARS PIC 9(7). PSCRPEND 00031 09 V-TOTAL-CENTS PIC 99. PSCRPEND 00032 07 V-IRS-IND PIC X. PSCRPEND 00033 07 V-TAX-ID. PSCRPEND 00034 09 V-TAX-ID-NUM PIC X(9). PSCRPEND 00035 09 V-TAX-ID-CONSTANT PIC X. PSCRPEND 00036 07 V-COV-CODE-A PIC X(4). PSCRPEND 00037 07 V-KIND-A PIC X(5). PSCRPEND 00038 07 V-CLAIM-AMT-A. PSCRPEND 00039 09 V-CLAIM-DOLLARS-A PIC 9(7). PSCRPEND 00040 09 V-CLAIM-CENTS-A PIC 99. PSCRPEND 00041 07 V-CLAIM-AMT-AS REDEFINES V-CLAIM-AMT-A PSCRPEND 00042 PIC S9(7)V99. PSCRPEND 00043 07 V-EXPENSE-AMT-A. PSCRPEND 00044 09 V-EXPENSE-DOLLARS-A PIC 9(7). PSCRPEND 00045 09 V-EXPENSE-CENTS-A PIC 99. PSCRPEND 00046 07 V-EXPENSE-AMT-AS REDEFINES V-EXPENSE-AMT-A PSCRPEND 00047 PIC S9(7)V99. PSCRPEND 00048 07 V-EXPENSE-DESC-A PIC XX. PSCRPEND 00049 07 V-FROM-DATE-A. PSCRPEND 00050 09 V-F-MO-A PIC XX. PSCRPEND 00051 09 V-F-DAY-A PIC XX. PSCRPEND 00051 09 V-F-CC-A PIC XX. PSCRPEND 00052 09 V-F-YR-A PIC XX. PSCRPEND 00053 07 V-TO-DATE-A. PSCRPEND 00054 09 V-T-MO-A PIC XX. PSCRPEND 00055 09 V-T-DAY-A PIC XX. PSCRPEND 00055 09 V-T-CC-A PIC XX. PSCRPEND 00056 09 V-T-YR-A PIC XX. PSCRPEND 00057 07 V-COV-CODE-B PIC X(4). PSCRPEND 00058 07 V-KIND-B PIC X(5). PSCRPEND 00059 07 V-CLAIM-AMT-B. PSCRPEND 00060 09 V-CLAIM-DOLLARS-B PIC 9(7). PSCRPEND 00061 09 V-CLAIM-CENTS-B PIC 99. PSCRPEND 00062 07 V-CLAIM-AMT-BS REDEFINES V-CLAIM-AMT-B PSCRPEND 00063 PIC S9(7)V99. PSCRPEND 00064 07 V-EXPENSE-AMT-B. PSCRPEND 00065 09 V-EXPENSE-DOLLARS-B PIC 9(7). PSCRPEND 00066 09 V-EXPENSE-CENTS-B PIC 99. PSCRPEND 00067 07 V-EXPENSE-AMT-BS REDEFINES V-EXPENSE-AMT-B PSCRPEND 00068 PIC S9(7)V99. PSCRPEND 00069 07 V-EXPENSE-DESC-B PIC XX. PSCRPEND 00070 07 V-FROM-DATE-B. PSCRPEND 00071 09 V-F-MO-B PIC XX. PSCRPEND 00072 09 V-F-DAY-B PIC XX. PSCRPEND 00072 09 V-F-CC-B PIC XX. PSCRPEND 00073 09 V-F-YR-B PIC XX. PSCRPEND 00074 07 V-TO-DATE-B. PSCRPEND 00075 09 V-T-MO-B PIC XX. PSCRPEND 00076 09 V-T-DAY-B PIC XX. PSCRPEND 00076 09 V-T-CC-B PIC XX. PSCRPEND 00077 09 V-T-YR-B PIC XX. PSCRPEND 00078 07 V-COV-CODE-C PIC X(4). PSCRPEND 00079 07 V-KIND-C PIC X(5). PSCRPEND 00080 07 V-CLAIM-AMT-C. PSCRPEND 00081 09 V-CLAIM-DOLLARS-C PIC 9(7). PSCRPEND 00082 09 V-CLAIM-CENTS-C PIC 99. PSCRPEND 00083 07 V-CLAIM-AMT-CS REDEFINES V-CLAIM-AMT-C PSCRPEND 00084 PIC S9(7)V99. PSCRPEND 00085 07 V-EXPENSE-AMT-C. PSCRPEND 00086 09 V-EXPENSE-DOLLARS-C PIC 9(7). PSCRPEND 00087 09 V-EXPENSE-CENTS-C PIC 99. PSCRPEND 00088 07 V-EXPENSE-AMT-CS REDEFINES V-EXPENSE-AMT-C PSCRPEND 00089 PIC S9(7)V99. PSCRPEND 00090 07 V-EXPENSE-DESC-C PIC XX. PSCRPEND 00091 07 V-FROM-DATE-C. PSCRPEND 00092 09 V-F-MO-C PIC XX. PSCRPEND 00093 09 V-F-DAY-C PIC XX. PSCRPEND 00093 09 V-F-CC-C PIC XX. PSCRPEND 00094 09 V-F-YR-C PIC XX. PSCRPEND 00095 07 V-TO-DATE-C. PSCRPEND 00096 09 V-T-MO-C PIC XX. PSCRPEND 00097 09 V-T-DAY-C PIC XX. PSCRPEND 00097 09 V-T-CC-C PIC XX. PSCRPEND 00098 09 V-T-YR-C PIC XX. PSCRPEND 00099 07 V-PAYEE-NAME PIC X(51). PSCRPEND 00100 * PSCRPEND 00101 * IF A R1 REFERENCE CODE IS USED FOR PAYEE ADDRESS OR PSCRPEND 00102 * MAIL TO ADDRESS THEN THE INSURED'S ADDRESS FROM THE PSCRPEND 00103 * ROOT SEGMENT IS STORED IN THE GROUP ITEM PSCRPEND 00104 * V-PAYEE-CTY-STA-ZIP/G-MAIL-CTY-STA-ZIP. PSCRPEND 00105 * OTHERWISE THE ELEMENTARY ITEMS CITY, STATE, AND ZIP PSCRPEND 00106 * ARE USED. PSCRPEND 00107 * PSCRPEND 00108 07 V-PAYEE-ADDRESS. PSCRPEND 00109 09 V-PAYEE-STREET PIC X(25). PSCRPEND 00110 09 V-PAYEE-CTY-STA-ZIP. PSCRPEND 00111 11 V-PAYEE-CITY PIC X(13). PSCRPEND 00112 11 V-PAYEE-STATE PIC XX. PSCRPEND 00113 11 V-PAYEE-ZIP-9. PSCRPEND 00114 13 V-PAYEE-ZIP PIC X(5). PSCRPEND 00115 13 V-PAYEE-ZIP-LAST4 PIC X(4). PSCRPEND 00116 11 FILLER PIC X(19). PSCRPEND 00117 07 V-ADDL-PAYEE PIC X(51). PSCRPEND 00118 07 V-NR-IND PIC X. PSCRPEND 00119 05 V-MICR-PREFIX PIC X(05). PSCRPEND 00120 05 V-PANEL-ATTORNEY-HRS-PAID. PSCRPEND 00121 07 V-HOURS PIC 9(3). PSCRPEND 00122 07 V-TENTHS-HRS PIC 9. PSCRPEND 00123 05 V-PANEL-ATTORNEY-HOURS-PAID REDEFINES PSCRPEND 00124 V-PANEL-ATTORNEY-HRS-PAID PIC 9(3)V9. PSCRPEND 00125 05 V-STAFF-ATTORNEY-HOURS-PAID REDEFINES PSCRPEND 00126 V-PANEL-ATTORNEY-HRS-PAID PIC S9(3)V9. PSCRPEND 00127 05 V-TRAN-TO-CMT-NUM PIC X(03). CL**2 00128 05 V-SUBRO-DESC-A PIC X(02). CL**2 00129 05 V-SUBRO-DESC-B PIC X(02). CL**2 00130 05 V-SUBRO-DESC-C PIC X(02). CL**2 00131 05 V-SUBRO-ANTICIPATED-IND PIC X(01). CL**2 00131 05 V-DATE-OF-ISSUE. CL**2 07 V-DATE-OF-ISSUE-MM PIC X(2). 07 V-DATE-OF-ISSUE-DD PIC X(2). 07 V-DATE-OF-ISSUE-CC PIC X(2). 07 V-DATE-OF-ISSUE-YY PIC X(2). 00032 05 V-IRS-ATTY-IND PIC X. PSCRPEND 00131*** 05 FILLER PIC X(300). CL**2 1522 05 FILLER PIC X(298). CL**2 00132 EJECT PSCRPEND 00001 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 09/11/92 00002 * SCR/CMF EVALUATION SEGMENT * PEVALSEG 00003 * CPCSLIB SUBSET EVALSEG * LV008 00004 ***************************************************************** CL**2 00005 * M A I N T E N A N C E L O G * CL**2 00006 ***************************************************************** CL**2 00007 * * CL**2 00008 * DATE NAME SR/DISC DESCRIPTION OF CHANGE * CL**2 00009 ***************************************************************** CL**2 * Y2KEANE - 03/22/97 - GUILMETTE - CLONED FROM PEVALSEG AND MADE* * Y2KEANE - Y2K DATE COMPLIANT. * 00018 ***************************************************************** CL**2 00019 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CL**2 00020 CL**2 00021 03 V-EVALUATION-SEGMENT PIC X(700). CL**2 00022 03 V-EVAL-SEGMENT REDEFINES V-EVALUATION-SEGMENT. CL**2 00023 05 V-EVAL-SEGMENT-KEY. CL**2 00024 07 V-EVAL-TYP-CD PIC X(04). CL**2 00025 88 V-BIENP VALUE 'BI '. CL**2 00026 88 V-DENT VALUE 'MPD '. CL**2 00027 88 V-WCHEAR VALUE 'HEAR'. CL**2 00028 07 V-EVAL-SEQ-NBR PIC 9(03). CL**2 00029 *** CL**2 00030 *** END EVAL KEY AREA TOTAL = 7 **************************** CL**2 00031 *** CL**2 00032 05 V-COMMON-EVAL-INFO. CL**2 00033 07 V-SETL-RNG-LOW-AMT PIC 9(09). CL**2 00034 07 V-SETL-RNG-HI-AMT PIC 9(09). CL**2 00035 07 V-INIT-OFR-AMT PIC 9(09). CL**2 00036 07 V-TGT-SETL-AMT PIC 9(09). CL**2 00037 07 V-WALKAWAY-OFR-AMT PIC 9(09). CL**2 00038 07 V-POL-LMT-AVL-AMT PIC 9(09). CL**2 00039 07 V-TIC-MK-FST-OFR-IND PIC X(01). CL**2 00040 07 V-EVAL-CMPL-IND PIC X(01). CL**2 00041 07 V-NEG-EVAL-ID PIC X(04). CL**2 00042 07 V-NEG-EVAL-DT. CL**2 00043 09 V-NEG-EVAL-MM PIC XX. CL**2 00044 09 V-NEG-EVAL-DD PIC XX. CL**2 00045 09 V-NEG-EVAL-CC PIC XX. CL**2 00045 09 V-NEG-EVAL-YY PIC XX. CL**2 00046 07 V-NEG-AUTH-ID PIC X(04). CL**2 00047 07 V-NEG-AUTH-DT. CL**2 00048 09 V-NEG-AUTH-MM PIC XX. CL**2 00049 09 V-NEG-AUTH-DD PIC XX. CL**2 00050 09 V-NEG-AUTH-CC PIC XX. CL**2 00050 09 V-NEG-AUTH-YY PIC XX. CL**2 00051 07 V-EVAL-DT. CL**2 00052 09 V-EVAL-MM PIC XX. CL**2 00053 09 V-EVAL-DD PIC XX. CL**2 00054 09 V-EVAL-CC PIC XX. CL**2 00054 09 V-EVAL-YY PIC XX. CL**2 00055 07 V-COMMON-UNUSED PIC X(55). CL**2 00056 *** CL**2 00057 *** END COMMON EVAL AREA TOTAL = 143 *********************** CL**2 00058 *** CL**2 00059 CL**2 00060 05 V-BIENP-INFO. CL**2 00061 07 V-BIENP-PROGRESS-IND. CL**2 00062 09 V-BIEVAL1-IND PIC X. CL**2 00063 09 V-BIEVAL2-IND PIC X. CL**2 00064 09 V-BIEVAL3-IND PIC X. CL**2 00065 09 V-BISUMM-IND PIC X. CL**2 00066 09 V-BIAUTH-IND PIC X. CL**2 00067 CL**2 00068 07 V-NEGL-OF-CLMT-PCT PIC 9(03). CL**2 00069 07 V-NEGL-OF-OTHR-PCT PIC 9(03). CL**2 00070 07 V-NEGL-OF-INSD-PCT PIC 9(03). CL**2 00071 CL**2 00072 07 V-SRVC-RENDR-PHYS-SBMT-AMT PIC 9(07). CL**2 00073 07 V-SRVC-RENDR-PHYS-REL-AMT PIC 9(07). CL**2 00074 07 V-SRVC-RENDR-PHYS-UNREL-AMT PIC 9(07). CL**2 00075 07 V-SRVC-RENDR-PHYS-ALLW-AMT PIC 9(07). CL**2 00076 07 V-SRVC-RENDR-HOSP-SBMT-AMT PIC 9(07). CL**2 00077 07 V-SRVC-RENDR-HOSP-REL-AMT PIC 9(07). CL**2 00078 07 V-SRVC-RENDR-HOSP-UNREL-AMT PIC 9(07). CL**2 00079 07 V-SRVC-RENDR-HOSP-ALLW-AMT PIC 9(07). CL**2 00080 07 V-SRVC-RENDR-OTHR-SBMT-AMT PIC 9(07). CL**2 00081 07 V-SRVC-RENDR-OTHR-REL-AMT PIC 9(07). CL**2 00082 07 V-SRVC-RENDR-OTHR-UNREL-AMT PIC 9(07). CL**2 00083 07 V-SRVC-RENDR-OTHR-ALLW-AMT PIC 9(07). CL**2 00084 07 V-TOT-SRVC-RENDR-SBMT-AMT PIC 9(09). CL**2 00085 07 V-TOT-SRVC-RENDR-REL-AMT PIC 9(09). CL**2 00086 07 V-TOT-SRVC-RENDR-UNREL-AMT PIC 9(09). CL**2 00087 07 V-TOT-SRVC-RENDR-ALLW-AMT PIC 9(09). CL**2 00088 CL**2 00089 07 V-CLMT-REFERED-FOR-IME-IND PIC X(01). CL**2 00090 07 V-IME-DT. CL**2 00091 09 V-IME-MM PIC XX. CL**2 00092 09 V-IME-DD PIC XX. CL**2 00093 09 V-IME-CC PIC XX. CL**2 00093 09 V-IME-YY PIC XX. CL**2 00094 07 V-IME-TYP-CD PIC X(01). CL**2 00095 07 V-IME-CST-AMT PIC 9(07). CL**2 00096 CL**2 00097 07 V-NATR-OF-DSBL-CD PIC X(01). CL**2 00098 07 V-TIC-REP-VIEWED-SCAR-DT. CL**2 00099 09 V-TIC-REP-VIEWED-SCAR-MM PIC XX. CL**2 00100 09 V-TIC-REP-VIEWED-SCAR-DD PIC XX. CL**2 00100 09 V-TIC-REP-VIEWED-SCAR-CC PIC XX. CL**2 00101 09 V-TIC-REP-VIEWED-SCAR-YY PIC XX. CL**2 00102 07 V-DEG-OF-SCAR-CD PIC X(01). CL**2 00103 CL**2 00104 07 V-DAY-RT-AMT PIC 9(07). CL**2 00105 07 FILLER PIC X(02). CL**2 00106 07 V-DAY-LOST-NBR PIC 9(05). CL**2 00107 07 V-GRS-WG-AMT PIC 9(07). CL**2 00108 07 V-ACTUL-LOST-ALLW-AMT PIC 9(09). CL**2 00109 07 V-INJ-CLMT-OCP-ID PIC X(20). CL**2 00110 07 V-BCK-TO-WRK-IND PIC X(01). CL**2 00111 07 V-RTN-TO-WRK-DT. CL**2 00112 09 V-RTN-TO-WRK-MM PIC XX. CL**2 00113 09 V-RTN-TO-WRK-DD PIC XX. CL**2 00114 09 V-RTN-TO-WRK-CC PIC XX. CL**2 00114 09 V-RTN-TO-WRK-YY PIC XX. CL**2 00115 07 V-INJ-IN-CRS-OF-EMPMT-IND PIC X(01). CL**2 00116 CL**2 00117 07 V-DEDT-WRK-COMP-AMT PIC 9(07). CL**2 00118 07 V-DEDT-NO-FAULT-AMT PIC 9(07). CL**2 00119 07 V-DEDT-OTHR-PVT-INS-AMT PIC 9(07). CL**2 00120 07 V-DEDT-GOVT-INS-AMT PIC 9(07). CL**2 00121 07 V-TOT-DEDT-AMT PIC 9(09). CL**2 00122 07 V-GENL-DAM-LOW-AMT PIC 9(09). CL**2 00123 07 V-GENL-DAM-HI-AMT PIC 9(09). CL**2 00124 07 V-INJ-VAL-LOW-AMT PIC 9(09). CL**2 00125 07 V-INJ-VAL-HI-AMT PIC 9(09). CL**2 00126 07 V-CHNG-BIEVAL-IND. CL**2 00127 09 V-CHNG-BIEVAL2-IND PIC X(01). CL**2 00128 09 V-CHNG-BIEVAL3-IND PIC X(01). CL**2 00129 07 V-BIENP-UNUSED PIC X(254). CL**2 00130 *** CL**2 00131 *** END BIENP EVAL AREA TOTAL = 550************************* CL**2 00132 *** CL**2 00133 CL**2 00134 05 V-DENT-INFO REDEFINES V-BIENP-INFO. CL**2 00135 CL**2 00136 07 V-DENT-PROGRESS-IND. CL**2 00137 09 V-MPDDAMGE-IND PIC X. CL**2 00138 09 V-MPDDEDT-IND PIC X. CL**2 00139 09 V-MPDSUMM-IND PIC X. CL**2 00140 09 V-MPDAUTH-IND PIC X. CL**2 00141 CL**2 00142 07 V-TYP-OF-DAM-CD PIC X. CL**2 00143 07 V-BIL-SBMT-AMT PIC 9(07). CL**2 00144 07 V-LIKE-KND-QLTY-AMT PIC 9(07). CL**2 00145 07 V-UNNEC-REPR-AMT PIC 9(07). CL**2 00146 07 V-BIL-ALLW-AMT PIC 9(07). CL**2 00147 07 V-TIC-EST-OF-DAM-AMT PIC 9(07). CL**2 00148 07 V-CTRCTOR-SECUR-BY-TIC-AMT PIC 9(07). CL**2 00149 07 V-APPEAR-ALLW-AMT PIC 9(07). CL**2 00150 07 V-TOT-DAM-ALLW-AMT PIC 9(09). CL**2 00151 CL**2 00152 07 V-DAM-BY-PREV-ACC-LOW-AMT PIC 9(09). CL**2 00153 07 V-DAM-BY-PREV-ACC-HI-AMT PIC 9(09). CL**2 00154 07 V-CLMT-NEGL-LOW-AMT PIC 9(09). CL**2 00155 07 V-CLMT-NEGL-HI-AMT PIC 9(09). CL**2 00156 07 V-NEGL-OTHR-THRD-PTY-LOW-AMT PIC 9(09). CL**2 00157 07 V-NEGL-OTHR-THRD-PTY-HI-AMT PIC 9(09). CL**2 00158 07 V-LIAB-LOW-AMT PIC 9(09). CL**2 00159 07 V-LIAB-HI-AMT PIC 9(09). CL**2 00160 07 V-DEPR-BTMT-LOW-AMT PIC 9(09). CL**2 00161 07 V-DEPR-BTMT-HI-AMT PIC 9(09). CL**2 00162 07 V-SLVG-TOT-LS-ONLY-LOW-AMT PIC 9(09). CL**2 00163 07 V-SLVG-TOT-LS-ONLY-HI-AMT PIC 9(09). CL**2 00164 07 V-FAIL-TO-PROT-PROP-LOW-AMT PIC 9(09). CL**2 00165 07 V-FAIL-TO-PROT-PROP-HI-AMT PIC 9(09). CL**2 00166 07 V-DEDCTS-EVAL-LOW-AMT PIC 9(09). CL**2 00167 07 V-DEDCTS-EVAL-HI-AMT PIC 9(09). CL**2 00168 07 V-TOT-DEDCTS-LO-AMT PIC 9(09). CL**2 00169 07 V-TOT-DEDCTS-HI-AMT PIC 9(09). CL**2 00171 07 V-COV-DED-PD-XCLS-AMT PIC 9(09). CL**2 00172 07 V-MPD-COV-DED-AMT PIC 9(09). CL**2 00173 07 V-TOT-COV-DED-AMT PIC 9(09). CL**2 00174 07 V-CHNG-DENT-IND. CL**2 00175 09 V-CHNG-MPDDAMGE-IND PIC X(01). CL**2 00176 09 V-CHNG-MPDDEDT-IND PIC X(01). CL**2 00177 09 V-CHNG-MPDSUMM-IND PIC X(01). CL**2 00178 07 V-DENT-UNUSED PIC X(295). CL**2 00179 *** CL**2 00180 *** END DENT EVAL AREA TOTAL =550 ************************* CL**2 00181 *** CL**2 00182 05 V-WC-HEAR-INFO REDEFINES V-BIENP-INFO. CL**2 00183 CL**2 00184 07 V-WCLITEST-CMPL-IND PIC X(01). CL**2 00185 07 V-WCLITACT-CMPL-IND PIC X(01). CL**2 00186 07 V-WC-HEAR-REQ-DT. CL**2 00187 09 V-WC-HEAR-REQ-MM PIC XX. CL**2 00188 09 V-WC-HEAR-REQ-DD PIC XX. CL**2 00188 09 V-WC-HEAR-REQ-CC PIC XX. CL**2 00189 09 V-WC-HEAR-REQ-YY PIC XX. CL**2 00190 07 V-WC-HEAR-NTFY-DT. CL**2 00191 09 V-WC-HEAR-NTFY-MM PIC XX. CL**2 00192 09 V-WC-HEAR-NTFY-DD PIC XX. CL**2 00192 09 V-WC-HEAR-NTFY-CC PIC XX. CL**2 00193 09 V-WC-HEAR-NTFY-YY PIC XX. CL**2 00194 07 V-WC-HEAR-DT. CL**2 00195 09 V-WC-HEAR-MM PIC XX. CL**2 00196 09 V-WC-HEAR-DD PIC XX. CL**2 00196 09 V-WC-HEAR-CC PIC XX. CL**2 00197 09 V-WC-HEAR-YY PIC XX. CL**2 00198 07 V-WC-RSN-FOR-CNTST-CLM-CD PIC X(01). CL**2 00199 07 V-WC-HEAR-ASGN-TO-CD PIC X(01). CL**2 00200 88 V-WC-HEAR-REP VALUE '1'. CL**2 00201 88 V-WC-STAFF-COUNSEL VALUE '2'. CL**2 00202 88 V-WC-PANEL-COUNSEL VALUE '3'. CL**2 00203 88 V-WC-UNASSIGNED VALUE '4'. CL**2 00204 07 V-WC-HEAR-ASGN-DT. CL**2 00205 09 V-WC-HEAR-ASGN-MM PIC XX. CL**2 00206 09 V-WC-HEAR-ASGN-DD PIC XX. CL**2 00206 09 V-WC-HEAR-ASGN-CC PIC XX. CL**2 00207 09 V-WC-HEAR-ASGN-YY PIC XX. CL**2 00208 07 V-WC-HEAR-REP-ID PIC X(04). CL**2 00209 07 V-WC-STF-COUNSEL-OFC-CD PIC X(03). CL**2 00210 07 V-ATTY-NM PIC X(51). CL**2 00211 07 V-ATTY-FIRM-NM PIC X(51). CL**2 00212 07 V-ATTY-STR-ADR PIC X(25). CL**2 00213 07 V-ATTY-CTY-ADR PIC X(13). CL**2 00214 07 V-ATTY-ST-ADR PIC X(02). CL**2 00215 07 V-ATTY-ADR-ZIP-CD. CL**2 00216 09 V-ATTY-ZIP PIC X(05). CL**2 00217 09 V-ATTY-ZIP-LAST4 PIC X(04). CL**2 00218 07 V-ATTY-TEL-NBR PIC X(10). CL**2 00219 07 V-ATTY-TAX-ID-NBR PIC X(09). CL**2 00220 07 V-ATTY-PRTN-ASSOC-IND PIC X(01). CL**2 00221 07 V-WC-SUIT-COMITEE-DT. CL**2 00222 09 V-WC-SUIT-COMITEE-MM PIC XX. CL**2 00223 09 V-WC-SUIT-COMITEE-DD PIC XX. CL**2 00223 09 V-WC-SUIT-COMITEE-CC PIC XX. CL**2 00224 09 V-WC-SUIT-COMITEE-YY PIC XX. CL**2 00225 07 V-WC-LITG-PLAN-DT. CL**2 00226 09 V-WC-LITG-PLAN-MM PIC XX. CL**2 00227 09 V-WC-LITG-PLAN-DD PIC XX. CL**2 00227 09 V-WC-LITG-PLAN-CC PIC XX. CL**2 00228 09 V-WC-LITG-PLAN-YY PIC XX. CL**2 00229 07 V-WC-EST-LEG-EXPN-AMT PIC 9(9). CL**2 00230 07 V-WC-EST-LEG-EXPN-AMT-PICX REDEFINES CL**3 00231 V-WC-EST-LEG-EXPN-AMT PIC X(09). CL**3 00232 07 V-WC-DMD-BEF-HEAR-AMT PIC 9(9)V99. CL**2 00233 07 V-WC-DMD-BEF-HEAR-AMT-PICX REDEFINES CL**2 00234 V-WC-DMD-BEF-HEAR-AMT PIC X(11). CL**2 00235 07 V-WC-OFR-BEF-HEAR-AMT PIC 9(9)V99. CL**2 00236 07 V-WC-OFR-BEF-HEAR-AMT-PICX REDEFINES CL**2 00237 V-WC-OFR-BEF-HEAR-AMT PIC X(11). CL**2 00238 07 V-WC-RSLV-CD PIC X. CL**2 00239 07 V-WC-HEAR-STS-CD PIC X. CL**2 00240 88 V-WC-OPEN-HEARING VALUE '1'. CL**2 00241 88 V-WC-CLOSED-HEARING VALUE '2'. CL**2 00242 88 V-WC-REOPEN-HEARING VALUE '3'. CL**2 00243 88 V-WC-RECLOSED-HEARING VALUE '5'. CL**2 00244 07 V-WC-HEAR-ESTBL-DT. CL**2 00244 09 V-WC-HEAR-ESTBL-DT-MM PIC X(02). CL**2 00244 09 V-WC-HEAR-ESTBL-DT-DD PIC X(02). CL**2 00244 09 V-WC-HEAR-ESTBL-DT-CC PIC X(02). CL**2 00244 09 V-WC-HEAR-ESTBL-DT-YY PIC X(02). CL**2 00245 07 V-WC-HEAR-CLS-DT. CL**2 00245 09 V-WC-HEAR-CLS-DT-MM PIC X(02). CL**2 00245 09 V-WC-HEAR-CLS-DT-DD PIC X(02). CL**2 00245 09 V-WC-HEAR-CLS-DT-CC PIC X(02). CL**2 00245 09 V-WC-HEAR-CLS-DT-YY PIC X(02). CL**2 00246 07 V-WC-HEAR-ROPND-DT. CL**2 00246 09 V-WC-HEAR-ROPND-DT-MM PIC X(02). CL**2 00246 09 V-WC-HEAR-ROPND-DT-DD PIC X(02). CL**2 00246 09 V-WC-HEAR-ROPND-DT-CC PIC X(02). CL**2 00246 09 V-WC-HEAR-ROPND-DT-YY PIC X(02). CL**2 00247 07 V-WC-HEAR-RECLS-DT. CL**2 00247 09 V-WC-HEAR-RECLS-DT-MM PIC X(02). CL**2 00247 09 V-WC-HEAR-RECLS-DT-DD PIC X(02). CL**2 00247 09 V-WC-HEAR-RECLS-DT-CC PIC X(02). CL**2 00247 09 V-WC-HEAR-RECLS-DT-YY PIC X(02). CL**2 00248 07 V-WC-PRE-ACE-HEARING-IND PIC X(01). CL**2 00249 07 V-WC-HEAR-VENUE-CD PIC X(05). CL**3 00250 07 V-WC-FGN-DFNS-FIRM-IND PIC X(01). CL**3 00251 07 V-WC-HEAR-ESTB-IN-ERR-IND PIC X(01). CL**3 00252 07 V-WC-HEAR-APPEAL-LVL-CD PIC X(01). CL**3 00253 07 V-WC-HEAR-ASGN-MANUAL PIC X(01). CL**4 00254 88 HEARING-ASGN-MANUAL VALUE 'Y'. CL**4 00255 07 V-WC-HEARING-UNUSED PIC X(245). CL**4 00256 *** CL**2 00257 *** END WC HEARING/LITIGATION AREA - TOTAL = 550 *********** CL**2 00258 *** CL**2 00259 **************************************************************** CL**3 00260 * THIS IS THE AREA FOR STORING CUSTOMER SPECIFIC DATA FOR * CL**3 00261 * WORKERS COMP 1-800 TELEPHONE REPORTING. * CL**3 00262 **************************************************************** CL**3 00263 03 V-EVAL-NOL-SEGMENT REDEFINES V-EVALUATION-SEGMENT. CL**3 00264 05 V-NOL-SEGMENT-KEY. CL**3 00265 07 V-NOL-KEY-TYPE PIC X(5). CL**3 00266 88 ADDL-DATA VALUE 'NOLA '. CL**3 00267 88 CUST-DATA VALUE 'NOLC '. CL**3 00268 07 V-NOL-KEY-SEQ PIC 9(2). CL**3 00269 05 V-EVAL-NOL-DATA PIC X(693). CL**3 00270 CL**3 00271 05 V-NOL-CUST-DATA-PART1 REDEFINES V-EVAL-NOL-DATA. CL**3 00272 ****************************************************************** CL**3 00273 ****NOLC-DATA FIELDS 1-B, 2-B, 3-B, 4-B, 11-B, AND 18-B WILL ***** CL**3 00274 ****BE USED TO STORE INFO THAT WILL PREFILL THE CLIENT CODE ***** CL**3 00275 ****SCREEN. ***** CL**3 00276 **** ACCIDENT CAUSE CODE =========> 1-B ***** CL**3 00277 **** ACCIDENT RESULT CODE =========> 2-B ***** CL**3 00278 **** ACCIDENT AGENCY CODE =========> 3-B ***** CL**3 00279 **** ACCIDENT TYPE CODE =========> 4-B ***** CL**3 00280 **** ADDITIONAL INFORMATION =========> 18-B ***** CL**3 00281 ****************************************************************** CL**3 00282 07 V-NOLC-DATA-1-A PIC X(25). CL**3 00283 07 V-NOLC-DATA-1-B PIC X(10). CL**3 00284 07 V-NOLC-DATA-2-A PIC X(25). CL**3 00285 07 V-NOLC-DATA-2-B PIC X(10). CL**3 00286 07 V-NOLC-DATA-3-A PIC X(25). CL**3 00287 07 V-NOLC-DATA-3-B PIC X(10). CL**3 00288 07 V-NOLC-DATA-4-A PIC X(25). CL**3 00289 07 V-NOLC-DATA-4-B PIC X(10). CL**3 00290 07 V-NOLC-DATA-5-A PIC X(25). CL**3 00291 07 V-NOLC-DATA-5-B PIC X(10). CL**3 00292 07 V-NOLC-DATA-6-A PIC X(25). CL**3 00293 07 V-NOLC-DATA-6-B PIC X(10). CL**3 00294 07 V-NOLC-DATA-7-A PIC X(25). CL**3 00295 07 V-NOLC-DATA-7-B PIC X(10). CL**3 00296 07 V-NOLC-DATA-8-A PIC X(25). CL**3 00297 07 V-NOLC-DATA-8-B PIC X(10). CL**3 00298 07 V-NOLC-DATA-9-A PIC X(25). CL**3 00299 07 V-NOLC-DATA-9-B PIC X(10). CL**3 00300 07 V-NOLC-DATA-10-A PIC X(25). CL**3 00301 07 V-NOLC-DATA-10-B PIC X(10). CL**3 00302 07 V-NOLC-DATA-11-A PIC X(25). CL**3 00303 07 V-NOLC-DATA-11-B PIC X(15). CL**3 00304 07 V-NOLC-DATA-12-A PIC X(25). CL**3 00305 07 V-NOLC-DATA-12-B PIC X(15). CL**3 00306 07 V-NOLC-DATA-13-A PIC X(25). CL**3 00307 07 V-NOLC-DATA-13-B PIC X(15). CL**3 00308 07 V-NOLC-DATA-14-A PIC X(25). CL**3 00309 07 V-NOLC-DATA-14-B PIC X(15). CL**3 00310 07 V-NOLC-DATA-15-A PIC X(25). CL**3 00311 07 V-NOLC-DATA-15-B PIC X(15). CL**3 00312 07 V-NOLC-DATA-16-A PIC X(25). CL**3 00313 07 V-NOLC-DATA-16-B PIC X(15). CL**3 00314 07 V-NOLC-DATA-17-A PIC X(25). CL**3 00315 07 V-NOLC-DATA-17-B PIC X(15). CL**3 00316 07 V-NOLC-DATA-18-A PIC X(25). CL**3 00317 07 V-NOLC-DATA-18-B PIC X(25). CL**3 00318 07 FILLER PIC X(13). CL**3 00319 CL**3 00320 05 V-NOL-CUST-DATA-PART2 REDEFINES V-EVAL-NOL-DATA. CL**3 00321 07 V-NOLC-CUST-GROUP. CL**6 00322 09 V-NOLC-DATA-19-A PIC X(025). CL**6 00323 09 V-NOLC-DATA-19-B PIC X(025). CL**6 00324 09 V-NOLC-DATA-20-A PIC X(025). CL**6 00325 09 V-NOLC-DATA-20-B PIC X(050). CL**6 00326 07 V-NOLA-ADD-COM-INFO. CL**5 00327 09 V-NOLA-ADD-COM-INFO1 PIC X(070). CL**5 00328 09 V-NOLA-ADD-COM-INFO2 PIC X(070). CL**5 00329 09 V-NOLA-ADD-COM-INFO3 PIC X(070). CL**5 00330 09 V-NOLA-ADD-COM-INFO4 PIC X(018). CL**5 00331 07 FILLER PIC X(340). CL**5 00332 CL**3 00333 05 V-NOL-ADDL-DATA-PART1 REDEFINES V-EVAL-NOL-DATA. CL**7 00410 07 FILLER PIC X(693). CL**8 00411 CL**7 00412 05 V-NOL-ADDL-DATA-PART2 REDEFINES V-EVAL-NOL-DATA. CL**7 00413 07 FILLER PIC X(693). CL**7 00001 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 06/20/90 00002 * REFERRAL TRACKING SEGMENT (SCR & CMF) * PTRCKSEG 00003 * CPCSLIB SUBSET TRCKSEG * LV001 00004 ***************************************************************** PTRCKSEG 00005 * M A I N T E N A N C E L O G * PTRCKSEG 00006 ***************************************************************** PTRCKSEG 00007 * * PTRCKSEG 00008 * DATE NAME SR/DISC DESCRIPTION OF CHANGE * PTRCKSEG 00009 ***************************************************************** PTRCKSEG 00010 * 02/08/90 CATHY M ACE CREATED * PTRCKSEG * 04/15/97 BBERMAN Y2KEANE ADDED CENTURY TO DATES * * 06/10/01 JSILLUZIO SOSCH CHANGED SOS FIELDS * 00011 ***************************************************************** PTRCKSEG 00012 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PTRCKSEG 00013 PTRCKSEG 00014 03 T-REFERRAL-TRACKING-SEGMENT PIC X(250). PTRCKSEG 00015 03 T-TRACK-SEGMENT REDEFINES T-REFERRAL-TRACKING-SEGMENT. PTRCKSEG 00016 05 T-SEGMENT-KEY. PTRCKSEG 00017 07 T-REFERRAL-TYP-CD PIC X(04). PTRCKSEG 00018 88 T-ADR VALUE 'ADR '. PTRCKSEG 00019 88 T-SOS VALUE 'SOS '. PTRCKSEG 00020 88 T-IME VALUE 'IME '. PTRCKSEG 00021 88 T-VOC-REHAB VALUE 'VR '. PTRCKSEG 00022 88 T-MED-MGMT VALUE 'MDMG'. PTRCKSEG 00023 88 T-COST-CONTAIN VALUE 'COST'. PTRCKSEG 00024 07 T-TRACK-SEQ-NBR PIC 9(03). PTRCKSEG 00025 07 T-COST-CONTAIN-KEY REDEFINES T-TRACK-SEQ-NBR. PTRCKSEG 00026 09 T-CST-CNTN-SUM-SRVC-CD PIC X(02). PTRCKSEG 00027 09 T-CST-CNTN-SUM-VEND-CD PIC X(01). PTRCKSEG 00028 ***************************************************************** PTRCKSEG 00029 PTRCKSEG 00030 05 T-ADR-INFO. PTRCKSEG 00031 07 T-ADR-SUBMITTE-ID PIC X(04). PTRCKSEG 00032 07 T-ADR-REP-CD. PTRCKSEG 00033 09 T-ADR-REP1-CD PIC X. PTRCKSEG 00034 09 T-ADR-REP2-CD PIC X. PTRCKSEG 00035 09 T-ADR-REP3-CD PIC X. PTRCKSEG 00036 07 T-ADR-MULT-PARTIES-IND PIC X. PTRCKSEG 00037 07 T-ADR-SELECTOR-CD PIC X. PTRCKSEG 00038 07 T-ADR-REF-DT. PTRCKSEG 00039 09 T-ADR-REF-MM PIC XX. PTRCKSEG 00040 09 T-ADR-REF-DD PIC XX. PTRCKSEG 00040 09 T-ADR-REF-CC PIC XX. PTRCKSEG 00041 09 T-ADR-REF-YY PIC XX. PTRCKSEG 00042 07 T-ADR-ACPT-DT. PTRCKSEG 00043 09 T-ADR-ACPT-MM PIC XX. PTRCKSEG 00044 09 T-ADR-ACPT-DD PIC XX. PTRCKSEG 00044 09 T-ADR-ACPT-CC PIC XX. PTRCKSEG 00045 09 T-ADR-ACPT-YY PIC XX. PTRCKSEG 00046 07 T-ADR-HRG-DT. PTRCKSEG 00047 09 T-ADR-HRG-MM PIC XX. PTRCKSEG 00048 09 T-ADR-HRG-DD PIC XX. PTRCKSEG 00048 09 T-ADR-HRG-CC PIC XX. PTRCKSEG 00049 09 T-ADR-HRG-YY PIC XX. PTRCKSEG 00050 07 T-ADR-ORG-CD PIC X. PTRCKSEG 00051 07 T-ADR-METH-CD PIC X. PTRCKSEG 00052 07 T-ADR-DISP-CD PIC X. PTRCKSEG 00053 07 T-ADR-FEE-AMT PIC 9(09). PTRCKSEG 00054 07 T-ADR-FEE-AMT-PICX REDEFINES PTRCKSEG 00055 T-ADR-FEE-AMT PIC X(09). PTRCKSEG 00056 07 T-ADR-SETL-AMT PIC 9(09). PTRCKSEG 00057 07 T-ADR-SETL-AMT-PICX REDEFINES PTRCKSEG 00058 T-ADR-SETL-AMT PIC X(09). PTRCKSEG 00059 07 T-ADR-APRV-BY-JDG-IND PIC X. PTRCKSEG 00060 07 T-ADR-APRV-DT. PTRCKSEG 00061 09 T-ADR-APRV-MM PIC XX. PTRCKSEG 00062 09 T-ADR-APRV-DD PIC XX. PTRCKSEG 00062 09 T-ADR-APRV-CC PIC XX. PTRCKSEG 00063 09 T-ADR-APRV-YY PIC XX. PTRCKSEG 00064 07 T-ADR-DISP-DT. PTRCKSEG 00065 09 T-ADR-DISP-MM PIC XX. PTRCKSEG 00066 09 T-ADR-DISP-DD PIC XX. PTRCKSEG 00066 09 T-ADR-DISP-CC PIC XX. PTRCKSEG 00067 09 T-ADR-DISP-YY PIC XX. PTRCKSEG 00068 07 T-ADR-UNUSED PIC X(172). PTRCKSEG 00069 PTRCKSEG 00070 ***************************************************************** PTRCKSEG 00071 PTRCKSEG 00072 05 T-SOS-INFO REDEFINES T-ADR-INFO. PTRCKSEG 00073 07 T-SOS-SETL-IND PIC X(01). PTRCKSEG 00074 07 T-SOS-PAYO-PLN-TXT PIC X(51). PTRCKSEG 00075 07 T-SOS-PREMIUM-AMT PIC 9(09). PTRCKSEG 00076 07 FILLER PIC 9(09). PTRCKSEG 00077 07 FILLER PIC 9(09). PTRCKSEG 00078 07 T-SOS-OTHR-CARR-AMT PIC 9(09). PTRCKSEG 00079 07 T-SOS-BROKER-CD PIC X(01). PTRCKSEG 00080 07 T-SOS-TLAC-IND PIC X(01). PTRCKSEG 00080 07 FILLER PIC 9(05). PTRCKSEG 00081 07 T-SOS-OUTSIDE-INSCO-NM PIC X(10). PTRCKSEG 00082 07 T-SOS-COMMT-TXT PIC X(51). PTRCKSEG 00083 07 T-SOS-REFERRAL-DT. PTRCKSEG 00084 09 T-SOS-REFERRAL-MM PIC XX. PTRCKSEG 00085 09 T-SOS-REFERRAL-DD PIC XX. PTRCKSEG 00085 09 T-SOS-REFERRAL-CC PIC XX. PTRCKSEG 00086 09 T-SOS-REFERRAL-YY PIC XX. PTRCKSEG 00083 07 T-SOS-DT. PTRCKSEG 00084 09 T-SOS-MM PIC XX. PTRCKSEG 00085 09 T-SOS-DD PIC XX. PTRCKSEG 00085 09 T-SOS-CC PIC XX. PTRCKSEG 00086 09 T-SOS-YY PIC XX. PTRCKSEG 00087 07 T-SOS-UNUSED PIC X(71). PTRCKSEG 00088 PTRCKSEG 00089 ***************************************************************** PTRCKSEG 00090 PTRCKSEG 00091 05 T-IME-INFO REDEFINES T-ADR-INFO. PTRCKSEG 00092 07 T-IME-REQ-DT. PTRCKSEG 00093 09 T-IME-REQ-MM PIC XX. PTRCKSEG 00094 09 T-IME-REQ-DD PIC XX. PTRCKSEG 00094 09 T-IME-REQ-CC PIC XX. PTRCKSEG 00095 09 T-IME-REQ-YY PIC XX. PTRCKSEG 00096 07 FILLER PIC X. PTRCKSEG 00097 07 T-IME-PHYS-KEY-NBR PIC 9(02). PTRCKSEG 00098 07 T-IME-CMPL-IND PIC X. PTRCKSEG 00099 07 T-IME-DT. PTRCKSEG 00100 09 T-IME-MM PIC XX. PTRCKSEG 00101 09 T-IME-DD PIC XX. PTRCKSEG 00101 09 T-IME-CC PIC XX. PTRCKSEG 00102 09 T-IME-YY PIC XX. PTRCKSEG 00103 07 T-IME-CST-AMT PIC 9(07). PTRCKSEG 00104 07 T-IME-SPREAD-CST-AMT PIC 9(07). PTRCKSEG 00105 PTRCKSEG 00106 07 T-PREV-PERM-EVAL-AMT PIC 9(09). PTRCKSEG 00107 07 T-IME-PERM-EVAL-AMT PIC 9(09). PTRCKSEG 00108 07 T-SETL-PERM-AMT PIC 9(09). PTRCKSEG 00109 07 T-IME-PERM-SV-AMT PIC S9(09). PTRCKSEG 00110 PTRCKSEG 00111 07 T-PREV-TEMP-EVAL-AMT PIC 9(09). PTRCKSEG 00112 07 T-IME-TEMP-EVAL-AMT PIC 9(09). PTRCKSEG 00113 07 T-SETL-TEMP-AMT PIC 9(09). PTRCKSEG 00114 07 T-IME-TEMP-SV-AMT PIC S9(09). PTRCKSEG 00115 PTRCKSEG 00116 07 T-PREV-MED-EVAL-AMT PIC 9(09). PTRCKSEG 00117 07 T-IME-MED-EVAL-AMT PIC 9(09). PTRCKSEG 00118 07 T-SETL-MED-AMT PIC 9(09). PTRCKSEG 00119 07 T-IME-MED-SV-AMT PIC S9(09). PTRCKSEG 00120 PTRCKSEG 00121 07 T-PREV-OTHR-EVAL-AMT PIC 9(09). PTRCKSEG 00122 07 T-IME-OTHR-EVAL-AMT PIC 9(09). PTRCKSEG 00123 07 T-SETL-OTHR-AMT PIC 9(09). PTRCKSEG 00124 07 T-IME-OTHR-SV-AMT PIC S9(09). PTRCKSEG 00125 PTRCKSEG 00126 07 T-IME-OTHR-TXT PIC X(55). PTRCKSEG 00127 07 T-IME-UNUSED PIC X(10). PTRCKSEG 00128 PTRCKSEG 00129 ***************************************************************** PTRCKSEG 00130 PTRCKSEG 00131 05 T-VOC-REHAB-INFO REDEFINES T-ADR-INFO. PTRCKSEG 00132 07 T-VR-REF-DT. PTRCKSEG 00133 09 T-VR-REF-MM PIC XX. PTRCKSEG 00134 09 T-VR-REF-DD PIC XX. PTRCKSEG 00134 09 T-VR-REF-CC PIC XX. PTRCKSEG 00135 09 T-VR-REF-YY PIC XX. PTRCKSEG 00136 07 T-VR-PLN-TYP-CD PIC X. PTRCKSEG 00137 07 T-PRE-VR-EST-MED-AMT PIC 9(09). PTRCKSEG 00138 07 T-PRE-VR-EST-WK-NBR PIC 9(03). PTRCKSEG 00139 07 T-PRE-VR-EST-WG-AMT PIC 9(09). PTRCKSEG 00140 07 T-AFT-VR-EST-MED-AMT PIC 9(09). PTRCKSEG 00141 07 T-AFT-VR-EST-WK-NBR PIC 9(03). PTRCKSEG 00142 07 T-AFT-VR-EST-WG-AMT PIC 9(09). PTRCKSEG 00143 07 T-VR-CST-AMT PIC 9(07)V99. PTRCKSEG 00144 07 T-VR-STRT-DT. PTRCKSEG 00145 09 T-VR-STRT-MM PIC XX. PTRCKSEG 00146 09 T-VR-STRT-DD PIC XX. PTRCKSEG 00146 09 T-VR-STRT-CC PIC XX. PTRCKSEG 00147 09 T-VR-STRT-YY PIC XX. PTRCKSEG 00148 07 T-VR-END-DT. PTRCKSEG 00149 09 T-VR-END-MM PIC XX. PTRCKSEG 00150 09 T-VR-END-DD PIC XX. PTRCKSEG 00150 09 T-VR-END-CC PIC XX. PTRCKSEG 00151 09 T-VR-END-YY PIC XX. PTRCKSEG 00152 07 T-VR-LGHT-WRK-PURSUED-IND PIC X(02). PTRCKSEG 00153 07 T-VR-RTN-TO-LGHT-DUTY-DT. PTRCKSEG 00154 09 T-VR-RTN-TO-LGHT-DUTY-MM PIC XX. PTRCKSEG 00155 09 T-VR-RTN-TO-LGHT-DUTY-DD PIC XX. PTRCKSEG 00155 09 T-VR-RTN-TO-LGHT-DUTY-CC PIC XX. PTRCKSEG 00156 09 T-VR-RTN-TO-LGHT-DUTY-YY PIC XX. PTRCKSEG 00157 07 T-VR-RTN-TO-REG-DUTY-DT. PTRCKSEG 00158 09 T-VR-RTN-TO-REG-DUTY-MM PIC XX. PTRCKSEG 00159 09 T-VR-RTN-TO-REG-DUTY-DD PIC XX. PTRCKSEG 00159 09 T-VR-RTN-TO-REG-DUTY-CC PIC XX. PTRCKSEG 00160 09 T-VR-RTN-TO-REG-DUTY-YY PIC XX. PTRCKSEG 00161 07 T-VR-VEND-CD PIC X. PTRCKSEG 00162 07 T-VR-CMPL-IND PIC X(01). PTRCKSEG 00163 07 T-VR-UNUSED PIC X(147). PTRCKSEG 00164 PTRCKSEG 00165 ***************************************************************** PTRCKSEG 00166 PTRCKSEG 00167 05 T-MED-MGMT-INFO REDEFINES T-ADR-INFO. PTRCKSEG 00168 07 T-MED-MGMT-REF-DT. PTRCKSEG 00169 09 T-MED-MGMT-REF-MM PIC XX. PTRCKSEG 00170 09 T-MED-MGMT-REF-DD PIC XX. PTRCKSEG 00170 09 T-MED-MGMT-REF-CC PIC XX. PTRCKSEG 00171 09 T-MED-MGMT-REF-YY PIC XX. PTRCKSEG 00172 07 T-EST-MED-CST-WO-MED-MGMT-AMT PIC 9(09). PTRCKSEG 00173 07 T-MED-CST-AFT-MED-MGMT-AMT PIC 9(09). PTRCKSEG 00174 07 T-EST-WG-BEN-WO-MED-MGMT-AMT PIC 9(09). PTRCKSEG 00175 07 T-WG-BEN-AFT-MED-MGMT-AMT PIC 9(09). PTRCKSEG 00176 07 T-MED-MGMT-VEND-CD PIC X. PTRCKSEG 00177 07 T-MED-MGMT-CMPL-IND PIC X(01). PTRCKSEG 00178 07 T-MED-MGMT-UNUSED PIC X(197). PTRCKSEG 00179 PTRCKSEG 00180 ***************************************************************** PTRCKSEG 00181 PTRCKSEG 00182 05 T-COST-CONTAINMENT-INFO REDEFINES T-ADR-INFO. PTRCKSEG 00183 07 T-CNTN-SUM-INIT-REF-DT. PTRCKSEG 00184 09 T-CNTN-SUM-INIT-REF-MM PIC XX. PTRCKSEG 00185 09 T-CNTN-SUM-INIT-REF-DD PIC XX. PTRCKSEG 00185 09 T-CNTN-SUM-INIT-REF-CC PIC XX. PTRCKSEG 00186 09 T-CNTN-SUM-INIT-REF-YY PIC XX. PTRCKSEG 00187 07 T-CNTN-SUM-TOT-ACTUL-BIL-AMT PIC 9(9)V99. PTRCKSEG 00188 07 T-CNTN-SUM-TOT-RECOM-AMT PIC 9(9)V99. PTRCKSEG 00189 07 T-CNTN-SUM-TOT-PD-AMT PIC 9(9)V99. PTRCKSEG 00190 07 T-CNTN-SUM-TOT-SRVC-CST-AMT PIC 9(7)V99. PTRCKSEG 00191 07 T-CNTN-SUM-TOT-SV-AMT PIC S9(9)V99. PTRCKSEG 00192 07 T-CNTN-UNUSED PIC X(182). PTRCKSEG 00193 ***************************************************************** PTRCKSEG ********************************************************** * PSCRDAM EXPANDED COPYBOOK * * * * RENAMED TO ESCRDAM * * * * DATE NAME DESCRIPTION * * __________________________________________ * * * * 07/02/97 C SHAW Y2KEANE EXPANDED DATES FOR * * YEAR 2000 PROJECT * TK3309* 11/13/05 LAM HUYNH ADD NEW DATE/TIME FIELDS * 5143 * 02/12/06 E RAYMOND MODIFY ADD NEW DATE/TIME FIELDS* ********************************************************** 00001 03 SCRFILE-DAMEST-SEGMENT PIC X(1850). 12/14/92 00002 PSCRDAM 00003 03 D-DAMEST-SEGMENT REDEFINES SCRFILE-DAMEST-SEGMENT. LV002 00004 05 D-DAMEST-KEY. PSCRDAM 00005 10 D-DAMEST-NUM PIC XXX. PSCRDAM 00006 05 D-DAMEST-AUTO-EST-DATES. PSCRDAM 00007 10 D-DAMEST-RECV-DATE. PSCRDAM 00008 15 D-DAMEST-RECV-MNTH PIC XX. PSCRDAM 00009 15 D-DAMEST-RECV-DY PIC XX. PSCRDAM 00009 15 D-DAMEST-RECV-CC PIC XX. PSCRDAM 00010 15 D-DAMEST-RECV-YR PIC XX. PSCRDAM 00011 10 D-DAMEST-REQ-DATE. PSCRDAM 00012 15 D-DAMEST-REQ-MNTH PIC XX. PSCRDAM 00013 15 D-DAMEST-REQ-DY PIC XX. PSCRDAM 00013 15 D-DAMEST-REQ-CC PIC XX. PSCRDAM 00014 15 D-DAMEST-REQ-YR PIC XX. PSCRDAM 00015 10 D-DAMEST-EST-DATE. PSCRDAM 00016 15 D-DAMEST-EST-MNTH PIC XX. PSCRDAM 00017 15 D-DAMEST-EST-DY PIC XX. PSCRDAM 00017 15 D-DAMEST-EST-CC PIC XX. PSCRDAM 00018 15 D-DAMEST-EST-YR PIC XX. PSCRDAM 00019 10 D-DAMEST-ASGN-DATE. PSCRDAM 00020 15 D-DAMEST-ASGN-MNTH PIC XX. PSCRDAM 00021 15 D-DAMEST-ASGN-DY PIC XX. PSCRDAM 00021 15 D-DAMEST-ASGN-CC PIC XX. PSCRDAM 00022 15 D-DAMEST-ASGN-YR PIC XX. PSCRDAM 00023 10 D-DAMEST-REASGN-DATE. PSCRDAM 00024 15 D-DAMEST-RASGN-MNTH PIC XX. PSCRDAM 00025 15 D-DAMEST-RASGN-DY PIC XX. PSCRDAM 00025 15 D-DAMEST-RASGN-CC PIC XX. PSCRDAM 00026 15 D-DAMEST-RASGN-YR PIC XX. PSCRDAM 00027 10 D-DAMEST-CANC-DATE. PSCRDAM 00028 15 D-DAMEST-CANC-MNTH PIC XX. PSCRDAM 00029 15 D-DAMEST-CANC-DY PIC XX. PSCRDAM 00029 15 D-DAMEST-CANC-CC PIC XX. PSCRDAM 00030 15 D-DAMEST-CANC-YR PIC XX. PSCRDAM 00031 05 D-DAMEST-HEADER-INFO. PSCRDAM 00032 10 D-DAMEST-CPU-ID PIC X(02). PSCRDAM 00033 10 D-DAMEST-CTL-LOG-NBR PIC X(07). PSCRDAM 00034 05 D-DAMEST-INSPECTION-INFO. PSCRDAM 00035 10 D-DAMEST-INSPT-LOC PIC X(19). PSCRDAM 00036 10 D-DAMEST-INSPT-DATE. PSCRDAM 00037 15 D-DAMEST-INSPT-MNTH PIC XX. PSCRDAM 00038 15 D-DAMEST-INSPT-DY PIC XX. PSCRDAM 00038 15 D-DAMEST-INSPT-CC PIC XX. PSCRDAM 00039 15 D-DAMEST-INSPT-YR PIC XX. PSCRDAM 00040 10 D-DAMEST-INSPT-TYPE-CODE PIC X(02). PSCRDAM 00041 05 D-DAMEST-REPR-SHOP-INFO. PSCRDAM 00042 10 D-DAMEST-REPR-SHOP-NAME PIC X(35). PSCRDAM 00043 10 D-DAMEST-REPR-SHOP-ADDR PIC X(27). PSCRDAM 00044 10 D-DAMEST-REPR-CITY-ST PIC X(30). PSCRDAM 00045 10 D-DAMEST-REPR-ZIP PIC X(9). PSCRDAM 00046 10 D-DAMEST-REPR-PHONE-NUM PIC X(12). PSCRDAM 00047 10 D-DAMEST-REPR-ATTN PIC X(18). PSCRDAM 00048 10 D-DAMEST-NY-SHOP-REG PIC X(10). PSCRDAM 00049 05 D-DAMEST-OTHER-ESTIMATE-INFO. PSCRDAM 00050 10 D-DAMEST-VEHICLE-OPTS PIC X(26). PSCRDAM 00051 10 D-DAMEST-ACCT-NUM PIC X(17). PSCRDAM 00052 10 D-DAMEST-VEH-COND-TXT PIC X(4). PSCRDAM 00053 10 D-DAMEST-NY-INSPT-REG PIC X(10). PSCRDAM 00054 10 D-DAMEST-ADTEX-RELEASE PIC X(03). PSCRDAM 00055 10 D-DAMEST-EST-TIME PIC X(08). PSCRDAM 00056 10 D-DAMEST-APPR-ID PIC X(04). PSCRDAM 00057 10 D-DAMEST-REPR-DAYS PIC X(02). PSCRDAM 00058 10 D-DAMEST-TOT-LOSS-IND PIC X(01). PSCRDAM 00059 10 D-DAMEST-INDPT-IND PIC X(01). PSCRDAM 00060 10 D-DAMEST-ASGN-AFO PIC X(03). PSCRDAM 00061 10 D-DAMEST-BILL-TRAN PIC X. PSCRDAM 00062 10 D-DAMEST-WAIV-IND PIC X. PSCRDAM 00063 88 DED-UNKNOWN VALUE 'U'. PSCRDAM 00064 88 DED-WAIV VALUE 'W'. PSCRDAM 00065 88 DED-NONE VALUE 'N'. PSCRDAM 00066 10 D-DAMEST-NBR-PART-ENT PIC 9(03). PSCRDAM 00067 10 D-DAMEST-NBR-DTL-ENT PIC 9(03). PSCRDAM 00068 05 D-DAMEST-PARTS-INFO. PSCRDAM 00069 10 D-DAMEST-GRS-PART-AMT PIC S9(5)V99. PSCRDAM 00070 10 D-DAMEST-ADJUST-AMT PIC S9(5)V99. PSCRDAM 00071 10 D-DAMEST-DSCNT-PCT PIC V999. PSCRDAM 00072 10 D-DAMEST-DSCNT-PCT-IND PIC X. PSCRDAM 00073 10 D-DAMEST-OTHR-PARTS PIC S9(5)V99. PSCRDAM 00074 10 D-DAMEST-GLASS-AMT PIC S9(5)V99. CL**2 00075 10 D-DAMEST-PAINT-MAT-AMT PIC S9(7)V99. PSCRDAM 00076 10 D-DAMEST-PAINT-MAX-FLAG PIC XX. PSCRDAM 00077 10 D-DAMEST-NET-PART-AMT PIC S9(7)V99. PSCRDAM 00078 10 D-DAMEST-TAX-RT-PARTS PIC V999. PSCRDAM 00079 10 D-DAMEST-TAX-PART-AMT PIC S9(7)V99. PSCRDAM 00080 05 D-DAMEST-LABOR-INFO. PSCRDAM 00081 10 D-DAMEST-LABOR-RATES. PSCRDAM 00082 15 D-DAMEST-SHEET-METAL-RT PIC 9(3)V99. PSCRDAM 00083 15 D-DAMEST-MECH-ELEC-RT PIC 9(3)V99. PSCRDAM 00084 15 D-DAMEST-FRAME-WORK-RT PIC 9(3)V99. PSCRDAM 00085 15 D-DAMEST-REFINISH-RT PIC 9(3)V99. PSCRDAM 00086 15 D-DAMEST-PAINT-MAT-RT PIC 9(3)V99. PSCRDAM 00087 15 D-DAMEST-SHOP-MAT-RT PIC 9(3)V99. PSCRDAM 00088 10 D-DAMEST-REPL-HOURS OCCURS 6 TIMES. PSCRDAM 00089 15 D-DAMEST-TOT-REPL-LABOR PIC 9(4)V9. PSCRDAM 00090 10 D-DAMEST-REPR-HOURS OCCURS 6 TIMES. PSCRDAM 00091 15 D-DAMEST-TOT-REPR-LABOR PIC 9(4)V9. PSCRDAM 00092 10 D-DAMEST-LABOR-TOTALS. PSCRDAM 00093 15 D-DAMEST-TOT-SHEET-METAL PIC 9(07)V99. PSCRDAM 00094 15 D-DAMEST-TOT-MECH-ELEC PIC 9(07)V99. PSCRDAM 00095 15 D-DAMEST-TOT-FRAME PIC 9(07)V99. PSCRDAM 00096 15 D-DAMEST-TOT-REFINISHING PIC 9(07)V99. PSCRDAM 00097 15 D-DAMEST-TOT-LABOR-AMT PIC S9(7)V99. PSCRDAM 00098 15 D-DAMEST-LABOR-TAX-RT PIC V99999. PSCRDAM 00099 15 D-DAMEST-TOT-LABOR-TAX PIC S9(7)V99. PSCRDAM 00100 05 D-DAMEST-OTHER-TOTALS. PSCRDAM 00101 10 D-DAMEST-SUBL-REPR PIC S9(5)V99. PSCRDAM 00102 10 D-DAMEST-TOW-CHARGES PIC 9(5)V99. PSCRDAM 00103 10 D-DAMEST-GRS-TOT-AMT PIC S9(7)V99. PSCRDAM 00104 10 D-DAMEST-NET-DED PIC S9(7)V99. PSCRDAM 00105 10 D-DAMEST-OTHR-CHR-AMT PIC 9(5)V99. PSCRDAM 00106 10 D-DAMEST-NET-TOTAL PIC S9(7)V99. PSCRDAM 00107 05 D-DAMEST-APPRAISER-REMARKS. PSCRDAM 00108 10 D-DAMEST-REMARK-LINE PIC X(70) OCCURS 7 TIMES. PSCRDAM 00109 05 D-DAMEST-PARTS-XCHNG-REMARKS. PSCRDAM 00110 10 D-DAMEST-PXCHNG-LINE PIC X(70) OCCURS 5 TIMES. PSCRDAM 00111 05 D-DAMEST-PXCHNG-SEQ-NBR. PSCRDAM 00112 10 D-DAMEST-PXCHNG-CPUID PIC X. PSCRDAM 00113 10 D-DAMEST-PXCHNG-GEOCODE PIC X(5). PSCRDAM 00114 10 D-DAMEST-PXCHNG-AUDITTR. PSCRDAM 00115 15 D-DAMEST-PART-SEARCH PIC X. PSCRDAM 00116 15 D-DAMEST-AUTO-INSERT PIC X. PSCRDAM 00117 15 D-DAMEST-NBR-SEARCH PIC 9(02). PSCRDAM 00118 15 D-DAMEST-NBR-COMPARE PIC 9(02). PSCRDAM 00119 15 D-DAMEST-NBR-PRINT PIC 9(02). PSCRDAM 00120 15 D-DAMEST-NBR-NONPRINT PIC 9(02). PSCRDAM 00121 05 D-DAMEST-UNIV-OPTS PIC X(52). PSCRDAM 00122 05 D-DAMEST-FAST-STRT PIC X(01). PSCRDAM 00123 05 D-DAMEST-DRFT-AMT PIC 9(7)V99. PSCRDAM 00124 05 D-DAMEST-DRFT-NBR PIC X(10). PSCRDAM 00125 05 D-DAMEST-ORG-LOG-NBR PIC X(07). PSCRDAM 00126 05 D-DAMEST-BETTER-AMT PIC S9(7)V99. PSCRDAM 00127 05 D-DAMEST-ORG-NET-TOTAL PIC S9(7)V99. CL**3 00128 05 D-DAMEST-DEDUCTIBLE PIC S9(5)V99. CL**2 00129 05 D-DAMEST-APPEAR-AMT PIC S9(5)V99. CL**2 00130 05 D-DAMEST-UNRELATED-AMT PIC S9(7)V99. CL**2 00131 05 D-DAMEST-RELATED-AMT PIC S9(7)V99. CL**2 00132 05 D-DAMEST-SUPPLEMENT PIC S9(7)V99. CL**2 00133 05 D-DAMEST-COMP-IND PIC XXX. CL**2 00134 05 D-DAMEST-MARKUP-AMT PIC S9(7)V99. CL**2 00135 05 D-DAMEST-APPR-NAME PIC X(18). CL**2 00136 05 D-DAMEST-SUPPLE-SEQ-NUM PIC X(01). CL**2 TK3309** DATE/GREENWICH MEAN TIME/LOCAL TIME FIELDS CL**2 TK3309 05 D-DAMEST-REQ-DATE-G. CL**2 TK3309 10 D-DAMEST-REQDT-G-MM PIC XX. CL**2 TK3309 10 D-DAMEST-REQDT-G-DD PIC XX. CL**2 TK3309 10 D-DAMEST-REQDT-G-CC PIC XX. CL**2 TK3309 10 D-DAMEST-REQDT-G-YY PIC XX. CL**2 TK3309 05 D-DAMEST-REQ-TIME-G. CL**2 TK3309 10 D-DAMEST-REQTM-G-HH PIC XX. CL**2 TK3309 10 D-DAMEST-REQTM-G-MM PIC XX. CL**2 TK3309 10 D-DAMEST-REQTM-G-SS PIC XX. CL**2 TK3309**** USE EXISTING DAMEST-REQ-DATE FOR LOCAL TIME CL**2 TK3309 05 D-DAMEST-REQ-TIME-L. CL**2 TK3309 10 D-DAMEST-REQTM-L-HH PIC XX. CL**2 TK3309 10 D-DAMEST-REQTM-L-MM PIC XX. CL**2 TK3309 10 D-DAMEST-REQTM-L-SS PIC XX. CL**2 TK3309* CL**2 TK3309 05 D-DAMEST-ASGN-DATE-G. CL**2 5143 10 D-DAMEST-ASGN-G-MON PIC XX. CL**2 TK3309 10 D-DAMEST-ASGN-G-DD PIC XX. CL**2 TK3309 10 D-DAMEST-ASGN-G-CC PIC XX. CL**2 TK3309 10 D-DAMEST-ASGN-G-YY PIC XX. CL**2 TK3309 05 D-DAMEST-ASGN-TIME-G. CL**2 TK3309 10 D-DAMEST-ASGN-G-HH PIC XX. CL**2 TK3309 10 D-DAMEST-ASGN-G-MM PIC XX. CL**2 TK3309 10 D-DAMEST-ASGN-G-SS PIC XX. CL**2 TK3309**** USE EXISTING DAMEST-ASGN-DATE FOR LOCAL TIME CL**2 TK3309 05 D-DAMEST-ASGN-TIME-L. CL**2 TK3309 10 D-DAMEST-ASGN-L-HH PIC XX. CL**2 TK3309 10 D-DAMEST-ASGN-L-MM PIC XX. CL**2 TK3309 10 D-DAMEST-ASGN-L-SS PIC XX. CL**2 TK3309* CL**2 TK3309 05 D-DAMEST-SEND-DATE-G. CL**2 5143 10 D-DAMEST-SEND-G-MON PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-G-DD PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-G-CC PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-G-YY PIC XX. CL**2 TK3309 05 D-DAMEST-SEND-TIME-G. CL**2 TK3309 10 D-DAMEST-SEND-G-HH PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-G-MM PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-G-SS PIC XX. CL**2 TK3309 05 D-DAMEST-SEND-DATE-L. CL**2 5143 10 D-DAMEST-SEND-L-MON PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-L-DD PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-L-CC PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-L-YY PIC XX. CL**2 TK3309 05 D-DAMEST-SEND-TIME-L. CL**2 TK3309 10 D-DAMEST-SEND-L-HH PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-L-MM PIC XX. CL**2 TK3309 10 D-DAMEST-SEND-L-SS PIC XX. CL**2 TK3309* CL**2 TK3309 05 D-DAMEST-VDRCV-DATE-G. CL**2 5143 10 D-DAMEST-VDRCV-G-MON PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-G-DD PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-G-CC PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-G-YY PIC XX. CL**2 TK3309 05 D-DAMEST-VDRCV-TIME-G. CL**2 TK3309 10 D-DAMEST-VDRCV-G-HH PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-G-MM PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-G-SS PIC XX. CL**2 TK3309 05 D-DAMEST-VDRCV-DATE-L. CL**2 5143 10 D-DAMEST-VDRCV-L-MON PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-L-DD PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-L-CC PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-L-YY PIC XX. CL**2 TK3309 05 D-DAMEST-VDRCV-TIME-L. CL**2 TK3309 10 D-DAMEST-VDRCV-L-HH PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-L-MM PIC XX. CL**2 TK3309 10 D-DAMEST-VDRCV-L-SS PIC XX. CL**2 TK3309* CL**2 TK3309 05 D-DAMEST-DNLOAD-DATE-G. CL**2 5143 10 D-DAMEST-DNLOAD-G-MON PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-G-DD PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-G-CC PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-G-YY PIC XX. CL**2 TK3309 05 D-DAMEST-DNLOAD-TIME-G. CL**2 TK3309 10 D-DAMEST-DNLOAD-G-HH PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-G-MM PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-G-SS PIC XX. CL**2 TK3309 05 D-DAMEST-DNLOAD-DATE-L. CL**2 5143 10 D-DAMEST-DNLOAD-L-MON PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-L-DD PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-L-CC PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-L-YY PIC XX. CL**2 TK3309 05 D-DAMEST-DNLOAD-TIME-L. CL**2 TK3309 10 D-DAMEST-DNLOAD-L-HH PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-L-MM PIC XX. CL**2 TK3309 10 D-DAMEST-DNLOAD-L-SS PIC XX. CL**2 TK3309* CL**2 TK3309 05 D-DAMEST-INSPT-DATE-G. CL**2 5143 10 D-DAMEST-INSPT-G-MON PIC XX. CL**2 TK3309 10 D-DAMEST-INSPT-G-DD PIC XX. CL**2 TK3309 10 D-DAMEST-INSPT-G-CC PIC XX. CL**2 TK3309 10 D-DAMEST-INSPT-G-YY PIC XX. CL**2 TK3309 05 D-DAMEST-INSPT-TIME-G. CL**2 TK3309 10 D-DAMEST-INSPT-G-HH PIC XX. CL**2 TK3309 10 D-DAMEST-INSPT-G-MM PIC XX. CL**2 TK3309 10 D-DAMEST-INSPT-G-SS PIC XX. CL**2 TK3309**** USE EXISTING DAMEST-INSPT-DATE FOR LOCAL TIME CL**2 TK3309 05 D-DAMEST-INSPT-TIME-L. CL**2 TK3309 10 D-DAMEST-INSPT-L-HH PIC XX. CL**2 TK3309 10 D-DAMEST-INSPT-L-MM PIC XX. CL**2 TK3309 10 D-DAMEST-INSPT-L-SS PIC XX. CL**2 TK3309* CL**2 TK3309 05 D-DAMEST-CMPLT-DATE-G. CL**2 5143 10 D-DAMEST-CMPLT-G-MON PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-G-DD PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-G-CC PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-G-YY PIC XX. CL**2 TK3309 05 D-DAMEST-CMPLT-TIME-G. CL**2 TK3309 10 D-DAMEST-CMPLT-G-HH PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-G-MM PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-G-SS PIC XX. CL**2 TK3309 05 D-DAMEST-CMPLT-DATE-L. CL**2 5143 10 D-DAMEST-CMPLT-L-MON PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-L-DD PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-L-CC PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-L-YY PIC XX. CL**2 TK3309 05 D-DAMEST-CMPLT-TIME-L. CL**2 TK3309 10 D-DAMEST-CMPLT-L-HH PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-L-MM PIC XX. CL**2 TK3309 10 D-DAMEST-CMPLT-L-SS PIC XX. CL**2 TK3309 05 D-DAMEST-INSPT-ZIP PIC X(9). CL**2 TK3309 05 D-DAMEST-UNUSED PIC X(59). CL**2 00137**** 05 D-DAMEST-UNUSED PIC X(240). CL**2 00001 03 SCRFILE-PARTS-SEGMENT PIC X(120). 12/14/92 00002 PSCRPART 00003 03 I-PARTS-SEGMENT REDEFINES SCRFILE-PARTS-SEGMENT. LV002 00004 05 I-PARTS-KEY. PSCRPART 00005 07 I-PARTS-NUM PIC XXX. PSCRPART 00006 05 I-PARTS-OP-CODE PIC XX. PSCRPART 00007 05 I-PARTS-SPECIAL-CODES PIC X. PSCRPART 00008 05 I-PARTS-GDE PIC XXX. PSCRPART 00009 05 I-PARTS-MESSAGE-CODE PIC X(15). PSCRPART 00010 05 I-PARTS-MESSAGE-CD REDEFINES I-PARTS-MESSAGE-CODE PSCRPART 00011 OCCURS 5 TIMES. PSCRPART 00012 10 I-PARTS-MESSAGE PIC X(03). PSCRPART 00013 05 I-PARTS-PART-DESCRIP PIC X(25). PSCRPART 00014 05 I-PARTS-PART-NBR PIC X(20). PSCRPART 00015 05 I-PARTS-PART-PRICE PIC 9(5)V99. PSCRPART 00016 05 I-PARTS-PRICE-MSG REDEFINES PSCRPART 00017 I-PARTS-PART-PRICE PIC X(07). PSCRPART 00018 05 I-PARTS-PRICE-FLAG PIC X. PSCRPART 00019 05 I-PARTS-RATE-CODE PIC X. PSCRPART 00020 05 I-PARTS-ADJ-PCT PIC 99. PSCRPART 00021 05 I-PARTS-ADJ-IND PIC X. PSCRPART 00022 05 I-PARTS-SUPL-FLAG PIC X. PSCRPART 00023 05 I-PARTS-HOURS-FLAG PIC X. PSCRPART 00024 05 I-PARTS-LABOR-HRS PIC 9(4)V9. PSCRPART 00025 05 I-PARTS-REPAIR-SEQ-IND PIC X(04). CL**2 00026 05 I-PARTS-SECTION PIC X(02). CL**2 00027 05 I-PARTS-PAGE PIC X(02). CL**2 00028 05 I-PARTS-RATE-FLAG PIC X(01). CL**2 00029 05 I-PARTS-SUPPLE-SEQ-NO PIC X(01). CL**2 00030 05 I-PARTS-CCC-PART-TYPE-CD PIC X(04). CL**2 00030 05 I-PARTS-CCC-GDE-NBR PIC X(07). CL**2 00030 05 I-PARTS-QUANTITY PIC X(02). CL**2 00030 05 I-PARTS-PRICE-NEG-IND PIC X(01). CL**2 00030 05 I-PARTS-LBR-HRS-NEG-IND PIC X(01). CL**2 00030 05 FILLER PIC X(06). CL**2 00001 03 SCRFILE-DETAIL-SEGMENT PIC X(300). 02/05/90 00002 PSCRDTL 00003 03 J-DETAIL-SEGMENT REDEFINES SCRFILE-DETAIL-SEGMENT. LV001 00004 05 J-SEGMENT-KEY. PSCRDTL 00005 07 J-DETAIL-NUM PIC XXX. PSCRDTL 00006 05 J-DETAIL-PART-INFO. PSCRDTL 00007 10 J-DETAIL-PXCHG-GDE-NBR PIC X(03). PSCRDTL 00008 10 J-DETAIL-PXCHG-DESCRIP PIC X(26). PSCRDTL 00009 10 J-DETAIL-PXCHG-PART-NO PIC X(20). PSCRDTL 00010 10 J-DETAIL-PXCHG-OEM-PART-NO PIC X(20). PSCRDTL 00011 10 J-DETAIL-PXCHG-PAL-MFG PIC X(15). PSCRDTL 00012 10 J-DETAIL-PXCHG-DIST-CERT-CD PIC X. PSCRDTL 00013 10 J-DETAIL-PXCHG-PART-TYPE PIC X. PSCRDTL 00014 10 J-DETAIL-PXCHG-ADDR-CODE PIC X(02). PSCRDTL 00015 10 J-DETAIL-PRICE-FLAG PIC X(01). PSCRDTL 00016 05 J-DETAIL-DIST-INFO. PSCRDTL 00017 10 J-DETAIL-DIST-ADDR-CODE PIC X(02). PSCRDTL 00018 10 J-DETAIL-PXCHG-NAME PIC X(20). PSCRDTL 00019 10 J-DETAIL-PXCHG-DIST-ID PIC X(07). PSCRDTL 00020 10 J-DETAIL-PXCHG-PHONE PIC X(10). PSCRDTL 00021 10 J-DETAIL-PARTS-ADDRESS PIC X(28). PSCRDTL 00022 10 J-DETAIL-PXCHG-CITY PIC X(21). PSCRDTL 00023 10 J-DETAIL-PXCHG-ST PIC XX. PSCRDTL 00024 10 J-DETAIL-PXCHG-ZIP PIC X(7). PSCRDTL 00025 10 J-DETAIL-PXCHG-PHONE2 PIC X(10). PSCRDTL 00026 05 J-DETAIL-PXCHG-PAL-PRICE PIC 9(7)V99. PSCRDTL 00027 05 J-DETAIL-CCC-GDE-NBR PIC X(07). PSCRDTL 00027 05 J-DETAIL-UNUSED PIC X(71). PSCRDTL 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* TESTING LOG SR GIE CLMCR CONV * 00020000 000300* CHANGED 01/03/87 BY APP - ADDED CL MCR 88'S: 'MF' & 'MG' * 00030000 000400* CHANGED 01/03/87 BY APP - ADDED CL MCRPROP 88: 'MH' * 00040000 000500* CHANGED 04/25/88 BY JGM - INCREASED COMMON AREA BY 950: * 00050000 000600* - P-END-COV-PART BY 43, * 00060000 000700* - FILLER BY 7, * 00070000 000800* - UNUSED BY 900; * 00080000 000900* - ADDED ONE-SHOT INDICATORS * 00090000 001000* CHANGED 08/15/88 BY AAM - ADDED SIMPFR FOR 1H LINE * 00100000 001100* CHANGED 11/14/87 BY TD - ADDED WORKERS COMP FIELDS * 00110000 001200* CHANGED 7/24/89 BY SMS - ADDED CLTBOP POLICY TYPE *00120000 001300* 05/14/90 PIEHL MPAC MASTERPAC AUTOMATED COVERAGE 00130000 001400* 08/12/91 PIEHL OMNI OMNI AUTOMATED COVERAGE 00140000 001500* 07/06/92 ST.ONGE ORP ADD MARKET-SEGMENT-INDICATOR. * 00150000 001600* 06/21/93 MICHAUD DUP ADD WIP DESCRIPTORS FOR USAGE. * 00160000 001700* 11/11/94 SHIKOLUK CLREG ADDED PIF POLICY TYPE * 00170000 001800* 88 POLICY-TYPE-IS-PIF VALUE 'PF' * 00180000 001900* 11/11/94 BOWEN CLREG ADD PIF ENTITY DATA ITEMS. * 00190000 002000* 06/11/95 DWJONES ALTI ADD ALTERNATE INPUT INDICATOR * 00200000 002100* 11/12/95 BBOWEN PIF ADD PIF-LOC(PREMISE) * 00210000 002110* 09/14/97 BATT PIF ADD 3RD PARTY SMALL DEDUCTIBLE IND * 00211001 002110* 03/15/98 K STOTT Y2K CORRECT FILLER AMOUNT * 00211001 002110* 04/15/97 N MONZET Y2KEANE ADD CENTURY FOR YEAR 2000 * 00211000 * 04/13/98 J MOCCIO ENDSC ADD FIELDS FOR CLEXTRA SCREEN * 018900* 03/11/01 PRADY PIFMM ADD PIF OP NUMBER FOR LIAB * 01890000 * 06/10/01 SLRICHAR MPAC2 ADD PIF CLASS CODE AND SUBLINE CODE * * 02/13/05 PZOCCO MPAC ADD PROD-CURRENCY-IND * * 02/13/05 TOM EVANS SPC ADD 3 SPC FIELDS AT END * * 04/10/05 PZOCCO MPAC ADD PAC-INVOKED-IND & PAC-TYPE * * 11/09/08 MLAVOIE2 PPL. ADD PIPELINE-UAR-NBR, * * PIPELINE-UAR-CLASS-CD, * * PIPELINE-UAR-CLASS-CD-DESC * * 11/09/08 FONTANAZZA PPL ITG 126831 ADDED NEW P-POLICY-TYPE * * VALUES. * * 04/11/10 FONTANAZZA PPL ITG 282484 REMOVE UNUSED PIPELINE * * FIELDS. * 002120* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00212000 002130* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00213000 002140***** NOTE: REIN-IND;POL-RETAIN-LMT ARE ON THE ROOT SEGMENT*** 00214000 002150***** NOTE: UP-CSP-IND;CSP-IND ARE ON THE ROOT SEGMENT***** 00215000 002160***** NOTE: CL-OFF-ABBR IS FOUND ON THE ROOT SEGMENT ***** 00216000 002170***** NOTE: PROD-NAM IS FOUND ON THE ROOT SEGMENT ***** 00217000 002180***** NOTE: POL-NUM, FORM, & SYMBOL ARE ON THE ROOT ***** 00218000 002190***** NOTE: SAC-IND IS ON THE ROOT ***** 00219000 002200***** NOTE: SAILOR ACCOUNT NUMBER IS ON THE ROOT ***** 00220000 002300***** NOTE: CARR-MKT-IND AND CO-COD ARE ON THE ROOT ***** 00230000 002400***** NOTE: ACCT-BANK-COD IS FOUND ON THE ROOT***** 00240000 002500 SKIP2 00250000 002600 03 P-COMML-POLICY-SEGMENT REDEFINES 00260000 002700 R-POLICY-SEGMENT. 00270000 002800 04 P-COMM-WIP-AREA-1. 00280000 002900 05 P-POLICY-TYPE PIC XX. 00290000 003000 88 POLICY-TYPE-IS-AETLIAB VALUE 'AE'. 00300000 003100 88 POLICY-TYPE-IS-AETPROP VALUE 'AF'. 00310000 003200 88 POLICY-TYPE-IS-AETAUTO VALUE 'AG'. 00320000 003300 88 POLICY-TYPE-IS-SACAUTO VALUE 'SA'. 00330000 003400 88 POLICY-TYPE-IS-SACGL VALUE 'SL'. 00340000 003500 88 POLICY-TYPE-IS-SACSIM-GL VALUE 'SS'. 00350000 003600 88 POLICY-TYPE-IS-CSSC VALUE 'SC'. 00360000 003700 88 POLICY-TYPE-IS-OMNI VALUE 'P1'. 00370000 003800 88 POLICY-TYPE-IS-FRPROP VALUE 'P2'. 00380000 003900 88 POLICY-TYPE-IS-TXFRPROP VALUE 'P3'. 00390000 004000 88 POLICY-TYPE-IS-TXMO1 VALUE 'P4'. 00400000 004100 88 POLICY-TYPE-IS-OCEANP VALUE 'P5'. 00410000 004200 88 POLICY-TYPE-IS-BOILER VALUE 'P6'. 00420000 004300 88 POLICY-TYPE-IS-PROP-SIM VALUE 'P7'. 00430000 004400 88 POLICY-TYPE-IS-SIMPFR VALUE 'P8'. 00440000 004500 88 POLICY-TYPE-IS-GENLIAB VALUE 'LA'. 00450000 004600 88 POLICY-TYPE-IS-PROFLIAB VALUE 'LB'. 00460000 004700 88 POLICY-TYPE-IS-TXFRLIAB VALUE 'LC'. 00470000 004800 88 POLICY-TYPE-IS-FRLIAB VALUE 'LD'. 00480000 004900 88 POLICY-TYPE-IS-OCEANL VALUE 'LE'. 00490000 005000 88 POLICY-TYPE-IS-LIAB-SIM VALUE 'LF'. 00500000 005100 88 POLICY-TYPE-IS-MPAUTO VALUE 'MA'. 00510000 005200 88 POLICY-TYPE-IS-MPLIAB VALUE 'MB'. 00520000 005300 88 POLICY-TYPE-IS-MPPROP VALUE 'MC'. 00530000 005400 88 POLICY-TYPE-IS-SIM-MP-LIAB VALUE 'MD'. 00540000 005500 88 POLICY-TYPE-IS-SIM-MP-PROP VALUE 'ME'. 00550000 005600 88 POLICY-TYPE-IS-MCRAUTO VALUE 'MF'. 00560000 005700 88 POLICY-TYPE-IS-MCRLIAB VALUE 'MG'. 00570000 005800 88 POLICY-TYPE-IS-MCRPROP VALUE 'MH'. 00580000 005900 88 POLICY-TYPE-AUTOM-MP-AUTO VALUE 'MR'. 00590000 006000 88 POLICY-TYPE-AUTOM-MP-LIAB VALUE 'MS'. 00600000 006100 88 POLICY-TYPE-AUTOM-MP-PROP VALUE 'MT'. 00610000 006200 88 POLICY-TYPE-OMNI-AUTO VALUE 'OA'. 00620000 006300 88 POLICY-TYPE-OMNI-LIAB VALUE 'OL'. 00630000 006400 88 POLICY-TYPE-OMNI-PROP VALUE 'OP'. 00640000 006500 88 POLICY-TYPE-IS-AUTO VALUE 'AA'. 00650000 006600 88 POLICY-TYPE-IS-MAUTO VALUE 'AB'. 00660000 006700 88 POLICY-TYPE-IS-GAR VALUE 'AC'. 00670000 006800 88 POLICY-TYPE-IS-MGAR VALUE 'AD'. 00680000 006900 88 POLICY-TYPE-IS-BURG VALUE 'CA'. 00690000 007000 88 POLICY-TYPE-IS-BURGMLT VALUE 'CB'. 00700000 007100 88 POLICY-TYPE-IS-CRSINGLE VALUE 'CC'. 00710000 007200 88 POLICY-TYPE-IS-CLFID VALUE 'CD'. 00720000 007300 88 POLICY-TYPE-IS-CLFORG VALUE 'CE'. 00730000 007400 88 POLICY-TYPE-IS-CLBOND VALUE 'CF'. 00740000 007500 88 POLICY-TYPE-IS-CRIME-SIM VALUE 'CG'. 00750000 007600 88 POLICY-TYPE-IS-WORKERS-COMP VALUE 'WC'. 00760000 007700 88 POLICY-TYPE-IS-CLTBOP VALUE 'TB'. 00770000 007800 88 POLICY-TYPE-IS-PIF VALUE 'PF'. 00780000 007800 88 POLICY-TYPE-IS-STPAUL-AUTO VALUE 'S1'. 00780000 007800 88 POLICY-TYPE-IS-STPAUL-LIAB VALUE 'S2'. 00780000 007800 88 POLICY-TYPE-IS-STPAUL-PROP VALUE 'S3'. 00780000 126831 88 POLICY-TYPE-IS-PIPELINE-AUTO VALUE 'PA'. 00780000 007800 88 POLICY-TYPE-IS-PIPELINE-LIAB VALUE 'PL'. 00780000 007800 88 POLICY-TYPE-IS-PIPELINE-PROP VALUE 'PP'. 00780000 007900 00790000 008000 05 P-CL-ORP-DATA. 00800000 008100 07 P-ORP-COD PIC XXX. 00810000 008200 07 P-ORP-DIST-COD PIC XX. 00820000 008300 07 P-SPEC-ORP-COD PIC XXX. 00830000 008400 88 LACKAWANNA VALUE '188'. 00840000 008500 88 STATE-FUND VALUE '195'. 00850000 008600 00860000 008700 05 P-CL-PROD-DATA. 00870000 008800 07 P-PROD-COD PIC X(5). 00880000 008900 00890000 009000 05 P-CL-GENERAL-POLICY-DATA. 00900000 009100 07 P-POLICY-NAME PIC X(30). 00910000 009200 07 P-SAI-NUM PIC X(9). 00920000 009300 07 P-EFF-DATE-POL-PERD. 00930000 009400 09 P-EFF-DATE-POL-MM PIC XX. 00940000 009500 09 P-EFF-DATE-POL-DD PIC XX. 00950000 009600 09 P-EFF-DATE-POL-CC PIC XX. 00960000 009700 09 P-EFF-DATE-POL-YY PIC XX. 00970000 009800 07 P-EXP-DATE-POL-PERD. 00980000 009900 09 P-EXP-DATE-POL-MM PIC XX. 00990000 010000 09 P-EXP-DATE-POL-DD PIC XX. 01000000 010100 09 P-EXP-DATE-POL-CC PIC XX. 01010000 010200 09 P-EXP-DATE-POL-YY PIC XX. 01020000 010300 07 P-POL-DATE-CANC. 01030000 010400 09 P-POL-DATE-CANC-MM PIC XX. 01040000 010500 09 P-POL-DATE-CANC-DD PIC XX. 01050000 010600 09 P-POL-DATE-CANC-CC PIC XX. 01060000 010700 09 P-POL-DATE-CANC-YY PIC XX. 01070000 010800 07 P-POL-STATUS-COD PIC X. 01080000 010900 07 P-TIC-EXC-INS-IND PIC X. 01090000 011000 07 P-RETRO-CODE PIC XX. 01100000 011100 07 P-POL-ENTY-NUM PIC X(4). 01110000 011200 07 P-POL-F-S-LOC-COD PIC X(2). 01120000 011300 07 P-ENTY-RECVD-IND PIC X(1). 01130000 011400 07 P-POL-VERSION-NUM PIC X(3). 01140000 011500 07 P-MARKET-SEGMENT-IND PIC X(1). 01150000 011600 07 FILLER PIC X(2). 01160000 011700 01170000 011800 05 P-CL-COVERAGE-B-DATA. 01180000 011900 07 P-CL-COV-B-IND PIC X. 01190000 012000 07 P-CL-COV-B-LMT PIC X(9). 01200000 012100 01210000 012200 05 P-CL-SAILOR-DATA. 01220000 012300 07 P-SAILOR-IND PIC X. 01230000 012400 07 P-COD-RISK-IND PIC X. 01240000 012500 07 P-1ST-NOT-SAILOR-IND PIC X. 01250000 012600 07 P-OLD-SAILOR-IND PIC X. 01260000 012700 07 FILLER PIC X(09). 01270000 012800 01280000 012900 05 P-CL-STATISTICAL-DATA. 01290000 013000 07 P-RESPBL-COD PIC X. 01300000 013100 07 P-RATG-MOD PIC XX. 01310000 013200 07 P-WATCH-FIL-COD PIC X. 01320000 013300 07 P-PGM-COD PIC XXX. 01330000 013400 07 P-CSP-IND PIC X. 01340000 013500 07 P-UP-CSP-IND PIC X. 01350000 013600 07 P-NEW-RENEW-IND PIC X. 01360000 013700 07 P-SPEC-COD PIC XXX. 01370000 013800 07 P-MARKET-CODE PIC XX. 01380000 013900 07 P-FIN-ACCT-COD PIC X. 01390000 014000 07 P-NONAUTO-LOSS-STATE-CODE PIC X(2). 01400000 014100 07 P-CRIME-FORM-COD PIC X(2). 01410000 014400 07 P-3RD-PARTY-SM-DEDUCTIBLE-IND PIC X(01). 01440000 PIFCRI***ADD A NEW FIELD P-CRIME-FORM-COD2 FROM THE 4 BYTES FILLERS 01441000 PIFCRI***TO SYNC WITH THE PIFCRIME-FORM-CODE FROM 2 BYTES TO 3 BYTES. 01441000 PIFCRI*********** 07 FILLER PIC X(04). 01441000 PIFCRI 07 P-CRIME-FORM-COD2 PIC X(03). 01441000 PIFCRI 07 FILLER PIC X(01). 01441000 014300 01430000 014400 05 P-CL-INDICATORS. 01440000 014500 07 P-CLPOLICY-EXPANDED-IND PIC X(01). 01450000 014600 88 CLPOLICY-EXPANDED VALUE 'Y'. 01460000 014700 07 P-CLPOL-REMOVE-TEX-IND PIC X(01). 01470000 014800 88 TEX-FIELDS-REMOVED VALUE 'X'. 01480000 014900 07 FILLER PIC X(04). 01490000 015000 01500000 015100 05 P-CL-STATES. 01510000 015200 07 P-STA-ASSOC-POL PIC X(51). 01520000 015300 01530000 015400 05 P-CL-INSURED-COMMON-DATA. 01540000 015500***** NOTE: THESE ITEMS DO NOT PERTAIN TO SERVICE CONTRACTS, * 01550000 015600***** AND ARE THEREFORE FILLER FOR THAT POLICY * 01560000 015700 07 P-END-COV-PART PIC X(203). 01570000 015800 07 P-REG-MISC-INFO PIC X(144). 01580000 015900 07 P-MANUAL-POLICY-COMMON-DATA. 01590000 016000 09 P-MAN-PROC-CENT-NAM PIC X(17). 01600000 016100 09 P-MAN-CDC-COD PIC X(04). 01610000 016200 09 FILLER PIC X(38). 01620000 016300 01630000 016400 05 P-CL-CANNED-RESPONSE-DATA REDEFINES 01640000 016500 P-CL-INSURED-COMMON-DATA. 01650000 016600 07 P-CLCANRES-NEW-OFF-NAME PIC X(12). 01660000 016700 07 P-CLCANRES-NEW-OFF-ORP PIC X(3). 01670000 016800 07 P-CLCANRES-COMMENT PIC X(267). 01680000 016900 07 P-CLCANRES-REQUE-IND PIC X. 01690000 017000 07 P-CLCANRES-RESP-NUMBERS. 01700000 017100 10 P-CLCANRES-RESP-1 PIC X. 01710000 017200 10 P-CLCANRES-RESP-2 PIC X. 01720000 017300 10 P-CLCANRES-RESP-3 PIC X. 01730000 017400 10 P-CLCANRES-RESP-4 PIC X. 01740000 017500 10 P-CLCANRES-RESP-5 PIC X. 01750000 017600 10 P-CLCANRES-RESP-6 PIC X. 01760000 017700 10 P-CLCANRES-RESP-7 PIC X. 01770000 017800 07 FILLER PIC X(116). 01780000 017900 05 P-CL-PIF-ENTY-DATA. 01790000 018000 07 P-CL-PIF-ENTY-STREET PIC X(38). 01800000 018100 07 P-CL-PIF-ENTY-CITY PIC X(24). 01810000 018200 07 P-CL-PIF-ENTY-STATE PIC X(02). 01820000 018300 07 P-CL-PIF-ENTY-ZIP PIC X(10). 01830000 018400 07 P-CL-PIF-ENTY-ENTITY-KEY PIC X(04). 01840000 018500 07 P-CL-PIF-CL-SLOC-CD REDEFINES 01850000 018600 P-CL-PIF-ENTY-ENTITY-KEY PIC 9(04). 01860000 018700 07 P-CL-PIF-ENTY-DESCRIPTION PIC X(15). 01870000 018800 07 P-CL-PIF-ALT-INPUT-IND PIC X(01). 01880000 018900 07 P-CL-PIF-LOC-CD PIC X(04). 01890000 018900 07 P-CL-PIF-LIAB-OP-NBR REDEFINES 01890000 018900 P-CL-PIF-LOC-CD PIC X(04). 01890000 019000 07 P-CL-PIF-MORTGAGEE-NAME PIC X(25). 01900000 019100 07 P-CL-PIF-MORTGAGEE-STR-ADDR1 PIC X(35). 01910000 019200 07 P-CL-PIF-MORTGAGEE-CITY PIC X(28). 01920000 019300 07 P-CL-PIF-MORTGAGEE-ST-CD PIC X(02). 01930000 019400 07 P-CL-PIF-MORTGAGEE-ZIP-CD1 PIC X(05). 01940000 019500 01950000 05 P-CLEXTRA-REQ PIC X. 05 P-CLEXTRA-NOTE-REF PIC X(29). SLR 05 P-CL-PIF-CLASS-CODE PIC X(05). SLR 05 P-CL-PIF-SUBLINE-CODE PIC X(03). WKW 05 P-LIBERALIZATION-IND PIC X(01). 05 P-SPC-ACQUIRED-POLICY PIC X(20). 05 P-SPC-OVERRIDE-DATE PIC X(08). 05 P-SPC-ORIG-POL-NUM PIC X(10). 05 P-CL-PROD-CURRENCY-IND PIC X(01). 05 P-CL-PAC-INVOKED-IND PIC X(01). 05 P-CL-PAC-TYPE PIC X(25). 05 P-SPCCOV-CRP-IND PIC X(01). 282484 05 P-CL-COMMON-AREA-UNUSED PIC X(596). 01960000 019700 04 P-COMM-WIP-AREA-2. 01970000 020000 05 P-CL-LINE-INS-DEPENDENT-DATA PIC X(3500). 02000001 019900 01990000 020000* 1000 EXTRA BYTES OF DEPENDENT DATA REMAIN UNUSED 02000000 00001 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 11/13/89 00002 * SCRFILE POLICY SEGMENT (MANUAL AUTO1&2;AUTOM1&2;GARAGE1&2 * PAUTOGAR 00003 * AND GARAGEM1&2 CLAIM REGISTRATIONS) * LV003 00004 * CPCSLIB SUBSET AUTOGAR. * PAUTOGAR 00005 * * PAUTOGAR 00006 * THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * PAUTOGAR 00007 * DATA UNIQUE TO COMMERCIAL LINE AUTO AND GARAGE POLICIES * PAUTOGAR 00008 * INCLUDING MASS. IT IS A REDEFINATION OF THE LAST 2500 * PAUTOGAR 00009 * BYTES OF THE MEMBER CLPOLICY, AND IS TO BE CODED IN A * PAUTOGAR 00010 * PROGRAM AS AN INCLUDE FOLLOWING THAT MEMBER. * PAUTOGAR 00011 * * PAUTOGAR 00012 * CREATED 4-2-84 BY DMT. * PAUTOGAR 00013 * CHANGED 9-28-84 BY BRT ADDED TWO FILEDS: * PAUTOGAR 00014 * P-CLAUTO-COLL-WAIVER-DED-IND * PAUTOGAR 00015 * P-CLGAR-COLL-WAIVER-DED-IND * PAUTOGAR 00016 * SUBTRACTED ONE BYTE FROM: * PAUTOGAR 00017 * P-CLAUTO-UNUSED 1070 => 1069 * PAUTOGAR 00018 * P-CLGAR-UNUSED 1005 => 1004 * PAUTOGAR 00019 * CHANGED 02-19-86 BY KSN ADDED P-CLMAUTO-PD-LIAB-DED * PAUTOGAR 00020 * CHANGED 02-26-86 BY CFU ADDED P-CLMCRCONV-DEPENDENT-DATA* CL**2 00021 * CHANGED 04-25-88 BY APP INC FROM 6 TO 7 BYTES SR#GFR * CL**2 00022 * P-CLGAR-KEEP-COMP-SP-VLUE * CL**2 00023 * P-CLGAR-KEEP-COLL-VALUE * CL**2 00024 * P-CLGAR-COMP-VALUE * CL**2 00025 * P-CLGAR-SPECF-PERIL-VALUE * CL**2 00026 * P-CLGAR-COLL-VALUE * CL**2 00027 * CHANGED 04-25-88 BY JCP ADDED ONE FIELD: * CL**2 00028 * P-CLAUTO-STA-EXCP * CL**2 00029 * SUBTRACTED 135 BYTES FROM: * CL**2 00030 * P-CLAUTO-UNUSED 1069 => 934 * CL**2 00031 * CHANGED 04-25-88 BY JGM ADDED TWO INDICATORS: * CL**2 00032 * P-CLAUTO-GGV-CMPL-IND * CL**2 00033 * P-CLGAR-GFR-CMPL-IND * CL**2 00034 * SUBTRACTED 10 BYTES FROM: * CL**2 00035 * P-CLAUTO-UNUSED 934 => 924 * CL**2 00036 * SUBTRACTED 9 BYTES FROM: * CL**2 00037 * P-CLGAR-UNUSED 999 => 990 * CL**2 00038 * 09/19/89 AVERYHART GUG ADD AGGREGATE LIMIT * CL**3 00039 * AND MISC. INFO LINE * CL**3 00039 * 04/21/97 L EDWARDS Y2KEANE ADDED CENTURY FOR YEAR 2000 * CL**3 004010* 03/14/98 CPETERSF AECOV CHANGE A GROUP ITEM NAME IN * 00401000 004020* ORDER TO REFERENCE IT * 00402000 00040 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CL**2 00041 SKIP2 PAUTOGAR 00042 05 P-CLAUTO-DEPENDENT-DATA REDEFINES PAUTOGAR 00043 P-CL-LINE-INS-DEPENDENT-DATA. PAUTOGAR 00044 07 P-CL-AUTO-DATA. PAUTOGAR 00045 09 P-CLAUTO1-COVERAGE-DATA. PAUTOGAR 00046 11 P-CLAUTO-COMPOSITE-RATG-IND PIC X. PAUTOGAR 00047 11 P-CLAUTO-SNGL-LMT-LIAB-OCC PIC X(10). PAUTOGAR 00048 11 P-CLAUTO-BI-LIAB-LMT-PER PIC X(10). PAUTOGAR 00049 11 P-CLAUTO-BI-LIAB-LMT-OCC PIC X(10). PAUTOGAR 00050 11 P-CLAUTO-PD-LIAB-LMT-OCC PIC X(10). PAUTOGAR 00051 11 P-CLAUTO-SNGL-PIP-LMT PIC X(10). PAUTOGAR 00052 11 P-CLAUTO-PIP-LMT-PER PIC X(10). PAUTOGAR 00053 11 P-CLAUTO-PIP-LMT-ACC PIC X(10). PAUTOGAR 00054 11 P-CLAUTO-PIP-DED PIC X(5). PAUTOGAR 00055 11 P-CLAUTO-PROP-PROT-LMT PIC X(6). PAUTOGAR 00056 11 P-CLAUTO-PROP-PROT-DED PIC X(5). PAUTOGAR 00057 11 P-CLAUTO-MED-PAY-COV-LMT PIC X(10). PAUTOGAR 00058 11 P-CLAUTO-SNGL-UM-LMT PIC X(10). PAUTOGAR 00059 11 P-CLAUTO-UM-LMT-PER PIC X(10). PAUTOGAR 00060 11 P-CLAUTO-UM-LMT-ACC PIC X(10). PAUTOGAR 00061 11 P-CLAUTO-UMPD-LMT PIC X(10). PAUTOGAR 00062 11 P-CLAUTO-COMP-VALUE PIC X(6). PAUTOGAR 00063 11 P-CLAUTO-COMP-DED PIC X(5). PAUTOGAR 00064 11 P-CLAUTO-SPECF-PERIL-IND PIC X(3). PAUTOGAR 00065 11 P-CLAUTO-SPECF-PERIL-VALUE PIC X(6). PAUTOGAR 00066 11 P-CLAUTO-SPECF-PERIL-DED PIC X(5). PAUTOGAR 00067 11 P-CLAUTO-COLL-VALUE PIC X(6). PAUTOGAR 00068 11 P-CLAUTO-COLL-WAIVER-DED-IND PIC X. PAUTOGAR 00069 11 P-CLAUTO-COLL-DED PIC X(5). PAUTOGAR 00070 11 P-CLAUTO-TOW-COV-LMT PIC X. PAUTOGAR 00071 11 P-CLAUTO-DISAB-IDEM-IND PIC X. PAUTOGAR 00072 11 P-CLAUTO-DEATH-IDEM-IND PIC X. PAUTOGAR 00073 11 P-CLAUTO-DSAB-DATH-IDEM-LMT PIC X(6). PAUTOGAR 00074 11 P-CLAUTO-RNTAL-REMB-COV-IND PIC X. PAUTOGAR 00075 11 P-CLAUTO-RNTAL-REMB-LMT PIC X(6). PAUTOGAR 00076 09 P-CLAUTO2-COVERAGE-DATA. PAUTOGAR 00077 11 P-CLAUTO-FLT-AUTOM-COV-IND PIC X. PAUTOGAR 00078 11 P-CLAUTO-FLT-AUTOM-LMT PIC X(6). PAUTOGAR 00079 11 P-CLAUTO-PRINCIPAL-GAR-CTY PIC X(20). PAUTOGAR 00080 11 P-CLAUTO-PRINCIPAL-GAR-STA PIC X(2). PAUTOGAR 00081 11 P-CLAUTO-PRINCIPAL-GAR-ZIP PIC X(9). PAUTOGAR 00082 11 P-CLAUTO-VEH-YR. PAUTOGAR 00082 13 P-CLAUTO-VEH-CC PIC X(2). PAUTOGAR 00082 13 P-CLAUTO-VEH-YY PIC X(2). PAUTOGAR 00083 11 P-CLAUTO-VEH-MAKE PIC X(6). PAUTOGAR 00084 11 P-CLAUTO-VEH-MODEL PIC X(13). PAUTOGAR 00085 11 P-CLAUTO-VEH-ID-NUM PIC X(17). PAUTOGAR 00086 11 P-CLAUTO-MORTGAGE-DATA. PAUTOGAR 00087 13 P-CLAUTO-MTGE-NAM PIC X(51). PAUTOGAR 00088 13 P-CLAUTO-MTGE-ADDR-STR PIC X(39). PAUTOGAR 00089 13 P-CLAUTO-MTGE-ADDR-CTY PIC X(13). PAUTOGAR 00090 13 P-CLAUTO-MTGE-ADDR-STA PIC X(2). PAUTOGAR 00091 13 P-CLAUTO-MTGE-ADDR-ZIP PIC X(9). PAUTOGAR 00092 11 P-CLAUTO-ADDL-INT-IND PIC X. PAUTOGAR 00093 07 P-CLAUTO-STA-EXCP PIC X(135). CL**2 00094 07 P-CLAUTO-ONESHOT-INDICATORS. CL**2 00095 09 P-CLAUTO-GGV-CMPL-IND PIC X. CL**2 00096 88 GGV-COMPLETED VALUE 'Y'. CL**2 00097 09 FILLER PIC X(9). CL**2 00098 07 P-CLAUTO-UNUSED PIC X(1972). CL**2 00099 05 P-CLMAUTO-DEPENDENT-DATA REDEFINES PAUTOGAR 00100 P-CL-LINE-INS-DEPENDENT-DATA. PAUTOGAR 00101 07 P-CL-MASS-AUTO-DATA. PAUTOGAR 00102 09 P-CLMAUTO1-COVERAGE-DATA. PAUTOGAR 00103 11 P-CLMAUTO-COMPOSITE-RTG-IND PIC X. PAUTOGAR 00104 11 P-CLMAUTO-SNGL-LMT-LIAB-OCC PIC X(10). PAUTOGAR 00105 11 P-CLMAUTO-BI-LIAB-LMT-PER PIC X(10). PAUTOGAR 00106 11 P-CLMAUTO-BI-LIAB-LMT-OCC PIC X(10). PAUTOGAR 00107 11 P-CLMAUTO-PD-LIAB-LMT-OCC PIC X(10). PAUTOGAR 00108 11 P-CLMAUTO-BI-LMT-ST-MASS-PER PIC X(10). PAUTOGAR 00109 11 P-CLMAUTO-BI-LMT-ST-MASS-ACC PIC X(10). PAUTOGAR 00110 11 P-CLMAUTO-PIP-LMT-STAT-MASS PIC X(10). PAUTOGAR 00111 11 P-CLMAUTO-MED-PAY-COV-LMT PIC X(10). PAUTOGAR 00112 11 P-CLMAUTO-UM-UND-LMT-PER PIC X(10). PAUTOGAR 00113 11 P-CLMAUTO-UM-UND-LMT-ACC PIC X(10). PAUTOGAR 00114 11 P-CLMAUTO-COMP-VALUE PIC X(6). PAUTOGAR 00115 11 P-CLMAUTO-COMP-DED PIC X(5). PAUTOGAR 00116 11 P-CLMAUTO-FI-LGHT-TRSP-VLUE PIC X(6). PAUTOGAR 00117 11 P-CLMAUTO-FI-LGHT-TRSP-DED PIC X(5). PAUTOGAR 00118 11 P-CLMAUTO-THFT-VALUE PIC X(6). PAUTOGAR 00119 11 P-CLMAUTO-THFT-DED PIC X(5). PAUTOGAR 00120 11 P-CLMAUTO-CMB-ADDL-COV-VLUE PIC X(6). PAUTOGAR 00121 11 P-CLMAUTO-COMB-ADDL-COV-DED PIC X(5). PAUTOGAR 00122 11 P-CLMAUTO-TOW-COV-IND PIC X. PAUTOGAR 00123 11 P-CLMAUTO-COLL-VALUE PIC X(6). PAUTOGAR 00124 11 P-CLMAUTO-COLL-DED PIC X(5). PAUTOGAR 00125 11 P-CLMAUTO-LMT-COLL-VALUE PIC X(6). PAUTOGAR 00126 11 P-CLMAUTO-LMT-COLL-DED PIC X(5). PAUTOGAR 00127 09 P-CLMAUTO2-COVERAGE-DATA. PAUTOGAR 00128 11 P-CLMAUTO-RNTL-REMB-COV-IND PIC X. PAUTOGAR 00129 11 P-CLMAUTO-RNTL-REMB-LMT PIC X(6). PAUTOGAR 00130 11 P-CLMAUTO-FLT-AUTOM-COV-IND PIC X. PAUTOGAR 00131 11 P-CLMAUTO-FLT-AUTOM-LMT PIC X(6). PAUTOGAR 00132 11 P-CLMAUTO-PRINCIPAL-GAR-CTY PIC X(20). PAUTOGAR 00133 11 P-CLMAUTO-PRINCIPAL-GAR-STA PIC X(2). PAUTOGAR 00134 11 P-CLMAUTO-PRINCIPAL-GAR-ZIP PIC X(9). PAUTOGAR 00135 11 P-CLMAUTO-VEH-YR. PAUTOGAR 00082 13 P-CLMAUTO-VEH-CC PIC X(2). PAUTOGAR 00082 13 P-CLMAUTO-VEH-YY PIC X(2). PAUTOGAR 00136 11 P-CLMAUTO-VEH-MAKE PIC X(6). PAUTOGAR 00137 11 P-CLMAUTO-VEH-MODEL PIC X(13). PAUTOGAR 00138 11 P-CLMAUTO-VEH-ID-NUM PIC X(17). PAUTOGAR 00139 11 P-CLMAUTO-MORTGAGE-DATA. PAUTOGAR 00140 13 P-CLMAUTO-MTGE-NAM PIC X(51). PAUTOGAR 00141 13 P-CLMAUTO-MTGE-ADDR-STR PIC X(39). PAUTOGAR 00142 13 P-CLMAUTO-MTGE-ADDR-CTY PIC X(13). PAUTOGAR 00143 13 P-CLMAUTO-MTGE-ADDR-STA PIC X(2). PAUTOGAR 00144 13 P-CLMAUTO-MTGE-ADDR-ZIP PIC X(9). PAUTOGAR 00145 11 P-CLMAUTO-ADDL-INT-IND PIC X. PAUTOGAR 00146 07 P-CLMAUTO1-ADDITIONAL-FIELDS. PAUTOGAR 00147 09 P-CLMAUTO-PD-LIAB-DED PIC X(5). PAUTOGAR 00148 07 P-CLMAUTO-UNUSED PIC X(2127). PAUTOGAR 00149 05 P-CLGAR-DEPENDENT-DATA REDEFINES PAUTOGAR 00150 P-CL-LINE-INS-DEPENDENT-DATA. PAUTOGAR 00151 07 P-CL-GARAGE-DATA. PAUTOGAR 00152 09 P-CLGAR1-COVERAGE-DATA. PAUTOGAR 00153 11 P-CLGAR-SNGL-LMT-LIAB-OCC PIC X(10). PAUTOGAR 00154 11 P-CLGAR-BI-LIAB-LMT-PER PIC X(10). PAUTOGAR 00155 11 P-CLGAR-LIAB-DED PIC X(5). PAUTOGAR 00156 11 P-CLGAR-BI-LIAB-LMT-OCC PIC X(10). PAUTOGAR 00157 11 P-CLGAR-PD-LIAB-LMT-OCC PIC X(10). PAUTOGAR 00158 11 P-CLGAR-SNGL-PIP-LMT PIC X(10). PAUTOGAR 00159 11 P-CLGAR-PIP-LMT-PER PIC X(10). PAUTOGAR 00160 11 P-CLGAR-PIP-LMT-ACC PIC X(10). PAUTOGAR 00161 11 P-CLGAR-PIP-DED PIC X(5). PAUTOGAR 00162 11 P-CLGAR-PROP-PROT-LMT PIC X(6). PAUTOGAR 00163 11 P-CLGAR-PROP-PROT-DED PIC X(5). PAUTOGAR 00164 11 P-CLGAR-MED-PAY-COV-LMT PIC X(10). PAUTOGAR 00165 11 P-CLGAR-SNGL-UM-LMT PIC X(10). PAUTOGAR 00166 11 P-CLGAR-UM-LMT-PER PIC X(10). PAUTOGAR 00167 11 P-CLGAR-UM-LMT-ACC PIC X(10). PAUTOGAR 00168 11 P-CLGAR-UM-PD-LMT PIC X(10). PAUTOGAR 00169 11 P-CLGAR-KEEP-COMP-SP-IND PIC X(4). PAUTOGAR 00170 11 P-CLGAR-KEEP-COMP-SP-VLUE PIC X(7). CL**2 00171 11 P-CLGAR-KP-COMP-SP-DED-AUTO PIC X(5). PAUTOGAR 00172 11 P-CLGAR-KP-COMP-SP-DED-LOSS PIC X(5). PAUTOGAR 00173 11 P-CLGAR-KEEP-COLL-VALUE PIC X(7). CL**2 00174 11 P-CLGAR-KEEP-COLL-DED-AUTO PIC X(5). PAUTOGAR 00175 11 P-CLGAR-COMP-VALUE PIC X(7). CL**2 00176 11 P-CLGAR-COMP-DED-AUTO PIC X(5). PAUTOGAR 00177 11 P-CLGAR-COMP-DED PIC X(5). PAUTOGAR 00178 11 P-CLGAR-SPECF-PERIL-IND PIC X(3). PAUTOGAR 00179 11 P-CLGAR-SPECF-PERIL-VALUE PIC X(7). CL**2 00180 11 P-CLGAR-SPECF-PERIL-DED-AUTO PIC X(5). PAUTOGAR 00181 11 P-CLGAR-SPECF-PERIL-DED PIC X(5). PAUTOGAR 00182 11 P-CLGAR-COLL-VALUE PIC X(7). CL**2 00183 11 P-CLGAR-COLL-WAIVER-DED-IND PIC X. PAUTOGAR 00184 11 P-CLGAR-COLL-DED PIC X(5). PAUTOGAR 00185 11 P-CLGAR-TOW-COV-IND PIC X. PAUTOGAR 00186 09 P-CLGAR2-COVERAGE-DATA. PAUTOGAR 00187 11 P-CLGAR-DISAB-IDEM-IND PIC X. PAUTOGAR 00188 11 P-CLGAR-DEATH-INDEM-IND PIC X. PAUTOGAR 00189 11 P-CLGAR-DSAB-DATH-INDEM-LMT PIC X(6). PAUTOGAR 00190 11 P-CLGAR-RNTAL-REMB-COV-IND PIC X. PAUTOGAR 00191 11 P-CLGAR-RNTAL-REMB-LMT PIC X(6). PAUTOGAR 00192 11 P-CLGAR-FLT-AUTOM-COV-IND PIC X. PAUTOGAR 00193 11 P-CLGAR-FLT-AUTOM-LMT PIC X(6). PAUTOGAR 00194 11 P-CLGAR-KEEP-LEG-LIAB-DATA. PAUTOGAR 00195 13 P-CLGAR-LIAB-BASIS PIC X. PAUTOGAR 00196 13 P-CLGAR-LIAB-PRIMARY PIC X. PAUTOGAR 00197 13 P-CLGAR-LIAB-EXCESS PIC X. PAUTOGAR 00198 11 P-CLGAR-TYP-DLER-COLL-IND PIC X(3). PAUTOGAR 00199 11 P-CLGAR-DLER-DRV-AWY-COL-IND PIC X. PAUTOGAR 00200 11 P-CLGAR-DLER-DRV-AWY-LMT PIC X(6). PAUTOGAR 00201 11 P-CLGAR-PERS-INJ-COV-LMT-OCC PIC X. PAUTOGAR 00202 11 P-CLGAR-PERS-INJ-LMT PIC X(6). PAUTOGAR 00203 11 P-CLGAR-PRINCIPAL-CAR-CTY PIC X(20). PAUTOGAR 00204 11 P-CLGAR-PRINCIPAL-GAR-STA PIC X(2). PAUTOGAR 00205 11 P-CLGAR-PRINCIPAL-GAR-ZIP PIC X(9). PAUTOGAR 00206 11 P-CLGAR-VEH-YR. PAUTOGAR 00082 13 P-CLGAR-VEH-CC PIC X(2). PAUTOGAR 00082 13 P-CLGAR-VEH-YY PIC X(2). PAUTOGAR 00207 11 P-CLGAR-VEH-MAKE PIC X(6). PAUTOGAR 00208 11 P-CLGAR-VEH-MODEL PIC X(13). PAUTOGAR 00209 11 P-CLGAR-VEH-ID-NUM PIC X(17). PAUTOGAR 00210 11 P-CLGAR-MORTGAGE-DATA. PAUTOGAR 00211 13 P-CLGAR-MTGE-NAM PIC X(51). PAUTOGAR 00212 13 P-CLGAR-MTGE-ADDR-STR PIC X(39). PAUTOGAR 00213 13 P-CLGAR-MTGE-ADDR-CTY PIC X(13). PAUTOGAR 00214 13 P-CLGAR-MTGE-ADDR-STA PIC X(2). PAUTOGAR 00215 13 P-CLGAR-MTGE-ADDR-ZIP PIC X(9). PAUTOGAR 00216 11 P-CLGAR-ADDL-INT-IND PIC X. PAUTOGAR 00217 07 P-CLGAR-ONESHOT-INDICATORS. CL**2 00218 09 P-CLGAR-GFR-CMPL-IND PIC X. CL**2 00219 88 GFR-COMPLETED VALUE 'Y'. CL**2 00220 09 FILLER PIC X(8). CL**2 00221 07 P-CLGAR-AGGR PIC X(10). CL**3 00222 07 P-CLGAR-MISC-INFO PIC X(130). CL**3 00223 07 P-CLGAR-UNUSED PIC X(1898). CL**3 00224 05 P-CLMGAR-DEPENDENT-DATA REDEFINES PAUTOGAR 00225 P-CL-LINE-INS-DEPENDENT-DATA. PAUTOGAR 00226 07 P-CL-MASS-GARAGE-DATA. PAUTOGAR 00227 09 P-CLMGAR1-COVERAGE-DATA. PAUTOGAR 00228 11 P-CLMGAR-SNGL-LMT-LIAB-OCC PIC X(10). PAUTOGAR 00229 11 P-CLMGAR-BI-LIAB-LMT-PER PIC X(10). PAUTOGAR 00230 11 P-CLMGAR-BI-LIAB-LMT-OCC PIC X(10). PAUTOGAR 00231 11 P-CLMGAR-PD-LIAB-LMT-OCC PIC X(10). PAUTOGAR 00232 11 P-CLMGAR-PD-LIAB-DED PIC X(5). PAUTOGAR 00233 11 P-CLMGAR-BI-LMT-ST-MASS-PER PIC X(10). PAUTOGAR 00234 11 P-CLMGAR-BI-LMT-ST-MASS-ACC PIC X(10). PAUTOGAR 00235 11 P-CLMGAR-PIP-LMT-ST-MASS PIC X(10). PAUTOGAR 00236 11 P-CLMGAR-MED-PAY-COV-LMT PIC X(10). PAUTOGAR 00237 11 P-CLMGAR-PREM-MED-PAY-LMT PIC X(10). PAUTOGAR 00238 11 P-CLMGAR-UM-UND-LMT-PER PIC X(10). PAUTOGAR 00239 11 P-CLMGAR-UM-UND-LMT-ACC PIC X(10). PAUTOGAR 00240 11 P-CLMGAR-FIRE-EXPLO-VALUE PIC X(6). PAUTOGAR 00241 11 P-CLMGAR-THFT-ENT-AUTO-VAL PIC X(6). PAUTOGAR 00242 11 P-CLMGAR-RIOT-VAND-VALUE PIC X(6). PAUTOGAR 00243 11 P-CLMGAR-RIOT-VAND-DED PIC X(5). PAUTOGAR 00244 11 P-CLMGAR-COLL-UPSET-VALUE PIC X(6). PAUTOGAR 00245 11 P-CLMGAR-COLL-UPSET-DED PIC X(5). PAUTOGAR 00246 11 P-CLMGAR-COLL-VALUE PIC X(6). PAUTOGAR 00247 11 P-CLMGAR-COLL-DED PIC X(5). PAUTOGAR 00248 11 P-CLMGAR-LMT-COLL-VALUE PIC X(6). PAUTOGAR 00249 11 P-CLMGAR-LMT-COLL-DED PIC X(5). PAUTOGAR 00250 11 P-CLMGAR-COMP-EXCP-COL-VALUE PIC X(6). PAUTOGAR 00251 11 P-CLMGAR-COMP-EXCP-COL-DED PIC X(5). PAUTOGAR 00252 09 P-CLMGAR2-COVERAGE-DATA. PAUTOGAR 00253 11 P-CLMGAR-FIRE-LGHT-TRSP-VAL PIC X(6). PAUTOGAR 00254 11 P-CLMGAR-FIRE-LGHT-TRSP-DED PIC X(5). PAUTOGAR 00255 11 P-CLMGAR-THFT-VALUE PIC X(6). PAUTOGAR 00256 11 P-CLMGAR-THFT-DED PIC X(5). PAUTOGAR 00257 11 P-CLMGAR-COMB-ADDL-COV-VAL PIC X(6). PAUTOGAR 00258 11 P-CLMGAR-COMB-ADDL-COV-DED PIC X(5). PAUTOGAR 00259 11 P-CLMGAR-TOW-COV-LMT PIC X. PAUTOGAR 00260 11 P-CLMGAR-PRINCIPAL-GAR-CTY PIC X(19). PAUTOGAR 00261 11 P-CLMGAR-PRINCIPAL-GAR-STA PIC X(2). PAUTOGAR 00262 11 P-CLMGAR-PRINCIPAL-GAR-ZIP PIC X(9). PAUTOGAR 00263 11 P-CLMGAR-RNTAL-REMB-COV-IND PIC X. PAUTOGAR 00264 11 P-CLMGAR-RNTAL-REMB-COV-LMT PIC X(6). PAUTOGAR 00265 11 P-CLMGAR-FLEET-AUTOM-COV-IND PIC X. PAUTOGAR 00266 11 P-CLMGAR-FLEET-AUTOM-LMT PIC X(6). PAUTOGAR 00267 11 P-CLMGAR-KEEP-LEG-LIAB. PAUTOGAR 00268 13 P-CLMGAR-LIAB-BASIS PIC X. PAUTOGAR 00269 13 P-CLMGAR-LIAB-PRIMARY PIC X. PAUTOGAR 00270 13 P-CLMGAR-LIAB-EXCESS PIC X. PAUTOGAR 00271 11 P-CLMGAR-TYP-DLER-COLL-IND PIC X(3). PAUTOGAR 00272 11 P-CLMGAR-DLR-DRIVE-AWAY-IND PIC X. PAUTOGAR 00273 11 P-CLMGAR-DLR-DVE-AWY-COL-LMT PIC X(6). PAUTOGAR 00274 11 P-CLMGAR-PERS-INJ-COV-IND PIC X. PAUTOGAR 00275 11 P-CLMGAR-PERS-INJ-CO-LMT-OCC PIC X(6). PAUTOGAR 00276 11 P-CLMGAR-VEH-YR. PAUTOGAR 00082 13 P-CLMGAR-VEH-CC PIC X(2). PAUTOGAR 00082 13 P-CLMGAR-VEH-YY PIC X(2). PAUTOGAR 00277 11 P-CLMGAR-VEH-MAKE PIC X(6). PAUTOGAR 00278 11 P-CLMGAR-VEH-MODEL PIC X(13). PAUTOGAR 00279 11 P-CLMGAR-VEH-ID-NUM PIC X(17). PAUTOGAR 00280 11 P-CLMGAR-MORTGAGE-DATA. PAUTOGAR 00281 13 P-CLMGAR-MTGE-NAM PIC X(51). PAUTOGAR 00282 13 P-CLMGAR-MTGE-ADDR-STR PIC X(39). PAUTOGAR 00283 13 P-CLMGAR-MTGE-ADDR-CTY PIC X(13). PAUTOGAR 00284 13 P-CLMGAR-MTGE-ADDR-STA PIC X(2). PAUTOGAR 00285 13 P-CLMGAR-MTGE-ADDR-ZIP PIC X(9). PAUTOGAR 00286 11 P-CLMGAR-ADDL-INT-IND PIC X. PAUTOGAR 00287 07 P-CLMGAR-UNUSED PIC X(2065). PAUTOGAR 00288 SKIP2 PAUTOGAR 00289 05 P-CLMCRCONV-DEPENDENT-DATA REDEFINES PAUTOGAR 00290 P-CL-LINE-INS-DEPENDENT-DATA. PAUTOGAR 00291 07 P-CLMCRCONV-AUTO-DATA. PAUTOGAR 00292 09 P-CLMCRCONV-COVERAGE-DATA. PAUTOGAR 00293 11 P-CLMCRCONV-COV-IND-BI PIC X(4). PAUTOGAR 00294 11 P-CLMCRCONV-COV-IND-PD PIC X(4). PAUTOGAR 00295 11 P-CLMCRCONV-COV-IND-MP PIC X(4). PAUTOGAR 00296 11 P-CLMCRCONV-COV-IND-UM PIC X(4). PAUTOGAR 00297 11 P-CLMCRCONV-COV-IND-DI PIC X(4). PAUTOGAR 00298 11 P-CLMCRCONV-COV-IND-COMP PIC X(4). PAUTOGAR 00299 11 P-CLMCRCONV-COV-IND-COLL PIC X(4). PAUTOGAR 00300 11 P-CLMCRCONV-COV-IND-LCOL PIC X(4). PAUTOGAR 00301 11 P-CLMCRCONV-COV-IND-LWCD PIC X(4). PAUTOGAR 00302 11 P-CLMCRCONV-COV-IND-TOW PIC X(4). PAUTOGAR 00303 11 P-CLMCRCONV-COV-IND-RR PIC X(4). PAUTOGAR 00304 11 P-CLMCRCONV-COV-IND-BPIP PIC X(4). PAUTOGAR 00305 11 P-CLMCRCONV-COV-IND-XPIP PIC X(4). PAUTOGAR 00306 11 P-CLMCRCONV-COV-IND-OPIP PIC X(4). PAUTOGAR 00307 11 P-CLMCRCONV-COV-IND-SP PIC X(4). PAUTOGAR 00308 11 P-CLMCRCONV-COV-IND-WI PIC X(4). PAUTOGAR 00309 11 P-CLMCRCONV-COV-IND-NC PIC X(4). PAUTOGAR 00310 11 P-CLMCRCONV-MORTGAGE-DATA. PAUTOGAR 00311 13 P-CLMCRCONV-MTGE-NAM PIC X(51). PAUTOGAR 00312 13 P-CLMCRCONV-MTGE-ADDR-STR PIC X(39). PAUTOGAR 00313 13 P-CLMCRCONV-MTGE-ADDR-CTY PIC X(13). PAUTOGAR 00314 13 P-CLMCRCONV-MTGE-ADDR-STA PIC X(2). PAUTOGAR 00315 13 P-CLMCRCONV-MTGE-ADDR-ZIP PIC X(9). PAUTOGAR 00316 07 P-CLMCRCONV-UNUSED PIC X(2318).PAUTOGAR 00289 05 P-CLAETCONV-DEPENDENT-DATA REDEFINES PAUTOGAR 00290 P-CL-LINE-INS-DEPENDENT-DATA. PAUTOGAR 00291 07 P-CLAETCONV-AUTO-DATA. PAUTOGAR 00310 09 P-CLAETCONV-COVERAGE-DATA. PAUTOGAR 00311 11 P-AETAUTO-PREMIUM-ST PIC 9(2). PAUTOGAR 00312 11 FILLER PIC X(6). PAUTOGAR 00313 11 P-AETAUTO-VEHICLE-NUM PIC 9(04). PAUTOGAR 00310 09 P-CLAETCONV-MORTGAGE-DATA. PAUTOGAR 00311 11 P-CLAETCONV-MTGE-NAM PIC X(51). PAUTOGAR 00312 11 P-CLAETCONV-MTGE-ADDR-STR PIC X(39). PAUTOGAR 00313 11 P-CLAETCONV-MTGE-ADDR-CTY PIC X(13). PAUTOGAR 00314 11 P-CLAETCONV-MTGE-ADDR-STA PIC X(2). PAUTOGAR 00315 11 P-CLAETCONV-MTGE-ADDR-ZIP PIC X(9). PAUTOGAR 033900 09 P-CLAETCONV-COVERAGE-IND-DATA. 03390000 00293 11 P-CLAETCONV-COV-IND-BI PIC X(4). PAUTOGAR 00294 11 P-CLAETCONV-COV-IND-PD PIC X(4). PAUTOGAR 00295 11 P-CLAETCONV-COV-IND-MP PIC X(4). PAUTOGAR 00296 11 P-CLAETCONV-COV-IND-UM PIC X(4). PAUTOGAR 00296 11 P-CLAETCONV-COV-IND-UNDI PIC X(4). PAUTOGAR 00297 11 P-CLAETCONV-COV-IND-DI PIC X(4). PAUTOGAR 00298 11 P-CLAETCONV-COV-IND-COMP PIC X(4). PAUTOGAR 00299 11 P-CLAETCONV-COV-IND-COLL PIC X(4). PAUTOGAR 00300 11 P-CLAETCONV-COV-IND-LCOL PIC X(4). PAUTOGAR 00301 11 P-CLAETCONV-COV-IND-LWCD PIC X(4). PAUTOGAR 00302 11 P-CLAETCONV-COV-IND-TOW PIC X(4). PAUTOGAR 00303 11 P-CLAETCONV-COV-IND-RR PIC X(4). PAUTOGAR 00304 11 P-CLAETCONV-COV-IND-BPIP PIC X(4). PAUTOGAR 00305 11 P-CLAETCONV-COV-IND-XPIP PIC X(4). PAUTOGAR 00306 11 P-CLAETCONV-COV-IND-OPIP PIC X(4). PAUTOGAR 00307 11 P-CLAETCONV-COV-IND-SP PIC X(4). PAUTOGAR 00308 11 P-CLAETCONV-COV-IND-WI PIC X(4). PAUTOGAR 00309 11 P-CLAETCONV-COV-IND-NC PIC X(4). PAUTOGAR 00309 11 P-CLAETCONV-COV-IND-NC-DESC PIC X(30). PAUTOGAR 00316 07 P-CLAETCONV-UNUSED PIC X(2272).PAUTOGAR 000100******************************************************************00010000 000200* SCRFILE POLICY SEGMENT ( MCR CL GEN LIABILITY ) 00020000 000300* CPCSLIB SUBSET AETPOL 00030000 000400* CREATED 11-04-96 TWC 00040000 000500******************************************************************00050000 000600***************************************************************** 00060000 000700* M A I N T E N A N C E L O G * 00070000 000800***************************************************************** 00080000 000900* * 00090000 001000* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00100000 001100***************************************************************** 00110000 001200* 11/08/96 TWC GIE CLAET CONVERSION * 00120000 001300***************************************************************** 00130000 001400 05 P-AETLIAB-DEPENDENT-DATA 00140000 001500 REDEFINES P-CL-LINE-INS-DEPENDENT-DATA. 00150000 001600 07 P-AETLIAB-PROFESSIONAL-DATA. 00160000 001700 09 P-AETLIAB-PREMIUM-ST PIC 9(2). 00170000 001800 09 P-AETLIAB-CLASS-COD PIC 9(06). 00180000 001900 09 P-AETLIAB-TYPE-OF-POLICY PIC X(02). 00190000 002000 09 FILLER PIC X(03). 00200000 002100 09 P-AETLIAB-LOCATION-NUM PIC 9(04). 00210000 002200 09 P-AETLIAB-CUMULATIVE-IND PIC X. 00220000 002300 09 P-AETLIAB-CLEAN-UP-IND PIC X. 00230000 002400 09 P-AETLIAB-LIAB-PERS-LIMIT PIC 9(08). 00240000 002500 09 P-AETLIAB-LIAB-OCCUR-LIMIT PIC 9(08). 00250000 002600 09 P-AETLIAB-LIAB-DED-LIMIT PIC 9(06). 00260000 002700 09 P-AETLIAB-COVERAGE-CODES. 00270000 002800 11 P-AETLIAB-COV-IND-NC PIC XXXX. 00280000 002900 11 P-AETLIAB-COV-IND-NC-DESC PIC X(30). 00290000 003000 11 P-AETLIAB-COV-IND-BI PIC XXXX. 00300000 003100 11 P-AETLIAB-COV-IND-PD PIC XXXX. 00310000 003200 11 P-AETLIAB-COV-IND-PROF PIC XXXX. 00320000 003300 11 P-AETLIAB-COV-IND-PI PIC XXXX. 00330000 003400**** 11 P-AETLIAB-COV-IND-MAL PIC XXXX. 00340000 003500**** 11 P-AETLIAB-COV-IND-PEXC PIC XXXX. 00350000 003600**** 11 P-AETLIAB-COV-IND-ELUB PIC XXXX. 00360000 003700 11 P-AETLIAB-COV-IND-MP PIC XXXX. 00370000 003800 11 P-AETLIAB-COV-IND-PRBI PIC XXXX. 00380000 003900 11 P-AETLIAB-COV-IND-CO-PRPD PIC XXXX. 00390000 004000 11 P-AETLIAB-COV-IND-CO-PRBI PIC XXXX. 00400000 004100 11 P-AETLIAB-COV-IND-PRPD PIC XXXX. 00410000 004200 09 P-AETLIAB-BUILDING-NUM PIC 9(04). 00420000 *THIS IS FOR CONVERTED CLAIMS ONLY 00420100 004200 09 P-AETLIAB-COV-IND-ELUB PIC X(04). 00421000 004300 07 P-AETLIAB-UNUSED-2 PIC X(1325). 00430000 004400 07 FILLER PIC X(1056). 00440000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* SCRFILE POLICY SEGMENT (MANUAL CL BOILER1;BOILER2;OCEAN1) * 00020002 000300* CPCSLIB SUBSET BOILOC * 00030000 000400* * 00040000 000500* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGE AND OTHER * 00050000 000600* DATA UNIQUE TO COMMERCIAL BOILER/MACHINERY AND OCEAN * 00060000 000700* MARINE POLICIES. IT IS A REDEFINITION OF THE LAST 2500 * 00070000 000800* BYTES OF THE MEMBER CLPOLICY, AND IS TO BE CODED IN A * 00080000 000900* PROGRAM AS AND INCLUDE FOLLOWING THAT MEMBER. * 00090000 001000* * 00100000 001100* * 00110000 001200* CREATED 4-3-84 BY DMT * 00120000 001300* * 00130000 001310* JMBONNEY Y2KEANE ADDED CORRECT FILLER FOR YEAR 2000 * 00131000 001320* * 00132000 001400* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00140000 001500***************************************************************** 00150000 001600* M A I N T E N A N C E L O G * 00160000 001700***************************************************************** 00170000 001800* * 00180000 001900* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00190000 002000***************************************************************** 00200000 002100* 03/08/88 AL PEPIN GIE CLMCR CONVERSION * 00210000 002200***************************************************************** 00220000 002300 SKIP2 00230000 002400 05 P-CLBOIL-DEPENDENT-DATA REDEFINES 00240000 002500 P-CL-LINE-INS-DEPENDENT-DATA. 00250000 002600 07 P-BOILER-MACHINERY-DATA. 00260000 002700 09 P-BOILER1-COVERAGE-DATA. 00270000 002800 11 P-BOILER-IRI-COD PIC X. 00280000 002900 11 P-BOILER-HEAT-IND PIC X. 00290000 003000 11 P-BOILER-HEAT-COOL-IND PIC X. 00300000 003100 11 P-BOILER-DIR-DMG-LMT-ACC PIC X(9). 00310000 003200 11 P-BOILER-COMB-LMT-IND PIC X. 00320000 003300 11 P-BOILER-DIR-DMG-DED PIC X(8). 00330000 003400 11 P-BOILER-COMB-DED-IND PIC X. 00340000 003500 11 P-BOILER-OBJ-COD PIC X(3). 00350000 003600 11 P-BOILER-REPAIR-REPL-COV-IND PIC X(2). 00360000 003700 11 P-BOILER-PRDTN-MACH-COV-IND PIC X(2). 00370000 003800 11 P-BOILER-UTIL-EQUIP-EXCL-IND PIC X(2). 00380000 003900 11 P-BOILER-AMMONIA-CONTAM-LMT PIC X(9). 00390000 004000 11 P-BOILER-AMMON-CONTAM-COINS PIC X(3). 00400000 004100 11 P-BOILER-WATER-DMG-LMT PIC X(9). 00410000 004200 11 P-BOILER-INDIR-TYPE-OF-BUS. 00420000 004300 13 P-BOILER-NA PIC X. 00430000 004400 13 P-BOILER-PRODUCTION PIC X. 00440000 004500 13 P-BOILER-SALES PIC X. 00450000 004600 13 P-BOILER-RENTS PIC X. 00460000 004700 13 P-BOILER-INCOME PIC X. 00470000 004800 11 P-BOILER-DAILY-INDEM PIC X(5). 00480000 004900 11 P-BOILER-INTERRUP-COD PIC X(3). 00490000 005000 11 P-BOILER-BUS-INTRUP-LMT-LOSS PIC X(9). 00500000 005100 11 P-BOILER-BUS-INTERUP-DED PIC X(10). 00510000 005200 11 P-BOILER-INTERUP-DED-UNIT. 00520000 005300 13 P-BOILER-DOLLERS PIC X. 00530000 005400 13 P-BOILER-HOURS PIC X. 00540000 005500 13 P-BOILER-DAYS PIC X. 00550000 005600 11 P-BOILER-ORD-PAY-IND PIC X(2). 00560000 005700 11 P-BOILER-COINS-SUSP-TERM-DTE. 00570003 005710 13 P-BOILER-COINS-SUSP-TERM-MM PIC X(2). 00571003 005720 13 P-BOILER-COINS-SUSP-TERM-DD PIC X(2). 00572003 005730 13 P-BOILER-COINS-SUSP-TERM-CC PIC X(2). 00573003 005740 13 P-BOILER-COINS-SUSP-TERM-YY PIC X(2). 00574003 005800 11 P-BOILER-RPT-VAL-MAIL-IND PIC X. 00580000 005900 11 P-BOILER-CONSEQ-DMG-IND PIC X. 00590000 006000 11 P-BOILER-CONSEQ-DMG-DED PIC X(10). 00600000 006100 11 P-BOILER-OTHER-COD PIC X(3). 00610000 006200 11 P-BOILER-EXTRA-EXP-IND PIC X. 00620000 006300 11 P-BOILER-EXTRA-EXP-DED PIC X(10). 00630000 006400 09 P-BOILER2-COVERAGE-DATA. 00640000 006500 11 P-BOILER-LINE-DATA OCCURS 7 TIMES. 00650000 006600 13 P-BOILER-DESG-NUM PIC X(4). 00660000 006700 13 P-BOILER-SCH-OBJ-DESC PIC X(45). 00670000 006800 13 P-BOILER-SECT-NUM PIC X(2). 00680000 006900 13 P-BOILER-SCH-OBJ-DED PIC X(10). 00690000 007000 11 P-BOILER-MORTGAGE-DATA. 00700000 007100 13 P-BOILER-MTGE-NAM PIC X(51). 00710000 007200 13 P-BOILER-MTGE-ADDR-STR PIC X(39). 00720000 007300 13 P-BOILER-MTGE-ADDR-CTY PIC X(13). 00730000 007400 13 P-BOILER-MTGE-ADDR-STA PIC X(2). 00740000 007500 13 P-BOILER-MTGE-ADDR-ZIP PIC X(9). 00750000 007600 07 P-CLBOIL-UNUSED PIC X(788). 00760000 007700 07 FILLER PIC X(1048). 00770003 007800 05 P-CLOCEAN-DEPENDENT-DATA REDEFINES 00780000 007900 P-CL-LINE-INS-DEPENDENT-DATA. 00790000 008000 07 P-CL-OCEAN-MARINE-DATA. 00800000 008100 09 P-OCEAN1-COVERAGE-DATA. 00810000 008200 11 P-OCEAN-COMMODITY-COD PIC X(6). 00820000 008300 11 P-OCEAN-CARGO-COV-LMT PIC X(10). 00830000 008400 11 P-OCEAN-CARGO-DED PIC X(35). 00840000 008500 11 P-OCEAN-HULL-COV-LMT PIC X(10). 00850000 008600 11 P-OCEAN-HULL-DED PIC X(35). 00860000 008700 11 P-OCEAN-PROT-IDEM-LMT-OCC PIC X(10). 00870000 008800 11 P-OCEAN-PROT-IDEM-DED-OCC PIC X(35). 00880000 008900 11 P-OCEAN-HULL-NAM PIC X(25). 00890000 009000 11 P-OCEAN-INSURED-VALUE PIC X(7). 00900000 009100 11 P-OCEAN-EVALU-PERCENTAGE PIC X(3). 00910000 009200 11 P-OCEAN-MORTGAGE-DATA. 00920000 009300 13 P-OCEAN-MTGE-NAM PIC X(51). 00930000 009400 13 P-OCEAN-MTGE-ADDR-STR PIC X(39). 00940000 009500 13 P-OCEAN-MTGE-ADDR-CTY PIC X(13). 00950000 009600 13 P-OCEAN-MTGE-ADDR-STA PIC X(2). 00960000 009700 13 P-OCEAN-MTGE-ADDR-ZIP PIC X(9). 00970000 009800 11 P-OCEAN-ADDL-INT-IND PIC X. 00980000 009900 11 P-OCEAN-REG-MISC-INFO PIC X(200). 00990000 010000 11 P-OCEAN-END-COV-PART PIC X(130). 01000000 010100 07 P-CLOCEAN-UNUSED PIC X(829). 01010000 010200 07 FILLER PIC X(1050). 01020000 010300 05 P-MCRPROP-DEPENDENT-DATA REDEFINES 01030000 010400 P-CL-LINE-INS-DEPENDENT-DATA. 01040000 010500 07 P-CL-MCRPROP-DATA. 01050000 010600 09 P-MCRPROP-COVERAGE-DATA. 01060000 010700 11 P-MCRPROP-OBJ-COD PIC X(3). 01070000 010800 11 P-MCRPROP-BUS-INTERRUP-COD PIC X(3). 01080000 010900 11 P-MCRPROP-OTHER-COD PIC X(3). 01090000 011000 11 P-MCRPROP-TYP-POL-IND PIC X. 01100000 011100 11 P-MCRPROP-COMMODITY-COD PIC X(6). 01110000 011200 11 P-MCRPROP-COV-IND-NC PIC X(4). 01120000 011300 11 P-MCRPROP-COV-IND-B PIC X(4). 01130000 011400 11 P-MCRPROP-COV-IND-CI PIC X(4). 01140000 011500 11 P-MCRPROP-COV-IND-CO PIC X(4). 01150000 011600 11 P-MCRPROP-COV-IND-BUS PIC X(4). 01160000 011700 11 P-MCRPROP-COV-IND-EARN PIC X(4). 01170000 011800 11 P-MCRPROP-COV-IND-E PIC X(4). 01180000 011900 11 P-MCRPROP-COV-IND-RENT PIC X(4). 01190000 012000 11 P-MCRPROP-COV-IND-TF PIC X(4). 01200000 012100 11 P-MCRPROP-COV-IND-IM PIC X(4). 01210000 012200 11 P-MCRPROP-COV-IND-PG PIC X(4). 01220000 012300 11 P-MCRPROP-COV-IND-OMH PIC X(4). 01230000 012400 11 P-MCRPROP-COV-IND-OMC PIC X(4). 01240000 012500 11 P-MCRPROP-COV-IND-IDIR PIC X(4). 01250000 012600 11 P-MCRPROP-COV-IND-DIR PIC X(4). 01260000 012700 11 P-MCRPROP-COV-IND-HEAT PIC X(4). 01270000 012800 11 P-MCRPROP-COV-IND-COOL PIC X(4). 01280000 012900 11 P-MCRPROP-COV-IND-FID PIC X(4). 01290000 013000 11 P-MCRPROP-COV-IND-FIDB PIC X(4). 01300000 013100 11 P-MCRPROP-COV-IND-FIDX PIC X(4). 01310000 013200 11 P-MCRPROP-COV-IND-BURG PIC X(4). 01320000 013300 11 P-MCRPROP-COV-IND-FORG PIC X(4). 01330000 013400 11 P-MCRPROP-COV-IND-EQ PIC X(4). 01340000 013500 11 P-MCRPROP-MORTGAGE-DATA. 01350000 013600 13 P-MCRPROP-MTGE-NAM PIC X(51). 01360000 013700 13 P-MCRPROP-MTGE-ADDR-STR PIC X(39). 01370000 013800 13 P-MCRPROP-MTGE-ADDR-CTY PIC X(13). 01380000 013900 13 P-MCRPROP-MTGE-ADDR-STA PIC X(2). 01390000 014000 13 P-MCRPROP-MTGE-ADDR-ZIP PIC X(9). 01400000 014100 07 P-MCRPROP-UNUSED PIC X(1228). 01410000 014200 07 FILLER PIC X(1050). 01420000 014300 05 P-AETPROP-DEPENDENT-DATA REDEFINES 01430000 014400 P-CL-LINE-INS-DEPENDENT-DATA. 01440000 014500 07 P-CL-AETPROP-DATA. 01450000 014600 09 P-AETPROP-PREMIUM-ST PIC 9(2). 01460000 014700 09 P-AETPROP-CLASS-COD PIC 9(6). 01470000 014800 09 P-AETPROP-TYPE-OF-POLICY PIC X(2). 01480000 014900 09 FILLER PIC X(3). 01490000 015000 09 P-AETPROP-LOCATION-NUM PIC 9(4). 01500000 015100 09 P-AETPROP-BUILDING-NUM PIC 9(4). 01510000 015200 09 P-AETPROP-MORTGAGE-DATA. 01520000 015300 11 P-AETPROP-MTGE-NAM PIC X(51). 01530000 015400 11 P-AETPROP-MTGE-ADDR-STR PIC X(39). 01540000 015500 11 P-AETPROP-MTGE-ADDR-CTY PIC X(13). 01550000 015600 11 P-AETPROP-MTGE-ADDR-STA PIC X(2). 01560000 015700 11 P-AETPROP-MTGE-ADDR-ZIP PIC X(9). 01570000 015800 09 P-AETPROP-COVERAGE-DATA. 01580000 015900 11 P-AETPROP-COV-IND-NC PIC X(4). 01590000 016000 11 P-AETPROP-COV-IND-NC-DESC PIC X(30). 01600000 016100 11 P-AETPROP-COV-IND-B PIC X(4). 01610000 016200 11 P-AETPROP-COV-IND-CI PIC X(4). 01620000 016300 11 P-AETPROP-COV-IND-CO PIC X(4). 01630000 016400 11 P-AETPROP-COV-IND-BUS PIC X(4). 01640000 016500 11 P-AETPROP-COV-IND-EARN PIC X(4). 01650000 016600 11 P-AETPROP-COV-IND-E PIC X(4). 01660000 016700 11 P-AETPROP-COV-IND-RENT PIC X(4). 01670000 016800 11 P-AETPROP-COV-IND-TF PIC X(4). 01680000 016900 11 P-AETPROP-COV-IND-IMFA PIC X(4). 01690000 017000 11 P-AETPROP-COV-IND-IMFU PIC X(4). 01700000 017100 11 P-AETPROP-COV-IND-IMJW PIC X(4). 01710000 017200 11 P-AETPROP-COV-IND-IMOF PIC X(4). 01720000 017300 11 P-AETPROP-COV-IND-IMSP PIC X(4). 01730000 017400 11 P-AETPROP-COV-IND-PG PIC X(4). 01740000 017500 11 P-AETPROP-COV-IND-OMH PIC X(4). 01750000 017600 11 P-AETPROP-COV-IND-OMC PIC X(4). 01760000 017700 11 P-AETPROP-COV-IND-IDIR PIC X(4). 01770000 017800 11 P-AETPROP-COV-IND-DIR PIC X(4). 01780000 017900 11 P-AETPROP-COV-IND-HEAT PIC X(4). 01790000 018000 11 P-AETPROP-COV-IND-COOL PIC X(4). 01800000 018100 11 P-AETPROP-COV-IND-FID PIC X(4). 01810000 018200 11 P-AETPROP-COV-IND-FIDB PIC X(4). 01820000 018300 11 P-AETPROP-COV-IND-FIDX PIC X(4). 01830000 018400 11 P-AETPROP-COV-IND-CTRE PIC X(4). 01840000 018500 11 P-AETPROP-COV-IND-BLDR PIC X(4). 01850000 018600 11 P-AETPROP-COV-IND-CPBE PIC X(4). 01860000 018700 11 P-AETPROP-COV-IND-BURG PIC X(4). 01870000 018800 11 P-AETPROP-COV-IND-FORG PIC X(4). 01880000 018900 11 P-AETPROP-COV-IND-EQ PIC X(4). 01890000 019000 07 P-AETPROP-UNUSED PIC X(1177). 01900000 019100 07 FILLER PIC X(1038). 01910000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* SCRFILE POLICY SEGMENT (MANUAL CL BOILER1;BOILER2;OCEAN1) * 00020002 000300* CPCSLIB SUBSET BOILOC * 00030000 000400* * 00040000 000500* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGE AND OTHER * 00050000 000600* DATA UNIQUE TO COMMERCIAL BOILER/MACHINERY AND OCEAN * 00060000 000700* MARINE POLICIES. IT IS A REDEFINITION OF THE LAST 2500 * 00070000 000800* BYTES OF THE MEMBER CLPOLICY, AND IS TO BE CODED IN A * 00080000 000900* PROGRAM AS AND INCLUDE FOLLOWING THAT MEMBER. * 00090000 001000* * 00100000 001100* * 00110000 001200* CREATED 4-3-84 BY DMT * 00120000 001300* * 00130000 001310* JMBONNEY Y2KEANE ADDED CORRECT FILLER FOR YEAR 2000 * 00131000 001320* * 00132000 001400* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00140000 001500***************************************************************** 00150000 001600* M A I N T E N A N C E L O G * 00160000 001700***************************************************************** 00170000 001800* * 00180000 001900* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00190000 002000***************************************************************** 00200000 002100* 03/08/88 AL PEPIN GIE CLMCR CONVERSION * 00210000 002200***************************************************************** 00220000 002300 SKIP2 00230000 002400 05 P-CLBOIL-DEPENDENT-DATA REDEFINES 00240000 002500 P-CL-LINE-INS-DEPENDENT-DATA. 00250000 002600 07 P-BOILER-MACHINERY-DATA. 00260000 002700 09 P-BOILER1-COVERAGE-DATA. 00270000 002800 11 P-BOILER-IRI-COD PIC X. 00280000 002900 11 P-BOILER-HEAT-IND PIC X. 00290000 003000 11 P-BOILER-HEAT-COOL-IND PIC X. 00300000 003100 11 P-BOILER-DIR-DMG-LMT-ACC PIC X(9). 00310000 003200 11 P-BOILER-COMB-LMT-IND PIC X. 00320000 003300 11 P-BOILER-DIR-DMG-DED PIC X(8). 00330000 003400 11 P-BOILER-COMB-DED-IND PIC X. 00340000 003500 11 P-BOILER-OBJ-COD PIC X(3). 00350000 003600 11 P-BOILER-REPAIR-REPL-COV-IND PIC X(2). 00360000 003700 11 P-BOILER-PRDTN-MACH-COV-IND PIC X(2). 00370000 003800 11 P-BOILER-UTIL-EQUIP-EXCL-IND PIC X(2). 00380000 003900 11 P-BOILER-AMMONIA-CONTAM-LMT PIC X(9). 00390000 004000 11 P-BOILER-AMMON-CONTAM-COINS PIC X(3). 00400000 004100 11 P-BOILER-WATER-DMG-LMT PIC X(9). 00410000 004200 11 P-BOILER-INDIR-TYPE-OF-BUS. 00420000 004300 13 P-BOILER-NA PIC X. 00430000 004400 13 P-BOILER-PRODUCTION PIC X. 00440000 004500 13 P-BOILER-SALES PIC X. 00450000 004600 13 P-BOILER-RENTS PIC X. 00460000 004700 13 P-BOILER-INCOME PIC X. 00470000 004800 11 P-BOILER-DAILY-INDEM PIC X(5). 00480000 004900 11 P-BOILER-INTERRUP-COD PIC X(3). 00490000 005000 11 P-BOILER-BUS-INTRUP-LMT-LOSS PIC X(9). 00500000 005100 11 P-BOILER-BUS-INTERUP-DED PIC X(10). 00510000 005200 11 P-BOILER-INTERUP-DED-UNIT. 00520000 005300 13 P-BOILER-DOLLERS PIC X. 00530000 005400 13 P-BOILER-HOURS PIC X. 00540000 005500 13 P-BOILER-DAYS PIC X. 00550000 005600 11 P-BOILER-ORD-PAY-IND PIC X(2). 00560000 005700 11 P-BOILER-COINS-SUSP-TERM-DTE. 00570003 005710 13 P-BOILER-COINS-SUSP-TERM-MM PIC X(2). 00571003 005720 13 P-BOILER-COINS-SUSP-TERM-DD PIC X(2). 00572003 005730 13 P-BOILER-COINS-SUSP-TERM-CC PIC X(2). 00573003 005740 13 P-BOILER-COINS-SUSP-TERM-YY PIC X(2). 00574003 005800 11 P-BOILER-RPT-VAL-MAIL-IND PIC X. 00580000 005900 11 P-BOILER-CONSEQ-DMG-IND PIC X. 00590000 006000 11 P-BOILER-CONSEQ-DMG-DED PIC X(10). 00600000 006100 11 P-BOILER-OTHER-COD PIC X(3). 00610000 006200 11 P-BOILER-EXTRA-EXP-IND PIC X. 00620000 006300 11 P-BOILER-EXTRA-EXP-DED PIC X(10). 00630000 006400 09 P-BOILER2-COVERAGE-DATA. 00640000 006500 11 P-BOILER-LINE-DATA OCCURS 7 TIMES. 00650000 006600 13 P-BOILER-DESG-NUM PIC X(4). 00660000 006700 13 P-BOILER-SCH-OBJ-DESC PIC X(45). 00670000 006800 13 P-BOILER-SECT-NUM PIC X(2). 00680000 006900 13 P-BOILER-SCH-OBJ-DED PIC X(10). 00690000 007000 11 P-BOILER-MORTGAGE-DATA. 00700000 007100 13 P-BOILER-MTGE-NAM PIC X(51). 00710000 007200 13 P-BOILER-MTGE-ADDR-STR PIC X(39). 00720000 007300 13 P-BOILER-MTGE-ADDR-CTY PIC X(13). 00730000 007400 13 P-BOILER-MTGE-ADDR-STA PIC X(2). 00740000 007500 13 P-BOILER-MTGE-ADDR-ZIP PIC X(9). 00750000 007600 07 P-CLBOIL-UNUSED PIC X(788). 00760000 007700 07 FILLER PIC X(1048). 00770003 007800 05 P-CLOCEAN-DEPENDENT-DATA REDEFINES 00780000 007900 P-CL-LINE-INS-DEPENDENT-DATA. 00790000 008000 07 P-CL-OCEAN-MARINE-DATA. 00800000 008100 09 P-OCEAN1-COVERAGE-DATA. 00810000 008200 11 P-OCEAN-COMMODITY-COD PIC X(6). 00820000 008300 11 P-OCEAN-CARGO-COV-LMT PIC X(10). 00830000 008400 11 P-OCEAN-CARGO-DED PIC X(35). 00840000 008500 11 P-OCEAN-HULL-COV-LMT PIC X(10). 00850000 008600 11 P-OCEAN-HULL-DED PIC X(35). 00860000 008700 11 P-OCEAN-PROT-IDEM-LMT-OCC PIC X(10). 00870000 008800 11 P-OCEAN-PROT-IDEM-DED-OCC PIC X(35). 00880000 008900 11 P-OCEAN-HULL-NAM PIC X(25). 00890000 009000 11 P-OCEAN-INSURED-VALUE PIC X(7). 00900000 009100 11 P-OCEAN-EVALU-PERCENTAGE PIC X(3). 00910000 009200 11 P-OCEAN-MORTGAGE-DATA. 00920000 009300 13 P-OCEAN-MTGE-NAM PIC X(51). 00930000 009400 13 P-OCEAN-MTGE-ADDR-STR PIC X(39). 00940000 009500 13 P-OCEAN-MTGE-ADDR-CTY PIC X(13). 00950000 009600 13 P-OCEAN-MTGE-ADDR-STA PIC X(2). 00960000 009700 13 P-OCEAN-MTGE-ADDR-ZIP PIC X(9). 00970000 009800 11 P-OCEAN-ADDL-INT-IND PIC X. 00980000 009900 11 P-OCEAN-REG-MISC-INFO PIC X(200). 00990000 010000 11 P-OCEAN-END-COV-PART PIC X(130). 01000000 010100 07 P-CLOCEAN-UNUSED PIC X(829). 01010000 010200 07 FILLER PIC X(1050). 01020000 010300 05 P-MCRPROP-DEPENDENT-DATA REDEFINES 01030000 010400 P-CL-LINE-INS-DEPENDENT-DATA. 01040000 010500 07 P-CL-MCRPROP-DATA. 01050000 010600 09 P-MCRPROP-COVERAGE-DATA. 01060000 010700 11 P-MCRPROP-OBJ-COD PIC X(3). 01070000 010800 11 P-MCRPROP-BUS-INTERRUP-COD PIC X(3). 01080000 010900 11 P-MCRPROP-OTHER-COD PIC X(3). 01090000 011000 11 P-MCRPROP-TYP-POL-IND PIC X. 01100000 011100 11 P-MCRPROP-COMMODITY-COD PIC X(6). 01110000 011200 11 P-MCRPROP-COV-IND-NC PIC X(4). 01120000 011300 11 P-MCRPROP-COV-IND-B PIC X(4). 01130000 011400 11 P-MCRPROP-COV-IND-CI PIC X(4). 01140000 011500 11 P-MCRPROP-COV-IND-CO PIC X(4). 01150000 011600 11 P-MCRPROP-COV-IND-BUS PIC X(4). 01160000 011700 11 P-MCRPROP-COV-IND-EARN PIC X(4). 01170000 011800 11 P-MCRPROP-COV-IND-E PIC X(4). 01180000 011900 11 P-MCRPROP-COV-IND-RENT PIC X(4). 01190000 012000 11 P-MCRPROP-COV-IND-TF PIC X(4). 01200000 012100 11 P-MCRPROP-COV-IND-IM PIC X(4). 01210000 012200 11 P-MCRPROP-COV-IND-PG PIC X(4). 01220000 012300 11 P-MCRPROP-COV-IND-OMH PIC X(4). 01230000 012400 11 P-MCRPROP-COV-IND-OMC PIC X(4). 01240000 012500 11 P-MCRPROP-COV-IND-IDIR PIC X(4). 01250000 012600 11 P-MCRPROP-COV-IND-DIR PIC X(4). 01260000 012700 11 P-MCRPROP-COV-IND-HEAT PIC X(4). 01270000 012800 11 P-MCRPROP-COV-IND-COOL PIC X(4). 01280000 012900 11 P-MCRPROP-COV-IND-FID PIC X(4). 01290000 013000 11 P-MCRPROP-COV-IND-FIDB PIC X(4). 01300000 013100 11 P-MCRPROP-COV-IND-FIDX PIC X(4). 01310000 013200 11 P-MCRPROP-COV-IND-BURG PIC X(4). 01320000 013300 11 P-MCRPROP-COV-IND-FORG PIC X(4). 01330000 013400 11 P-MCRPROP-COV-IND-EQ PIC X(4). 01340000 013500 11 P-MCRPROP-MORTGAGE-DATA. 01350000 013600 13 P-MCRPROP-MTGE-NAM PIC X(51). 01360000 013700 13 P-MCRPROP-MTGE-ADDR-STR PIC X(39). 01370000 013800 13 P-MCRPROP-MTGE-ADDR-CTY PIC X(13). 01380000 013900 13 P-MCRPROP-MTGE-ADDR-STA PIC X(2). 01390000 014000 13 P-MCRPROP-MTGE-ADDR-ZIP PIC X(9). 01400000 014100 07 P-MCRPROP-UNUSED PIC X(1228). 01410000 014200 07 FILLER PIC X(1050). 01420000 014300 05 P-AETPROP-DEPENDENT-DATA REDEFINES 01430000 014400 P-CL-LINE-INS-DEPENDENT-DATA. 01440000 014500 07 P-CL-AETPROP-DATA. 01450000 014600 09 P-AETPROP-PREMIUM-ST PIC 9(2). 01460000 014700 09 P-AETPROP-CLASS-COD PIC 9(6). 01470000 014800 09 P-AETPROP-TYPE-OF-POLICY PIC X(2). 01480000 014900 09 FILLER PIC X(3). 01490000 015000 09 P-AETPROP-LOCATION-NUM PIC 9(4). 01500000 015100 09 P-AETPROP-BUILDING-NUM PIC 9(4). 01510000 015200 09 P-AETPROP-MORTGAGE-DATA. 01520000 015300 11 P-AETPROP-MTGE-NAM PIC X(51). 01530000 015400 11 P-AETPROP-MTGE-ADDR-STR PIC X(39). 01540000 015500 11 P-AETPROP-MTGE-ADDR-CTY PIC X(13). 01550000 015600 11 P-AETPROP-MTGE-ADDR-STA PIC X(2). 01560000 015700 11 P-AETPROP-MTGE-ADDR-ZIP PIC X(9). 01570000 015800 09 P-AETPROP-COVERAGE-DATA. 01580000 015900 11 P-AETPROP-COV-IND-NC PIC X(4). 01590000 016000 11 P-AETPROP-COV-IND-NC-DESC PIC X(30). 01600000 016100 11 P-AETPROP-COV-IND-B PIC X(4). 01610000 016200 11 P-AETPROP-COV-IND-CI PIC X(4). 01620000 016300 11 P-AETPROP-COV-IND-CO PIC X(4). 01630000 016400 11 P-AETPROP-COV-IND-BUS PIC X(4). 01640000 016500 11 P-AETPROP-COV-IND-EARN PIC X(4). 01650000 016600 11 P-AETPROP-COV-IND-E PIC X(4). 01660000 016700 11 P-AETPROP-COV-IND-RENT PIC X(4). 01670000 016800 11 P-AETPROP-COV-IND-TF PIC X(4). 01680000 016900 11 P-AETPROP-COV-IND-IMFA PIC X(4). 01690000 017000 11 P-AETPROP-COV-IND-IMFU PIC X(4). 01700000 017100 11 P-AETPROP-COV-IND-IMJW PIC X(4). 01710000 017200 11 P-AETPROP-COV-IND-IMOF PIC X(4). 01720000 017300 11 P-AETPROP-COV-IND-IMSP PIC X(4). 01730000 017400 11 P-AETPROP-COV-IND-PG PIC X(4). 01740000 017500 11 P-AETPROP-COV-IND-OMH PIC X(4). 01750000 017600 11 P-AETPROP-COV-IND-OMC PIC X(4). 01760000 017700 11 P-AETPROP-COV-IND-IDIR PIC X(4). 01770000 017800 11 P-AETPROP-COV-IND-DIR PIC X(4). 01780000 017900 11 P-AETPROP-COV-IND-HEAT PIC X(4). 01790000 018000 11 P-AETPROP-COV-IND-COOL PIC X(4). 01800000 018100 11 P-AETPROP-COV-IND-FID PIC X(4). 01810000 018200 11 P-AETPROP-COV-IND-FIDB PIC X(4). 01820000 018300 11 P-AETPROP-COV-IND-FIDX PIC X(4). 01830000 018400 11 P-AETPROP-COV-IND-CTRE PIC X(4). 01840000 018500 11 P-AETPROP-COV-IND-BLDR PIC X(4). 01850000 018600 11 P-AETPROP-COV-IND-CPBE PIC X(4). 01860000 018700 11 P-AETPROP-COV-IND-BURG PIC X(4). 01870000 018800 11 P-AETPROP-COV-IND-FORG PIC X(4). 01880000 018900 11 P-AETPROP-COV-IND-EQ PIC X(4). 01890000 019000 07 P-AETPROP-UNUSED PIC X(1177). 01900000 019100 07 FILLER PIC X(1038). 01910000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010001 000200* SCRFILE POLICY SEGMENT (MANUAL BURG1,2,3;BURGMULT1,2; * 00020001 000300* CPCSLIB SUBSET CRIME. FIDELTY;FORGERY;BOND;SINGLE;RUN) * 00030001 000400* * 00040001 000500* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * 00050001 000600* DATA UNIQUE TO COMMERCIAL LINES CRIME POLICIES. IT * 00060001 000700* IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00070002 000800* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00080001 000900* FOLLOWING THAT MEMBER. * 00090001 001000* * 00100001 001100* CREATED 3-16-84 BY DMT * 00110001 001200* JMBONNEY Y2KEANE ADDED CENTURY FOR YEAR 2000 * 00120001 001300* * 00130001 001400* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00140001 001500 SKIP2 00150001 001600 05 P-BURGM-DEPENDENT-DATA REDEFINES 00160001 001700 P-CL-LINE-INS-DEPENDENT-DATA. 00170001 001800 07 P-CL-MONOLINE-BURG-DATA. 00180001 001900 09 P-BURGM01-COVERAGE-DATA. 00190001 002000 11 P-BURGM-LOSS-INSIDE-CDA-LMT PIC X(10). 00200001 002100 11 P-BURGM-LOSS-INSIDE-CDA-DED PIC X(5). 00210001 002200 11 P-BURGM-LOSS-INSIDE-BC-LMT PIC X(10). 00220001 002300 11 P-BURGM-LOSS-INSIDE-BC-DED PIC X(5). 00230001 002400 11 P-BURGM-LOSS-INSIDE-PAY-BC-LMT PIC X(10). 00240001 002500 11 P-BURGM-LOSS-INSIDE-PAY-BC-DED PIC X(5). 00250001 002600 11 P-BURGM-LOSS-OUT-CDA-LMT PIC X(10). 00260001 002700 11 P-BURGM-LOSS-OUT-CDA-DED PIC X(5). 00270001 002800 11 P-BURGM-LOSS-OUT-BC-LMT PIC X(10). 00280001 002900 11 P-BURGM-LOSS-OUT-BC-DED PIC X(5). 00290001 003000 11 P-BURGM-LOSS-OUT-PAY-BC-LMT PIC X(10). 00300001 003100 11 P-BURGM-LOSS-OUT-PAY-BC-DED PIC X(5). 00310001 003200 11 P-BURGM-MNY-ORD-CTFT-CDA-LMT PIC X(10). 00320001 003300 11 P-BURGM-MNY-ORD-CTFT-CDA-DED PIC X(5). 00330001 003400 11 P-BURGM-MNY-ORD-CTFT-BC-LMT PIC X(10). 00340001 003500 11 P-BURGM-MNY-ORD-CTFT-BC-DED PIC X(5). 00350001 003600 11 P-BURGM-OFF-EQIP-THFT-BC-LMT PIC X(10). 00360001 003700 11 P-BURGM-OFF-EQIP-THFT-BC-DED PIC X(5). 00370001 003800 11 P-BURGM-MERCH-BURG-CDA-B-LMT PIC X(10). 00380001 003900 11 P-BURGM-MERCH-BURG-CDA-B-DED PIC X(5). 00390001 004000 11 P-BURGM-EXTORT-COV-BC-LMT PIC X(10). 00400001 004100 11 P-BURGM-EXTORT-COV-BC-DED PIC X(5). 00410001 004200 11 P-BURGM-MERCH-BLK-BURG-BC-LMT PIC X(10). 00420001 004300 11 P-BURGM-MERCH-BLK-BURG-BC-DED PIC X(5). 00430001 004400 11 P-BURGM-PMST-BDFM-IO-CDA-LMT PIC X(10). 00440001 004500 11 P-BURGM-PMST-BDFM-IO-CDA-DED PIC X(5). 00450001 004600 11 P-BURGM-PMST-BDFM-IN-CDA-LMT PIC X(10). 00460001 004700 11 P-BURGM-PMST-BDFM-IN-CDA-DED PIC X(5). 00470001 004800 11 P-BURGM-MERCH-BBTHFT-BC-LMT PIC X(10). 00480001 004900 11 P-BURGM-MERCH-BBTHFT-BC-DED PIC X(5). 00490001 005000 11 P-BURGM-MERCH-BB-CDA-B-LMT PIC X(10). 00500001 005100 11 P-BURGM-MERCH-BB-CDA-B-DED PIC X(5). 00510001 005200 11 P-BURGM-MERCH-SCH-BURG-IND PIC X. 00520001 005300 09 P-BURGM02-COVERAGE-DATA. 00530001 005400 11 P-BURGM-MERCH-SCH-BG-THFT-IND PIC X. 00540001 005500 11 P-BURGM-SEC-LESE-SAF-DEP-LMT PIC X(10). 00550001 005600 11 P-BURGM-SEC-LESE-SAF-DEP-DED PIC X(5). 00560001 005700 11 P-BURGM-COMPUTER-FRD-BC-LMT PIC X(10). 00570001 005800 11 P-BURGM-COMPUTER-FRD-BC-DED PIC X(5). 00580001 005900 11 P-BURGM-OFF-EQUIP-BURG-LMT PIC X(10). 00590001 006000 11 P-BURGM-OFF-EQUIP-BURG-DED PIC X(5). 00600001 006100 11 P-BURGM-OFF-EQUIP-THFT-LMT PIC X(10). 00610001 006200 11 P-BURGM-OFF-EQUIP-THFT-DED PIC X(5). 00620001 006300 11 P-BURGM-EXTORTION-COV-LMT PIC X(10). 00630001 006400 11 P-BURGM-EXTORTION-DED PIC X(5). 00640001 006500 11 P-BURGM-COMPUTER-FRD-CDA-LMT PIC X(10). 00650001 006600 11 P-BURGM-COMPUTER-FRD-CDA-DED PIC X(5). 00660001 006700 11 P-BURGM-STKEEP-BURG-ROB-LMT PIC X(10). 00670001 006800 11 P-BURGM-STKEEP-BURG-ROB-DED PIC X(5). 00680001 006900 11 P-BURGM-BDR-FRM-STKEEP-LMT PIC X(10). 00690001 007000 11 P-BURGM-BDR-FRM-STKEEP-DED PIC X(5). 00700001 007100 11 P-BURGM-OFF-BURG-ROB-LMT PIC X(10). 00710001 007200 11 P-BURGM-OFF-BURG-ROB-DED PIC X(5). 00720001 007300 11 P-BURGM-BANK-EXC-COV-A-LMT PIC X(10). 00730001 007400 11 P-BURGM-BANK-EXC-COV-A-DED PIC X(5). 00740001 007500 11 P-BURGM-BANK-EXC-COV-B-LMT PIC X(10). 00750001 007600 11 P-BURGM-BANK-EXC-COV-B-DED PIC X(5). 00760001 007700 11 P-BURGM-BANK-EXC-SEC-LMT PIC X(10). 00770001 007800 11 P-BURGM-BANK-EXC-SEC-DED PIC X(5). 00780001 007900 11 P-BURGM-CB-SAF-DEP-COV-A-LMT PIC X(10). 00790001 008000 11 P-BURGM-CB-SAF-DEP-COV-A-DED PIC X(5). 00800001 008100 11 P-BURGM-CB-SAF-DEP-COV-B-LMT PIC X(10). 00810001 008200 11 P-BURGM-CB-SAF-DEP-COV-B-DED PIC X(5). 00820001 008300 11 P-BURGM-CB-SAF-DEP-COV-AB-LMT PIC X(10). 00830001 008400 11 P-BURGM-CB-SAF-DEP-COV-AB-DED PIC X(5). 00840001 008500 11 P-BURGM-CB-SAF-DEP-MONEY-IND PIC X(2). 00850001 008600 11 P-BURGM-HOTEL-SAF-DEP-LMT PIC X(10). 00860001 008700 11 P-BURGM-HOTEL-SAF-DEP-DED PIC X(5). 00870001 008800 11 P-BURGM-CHURCH-COV-IND PIC X. 00880001 008900 09 P-BURGM03-COVERAGE-DATA. 00890001 009000 11 P-BURGM-INNKEEP-LMT-GUEST PIC X(10). 00900001 009100 11 P-BURGM-INNKEEP-LMT-AGGR PIC X(10). 00910001 009200 07 P-BURGM-UNUSED PIC X(1995).00920001 009300 05 P-CLBGMLT-DEPENDENT-DATA REDEFINES 00930001 009400 P-CL-LINE-INS-DEPENDENT-DATA. 00940001 009500 07 P-CL-MULTIPERIL-DATA. 00950001 009600 09 P-BURGMULT1-COVERAGE-DATA. 00960001 009700 11 P-BURGMULT-LOSS-IN-LMT PIC X(10). 00970001 009800 11 P-BURGMULT-LOSS-IN-DED PIC X(5). 00980001 009900 11 P-BURGMULT-LOSS-OUT-LMT PIC X(10). 00990001 010000 11 P-BURGMULT-LOSS-OUT-DED PIC X(5). 01000001 010100 11 P-BURGMULT-MNY-ORD-CTFT-LMT PIC X(10). 01010001 010200 11 P-BURGMULT-MNY-ORD-CTFT-DED PIC X(5). 01020001 010300 11 P-BURGMULT-MERCH-BURG-1-LMT PIC X(10). 01030001 010400 11 P-BURGMULT-MERCH-BURG-1-DED PIC X(5). 01040001 010500 11 P-BURGMULT-PYMSTR-ROB-IO-LMT PIC X(10). 01050001 010600 11 P-BURGMULT-PYMSTR-ROB-IO-DED PIC X(5). 01060001 010700 11 P-BURGMULT-MERCH-BURG-2-LMT PIC X(10). 01070001 010800 11 P-BURGMULT-MERCH-BURG-2-DED PIC X(5). 01080001 010900 11 P-BURGMULT-MERCH-THFT-LMT PIC X(10). 01090001 011000 11 P-BURGMULT-MERCH-THFT-DED PIC X(5). 01100001 011100 11 P-BURGMULT-MER-THFT-OF-EQ-IND PIC X. 01110001 011200 11 P-BURGMULT-PYMSTR-BDFM-IO-LMT PIC X(10). 01120001 011300 11 P-BURGMULT-PYMSTR-BDFM-IO-DED PIC X(5). 01130001 011400 11 P-BURGMULT-PYMSTR-BDFM-IN-LMT PIC X(10). 01140001 011500 11 P-BURGMULT-PYMSTR-BDFM-IN-DED PIC X(5). 01150001 011600 11 P-BURGMULT-SEC-LSE-SAF-DP-LMT PIC X(10). 01160001 011700 11 P-BURGMULT-SEC-LSE-SAF-DP-DED PIC X(5). 01170001 011800 11 P-BURGMULT-OFF-EQIP-BURG-LMT PIC X(10). 01180001 011900 11 P-BURGMULT-OFF-EQIP-BURG-DED PIC X(5). 01190001 012000 11 P-BURGMULT-OFF-EQIP-THFT-LMT PIC X(10). 01200001 012100 11 P-BURGMULT-OFF-EQIP-THFT-DED PIC X(5). 01210001 012200 11 P-BURGMULT-PYMSTR-IN-ROB-LMT PIC X(10). 01220001 012300 11 P-BURGMULT-PYMSTR-IN-ROB-DED PIC X(5). 01230001 012400 11 P-BURGMULT-EXTORTION-COV-LMT PIC X(10). 01240001 012500 11 P-BURGMULT-EXTORTION-DED PIC X(5). 01250001 012600 11 P-BURGMULT-COMPUTER-FRAUD-LMT PIC X(10). 01260001 012700 11 P-BURGMULT-COMPUTER-FRAUD-DED PIC X(5). 01270001 012800 11 P-BURGMULT-BDFM-STKEEP-LMT PIC X(10). 01280001 012900 11 P-BURGMULT-BDFM-STKEEP-DED PIC X(5). 01290001 013000 09 P-BURGMULT2-COVERAGE-DATA. 01300001 013100 11 P-BURGMULT-STKEP-BURG-ROB-LMT PIC X(10). 01310001 013200 11 P-BURGMULT-STKEP-BURG-ROB-DED PIC X(5). 01320001 013300 11 P-BURGMULT-OFF-BURG-ROB-LMT PIC X(10). 01330001 013400 11 P-BURGMULT-OFF-BURG-ROB-DED PIC X(5). 01340001 013500 11 P-BURGMULT-HOTEL-SAF-DEP-LMT PIC X(10). 01350001 013600 11 P-BURGMULT-HOTEL-SAF-DEP-DED PIC X(5). 01360001 013700 11 P-BURGMULT-CHURCH-COV-IND PIC X. 01370001 013800 11 P-BURGMULT-INKEEP-LMT-GUEST PIC X(10). 01380001 013900 11 P-BURGMULT-INKEEP-LMT-AGGR PIC X(10). 01390001 014000 07 P-BURGMULT-UNUSED PIC X(2193). 01400001 014100 05 P-CLFDFG-DEPENDENT-DATA REDEFINES 01410001 014200 P-CL-LINE-INS-DEPENDENT-DATA. 01420001 014300 07 P-CL-FIDELTY-FORGERY-DATA. 01430001 014400 09 P-CLFID1-COVERAGE-DATA. 01440001 014500 11 P-CLFID-EMP-DISHON-LMT-LOSS PIC X(10). 01450001 014600 11 P-CLFID-EMP-DISHON-LMT-EMP PIC X(10). 01460001 014700 11 P-CLFID-EMP-DISHON-DED PIC X(5). 01470001 014800 11 P-CLFID-EMP-DISHON-FORM-COD PIC X(2). 01480001 014900 11 P-CLFID-EX-BLKT-EMP-DHON-LOSS PIC X(10). 01490001 015000 11 P-CLFID-EX-BLKT-EMP-DHON-EMP PIC X(10). 01500001 015100 11 P-CLFID-EX-BLKT-EMP-DHON-DED PIC X(5). 01510001 015200 11 P-CLFID-EX-BLKT-EMP-DHON-FORM PIC X(2). 01520001 015300 11 P-CLFID-PUB-EMP-DHON-LMT-LOSS PIC X(10). 01530001 015400 11 P-CLFID-PUB-EMP-DHON-LMT-EMP PIC X(10). 01540001 015500 11 P-CLFID-PUB-EMP-DHON-LMT-DED PIC X(5). 01550001 015600 11 P-CLFID-PUB-EMP-DHON-FORM PIC X(2). 01560001 015700 11 P-CLFID-PUB-EM-FTH-P-LMT-LOSS PIC X(10). 01570001 015800 11 P-CLFID-PUB-EMP-FTH-P-LMT-EMP PIC X(10). 01580001 015900 11 P-CLFID-PUB-EMP-FTH-P-DED PIC X(5). 01590001 016000 11 P-CLFID-PUB-EM-FTH-P-FORM-COD PIC X(2). 01600001 016100 09 P-CLFORG1-COVERAGE-DATA. 01610001 016200 11 P-CLFORG-DEP-FORG-EMP-INL-LMT PIC X(10). 01620001 016300 11 P-CLFORG-DEP-FORG-EMP-INL-DED PIC X(5). 01630001 016400 11 P-CLFORG-DEP-FORG-EMP-EXL-LMT PIC X(10). 01640001 016500 11 P-CLFORG-DEP-FORG-EMP-EXL-DED PIC X(5). 01650001 016600 11 P-CLFORG-INCOM-CHK-FORG-LMT PIC X(10). 01660001 016700 11 P-CLFORG-INCOM-CHK-FORG-DED PIC X(5). 01670001 016800 11 P-CLFORG-WAREHSE-REC-FORG-LMT PIC X(10). 01680001 016900 11 P-CLFORG-WAREHSE-REC-FORG-DED PIC X(5). 01690001 017000 11 P-CLFORG-CR-C-FRG-EMP-INL-LMT PIC X(10). 01700001 017100 11 P-CLFORG-CR-C-FRG-EMP-INL-DED PIC X(5). 01710001 017200 11 P-CLFORG-CR-C-FRG-EMP-EXL-LMT PIC X(10). 01720001 017300 11 P-CLFORG-CR-C-FRG-EMP-EXL-DED PIC X(5). 01730001 017400 11 P-CLFORG-CR-C-FRG-LMT PIC X(10). 01740001 017500 11 P-CLFORG-CR-C-FRG-DED PIC X(5). 01750001 017600 07 P-CLFDFG-UNUSED PIC X(2287). 01760001 017700 05 P-CLBOND-DEPENDENT-DATA REDEFINES 01770001 017800 P-CL-LINE-INS-DEPENDENT-DATA. 01780001 017900 07 P-CL-BOND-SNGL-LMT-DATA. 01790001 018000 09 P-CLBOND-COVERAGE-DATA. 01800001 018100 11 CLBOND-TABLE OCCURS 15 TIMES. 01810001 018200 13 P-CLBOND-MANSCRPT-COD PIC X(5). 01820001 018300 13 P-CLBOND-MANSCRPT-LMT PIC X(10). 01830001 018400 13 P-CLBOND-MANSCRPT-DED PIC X(5). 01840001 018500 13 P-CLBOND-MANSCRPT-FORM PIC X(2). 01850001 018600 09 P-CRSINGLE-COVERAGE-DATA. 01860001 018700 11 P-CRSINGLE-EMP-DISHON-FORM-COD PIC X(2). 01870001 018800 11 P-CRSINGLE-CRM-SNGL-LMT PIC X(10). 01880001 018900 11 P-CRSINGLE-CRM-SNGL-LMT-DED PIC X(5). 01890001 019000 07 P-CLBONDSNG-UNUSED PIC X(2153). 01900001 019100 05 P-CLCRUN1-DEPENDENT-DATA REDEFINES 01910001 019200 P-CL-LINE-INS-DEPENDENT-DATA. 01920001 019300 07 P-CLCRUN-COVERAGE-DATA. 01930001 019400 09 P-CLCRUN-UNUSED PIC X(519). 01940001 019500 09 P-CLCRUN-CONTROL-CO PIC X(40). 01950001 019600 09 P-CLCRUN-CONTIN-COV-IND PIC X. 01960001 019700 09 P-CLCRUN-DEFIN-COV-IND PIC X. 01970001 019800 09 P-CLCRUN-ORIG-EFF-DATE-CO. 01980001 019900 11 P-CLCRUN-ORIG-EFF-CO-MM PIC X(2). 01990001 020000 11 P-CLCRUN-ORIG-EFF-CO-DD PIC X(2). 02000001 020100 11 P-CLCRUN-ORIG-EFF-CO-CC PIC X(2). 02010001 020200 11 P-CLCRUN-ORIG-EFF-CO-YY PIC X(2). 02020001 020300 09 P-CLCRUN-DATE-CANC. 02030001 020400 11 P-CLCRUN-CANC-MM PIC X(2). 02040001 020500 11 P-CLCRUN-CANC-DD PIC X(2). 02050001 020600 11 P-CLCRUN-CANC-CC PIC X(2). 02060001 020700 11 P-CLCRUN-CANC-YY PIC X(2). 02070001 020800 09 P-CLCRUN-MORTGAGE-DATA. 02080001 020900 11 P-CLCRUN-MTGE-NAM PIC X(51). 02090001 021000 11 P-CLCRUN-MTGE-ADDR-STR PIC X(39). 02100001 021100 11 P-CLCRUN-MTGE-ADDR-CTY PIC X(13). 02110001 021200 11 P-CLCRUN-MTGE-ADDR-STA PIC X(2). 02120001 021300 11 P-CLCRUN-MTGE-ADDR-ZIP PIC X(9). 02130001 021400 11 P-CLCRUN-ADD-INT-IND PIC X. 02140001 021500 07 P-CLRUN1-UNUSED PIC X(1808).02150001 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* SCRFILE POLICY SEGMENT (SIMPLIFIED CRIME) * 00020000 000300* PANLIB MEMBER PCLCRSPOL * 00030000 000400* * 00040000 000500* THIS CONTAINS THE COVERAGES AND OTHER DATA UNIQUE TO * 00050000 000600* COMMERCIAL LINES SIMPLIFIED CRIME POLICIES. IT * 00060000 000700* IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00070002 000800* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00080000 000900* FOLLOWING THAT MEMBER. * 00090000 001000* * 00100000 001100* CREATED 12-31-85 BY KSN * 00110000 001200* * 00120000 001300* JMBONNEY Y2KEANE ADDED CENTURY FOR YEAR 2000 * 00130000 001400* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00140000 001500 SKIP2 00150000 001600 05 P-CLCRS-DEPENDENT-DATA REDEFINES 00160000 001700 P-CL-LINE-INS-DEPENDENT-DATA. 00170000 001800 07 P-CLCRS-DATA. 00180000 001900 09 P-CLCRS-SIM-CRIME-POL-LMT PIC X(10). 00190000 002000 09 P-CLCRS-SIM-EMP-DISHON-LMT PIC X(10). 00200000 002100 09 P-CLCRS-EMP-DISHON-SPEC-EX-LMT PIC X(10). 00210000 002200 09 P-CLCRS-EMP-DISHON-BLKT-EX-LMT PIC X(10). 00220000 002300 09 P-CLCRS-AGT-NONEMP-DISHON-LMT PIC X(10). 00230000 002400 09 P-CLCRS-PRTNSHP-DISHON-COV-LMT PIC X(10). 00240000 002500 09 P-CLCRS-OTHER-EMP-DISHON-LMT PIC X(10). 00250000 002600 09 P-CLCRS-SIM-FRG-ALTER-LMT PIC X(10). 00260000 002700 09 P-CLCRS-SIM-WARHS-RCPT-FRG-LMT PIC X(10). 00270000 002800 09 P-CLCRS-SIM-CR-CARD-FRG-LMT PIC X(10). 00280000 002900 09 P-CLCRS-THFT-DD-PREMIS-LMT PIC X(10). 00290000 003000 09 P-CLCRS-THFT-DD-MESS-LMT PIC X(10). 00300000 003100 09 P-CLCRS-LMT-UNUSED PIC X(40). 00310000 003200 09 P-CLCRS-SIM-CRIME-POL-DED PIC X(8). 00320000 003300 09 P-CLCRS-SIM-EMP-DISHON-DED PIC X(8). 00330000 003400 09 P-CLCRS-EMP-DISHON-SPEC-EX-DED PIC X(8). 00340000 003500 09 P-CLCRS-EMP-DISHON-BLKT-EX-DED PIC X(8). 00350000 003600 09 P-CLCRS-AGT-NONEMP-DISHON-DED PIC X(8). 00360000 003700 09 P-CLCRS-PRTNSHP-DISHON-COV-DED PIC X(8). 00370000 003800 09 P-CLCRS-OTHER-EMP-DISHON-DED PIC X(8). 00380000 003900 09 P-CLCRS-SIM-FRG-ALTER-DED PIC X(8). 00390000 004000 09 P-CLCRS-SIM-WARHS-RCPT-FRG-DED PIC X(8). 00400000 004100 09 P-CLCRS-SIM-CR-CARD-FRG-DED PIC X(8). 00410000 004200 09 P-CLCRS-THFT-DD-PREMIS-DED PIC X(8). 00420000 004300 09 P-CLCRS-THFT-DD-MESS-DED PIC X(8). 00430000 004400 09 P-CLCRS-DED-UNUSED PIC X(40). 00440000 004500 09 P-CLCRS-SIM-EMP-DISHON-FRM PIC X(2). 00450000 004600 09 P-CLCRS-EMP-DISHON-SPEC-EX-FRM PIC X(2). 00460000 004700 09 P-CLCRS-EMP-DISHON-BLKT-EX-FRM PIC X(2). 00470000 004800 09 P-CLCRS-AGT-NONEMP-DISHON-FRM PIC X(2). 00480000 004900 09 P-CLCRS-PRTNSHP-DISHON-FRM PIC X(2). 00490000 005000 09 P-CLCRS-OTHER-EMP-DISHON-FRM PIC X(2). 00500000 005100 09 P-CLCRS-SIM-FRG-ALTER-FRM PIC X(2). 00510000 005200 09 P-CLCRS-SIM-WARHS-RCPT-FRG-FRM PIC X(2). 00520000 005300 09 P-CLCRS-SIM-CR-CARD-FRG-FRM PIC X(2). 00530000 005400 09 P-CLCRS-THFT-DD-PREMIS-FRM PIC X(2). 00540000 005500 09 P-CLCRS-THFT-DD-MESS-FRM PIC X(2). 00550000 005600 09 P-CLCRS-FRM-UNUSED PIC X(10). 00560000 005700 09 P-CLCRS-SCH-EMP-DISHON-IND PIC X. 00570000 005800 09 P-CLCRS-SCH-AGT-NEMP-DISHN-IND PIC X. 00580000 005900 09 P-CLCRS-IND-UNUSED PIC X(10). 00590000 006000 07 P-CLCRS2-COVERAGE-DATA. 00600000 006100 09 P-CLCRS2-ROBB-CUST-LMT PIC X(10). 00610000 006200 09 P-CLCRS2-ROBB-CUST-MNY-LMT PIC X(10). 00620000 006300 09 P-CLCRS2-ROBB-CUST-SEC-LMT PIC X(10). 00630000 006400 09 P-CLCRS2-ROBB-CUST-MNY-SEC-LMT PIC X(10). 00640000 006500 09 P-CLCRS2-SAF-BURG-LMT PIC X(10). 00650000 006600 09 P-CLCRS2-SAF-BURG-MNY-LMT PIC X(10). 00660000 006700 09 P-CLCRS2-SAF-BURG-SEC-LMT PIC X(10). 00670000 006800 09 P-CLCRS2-SAF-BURG-MNY-SEC-LMT PIC X(10). 00680000 006900 09 P-CLCRS2-ROBB-MESS-LMT PIC X(10). 00690000 007000 09 P-CLCRS2-ROBB-MESS-MNY-LMT PIC X(10). 00700000 007100 09 P-CLCRS2-ROBB-MESS-SEC-LMT PIC X(10). 00710000 007200 09 P-CLCRS2-ROBB-MESS-MNY-SEC-LMT PIC X(10). 00720000 007300 09 P-CLCRS2-PREMIS-BURG-LMT PIC X(10). 00730000 007400 09 P-CLCRS2-LMT-UNUSED PIC X(40). 00740000 007500 09 P-CLCRS2-ROBB-CUST-DED PIC X(8). 00750000 007600 09 P-CLCRS2-ROBB-CUST-MONY-DED PIC X(8). 00760000 007700 09 P-CLCRS2-ROBB-CUST-SEC-DED PIC X(8). 00770000 007800 09 P-CLCRS2-ROBB-CUST-MNY-SEC-DED PIC X(8). 00780000 007900 09 P-CLCRS2-SAF-BURG-DED PIC X(8). 00790000 008000 09 P-CLCRS2-SAF-BURG-MNY-DED PIC X(8). 00800000 008100 09 P-CLCRS2-SAF-BURG-SEC-DED PIC X(8). 00810000 008200 09 P-CLCRS2-SAF-BURG-MNY-SEC-DED PIC X(8). 00820000 008300 09 P-CLCRS2-ROBB-MESS-DED PIC X(8). 00830000 008400 09 P-CLCRS2-ROBB-MESS-MNY-DED PIC X(8). 00840000 008500 09 P-CLCRS2-ROBB-MESS-SEC-DED PIC X(8). 00850000 008600 09 P-CLCRS2-ROBB-MESS-MNY-SEC-DED PIC X(8). 00860000 008700 09 P-CLCRS2-PREMIS-BURG-DED PIC X(8). 00870000 008800 09 P-CLCRS2-DED-UNUSED PIC X(40). 00880000 008900 09 P-CLCRS2-ROBB-CUST-FRM PIC XX. 00890000 009000 09 P-CLCRS2-ROBB-CUST-MONY-FRM PIC XX. 00900000 009100 09 P-CLCRS2-ROBB-CUST-SEC-FRM PIC XX. 00910000 009200 09 P-CLCRS2-ROBB-CUST-MNY-SEC-FRM PIC XX. 00920000 009300 09 P-CLCRS2-SAF-BURG-FRM PIC XX. 00930000 009400 09 P-CLCRS2-SAF-BURG-MNY-FRM PIC XX. 00940000 009500 09 P-CLCRS2-SAF-BURG-SEC-FRM PIC XX. 00950000 009600 09 P-CLCRS2-SAF-BURG-MNY-SEC-FRM PIC XX. 00960000 009700 09 P-CLCRS2-ROBB-MESS-FRM PIC XX. 00970000 009800 09 P-CLCRS2-ROBB-MESS-MONY-FRM PIC XX. 00980000 009900 09 P-CLCRS2-ROBB-MESS-SEC-FRM PIC XX. 00990000 010000 09 P-CLCRS2-ROBB-MESS-MNY-SEC-FRM PIC XX. 01000000 010100 09 P-CLCRS2-PREMIS-BURG-FRM PIC XX. 01010000 010200 09 P-CLCRS2-FRM-UNUSED PIC X(10). 01020000 010300 09 P-CLCRS2-ROBB-CUST-MNY-IND PIC X. 01030000 010400 09 P-CLCRS2-ROBB-CUST-SEC-IND PIC X. 01040000 010500 09 P-CLCRS2-SAF-BURG-MNY-IND PIC X. 01050000 010600 09 P-CLCRS2-SAF-BURG-SEC-IND PIC X. 01060000 010700 09 P-CLCRS2-ROBB-MESS-MNY-IND PIC X. 01070000 010800 09 P-CLCRS2-ROBB-MESS-SEC-IND PIC X. 01080000 010900 09 P-CLCRS2-IND-UNUSED PIC X(10). 01090000 011000 07 P-CLCRS3-DATA. 01100000 011100 09 P-CLCRS3-SIM-COMPUTE-FRAUD-LMT PIC X(10). 01110000 011200 09 P-CLCRS3-SIM-EXTORTION-LMT PIC X(10). 01120000 011300 09 P-CLCRS3-PREMIS-THFT-LMT PIC X(10). 01130000 011400 09 P-CLCRS3-ROBB-OUTSIDE-LMT PIC X(10). 01140000 011500 09 P-CLCRS3-SAF-DEP-LIAB-LMT PIC X(10). 01150000 011600 09 P-CLCRS3-GUEST-SAF-DEP-LMT PIC X(10). 01160000 011700 09 P-CLCRS3-SAF-DEP-DIR-LOSS-LMT PIC X(10). 01170000 011800 09 P-CLCRS3-PREMIS-LIAB-PROP-GST PIC X(10). 01180000 011900 09 P-CLCRS3-PREMIS-LIAB-PROP-AGGR PIC X(10). 01190000 012000 09 P-CLCRS3-LMT-UNUSED PIC X(40). 01200000 012100 09 P-CLCRS3-SIM-COMPUTE-FRAUD-DED PIC X(8). 01210000 012200 09 P-CLCRS3-SIM-EXTORTION-DED PIC X(8). 01220000 012300 09 P-CLCRS3-PREMIS-THFT-DED PIC X(8). 01230000 012400 09 P-CLCRS3-ROBB-OUTSIDE-DED PIC X(8). 01240000 012500 09 P-CLCRS3-GUEST-SAF-DEP-DED PIC X(8). 01250000 012600 09 P-CLCRS3-SAF-DEP-LIAB-DED PIC X(8). 01260000 012700 09 P-CLCRS3-SAF-DEP-DIR-LOSS-DED PIC X(8). 01270000 012800 09 P-CLCRS3-DED-UNUSED PIC X(40). 01280000 012900 09 P-CLCRS3-SIM-COMPUTE-FRAUD-FRM PIC XX. 01290000 013000 09 P-CLCRS3-SIM-EXTORTION-FRM PIC XX. 01300000 013100 09 P-CLCRS3-PREMIS-THFT-FRM PIC XX. 01310000 013200 09 P-CLCRS3-ROBB-OUTSIDE-FRM PIC XX. 01320000 013300 09 P-CLCRS3-SIM-LESS-SAF-DEP-FRM PIC XX. 01330000 013400 09 P-CLCRS3-SEC-DEP-OTHERS-FRM PIC XX. 01340000 013500 09 P-CLCRS3-GUEST-SAF-DEP-FRM PIC XX. 01350000 013600 09 P-CLCRS3-PREM-LIAB-PROP-GST-FM PIC XX. 01360000 013700 09 P-CLCRS3-PREM-LIAB-PROP-OCC-FM PIC XX. 01370000 013800 09 P-CLCRS3-SAF-DEP-LIAB-FRM PIC XX. 01380000 013900 09 P-CLCRS3-SAF-DEP-DIR-LOSS-FRM PIC XX. 01390000 014000 09 P-CLCRS3-FRM-UNUSED PIC X(10). 01400000 014100 09 P-CLCRS3-SIM-LESS-SAF-DEP-IND PIC X. 01410000 014200 09 P-CLCRS3-SEC-DEP-OTHERS-IND PIC X. 01420000 014300 09 P-CLCRS3-UNUSED PIC X(10). 01430000 014400 07 P-CLCRS-UNUSED PIC X(100).01440000 014500 07 P-CLCRUNS-COVERAGE-DATA. 01450000 014600 09 P-CLCRUNS-CONTROL-CO PIC X(40). 01460000 014700 09 P-CLCRUNS-CONTIN-COV-IND PIC X. 01470000 014800 09 P-CLCRUNS-DEFIN-COV-IND PIC X. 01480000 014900 09 P-CLCRUNS-ORIG-EFF-DATE-CO. 01490000 014910 11 P-CLCRUNS-ORIG-EFF-CO-MM PIC X(2). 01491000 014920 11 P-CLCRUNS-ORIG-EFF-CO-DD PIC X(2). 01492000 014930 11 P-CLCRUNS-ORIG-EFF-CO-CC PIC X(2). 01493000 014940 11 P-CLCRUNS-ORIG-EFF-CO-YY PIC X(2). 01494000 015000 09 P-CLCRUNS-DATE-CANC. 01500000 015010 11 P-CLCRUNS-CANC-MM PIC X(2). 01501000 015020 11 P-CLCRUNS-CANC-DD PIC X(2). 01502000 015030 11 P-CLCRUNS-CANC-CC PIC X(2). 01503000 015040 11 P-CLCRUNS-CANC-YY PIC X(2). 01504000 015100 09 P-CLCRUNS-MORTGAGE-DATA. 01510000 015200 11 P-CLCRUNS-MTGE-NAM PIC X(51). 01520000 015300 11 P-CLCRUNS-MTGE-ADDR-STR PIC X(39). 01530000 015400 11 P-CLCRUNS-MTGE-ADDR-CTY PIC X(13). 01540000 015500 11 P-CLCRUNS-MTGE-ADDR-STA PIC X(2). 01550000 015600 11 P-CLCRUNS-MTGE-ADDR-ZIP PIC X(9). 01560000 015700 11 P-CLCRUNS-ADD-INT-IND PIC X. 01570000 015800 07 P-CLCRUNS-UNUSED PIC X(1251).01580004 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* * 00020000 000300* SCRFILE POLICY SEGMENT (MANUAL CL GEN LIAB) * 00030000 000400* CPCSLIB SUBSET CLGL * 00040000 000500* * 00050000 000600* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGE AND OTHER * 00060000 000700* DATA UNIQUE TO COMMERCIAL LINES GENERAL LIAB(INCLUDING * 00070000 000800* SAILOR, F.O.ACCTS, TXMP,AND CUP COVERAGES.) * 00080000 000900* IT IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00090000 001000* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00100000 001100* FOLLOWING THAT MEMBER. * 00110000 001200* * 00120000 001300* CREATED 3-23-84 DMT * 00130000 001400* Y2KEANE ADDED CENTURY TO DATE FIELD T. BOWDEN * 00140000 001500* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00150000 001600 SKIP2 00160000 001700 05 P-CLGL-DEPENDENT-DATA REDEFINES 00170000 001800 P-CL-LINE-INS-DEPENDENT-DATA. 00180000 001900 07 P-CL-GENERAL-LIABILITY-DATA. 00190000 002000 09 P-CLGL1-COVERAGE-DATA. 00200000 002100 11 FILLER PIC X(3). 00210000 002200 11 P-CLGL-SNGL-LMT-LIAB-OCC PIC X(10). 00220000 002300 11 P-CLGL-SNGL-LMT-LIAB-DED PIC X(5). 00230000 002400 11 P-CLGL-SNGL-LMT-LIAB-AGGR PIC X(10). 00240000 002500 11 P-CLGL-BI-LIAB-LMT-OCC PIC X(10). 00250000 002600 11 P-CLGL-BI-LIAB-LMT-DED PIC X(5). 00260000 002700 11 P-CLGL-BI-LIAB-LMT-AGGR PIC X(10). 00270000 002800 11 P-CLGL-PD-LIAB-LMT-OCC PIC X(10). 00280000 002900 11 P-CLGL-PD-LIAB-LMT-DED PIC X(5). 00290000 003000 11 P-CLGL-PD-LIAB-LMT-AGGR PIC X(10). 00300000 003100 11 P-CLGL-COMP-GEN-LIAB-IND PIC X. 00310000 003200 11 P-CLGL-BRD-FRM-COMP-GL-IND PIC X. 00320000 003300 11 P-CLGL-PREM-OPS-IND PIC X. 00330000 003400 11 P-CLGL-CMPL-OPS-IND PIC X. 00340000 003500 11 P-CLGL-PRODUCT-IND PIC X. 00350000 003600 11 P-CLGL-OWN-CONTR-PROT-IND PIC X. 00360000 003700 11 P-CLGL-CONTR-IND PIC X. 00370000 003800 11 P-CLGL-PERS-INJ-COV-IND PIC X. 00380000 003900 11 P-CLGL-PERS-INJ-AGGR-LMT PIC X(10). 00390000 004000 11 P-CLGL-PREM-MED-PAY-COV-IND PIC X. 00400000 004100 11 P-CLGL-PREM-MED-PAY-LMT-PER PIC X(6). 00410000 004200 11 P-CLGL-PREM-MED-PAY-LMT-ACC PIC X(10). 00420000 004300 11 P-CLGL-PROF-LIAB-COV-IND PIC X. 00430000 004400 11 P-CLGL-PROF-LIAB-COV-LMT PIC X(10). 00440000 004500 11 P-CLGL-PROF-LIAB-DED PIC X(5). 00450000 004600 11 P-CLGL-PROF-LIAB-LMT-AGGR PIC X(10). 00460000 004700 11 P-CLGL-ELUB-COV-IND PIC X. 00470000 004800 11 P-CLGL-ELUB-LMT PIC X(7). 00480000 004900 11 P-CLGL-FIRE-LEGAL-IND PIC X. 00490000 005000 11 P-CLGL-FIRE-LEGAL-LIAB PIC X(10). 00500000 005100 09 P-CLGL2-COVERAGE-DATA. 00510000 005200 11 P-CLGL-ENTRY-DATE-CLM-MADE. 00520000 005300 13 P-CLGL-ENTRY-CLM-MM PIC XX. 00530000 005400 13 P-CLGL-ENTRY-CLM-DD PIC XX. 00540000 005500 13 P-CLGL-ENTRY-CLM-CC PIC XX. 00550000 005600 13 P-CLGL-ENTRY-CLM-YY PIC XX. 00560000 005700 11 P-CLGL-PR-ACT-COV-IND PIC X. 00570000 005800 11 P-CLGL-TAIL-COV-IND PIC X. 00580000 005900 11 P-CLGL-OCC-COV-IND PIC X. 00590000 006000 07 P-CLGL-UNUSED PIC X(2331). 00600000 006100 05 P-CLPROF-DEPENDENT-DATA REDEFINES 00610000 006200 P-CL-LINE-INS-DEPENDENT-DATA. 00620000 006300 07 P-CL-PROFESSIONAL-LIAB-DATA. 00630000 006400 09 P-PROF-COVERAGE-DATA. 00640000 006500 11 P-PROF-ASSN-COD PIC X(6). 00650000 006600 11 P-PROF-ASSN-LMT-OCC PIC X(10). 00660000 006700 11 P-PROF-ASSN-LMT-AGGR PIC X(10). 00670000 006800 11 P-PROF-CERT-NUM PIC X(6). 00680000 006900 11 P-PROF-ASSN-DED-COD PIC X(3). 00690000 007000 11 P-PROF-BOARD-CERT-IND PIC X. 00700000 007100 11 P-PROF-BOARD-CERT-ELIG-IND PIC X. 00710000 007200 11 P-PROF-TYP-PRAC PIC X. 00720000 007300 11 P-PROF-NO-SO-PERS-EXC-LMT PIC X(10). 00730000 007400 11 P-PROF-PERS-EXC-CERT-IND PIC X. 00740000 007500 11 P-PROF-PERS-EXC-ELIG-IND PIC X. 00750000 007600 11 P-PROF-PERS-EXC-TYPE-PRAC PIC X. 00760000 007700 11 P-PROF-ASSN-CLASS-COD PIC X(4). 00770000 007800 11 P-PROF-OPT-COD PIC X(2). 00780000 007900 11 P-PROF-CNTY-TOWN-COD PIC X(3). 00790000 008000 11 P-PROF-DISTRICT-SOCAP PIC X(2). 00800000 008100 07 P-CLPROF-UNUSED PIC X(2438). 00810000 008200 05 P-CLFRLIAB-DEPENDENT-DATA REDEFINES 00820000 008300 P-CL-LINE-INS-DEPENDENT-DATA. 00830000 008400 07 P-CL-FARM-RANCH-LIAB-DATA. 00840000 008500 09 P-CLFRLIAB-COVERAGE-DATA. 00850000 008600 11 P-CLFRLIAB-PHYS-DMG-OCC PIC X(10). 00860000 008700 11 P-CLFRLIAB-MED-PAY-INSD PIC X(10). 00870000 008800 11 P-CLFRLIAB-EMP-MED-PAY-OCC PIC X(10). 00880000 008900 11 P-CLFRLIAB-FIRE-HAZ-LMT-OCC PIC X(10). 00890000 009000 11 P-CLFRLIAB-FIRE-HAZ-DED PIC X(5). 00900000 009100 11 P-CLFRLIAB-PER-MED-PY-LT-ACC PIC X(10). 00910000 009200 11 P-CLFRLIAB-PER-MED-PY-LT-PER PIC X(10). 00920000 009300 11 P-CLFRLIAB-PERS-LMT PIC X(10). 00930000 009400 11 P-CLFRLIAB-ELUB-LMT PIC X(10). 00940000 009500 07 P-CLFRLIAB-UNUSED PIC X(2415). 00950000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010002 000200* SCRFILE POLICY SEGMENT (MANUAL CLFRPROP;CLFRLIAB;CLTXFR; * 00020002 000300* PAN MEMBER PFARM CLFR2,CLSIMPFR,CLSIMFR2 * 00030002 000400* * 00040002 000500* THIS PANVALET MEMBER CONTAINS THE COVERAGE AND OTHER * 00050002 000600* DATA UNIQUE TO COMMERCIAL LINES FARM/RANCH POLICIES. IT * 00060002 000700* IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00070002 000800* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00080002 000900* FOLLOWING THAT MEMBER. * 00090002 001000* * 00100002 001100* CREATED 4-6-84 BY DMT. * 00110002 001200* ADDED DATA ITEM P-CLTXFR-ADDL-LIV-EXP-LMT WPB 8/86. * 00120002 001300* ADDED DATA ITEMS FOR CLSIMPFR NEW SCREEN KAS 10/88. * 00130002 001400* ADDED DATA ITEMS FOR CLSIMFR2 NEW SCREEN KAS 10/88. * 00140002 001500* * 00150002 001600* JMBONNEY Y2KEANE ADDED CORRECT FILLER FOR YEAR 2000 * 00160002 333092* ADDED DATA ITEMS FOR CLSIMPFR NEW FIELD KAS 11/10. * 00161003 001700* * 00170002 001800* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00180002 001900 SKIP2 00190002 002000 05 P-CLFRPROP-DEPENDENT-DATA REDEFINES 00200002 002100 P-CL-LINE-INS-DEPENDENT-DATA. 00210002 002200 07 P-CL-FARM-RANCH-DATA. 00220002 002300 09 P-FRPROP-COVERAGE-DATA. 00230002 002400 11 P-FRPROP-TYP-PLAN-IND PIC X. 00240002 002500 11 P-FRPROP-DWL-LMT PIC X(10). 00250002 002600 11 P-FRPROP-DWL-FORM PIC X(5). 00260002 002700 11 P-FRPROP-DWL-DED PIC X(5). 00270002 002800 11 P-FRPROP-DWL-FIRE-DED PIC X(5). 00280002 002900 11 P-FRPROP-DWL-EXT-COV-DED PIC X(5). 00290002 003000 11 P-FRPROP-DWL-VMM-DED PIC X(5). 00300002 003100 11 P-FRPROP-DWL-COINS-PERCENT PIC X(3). 00310002 003200 11 P-FRPROP-UNSCH-PP-LMT PIC X(10). 00320002 003300 11 P-FRPROP-UNSCH-PP-FORM PIC X(5). 00330002 003400 11 P-FRPROP-UNSCH-PP-DED PIC X(5). 00340002 003500 11 P-FRPROP-UNSCH-HSHD-PROP-LMT PIC X(10). 00350002 003600 11 P-FRPROP-UNSCH-HSHD-P-FORM PIC X(5). 00360002 003700 11 P-FRPROP-UNSCH-HSHD-P-FI-DED PIC X(5). 00370002 003800 11 P-FRPROP-UNSCH-HSHD-P-EX-DED PIC X(5). 00380002 003900 11 P-FRPROP-UNSH-HSHD-P-VMM-DED PIC X(5). 00390002 004000 11 P-FRPROP-ADDL-LIV-EX-COV-LMT PIC X(10). 00400002 004100 11 P-FRPROP-ADDL-LIV-EXP-FORM PIC X(5). 00410002 004200 11 P-FRPROP-ADDL-LIV-EXP-DED PIC X(5). 00420002 004300 11 P-FRPROP-RENTAL-COV-LMT PIC X(10). 00430002 004400 11 P-FRPROP-RENTAL-FORM PIC X(5). 00440002 004500 11 P-FRPROP-RENTAL-FIRE-DED PIC X(5). 00450002 004600 11 P-FRPROP-RENTAL-EXT-COV-DED PIC X(5). 00460002 004700 11 P-FRPROP-EXTRA-EXP-COV-LMT PIC X(10). 00470002 004800 11 P-FRPROP-EXTRA-EXP-FORM PIC X(5). 00480002 004900 11 P-FRPROP-EXTRA-EXP-DED PIC X(5). 00490002 005000 11 P-FRPROP-BLKT-PERS-PROP-LMT PIC X(10). 00500002 005100 11 P-FRPROP-BLKT-PERS-PROP-DED PIC X(5). 00510002 005200 11 P-FRPROP-BLKT-PROP-FIRE-DED PIC X(5). 00520002 005300 11 P-FRPROP-BLKT-PROP-EC-DED PIC X(5). 00530002 005400 11 P-FRPROP-BLKT-PROP-VMM-DED PIC X(5). 00540002 005500 11 P-FRPROP-BLKT-PP-COIN PIC X(3). 00550002 005600 11 P-FRPROP-THFT-LOSS-AT-IND PIC X. 00560002 005700 11 P-FRPROP-THFT-LOSS-AT-DED PIC X(5). 00570002 005800 11 P-FRPROP-LOSS-AWAY-IND PIC X. 00580002 005900 11 P-FRPROP-LOSS-AWAY-DED PIC X(5). 00590002 006000 11 P-FRPROP-SCH-PP-ITEM PIC X(20). 00600002 006100 11 P-FRPROP-SCH-PP-LMT PIC X(10). 00610002 006200 11 P-FRPROP-SCH-PP-DED PIC X(5). 00620002 006300 11 P-FRPROP-SCH-PROP-FIRE-DED PIC X(5). 00630002 006400 11 P-FRPROP-SCH-P-EXT-COV-DED PIC X(5). 00640002 006500 11 P-FRPROP-SCH-PROP-VMM-DED PIC X(5). 00650002 006600 11 P-FRPROP-BLDG-ITEM PIC X(20). 00660002 006700 11 P-FRPROP-BLDG-COV-LMT PIC X(10). 00670002 006800 11 P-FRPROP-BLDG-FIRE-DED PIC X(5). 00680002 006900 11 P-FRPROP-BLDG-EXT-COV-DED PIC X(5). 00690002 007000 11 P-FRPROP-BLDG-VMM-DED PIC X(5). 00700002 007100 11 P-FRPROP-SCH-OBLDG-STRC-ITEM PIC X(20). 00710002 007200 11 P-FRPROP-SCH-OBLDG-STRC-LMT PIC X(10). 00720002 007300 11 P-FRPROP-SCH-OBLDG-STRC-DED PIC X(5). 00730002 007400 11 P-FRPROP-ANIMAL-COLLISION PIC X. 00740002 007500 07 P-CLFRPROP-UNUSED PIC X(2170). 00750002 007600 SKIP2 00760002 007700 05 P-CLSMPFR-DEPENDENT-DATA REDEFINES 00770002 007800 P-CL-LINE-INS-DEPENDENT-DATA. 00780002 007900 07 P-CL-SMPFR-RANCH-DATA. 00790002 008000 09 P-SMPFR-COVERAGE-DATA. 00800002 008100 11 P-SMPFR-DWL-LMT PIC X(10). 00810002 008200 11 P-SMPFR-DWL-FORM PIC X(5). 00820002 008300 11 P-SMPFR-DWL-DED PIC X(5). 00830002 008400 11 P-SMPFR-DWL-COINS-PERCENT PIC X(3). 00840002 008500 11 P-SMPFR-APS-COVB-LMT PIC X(10). 00850002 008600 11 P-SMPFR-APS-COVB-FORM PIC X(5). 00860002 008700 11 P-SMPFR-APS-COVB-DED PIC X(5). 00870002 008800 11 P-SMPFR-UNSCH-HSHD-PROP-LMT PIC X(10). 00880002 008900 11 P-SMPFR-UNSCH-HSHD-P-FORM PIC X(5). 00890002 009000 11 P-SMPFR-UNSCH-HSHD-P-FI-DED PIC X(5). 00900002 009100 11 P-SMPFR-ADDL-LIV-EX-COV-LMT PIC X(10). 00910002 009200 11 P-SMPFR-ADDL-LIV-EXP-FORM PIC X(5). 00920002 009300 11 P-SMPFR-ADDL-LIV-EXP-DED PIC X(5). 00930002 009400 11 P-SMPFR-EXTRA-EXP-COV-LMT PIC X(10). 00940002 009500 11 P-SMPFR-EXTRA-EXP-FORM PIC X(5). 00950002 009600 11 P-SMPFR-EXTRA-EXP-DED PIC X(5). 00960002 009700 11 P-SMPFR-BLKT-PERS-PROP-LMT PIC X(10). 00970002 009800 11 P-SMPFR-BLKT-FORM PIC X(5). 00980002 009900 11 P-SMPFR-BLKT-PERS-PROP-DED PIC X(5). 00990002 010000 11 P-SMPFR-BLKT-PP-COIN PIC X(3). 01000002 010100 11 P-SMPFR-SCH-PP-ITEM PIC X(20). 01010002 010200 11 P-SMPFR-SCH-PP-LMT PIC X(10). 01020002 010300 11 P-SMPFR-SCH-PP-FORM PIC X(05). 01030002 010400 11 P-SMPFR-SCH-PP-DED PIC X(5). 01040002 010500 11 P-SMPFR-BLDG-ITEM PIC X(20). 01050002 010600 11 P-SMPFR-BLDG-COV-LMT PIC X(10). 01060002 010700 11 P-SMPFR-BLDG-FORM PIC X(5). 01070002 010800 11 P-SMPFR-BLDG-FIRE-DED PIC X(5). 01080002 010900 11 P-SMPFR-ANIMAL-COLLISION PIC X. 01090002 011000 11 P-SMPFR-INFLATION-GUARD PIC X(1). 01100002 333092 11 P-SMPFR-DWL-EXTRA-IND PIC X(01). 01101002 333092 11 P-SMPFR-APS-COVB-EXTRA-IND PIC X(01). 01102002 333092 11 P-SMPFR-UNSCH-HSHD-XTRA-IND PIC X(01). 01103002 333092 11 P-SMPFR-ADDL-LIV-XTRA-IND PIC X(01). 01104002 333092 11 P-SMPFR-EE-XTRA-COV-IND PIC X(01). 01105002 333092 11 P-SMPFR-BLKT-PERS-XTRA-IND PIC X(01). 01106002 333092 11 P-SMPFR-SCH-PP-XTRA-IND PIC X(01). 01107002 333092 11 P-SMPFR-BLDG-COV-XTRA-IND PIC X(01). 01108002 333092 09 FILLER PIC X(114). 01110002 011200 07 P-CLSMPFR-UNUSED PIC X(2170). 01120002 011300 05 P-CLTXFR-DEPENDENT-DATA REDEFINES 01130002 011400 P-CL-LINE-INS-DEPENDENT-DATA. 01140002 011500 07 P-CL-TEXAS-FARM-RANCH-DATA. 01150002 011600 09 P-CLTXFR-COVERAGE-DATA. 01160002 011700 11 P-CLTXFR-FORM PIC X. 01170002 011800 11 P-CLTXFR-DWL-LMT PIC X(10). 01180002 011900 11 P-CLTXFR-UNSCH-HSHD-PROP-LMT PIC X(10). 01190002 012000 11 P-CLTXFR-SCH-PP-END-IND PIC X. 01200002 012100 11 P-CLTXFR-SCH-PROP-IND PIC X. 01210002 012200 11 P-CLTXFR-ANIMAL-COLL-IND PIC X. 01220002 012300 11 P-CLTXFR-PP-INSD-REPL-IND PIC X. 01230002 012400 11 P-CLTXFR-CLAUSE1-DED PIC X(5). 01240002 012500 11 P-CLTXFR-CLAUSE2-DED PIC X(5). 01250002 012600 11 P-CLTXFR-PHYS-DMG-OCC PIC X(10). 01260002 012700 11 P-CLTXFR-PERS-MED-PY-LMT-ACC PIC X(10). 01270002 012800 11 P-CLTXFR-PERS-MED-PY-LMT-PER PIC X(10). 01280002 012900 11 P-CLTXFR-PERS-LIAB-LMT PIC X(10). 01290002 013000 11 P-CLTXFR-ADDL-LIV-EXP-LMT PIC X(10). 01300002 013100 09 FILLER PIC X(245). 01310002 013200 07 P-CLTXFR-UNUSED PIC X(2170). 01320002 013300 05 P-CLFR2-DEPENDENT-DATA REDEFINES 01330002 013400 P-CL-LINE-INS-DEPENDENT-DATA. 01340002 013500 07 P-CL-FARM-RANCH-2-DATA. 01350002 013600 09 P-CLFR2-COVERAGE-DATA. 01360002 013700****P-CLFR-UNUSED CORRESPONDS TO THE 330 BYTES OF 01370002 013800****P-CL-FARM-RANCH-DATA. 01380002 013900 11 P-CLFR-UNUSED PIC X(330). 01390002 014000 11 P-CLFR-THFT-COV-IND PIC X. 01400002 014100 11 P-CLFR-IM-COV-IND PIC X. 01410002 014200 11 P-CLFR-EXT-MASONARY-EXC-IND PIC X. 01420002 014300 11 P-CLFR-THFT-EXCL-D-E-F-IND PIC X. 01430002 014400 11 P-CLFR-BLDG-REPL-COST-IND PIC X. 01440002 014500 11 P-CLFR-TRANSP-EXT-IND PIC X. 01450002 014600 11 P-CLFR-EQ-COV-IND PIC X. 01460002 014700 11 P-CLFR-CONT-REPL-COST-IND PIC X. 01470002 014800 11 P-CLFR-MORTGAGE-DATA. 01480002 014900 13 P-CLFR-MTGE-NAM PIC X(51). 01490002 015000 13 P-CLFR-MTGE-STR PIC X(39). 01500002 015100 13 P-CLFR-MTGE-CTY PIC X(13). 01510002 015200 13 P-CLFR-MTGE-STA PIC X(2). 01520002 015300 13 P-CLFR-MTGE-ZIP PIC X(9). 01530002 015400 11 P-CLFR-ADDL-INT-IND PIC X. 01540002 015500 11 P-CLFR-STATE-EXCP PIC X(135). 01550002 015600 07 P-CLFR2-UNUSED PIC X(1912). 01560002 015700 05 P-CLSMPFR2-DEPENDENT-DATA REDEFINES 01570002 015800 P-CL-LINE-INS-DEPENDENT-DATA. 01580002 015900 07 P-CL-SIMP-FARM-RANCH-2-DATA. 01590002 016000 09 P-SMPFR2-COVERAGE-DATA. 01600002 016100****P-SMPFR2-UNUSED CORRESPONDS TO THE 330 BYTES OF 01610002 016200****P-CL-FARM-RANCH-DATA. 01620002 016300 11 P-SMPFR2-UNUSED PIC X(330). 01630002 016400 11 P-SMPFR2-IM-COV-IND PIC X. 01640002 016500 11 P-SMPFR2-BLDG-REPL-COST-IND PIC X. 01650002 016600 11 P-SMPFR2-EQ-COV-IND PIC X. 01660002 016700 11 P-SMPFR2-CONT-REPL-COST-IND PIC X. 01670002 016800 11 P-SMPFR2-MORTGAGE-DATA. 01680002 016900 13 P-SMPFR2-MTGE-NAM PIC X(51). 01690002 017000 13 P-SMPFR2-MTGE-STR PIC X(39). 01700002 017100 13 P-SMPFR2-MTGE-CTY PIC X(13). 01710002 017200 13 P-SMPFR2-MTGE-STA PIC X(2). 01720002 017300 13 P-SMPFR2-MTGE-ZIP PIC X(9). 01730002 017400 11 P-SMPFR2-ADDL-INT-IND PIC X. 01740002 017500 11 P-SMPFR2-STATE-EXCP PIC X(135). 01750002 017600 07 P-CLSMPFR2-UNUSED PIC X(1916). 01760002 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* * 00020000 000300* SCRFILE POLICY SEGMENT (MANUAL CL GEN LIAB) * 00030000 000400* CPCSLIB SUBSET CLGL * 00040000 000500* * 00050000 000600* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGE AND OTHER * 00060000 000700* DATA UNIQUE TO COMMERCIAL LINES GENERAL LIAB(INCLUDING * 00070000 000800* SAILOR, F.O.ACCTS, TXMP,AND CUP COVERAGES.) * 00080000 000900* IT IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00090000 001000* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00100000 001100* FOLLOWING THAT MEMBER. * 00110000 001200* * 00120000 001300* CREATED 3-23-84 DMT * 00130000 001400* Y2KEANE ADDED CENTURY TO DATE FIELD T. BOWDEN * 00140000 001500* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00150000 001600 SKIP2 00160000 001700 05 P-CLGL-DEPENDENT-DATA REDEFINES 00170000 001800 P-CL-LINE-INS-DEPENDENT-DATA. 00180000 001900 07 P-CL-GENERAL-LIABILITY-DATA. 00190000 002000 09 P-CLGL1-COVERAGE-DATA. 00200000 002100 11 FILLER PIC X(3). 00210000 002200 11 P-CLGL-SNGL-LMT-LIAB-OCC PIC X(10). 00220000 002300 11 P-CLGL-SNGL-LMT-LIAB-DED PIC X(5). 00230000 002400 11 P-CLGL-SNGL-LMT-LIAB-AGGR PIC X(10). 00240000 002500 11 P-CLGL-BI-LIAB-LMT-OCC PIC X(10). 00250000 002600 11 P-CLGL-BI-LIAB-LMT-DED PIC X(5). 00260000 002700 11 P-CLGL-BI-LIAB-LMT-AGGR PIC X(10). 00270000 002800 11 P-CLGL-PD-LIAB-LMT-OCC PIC X(10). 00280000 002900 11 P-CLGL-PD-LIAB-LMT-DED PIC X(5). 00290000 003000 11 P-CLGL-PD-LIAB-LMT-AGGR PIC X(10). 00300000 003100 11 P-CLGL-COMP-GEN-LIAB-IND PIC X. 00310000 003200 11 P-CLGL-BRD-FRM-COMP-GL-IND PIC X. 00320000 003300 11 P-CLGL-PREM-OPS-IND PIC X. 00330000 003400 11 P-CLGL-CMPL-OPS-IND PIC X. 00340000 003500 11 P-CLGL-PRODUCT-IND PIC X. 00350000 003600 11 P-CLGL-OWN-CONTR-PROT-IND PIC X. 00360000 003700 11 P-CLGL-CONTR-IND PIC X. 00370000 003800 11 P-CLGL-PERS-INJ-COV-IND PIC X. 00380000 003900 11 P-CLGL-PERS-INJ-AGGR-LMT PIC X(10). 00390000 004000 11 P-CLGL-PREM-MED-PAY-COV-IND PIC X. 00400000 004100 11 P-CLGL-PREM-MED-PAY-LMT-PER PIC X(6). 00410000 004200 11 P-CLGL-PREM-MED-PAY-LMT-ACC PIC X(10). 00420000 004300 11 P-CLGL-PROF-LIAB-COV-IND PIC X. 00430000 004400 11 P-CLGL-PROF-LIAB-COV-LMT PIC X(10). 00440000 004500 11 P-CLGL-PROF-LIAB-DED PIC X(5). 00450000 004600 11 P-CLGL-PROF-LIAB-LMT-AGGR PIC X(10). 00460000 004700 11 P-CLGL-ELUB-COV-IND PIC X. 00470000 004800 11 P-CLGL-ELUB-LMT PIC X(7). 00480000 004900 11 P-CLGL-FIRE-LEGAL-IND PIC X. 00490000 005000 11 P-CLGL-FIRE-LEGAL-LIAB PIC X(10). 00500000 005100 09 P-CLGL2-COVERAGE-DATA. 00510000 005200 11 P-CLGL-ENTRY-DATE-CLM-MADE. 00520000 005300 13 P-CLGL-ENTRY-CLM-MM PIC XX. 00530000 005400 13 P-CLGL-ENTRY-CLM-DD PIC XX. 00540000 005500 13 P-CLGL-ENTRY-CLM-CC PIC XX. 00550000 005600 13 P-CLGL-ENTRY-CLM-YY PIC XX. 00560000 005700 11 P-CLGL-PR-ACT-COV-IND PIC X. 00570000 005800 11 P-CLGL-TAIL-COV-IND PIC X. 00580000 005900 11 P-CLGL-OCC-COV-IND PIC X. 00590000 006000 07 P-CLGL-UNUSED PIC X(2331). 00600000 006100 05 P-CLPROF-DEPENDENT-DATA REDEFINES 00610000 006200 P-CL-LINE-INS-DEPENDENT-DATA. 00620000 006300 07 P-CL-PROFESSIONAL-LIAB-DATA. 00630000 006400 09 P-PROF-COVERAGE-DATA. 00640000 006500 11 P-PROF-ASSN-COD PIC X(6). 00650000 006600 11 P-PROF-ASSN-LMT-OCC PIC X(10). 00660000 006700 11 P-PROF-ASSN-LMT-AGGR PIC X(10). 00670000 006800 11 P-PROF-CERT-NUM PIC X(6). 00680000 006900 11 P-PROF-ASSN-DED-COD PIC X(3). 00690000 007000 11 P-PROF-BOARD-CERT-IND PIC X. 00700000 007100 11 P-PROF-BOARD-CERT-ELIG-IND PIC X. 00710000 007200 11 P-PROF-TYP-PRAC PIC X. 00720000 007300 11 P-PROF-NO-SO-PERS-EXC-LMT PIC X(10). 00730000 007400 11 P-PROF-PERS-EXC-CERT-IND PIC X. 00740000 007500 11 P-PROF-PERS-EXC-ELIG-IND PIC X. 00750000 007600 11 P-PROF-PERS-EXC-TYPE-PRAC PIC X. 00760000 007700 11 P-PROF-ASSN-CLASS-COD PIC X(4). 00770000 007800 11 P-PROF-OPT-COD PIC X(2). 00780000 007900 11 P-PROF-CNTY-TOWN-COD PIC X(3). 00790000 008000 11 P-PROF-DISTRICT-SOCAP PIC X(2). 00800000 008100 07 P-CLPROF-UNUSED PIC X(2438). 00810000 008200 05 P-CLFRLIAB-DEPENDENT-DATA REDEFINES 00820000 008300 P-CL-LINE-INS-DEPENDENT-DATA. 00830000 008400 07 P-CL-FARM-RANCH-LIAB-DATA. 00840000 008500 09 P-CLFRLIAB-COVERAGE-DATA. 00850000 008600 11 P-CLFRLIAB-PHYS-DMG-OCC PIC X(10). 00860000 008700 11 P-CLFRLIAB-MED-PAY-INSD PIC X(10). 00870000 008800 11 P-CLFRLIAB-EMP-MED-PAY-OCC PIC X(10). 00880000 008900 11 P-CLFRLIAB-FIRE-HAZ-LMT-OCC PIC X(10). 00890000 009000 11 P-CLFRLIAB-FIRE-HAZ-DED PIC X(5). 00900000 009100 11 P-CLFRLIAB-PER-MED-PY-LT-ACC PIC X(10). 00910000 009200 11 P-CLFRLIAB-PER-MED-PY-LT-PER PIC X(10). 00920000 009300 11 P-CLFRLIAB-PERS-LMT PIC X(10). 00930000 009400 11 P-CLFRLIAB-ELUB-LMT PIC X(10). 00940000 009500 07 P-CLFRLIAB-UNUSED PIC X(2415). 00950000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* * 00020000 000300* SCRFILE POLICY SEGMENT (SIMPLIFIED LIABILITY) * 00030000 000400* PAN MEMBER PCLGLSPOL * 00040000 000500***************************************************************** 00050000 000600* M A I N T E N A N C E L O G * 00060000 000700***************************************************************** 00070000 000800* * 00080000 000900* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00090000 001000***************************************************************** 00100000 001100* 06/14/88 A MODY GR2 ADDED FR MED EMPLOY FIELDS * 00110000 001200***************************************************************** 00120000 001300* THIS CONTAINS THE COVERAGE AND OTHER * 00130000 001400* DATA UNIQUE TO COMMERCIAL LINES GENERAL LIABILITY - * 00140000 001500* SIMPLIFIED. * 00150000 001600* IT IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00160000 001700* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00170000 001800* FOLLOWING THAT MEMBER. * 00180000 001900* * 00190000 002000* CREATED 12-30-85 KSN * 00200000 002100* * 00210000 002200* JMBONNEY Y2KEANE ADDED CORRECT FILLER FOR YEAR 2000 * 00220000 002300* * 00230000 002400* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00240000 002500 SKIP2 00250000 002600 05 P-CLGLS-DEPENDENT-DATA REDEFINES 00260000 002700 P-CL-LINE-INS-DEPENDENT-DATA. 00270000 002800 07 P-CL-SIM-LIABILITY-DATA. 00280000 002900 09 CLGLS-LIMITS. 00290000 003000 11 P-CLGLS-BI-PD-OCCR-LMT PIC X(10). 00300000 003100 11 P-CLGLS-BI-LIAB-LMT-OCC PIC X(10). 00310000 003200 11 P-CLGLS-PD-LIAB-LMT-OCC PIC X(10). 00320000 003300 11 P-CLGLS-PROD-BI-LMT-OCC PIC X(10). 00330000 003400 11 P-CLGLS-PROD-PD-LMT-OCC PIC X(10). 00340000 003500 11 P-CLGLS-OWN-CONTR-PROT-BI-OCC PIC X(10). 00350000 003600 11 P-CLGLS-OWN-CONTR-PROT-PD-OCC PIC X(10). 00360000 003700 11 P-CLGLS-PERS-INJ-COV-LMT-OCC PIC X(10). 00370000 003800 11 P-CLGLS-PREM-MED-PAY-LMT-PER PIC X(10). 00380000 003900 11 P-CLGLS-PROF-LIAB-COV-LMT PIC X(10). 00390000 004000 11 P-CLGLS-ELUB-LMT PIC X(7). 00400000 004100 11 P-CLGLS-FIRE-LEGAL-LIAB-LMT PIC X(10). 00410000 004200 11 P-CLGLS-LIQ-LIAB-LMT-CAUSE PIC X(10). 00420000 004300 11 P-CLGLS-EMPLOY-MED-PAY-OCC PIC X(10). 00430000 004400 11 P-CLGLS-LMT-UNUSED PIC X(28). 00440000 004500 09 CLGLS-AGGREGATES. 00450000 004600 11 P-CLGLS-GEN-AGGR-LMT PIC X(10). 00460000 004700 11 P-CLGLS-PROD-COMP-OPS-AGGR-LMT PIC X(10). 00470000 004800 11 P-CLGLS-OWN-CONTR-PROT-AGGR PIC X(10). 00480000 004900 11 P-CLGLS-RAIL-PROT-AGGR PIC X(10). 00490000 005000 11 P-CLGLS-PROF-LIAB-LMT-AGGR PIC X(10). 00500000 005100 11 P-CLGLS-LIQ-LIAB-LMT-AGGR PIC X(10). 00510000 005200 11 P-CLGLS-AGGR-UNUSED PIC X(40). 00520000 005300 09 CLGLS-DEDUCTIBLES. 00530000 005400 11 P-CLGLS-BI-LIAB-DED PIC X(8). 00540000 005500 11 P-CLGLS-BI-LIAB-DED-OCC PIC X(8). 00550000 005600 11 P-CLGLS-PD-LIAB-DED PIC X(8). 00560000 005700 11 P-CLGLS-PD-LIAB-DED-OCC PIC X(8). 00570000 005800 11 P-CLGLS-BI-PD-LIAB-DED PIC X(8). 00580000 005900 11 P-CLGLS-BI-PD-LIAB-DED-OCC PIC X(8). 00590000 006000 11 P-CLGLS-PROF-LIAB-DED PIC X(8). 00600000 006100 11 P-CLGLS-DED-UNUSED PIC X(35). 00610000 006200 09 CLGLS-INDICATORS. 00620000 006300 11 P-CLGLS-PREM-OPS-IND PIC X. 00630000 006400 11 P-CLGLS-PRODUCT-IND PIC X. 00640000 006500 11 P-CLGLS-PERS-INJ-COV-IND PIC X. 00650000 006600 11 P-CLGLS-PREM-MED-PAY-COV-IND PIC X. 00660000 006700 11 P-CLGLS-PROF-LIAB-COV-IND PIC X. 00670000 006800 11 P-CLGLS-ELUB-COV-IND PIC X. 00680000 006900 11 P-CLGLS-FIRE-LEGAL-LIAB-IND PIC X. 00690000 007000 11 P-CLGLS-LIQ-LIAB-COV-IND PIC X. 00700000 007100 11 P-CLGLS-EMPLOY-MED-PAY-IND PIC X. 00710000 007200 11 P-CLGLS-INS-UNUSED PIC X(9). 00720000 007300 09 CLGLS-UNUSED PIC X(100). 00730000 007400 09 P-CLGLS2-COVERAGE-DATA. 00740000 007500 11 P-CLGLS2-CLM-MADE-COV-IND PIC X. 00750000 007600 11 P-CLGLS2-OCC-COV-IND PIC X. 00760000 007700 09 P-CLGLS2-UNUSED PIC X(112). 00770000 007800 09 P-CLGLS-AUTOMATED-FIELDS. 00780000 007900 11 P-CLGLS-AGGREGATE-RULE PIC X(5). 00790000 008000 11 P-CLGLS-REIN-AGG-IND PIC X. 00800000 008100 11 P-CLGLS-TOTAL-AGGREGATE PIC X(10). 00810000 008200 11 P-CLGLS-DEFENSE-LMT PIC X(10). 00820000 008300 11 P-CLGLS-DEFENSE-LMT-AGG PIC X(15). 00830000 008400 11 P-CLGLS-BI-LIAB-LMT-AGGR PIC X(10). 00840000 008500 11 P-CLGLS-PD-LIAB-LMT-AGGR PIC X(10). 00850000 008600 11 P-CLGLS-PROD-BI-LMT-AGGR PIC X(10). 00860000 008700 11 P-CLGLS-PROD-PD-LMT-AGGR PIC X(10). 00870000 008800 11 P-CLGLS-AUTOMATED-UNUSED PIC X(40). 00880000 008900 07 FILLER PIC X(1791). 00890000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* * 00020000 000300* SCRFILE POLICY SEGMENT (MANUAL CL MASTER PAC) * 00030000 000400* PANVALET MEMBER PCLMP * 00040000 000500* * 00050000 000600* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * 00060000 000700* DATA UNIQUE TO COMMERCIAL LINES MASTER PAC POLICIES. IT * 00070000 000800* IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00080000 000900* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00090000 001000* FOLLOWING THAT MEMBER. * 00100000 001100* * 00110000 001200* CREATED 3-23-84 BY DMT * 00120000 001300* * 00130000 001400* CHANGED FOR NEW GARAGE STATE FIELD 2-15-85 SMS * 00140000 001500* CHANGED FOR CLMPS 2-11-86 TJA * 00150000 001600* JMBONNEY Y2KEANE ADDED CORRECT FILLER FOR YEAR 2000 * 00160000 001700* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00170000 001800***************************************************************** 00180000 001900* M A I N T E N A N C E L O G * 00190000 002000***************************************************************** 00200000 002100* * 00210000 002200* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00220000 002300***************************************************************** 00230000 002400* 08/15/88 J MEYER GR9 REARRANGE PROP COVS FOR CLMPS* 00240000 002500***************************************************************** 00250000 002600 SKIP2 00260000 002700 05 P-CLMP-DEPENDENT-DATA REDEFINES 00270000 002800 P-CL-LINE-INS-DEPENDENT-DATA. 00280000 002900 07 P-CL-MASTER-PAC-DATA. 00290000 003000 09 P-CLMP1-COVERAGE-DATA. 00300000 003100 11 P-CLMP-TYP-PAC-POL PIC X(11). 00310000 003200 11 P-CLMP-BASIC-PAC-POL-IND PIC X. 00320000 003300 11 P-CLMP-DELUX-PAC-POL-IND PIC X. 00330000 003400 11 P-CLMP-SELECT-PAC-POL-IND PIC X. 00340000 003500 11 P-CLMP-BLDG-COV-LMT PIC X(9). 00350000 003600 11 P-CLMP-BLDG-PAC-PROP-DED PIC X(5). 00360000 003700 11 P-CLMP-BLDG-EQ-DED PIC X(3). 00370000 003800 11 P-CLMP-BLDG-BLKT-IND PIC X. 00380000 003900 11 P-CLMP-PERS-PROP-COV-LMT PIC X(9). 00390000 004000 11 P-CLMP-PP-PAC-PROP-DED PIC X(5). 00400000 004100 11 P-CLMP-PP-EQ-DED PIC X(3). 00410000 004200 11 P-CLMP-PERS-PROP-BLKT-IND PIC X. 00420000 004300 11 P-CLMP-STKEEP-BURG-ROB-LMT PIC X(10). 00430000 004400 11 P-CLMP-STKEEP-BURG-ROB-DED PIC X(5). 00440000 004500 11 P-CLMP-ACCT-RECV-COV-LMT PIC X(9). 00450000 004600 11 P-CLMP-ACCT-RECV-DED PIC X(5). 00460000 004700 11 P-CLMP-SPEC-CRIME-LMT PIC X(9). 00470000 004800 11 P-CLMP-SPEC-CRIME-THFT-DED PIC X(5). 00480000 004900 11 P-CLMP-SPEC-CRIME-OTH-DED PIC X(5). 00490000 005000 11 P-CLMP-COINS-PERCENT PIC X(3). 00500000 005100 11 P-CLMP-IM-COV-IND PIC X. 00510000 005200 11 P-CLMP-IM-DESC-COV PIC X(17). 00520000 005300 11 P-CLMP-MP-COMB-LIAB-LMT PIC X(10). 00530000 005400 11 P-CLMP-PREM-MED-PAY-LMT-PER PIC X(6). 00540000 005500 11 P-CLMP-PREM-MED-PAY-LMT-ACC PIC X(10). 00550000 005600 11 P-CLMP-PROF-LIAB-COV-LMT PIC X(10). 00560000 005700 11 P-CLMP-PROF-LIAB-LMT-AGG PIC X(10). 00570000 005800 11 P-CLMP-CNDO-DIR-OFF-AGR-LMT PIC X(10). 00580000 005900 11 P-CLMP-CONDO-DIR-OFFCR-DED PIC X(5). 00590000 006000 09 P-CLMP2-COVERAGE-DATA. 00600000 006100 11 P-CLMP-ADDL-BLDG-PROP-IND-A PIC X. 00610000 006200 11 P-CLMP-ADDL-BLDG-PROP-IND-B PIC X. 00620000 006300 11 P-CLMP-ADDL-BLDG-PROP-IND-C PIC X. 00630000 006400 11 P-CLMP-EXT-BLDG-GLASS-IND PIC X. 00640000 006500 11 P-CLMP-MORTGAGE-DATA. 00650000 006600 13 P-CLMP-MTGE-NAM PIC X(51). 00660000 006700 13 P-CLMP-MTGE-ADDR-STR PIC X(39). 00670000 006800 13 P-CLMP-MTGE-ADDR-CTY PIC X(13). 00680000 006900 13 P-CLMP-MTGE-ADDR-STA PIC X(2). 00690000 007000 13 P-CLMP-MTGE-ADDR-ZIP PIC X(9). 00700000 007100 11 P-CLMP-ADDL-INT-IND PIC X. 00710000 007200 09 P-CLMP-GARAGE-DATA. 00720000 007300 11 P-CLMP-GARAGE-STATE PIC XX. 00730000 007400 11 P-CLMP-GARAGE-DATA-UNUSED PIC X(50). 00740000 007500 09 P-CLMP-DATA-UNUSED PIC X(450). 00750000 007600* CREATED 2/11/86 BY TJA 00760000 007700 07 P-CLMPS-NEW-FIELDS-DATA. 00770000 007800 09 P-CLMPS-INDICATORS. 00780000 007900 11 P-CLMPS-EQ-COV-INCL-EXCL-IND PIC X(01). 00790000 008000 11 P-CLMPS-OCC-COV-IND PIC X. 00800000 008100 11 P-CLMPS-CLM-MADE-COV-IND PIC X. 00810000 008200 11 P-CLMPS-INDICATORS-UNUSED PIC X(09). 00820000 008300 09 P-CLMPS-PROP-COV. 00830000 008400 11 P-CLMPS-BLDG-COV-LMT PIC X(10). 00840000 008500 11 P-CLMPS-PERS-PROP-COV-LMT PIC X(10). 00850000 008600 11 P-CLMPS-INLD-MAR-COV-LMT PIC X(10). 00860000 008700 11 P-CLMPS-INLD-MAR-COV-DED PIC X(05). 00870000 008800 11 P-CLMPS-OTH-CRIME-LMT PIC X(10). 00880000 008900 11 P-CLMPS-OTH-CRIME-DED PIC X(05). 00890000 009000 11 P-CLMPS-PROP-COV-UNUSED PIC X(212).00900000 009100 09 P-CLMPS-LIMITS-AGGR. 00910000 009200 11 P-CLMPS-GEN-AGGR-LMT PIC X(10). 00920000 009300 11 P-CLMPS-VET-PROF-LIAB-LMT-AGGR PIC X(10). 00930000 009400 11 P-CLMPS-VET-PROF-LIAB-LMT-INC PIC X(10). 00940000 009500 11 P-CLMPS-PROD-COMP-OPS-AGGR-LMT PIC X(10). 00950000 009600 11 P-CLMPS-LIQ-LIAB-LMT-AGGR PIC X(10). 00960000 009700 11 P-CLMPS-PERS-INJ-AGGR-LMT PIC X(10). 00970000 009800 11 P-CLMPS-BI-PD-OCCR-LMT PIC X(10). 00980000 009900 11 P-CLMPS-FIRE-LEGAL-LIA-COV-LMT PIC X(10). 00990000 010000 11 P-CLMPS-LIMITS-AGGR-UNUSED PIC X(20). 01000000 010100 07 P-CLMP-UNUSED PIC X(1325).01010003 000100******************************************************************00010000 000200* SCRFILE POLICY SEGMENT ( MCR CL GEN LIABILITY ) 00020000 000300* CPCSLIB SUBSET AMCRPOL 00030000 000400* CREATED 03-04-86 DLB 00040000 000500******************************************************************00050000 000600***************************************************************** 00060000 000700* M A I N T E N A N C E L O G * 00070000 000800***************************************************************** 00080000 000900* * 00090000 001000* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00100000 001100***************************************************************** 00110000 001200* 01/20/88 DEITZ GIE CLMCR CONVERSION * 00120000 001300***************************************************************** 00130000 001400 05 P-MCRLIAB-DEPENDENT-DATA 00140000 001500 REDEFINES P-CL-LINE-INS-DEPENDENT-DATA. 00150000 001600 07 P-MCRLIAB-PROFESSIONAL-DATA. 00160000 001700 09 P-MCRLIAB-CERT-NUM PIC X(6). 00170000 001800 09 P-MCRLIAB-ASSN-DED-COD PIC XXX. 00180000 001900 09 P-MCRLIAB-ASSN-CLASS-COD PIC XXXX. 00190000 002000 09 P-MCRLIAB-BOARD-CERT-IND PIC X. 00200000 002100 09 P-MCRLIAB-BOARD-CERT-ELIG-IND PIC X. 00210000 002200 09 P-MCRLIAB-TYPE-PRAC PIC X. 00220000 002300 09 P-MCRLIAB-CNTY-TOWN-COD PIC XXX. 00230000 002400 09 P-MCRLIAB-DIST-SOCAP PIC XX. 00240000 002500 09 P-MCRLIAB-OPT-COD PIC XX. 00250000 002600 09 P-MCRLIAB-COVERAGE-CODES. 00260000 002700 11 P-MCRLIAB-COV-IND-NC PIC XXXX. 00270000 002800 11 P-MCRLIAB-COV-IND-BI PIC XXXX. 00280000 002900 11 P-MCRLIAB-COV-IND-PD PIC XXXX. 00290000 003000 11 P-MCRLIAB-COV-IND-PROF PIC XXXX. 00300000 003100 11 P-MCRLIAB-COV-IND-PI PIC XXXX. 00310000 003200 11 P-MCRLIAB-COV-IND-MAL PIC XXXX. 00320000 003300 11 P-MCRLIAB-COV-IND-PEXC PIC XXXX. 00330000 003400 11 P-MCRLIAB-COV-IND-ELUB PIC XXXX. 00340000 003500 11 P-MCRLIAB-COV-IND-MP PIC XXXX. 00350000 003600 11 P-MCRLIAB-COV-IND-PRBI PIC XXXX. 00360000 003700 11 P-MCRLIAB-COV-IND-PRPD PIC XXXX. 00370000 003800 07 P-MCRLIAB-UNUSED-2 PIC X(1375). 00380000 003900 07 FILLER PIC X(1058). 00390000 000100************************************************************* 00010000 000200* PANVALET MEMBER PCLAMPAC 00020000 000300* SCRFILE POLICY SEGMENT (CL AUTOMATED MASTER PAC) 00030000 000400* 00040000 000500* THIS MEMBER CONTAINS THE COVERAGE INFORMATION FOR 00050000 000600* AUTOMATED MASTER PAC CLAIMS. THE DATA IS ORGANIZED BY 00060000 000700* LOSS DESIGNATOR. 00070000 000800* 00080000 000900* THIS SUBSET OF THE COMM LINES POLICY SEGMENT REDFINES THE LAST 00090000 001000* 2500 BYTE FIELD. IT IS TO BE CODED IN A PROGRAM AS AN INCLUDE 00100000 001100* AFTER PCLPOLICY. 00110000 001200* 00120000 001300* CREATED 11/12/90 00130000 001400* MAINTENANCE LOG 00140000 001500* DATE NAME SER # DESCRIPTION OF CHANGE 00150000 001600* 03/15/92 ST. ONGE MPAC EXPAND RECORD TO RETRIEVE NEW 00160000 001700* ITEMS FROM MASTERPAC D.B. 00170000 001800* 07/06/92 ST. ONGE MPAC REMOVE EXCESS EMPL DISHONESTY 00180000 001900* COVERAGE. 00190000 002000* 03/17/95 R FRENETTE MPAC ADD NEW FIELDS FOR PAC PLUS 00200000 002100* MPAC CHANGES 00210000 002110* 06/05/95 R FRENETTE MPAC ADD NEW FIELDS FOR PAC PLUS 00211000 002111* MPAC CHANGES 00211100 002112* 12/15/96 S GARMISE MPAC ADD NEW FIELDS FOR RELIGIOUS 00211200 002113* PAC, EQ, & FLOOD 00211300 002114* 11/09/97 M BATT MPAC ADD NEW FIELDS FOR INLAND MARINE 00211400 002115* AND SUBCONTRACTORS DESIGN LIAB 00211500 SBG * 03/99 S GLIECO MPAC ADD REDEFINES FOR BLD INFL IND 00211601 SBG * ADD REDEFINES FOR CNT INFL IND 00211701 SBG * ADD NEW FIELD FOR BUS DEP PROP 00211801 SBG * LIMIT. 00211901 002120* 06/00 C PETERS MPAC ADD 2 NEW LIAB LIMITS 00212000 WKW * 11/00 K WATHEN MPAC ADD NEW IND'S AND LIMITS SLR * 01/01 S RICHARDS MPAC ADD NEW LIMIT FOR EQ-OCC/AGG * REMOVE BROAD-WIND-IND * 11/03 P RADY MPAC CHANGES FOR MOLD PROPERTY * 02/05 P ZOCCO MPAC CHANGES FOR MPAC PRODUCT CURRENCY * 04/05 P ZOCCO MPAC ADD P-MPAC-CUR-HOME-BUS-COV-IND * MPAC PRODUCT CURRENCY FOR FUTURE * 07/05 P ZOCCO MPAC REPL P-MPAC-CUR-POWERPAC-LOC-CNT * WITH P-MPAC-CUR-KENNEL-PAC-IND * AND P-MPAC-CUR-BUS-INC-72-HR-IND * ADD P-MPAC-CUR-POWERPAC-IND 33947 * 02/07 R BHANU MPAC ADD P-MPAC-CUR-TECH-OFF-ENDORS-IND * ADD P-MPAC-CUR-TECH-MFG-ENDORS-IND * ADD P-MPAC-CUR-DENIAL-OF-SERVICE-IND 002116************************************************************** 00211600 002117 00211700 002118 05 P-MPAC-AUTOMATED-DATA REDEFINES 00211800 002119 P-CL-LINE-INS-DEPENDENT-DATA. 00211900 002120 10 P-MPAC-BLD-DATA. 00212000 002130 15 P-MPAC-BLD-STREET PIC X(38). 00213000 002140 15 P-MPAC-BLD-CITY PIC X(24). 00214000 002150 15 P-MPAC-BLD-STATE PIC X(02). 00215000 002160 15 P-MPAC-BLD-ZIP PIC X(10). 00216000 002170 15 P-MPAC-BLD-ENTITY-KEY PIC X(04). 00217000 002180 15 P-MPAC-BLD-DESCRIPTION PIC X(15). 00218000 002190 10 P-MPAC-PAC-TYPE-LITERAL PIC X(12). 00219000 002200 10 P-MPAC-POLICY-PLAN PIC X(01). 00220000 002300 10 P-MPAC-FILL-IN-ENDORS-IND PIC X(01). 00230000 002400 10 P-MPAC-8000-ENDORS-IND PIC X(01). 00240000 002500 10 P-MPAC-SP-PROV-IND PIC X(01). 00250000 002600 10 P-MPAC-ENDORSEMENT-NUMBERS. 00260000 002700 15 P-MPAC-ENDORS-NUM OCCURS 72 TIMES 00270000 002800 PIC X(14). 00280000 002900 10 P-MPAC-ADDITIONAL-COVERAGES OCCURS 5 TIMES. 00290000 003000 15 P-MPAC-ADDL-COVG-TITLE PIC X(20). 00300000 003100 15 P-MPAC-ADDL-COVG-LIMIT PIC 9(07). 00310000 003200 15 P-MPAC-ADDL-COVG-DED PIC 9(05). 00320000 003300* ****************************************************** 00330000 003400* FN/FR AND LINE-CODE NOT = 'T' : PROPERTY COVERAGES 00340000 003500* ****************************************************** 00350000 003600 10 P-MPAC-LOSS-DESIGN-DATA PIC X(600).00360000 003700 10 P-MPAC-FN-FR-DATA REDEFINES 00370000 003800 P-MPAC-LOSS-DESIGN-DATA. 00380000 003900 15 P-MPAC-FLD-BLD-LIMIT PIC 9(08). 00390000 004000 15 P-MPAC-FLD-BLD-DED PIC 9(08). 00400000 004100 15 P-MPAC-FLD-BLD-COV-LIT-IND PIC X(01). 00410000 004200 15 P-MPAC-FLD-CNT-LIMIT PIC 9(08). 00420000 004300 15 P-MPAC-FLD-CNT-DED PIC 9(08). 00430000 004400 15 P-MPAC-FLD-CNT-COV-LIT-IND PIC X(01). 00440000 004500 15 P-MPAC-MINE-SUB-LIMIT PIC 9(08). 00450000 004600 15 P-MPAC-MINE-SUB-DED PIC 9(05). 00460000 004700 15 P-MPAC-SPOILAGE-LIMIT PIC 9(08). 00470000 004800 15 P-MPAC-SPOILAGE-DED PIC 9(05). 00480000 004900 15 P-MPAC-SPOIL-MNT-AGRMT-IND PIC X(01). 00490000 005000 15 P-MPAC-SPOIL-SELL-PRICE-IND PIC X(01). 00500000 005100 15 P-MPAC-SPOIL-PROP-DESC OCCURS 2 00510000 005200 PIC X(25). 00520000 005300 15 P-MPAC-TENANT-RELOC-UNITS PIC 9(03). 00530000 005400 15 P-MPAC-BLD-LIMIT PIC 9(08). 00540000 005500 15 P-MPAC-BLD-DED PIC 9(05). 00550000 005600 15 P-MPAC-BLD-COINS PIC X(02). 00560000 005700 15 P-MPAC-BLD-ACV PIC X(01). 00570000 005800 15 P-MPAC-BLD-FBRC PIC X(01). 00580000 005900 15 P-MPAC-BLD-INFLATION-IND PIC X(02). 00590000 15 P-MPAC-BLD-INFLATION-IND-PER 00591002 REDEFINES 00592002 P-MPAC-BLD-INFLATION-IND PIC 9V9. 00593002 006000 15 P-MPAC-CNT-LIMIT PIC 9(08). 00600000 006100 15 P-MPAC-CNT-TEXT REDEFINES 00610000 006200 P-MPAC-CNT-LIMIT PIC X(08). 00620000 006300 15 P-MPAC-CNT-DED PIC 9(05). 00630000 006400 15 P-MPAC-CNT-COINS PIC X(02). 00640000 006500 15 P-MPAC-CNT-ACV PIC X(01). 00650000 006600 15 P-MPAC-CNT-INFLATION-IND PIC X(02). 00660000 15 P-MPAC-CNT-INFLATION-IND-PER 00661002 REDEFINES 00662002 P-MPAC-CNT-INFLATION-IND PIC 9V9. 00663002 006700 15 P-MPAC-INCOME-INCL-IND PIC X(01). 00670000 006800 15 P-MPAC-BUSINESS-INCOME-LIMIT PIC X(08). 00680000 006900 15 P-MPAC-WIND-ST-EXCP-PCT PIC 9(02). 00690000 007000 15 P-MPAC-EQ-BLD-LIMIT PIC 9(08). 00700000 007100 15 P-MPAC-EQ-BLD-DED PIC 9(08). 00710000 007200 15 P-MPAC-EQ-BLD-COV-LIT-IND PIC X(01). 00720000 007300 15 P-MPAC-EQ-CNT-LIMIT PIC 9(08). 00730000 007400 15 P-MPAC-EQ-CNT-DED PIC 9(08). 00740000 007500 15 P-MPAC-EQ-CNT-COV-LIT-IND PIC X(01). 00750000 007600 15 P-MPAC-EXT-BLD-GLASS-IND PIC X(01). 00760000 007700 15 P-MPAC-ELIM-GLASS-DED-IND PIC X(01). 00770000 007800 15 P-MPAC-FNFR-MORTGAGEE-DATA. 00780000 007900 20 P-MPAC-FNFR-CERT-HOLDER-DATA OCCURS 2.00790000 008000 25 P-MPAC-FNFR-CERT-TYPE PIC X(01).00800000 008100 25 P-MPAC-FNFR-CERT-HOLDER OCCURS 4 00810000 008200 PIC X(30).00820000 008300 20 P-MPAC-MORE-FNFR-LCERT-IND PIC X(01).00830000 008400 15 P-MPAC-BLANKET-BLD-ONLY PIC X(09).00840000 008500 15 P-MPAC-BLANKET-BPP-ONLY PIC X(09).00850000 008600 15 P-MPAC-BLANKET-BLD-BPP PIC X(09).00860000 008700 15 P-MPAC-FNFR-CERT-HLDR-CITY PIC X(20).00870000 008800 15 P-MPAC-FNFR-CERT-HLDR-STATE PIC X(02).00880000 008900 15 P-MPAC-FNFR-CERT-HLDR-ZIP. 00890000 009000 20 P-MPAC-FNFR-CERT-HLDR-ZIP1 PIC X(05).00900000 009100 20 P-MPAC-FNFR-CERT-HLDR-ZIP2 PIC X(04).00910000 009200 15 P-MPAC-FLD-ZONE PIC X(01).00920000 009300 15 P-MPAC-FLD-BLDG-IND PIC X(01).00930000 009400 15 P-MPAC-FLD-BPP-IND PIC X(01).00940000 009500 15 P-MPAC-FLD-BIEE-IND PIC X(01).00950000 009600 15 P-MPAC-EQ-BLDG-IND PIC X(01).00960000 009610 15 P-MPAC-EQ-BPP-IND PIC X(01).00961000 009611 15 P-MPAC-EQ-BIEE-IND PIC X(01).00961100 009612 15 P-MPAC-WINDSTORM-HAIL-EXCPT PIC X(01).00961200 15 P-MPAC-BUS-DEP-PROP-LIMIT PIC 9(06).00961302 WKW 15 P-MPAC-ORD-LAW-A-IND PIC X(01).00670000 WKW 15 P-MPAC-ORD-LAW-A-EQ PIC X(01).00670000 WKW 15 P-MPAC-ORD-LAW-B-LMT PIC 9(08).00700000 WKW 15 P-MPAC-ORD-LAW-C-LMT PIC 9(08).00700000 WKW 15 P-MPAC-UTIL-BLD-LMT PIC 9(08).00700000 WKW 15 P-MPAC-WATER-SUP-BLD-IND PIC X(01).00700000 WKW 15 P-MPAC-COM-SER-BLD-IND PIC X(01).00700000 WKW 15 P-MPAC-COM-SER-OL-BLD-IND PIC X(01).00700000 WKW 15 P-MPAC-POWER-SER-BLD-IND PIC X(01).00700000 WKW 15 P-MPAC-POWER-OL-SER-BLD-IND PIC X(01).00700000 WKW 15 P-MPAC-UTIL-BPP-LMT PIC 9(08).00700000 WKW 15 P-MPAC-WATER-SUP-BPP-IND PIC X(01).00700000 WKW 15 P-MPAC-COM-SER-BPP-IND PIC X(01).00700000 WKW 15 P-MPAC-COM-SER-OL-BPP-IND PIC X(01).00700000 WKW 15 P-MPAC-POWER-SER-BPP-IND PIC X(01).00700000 WKW 15 P-MPAC-POWER-SER-OL-BPP-IND PIC X(01).00700000 WKW 15 P-MPAC-UTIL-BI-EE-LMT PIC 9(08).00700000 WKW 15 P-MPAC-WATER-SUP-BI-EE-IND PIC X(01).00700000 WKW 15 P-MPAC-COM-SER-BI-EE-IND PIC X(01).00700000 WKW 15 P-MPAC-COM-SER-OL-BI-EE-IND PIC X(01).00700000 WKW 15 P-MPAC-POWER-SER-BI-EE-IND PIC X(01).00700000 WKW 15 P-MPAC-POWER-SER-OL-BI-EE-IND PIC X(01).00700000 WKW 15 P-MPAC-SEWER-DRAIN-LMT PIC 9(08).00700000 SLR 15 P-MPAC-EXT-BLD-GLASS-DED-IND PIC 9(01).00700000 SLR 15 P-MPAC-EQ-OCC-AGG-LIMIT PIC 9(8)V99. SLR 15 P-MPAC-EQ-OCC-AGG-LMT-RED SLR REDEFINES SLR P-MPAC-EQ-OCC-AGG-LIMIT PIC X(10). 15 P-MPAC-MOLD-LIMIT PIC 9(06). 15 P-MPAC-MOLD-LIMIT-RED REDEFINES P-MPAC-MOLD-LIMIT PIC X(06). 15 P-MPAC-POWERPAC-ENDORS-IND PIC X(01).00961402 15 FILLER PIC X(03).00961402 009614* *************************************************** 00961400 009700* FN/FR AND LINE-CODE = 'T' : INLAND MARINE COVERAGES 00970000 009800* *************************************************** 00980000 009900 10 P-MPAC-INLAND-MARINE-DATA REDEFINES 00990000 010000 P-MPAC-LOSS-DESIGN-DATA. 01000000 010100 15 P-MPAC-ACCT-REC-LIMIT PIC 9(06). 01010000 010200 15 P-MPAC-ACCT-REC-DED PIC 9(04). 01020000 010300 15 P-MPAC-VAL-PAPER-LIMIT PIC 9(06). 01030000 010400 15 P-MPAC-VAL-PAPER-DED PIC 9(04). 01040000 010500 15 P-MPAC-MINI-COMP-LIMIT PIC 9(06). 01050000 010600 15 P-MPAC-MINI-COMP-DED PIC 9(04). 01060000 010700 15 P-MPAC-INSTAL-FLOAT-LIMIT PIC 9(08). 01070000 010800 15 P-MPAC-INSTAL-FLOAT-DED PIC 9(05). 01080000 010900 15 P-MPAC-TRANSP-LIMIT PIC 9(08). 01090000 011000 15 P-MPAC-TRANSP-DED PIC 9(05). 01100000 011100 15 P-MPAC-TOOL-LIMIT PIC 9(06). 01110000 011200 15 P-MPAC-TOOL-DED PIC 9(04). 01120000 011300 15 P-MPAC-TOOL-EXCL-THEFT PIC X(01). 01130000 011400 15 P-MPAC-TOOL-COINS PIC X(02). 01140000 011500 15 P-MPAC-ANIMAL-FLOAT-LIMIT PIC 9(08). 01150000 011600 15 P-MPAC-ANIMAL-FLOAT-DED PIC 9(05). 01160000 011700 15 P-MPAC-CNTRCT-EQUIP-LIMIT PIC 9(08). 01170000 011800 15 P-MPAC-CNTRCT-EQUIP-DED PIC 9(05). 01180000 011900 15 P-MPAC-FINE-ARTS-LIMIT PIC 9(08). 01190000 012000 15 P-MPAC-FINE-ARTS-DED PIC 9(05). 01200000 012100 15 P-MPAC-PROPRTY-FLOAT-LIMIT PIC 9(08). 01210000 012200 15 P-MPAC-PROPRTY-FLOAT-DED PIC 9(05). 01220000 012300 15 P-MPAC-REFRIGERATION-LIMIT PIC 9(08). 01230000 012400 15 P-MPAC-REFRIGERATION-DED PIC 9(05). 01240000 012500 15 P-MPAC-IM-MORTGAGEE-DATA. 01250000 012600 20 P-MPAC-IM-CERT-HOLDER-DATA OCCURS 2. 01260000 012700 25 P-MPAC-IM-CERT-TYPE PIC X(01). 01270000 012800 25 P-MPAC-IM-CERT-HOLDER OCCURS 4 01280000 012900 PIC X(30). 01290000 013000 20 P-MPAC-MORE-IM-LCERT-IND PIC X(01). 01300000 013240 15 P-MPAC-ART-SCHEDULED-TOOLS PIC X(01). 01324000 013310 15 P-MPAC-IM-CERT-HLDR-CITY PIC X(20). 01331000 013320 15 P-MPAC-IM-CERT-HLDR-STATE PIC X(02). 01332000 013330 15 P-MPAC-IM-CERT-HLDR-ZIPCODE. 01333000 013340 20 P-MPAC-IM-CERT-HLDR-ZIP1 PIC X(05). 01334000 013350 20 P-MPAC-IM-CERT-HLDR-ZIP2 PIC X(04). 01335000 013360*** ADD NEW FIELDS FOR IM - SMALL COMPUTERS - 7/26/96 SAT *** 01336000 013370 15 P-MPAC-SMALL-COMP-LIM PIC 9(07). 01337000 013371*** END OF CHANGE 7/26/96 SAT *** 01337100 013372 15 P-MPAC-IM-NEW-CONSTRUCT-LIM PIC 9(08). 01337200 013373 15 P-MPAC-IM-NEW-CONSTRUCT-DED PIC 9(05). 01337300 013374 15 P-MPAC-IM-RENOVATION-LIM PIC 9(08). 01337400 013375 15 P-MPAC-IM-RENOVATION-DED PIC 9(05). 01337500 013376 15 P-MPAC-IM-COMM-ARTICLES-LIM PIC 9(08). 01337600 013377 15 P-MPAC-IM-COMM-ARTICLES-DED PIC 9(05). 01337700 013378 15 P-MPAC-IM-PER-PROP-OTHR-LIM PIC 9(08). 01337800 013379 15 P-MPAC-IM-PER-PROP-OTHR-DED PIC 9(05). 01337900 013380 15 P-MPAC-IM-SIGN-LIM PIC 9(08). 01338000 013381 15 P-MPAC-IM-SIGN-DED PIC X(06). 01338100 013382 15 FILLER PIC X(118).01338200 013383* *************************************************** 01338300 013384* DR: BURGLARY,CRIME 01338400 013385* *************************************************** 01338500 013386 10 P-MPAC-DR-DATA REDEFINES 01338600 013387 P-MPAC-LOSS-DESIGN-DATA. 01338700 013400 15 P-MPAC-MONEY-SECUR-LIMIT PIC 9(08). 01340000 013500 15 P-MPAC-MONEY-SECUR-DED PIC 9(05). 01350000 013600 15 P-MPAC-THEFT-PERS-PROP-LIMIT PIC 9(08). 01360000 013700 15 P-MPAC-THEFT-PERS-PROP-DED PIC 9(05). 01370000 013800 15 P-MPAC-SBR-LIMIT PIC 9(04). 01380000 013900 15 P-MPAC-SBR-DED PIC 9(03). 01390000 014000 15 P-MPAC-PROD-BLD-IND PIC X(01). 01400000 014100 15 P-MPAC-PROD-IM-IND PIC X(01). 01410000 014110 15 P-MPAC-CRIME-CNT-ACV PIC X(01). 01411000 014200 15 FILLER PIC X(564).01420000 014300* *************************************************** 01430000 014400* FY: FIDELITY,FORGERY 01440000 014500* ********************************************************* 01450000 014600 10 P-MPAC-FY-DATA REDEFINES 01460000 014700 P-MPAC-LOSS-DESIGN-DATA. 01470000 014800 15 P-MPAC-EMPL-DISHON-LIMIT PIC 9(07). 01480000 014900 15 P-MPAC-EMPL-DISHON-DED PIC 9(05). 01490000 015000 15 FILLER PIC X(14). 01500000 015100 15 P-MPAC-EMPL-DISHON-AGENT-LIMIT PIC 9(08). 01510000 015200 15 P-MPAC-EMPL-DISHON-AGENT-DED PIC 9(06). 01520000 015300 15 P-MPAC-WELFARE-PENS-LIMIT PIC 9(08). 01530000 015400 15 P-MPAC-WELFARE-PENS-DED PIC 9(05). 01540000 015410 15 P-MPAC-FY-ACV PIC 9(01). 01541000 WKW 15 P-MPAC-FORG-OR-ALTER PIC 9(08). 01530000 WKW 15 FILLER PIC X(538).01550000 015600* *************************************************** 01560000 015700* ER: GENL.LIAB-PRODUCTS 01570000 015800* *************************************************** 01580000 015900 10 P-MPAC-ER-DATA REDEFINES 01590000 016000 P-MPAC-LOSS-DESIGN-DATA. 01600000 016100 15 P-MPAC-PROD-COMP-AGG-LIMIT PIC 9(07). 01610000 016200 15 P-MPAC-PROD-COMP-OCC-LIMIT PIC 9(07). 01620000 016300 15 P-MPAC-ER-ADDL-INSUR-IND PIC X(01). 01630000 016310 15 P-MPAC-ER-GL-PD-DED PIC X(05). 01631000 016400 15 P-MPAC-ER-EXTEND-ENDORS-IND PIC X(01). 01640000 016400 15 FILLER PIC X(579).01640000 016500* *************************************************** 01650000 016600* LR: GENL.LIAB 01660000 016700* *************************************************** 01670000 016800 10 P-MPAC-LR-DATA REDEFINES 01680000 016900 P-MPAC-LOSS-DESIGN-DATA. 01690000 017000 15 P-MPAC-VET-PROF-LIMIT PIC 9(07). 01700000 017100 15 P-MPAC-VET-PROF-AGG-LIMIT PIC 9(07). 01710000 017200 15 P-MPAC-GENL-AGG-LIMIT PIC 9(07). 01720000 017300 15 P-MPAC-PI-AI-LIMIT PIC 9(07). 01730000 017400 15 P-MPAC-EA-OCC-LIMIT PIC 9(07). 01740000 017500 15 P-MPAC-FIRE-DAMAGE-LIMIT PIC 9(09). 01750000 017600 15 P-MPAC-MED-EXP-PERS-LIMIT PIC 9(04). 01760000 017700 15 P-MPAC-LIQ-LIAB-LIMIT PIC 9(07). 01770000 017800 15 P-MPAC-CDO-AGG-LIMIT PIC 9(07). 01780000 017900 15 P-MPAC-CDO-DED PIC 9(04). 01790000 018000 15 P-MPAC-LR-ADDL-INSUR-IND PIC X(01). 01800000 018001 15 P-MPAC-PRINTERS-EO-LIMIT PIC 9(07). 01800100 018002 15 P-MPAC-PRINTERS-EO-DED PIC 9(04). 01800200 018003 15 P-MPAC-LR-GL-PD-DED PIC 9(05). 01800300 018004*** NEW FIELDS ADDED FOR MPAC EBL 7/26/96 SAT *** 01800400 018005 15 P-MPAC-LR-EBL-LIM PIC 9(07). 01800500 018006 15 P-MPAC-LR-AGG-LIM PIC 9(07). 01800600 018007 15 P-MPAC-LR-EMP-DED PIC 9(05). 01800700 018008 15 P-MPAC-LR-RETRO-DATE. 01800800 018009 20 P-MPAC-LR-RETRO-CC PIC X(02). 01800900 018010 20 P-MPAC-LR-RETRO-YY PIC X(02). 01801000 018020 20 P-MPAC-LR-RETRO-MM PIC X(02). 01802000 018030 20 P-MPAC-LR-RETRO-DD PIC X(02). 01803000 018040 15 P-MPAC-LR-EXT-REP-DATE. 01804000 018050 20 P-MPAC-LR-EXT-REP-CC PIC X(02). 01805000 018060 20 P-MPAC-LR-EXT-REP-YY PIC X(02). 01806000 018070 20 P-MPAC-LR-EXT-REP-MM PIC X(02). 01807000 018080 20 P-MPAC-LR-EXT-REP-DD PIC X(02). 01808000 018090 01809000 018100*** NEW FIELDS FOR STOP GAP 7/26/96 SAT *** 01810000 018200 15 P-MPAC-STOP-GAP-EACH-EMPL-LIM PIC 9(07). 01820000 018300 15 P-MPAC-STOP-GAP-PER-ACC-LIM PIC 9(07). 01830000 018400 15 P-MPAC-STOP-GAP-AGG-LIM PIC 9(07). 01840000 018500 15 P-MPAC-LR-STOP-GAP-STATES OCCURS 10 TIMES. 01850000 018600 20 P-MPAC-LR-EACH-STOP-GAP-ST PIC X(02). 01860000 018700*** END OF CHANGE 07/26/96 - SAT *** 01870000 018800***** THE FOLLOWING 7 FIELDS WERE ADDED FOR CHURCH PAC **********01880000 018900 15 P-MPAC-PASTORS-AGG-LIMIT PIC 9(07). 01890000 019000 15 P-MPAC-PASTORS-COUNS-LIMIT PIC 9(07). 01900000 019100 15 P-MPAC-MEDPAY-ATHLETIC-IND PIC X(01). 01910000 019200 15 P-MPAC-SEX-ABUSE-LIMIT PIC 9(07). 01920000 019300 15 P-MPAC-SEX-ABUSE-AGG-LIMIT PIC 9(07). 01930000 019400 15 P-MPAC-SEX-ABUSE-RETRO-DATE. 01940000 019500 20 P-MPAC-SEX-ABUSE-RETRO-CC PIC X(02). 01950000 019600 20 P-MPAC-SEX-ABUSE-RETRO-YY PIC X(02). 01960000 019700 20 P-MPAC-SEX-ABUSE-RETRO-MM PIC X(02). 01970000 019800 20 P-MPAC-SEX-ABUSE-RETRO-DD PIC X(02). 01980000 020702 15 P-MPAC-DESIGN-LIAB-AGGR-LIMIT PIC 9(07). 02070200 020703 15 P-MPAC-DESIGN-WRNG-ACT-LIMIT PIC 9(07). 02070300 020704 15 P-MPAC-OP-OPTOMETRIST-LIMIT PIC 9(07). 02070400 020705 15 P-MPAC-OPTOMETRIST-AGG-LIMIT PIC 9(07). 02070500 020706 15 P-MPAC-LR-EXTEND-ENDORS-IND PIC X(01). 02070600 020706 15 FILLER PIC X(375).02070600 020705* *************************************************** 02070500 020706* BR: BOILER AND MACHINERY 02070600 020707* *************************************************** 02070700 020708 10 P-MPAC-BR-DATA REDEFINES 02070800 020709 P-MPAC-LOSS-DESIGN-DATA. 02070900 020710 15 P-MPAC-ENERGY-EQUIP-IND PIC X(01). 02071000 020711 15 P-MPAC-ENERGY-EQUIP-DED PIC 9(04). 02071100 020712 15 P-MPAC-BOILER-MACH-LIMIT PIC 9(08). 02071200 020713 15 P-MPAC-BOILER-MACH-DED PIC 9(05). 02071300 020714 15 P-MPAC-BR-MORTGAGEE-DATA. 02071400 020715 20 P-MPAC-BR-CERT-HOLDER-DATA OCCURS 2. 02071500 020716 25 P-MPAC-BR-CERT-TYPE PIC X(01). 02071600 020717 25 P-MPAC-BR-CERT-HOLDER OCCURS 4 02071700 020718 PIC X(30). 02071800 020719 15 P-MPAC-MORE-BR-LCERT-IND PIC X(01). 02071900 020720 15 P-MPAC-BR-CERT-HLDR-CITY PIC X(20). 02072000 020721 15 P-MPAC-BR-CERT-HLDR-STATE PIC X(02). 02072100 020722 15 P-MPAC-BR-CERT-HLDR-ZIPCODE. 02072200 020723 20 P-MPAC-BR-CERT-HLDR-ZIP1 PIC X(05). 02072300 020724 20 P-MPAC-BR-CERT-HLDR-ZIP2 PIC X(04). 02072400 020725 15 FILLER PIC X(308).02072500 020726* *************************************************** 02072600 020727* AB/AD/PP: AUTO 02072700 020728* *************************************************** 02072800 020729 10 P-MPAC-AUTO-DATA REDEFINES 02072900 020730 P-MPAC-LOSS-DESIGN-DATA. 02073000 020800 15 P-MPAC-AUTO-GL-LIMIT PIC 9(07). 02080000 020900 15 P-MPAC-AUTO-AGG-LIMIT PIC 9(07). 02090000 021000 15 P-MPAC-AUTO-COMP-LIMIT PIC 9(08). 02100000 021100 15 P-MPAC-AUTO-COMP-OCC-DED PIC 9(03). 02110000 021200 15 P-MPAC-AUTO-COMP-AGG-DED PIC 9(04). 02120000 021300 15 P-MPAC-AUTO-COLL-LIMIT PIC 9(08). 02130000 021400 15 P-MPAC-AUTO-COLL-DED PIC 9(03). 02140000 021500 15 P-MPAC-GKL-COVERAGE-TYPE PIC X(01). 02150000 021501 15 P-MPAC-AUTO-ADDL-INSUR-IND PIC X(01). 02150100 021502 15 FILLER PIC X(558).02150200 021503* *************************************************** 02150300 020727* MPAC PRODUCT CURRENCY 02072700 020728* *************************************************** 02072800 021506 10 P-MPAC-CUR-DATA. 02150600 021506 15 P-MPAC-CUR-MEDICAL-IND PIC X(01). 02150600 021506 15 P-MPAC-CUR-LAWYER-IND PIC X(01). 02150600 021506 15 P-MPAC-CUR-ACCOUNTANT-IND PIC X(01). 02150600 021506 15 P-MPAC-CUR-BAILEES-LIMIT PIC 9(08). 02150600 021506 15 P-MPAC-CUR-BAILEES-DEDUCT PIC 9(05). 02150600 021506 15 P-MPAC-CUR-BLD-OWNERS-IND PIC X(01). 02150600 021506 15 P-MPAC-CUR-BI-COMP-OPTS-LIMIT PIC 9(08). 02150600 021506 15 P-MPAC-CUR-INCOME-EXCL-IND PIC X(01). 02150600 021506 15 P-MPAC-CUR-DATA-MEDIA-LIMIT PIC 9(08). 02150600 021506 15 P-MPAC-CUR-EAT-EST-IND PIC X(01). 02150600 021506 15 P-MPAC-CUR-ENERGY-EQUIP-LIMIT PIC 9(08). 02150600 021506 15 P-MPAC-CUR-ELIM-GLASS-DEDUCT PIC 9(05). 02150600 021506 15 P-MPAC-CUR-FIDELITY-OFFICERS PIC 9(04). 02150600 021506 15 P-MPAC-CUR-FIDELITY-DIRECTOR PIC 9(04). 02150600 021506 15 P-MPAC-CUR-FIDELITY-VOLUNTEER PIC 9(04). 02150600 021506 15 P-MPAC-CUR-FIDELITY-PROPERTY PIC 9(04). 02150600 021506 15 P-MPAC-CUR-KENNEL-PAC-IND PIC X(01). 02150600 021506 15 P-MPAC-CUR-BUS-INC-72-HR-IND PIC X(01). 02150600 021506 15 P-MPAC-CUR-MONEY-EXCLUSION PIC X(01). 02150600 010100 15 P-MPAC-CUR-ACCT-REC-LIMIT PIC 9(08). 01010000 010300 15 P-MPAC-CUR-VAL-PAPER-LIMIT PIC 9(08). 01030000 014800 15 P-MPAC-CUR-EMPL-DISHON-LIMIT PIC 9(08). 01480000 014800 15 P-MPAC-CUR-BUS-INCOME-ALS-IND PIC X(01). 01480000 15 P-MPAC-CUR-POWERPAC-IND PIC X(01). 00961402 33947 15 P-MPAC-CUR-TECH-OFF-ENDORS-IND PIC X(01). 00961402 33947 15 P-MPAC-CUR-TECH-MFG-ENDORS-IND PIC X(01). 00961402 33947 15 P-MPAC-CUR-DENIAL-SERVICE-IND PIC X(01). 00961402 021503* *************************************************** 02150300 021504* AVAILABLE SPACE 02150400 021505* *************************************************** 02150500 021506 10 FILLER PIC X(527).02150600 000100* *************************** 00010000 000200* * OMNI POLICY SEGMENT * 00020000 000300* *************************** 00030000 000400************************************************************ 00040000 000500* Y2KEANE ADDED CENTURY 5/2/97 T.BOWDEN * * 00050000 * WKW ADD UMPD INDICATOR 10/10/99 K.WATHEN * 00051000 NUAUTO* 02/13/05 LJ FAWKNER 1108 NUAUTO-CLAIM CHANGE FOR UNSCH * 00052000 NUAUTO* OMNI MISC ENTITY CHANGE. * 00053000 000600************************************************************ 00060000 000700 05 P-OMNI-AUTOMATED-DATA REDEFINES 00070000 000800 P-CL-LINE-INS-DEPENDENT-DATA. 00080000 000900 10 P-OMNI-BLD-DATA-VEH. 00090000 001000 15 P-OMNI-VEH-ENTY-NUM PIC X(04). 00100000 001100 15 P-OMNI-VEH-YR. 00110000 001200 20 P-OMNI-VEH-CC PIC X(02). 00120000 001300 20 P-OMNI-VEH-YY PIC X(02). 00130000 001400 15 P-OMNI-VEH-MKE-MDL PIC X(10). 00140000 001500 15 P-OMNI-VEH-VIN PIC X(17). 00150000 001600 15 P-OMNI-VEH-STATUS PIC X(01). 00160000 001700 15 P-OMNI-VEH-EXPR-DATE. 00170000 001800 20 P-OMNI-VEH-EXPR-CC PIC X(02). 00180000 001900 20 P-OMNI-VEH-EXPR-YY PIC X(02). 00190000 002000 20 P-OMNI-VEH-EXPR-MM PIC X(02). 00200000 002100 20 P-OMNI-VEH-EXPR-DD PIC X(02). 00210000 002200 10 P-OMNI-BLD-DATA-MISC REDEFINES 00220000 002300 P-OMNI-BLD-DATA-VEH. 00230000 002400 15 P-OMNI-MISC-ENTY-NUM PIC X(04). 00240000 002500 15 P-OMNI-MISC-STATE PIC X(02). 00250000 002600 15 P-OMNI-MISC-STATUS PIC X(01). 00260000 002700 15 P-OMNI-MISC-EXPR-DATE. 00270000 002800 20 P-OMNI-MISC-EXPR-CC PIC X(02). 00280000 002900 20 P-OMNI-MISC-EXPR-YY PIC X(02). 00290000 003000 20 P-OMNI-MISC-EXPR-MM PIC X(02). 00300000 003100 20 P-OMNI-MISC-EXPR-DD PIC X(02). 00310000 NUAUTO 15 P-OMNI-MISC-TEXT PIC X(29). 00320000 003300 10 P-OMNI-FLEET-AUTO-IND PIC X(01). 00330000 003400 10 P-OMNI-ENDORSEMENT-NUMBERS. 00340000 003500 15 P-OMNI-ENDORS-NUM OCCURS 100 TIMES 00350000 003600 PIC X(10). 00360000 003700 10 P-OMNI-ENDORSE-IL-NUMBERS. 00370000 003800 15 P-OMNI-ENDORS-IL-NUM OCCURS 50 TIMES 00380000 003900 PIC X(10). 00390000 004000 10 P-OMNI-MORE-CA-ENDORSE-IND PIC X(01). 00400000 004100 10 P-OMNI-AUTO-INFO. 00410000 004200 15 P-OMNI-FILL-IN-IND PIC X(01). 00420000 004300 15 P-OMNI-PRIN-GAR-STATE PIC X(02). 00430000 004400 15 P-OMNI-AUTO-MORT-INSURED-DATA. 00440000 004500 20 P-OMNI-MORT-INSURED OCCURS 2. 00450000 004600 25 P-OMNI-NAME-TYPE PIC X(01). 00460000 004700 88 P-OMNI-ADDL-INS VALUE 'A'. 00470000 004800 88 P-OMNI-LOSS-PAY VALUE 'L'. 00480000 004900 25 P-OMNI-HOLDER OCCURS 4 00490000 005000 PIC X(38). 00500000 005100 25 P-OMNI-HOLDER-CITY PIC X(24). 00510000 005200 25 P-OMNI-HOLDER-STATE PIC X(02). 00520000 005300 25 P-OMNI-HOLDER-ZIP PIC X(11). 00530000 005400 20 P-OMNI-MORE-HOLD-IND PIC X(01). 00540000 005500 15 P-OMNI-AUTO-SYMBOLS. 00550000 005600 20 P-OMNI-LIAB OCCURS 5 TIMES PIC X(02). 00560000 005700 20 P-OMNI-PIP OCCURS 3 TIMES PIC X(02). 00570000 005800 20 P-OMNI-MP OCCURS 3 TIMES PIC X(02). 00580000 005900 20 P-OMNI-UM OCCURS 3 TIMES PIC X(02). 00590000 006000 20 P-OMNI-APD OCCURS 4 TIMES PIC X(02). 00600000 006100 20 P-OMNI-COMP OCCURS 4 TIMES PIC X(02). 00610000 006200 20 P-OMNI-SP OCCURS 4 TIMES PIC X(02). 00620000 006300 20 P-OMNI-COLL OCCURS 4 TIMES PIC X(02). 00630000 006400 20 P-OMNI-TOW OCCURS 3 TIMES PIC X(02). 00640000 006500 20 P-OMNI-TRINT OCCURS 4 TIMES PIC X(02). 00650000 006600 10 P-OMNI-AUTO-COVERAGE-DATA PIC X(201). 00660000 006700 10 P-OMNI-AUTO REDEFINES 00670000 006800 P-OMNI-AUTO-COVERAGE-DATA. 00680000 006900 15 P-OMNI-SNGL-LMT-LIAB-OCCUR PIC X(10). 00690000 007000 15 P-OMNI-BI-LIAB-LMT-PER PIC X(10). 00700000 007100 15 P-OMNI-BI-LIAB-LMT-OCC PIC X(10). 00710000 007200 15 P-OMNI-PD-LIAB-LMT-OCC PIC X(10). 00720000 007300 15 P-OMNI-BIPD-DEDUCT PIC X(05). 00730000 007400 15 P-OMNI-BI-DED-PER-PERSON PIC X(05). 00740000 007500 15 P-OMNI-BI-DED-PER-OCCUR PIC X(05). 00750000 007600 15 P-OMNI-PD-DEDUCT PIC X(05). 00760000 007700 15 P-OMNI-PIP-DEDUCT PIC X(05). 00770000 007800 15 P-OMNI-MED-PAY-COV-LMT PIC X(10). 00780000 007900 15 P-OMNI-UM-SNGL-LMT PIC X(10). 00790000 008000 15 P-OMNI-UM-LMT-PER PIC X(10). 00800000 008100 15 P-OMNI-UM-LMT-OCC PIC X(10). 00810000 008200 15 P-OMNI-UMPD-LMT PIC X(10). 00820000 008300 15 P-OMNI-COMP-LIMIT PIC X(10). 00830000 008400 15 P-OMNI-COMP-DED PIC X(05). 00840000 008500 15 P-OMNI-SP-ID PIC X(03). 00850000 008600 15 P-OMNI-SP-LIMIT PIC X(10). 00860000 008700 15 P-OMNI-SP-DED PIC X(05). 00870000 008800 15 P-OMNI-COLL-LIMIT PIC X(10). 00880000 008900 15 P-OMNI-COLL-WAIVER-IND PIC X(01). 00890000 009000 15 P-OMNI-COLL-DED PIC X(05). 00900000 009100 15 P-OMNI-TOW-COV-IND PIC X(01). 00910000 009200 15 P-OMNI-TOW-LIMIT PIC X(10). 00920000 009300 15 P-OMNI-RENT-REIMB-SP-IND PIC X(01). 00930000 009400 15 P-OMNI-RENT-REIMB-COMP-IND PIC X(01). 00940000 009500 15 P-OMNI-RENT-REIMB-COLL-IND PIC X(01). 00950000 009600 15 P-OMNI-RENT-REIMB-COMB-IND PIC X(01). 00960000 009700 15 P-OMNI-RENT-REIMB-DAYS PIC X(03). 00970000 009800 15 P-OMNI-RENT-REIMB-AMT PIC X(03). 00980000 009900 15 P-OMNI-PROP-PROT-IND PIC X(01). 00990000 010000 15 P-OMNI-PROP-PROT-DEDUCT PIC X(05). 01000000 010100 15 P-OMNI-TAPE-ENDOR-IND PIC X(01). 01010000 010200 15 P-OMNI-CB-RADIO-IND PIC X(01). 01020000 010300 15 P-OMNI-PDBB-IND PIC X(01). 01030000 010400 15 P-OMNI-POLBB-IND PIC X(01). 01040000 010500 15 P-OMNI-TRINT-IND PIC X(01). 01050000 010600 15 P-OMNI-FLEET-AUTO-USED PIC X(04). 01060000 15 P-OMNI-UM-PD-IND PIC X(01). 01061000 010700 10 FILLER PIC X(295).01070000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* SCRFILE POLICY SEGMENT (MANUAL CL PROPERTY) * 00020000 000300* CPCSLIB SUBSET CLPROPSEG * 00030000 000400* * 00040000 000500* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * 00050000 000600* DATA UNIQUE TO COMMERCIAL OMNI PROPERTY POLICIES. IT * 00060000 000700* IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00070002 000800* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00080000 000900* FOLLOWING THAT MEMBER. * 00090000 001000* * 00100000 001100* CREATED 10/07/83 BY HDP * 00110000 001200* UPDATED 03/07/84 CLPROP2 DATA BY DMT * 00120000 001300* CHANGED 03/20/84 CLPROP2 DATA JCP * 00130000 001400* CHANGED 01/02/86 CLFA1 DATA KSN * 00140000 001500* UPDATED 07/02/90 CLPROP2 DATA RAH * 00150000 001600* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00160000 001700 SKIP2 00170000 001800 05 P-CLPROP-DEPENDENT-DATA REDEFINES 00180000 001900 P-CL-LINE-INS-DEPENDENT-DATA. 00190000 002000 07 P-CLPROP1-COVERAGE-DATA. 00200000 002100 09 P-GENERAL-DATA. 00210000 002200 11 P-CLPROP-BLDG-NUM PIC X(3). 00220000 002300 11 P-CLPROP-LOC PIC X(3). 00230000 002400 11 P-CLPROP-EQ-COV-IND PIC X. 00240000 002500 09 P-BLDG-COVERAGE. 00250000 002600 11 P-CLPROP-BLDG-COV-LMT PIC X(9). 00260000 002700 11 P-CLPROP-BLDG-BLKT-LMT PIC X(9). 00270000 002800 11 P-CLPROP-BLDG-FORM PIC X(5). 00280000 002900 11 P-CLPROP-BLDG-FIRE-DED PIC X(5). 00290000 003000 11 P-CLPROP-BLDG-ECVMM-DED PIC X(5). 00300000 003100 11 P-CLPROP-BLDG-SPKLR-LEAK-DED PIC X(5). 00310000 003200 11 P-CLPROP-BLDG-OTH-PERIL-DED PIC X(5). 00320000 003300 11 P-CLPROP-BLDG-COINS PIC X(3). 00330000 003400 09 P-PERS-PROP-INSD-COVERAGE. 00340000 003500 11 P-CLPROP-PPI-COV-LMT PIC X(9). 00350000 003600 11 P-CLPROP-PPI-BLKT-LMT PIC X(9). 00360000 003700 11 P-CLPROP-PPI-FORM PIC X(5). 00370000 003800 11 P-CLPROP-PPI-FIRE-DED PIC X(5). 00380000 003900 11 P-CLPROP-PPI-ECVMM-DED PIC X(5). 00390000 004000 11 P-CLPROP-PPI-SPKLR-LEAK-DED PIC X(5). 00400000 004100 11 P-CLPROP-PPI-OTH-PERIL-DED PIC X(5). 00410000 004200 11 P-CLPROP-PPI-COINS PIC X(3). 00420000 004300 09 P-PERS-PROP-OTH-COVERAGE. 00430000 004400 11 P-CLPROP-PPO-COV-LMT PIC X(9). 00440000 004500 11 P-CLPROP-PPO-BLKT-LMT PIC X(9). 00450000 004600 11 P-CLPROP-PPO-FORM PIC X(5). 00460000 004700 11 P-CLPROP-PPO-FIRE-DED PIC X(5). 00470000 004800 11 P-CLPROP-PPO-ECVMM-DED PIC X(5). 00480000 004900 11 P-CLPROP-PPO-SPKLR-LEAK-DED PIC X(5). 00490000 005000 11 P-CLPROP-PPO-OTH-PERIL-DED PIC X(5). 00500000 005100 11 P-CLPROP-PPO-COINS PIC X(3). 00510000 005200 09 P-BUS-INTERRUP-COVERAGE. 00520000 005300 11 P-CLPROP-BI-COV-LMT PIC X(9). 00530000 005400 11 P-CLPROP-BI-BLKT-LMT PIC X(9). 00540000 005500 11 P-CLPROP-BI-FORM PIC X(5). 00550000 005600 11 P-CLPROP-BI-COINS PIC X(3). 00560000 005700 09 P-EXTRA-EXP-COVERAGE. 00570000 005800 11 P-CLPROP-EE-COV-LMT PIC X(9). 00580000 005900 11 P-CLPROP-EE-BLKT-LMT PIC X(9). 00590000 006000 11 P-CLPROP-EE-FORM PIC X(5). 00600000 006100 09 P-RENTAL-COVERAGE. 00610000 006200 11 P-CLPROP-RENT-COV-LMT PIC X(9). 00620000 006300 11 P-CLPROP-RENT-BLKT-LMT PIC X(9). 00630000 006400 11 P-CLPROP-RENT-FORM PIC X(5). 00640000 006500 11 P-CLPROP-RENT-COINS PIC X(3). 00650000 006600 09 P-TUITION-COVERAGE. 00660000 006700 11 P-CLPROP-TUIT-COV-LMT PIC X(9). 00670000 006800 11 P-CLPROP-TUIT-BLKT-LMT PIC X(9). 00680000 006900 11 P-CLPROP-TUIT-FORM PIC X(5). 00690000 007000 11 P-CLPROP-TUIT-COINS PIC X(3). 00700000 007100 09 P-PLATE-GLASS-COVERAGE. 00710000 007200 11 P-CLPROP-PG-COV-IND PIC X. 00720000 007300 11 P-CLPROP-PG-DED PIC X(5). 00730000 007400 09 P-INLAND-MARINE-COVERAGE. 00740000 007500 11 P-CLPROP-IM-COV-IND PIC X. 00750000 007600 11 P-CLPROP-IM-COV-DESC PIC X(17). 00760000 007700 09 P-EARNING-COVERAGE. 00770000 007800 11 P-CLPROP-EARN-AGGR-LMT PIC X(9). 00780000 007900 11 P-CLPROP-EARN-30-DAY-LMT PIC X(9). 00790000 008000 11 P-CLPROP-EARN-FORM PIC X(5). 00800000 008100 09 P-TIME-ELEMENT-COVERAGE. 00810000 008200 11 P-CLPROP-TE-ECVMM-IND PIC X. 00820000 008300 11 P-CLPROP-TE-OTH-PERIL-IND PIC X. 00830000 008400 11 P-CLPROP-TE-SPLKR-LEAD-IND PIC X. 00840000 008500 09 P-OPTIONAL-COVERAGE. 00850000 008600 11 P-CLPROP-BURG-ROB-COV-IND PIC X. 00860000 008700 11 P-CLPROP-THFT-COV-IND PIC X. 00870000 008800 11 P-CLPROP-BLDG-REPL-COST-IND PIC X. 00880000 008900 11 P-CLPROP-PERS-PROP-REPL-IND PIC X. 00890000 009000 11 P-CLPROP-TRANSP-EXT-IND PIC X. 00900000 009100 07 P-CLPROP2-COVERAGE-DATA. 00910000 009200 09 P-CLPROP-BLDR-MCH-TOOL-EQP-LMT PIC X(9). 00920000 009300 09 P-CLPROP-ORD-PAY-INCL-COVERAGE. 00930000 009400 11 P-CLPROP-ORD-PAY-INCL-IND PIC X(2). 00940000 009500 11 P-CLPROP-ORD-PAY-INCL-NUM-DAYS PIC X(3). 00950000 009600 11 P-CLPROP-ORD-PAY-INCL-EXT-INDM PIC X(3). 00960000 009700 09 P-CLPROP-EXTRA-EXP-MON-FACTOR. 00970000 009800 11 P-CLPROP-EXTRA-EXP-IND PIC X. 00980000 009900 11 P-CLPROP-EXTRA-NUM-DAYS PIC X(2). 00990000 010000 11 P-CLPROP-EXTRA-EXP-NUM-MOS PIC X(17). 01000000 010100 09 P-RENTAL2-INCOME-COVERAGE. 01010000 010200 11 P-CLPROP-RNTAL-MON-LMT-PERCENT PIC X(3). 01020000 010300 11 P-CLPROP-RNTAL-EXT-PERD-INDEM PIC X(3). 01030000 010400 09 P-MORTGAGE-DATA. 01040000 010500 11 P-CLPROP-MTGE-NAM PIC X(51). 01050000 010600 11 P-CLPROP-MTGE-ADDR-STR PIC X(39). 01060000 010700 11 P-CLPROP-MTGE-ADDR-CTY PIC X(13). 01070000 010800 11 P-CLPROP-MTGE-ADDR-STA PIC X(2). 01080000 010900 11 P-CLPROP-MTGE-ADDR-ZIP PIC X(9). 01090000 011000 11 P-CLPROP-ADDL-INT-IND PIC X. 01100000 011100 09 P-MISC-INFORMATION. 01110000 011200 11 P-CLPROP-STA-EXCP PIC X(135).01120000 011300 11 P-CLPROP-CRIME-COV-APPL-IND PIC X. 01130000 011400 09 P-CLPROP-PAYEE-NAME PIC X(51). 01140000 011500 07 P-CLPROP-UNUSED PIC X(207).01150000 011600* CREATED 12/31/85 BY KSN * 01160000 011700 07 P-CLFA1-COVERAGE-DATA. 01170000 011800 09 P-GENERAL-DATA. 01180000 011900 11 P-CLFA1-BLDG-NUM PIC X(3). 01190000 012000 11 P-CLFA1-LOC PIC X(3). 01200000 012100 11 P-CLFA1-EQ-COV-IND PIC X. 01210000 012200 11 P-CLFA1-GENERAL-UNUSED PIC X(10). 01220000 012300 09 P-CLFA1-LIMITS. 01230000 012400 11 P-CLFA1-BLDG-COV-LMT PIC X(9). 01240000 012500 11 P-CLFA1-PPI-COV-LMT PIC X(9). 01250000 012600 11 P-CLFA1-PPO-COV-LMT PIC X(9). 01260000 012700 11 P-CLFA1-EE-COV-LMT PIC X(9). 01270000 012800 11 P-CLFA1-IM-COV-LMT PIC X(10). 01280000 012900 11 P-CLFA1-BUS-INCOME-AGG-LMT PIC X(9). 01290000 013000 11 P-CLFA1-BUS-IN-EA-30-DAYS-LMT PIC X(9). 01300000 013100 11 P-CLFA1-LIMITS-UNUSED PIC X(17). 01310000 013200 09 P-CLFA1-BLKT-LIMITS. 01320000 013300 11 P-CLFA1-BLDG-COV-BLKT-LMT PIC X(9). 01330000 013400 11 P-CLFA1-PPI-BLKT-LMT PIC X(9). 01340000 013500 11 P-CLFA1-PPO-BLKT-LMT PIC X(9). 01350000 013600 11 P-CLFA1-EE-BLKT-LMT PIC X(9). 01360000 013700 11 P-CLFA1-BLKT-LMT-UNUSED PIC X(18). 01370000 013800 09 P-CLFA1-FORMS. 01380000 013900 11 P-CLFA1-BLDG-FORM PIC X(5). 01390000 014000 11 P-CLFA1-PPO-FORM PIC X(5). 01400000 014100 11 P-CLFA1-PPI-FORM PIC X(5). 01410000 014200 11 P-CLFA1-EE-FORM PIC X(5). 01420000 014300 11 P-CLFA1-FORM-UNUSED PIC X(10). 01430000 014400 09 P-CLFA1-DED. 01440000 014500 11 P-CLFA1-BLDG-GRP1-DED PIC X(5). 01450000 014600 11 P-CLFA1-PPI-GRP1-DED PIC X(5). 01460000 014700 11 P-CLFA1-PPO-GRP1-DED PIC X(5). 01470000 014800 11 P-CLFA1-BLDG-GRP2-DED PIC X(5). 01480000 014900 11 P-CLFA1-PPI-GRP2-DED PIC X(5). 01490000 015000 11 P-CLFA1-PPO-GRP2-DED PIC X(5). 01500000 015100 11 P-CLFA1-PLATE-GLASS-DED PIC X(5). 01510000 015200 11 P-CLFA1-BLDG-OTH-PERIL-DED PIC X(5). 01520000 015300 11 P-CLFA1-PPI-OTH-PERIL-DED PIC X(5). 01530000 015400 11 P-CLFA1-PPO-OTH-PERIL-DED PIC X(5). 01540000 015500 11 P-CLFA1-IM-DED PIC X(7). 01550000 015600 11 P-CLFA1-DED-UNUSED PIC X(10). 01560000 015700 09 P-CLFA1-COINS. 01570000 015800 11 P-CLFA1-BLDG-COINS PIC X(3). 01580000 015900 11 P-CLFA1-PPI-COINS PIC X(3). 01590000 016000 11 P-CLFA1-PPO-COINS PIC X(3). 01600000 016100 11 P-CLFA1-BUS-INCOME-COINS PIC X(3). 01610000 016200 11 P-CLFA1-COINS-UNUSED PIC X(10). 01620000 016300 09 P-CLFA1-COV-INDS. 01630000 016400 11 P-CLFA1-PLATE-GLASS-COV-IND PIC X. 01640000 016500 11 P-CLFA1-IM-COV-IND PIC X. 01650000 016600 11 P-CLFA1-IM-DESC-COV PIC X(17). 01660000 016700 11 P-CLFA1-THFT-COV-IND PIC X. 01670000 016800 11 P-CLFA1-TUITION-COV-IND PIC X. 01680000 016900 11 P-CLFA1-BLDG-REPL-COST-IND PIC X. 01690000 017000 11 P-CLFA1-PERS-PROP-REPL-IND PIC X. 01700000 017100 11 P-CLFA1-COV-IND-UNUSED PIC X(4). 01710000 017200 09 P-CLFA1-UNUSED PIC X(298).01720000 017300 07 FILLER PIC X(1051).01730000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* TESTING LOG SR GIE CLMCR CONV * 00020000 000300* CHANGED 01/03/87 BY APP - ADDED CL MCR 88'S: 'MF' & 'MG' * 00030000 000400* CHANGED 01/03/87 BY APP - ADDED CL MCRPROP 88: 'MH' * 00040000 000500* CHANGED 04/25/88 BY JGM - INCREASED COMMON AREA BY 950: * 00050000 000600* - P-END-COV-PART BY 43, * 00060000 000700* - FILLER BY 7, * 00070000 000800* - UNUSED BY 900; * 00080000 000900* - ADDED ONE-SHOT INDICATORS * 00090000 001000* CHANGED 08/15/88 BY AAM - ADDED SIMPFR FOR 1H LINE * 00100000 001100* CHANGED 11/14/87 BY TD - ADDED WORKERS COMP FIELDS * 00110000 001200* CHANGED 7/24/89 BY SMS - ADDED CLTBOP POLICY TYPE *00120000 001300* 05/14/90 PIEHL MPAC MASTERPAC AUTOMATED COVERAGE 00130000 001400* 08/12/91 PIEHL OMNI OMNI AUTOMATED COVERAGE 00140000 001500* 07/06/92 ST.ONGE ORP ADD MARKET-SEGMENT-INDICATOR. * 00150000 001600* 06/21/93 MICHAUD DUP ADD WIP DESCRIPTORS FOR USAGE. * 00160000 001700* 11/11/94 SHIKOLUK CLREG ADDED PIF POLICY TYPE * 00170000 001800* 88 POLICY-TYPE-IS-PIF VALUE 'PF' * 00180000 001900* 11/11/94 BOWEN CLREG ADD PIF ENTITY DATA ITEMS. * 00190000 002000* 06/11/95 DWJONES ALTI ADD ALTERNATE INPUT INDICATOR * 00200000 002100* 11/12/95 BBOWEN PIF ADD PIF-LOC(PREMISE) * 00210000 002110* 09/14/97 BATT PIF ADD 3RD PARTY SMALL DEDUCTIBLE IND * 00211001 002110* 03/15/98 K STOTT Y2K CORRECT FILLER AMOUNT * 00211001 002110* 04/15/97 N MONZET Y2KEANE ADD CENTURY FOR YEAR 2000 * 00211000 * 04/13/98 J MOCCIO ENDSC ADD FIELDS FOR CLEXTRA SCREEN * 018900* 03/11/01 PRADY PIFMM ADD PIF OP NUMBER FOR LIAB * 01890000 * 06/10/01 SLRICHAR MPAC2 ADD PIF CLASS CODE AND SUBLINE CODE * * 02/13/05 PZOCCO MPAC ADD PROD-CURRENCY-IND * * 02/13/05 TOM EVANS SPC ADD 3 SPC FIELDS AT END * * 04/10/05 PZOCCO MPAC ADD PAC-INVOKED-IND & PAC-TYPE * * 11/09/08 MLAVOIE2 PPL. ADD PIPELINE-UAR-NBR, * * PIPELINE-UAR-CLASS-CD, * * PIPELINE-UAR-CLASS-CD-DESC * * 11/09/08 FONTANAZZA PPL ITG 126831 ADDED NEW P-POLICY-TYPE * * VALUES. * * 04/11/10 FONTANAZZA PPL ITG 282484 REMOVE UNUSED PIPELINE * * FIELDS. * 002120* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00212000 002130* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00213000 002140***** NOTE: REIN-IND;POL-RETAIN-LMT ARE ON THE ROOT SEGMENT*** 00214000 002150***** NOTE: UP-CSP-IND;CSP-IND ARE ON THE ROOT SEGMENT***** 00215000 002160***** NOTE: CL-OFF-ABBR IS FOUND ON THE ROOT SEGMENT ***** 00216000 002170***** NOTE: PROD-NAM IS FOUND ON THE ROOT SEGMENT ***** 00217000 002180***** NOTE: POL-NUM, FORM, & SYMBOL ARE ON THE ROOT ***** 00218000 002190***** NOTE: SAC-IND IS ON THE ROOT ***** 00219000 002200***** NOTE: SAILOR ACCOUNT NUMBER IS ON THE ROOT ***** 00220000 002300***** NOTE: CARR-MKT-IND AND CO-COD ARE ON THE ROOT ***** 00230000 002400***** NOTE: ACCT-BANK-COD IS FOUND ON THE ROOT***** 00240000 002500 SKIP2 00250000 002600 03 P-COMML-POLICY-SEGMENT REDEFINES 00260000 002700 R-POLICY-SEGMENT. 00270000 002800 04 P-COMM-WIP-AREA-1. 00280000 002900 05 P-POLICY-TYPE PIC XX. 00290000 003000 88 POLICY-TYPE-IS-AETLIAB VALUE 'AE'. 00300000 003100 88 POLICY-TYPE-IS-AETPROP VALUE 'AF'. 00310000 003200 88 POLICY-TYPE-IS-AETAUTO VALUE 'AG'. 00320000 003300 88 POLICY-TYPE-IS-SACAUTO VALUE 'SA'. 00330000 003400 88 POLICY-TYPE-IS-SACGL VALUE 'SL'. 00340000 003500 88 POLICY-TYPE-IS-SACSIM-GL VALUE 'SS'. 00350000 003600 88 POLICY-TYPE-IS-CSSC VALUE 'SC'. 00360000 003700 88 POLICY-TYPE-IS-OMNI VALUE 'P1'. 00370000 003800 88 POLICY-TYPE-IS-FRPROP VALUE 'P2'. 00380000 003900 88 POLICY-TYPE-IS-TXFRPROP VALUE 'P3'. 00390000 004000 88 POLICY-TYPE-IS-TXMO1 VALUE 'P4'. 00400000 004100 88 POLICY-TYPE-IS-OCEANP VALUE 'P5'. 00410000 004200 88 POLICY-TYPE-IS-BOILER VALUE 'P6'. 00420000 004300 88 POLICY-TYPE-IS-PROP-SIM VALUE 'P7'. 00430000 004400 88 POLICY-TYPE-IS-SIMPFR VALUE 'P8'. 00440000 004500 88 POLICY-TYPE-IS-GENLIAB VALUE 'LA'. 00450000 004600 88 POLICY-TYPE-IS-PROFLIAB VALUE 'LB'. 00460000 004700 88 POLICY-TYPE-IS-TXFRLIAB VALUE 'LC'. 00470000 004800 88 POLICY-TYPE-IS-FRLIAB VALUE 'LD'. 00480000 004900 88 POLICY-TYPE-IS-OCEANL VALUE 'LE'. 00490000 005000 88 POLICY-TYPE-IS-LIAB-SIM VALUE 'LF'. 00500000 005100 88 POLICY-TYPE-IS-MPAUTO VALUE 'MA'. 00510000 005200 88 POLICY-TYPE-IS-MPLIAB VALUE 'MB'. 00520000 005300 88 POLICY-TYPE-IS-MPPROP VALUE 'MC'. 00530000 005400 88 POLICY-TYPE-IS-SIM-MP-LIAB VALUE 'MD'. 00540000 005500 88 POLICY-TYPE-IS-SIM-MP-PROP VALUE 'ME'. 00550000 005600 88 POLICY-TYPE-IS-MCRAUTO VALUE 'MF'. 00560000 005700 88 POLICY-TYPE-IS-MCRLIAB VALUE 'MG'. 00570000 005800 88 POLICY-TYPE-IS-MCRPROP VALUE 'MH'. 00580000 005900 88 POLICY-TYPE-AUTOM-MP-AUTO VALUE 'MR'. 00590000 006000 88 POLICY-TYPE-AUTOM-MP-LIAB VALUE 'MS'. 00600000 006100 88 POLICY-TYPE-AUTOM-MP-PROP VALUE 'MT'. 00610000 006200 88 POLICY-TYPE-OMNI-AUTO VALUE 'OA'. 00620000 006300 88 POLICY-TYPE-OMNI-LIAB VALUE 'OL'. 00630000 006400 88 POLICY-TYPE-OMNI-PROP VALUE 'OP'. 00640000 006500 88 POLICY-TYPE-IS-AUTO VALUE 'AA'. 00650000 006600 88 POLICY-TYPE-IS-MAUTO VALUE 'AB'. 00660000 006700 88 POLICY-TYPE-IS-GAR VALUE 'AC'. 00670000 006800 88 POLICY-TYPE-IS-MGAR VALUE 'AD'. 00680000 006900 88 POLICY-TYPE-IS-BURG VALUE 'CA'. 00690000 007000 88 POLICY-TYPE-IS-BURGMLT VALUE 'CB'. 00700000 007100 88 POLICY-TYPE-IS-CRSINGLE VALUE 'CC'. 00710000 007200 88 POLICY-TYPE-IS-CLFID VALUE 'CD'. 00720000 007300 88 POLICY-TYPE-IS-CLFORG VALUE 'CE'. 00730000 007400 88 POLICY-TYPE-IS-CLBOND VALUE 'CF'. 00740000 007500 88 POLICY-TYPE-IS-CRIME-SIM VALUE 'CG'. 00750000 007600 88 POLICY-TYPE-IS-WORKERS-COMP VALUE 'WC'. 00760000 007700 88 POLICY-TYPE-IS-CLTBOP VALUE 'TB'. 00770000 007800 88 POLICY-TYPE-IS-PIF VALUE 'PF'. 00780000 007800 88 POLICY-TYPE-IS-STPAUL-AUTO VALUE 'S1'. 00780000 007800 88 POLICY-TYPE-IS-STPAUL-LIAB VALUE 'S2'. 00780000 007800 88 POLICY-TYPE-IS-STPAUL-PROP VALUE 'S3'. 00780000 126831 88 POLICY-TYPE-IS-PIPELINE-AUTO VALUE 'PA'. 00780000 007800 88 POLICY-TYPE-IS-PIPELINE-LIAB VALUE 'PL'. 00780000 007800 88 POLICY-TYPE-IS-PIPELINE-PROP VALUE 'PP'. 00780000 007900 00790000 008000 05 P-CL-ORP-DATA. 00800000 008100 07 P-ORP-COD PIC XXX. 00810000 008200 07 P-ORP-DIST-COD PIC XX. 00820000 008300 07 P-SPEC-ORP-COD PIC XXX. 00830000 008400 88 LACKAWANNA VALUE '188'. 00840000 008500 88 STATE-FUND VALUE '195'. 00850000 008600 00860000 008700 05 P-CL-PROD-DATA. 00870000 008800 07 P-PROD-COD PIC X(5). 00880000 008900 00890000 009000 05 P-CL-GENERAL-POLICY-DATA. 00900000 009100 07 P-POLICY-NAME PIC X(30). 00910000 009200 07 P-SAI-NUM PIC X(9). 00920000 009300 07 P-EFF-DATE-POL-PERD. 00930000 009400 09 P-EFF-DATE-POL-MM PIC XX. 00940000 009500 09 P-EFF-DATE-POL-DD PIC XX. 00950000 009600 09 P-EFF-DATE-POL-CC PIC XX. 00960000 009700 09 P-EFF-DATE-POL-YY PIC XX. 00970000 009800 07 P-EXP-DATE-POL-PERD. 00980000 009900 09 P-EXP-DATE-POL-MM PIC XX. 00990000 010000 09 P-EXP-DATE-POL-DD PIC XX. 01000000 010100 09 P-EXP-DATE-POL-CC PIC XX. 01010000 010200 09 P-EXP-DATE-POL-YY PIC XX. 01020000 010300 07 P-POL-DATE-CANC. 01030000 010400 09 P-POL-DATE-CANC-MM PIC XX. 01040000 010500 09 P-POL-DATE-CANC-DD PIC XX. 01050000 010600 09 P-POL-DATE-CANC-CC PIC XX. 01060000 010700 09 P-POL-DATE-CANC-YY PIC XX. 01070000 010800 07 P-POL-STATUS-COD PIC X. 01080000 010900 07 P-TIC-EXC-INS-IND PIC X. 01090000 011000 07 P-RETRO-CODE PIC XX. 01100000 011100 07 P-POL-ENTY-NUM PIC X(4). 01110000 011200 07 P-POL-F-S-LOC-COD PIC X(2). 01120000 011300 07 P-ENTY-RECVD-IND PIC X(1). 01130000 011400 07 P-POL-VERSION-NUM PIC X(3). 01140000 011500 07 P-MARKET-SEGMENT-IND PIC X(1). 01150000 011600 07 FILLER PIC X(2). 01160000 011700 01170000 011800 05 P-CL-COVERAGE-B-DATA. 01180000 011900 07 P-CL-COV-B-IND PIC X. 01190000 012000 07 P-CL-COV-B-LMT PIC X(9). 01200000 012100 01210000 012200 05 P-CL-SAILOR-DATA. 01220000 012300 07 P-SAILOR-IND PIC X. 01230000 012400 07 P-COD-RISK-IND PIC X. 01240000 012500 07 P-1ST-NOT-SAILOR-IND PIC X. 01250000 012600 07 P-OLD-SAILOR-IND PIC X. 01260000 012700 07 FILLER PIC X(09). 01270000 012800 01280000 012900 05 P-CL-STATISTICAL-DATA. 01290000 013000 07 P-RESPBL-COD PIC X. 01300000 013100 07 P-RATG-MOD PIC XX. 01310000 013200 07 P-WATCH-FIL-COD PIC X. 01320000 013300 07 P-PGM-COD PIC XXX. 01330000 013400 07 P-CSP-IND PIC X. 01340000 013500 07 P-UP-CSP-IND PIC X. 01350000 013600 07 P-NEW-RENEW-IND PIC X. 01360000 013700 07 P-SPEC-COD PIC XXX. 01370000 013800 07 P-MARKET-CODE PIC XX. 01380000 013900 07 P-FIN-ACCT-COD PIC X. 01390000 014000 07 P-NONAUTO-LOSS-STATE-CODE PIC X(2). 01400000 014100 07 P-CRIME-FORM-COD PIC X(2). 01410000 014400 07 P-3RD-PARTY-SM-DEDUCTIBLE-IND PIC X(01). 01440000 PIFCRI***ADD A NEW FIELD P-CRIME-FORM-COD2 FROM THE 4 BYTES FILLERS 01441000 PIFCRI***TO SYNC WITH THE PIFCRIME-FORM-CODE FROM 2 BYTES TO 3 BYTES. 01441000 PIFCRI*********** 07 FILLER PIC X(04). 01441000 PIFCRI 07 P-CRIME-FORM-COD2 PIC X(03). 01441000 PIFCRI 07 FILLER PIC X(01). 01441000 014300 01430000 014400 05 P-CL-INDICATORS. 01440000 014500 07 P-CLPOLICY-EXPANDED-IND PIC X(01). 01450000 014600 88 CLPOLICY-EXPANDED VALUE 'Y'. 01460000 014700 07 P-CLPOL-REMOVE-TEX-IND PIC X(01). 01470000 014800 88 TEX-FIELDS-REMOVED VALUE 'X'. 01480000 014900 07 FILLER PIC X(04). 01490000 015000 01500000 015100 05 P-CL-STATES. 01510000 015200 07 P-STA-ASSOC-POL PIC X(51). 01520000 015300 01530000 015400 05 P-CL-INSURED-COMMON-DATA. 01540000 015500***** NOTE: THESE ITEMS DO NOT PERTAIN TO SERVICE CONTRACTS, * 01550000 015600***** AND ARE THEREFORE FILLER FOR THAT POLICY * 01560000 015700 07 P-END-COV-PART PIC X(203). 01570000 015800 07 P-REG-MISC-INFO PIC X(144). 01580000 015900 07 P-MANUAL-POLICY-COMMON-DATA. 01590000 016000 09 P-MAN-PROC-CENT-NAM PIC X(17). 01600000 016100 09 P-MAN-CDC-COD PIC X(04). 01610000 016200 09 FILLER PIC X(38). 01620000 016300 01630000 016400 05 P-CL-CANNED-RESPONSE-DATA REDEFINES 01640000 016500 P-CL-INSURED-COMMON-DATA. 01650000 016600 07 P-CLCANRES-NEW-OFF-NAME PIC X(12). 01660000 016700 07 P-CLCANRES-NEW-OFF-ORP PIC X(3). 01670000 016800 07 P-CLCANRES-COMMENT PIC X(267). 01680000 016900 07 P-CLCANRES-REQUE-IND PIC X. 01690000 017000 07 P-CLCANRES-RESP-NUMBERS. 01700000 017100 10 P-CLCANRES-RESP-1 PIC X. 01710000 017200 10 P-CLCANRES-RESP-2 PIC X. 01720000 017300 10 P-CLCANRES-RESP-3 PIC X. 01730000 017400 10 P-CLCANRES-RESP-4 PIC X. 01740000 017500 10 P-CLCANRES-RESP-5 PIC X. 01750000 017600 10 P-CLCANRES-RESP-6 PIC X. 01760000 017700 10 P-CLCANRES-RESP-7 PIC X. 01770000 017800 07 FILLER PIC X(116). 01780000 017900 05 P-CL-PIF-ENTY-DATA. 01790000 018000 07 P-CL-PIF-ENTY-STREET PIC X(38). 01800000 018100 07 P-CL-PIF-ENTY-CITY PIC X(24). 01810000 018200 07 P-CL-PIF-ENTY-STATE PIC X(02). 01820000 018300 07 P-CL-PIF-ENTY-ZIP PIC X(10). 01830000 018400 07 P-CL-PIF-ENTY-ENTITY-KEY PIC X(04). 01840000 018500 07 P-CL-PIF-CL-SLOC-CD REDEFINES 01850000 018600 P-CL-PIF-ENTY-ENTITY-KEY PIC 9(04). 01860000 018700 07 P-CL-PIF-ENTY-DESCRIPTION PIC X(15). 01870000 018800 07 P-CL-PIF-ALT-INPUT-IND PIC X(01). 01880000 018900 07 P-CL-PIF-LOC-CD PIC X(04). 01890000 018900 07 P-CL-PIF-LIAB-OP-NBR REDEFINES 01890000 018900 P-CL-PIF-LOC-CD PIC X(04). 01890000 019000 07 P-CL-PIF-MORTGAGEE-NAME PIC X(25). 01900000 019100 07 P-CL-PIF-MORTGAGEE-STR-ADDR1 PIC X(35). 01910000 019200 07 P-CL-PIF-MORTGAGEE-CITY PIC X(28). 01920000 019300 07 P-CL-PIF-MORTGAGEE-ST-CD PIC X(02). 01930000 019400 07 P-CL-PIF-MORTGAGEE-ZIP-CD1 PIC X(05). 01940000 019500 01950000 05 P-CLEXTRA-REQ PIC X. 05 P-CLEXTRA-NOTE-REF PIC X(29). SLR 05 P-CL-PIF-CLASS-CODE PIC X(05). SLR 05 P-CL-PIF-SUBLINE-CODE PIC X(03). WKW 05 P-LIBERALIZATION-IND PIC X(01). 05 P-SPC-ACQUIRED-POLICY PIC X(20). 05 P-SPC-OVERRIDE-DATE PIC X(08). 05 P-SPC-ORIG-POL-NUM PIC X(10). 05 P-CL-PROD-CURRENCY-IND PIC X(01). 05 P-CL-PAC-INVOKED-IND PIC X(01). 05 P-CL-PAC-TYPE PIC X(25). 05 P-SPCCOV-CRP-IND PIC X(01). 282484 05 P-CL-COMMON-AREA-UNUSED PIC X(596). 01960000 019700 04 P-COMM-WIP-AREA-2. 01970000 020000 05 P-CL-LINE-INS-DEPENDENT-DATA PIC X(3500). 02000001 019900 01990000 020000* 1000 EXTRA BYTES OF DEPENDENT DATA REMAIN UNUSED 02000000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010001 000200* SCRFILE POLICY SEGMENT (MANUAL CL TEXAS MONOLINE FIRE) * 00020001 000300* CPCSLIB SUBSET CLTXMO1 * 00030001 000400* * 00040001 000500* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * 00050001 000600* DATA UNIQUE TO COMMERCIAL LINES TEXAS MONOLINE FIRE * 00060001 000700* POLICIES. IT IS A REDEFINITION OF THE LAST 2500 BYTES OF * 00070006 000800* THE MEMBER CLPOLICY, AND IS TO CODED IN A PROGRAM AS AN * 00080001 000900* INCLUDE FOLLOWING THAT MEMBER. * 00090001 001000* * 00100001 001100* CREATED 5-18-84 BY D. TILLBROOK * 00110001 001200* * 00120001 001210* JMBONNEY Y2KEANE ADDED CORRECT FILLER FOR YEAR 2000 * 00121002 001300* * 00130001 001400* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00140001 001500 SKIP2 00150001 001600 05 P-CLTXMO1-DEPENDENT-DATA REDEFINES 00160001 001700 P-CL-LINE-INS-DEPENDENT-DATA. 00170001 001800 07 P-CL-TEXAS-MONOLINE-DATA. 00180001 001900 09 P-TXMO1-COVERAGE-DATA. 00190001 002000 11 P-TXMO1-DESC-PROP-INSD-1 PIC X(14). 00200001 002100 11 P-TXMO1-COINS-PERCENT-1 PIC X(3). 00210001 002200 11 P-TXMO1-BLDG-COV-LMT-1 PIC X(9). 00220001 002300 11 P-TXMO1-BLDG-IND-1 PIC X. 00230001 002400 11 P-TXMO1-FIRE-COV-IND-1 PIC X. 00240001 002500 11 P-TXMO1-EXT-COV-IND-1 PIC X. 00250001 002600 11 P-TXMO1-VMM-COV-IND-1 PIC X. 00260001 002700 11 P-TXMO1-OPT-PERIL-IND-1 PIC X. 00270001 002800 11 P-TXMO1-ALL-RISK-IND-1 PIC X. 00280001 002900 11 P-TXMO1-RENT-COV-IND-1 PIC X. 00290001 003000 11 P-TXMO1-EXTRA-EXP-IND-1 PIC X. 00300001 003100 11 P-TXMO1-EQ-COV-IND-1 PIC X. 00310001 003200 11 P-TXMO1-DESC-PROP-INSD-2 PIC X(14). 00320001 003300 11 P-TXMO1-COINS-PERCENT-2 PIC X(3). 00330001 003400 11 P-TXMO1-P-P-INSD-COV-LMT PIC X(9). 00340001 003500 11 P-TXMO1-CONT-IND-2 PIC X. 00350001 003600 11 P-TXMO1-FIRE-COV-IND-2 PIC X. 00360001 003700 11 P-TXMO1-EXT-COV-IND-2 PIC X. 00370001 003800 11 P-TXMO1-VMM-COV-IND-2 PIC X. 00380001 003900 11 P-TXMO1-OPT-PERIL-IND-2 PIC X. 00390001 004000 11 P-TXMO1-ALL-RISK-IND-2 PIC X. 00400001 004100 11 P-TXMO1-RENT-COV-IND-2 PIC X. 00410001 004200 11 P-TXMO1-EXTRA-EXP-IND-2 PIC X. 00420001 004300 11 P-TXMO1-EQ-COV-IND-2 PIC X. 00430001 004400 11 P-TXMO1-BUS-INTER-LMT PIC X(9). 00440001 004500 11 P-TXMO1-BUS-INTER-BLDG-IND PIC X. 00450001 004600 11 P-TXMO1-BUS-INTER-CONT-IND PIC X. 00460001 004700 11 P-TXMO1-ADD-LIV-EXP-LMT PIC X(9). 00470001 004800 11 P-TXMO1-ADD-LIV-EXP-BLDG-IND PIC X. 00480001 004900 11 P-TXMO1-ADD-LIV-EXP-CONT-IND PIC X. 00490001 005000 11 P-TXMO1-TUITION-LMT PIC X(9). 00500001 005100 11 P-TXMO1-TUITION-BLDG-IND PIC X. 00510001 005200 11 P-TXMO1-TUITION-CONT-IND PIC X. 00520001 005300 11 P-TXMO1-EARN-COV-IND PIC X. 00530001 005400 11 P-TXMO1-EARNINGS-BLDG-IND PIC X. 00540001 005500 11 P-TXMO1-EARNINGS-CONT-IND PIC X. 00550001 005600 11 P-TXMO1-BLDG-WD-HL-HUR-DED PIC X(5). 00560001 005700 11 P-TXMO1-CONT-WD-HL-HUR-DED PIC X(5). 00570001 005800 11 P-TXMO1-BLDG-OTH-PERIL-DED PIC X(5). 00580001 005900 11 P-TXMO1-CONT-OTH-PERIL-DED PIC X(5). 00590001 006000 11 P-TXMO1-BLDG-WGT-ICE-SN-DED PIC X(5). 00600001 006100 11 P-TXMO1-CONT-WGT-ICE-SN-DED PIC X(5). 00610001 006200 11 P-TXMO1-BLDG-FIRE-LIGHT-DED PIC X(5). 00620001 006300 11 P-TXMO1-CONT-FIRE-LIGHT-DED PIC X(5). 00630001 006400 07 P-CLTXMO1-UNUSED PIC X(2354). 00640005 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010001 000200* * 00020001 000300* SCRFILE POLICY SEGMENT (AUTOMATED CL AUTOMOBILE) * 00030001 000400* CPCSLIB SUBSET SACAUTOPOL * 00040001 000500* * 00050001 000600* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * 00060001 000700* DATA UNIQUE TO COMMERCIAL SAC AUTOMOBILE POLICIES. IT * 00070001 000800* IS A REDEFINITION OR THE LAST 2500 BYTES OF THE MEMBER * 00080002 000900* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00090001 001000* FOLLOWING THAT MEMBER. * 00100001 001100* * 00110001 001200* CREATED 03/12/82 BY JMN * 00120001 001300* UPDATED 08/13/82 BY RFF * 00130001 001400* UPDATED 01/13/83 BY RFF - CHANGES TO ITEM LENGTHS * 00140001 001500* UPDATED 05/10/83 BY KTD - ADD P-SPECF-PERIL-DED TO END * 00150001 001600* * 00160001 001700* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00170001 001800 SKIP2 00180001 001900 05 P-CLAUTO-DEPENDENT-DATA REDEFINES 00190001 002000 P-CL-LINE-INS-DEPENDENT-DATA. 00200001 002100 07 P-CLAUTO-COVERAGE-DATA. 00210001 002200 09 P-CLAUTO-BI-DATA. 00220001 002300 11 P-BI-LIAB-LMT-PER PIC X(10). 00230001 002400 11 P-BI-LIAB-LMT-OCC PIC X(10). 00240001 002500 11 P-SNGL-LIAB-LMT-OCC PIC X(10). 00250001 002600 11 P-BI-LIAB-DED PIC X(5). 00260001 002700 11 P-BI-LMT-STAT-MASS-PER PIC X(10). 00270001 002800 11 P-BI-LMT-STAT-MASS-ACC PIC X(10). 00280001 002900 11 P-BI-COV-PART PIC X(7). 00290001 003000 11 P-BI-COV-PART-STAT-MASS PIC X(7). 00300001 003100 09 P-CLAUTO-PD-DATA. 00310001 003200 11 P-PD-LIAB-LMT-OCC PIC X(10). 00320001 003300 11 P-PD-LIAB-DED PIC X(5). 00330001 003400 09 P-CLAUTO-MP-DATA. 00340001 003500 11 P-MED-PAY-COV-LMT PIC X(10). 00350001 003600 11 P-MED-PAY-COV-PART PIC X(7). 00360001 003700 09 P-CLAUTO-UM-DATA. 00370001 003800 11 P-UMPD-LMT PIC X(10). 00380001 003900 11 P-UM-LMT-PER PIC X(10). 00390001 004000 11 P-UM-LMT-ACC PIC X(10). 00400001 004100 11 P-SNGL-UM-LMT PIC X(10). 00410001 004200 11 P-UM-UND-LMT-PER PIC X(10). 00420001 004300 11 P-UM-UND-LMT-ACC PIC X(10). 00430001 004400 11 P-UM-COV-PART PIC X(7). 00440001 004500 11 P-UMPD-COV-PART PIC X(7). 00450001 004600 09 P-CLAUTO-BPIP-DATA. 00460001 004700 11 P-PIP-LMT-PER PIC X(10). 00470001 004800 11 P-PIP-LMT-ACC PIC X(10). 00480001 004900 11 P-SNGL-PIP-LMT PIC X(10). 00490001 005000 11 P-STAT-PIP-MASS PIC X(10). 00500001 005100 11 P-PIP-DED PIC X(5). 00510001 005200 11 P-PIP-COV-PART PIC X(7). 00520001 005300 11 P-PIP-COV-PART-STAT-MASS PIC X(7). 00530001 005400 09 P-CLAUTO-COMP-DATA. 00540001 005500 11 P-COMP-VALUE PIC X(6). 00550001 005600 11 P-COMP-DED PIC X(5). 00560001 005700 11 P-COMP-COV-PART PIC X(7). 00570001 005800 09 P-CLAUTO-COLL-DATA. 00580001 005900 11 P-COLL-VALUE PIC X(6). 00590001 006000 11 P-COLL-DED PIC X(5). 00600001 006100 11 P-COMP-LCOL-VALUE PIC X(6). 00610001 006200 11 P-COMP-LCOL-DED PIC X(5). 00620001 006300 11 P-COLL-COV-PART PIC X(7). 00630001 006400 09 P-CLAUTO-SP-DATA. 00640001 006500 11 P-SPECF-PERIL-IND PIC XXX. 00650001 006600 11 P-SPECF-PERIL-VALUE PIC X(6). 00660001 006700 11 P-SPECF-PERIL-COV-PART PIC X(7). 00670001 006800 09 P-CLAUTO-TOW-DATA. 00680001 006900 11 P-TOW-COV-IND PIC X. 00690001 007000 11 P-TOW-COV-PART PIC X(7). 00700001 007100 09 P-CLAUTO-DEAL-COLL-DATA. 00710001 007200 11 P-DEAL-COLL-DED PIC X(5). 00720001 007300 11 P-DEAL-COLL-PART PIC X(7). 00730001 007400 09 P-CLAUTO-DEAL-COMP-DATA. 00740001 007500 11 P-DEAL-COMP-DED PIC X(5). 00750001 007600 11 P-DEAL-COMP-PART PIC X(7). 00760001 007700 09 P-GAR-BI-DATA. 00770001 007800 11 P-GAR-BI-PER PIC X(10). 00780001 007900 11 P-GAR-BI-OCC PIC X(10). 00790001 008000 11 P-GAR-SNGL-LMT PIC X(10). 00800001 008100 11 P-GAR-BI-DED PIC X(5). 00810001 008200 11 P-GAR-COV-PART PIC X(7). 00820001 008300 09 P-GAR-PD-DATA. 00830001 008400 11 P-GAR-PD-OCC PIC X(10). 00840001 008500 09 P-CLAUTO-MISC-IND. 00850001 008600 11 P-FLEET-AUTOM-COV-IND PIC X. 00860001 008700 11 P-GAR-KEEP-LEG-LIAB-IND PIC X. 00870001 008800 11 P-COMPOSITE-RAT-IND PIC X. 00880001 008900 11 P-RENTAL-REIMB-COV-IND PIC X. 00890001 009000 09 P-SPECF-PERIL-DED PIC X(5). 00900001 009100 07 P-SACAUTO-UNUSED PIC X(95). 00910001 009200 07 FILLER PIC X(2015). 00920001 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010001 000200* * 00020001 000300* SCRFILE POLICY SEGMENT (CONTRACT CLAIM SERVICES) * 00030001 000400* CPCSLIB SUBSET CSSCPOL * 00040001 000500* * 00050001 000600* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * 00060001 000700* DATA UNIQUE TO SERVICE CONTRACT BUSINESS POLICIES. IT * 00070001 000800* IS A REDEFINITION OR THE LAST 2500 BYTES OF THE MEMBER * 00080003 000900* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00090001 001000* FOLLOWING THAT MEMBER. * 00100001 001100* * 00110001 001200* * 00120001 001300* CREATED 04/22/82 BY RFF * 00130001 001400* UPDATED 08/13/82 BY RFF * 00140001 001500* UPDATED 01/13/83 BY RFF - CHANGE TO LENGTH OF INSTRUCTIONS * 00150001 001600* UPDATED 10/26/84 BY KSN - ADD PHASE 3 FIELDS * 00160001 001700* UPDATED 01/17/85 BY KJ - ADD MORE PHASE3 FIELDS * 00170001 001800* UPDATED 05/16/93 M. JOY - ADD PHASE3 FIELD, PROF-COV * 00180001 001900* * 00190001 002000* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00200001 002100 SKIP2 00210001 002200 05 P-CL-CSSC-DEPENDENT-DATA REDEFINES 00220001 002300 P-CL-LINE-INS-DEPENDENT-DATA. 00230001 002400 07 P-CSSC-UNIQUE-DATA. 00240001 002500 09 P-CSSC-SPEC-INSTR-IND PIC X. 00250001 002600 09 P-CSSC-RETNTN-LMT PIC X(9). 00260001 002700 09 P-CSSC-ACTV-RCD-IND PIC X. 00270001 002800 09 P-CSSC-SPEC-INSTR PIC X(290). 00280001 002900 09 P-CSSC-LINES REDEFINES P-CSSC-SPEC-INSTR. 00290001 003000 11 P-CSSC-EACH-INSTR-LINE PIC X(40) OCCURS 7 00300001 003100 TIMES. 00310001 003200 11 P-CSSC-EXTRA-LINE PIC X(10). 00320001 003300 00330001 003400 07 P-CSSC-SCOPE. 00340001 003500 09 P-CSSC-SCOPE-AUTO-BI PIC X. 00350001 003600 09 P-CSSC-SCOPE-AUTO-PD PIC X. 00360001 003700 09 P-CSSC-SCOPE-AUTO-COMP PIC X. 00370001 003800 09 P-CSSC-SCOPE-AUTO-COLL PIC X. 00380001 003900 09 P-CSSC-SCOPE-AUTO-UM PIC X. 00390001 004000 09 P-CSSC-SCOPE-AUTO-BPIP PIC X. 00400001 004100 09 P-CSSC-SCOPE-LIAB-BI PIC X. 00410001 004200 09 P-CSSC-SCOPE-LIAB-PD PIC X. 00420001 004300 09 P-CSSC-SCOPE-PROD-BI PIC X. 00430001 004400 09 P-CSSC-SCOPE-PROD-PD PIC X. 00440001 004500* ADDITIONAL FIELDS FOR PHASE 3 00450001 004600 09 P-CSSC-SCOPE-HULL PIC X. 00460001 004700 09 P-CSSC-SCOPE-CARGO PIC X. 00470001 004800 09 P-CSSC-SCOPE-WORK-COMP-COV-B PIC X. 00480001 004900 09 P-CSSC-SCOPE-FIRE PIC X. 00490001 005000 09 P-CSSC-SCOPE-EXT PIC X. 00500001 005100 09 P-CSSC-SCOPE-OTH-ALLIED PIC X. 00510001 005200 09 P-CSSC-SCOPE-IM PIC X. 00520001 005300 09 P-CSSC-SCOPE-EQ PIC X. 00530001 005400 09 P-CSSC-SCOPE-PLATE-GLASS PIC X. 00540001 005500 09 P-CSSC-SCOPE-B-M PIC X. 00550001 005600 09 P-CSSC-SCOPE-BURG PIC X. 00560001 005700 09 P-CSSC-SCOPE-FORG PIC X. 00570001 005800 09 P-CSSC-SCOPE-FID PIC X. 00580001 005900 09 P-CSSC-SCOPE-ELUB PIC X. 00590001 006000 09 P-CSSC-SCOPE-MED-PAY PIC X. 00600001 006100 09 P-CSSC-SCOPE-PROF-COV PIC X. 00610001 006200 09 FILLER PIC X(8). 00620001 006300 07 FILLER PIC X(2165). 00630001 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* * 00020000 000300* SCRFILE POLICY SEGMENT (AUTOMATED GEN LIABILITY) * 00030000 000400* CPCSLIB SUBSET SACGLPOL * 00040000 000500* * 00050000 000600* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * 00060000 000700* DATA UNIQUE TO COMMERCIAL SAC LIABILITY POLICIES. IT * 00070000 000800* IS A REDEFINITION OR THE LAST 2500 BYTES OF THE MEMBER * 00080001 000900* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00090000 001000* FOLLOWING THAT MEMBER. * 00100000 001100* * 00110000 001200* * 00120000 001300* CREATED 04/20/82 BY JMH * 00130000 001400* UPDATED 06/21/82 BY KTD * 00140000 001500* UPDATED 08/13/82 BY RFF * 00150000 001600* UPDATED 01/13/83 BY RFF * 00160000 001700* UPDATED 04/30/85 BY PBS EXPANDED P-GL-MP-LMT-PER AND * 00170000 001800* P-GL-MP-LMT-ACC FROM * 00180000 001900* SIX BYTES TO TEN * 00190000 002000* UPDATED 09/24/86 BY KNS EXPANDED ALL DEDUCTIBLES FROM 5 * 00200000 002100* TO 9 BYTES * 00210000 002200* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00220000 002300 SKIP2 00230000 002400 05 P-CL-GL-DEPENDENT-DATA REDEFINES 00240000 002500 P-CL-LINE-INS-DEPENDENT-DATA. 00250000 002600 SKIP2 00260000 002700 07 P-CLGL-COVERAGE-DATA. 00270000 002800 09 P-CLGL-LIABILITY-DATA. 00280000 002900 11 P-GL-LIAB-COV-PART PIC X(4). 00290000 003000 11 P-GL-SNGL-LMT-LIAB-OCC PIC X(10). 00300000 003100 11 P-GL-BI-LIAB-LMT-OCC PIC X(10). 00310000 003200 11 P-GL-BI-LIAB-LMT-AGGR PIC X(10). 00320000 003300 11 P-GL-BI-LIAB-DED PIC X(5). 00330000 003400 11 P-GL-PD-LIAB-LMT-OCC PIC X(10). 00340000 003500 11 P-GL-PD-LIAB-LMT-AGGR PIC X(10). 00350000 003600 11 P-GL-PD-LIAB-DED PIC X(5). 00360000 003700 09 P-CLGL-OLT-DATA. 00370000 003800 11 P-GL-OLT-COV-PART PIC X(4). 00380000 003900 11 P-GL-OLT-SNGL-LMT PIC X(10). 00390000 004000 11 P-GL-OLT-BI-LMT PIC X(10). 00400000 004100 11 P-GL-OLT-BI-DED PIC X(5). 00410000 004200 11 P-GL-OLT-PD-LMT PIC X(10). 00420000 004300 11 P-GL-OLT-PD-LMT-AGGR PIC X(10). 00430000 004400 11 P-GL-OLT-PD-DED PIC X(5). 00440000 004500 09 P-CLGL-PROD-COMP-OPS-DATA. 00450000 004600 11 P-GL-PRODUCT-COV-PART PIC X(4). 00460000 004700 11 P-GL-PRODUCT-SNGL-LMT PIC X(10). 00470000 004800 11 P-GL-PRODUCT-BI-LMT-OCC PIC X(10). 00480000 004900 11 P-GL-PRODUCT-BI-LMT-AGGR PIC X(10). 00490000 005000 11 P-GL-PRODUCT-BI-DED PIC X(5). 00500000 005100 11 P-GL-PRODUCT-PD-LMT-OCC PIC X(10). 00510000 005200 11 P-GL-PRODUCT-PD-LMT-AGGR PIC X(10). 00520000 005300 11 P-GL-PRODUCT-PD-DED PIC X(5). 00530000 005400 09 P-CLGL-CONTRACTUAL-DATA. 00540000 005500 11 P-GL-CONTR-COV-PART PIC X(4). 00550000 005600 11 P-GL-CONTR-SNGL-LMT PIC X(10). 00560000 005700 11 P-GL-CONTR-BI-LMT PIC X(10). 00570000 005800 11 P-GL-CONTR-BI-DED PIC X(5). 00580000 005900 11 P-GL-CONTR-PD-LMT PIC X(10). 00590000 006000 11 P-GL-CONTR-PD-LMT-AGGR PIC X(10). 00600000 006100 11 P-GL-CONTR-PD-DED PIC X(5). 00610000 006200 09 P-CLGL-PERS-INJ-DATA. 00620000 006300 11 P-GL-PI-COV-PART PIC X(4). 00630000 006400 11 P-GL-PI-LMT-AGGR PIC X(10). 00640000 006500 09 P-CLGL-PROFESSIONAL-DATA. 00650000 006600 11 P-GL-PROF-COV-PART PIC X(4). 00660000 006700 11 P-GL-PROF-LMT PIC X(10). 00670000 006800 11 P-GL-PROF-LMT-AGGR PIC X(10). 00680000 006900 11 P-GL-PROF-DED PIC X(5). 00690000 007000 09 P-CLGL-ELUB-DATA. 00700000 007100 11 P-GL-ELUB-LMT PIC X(10). 00710000 007200 09 P-CLGL-PREM-MED-PAY-DATA. 00720000 007300 11 P-GL-MP-COV-PART PIC X(4). 00730000 007400 11 P-GL-MP-LMT-PER PIC X(10). 00740000 007500 11 P-GL-MP-LMT-ACC PIC X(10). 00750000 007600 07 P-CL-GL-MISC-DATA. 00760000 007700 09 P-CLGL-PREM-OPS-IND PIC X. 00770000 007800 09 FILLER PIC X(10). 00780000 007900 07 P-CL-GL-EXPANDED-DED-IND PIC X. 00790000 008000 07 P-CL-GL-EXPANDED-DEDS. 00800000 008100 09 P-GL-BI-LIAB-DED-9 PIC X(9). 00810000 008200 09 P-GL-PD-LIAB-DED-9 PIC X(9). 00820000 008300 09 P-GL-OLT-BI-DED-9 PIC X(9). 00830000 008400 09 P-GL-OLT-PD-DED-9 PIC X(9). 00840000 008500 09 P-GL-PRODUCT-BI-DED-9 PIC X(9). 00850000 008600 09 P-GL-PRODUCT-PD-DED-9 PIC X(9). 00860000 008700 09 P-GL-CONTR-BI-DED-9 PIC X(9). 00870000 008800 09 P-GL-CONTR-PD-DED-9 PIC X(9). 00880000 008900 09 P-GL-PROF-DED-9 PIC X(9). 00890000 009000 07 P-CL-GL-UNUSED PIC X(308). 00900000 009100 07 FILLER PIC X(1786). 00910000 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* * 00020000 000300* SCRFILE POLICY SEGMENT (SIMPLIFIED LIABILITY) * 00030000 000400* PAN MEMBER PCLGLSPOL * 00040000 000500***************************************************************** 00050000 000600* M A I N T E N A N C E L O G * 00060000 000700***************************************************************** 00070000 000800* * 00080000 000900* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00090000 001000***************************************************************** 00100000 001100* 06/14/88 A MODY GR2 ADDED FR MED EMPLOY FIELDS * 00110000 001200***************************************************************** 00120000 001300* THIS CONTAINS THE COVERAGE AND OTHER * 00130000 001400* DATA UNIQUE TO COMMERCIAL LINES GENERAL LIABILITY - * 00140000 001500* SIMPLIFIED. * 00150000 001600* IT IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00160000 001700* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00170000 001800* FOLLOWING THAT MEMBER. * 00180000 001900* * 00190000 002000* CREATED 12-30-85 KSN * 00200000 002100* * 00210000 002200* JMBONNEY Y2KEANE ADDED CORRECT FILLER FOR YEAR 2000 * 00220000 002300* * 00230000 002400* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00240000 002500 SKIP2 00250000 002600 05 P-CLGLS-DEPENDENT-DATA REDEFINES 00260000 002700 P-CL-LINE-INS-DEPENDENT-DATA. 00270000 002800 07 P-CL-SIM-LIABILITY-DATA. 00280000 002900 09 CLGLS-LIMITS. 00290000 003000 11 P-CLGLS-BI-PD-OCCR-LMT PIC X(10). 00300000 003100 11 P-CLGLS-BI-LIAB-LMT-OCC PIC X(10). 00310000 003200 11 P-CLGLS-PD-LIAB-LMT-OCC PIC X(10). 00320000 003300 11 P-CLGLS-PROD-BI-LMT-OCC PIC X(10). 00330000 003400 11 P-CLGLS-PROD-PD-LMT-OCC PIC X(10). 00340000 003500 11 P-CLGLS-OWN-CONTR-PROT-BI-OCC PIC X(10). 00350000 003600 11 P-CLGLS-OWN-CONTR-PROT-PD-OCC PIC X(10). 00360000 003700 11 P-CLGLS-PERS-INJ-COV-LMT-OCC PIC X(10). 00370000 003800 11 P-CLGLS-PREM-MED-PAY-LMT-PER PIC X(10). 00380000 003900 11 P-CLGLS-PROF-LIAB-COV-LMT PIC X(10). 00390000 004000 11 P-CLGLS-ELUB-LMT PIC X(7). 00400000 004100 11 P-CLGLS-FIRE-LEGAL-LIAB-LMT PIC X(10). 00410000 004200 11 P-CLGLS-LIQ-LIAB-LMT-CAUSE PIC X(10). 00420000 004300 11 P-CLGLS-EMPLOY-MED-PAY-OCC PIC X(10). 00430000 004400 11 P-CLGLS-LMT-UNUSED PIC X(28). 00440000 004500 09 CLGLS-AGGREGATES. 00450000 004600 11 P-CLGLS-GEN-AGGR-LMT PIC X(10). 00460000 004700 11 P-CLGLS-PROD-COMP-OPS-AGGR-LMT PIC X(10). 00470000 004800 11 P-CLGLS-OWN-CONTR-PROT-AGGR PIC X(10). 00480000 004900 11 P-CLGLS-RAIL-PROT-AGGR PIC X(10). 00490000 005000 11 P-CLGLS-PROF-LIAB-LMT-AGGR PIC X(10). 00500000 005100 11 P-CLGLS-LIQ-LIAB-LMT-AGGR PIC X(10). 00510000 005200 11 P-CLGLS-AGGR-UNUSED PIC X(40). 00520000 005300 09 CLGLS-DEDUCTIBLES. 00530000 005400 11 P-CLGLS-BI-LIAB-DED PIC X(8). 00540000 005500 11 P-CLGLS-BI-LIAB-DED-OCC PIC X(8). 00550000 005600 11 P-CLGLS-PD-LIAB-DED PIC X(8). 00560000 005700 11 P-CLGLS-PD-LIAB-DED-OCC PIC X(8). 00570000 005800 11 P-CLGLS-BI-PD-LIAB-DED PIC X(8). 00580000 005900 11 P-CLGLS-BI-PD-LIAB-DED-OCC PIC X(8). 00590000 006000 11 P-CLGLS-PROF-LIAB-DED PIC X(8). 00600000 006100 11 P-CLGLS-DED-UNUSED PIC X(35). 00610000 006200 09 CLGLS-INDICATORS. 00620000 006300 11 P-CLGLS-PREM-OPS-IND PIC X. 00630000 006400 11 P-CLGLS-PRODUCT-IND PIC X. 00640000 006500 11 P-CLGLS-PERS-INJ-COV-IND PIC X. 00650000 006600 11 P-CLGLS-PREM-MED-PAY-COV-IND PIC X. 00660000 006700 11 P-CLGLS-PROF-LIAB-COV-IND PIC X. 00670000 006800 11 P-CLGLS-ELUB-COV-IND PIC X. 00680000 006900 11 P-CLGLS-FIRE-LEGAL-LIAB-IND PIC X. 00690000 007000 11 P-CLGLS-LIQ-LIAB-COV-IND PIC X. 00700000 007100 11 P-CLGLS-EMPLOY-MED-PAY-IND PIC X. 00710000 007200 11 P-CLGLS-INS-UNUSED PIC X(9). 00720000 007300 09 CLGLS-UNUSED PIC X(100). 00730000 007400 09 P-CLGLS2-COVERAGE-DATA. 00740000 007500 11 P-CLGLS2-CLM-MADE-COV-IND PIC X. 00750000 007600 11 P-CLGLS2-OCC-COV-IND PIC X. 00760000 007700 09 P-CLGLS2-UNUSED PIC X(112). 00770000 007800 09 P-CLGLS-AUTOMATED-FIELDS. 00780000 007900 11 P-CLGLS-AGGREGATE-RULE PIC X(5). 00790000 008000 11 P-CLGLS-REIN-AGG-IND PIC X. 00800000 008100 11 P-CLGLS-TOTAL-AGGREGATE PIC X(10). 00810000 008200 11 P-CLGLS-DEFENSE-LMT PIC X(10). 00820000 008300 11 P-CLGLS-DEFENSE-LMT-AGG PIC X(15). 00830000 008400 11 P-CLGLS-BI-LIAB-LMT-AGGR PIC X(10). 00840000 008500 11 P-CLGLS-PD-LIAB-LMT-AGGR PIC X(10). 00850000 008600 11 P-CLGLS-PROD-BI-LMT-AGGR PIC X(10). 00860000 008700 11 P-CLGLS-PROD-PD-LMT-AGGR PIC X(10). 00870000 008800 11 P-CLGLS-AUTOMATED-UNUSED PIC X(40). 00880000 008900 07 FILLER PIC X(1791). 00890000 ************************************************************* 00010000 * SCRFILE POLICY SEGMENT (ST. PAUL CONVERTED POLICIES) 00030000 * 00040000 * THIS SUBSET OF THE COMM LINES POLICY SEGMENT REDFINES THE LAST 00090000 * 2500 BYTE FIELD. IT IS TO BE CODED IN A PROGRAM AS AN INCLUDE * AFTER ECLPOLICY. * * CREATED 11/12/90 * MAINTENANCE LOG * DATE NAME SER # DESCRIPTION OF CHANGE * 05/05/05 ST. ONGE SPCCOV COPYBOOK CREATED. ************************************************************** 05 P-SPCCOV-DATA REDEFINES P-CL-LINE-INS-DEPENDENT-DATA. 07 P-SPCCOV-COMMON-DATA. 10 P-CERTIFICATED-POLICY-IND PIC X(01). 10 P-LIMITS-EXIST-IND PIC X(01). 10 P-SCHED-ITEMS-EXIST-IND PIC X(01). 10 P-ADDL-INTEREST-EXIST-IND PIC X(01). 10 P-SELF-INSD-RETN PIC X(01). 10 P-FSG-SRC-SYS-CD PIC X(02). SPC. 10 P-SPC-ENTTY-RETURN PIC X(02). SPC. 10 P-SPC-CERT-POLICY-IND PIC X(01). SPC. 10 P-SPC-ENT-ACCT-NAME PIC X(39). SPC. 10 P-SPC-ENT-ACCT-STREET PIC X(39). SPC. 10 P-SPC-ENT-ACCT-CITY PIC X(20). SPC. 10 P-SPC-ENT-ACCT-STATE PIC X(02). SPC. 10 P-SPC-ENT-ACCT-ZIP PIC X(05). SPC. 10 P-SPC-ENT-INSRD-FORGN-MAIL PIC X(38). SPC. 10 P-SPC-ENT-CANCEL-MODE-CD PIC X(02). SPC. 10 P-SPC-ENTITY-IDENTIFIER PIC X(01). SPC. 10 P-SPC-ENT-LOC-NUM PIC X(09). SPC. 10 P-SPC-ENT-LOC-BLDG-NUM PIC X(09). SPC. 10 P-SPC-ENT-LOC-DESC PIC X(29). SPC. 10 P-SPC-SPC-ENT-SRC-IND PIC X(02). SPC. 10 P-SPC-SPC-ENT-CLS-RISK-TERR PIC X(03). SPC. 10 P-SPC-SPC-ENT-CLS-RISK-CNTY PIC X(03). SPC. 10 P-SPC-SPC-ENT-CLS-RISK-ST PIC X(02). SPC. 10 P-SPC-SPC-ENT-CLS-RISK-CNTRY PIC X(03). SPC. 10 P-SPC-SPC-ENT-CLS-RISK-CD PIC X(06). SPC. 10 P-SPC-SPC-ENT-CLS-RISK-CD-DE PIC X(30). SPC. 10 P-SPC-SPC-ENT-CLS-RISK-NAME PIC X(30). SPC1. 10 P-SPC-SPC-ENT-CLS-ZIP PIC X(05). 10 P-ACQRD-CO-CD PIC X(02). 10 P-ACQSN-SRC-CD PIC X(03). 10 P-ACQSN-SRC-DRCTN-CD PIC X(01). 10 P-ORIG-SPC-POL-EFF-DATE. 15 P-SPC-ORIG-POL-EFF-MM PIC X(02). 15 P-SPC-ORIG-POL-EFF-DD PIC X(02). 15 P-SPC-ORIG-POL-EFF-CC PIC X(02). 15 P-SPC-ORIG-POL-EFF-YY PIC X(02). 10 P-ORIG-SPC-POL-EXP-DATE. 15 P-SPC-ORIG-POL-EXP-MM PIC X(02). 15 P-SPC-ORIG-POL-EXP-DD PIC X(02). 15 P-SPC-ORIG-POL-EXP-CC PIC X(02). 15 P-SPC-ORIG-POL-EXP-YY PIC X(02). 10 P-AAOMS-POL-NBR PIC X(15). 10 P-SPCMAN-COV-IND PIC X(01). SPC1. 10 P-SPC-LOC-STR PIC X(39). SPC1. 10 P-SPC-LOC-CTY PIC X(20). SPC1. 10 P-SPC-LOC-ST PIC X(02). SPC1. 10 P-SPC-LOC-ZIP PIC X(09). FEBO6 10 P-SPC-PARTIAL-DEL-IND PIC X(01). MAY06 10 P-SPC-GRP-ACCT-COD PIC X(03). MAY06 10 P-SP6-WRITTEN-IND PIC X(01). MAY06 88 SP6-MILESTONE-WRITTEN VALUE 'Y'. MAY06 10 P-SPC-SIC-COD PIC X(04). #65963 10 P-AVIATION-TAIL-NUM PIC X(07). #75957 10 P-CLM-ADJ-PRTY-COD PIC X(02). #75957 10 P-INSD-RETN-TYP PIC X(01). #65963 10 FILLER PIC X(1086). 07 P-SPCCOV-LINE-SPECIFIC-DATA PIC X(2000). 07 P-SPCCOV-AUTO-DATA REDEFINES P-SPCCOV-LINE-SPECIFIC-DATA. 10 P-POL-AUTO-SYMBOL PIC X(02). 10 FILLER PIC X(1998). 07 P-SPCCOV-LIAB-DATA REDEFINES P-SPCCOV-LINE-SPECIFIC-DATA. 10 P-MED-MAL-SSN PIC X(09). SPC. 10 P-CLMS-MADE-TYPE PIC X(01). 10 FILLER PIC X(01). 10 P-CLMS-MADE-ENTRY-DATE. 15 P-CLMS-MADE-ENTRY-MM PIC X(02). 15 P-CLMS-MADE-ENTRY-DD PIC X(02). 15 P-CLMS-MADE-ENTRY-CC PIC X(02). 15 P-CLMS-MADE-ENTRY-YY PIC X(02). 10 P-DISCVRY-PER-END-DATE. 15 P-DISCVRY-PER-END-MM PIC X(02). 15 P-DISCVRY-PER-END-DD PIC X(02). 15 P-DISCVRY-PER-END-CC PIC X(02). 15 P-DISCVRY-PER-END-YY PIC X(02). 10 P-CLASS-CD-DESC PIC X(120). 10 FILLER PIC X(1853). 07 P-SPCCOV-PROP-DATA REDEFINES P-SPCCOV-LINE-SPECIFIC-DATA. 10 P-SPC-COINS-PCT PIC X(03). 10 FILLER PIC X(1997). 000100* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00010000 000200* * 00020000 000300* SCRFILE POLICY SEGMENT (MANUAL CL TBOP) * 00030000 000400* PANVALET MEMBER PCLTBOP * 00040000 000500* * 00050000 000600* THIS SUBSET OF CPCSLIB CONTAINS THE COVERAGES AND OTHER * 00060000 000700* DATA UNIQUE TO COMMERCIAL LINES TBOP POLICIES. IT * 00070000 000800* IS A REDEFINITION OF THE LAST 2500 BYTES OF THE MEMBER * 00080000 000900* CLPOLICY, AND IS TO BE CODED IN A PROGRAM AS AN INCLUDE * 00090000 001000* FOLLOWING THAT MEMBER. * 00100000 001100* * 00110000 001200* CREATED 7-20-89 BY SHAPIRO * 00120000 001300* * 00130000 001400* JMBONNEY Y2KEANE ADDED CORRECT FILLER FOR YEAR 2000 * 00140000 001500* * 00150000 001600* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00160000 001700***************************************************************** 00170000 001800* M A I N T E N A N C E L O G * 00180000 001900***************************************************************** 00190000 002000* DATE NAME SR/DISC DESCRIPTION OF CHANGE * 00200000 002100***************************************************************** 00210000 002200 SKIP2 00220000 002300 05 P-CLTBOP-DEPENDENT-DATA REDEFINES 00230000 002400 P-CL-LINE-INS-DEPENDENT-DATA. 00240000 002500 07 P-CL-CLTBOP-DATA. 00250000 002600 09 P-CLTBOP-POLICY-DATA. 00260000 002700 11 P-CLTBOP-STANDARD-POL-IND PIC X. 00270000 002800 11 P-CLTBOP-BROAD-POL-IND PIC X. 00280000 002900 11 P-CLTBOP-SPECIAL-POL-IND PIC X. 00290000 003000 09 P-CLTBOP-PROP-COVERAGE-DATA. 00300000 003100 11 P-CLTBOP-BLDGS-ACV-IND PIC X. 00310000 003200 11 P-CLTBOP-BLDGS-AUTO-INC PIC XX. 00320000 003300 11 P-CLTBOP-BLDGS-LMT PIC X(10). 00330000 003400 11 P-CLTBOP-BLDGS-DED PIC X(7). 00340000 003500 11 P-CLTBOP-BUSINESS-ACV-IND PIC X. 00350000 003600 11 P-CLTBOP-BUSINESS-LMT PIC X(10). 00360000 003700 11 P-CLTBOP-BUSINESS-DED PIC X(7). 00370000 003800 11 P-CLTBOP-IM-IND PIC X. 00380000 003900 11 P-CLTBOP-IM-DESC PIC X(20). 00390000 004000 11 P-CLTBOP-IM-LMT PIC X(10). 00400000 004100 11 P-CLTBOP-IM-DED PIC X(7). 00410000 004200 11 P-CLTBOP-THEFT-IND PIC X. 00420000 004300 09 P-CLTBOP-GL-COVERAGE-DATA. 00430000 004400 11 P-CLTBOP-GEN-AGG-LMT PIC X(10). 00440000 004500 11 P-CLTBOP-PRD-AGG-LMT PIC X(10). 00450000 004600 11 P-CLTBOP-BUS-LIAB-LMT PIC X(10). 00460000 004700 11 P-CLTBOP-FIRE-LEGAL-LMT PIC X(10). 00470000 004800 11 P-CLTBOP-PREM-MED-LMT PIC X(10). 00480000 004900 09 P-CLTBOP-OPTIONAL-COV-DATA. 00490000 005000 11 P-CLTBOP-EXT-GRADE-IND PIC X. 00500000 005100 11 P-CLTBOP-BURG-ROB-IND PIC X. 00510000 005200 11 P-CLTBOP-MONEY-SEC-INS-LMT PIC X(10). 00520000 005300 11 P-CLTBOP-MONEY-SEC-OUT-LMT PIC X(10). 00530000 005400 11 P-CLTBOP-EMP-DISH-LMT PIC X(10). 00540000 005500 11 P-CLTBOP-HIRED-AUTO-IND PIC X. 00550000 005600 09 P-CLTBOP-UNUSED-DATA-AREA PIC X(50). 00560000 005700 09 P-CLTBOP2-NAME-DATA. 00570000 005800 11 P-CLTBOP2-MORTGAGE-DATA. 00580000 005900 13 P-CLTBOP-MTGE-NAM PIC X(51). 00590000 006000 13 P-CLTBOP-MTGE-ADDR-STR PIC X(39). 00600000 006100 13 P-CLTBOP-MTGE-ADDR-CTY PIC X(13). 00610000 006200 13 P-CLTBOP-MTGE-ADDR-STA PIC X(2). 00620000 006300 13 P-CLTBOP-MTGE-ADDR-ZIP PIC X(9). 00630000 006400 11 P-CLTBOP-ADDL-INT-IND PIC X. 00640000 006500 09 P-CLTBOP2-UNUSED-DATA-AREA PIC X(50). 00650000 006600 09 P-CLTBOP-FILLER PIC X(1072). 00660000 006700 07 FILLER PIC X(1050). 00670000 000100******************************************************************00010000 000200***** *****00020000 000300***** SCR FILE NOTE SEGMENT - SECOND PAGE *****00030000 000400***** *****00040000 000500***** CPCSLIB SUBSET NOTESEG *****00050000 000600***** *****00060000 000700***** CREATED 11/14/93 DG *****00070000 000800******************************************************************00080000 000900***** NOTE NOTE NOTE NOTE NOTE NOTE !!!!!!!!!!!!!!!! ***** 00090000 001000***** THIS IS THE LAYOUT FOR THE SECOND PAGE OF THE NOTICE *****00100000 001100***** SEGMENT WITH A KEY OF 00098. THIS IS NOT THE LAYOUT FOR ***00110000 001200***** THE FIRST PAGE. THIS SEGMENT IS USED FOR 1-800 MULTI-*****00120000 001300***** LINE NOTICE REPORTING DATA ITEMS. *****00130000 001400******************************************************************00140000 PARTII* 11/12/00 BATTISTINI ADDED PARTIC_SELECTED CAT/TYPE/DATETIME KEY 00150000 * INFO FOR OTHER INS FROM PARTIC_SELECTED FETCH FOR CONVERTED NAME00160000 * THESE ARE HOLD FIELDS - THEY ARE NOT ON THE IMS NOTE SEGMENT - 00170000 * THEY ARE BEING HELD TO COMPLETE A FULL KEY WHEN UPDATE 00180000 * IS PROCESSED TO PARTIC_SELECTED 00190000 ******************************************************************00200000 001410 00141000 001420 03 N-NOTE-SEGMENT-KEY-2. 00142000 001430 05 N-NOTE-SEGKEY-CMT-NO-2 PIC X(3). 00143000 001440 05 N-NOTE-SEGKEY-PAGE-NO-2 PIC 9(2). 00144000 001450 03 N-SEGMENT-AUTO-INFO. 00145000 001451 05 N-NOL-VEH-COLOR PIC X(14). 00145100 001452 03 N-SEGMENT-LIAB-INFO. 00145200 001453 05 N-TYPE-OF-LIAB-NOTICE-IND PIC X(01). 00145300 001454 05 N-FALL-SUBSTANC PIC X(70). 00145400 001455 05 N-FALL-SUBSTANC-GET-THER PIC X(70). 00145500 001456 05 N-PRODUCT-BEING-USED PIC X(70). 00145600 001457 05 N-PRODUCT-MANF-NAME PIC X(51). 00145700 001458 05 N-PRODUCT-DESC PIC X(51). 00145800 001459 05 N-PRODUCT-SERIAL-NBR PIC X(51). 00145900 001460 05 N-PRODUCT-DAMAGE PIC X(51). 00146000 001470 05 N-PRODUCT-PURCHASE-INFO PIC X(51). 00147000 001480 05 N-PRODUCT-BE-SEEN PIC X(70). 00148000 001490 03 N-SEGMENT-PROPERTY-INFO. 00149000 001500 05 N-PRODUCT-DEFECT-IND PIC X(01). 00150000 001600 05 N-BUILDING-LOSS-IND PIC X(01). 00160000 001700 05 N-CONTENTS-LOSS-IND PIC X(01). 00170000 001800 05 N-BUS-INT-LOSS-IND PIC X(01). 00180000 001900 05 N-PROPERTY-OWN-IND PIC X(01). 00190000 002000 05 N-BUS-INT-DATE1 PIC X(08). 00200000 002100 05 N-BUS-INT-DATE2 PIC X(08). 00210000 002200 05 N-BUS-INT-TIME1 PIC X(05). 00220000 002300 05 N-BUS-INT-TIME2 PIC X(05). 00230000 002310 05 N-OTHER-INS-NAME PIC X(51). 00231000 002320 05 N-OTHER-INS-STR PIC X(25). 00232000 002330 05 N-OTHER-INS-CITY PIC X(13). 00233000 002340 05 N-OTHER-INS-ST PIC X(02). 00234000 002350 05 N-OTHER-INS-ZIP9 PIC X(09). 00235000 002360 05 N-OTHER-INS-PROP-COV PIC X(40). 00236000 002370 05 N-OTHER-INS-POL-NBR PIC X(25). 00237000 002380 05 N-OTHER-INS-CLAIM-NBR PIC X(25). 00238000 002390 05 N-DESC-OF-DMG-TO-BUILD PIC X(100). 00239000 002400 05 N-DESC-OF-DMG-TO-CONTEN PIC X(100). 00240000 002500 05 N-EST-DMG-TO-BUILD PIC X(08). 00250000 002600 05 N-EST-DMG-TO-CONTENT PIC X(08). 00260000 002610 05 N-LOSS-TO-BUS-INT PIC X(08). 00261001 002700 05 N-BUILD-OWNER-NAME PIC X(51). 00270000 002800 05 N-BUILD-OWNER-STR PIC X(25). 00280000 002900 05 N-BUILD-OWNER-CITY PIC X(13). 00290000 003000 05 N-BUILD-OWNER-ST PIC X(02). 00300000 003100 05 N-BUILD-OWNER-ZIP9 PIC X(09). 00310000 003200 05 N-BUILD-OWNER-PHONE PIC X(10). 00320000 003300 05 N-BUILD-OWNER-BUS-PHONE PIC X(10). 00330000 003400 05 N-CONTENT-OWNER-NAME PIC X(51). 00340000 003500 05 N-CONTENT-OWNER-STR PIC X(25). 00350000 003600 05 N-CONTENT-OWNER-CITY PIC X(13). 00360000 003700 05 N-CONTENT-OWNER-ST PIC X(02). 00370000 003800 05 N-CONTENT-OWNER-ZIP9 PIC X(09). 00380000 003900 05 N-CONTENT-OWNER-PHONE PIC X(10). 00390000 004000 05 N-CONTENT-OWNER-BUS-PHONE PIC X(10). 00400000 PARTII 03 N-OTHER-INS-HOLD-PART-KEY. 00750000 05 N-OTHER-INS-HOLD-CAT PIC X(03). 00760000 05 N-OTHER-INS-HOLD-TYPE PIC X(08). 00770000 05 N-OTHER-INS-HOLD-DT-TIME PIC X(26). 00780000 004100 03 FILLER PIC X(1544). 00790000 000100****************************************************************** 00 000200***** ***** 00 000300***** SCR FILE NOTE SEGMENT ***** 00 000400***** ***** 00 000500***** CPCSLIB SUBSET NOTESEG ***** 00 000600***** ***** 00 000700***** CREATED 04/10/85 DLB ***** 00 000800***** UPDATED 06/29/87 NTF FOR SR#GNK ***** 00 000900***** UPDATED 03/27/89 D FIELDING FOR SR#GSD ***** 00 001000***** UPDATED 11/12/90 NLB FOR WC NOL. ***** 00 001100***** UPDATED 4/15/91 REMOVE UNREQUIRED DATA FIELDS THAT ***** 00 001200***** WERE SPECIFICALLY USED BY THE WC ***** 00 001300***** 1-800 PROJECT. --STAN GRIVERS-- ***** 00 001400***** ***** 00 001500***** UPDATED 11/14/93 ADD 1-800 MULTI-LINE DATA ITEMS ***** 00 001410***** 06/08/98 K STOTT REMOVE N-NOTE-DATA ITEMS AND *****00141101 001410***** N-CONTACT-DATE, ARE OBSOLETE *****00141201 PARTII* 11/12/00 BATTISTINI ADDED PARTIC_SELECTED CAT/TYPE/DATETIME KEY 00150000 * INFO FOR CONTACT FROM PARTIC_SELECTED FETCH FOR CONVERTED NAME 00150000 * THESE ARE HOLD FIELDS - THEY ARE NOT ON THE IMS NOTE SEGMENT - 00150000 * THEY ARE BEING HELD TO COMPLETE A FULL KEY WHEN UPDATE 00150000 * IS PROCESSED TO PARTIC_SELECTED SLC * 01/24/01 COSTA ADDED SPECIAL CIRCUMSTANCES TEXT 00150000 SLC * 09/09/02 COSTA ADDED FIELDS FOR PROP SUBRO COL DATA 00150000 CEXT * 02/09/03 S DONIE ADDED IMPACT CALLER PHONE EXTENSION 00150000 SYN. * SSHAYER ADD TO COL-033 ITEMS 00150000 001700****************************************************************** 00 001800***** NOTE NOTE NOTE NOTE NOTE NOTE !!!!!!!!!!!!!!!! ***** 00 001900***** THIS NOTE SEGMENT NOW HAS A SECOND PAGE FOR 1-800 ***** 00 002000***** MULTI-LINE REPORTING. THE KEY TO THIS SEGMENT IS 00099.*** 00 002100***** THE KEY TO THE SECOND PAGE FOR MULTI-LINE IS 00098 AND***** 00 002200***** THE SEGMENT LAYOUT IS PNOTESE2. 00 002300****************************************************************** 00 002400 00 002500 03 N-NOTE-SEGMENT-KEY. 00 002600 05 N-NOTE-SEGKEY-CMT-NO PIC X(3). 00 002700 05 N-NOTE-SEGKEY-PAGE-NO PIC 9(2). 00 002800 03 N-NOTE-SEGMENT. 00 002900 05 N-CALLER-NAME PIC X(34). 00 003000 05 N-CONTACT-NAME PIC X(51). 00 003100 05 N-CONTACT-WHERE PIC X(18). 00 003200 05 N-CONTACT-WHEN PIC X(17). 00 003300 05 N-CONTACT-RES-PHONE PIC X(10). 00 003400 05 N-CONTACT-BUS-PHONE PIC X(10). 00 002500 05 FILLER PIC X(06). 00250000 002600 05 N-NOTE-DATA PIC X(1547). 00260000 020300 05 N-NEW-MULTI-LINE-DATA-ITEMS REDEFINES N-NOTE-DATA. 00 020400 10 N-CALLER-TITLE PIC X(15). 00 020500 10 N-CALLER-PHONE-NUM PIC X(10). 00 020600 10 N-CALLER-PHONE-EXT PIC X(4). 00 020700 10 N-CONTACT-PHONE-EXT PIC X(04). 00 020800 10 N-CONTACT-WHEN-ADD PIC X(50). 00 020900 10 N-CUST-REP-ID PIC X(05). 00 021000 10 N-SITE-LOC PIC X(01). 00 021100 10 N-NOTICE-SOURCE PIC X(01). 00 021200 10 N-NOL-DMG-INJ-ADD PIC X(100). 00 021300 10 N-WITNESS-IND PIC X(01). 00 021400 10 N-WITNESS-INFO OCCURS 3 TIMES. 00 021500 15 N-WITNESS-NAME PIC X(51). 00 021600 15 N-WITNESS-HOME-PHONE PIC X(10). 00 021700 15 N-WITNESS-BUS-PHONE PIC X(10). 00 021800 15 N-WITNESS-STR-ADD PIC X(25). 00 021900 15 N-WITNESS-CITY PIC X(13). 00 022000 15 N-WITNESS-STATE PIC X(02). 00 022100 15 N-WITNESS-ZIP-9 PIC X(09). 00 022200 15 N-WITNESS-CONTACT-TIME PIC X(50). 00 022300 15 N-WITNESS-TM-OF-ACC PIC X(70). 00 022400 15 N-WITNESS-RELATE PIC X(25). 00 022500 15 N-WITNESS-COMMENTS PIC X(44). 00 SLC 10 N-SPECIAL-CIRCUMSTANCES-TEXT PIC X(50). 00275000 SLC 10 N-PROP-SUBRO-OTHER-INS-IND PIC X(01). 00275000 10 N-PROP-SUBRO-COL-DATA PIC X(272). 10 N-PROP-SUBRO-COL-031 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-031-LOSS-MITIGATED PIC X(01). 15 N-031-HOW-LOSS-MITIGATED PIC X(100). 15 N-031-ADVISE-INSD-MIT PIC X(01). 15 N-031-WORK-FIXTURE-IND PIC X(01). 15 N-031-AGE-OF-HOME PIC X(01). 15 FILLER PIC X(168). 10 N-PROP-SUBRO-COL-032 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-032-WATER-SOURCE-IND PIC X(2). 15 N-032-APPLIANCE-TYPE PIC X(30). 15 N-032-APPLIANCE-AGE PIC X(01). 15 N-032-ADVISE-INSD-PROD PIC X(01). 15 N-032-LOC-OF-LEAK PIC X(30). 15 N-032-WORK-FIXTURE-IND PIC X(01). 15 N-032-AGE-PIPE PIC X(01). 15 N-032-SPRINK-WORKINS-IND PIC X(01). 15 N-032-WATER-SHUT-OFF-IND PIC X(01). 15 N-032-LOSS-MITIGATED PIC X(01). 15 N-032-HOW-LOSS-MITIGATED PIC X(100). 15 N-032-ADVISE-INSD-MIT PIC X(01). 15 N-032-PIPE-INHOUSE-IND PIC X(01). 15 N-032-AGE-OF-HOME PIC X(01). 15 FILLER PIC X(100). 10 N-PROP-SUBRO-COL-033 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-033-ADVISE-INSD-MIT PIC X(01). 15 N-033-WATER-SOURCE-IND PIC X(02). 15 N-033-AGE-PUMP PIC X(01). SYN. 15 N-033-HOW-LOSS-MITIGATED PIC X(100). SYN. 15 N-033-LOSS-MITIGATED PIC X(01). 15 FILLER PIC X(167). 10 N-PROP-SUBRO-COL-FIRE REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-FIRE-ORIGINFIRE-DESC PIC X(70). 15 N-FIRE-LOSS-MITIGATED PIC X(01). 15 N-FIRE-HOW-LOSS-MITIGATED PIC X(100). 15 N-FIRE-ADVISE-INSD-MIT PIC X(01). 15 N-FIRE-WORK-FIXTURE-IND PIC X(01). 15 N-FIRE-AGE-OF-HOME PIC X(01). 15 FILLER PIC X(98). 10 N-PROP-SUBRO-COL-041 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-041-POINT-OF-ENTRY-IND PIC X(70). 15 N-041-FORCED-ENTRY PIC X(01). 15 N-041-HOW-LOSS-DISCOV PIC X(70). 15 N-041-VANDALS-ID PIC X(01). 15 FILLER PIC X(130). 10 N-PROP-SUBRO-COL-042 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-042-VANDALS-ID PIC X(01). 15 FILLER PIC X(271). 10 N-PROP-SUBRO-COL-028 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-028-BOAT-TYPE PIC X(25). 15 N-028-HULL-SIZE PIC X(25). 15 N-028-BOAT-POWER PIC X(03). 15 FILLER PIC X(219). 10 N-PROP-SUBRO-COL-050 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-050-PROPDMG-SOURCE PIC X(02). 15 N-050-APPLIANCE-AGE PIC X(01). 15 N-050-ADVISE-INSD-MIT PIC X(01). 15 N-050-PROP-OWNINSD-IND PIC X(01). 15 N-050-WORK-FIXTURE-IND PIC X(01). 15 N-050-AGE-OF-HOME PIC X(01). 15 FILLER PIC X(265). 10 N-PROP-SUBRO-COL-053 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-053-VANDALS-IND PIC X(01). 15 FILLER PIC X(271). 10 N-PROP-SUBRO-COL-034 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-034-HEAT-SYSFAIL-IND PIC X(01). 15 N-034-WORK-FIXTURE-IND PIC X(01). 15 N-034-AGE-OF-HOME PIC X(01). 15 FILLER PIC X(269). 10 N-PROP-SUBRO-COL-052 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-052-HEAT-SYSFAIL-IND PIC X(01). 15 N-052-PROP-OWNINSD-IND PIC X(01). 15 N-052-WORK-FIXTURE-IND PIC X(01). 15 N-052-AGE-OF-HOME PIC X(01). 15 N-052-ADVISE-INSD-MIT PIC X(01). 15 FILLER PIC X(267). 10 N-PROP-SUBRO-COL-023 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-023-WORK-FIXTURE-IND PIC X(01). 15 N-023-AGE-OF-HOME PIC X(01). 15 N-023-ADVISE-INSD-MIT PIC X(01). 15 FILLER PIC X(269). 10 N-PROP-SUBRO-COL-609 REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-609-WORK-FIXTURE-IND PIC X(01). 15 N-609-AGE-OF-HOME PIC X(01). 15 FILLER PIC X(270). 10 N-PROP-SUBRO-COL-DISCHARGE REDEFINES N-PROP-SUBRO-COL-DATA. 15 N-DISCHARGE-WORK-FIXTURE-IND PIC X(01). 15 N-DISCHARGE-AGE-OF-HOME PIC X(01). 15 FILLER PIC X(270). 002750 10 FILLER PIC X(106). 00275000 022700 05 N-WIT-REM-DATA. 00 022800 10 N-WITNESS-DATA. 00 022900 15 N-WITNESS-DATA-1 PIC X(50). 00 023000 15 N-WITNESS-DATA-2 PIC X(50). 00 023100 15 N-WITNESS-DATA-3 PIC X(50). 00 023200 15 N-WITNESS-DATA-4 PIC X(50). 00 023300 10 N-REMARKS-DATA. 00 023400 15 N-REMARKS-DATA-1 PIC X(50). 00 023500 15 N-REMARKS-DATA-2 PIC X(50). 00 023600 15 N-REMARKS-DATA-3 PIC X(50). 00 023700 15 N-REMARKS-DATA-4 PIC X(50). 00 023800 15 N-REMARKS-DATA-5 PIC X(50). 00 023900 15 N-REMARKS-DATA-6 PIC X(50). 00 024000 15 N-REMARKS-DATA-7 PIC X(50). 00 024100 15 N-REMARKS-DATA-8 PIC X(50). 00 024200 15 N-REMARKS-DATA-9 PIC X(50). 00 024300 15 N-REMARKS-DATA-10 PIC X(50). 00 024400 15 N-REMARKS-DATA-11 PIC X(50). 00 024500 15 N-REMARKS-DATA-12 PIC X(50). 00 024600 15 N-REMARKS-DATA-13 PIC X(50). 00 024700 10 N-AUTH-CONTACTED PIC X(40). 00 024800 10 N-AUTH-IND PIC X(01). 00 024900 10 N-AUTH-NAME PIC X(51). 00 025000 10 N-AUTH-COUNTY PIC X(15). 00 025100 10 N-AUTH-STR-ADD PIC X(25). 00 025200 10 N-AUTH-CITY PIC X(13). 00 025300 10 N-AUTH-STATE PIC X(02). 00 025400 10 N-AUTH-ZIP-9 PIC X(09). 00 025500 10 N-AUTH-REPORT-NUM PIC X(30). 00 025600 10 N-AUTH-CITATION-IND PIC X(01). 00 025700 10 N-AUTH-SUMMONS-DESC PIC X(40). 00 025800 05 N-NOTE-PLWKSTN-ITEMS. 00 025900 10 N-CALLER-PHONE PIC X(10). 00 026000 10 N-CONTACT-BUS-EXT PIC X(04). 00 026100 10 N-CONTACT-RELATIONSHIP PIC X(25). 00 PARTII 05 N-NOTE-CONTACT-HOLD-PART-KEY. 00 10 N-CONTACT-HOLD-CAT PIC X(03). 00 10 N-CONTACT-HOLD-TYPE PIC X(08). 00 10 N-CONTACT-HOLD-DT-TIME PIC X(26). 00 CEXT 05 N-IMPACT-CALLER-PHONE-EXT PIC X(04). 00460000 004600 05 FILLER PIC X(145). 00460000