000100*** LAST UPDATED BY J.ANSALDI FOR PR #720 ON 5/02/90 - ADD        JAA90122
000200*** EXPANDED ESTATE BENEFIT                                       JAA90122
000210*** LAST UPDATED BY I.FENSTER FOR PR #385 ON 4/24/90 - ADD        IF 90114
000220*** UNDERWRITER-TEAM-NO TO CONTROL SEGMENT OF DB                  IF 90114
000300*** LAST UPDATED FOR PR# 649 BY J. ANSALDI                        JAA90086
000400*** LAST UPDATED BY I. FENSTER ON 3/21/90 FOR PR #504 - TO ADD    IF 90080
000500*** PIF FIELDS                                                    IF 90080
000600*** LAST UPDATED FOR LIVING CARE BENEFIT BY J.ANSALDI PR# 140     JAA89332
000700 01  EXPERT-INPUT-RECORD.
000800 10  INPUT-KEY        PIC  X(8).
000900 10  SEGMENT-KEY REDEFINES INPUT-KEY.
001000 15  LINE-OF-BUSINESS PIC  X.
001100 15  CONTROL-NO       PIC  X(7).
001200 10  AGENCY-CODE      PIC  999.
001300 10  TODAYS-RUN-DATE  PIC  9(6).
001400 10  CLERK-CODE       PIC  9(6).
001500 10  UNDERWRITER-NO   PIC  XX.
001600 10  FRONT-END-VERSION-NO
001700                      PIC  X(4).
001800 10  INSURED-FIRST-NAME
001900                      PIC  X(14).
002000 10  INSURED-MI-NAME  PIC  X.
002100 10  INSURED-LAST-NAME
002200                      PIC  X(20).
002300 10  INSURED-SEX-CODE PIC  X.
002400 10  INSURED-BIRTH-DATE
002500                      PIC  9(6).
002600 10  INSURED-AGE      PIC  S999      COMP-3.
002700 10  INSURED-OWNER-ADDRESS1
002800                      PIC  X(20).
002900 10  INSURED-OWNER-ADDRESS2
003000                      PIC  X(20).
003100 10  INSURED-OWNER-ADDRESS3
003200                      PIC  X(20).
003300 10  INSURED-OWNER-ADDRESS4
003400                      PIC  X(20).
003500 10  INSURED-BIRTH-STATE
003600                      PIC  XX.
003700 10  INSURED-BIRTH-COUNTRY
003800                      PIC  X(6).
003900 10  MIB-COUNTRY-NM
004000                      PIC  X(6).
004100 10  INSURED-OWNER-SSN
004200                      PIC  X(11).
004300 10  OWNER-CD         PIC  X.
004400 10  INSURED-FEET     PIC  9.
004500 10  INSURED-INCHES   PIC  99.
004600 10  INSURED-WEIGHT   PIC  999.
004700 10  INSURED-OCCUPATION
004800                      PIC  X(40).
004900 10  INSURED-SMOKER-IND
005000                      PIC  X.
005100 10  INSURED-NON-SMOKER-DISC-IND
005200                      PIC  X.
005300 10  INS-PACKS-CIGARETTES-DAY
005400                      PIC  S999V99   COMP-3.
005500 10  UNDERWRITER-TEAM-NO                                          IF 90114
005600                      PIC  X.                                     IF 90114
005700 10  FILLER-1         PIC X(4).                                   IF 90114
005800 10  PLAN-OF-INSURANCE
005900                      PIC  X(4).
006000 10  PLAN-STD-PREF-IND
006100                      PIC  X.
006200 10  INSURANCE-AMT    PIC  S9(9)     COMP-3.
006300 10  INSURED-TOTAL-SUM-AMT
006400                      PIC  S9(9)     COMP-3.
006500 10  PLAN-DECRYRT-INT-RT
006600                      PIC  S999V99   COMP-3.
006700 10  PLAN-DECR-YRT-INT-YRS
006800                      PIC  99.
006900 10  YRT-PLAN-DEATH-OPTION
007000                      PIC  X.
007100 10  FLEXV-FUND1      PIC  S999      COMP-3.
007200 10  FLEXV-FUND2      PIC  S999      COMP-3.
007300 10  FLEXV-FUND3      PIC  S999      COMP-3.
007400 10  FLEXV-FUND4      PIC  S999      COMP-3.
007500 10  FLEXV-FUND5      PIC  S999      COMP-3.
007600 10  FLEXV-FUND6      PIC  S999      COMP-3.
007700 10  FLEXV-FUND7      PIC  S999      COMP-3.
007800 10  FLEXV-FUND8      PIC  S999      COMP-3.
007900 10  FLEXV-FUND9      PIC  S999      COMP-3.
008000 10  FLEXV-FUND10     PIC  S999      COMP-3.
008100 10  STATE-OF-APPLICATION
008200                      PIC  XX.
008300 10  STATE-OF-ISSUE   PIC  XX.
008400 10  STATE-OF-RESIDENCE
008500                      PIC  XX.
008600 10  ISSUE-DT         PIC  9(6).
008700 10  WRITTEN-DATE     PIC  9(6).
008800 10  FILLER-2         PIC X(14).
008900 10  INS-ADDL-BEN-IND PIC X.
009000 10  DISABILITY-BENEFIT-IND
009100                      PIC  X.
009200 10  ACCIDENTAL-DEATH-BEN-IND
009300                      PIC  X.
009400 10  ACCIDENTAL-DEATH-BEN-AMT
009500                      PIC  S9(7)     COMP-3.
009600 10  INS-OF-INSURAB-BEN-IND
009700                      PIC  X.
009800 10  INS-OF-INSURAB-BEN-AMT
009900                      PIC  S9(7)     COMP-3.
010000 10  INS-YRTL-STD-PREF-IND
010100                      PIC  X.
010200 10  INS-YRTL-BEN-IND PIC  X.
010300 10  INS-YRTL-BEN-AMT PIC  S9(7)     COMP-3.
010400 10  INS-YRTD-STD-PREF-IND
010500                      PIC  X.
010600 10  INS-YRTD-BEN-IND PIC  X.
010700 10  INS-YRTD-BEN-AMT PIC  S9(7)     COMP-3.
010800 10  INS-YRTD-BEN-INT-RT
010900                      PIC  S999V99   COMP-3.
011000 10  INS-YRTD-BEN-INT-YRS
011100                      PIC  99.
011200 10  INS-10YR-RENEW-TERM-BEN-IND
011300                      PIC  X.
011400 10  INS-10YR-RENEW-TERM-BEN-AMT
011500                      PIC  S9(7)     COMP-3.
011600 10  ONE-YEAR-TERM-IND
011700                      PIC  X.
011800 10  PAID-UP-INSURANCE-BENEFIT-IND
011900                      PIC  X.
012000 10  LUMP-SUM-PAYMENT-IND
012100                      PIC  X.
012200 10  LUMP-SUM-PAYMENT-AMT
012300                      PIC  S9(7)V99  COMP-3.
012400 10  LEVEL-ANNUAL-PREMIUM-IND
012500                      PIC  X.
012600 10  LEVEL-ANNUAL-PREM-AMT
012700                      PIC  S9(7)V99  COMP-3.
012800 10  LEVEL-ANNUAL-PREM-YRS
012900                      PIC  XX.
013000 10  EXTRA-ANNUAL-PREM-IND
013100                      PIC  X.
013200 10  INS-OTHER-BEN-IND
013300                      PIC  X.
013400 10  LIVING-CARE-BEN-IND                                          JAA89332
013500                      PIC  X.                                     JAA89332
013510 10  EXP-EST-BEN-IND                                              JAA90122
013520                      PIC  X.                                     JAA90122
013530 10  EXP-EST-STD-PREF-IND                                         JAA90122
013540                      PIC  X.                                     JAA90122
013550 10  EXP-EST-BEN-AMT                                              JAA90122
013560                      PIC  9(7)       COMP-3.                     JAA90122
013570 10  EXP-EST-XTRA-PREM-AMT                                        JAA90122
013580                      PIC  9(7)V99    COMP-3.                     JAA90122
013600 10  FILLER-3         PIC  X(8).                                  JAA90122
013700 10  PREMIUM-SCHEDULE PIC  X.
013800 10  PLANNED-PREMIUM-AMT
013900                      PIC  S9(7)V99  COMP-3.
014000 10  PREMIUM-PAYMENT-REGULAR
014100                      PIC  X.
014200 10  PREMIUM-PAYMENT-MA
014300                      PIC  X.
014400 10  PREMIUM-PAYMENT-EC
014500                      PIC  X.
014600 10  PREMIUM-PAY-PREMIUMATIC
014700                      PIC  X.
014800 10  ADDITIONAL-FIRST-YEAR-PREMIUM
014900                      PIC  S9(7)V99  COMP-3.
015000 10  ADVANCED-PAYMENT-PREMIUM
015100                      PIC  S9(7)V99  COMP-3.
015200 10  DIVIDEND-OPTION  PIC  X.
015300 10  DIVIDEND-CREDIT  PIC  X.
015400 10  DIV-OPT-C-ID-NUM PIC  X(10).
015500 10  DIV-OPT-C-ID-VER-IND
015600                      PIC  X.
015700 10  VALUE-OPTION-ELECTED
015800                      PIC  X.
015900 10  AUTOMATIC-LOAN-CD
016000                      PIC  X.
016100 10  FILLER-4         PIC  X(10).
016200 10  EMPLOY-CONSULT-CASE-NO
016300                      PIC  S9(5)     COMP-3.
016400 10  EC-PAYROLL-DEDUCTION-AMT
016500                      PIC  S9(7)     COMP-3.
016600 10  BENEFICIARY-NAME PIC  X(25).
016700 10  BENEFICIARY-RELATIONSHIP
016800                      PIC  X(15).
016900 10  BENEFICIARY-TYPE PIC  99.
017000 10  IRREVOCABLE-BENE-IND
017100                      PIC  X.
017200 10  PARTA-Q18-23-OR-16-21-IND
017300                      PIC  X.
017400 10  PARTA-Q18-23-OR-16-21-DTL-IND
017500                      PIC  X.
017600*
017700 10  AVIATION-QUESTION-IND
017800                      PIC  X.
017900 10  AVOCATION-QUESTION-IND
018000                      PIC  X.
018100 10  PASSENGER-FLYING-IND
018200                      PIC  X.
018300 10  FLYING-PAST-12-MONTHS
018400                      PIC  S999      COMP-3.
018500 10  FLYING-NEXT-12-MONTHS
018600                      PIC  S999      COMP-3.
018700 10  CRIMINAL-CHARGES-IND
018800                      PIC  X.
018900 10  MOTOR-VEHICLE-VIOL-IND
019000                      PIC  X.
019100 10  GLOBAL-LIC-MOV-VIOL-IND
019200                      PIC  X.
019300 10  LICENSE-SUSPEND-REVOKE-IND
019400                      PIC  X.
019500 10  GLOBAL-LIC-REVOKED-IND
019600                      PIC  X.
019700 10  TRAVEL-IND       PIC  X.
019800 10  DECLINE-INSURANCE-IND
019900                      PIC  X.
020000 10  OTHER-INS-PENDING-IND
020100                      PIC  X.
020200 10  REPLACEMENT-INSURANCE-IND
020300                      PIC  X.
020400 10  INFORCE-INS-NO-ANSWER
020500                      PIC  X.
020600 10  INFORCE-INS-NONE
020700                      PIC  X.
020800 10  INFORCE-INS-PLAN1
020900                      PIC  X(6).
021000 10  INFORCE-INS-LIFE-INS1
021100                      PIC  9(6).
021200 10  INFORCE-INS-ACCID-DEATH1
021300                      PIC  9(6).
021400 10  INFORCE-INS-PLAN2
021500                      PIC  X(6).
021600 10  INFORCE-INS-LIFE-INS2
021700                      PIC  9(6).
021800 10  INFORCE-INS-ACCID-DEATH2
021900                      PIC  9(6).
022000 10  INFORCE-INS-PLAN3
022100                      PIC  X(6).
022200 10  INFORCE-INS-LIFE-INS3
022300                      PIC  9(6).
022400 10  INFORCE-INS-ACCID-DEATH3
022500                      PIC  9(6).
022600 10  INFORCE-INS-PLAN4
022700                      PIC  X(6).
022800 10  INFORCE-INS-LIFE-INS4
022900                      PIC  9(6).
023000 10  INFORCE-INS-ACCID-DEATH4
023100                      PIC  9(6).
023200 10  SPECIAL-REQUEST-IND
023300                      PIC  X.
023400 10  SPECIAL-DATE-IND PIC  X.
023500 10  SPECIAL-DATE     PIC  9(6).
023600 10  SPECIAL-DATE-TEXT
023700                      PIC X(12).
023800 10  PREMIUM-PAYMENT-QUESTION-IND
023900                      PIC  X.
024000 10  PREMIUM-PAYMENT-REQUEST
024100                      PIC  X(18).
024200 10  ADVANCE-PAY-LOAN-DIVD-IND
024300                      PIC  X.
024400 10  FIXED-LOAN-RATE-IND
024500                      PIC  X.
024600 10  ISSUE-WITH-POLICY-ILLUSTRATION
024700                      PIC  X.
024800 10  PRIOR-MEDICAL-IND
024900                      PIC  X.
025000 10  PRIOR-MEDICAL-POLICY-NUM
025100                      PIC  X(8).
025200 10  INITIAL-TERM-IND PIC  X.
025300 10  INITIAL-TERM-MONTHS
025400                      PIC  99.
025500 10  DATE-START       PIC  9(6).
025600 10  DATE-END         PIC  9(6).
025700 10  SPECIAL-REQUEST-DTL-IND
025800                      PIC  X.
025900 10  SPECIAL-REQUEST-DETAIL
026000                      PIC  X(100).
026100 10  FILLER-5         PIC  X(14).
026200 10  FLEXV-SUITABILITY-IND
026300                      PIC  X.
026400 10  FLEXV-PROSPECTUS-DATE
026500                      PIC  9(6).
026600 10  FLEXV-ILLUSTRATION-RECVD
026700                      PIC  X.
026800 10  FLEXV-INVESTMENT-EXP
026900                      PIC  X.
027000 10  FLEXV-POLICY-ACCORD-IND
027100                      PIC  X.
027200 10  HEART-DISEASE-TREATMENT-IND
027300                      PIC  X.
027400 10  CANCER-TREATMENT-IND
027500                      PIC  X.
027600 10  HOSPITAL-IND     PIC  X.
027700 10  PARTA-SIGNED-INSURED-IND
027800                      PIC  X.
027900 10  PARTA-SPS-SIGNED-IND
028000                      PIC  X.
028100 10  PARTA-PARENT-SIGNED-IND                                      JAA90086
028200                      PIC  X.
028300 10  PARTA-OTHER-IND  PIC  X.
028400 10  PARTA-SIG-OTHER-FIRST-NAME
028500                      PIC  X(14).
028600 10  PARTA-SIG-OTHER-MI-NAME
028700                      PIC  X.
028800 10  PARTA-SIG-OTHER-LAST-NAME
028900                      PIC  X(20).
029000 10  PARTA-SIGNED-RELATION
029100                      PIC  X(15).
029200 10  PARTA-WITNESS-IND
029300                      PIC  X.
029400 10  PARTA-DATE       PIC  9(6).
029500 10  PARTA-GUARDIAN-SIGNED-IND                                    JAA90086
029600                      PIC  X.                                     JAA90086
029700 10  FILLER-6         PIC  X(9).                                  JAA90086
029800 10  INSPECTION-RPT-ORDER-INS-IND
029900                      PIC  X.
030000 10  INSPECTION-RPT-ORDER-INS-DT
030100                      PIC  9(6).
030200 10  INSPECTION-RPT-ORDER-SP-AO-IND
030300                      PIC  X.
030400 10  INSPECTION-RPT-ORDER-SP-AO-DT
030500                      PIC  9(6).
030600 10  REPLACEMENT-FORM-IND
030700                      PIC  X.
030800 10  PERSONAL-STATEMENT-INS-IND
030900                      PIC  X.
031000 10  PERSONAL-STATEMENT-SP-AO-IND
031100                      PIC  X.
031200 10  TELEPHONE-INSPECTION-RPT-IND
031300                      PIC  X.
031400 10  INSURED-MEDICAL-FORM-IND
031500                      PIC  X(5).
031600 10  SPOUSE-AO-MEDICAL-FORM-IND
031700                      PIC  X(5).
031800 10  INSURED-PARAMED-FORM-IND
031900                      PIC  X(5).
032000 10  SPOUSE-AO-PARAMED-FORM-IND
032100                      PIC  X(5).
032200 10  APS-IN-LIEU-OF-MED-INS-IND
032300                      PIC  X.
032400 10  APS-IN-LIEU-OF-MED-SP-AO-IND
032500                      PIC  X.
032600 10  ATTEND-PHYS-STMNT-IND
032700                      PIC  X.
032800 10  APS-PHYSICIAN-INITIALS
032900                      PIC  XXX.
033000 10  ATTEND-PHYS-STMNT-DATE
033100                      PIC  9(6).
033200 10  SP-ATTEND-PHYS-STMNT-IND                                     JAA90086
033300                      PIC  X.                                     JAA90086
033400 10  BLOOD-STUDIES-ORDER-IND
033500                      PIC  X.
033600 10  BLOOD-STUDIES-ORDER-INS-IND
033700                      PIC  X.
033800 10  BLOOD-STUDIES-ORDER-SP-AO-IND
033900                      PIC  X.
034000 10  MILITARY-ALLOT-IND
034100                      PIC  X.
034200 10  CONFIRM-OF-MILITARY-ALLOT-IND
034300                      PIC  X.
034400 10  AVIATION-IND     PIC  X.
034500 10  AVOCATION-IND    PIC  X.
034600 10  FOREIGN-NATIONAL-IND
034700                      PIC  X.
034800 10  AUTO-RACING-IND  PIC  X.
034900 10  PRIVACY-DISCL-FORM-IND
035000                      PIC  X.
035100 10  OTHER-FORM-NO1
035200                      PIC  X(10).
035300 10  OTHER-FORM-NO2
035400                      PIC  X(10).
035500 10  OTHER-FORM-NO3
035600                      PIC  X(10).
035700 10  OTHER-FORM-NO4
035800                      PIC  X(10).
035900 10  OTHER-FORM-NO5
036000                      PIC  X(10).
036100 10  OTHER-FORM-NO6
036200                      PIC  X(10).
036300 10  OTHER-FORM-NO7
036400                      PIC  X(10).
036500 10  OTHER-FORM-NO8
036600                      PIC  X(10).
036700 10  OTHER-FORM-MISC
036800                      PIC  X(20).
036900 10  OTHER-FORMS-IND
037000                      PIC  X.
037100 10  INSURED-MEDICAL-BASIS-IND
037200                      PIC  X.
037300 10  SPOUSE-AO-MEDICAL-BASIS-IND
037400                      PIC  X.
037500 10  SP-ATTEND-PHYS-STMNT-DATE                                    JAA90086
037600                      PIC  9(6).                                  JAA90086
037700 10  SP-APS-PHYSICIAN-INITIALS                                    JAA90086
037800                      PIC  XXX.                                   JAA90086
037900 10  PA-DISCLOSURE-STAMP-IND                                      JAA90086
038000                      PIC  X.                                     JAA90086
038100 10  FILLER-7         PIC  X(5).                                  JAA90086
038200*10  PARTA-ADDTL-DTL-KEY1.
038300 10  PARTA-DTL-DETAIL-NO1
038400                      PIC  9.
038500 10  PARTA-DETAIL-QUESTION-NO1
038600                      PIC  X(3).
038700 10  PARTA-DETAIL-TEXT1
038800                      PIC  X(100).
038900*10  PARTA-ADDTL-DTL-KEY2.
039000 10  PARTA-DTL-DETAIL-NO2
039100                      PIC  9.
039200 10  PARTA-DETAIL-QUESTION-NO2
039300                      PIC  X(3).
039400 10  PARTA-DETAIL-TEXT2
039500                      PIC  X(100).
039600*10  PARTA-ADDTL-DTL-KEY3.
039700 10  PARTA-DTL-DETAIL-NO3
039800                      PIC  9.
039900 10  PARTA-DETAIL-QUESTION-NO3
040000                      PIC  X(3).
040100 10  PARTA-DETAIL-TEXT3
040200                      PIC  X(100).
040300*10  PARTA-ADDTL-DTL-KEY4.
040400 10  PARTA-DTL-DETAIL-NO4
040500                      PIC  9.
040600 10  PARTA-DETAIL-QUESTION-NO4
040700                      PIC  X(3).
040800 10  PARTA-DETAIL-TEXT4
040900                      PIC  X(100).
041000*10  PARTA-ADDTL-DTL-KEY5.
041100 10  PARTA-DTL-DETAIL-NO5
041200                      PIC  X.
041300 10  PARTA-DETAIL-QUESTION-NO5
041400                      PIC  X(3).
041500 10  PARTA-DETAIL-TEXT5
041600                      PIC  X(100).
041700 10  GA-DA-IND        PIC  XX.
041800 10  AGENCY-NAME      PIC  X(10).
041900 10  CITY-TAX         PIC  X(4).
042000 10  SPECIAL-CODE     PIC  X.
042100 10  STAFF-MANAGER-NO1
042200                      PIC  9(6).
042300 10  GA-CONTRACT-CODE1
042400                      PIC  XX.
042500 10  AGENT-NO1        PIC  9(6).
042600 10  DEBIT-NO1        PIC  9(5).
042700 10  AGENT-PERCENT1   PIC  S999      COMP-3.
042800 10  STAFF-MANAGER-NO2
042900                      PIC  9(6).
043000 10  GA-CONTRACT-CODE2
043100                      PIC  XX.
043200 10  AGENT-NO2        PIC  9(6).
043300 10  DEBIT-NO2        PIC  9(5).
043400 10  AGENT-PERCENT2   PIC  S999      COMP-3.
043500 10  STAFF-MANAGER-NO3
043600                      PIC  9(6).
043700 10  GA-CONTRACT-CODE3
043800                      PIC  XX.
043900 10  AGENT-NO3        PIC  9(6).
044000 10  DEBIT-NO3        PIC  9(5).
044100 10  AGENT-PERCENT3   PIC  S999      COMP-3.
044200 10  STAR-AGENT-IND   PIC  X.
044300 10  INSURED-MIB-AUTHORITY-IND
044400                      PIC  X.
044500 10  SPOUSE-MIB-AUTHORITY-IND
044600                      PIC  X.
044700 10  DETACHED-AGENCY-CD
044800                      PIC  XXX.
044900 10  FILLER-8         PIC  X(7).
045000 10  INS-WORK-TELEPHONE-NO
045100                      PIC  X(12).
045200 10  INS-HOME-TELEPHONE-NO
045300                      PIC  X(12).
045400 10  INS-TIME-TO-CALL PIC  X(15).
045500 10  INS-LICENSE-STATE
045600                      PIC  XX.
045700 10  INS-LICENSE-NO   PIC  X(17).
045800 10  INS-RESIDENCE-YR-MO
045900                      PIC  9(4).
046000 10  CHANGE-NAME-IND  PIC  X.
046100 10  CHANGE-NAME-PRIOR-FIRST
046200                      PIC  X(14).
046300 10  CHANGE-NAME-PRIOR-MI
046400                      PIC  X.
046500 10  CHANGE-NAME-PRIOR-LAST
046600                      PIC  X(20).
046700 10  RESIDENTIAL-ADDRESS1
046800                      PIC  X(20).
046900 10  RESIDENTIAL-ADDRESS2
047000                      PIC  X(20).
047100 10  RESIDENTIAL-ADDRESS3
047200                      PIC  X(20).
047300 10  ADDL-RESIDENTIAL-ADDR-IND
047400                      PIC  X.
047500 10  MARITAL-STATUS   PIC  X.
047600 10  DEPENDENT-INS-IND
047700                      PIC  X.
047800 10  INS-DEPENDENT-RELATION
047900                      PIC  X(15).
048000 10  INS-DEPENDENT-AMOUNT
048100                      PIC  S9(9)   COMP-3.
048200 10  BENE-NOT-DEPENDENT-INS-IND
048300                      PIC  X.
048400 10  OWNER-BENEFICIARY-RELATION
048500                      PIC  X(15).
048600 10  BENE-INS-INFORCE-PEND-IND
048700                      PIC  X.
048800 10  GROSS-ANNUAL-INCOME
048900                      PIC  X.
049000 10  INSURED-TOTAL-INCOME
049100                      PIC  X.
049200 10  INSURED-NET-WORTH
049300                      PIC  X(15).
049400 10  AGENT-MARKETING-TOOL
049500                      PIC  X.
049600 10  AGENT-SALES-AID1 PIC  X.
049700 10  AGENT-SALES-AID2 PIC  X.
049800 10  AGENT-SALES-AID3 PIC  X.
049900 10  CHANGE-REPLACE-INS-IND
050000                      PIC  X.
050100 10  IDH-INSURANCE-IND
050200                      PIC  X.
050300 10  IDH-INSURANCE-DATE
050400                      PIC  9(4).
050500 10  MKTG-FAM-MEMBER-IND
050600                      PIC  X.
050700 10  MKTG-PEND-INS-FAM-DTL-IND
050800                      PIC  X.
050900 10  PURPOSE1-FOR-INSURANCE
051000                      PIC  X.
051100 10  PURPOSE2-FOR-INSURANCE
051200                      PIC  X.
051300 10  PURPOSE3-FOR-INSURANCE
051400                      PIC  X.
051500 10  TYPE-OF-BUSINESS PIC  X.
051600 10  MARKETING-AO-CORP-PART-IND
051700                      PIC  X.
051800 10  BUSINESS-INSURANCE-AMT
051900                      PIC  S9(7)V99  COMP-3.
052000 10  BUSINESS-OFFICER-NAME
052100                      PIC  X(25).
052200 10  BUSINESS-OFFICER-TITLE
052300                      PIC  X(20).
052400 10  AMT-INS-OWNED-OTHERS1
052500                      PIC  S9(9)     COMP-3.
052600 10  AMT-INS-OWNED-OTHERS2
052700                      PIC  S9(9)     COMP-3.
052800 10  AMT-INS-OWNED-OTHERS3
052900                      PIC  S9(9)     COMP-3.
053000 10  KEY-EXECUTIVE-SALARY1
053100                      PIC  S9(9)     COMP-3.
053200 10  KEY-EXECUTIVE-SALARY2
053300                      PIC  S9(9)     COMP-3.
053400 10  KEY-EXECUTIVE-SALARY3
053500                      PIC  S9(9)     COMP-3.
053600 10  BUSINESS-MARKET-VALUE-AMT
053700                      PIC  S9(9)     COMP-3.
053800 10  BUSINESS-BOOK-VALUE
053900                      PIC  S9(9)     COMP-3.
054000 10  BUSINESS-OWNED-BY-INSURED-PCT
054100                      PIC  S999      COMP-3.
054200 10  BUSINESS-INS-PENDING-IND
054300                      PIC  X.
054400 10  ANNUAL-PLANNED-PREM
054500                      PIC  S9(7)V99  COMP-3.
054600 10  ANNUAL-REQUIRED-PREM
054700                      PIC  S9(7)V99  COMP-3.
054800 10  PREMIUM-PAYMENT-METHOD
054900                      PIC  X.
055000 10  AGENT-SIGNATURE-IND
055100                      PIC  X.
055200 10  GADA-MANAGER-SIGNATURE-IND
055300                      PIC  X.
055400 10  MKTG-ADDL-DTLS-IND
055500                      PIC  X.
055600 10  FILLER-9         PIC X(24).
055700 10  SPOUSE-CHILD-BEN-SEGM-IND
055800                      PIC  X.
055900 10  APPL-CONT-OWNER-SEGM-IND
056000                      PIC  X.
056100 10  MILITARY-SEGMENT-IND
056200                      PIC  X.
056300 10  ADDITIONAL-BENE-IND
056400                      PIC  X.
056500 10  PART-B-SEGMENT-IND
056600                      PIC  X.
056700 10  INSURED-PARAMED-SEGMENT-IND
056800                      PIC  X.
056900 10  SPOUSE-PARAMED-SEGMENT-IND
057000                      PIC  X.
057100 10  INSURED-MEDICAL-SEGMENT-IND
057200                      PIC  X.
057300 10  SPOUSE-MEDICAL-SEGMENT-IND
057400                      PIC  X.
057500 10  CASE-BROWSE-SEGMENT-IND
057600                      PIC  X.
057700 10  EXPERT-DECISION-IND
057800                      PIC  X.
057900 10  ISSUE-CLEAN-CASE-IND
058000                      PIC  X.
058100 10  CASE-BROWSE-INPUT-RECORD-IND
058200                      PIC  X.
058300 10  FILLER-10        PIC  X(250).
058400 10  SP-CHILD-APPL-ADDL-BEN-IND
058500                      PIC  X.
058600 10  SPOUSE-FIRST-NAME
058700                      PIC  X(14).
058800 10  SPOUSE-MI-NAME   PIC  X.
058900 10  SPOUSE-LAST-NAME PIC  X(20).
059000 10  SPOUSE-BIRTH-DATE
059100                      PIC  9(6).
059200 10  SPOUSE-AGE       PIC  S999      COMP-3.
059300 10  SPOUSE-FEET      PIC  9.
059400 10  SPOUSE-INCHES    PIC  99.
059500 10  SPOUSE-WEIGHT    PIC  999.
059600 10  SPOUSE-TOTAL-LIFE-INS-AMT
059700                      PIC  S9(7)     COMP-3.
059800 10  SPOUSE-OCCUPATION
059900                      PIC  X(40).
060000 10  SPOUSE-SMOKER-IND
060100                      PIC  X.
060200 10  SP-PACKS-CIGARETTES-DAY
060300                      PIC  S999V99   COMP-3.
060400 10  SPOUSE-NON-SMOKER-DISC-IND
060500                      PIC  X.
060600 10  SPOUSE-TOTAL-SUM-AMT
060700                      PIC  S9(9)     COMP-3.
060800 10  FILLER-11        PIC  X(10).
060900 10  SP-YRTL-STD-PREF-IND
061000                      PIC  X.
061100 10  SP-YRTL-BEN-IND  PIC  X.
061200 10  SP-YRTL-BEN-AMT  PIC  S9(7)     COMP-3.
061300 10  SP-YRTD-STD-PREF-IND
061400                      PIC  X.
061500 10  SP-YRTD-BEN-IND  PIC  X.
061600 10  SP-YRTD-BEN-AMT  PIC  S9(7)     COMP-3.
061700 10  SP-YRTD-BEN-INT-RT
061800                      PIC  S999V99   COMP-3.
061900 10  SP-YRTD-BEN-INT-YRS
062000                      PIC  99.
062100 10  SPOUSE-10YR-RENEW-TERM-BEN-IND
062200                      PIC  X.
062300 10  SPOUSE-10YR-RENEW-TERM-BEN-AMT
062400                      PIC  S9(7)      COMP-3.
062500 10  SP-OTHER-BEN-IND PIC  X.
062600 10  FILLER-12        PIC  X(10).
062700 10  CHILD-FIRST-NM1  PIC  X(14).
062800 10  CHILD-MI-NM1     PIC  X.
062900 10  CHILD-LAST-NAME1 PIC  X(20).
063000 10  CHILD-RELATIONSHIP1
063100                      PIC  X(15).
063200 10  CHILD-BIRTH-DATE1 PIC 9(6).
063300 10  CHILD-AGE1        PIC S999      COMP-3.
063400 10  CHILD-FEET1      PIC  9.
063500 10  CHILD-INCHES1    PIC  99.
063600 10  CHILD-WEIGHT1    PIC  999.
063700 10  CHILD-TOTAL-LIFE-INS1
063800                      PIC  S9(7)     COMP-3.
063900 10  FILLER-13        PIC  X(08).
064000 10  CHILD-FIRST-NM2  PIC  X(14).
064100 10  CHILD-MI-NM2     PIC  X.
064200 10  CHILD-LAST-NAME2 PIC  X(20).
064300 10  CHILD-RELATIONSHIP2
064400                      PIC  X(15).
064500 10  CHILD-BIRTH-DATE2 PIC 9(6).
064600 10  CHILD-AGE2        PIC S999      COMP-3.
064700 10  CHILD-FEET2      PIC  9.
064800 10  CHILD-INCHES2    PIC  99.
064900 10  CHILD-WEIGHT2    PIC  999.
065000 10  CHILD-TOTAL-LIFE-INS2
065100                      PIC  S9(7)     COMP-3.
065200 10  FILLER-14        PIC X(08).
065300 10  CHILD-FIRST-NM3  PIC  X(14).
065400 10  CHILD-MI-NM3     PIC  X.
065500 10  CHILD-LAST-NAME3 PIC  X(20).
065600 10  CHILD-RELATIONSHIP3
065700                      PIC  X(15).
065800 10  CHILD-BIRTH-DATE3 PIC 9(6).
065900 10  CHILD-AGE3        PIC S999      COMP-3.
066000 10  CHILD-FEET3      PIC  9.
066100 10  CHILD-INCHES3    PIC  99.
066200 10  CHILD-WEIGHT3    PIC  999.
066300 10  CHILD-TOTAL-LIFE-INS3
066400                      PIC  S9(7)     COMP-3.
066500 10  FILLER-15        PIC  X(08).
066600 10  CHILD-FIRST-NM4  PIC  X(14).
066700 10  CHILD-MI-NM4     PIC  X.
066800 10  CHILD-LAST-NAME4 PIC  X(20).
066900 10  CHILD-RELATIONSHIP4
067000                      PIC  X(15).
067100 10  CHILD-BIRTH-DATE4 PIC 9(6).
067200 10  CHILD-AGE4        PIC S999      COMP-3.
067300 10  CHILD-FEET4      PIC  9.
067400 10  CHILD-INCHES4    PIC  99.
067500 10  CHILD-WEIGHT4    PIC  999.
067600 10  CHILD-TOTAL-LIFE-INS4
067700                      PIC  S9(7)     COMP-3.
067800 10  FILLER-16        PIC X(08).
067900 10  CHILD-FIRST-NM5  PIC  X(14).
068000 10  CHILD-MI-NM5     PIC  X.
068100 10  CHILD-LAST-NAME5 PIC  X(20).
068200 10  CHILD-RELATIONSHIP5
068300                      PIC  X(15).
068400 10  CHILD-BIRTH-DATE5 PIC  9(6).
068500 10  CHILD-AGE5        PIC S999      COMP-3.
068600 10  CHILD-FEET5      PIC  9.
068700 10  CHILD-INCHES5    PIC  99.
068800 10  CHILD-WEIGHT5    PIC  999.
068900 10  CHILD-TOTAL-LIFE-INS5
069000                      PIC  S9(7)     COMP-3.
069100 10  FILLER-17        PIC  X(08).
069200 10  CHILD-FIRST-NM6  PIC  X(14).
069300 10  CHILD-MI-NM6     PIC  X.
069400 10  CHILD-LAST-NAME6 PIC  X(20).
069500 10  CHILD-RELATIONSHIP6
069600                      PIC  X(15).
069700 10  CHILD-BIRTH-DATE6 PIC 9(6).
069800 10  CHILD-AGE6        PIC S999      COMP-3.
069900 10  CHILD-FEET6      PIC  9.
070000 10  CHILD-INCHES6    PIC  99.
070100 10  CHILD-WEIGHT6    PIC  999.
070200 10  CHILD-TOTAL-LIFE-INS6
070300                      PIC  S9(7)     COMP-3.
070400 10  FILLER-18        PIC X(08).
070500 10  CHILD-BENEFIT-IND PIC  X.
070600 10  CHILD-BEN-AMT    PIC  S9(5)     COMP-3.
070700 10  CHILD-YET-IND      PIC  X.
070800 10  NUMBER-OF-CHILDREN PIC  99.
070900 10  CHILD-EXCLUSION-IND
071000                      PIC  X.
071100 10  NUMBER-OF-CHILD-EXCLUDED
071200                      PIC  99.
071300 10  NAME-OF-CHILD-EXCLUDED1
071400                      PIC  X(35).
071500 10  NAME-OF-CHILD-EXCLUDED2
071600                      PIC  X(35).
071700 10  NAME-OF-CHILD-EXCLUDED3
071800                      PIC  X(35).
071900 10  CHILD-SEEN-AGENT-IND
072000                      PIC  X.
072100 10  CHILD-RESIDE-HOME-IND
072200                      PIC  X.
072300 10  CHILD-HOME-COND-IND
072400                      PIC  X.
072500 10  FILLER-19        PIC  X(29).
072600 10  MILITARY-LINE1-ADDR
072700                      PIC  X(20).
072800 10  MILITARY-LINE2-ADDR
072900                      PIC  X(20).
073000 10  MILITARY-LINE3-ADDR
073100                      PIC  X(20).
073200 10  MILITARY-LINE4-ADDR
073300                      PIC  X(20).
073400 10  MILITARY-LINE1-PERM-ADDR
073500                      PIC  X(20).
073600 10  MILITARY-LINE2-PERM-ADDR
073700                      PIC  X(20).
073800 10  MILITARY-LINE3-PERM-ADDR
073900                      PIC  X(20).
074000 10  MILITARY-LINE4-PERM-ADDR
074100                      PIC  X(20).
074200 10  MILITARY-PAY-GRADE PIC  XXX.
074300 10  MILITARY-SERIAL-NO PIC  X(9).
074400 10  MILITARY-DISCHARGE-DATE
074500                      PIC  9(4).
074600 10  MILITARY-ALLOT-BRANCH-CODE
074700                      PIC  X(23).
074800 10  MILITARY-ALLOT-DATE                                          JAA90086
074900                      PIC  9(6).                                  JAA90086
075000 10  FILLER-20        PIC  X(45).                                 JAA90086
075100 10  BENEFICIARY-NAME2 PIC  X(25).
075200 10  BENEFICIARY-RELATIONSHIP2
075300                      PIC  X(15).
075400 10  BENEFICIARY-NAME3 PIC  X(25).
075500 10  BENEFICIARY-RELATIONSHIP3
075600                      PIC  X(15).
075700 10  BENEFICIARY-NAME4 PIC  X(25).
075800 10  BENEFICIARY-RELATIONSHIP4
075900                      PIC  X(15).
076000 10  ADDL-BENEFICIARY-OVER4-IND
076100                      PIC  X.
076200 10  FILLER-21        PIC  X(34).
076300 10  APPLICANT-OWNER-WAIVER-IND
076400                      PIC  X.
076500 10  APPLICANT-OWNER-TOTAL-INS-AMT
076600                      PIC  S9(7)    COMP-3.
076700 10  OWNER-NAME       PIC  X(35).
076800 10  OWNER-BUSINESS-NAME
076900                      PIC  X(50).
077000 10  OWNER-BIRTH-DATE PIC  9(6).
077100 10  APPLICANT-OWNER-AGE
077200                      PIC  S999     COMP-3.
077300 10  OWNER-FEET       PIC  9.
077400 10  OWNER-INCHES     PIC  99.
077500 10  OWNER-WEIGHT     PIC  999.
077600 10  OWNER-RELATIONSHIP
077700                      PIC  X(15).
077800 10  CONT-OWNER-IND   PIC  X.
077900 10  CONT-OWN-FIRST-MI-NAME
078000                      PIC  X(15).
078100 10  CONT-OWN-LAST-NAME
078200                      PIC  X(20).
078300 10  CONT-OWN-AGE     PIC  S999      COMP-3.
078400 10  CONT-OWNER-RELATIONSHIP
078500                      PIC  X(15).
078600 10  JUV-SEEN-AGENT-IND
078700                      PIC  X.
078800 10  JUV-RESIDES-WITH-WHOM
078900                      PIC  X(15).
079000 10  JUV-SCHOOL-IND   PIC  X.
079100 10  JUV-SCHOOL-GRADE PIC  XX.
079200 10  JUV-HOME-COND-IND
079300                      PIC  X.
079400 10  FILLER-22        PIC  X(33).
079500 10  PARTB-QUESTION-1-3-IND
079600                      PIC  X.
079700 10  PARTB-QUESTION-1-3-DTL-IND
079800                      PIC  X.
079900*
080000 10  PARTB-QUESTION-1A-IND
080100                      PIC  X.
080200 10  PARTB-QUESTION-1B-IND
080300                      PIC  X.
080400 10  PARTB-QUESTION-2-IND
080500                      PIC  X.
080600 10  PARTB-QUESTION-3A-IND
080700                      PIC  X.
080800 10  PARTB-QUESTION-3B-IND
080900                      PIC  X.
081000 10  PARTB-PER-PHYS-STATUS-CD
081100                      PIC  X.
081200 10  PARTB-PHYSICIAN-FULL-NAME
081300                      PIC  X(35).
081400 10  PHYSICIAN-ADDRESS1
081500                      PIC  X(20).
081600 10  PHYSICIAN-ADDRESS2
081700                      PIC  X(20).
081800 10  PHYSICIAN-ADDRESS3
081900                      PIC  X(20).
082000 10  PHYSICIAN-ADDRESS4
082100                      PIC  X(20).
082200 10  PHYSICIAN-PARTB-ZIP
082300                      PIC  X(5).
082400 10  PARTB-PHYSICIAN-REASON
082500                      PIC  X(50).
082600 10  PARTB-LAST-DATE-SEEN
082700                      PIC  9(6).
082800 10  FILLER-23        PIC  X(7).
082900*10  PART-B-ADDL-DTL-KEY1.
083000 10  PARTB-DTL-DETAIL-NO1
083100                      PIC  9.
083200 10  PARTB-DTL-QUESTION-NO1
083300                      PIC  XX.
083400 10  PARTB-DETAIL-ADDR1B-OF-DOCTOR1                               JAA90086
083500                      PIC  X(20).                                 JAA90086
083600 10  FILLER           PIC  X(5).                                  JAA90086
083700 10  PART-B-DTL-RELATION-CD1
083800                      PIC  X(15).
083900 10  PARTB-DETAIL-NAME-OF-DOCTOR1
084000                      PIC  X(20).
084100 10  PARTB-DETAIL-ADDR1-OF-DOCTOR1
084200                      PIC  X(20).
084300 10  PARTB-DETAIL-ADDR2-OF-DOCTOR1
084400                      PIC  X(20).
084500 10  PARTB-DETAIL-ADDR3-OF-DOCTOR1
084600                      PIC  X(20).
084700 10  PARTB-DETAIL-ZIP-CD-OF-DOCTOR1
084800                      PIC  X(5).
084900 10  PARTB-DETAIL-TEXT1
085000                      PIC  X(150).
085100*10  PART-B-ADDL-DTL-KEY2.
085200 10  PARTB-DTL-DETAIL-NO2
085300                      PIC  9.
085400 10  PARTB-DTL-QUESTION-NO2
085500                      PIC  XX.
085600 10  PARTB-DETAIL-ADDR1B-OF-DOCTOR2                               JAA90086
085700                      PIC  X(20).                                 JAA90086
085800 10  FILLER           PIC  X(5).                                  JAA90086
085900 10  PART-B-DTL-RELATION-CD2
086000                      PIC  X(15).
086100 10  PARTB-DETAIL-NAME-OF-DOCTOR2
086200                      PIC  X(20).
086300 10  PARTB-DETAIL-ADDR1-OF-DOCTOR2
086400                      PIC  X(20).
086500 10  PARTB-DETAIL-ADDR2-OF-DOCTOR2
086600                      PIC  X(20).
086700 10  PARTB-DETAIL-ADDR3-OF-DOCTOR2
086800                      PIC  X(20).
086900 10  PARTB-DETAIL-ZIP-CD-OF-DOCTOR2
087000                      PIC  X(5).
087100 10  PARTB-DETAIL-TEXT2
087200                      PIC  X(150).
087300*10  PART-B-ADDL-DTL-KEY3.
087400 10  PARTB-DTL-DETAIL-NO3
087500                      PIC  9.
087600 10  PARTB-DTL-QUESTION-NO3
087700                      PIC  XX.
087800 10  PARTB-DETAIL-ADDR1B-OF-DOCTOR3                               JAA90086
087900                      PIC  X(20).                                 JAA90086
088000 10  FILLER           PIC  X(5).                                  JAA90086
088100 10  PART-B-DTL-RELATION-CD3
088200                      PIC  X(15).
088300 10  PARTB-DETAIL-NAME-OF-DOCTOR3
088400                      PIC  X(20).
088500 10  PARTB-DETAIL-ADDR1-OF-DOCTOR3
088600                      PIC  X(20).
088700 10  PARTB-DETAIL-ADDR2-OF-DOCTOR3
088800                      PIC  X(20).
088900 10  PARTB-DETAIL-ADDR3-OF-DOCTOR3
089000                      PIC  X(20).
089100 10  PARTB-DETAIL-ZIP-CD-OF-DOCTOR3
089200                      PIC  X(5).
089300 10  PARTB-DETAIL-TEXT3
089400                      PIC  X(150).
089500*10  PART-B-ADDL-DTL-KEY4.
089600 10  PARTB-DTL-DETAIL-NO4
089700                      PIC  9.
089800 10  PARTB-DTL-QUESTION-NO4
089900                      PIC  XX.
090000 10  PARTB-DETAIL-ADDR1B-OF-DOCTOR4                               JAA90086
090100                      PIC  X(20).                                 JAA90086
090200 10  FILLER           PIC  X(5).                                  JAA90086
090300 10  PART-B-DTL-RELATION-CD4
090400                      PIC  X(15).
090500 10  PARTB-DETAIL-NAME-OF-DOCTOR4
090600                      PIC  X(20).
090700 10  PARTB-DETAIL-ADDR1-OF-DOCTOR4
090800                      PIC  X(20).
090900 10  PARTB-DETAIL-ADDR2-OF-DOCTOR4
091000                      PIC  X(20).
091100 10  PARTB-DETAIL-ADDR3-OF-DOCTOR4
091200                      PIC  X(20).
091300 10  PARTB-DETAIL-ZIP-CD-OF-DOCTOR4
091400                      PIC  X(5).
091500 10  PARTB-DETAIL-TEXT4
091600                      PIC  X(150).
091700 10  PARTB-ADDITIONAL-DTL-CD
091800                      PIC  X.
091900 10  PARTB-STATE      PIC  XX.
092000 10  PARTB-DATE       PIC  9(6).
092100 10  PARTB-SIGNATURE-IND
092200                      PIC  X.
092300 10  PARTB-SPS-SIGNATURE-IND
092400                      PIC  X.
092500 10  PARTB-PARENT-SIGNED-IND                                      JAA90086
092600                      PIC  X.
092700 10  PARTB-OTHER-SIGNED-IND
092800                      PIC  X.
092900 10  PARTB-SIGNATURE-RELATIONSHIP
093000                      PIC  X(15).
093100 10  PARTB-WITNESS-IND
093200                      PIC  X.
093300 10  PARTB-SIG-OTHER-FIRST-NAME
093400                      PIC  X(14).
093500 10  PARTB-SIG-OTHER-MI-NAME
093600                      PIC  X.
093700 10  PARTB-SIG-OTHER-LAST-NAME
093800                      PIC  X(20).
093900 10  PARTB-GUARDIAN-SIGNED-IND                                    JAA90086
094000                      PIC  X.                                     JAA90086
094100 10  FILLER-24        PIC  X(132).                                JAA90086
094200 10  P1-EXAM-REPORT-TYPE-CODE
094300                      PIC  9.
094400 10  P1-EXAM-QUES-2-8-IND
094500                      PIC  X.
094600 10  P1-EXAM-QUES-2A-2L-IND
094700                      PIC  X.
094800 10  P1-EXAM-DETAIL-QUES-2-9-IND
094900                      PIC  X.
095000*
095100 10  P1-DISORDERS1    PIC  X.
095200 10  P1-DISORDERS2    PIC  X.
095300 10  P1-DISORDERS3    PIC  X.
095400 10  P1-DISORDERS4    PIC  X.
095500 10  P1-DISORDERS5    PIC  X.
095600 10  P1-DISORDERS6    PIC  X.
095700 10  P1-DISORDERS7    PIC  X.
095800 10  P1-DISORDERS8    PIC  X.
095900 10  P1-DISORDERS9    PIC  X.
096000 10  P1-DISORDERS10   PIC  X.
096100 10  P1-DISORDERS11   PIC  X.
096200 10  P1-DISORDERS12   PIC  X.
096300 10  P1-NON-PRESCRIBE-DRUG
096400                      PIC  X.
096500 10  P1-PRESCRIBED-DRUG-CD
096600                      PIC  X.
096700 10  P1-WEIGHT-CHANGE PIC  X.
096800 10  P1-WEIGHT-GAIN   PIC  999.
096900 10  P1-WEIGHT-LOSS   PIC  999.
097000 10  P1-EXAM-QUES-6A-6E-IND
097100                      PIC  X.
097200 10  P1-ADDL-DISORDER-CD1 PIC  X.
097300 10  P1-ADDL-DISORDER-CD2 PIC  X.
097400 10  P1-ADDL-DISORDER-CD3 PIC  X.
097500 10  P1-ADDL-DISORDER-CD4 PIC  X.
097600 10  P1-ADDL-DISORDER-CD5 PIC  X.
097700 10  P1-MILITARY-DEFER-IND
097800                          PIC  X.
097900 10  P1-PENSION-BEN-IND   PIC  X.
098000 10  P1-PREGNANCY-IND     PIC  X.
098100 10  P1-PREGNANCY-DUE-DT  PIC  9(6).
098200 10  P1-EXAM-PERSONAL-PHYS-IND
098300                      PIC  X.
098400 10  P1-EXAM-PHYS-NAME
098500                      PIC  X(35).
098600 10  P1-EXAM-PHYS-ADDRESS1
098700                      PIC  X(20).
098800 10  P1-EXAM-PHYS-ADDRESS2
098900                      PIC  X(20).
099000 10  P1-EXAM-PHYS-ADDRESS3
099100                      PIC  X(20).
099200 10  P1-EXAM-PHYS-ADDRESS4
099300                      PIC  X(20).
099400 10  P1-EXAM-PHYSICIAN-ZIP-CD
099500                      PIC  X(5).
099600 10  P1-EXAM-PHYS-CONSULT-CD
099700                      PIC  X.
099800 10  P1-FAMILY-HIST-CD
099900                      PIC  X.
100000 10  P1-FATHER-AGE    PIC  S999      COMP-3.
100100 10  P1-FATHER-CAUSE-OF-DEATH
100200                      PIC  X(20).
100300 10  P1-FATHER-AGE-DEATH
100400                      PIC  S999      COMP-3.
100500 10  P1-MOTHER-AGE
100600                      PIC  S999      COMP-3.
100700 10  P1-MOTHER-CAUSE-OF-DEATH
100800                      PIC  X(20).
100900 10  P1-MOTHER-AGE-DEATH
101000                      PIC  S999      COMP-3.
101100 10  P1-SIBLING-LIVE  PIC  99.
101200 10  P1-SIBLING-DEAD  PIC  99.
101300 10  P1-PMED-AGE-LAST-BDAY
101400                      PIC  99.
101500 10  P1-PMED-SEX      PIC  X.
101600 10  P1-PMED-APPEARANCE PIC  X.
101700 10  P1-PMED-PHYS-ABNORMALITY
101800                      PIC  X.
101900 10  P1-PMED-SMOKER-IND  PIC  X.
102000 10  P1-PMED-SMOKER-DATE PIC  9(6).
102100 10  P1-EXAM-FEET     PIC  9.
102200 10  P1-EXAM-INCHES   PIC  99.
102300 10  P1-MED-HEIGHT-BY-EXAM-IND
102400                      PIC  X.
102500 10  P1-EXAM-WEIGHT   PIC  999.
102600 10  P1-MED-WEIGHT-BY-EXAM-IND
102700                      PIC  X.
102800 10  P1-MED-WEIGHT-CHG-IND
102900                      PIC  X.
103000 10  P1-CHEST-INSPIRATION
103100                      PIC  99.
103200 10  P1-CHEST-EXPIRATION PIC  99.
103300 10  P1-ABDOMEN-CIRCUMFERENCE
103400                      PIC  99.
103500 10  P1-SYSTOLIC-BLOOD-PRESSURE1
103600                      PIC  999.
103700 10  P1-DIASTOLIC-BLOOD-PRESSURE1
103800                      PIC  999.
103900 10  P1-SYSTOLIC-BLOOD-PRESSURE2
104000                      PIC  999.
104100 10  P1-DIASTOLIC-BLOOD-PRESSURE2
104200                      PIC  999.
104300 10  P1-SYSTOLIC-BLOOD-PRESSURE3
104400                      PIC  999.
104500 10  P1-DIASTOLIC-BLOOD-PRESSURE3
104600                      PIC  999.
104700 10  P1-SYSTOLIC-BLOOD-PRESSURE4
104800                      PIC  999.
104900 10  P1-DIASTOLIC-BLOOD-PRESSURE4
105000                      PIC  999.
105100 10  P1-SYSTOLIC-BLOOD-PRESSURE5
105200                      PIC  999.
105300 10  P1-DIASTOLIC-BLOOD-PRESSURE5
105400                      PIC  999.
105500 10  P1-SYSTOLIC-BLOOD-PRESSURE6
105600                      PIC  999.
105700 10  P1-DIASTOLIC-BLOOD-PRESSURE6
105800                      PIC  999.
105900 10  P1-SYSTOLIC-BLOOD-PRESSURE7
106000                      PIC  999.
106100 10  P1-DIASTOLIC-BLOOD-PRESSURE7
106200                      PIC  999.
106300 10  P1-SYSTOLIC-BLOOD-PRESSURE8
106400                      PIC  999.
106500 10  P1-DIASTOLIC-BLOOD-PRESSURE8
106600                      PIC  999.
106700 10  P1-EXAM-ADDL-BLOOD-PRESS-IND
106800                      PIC  X.
106900 10  P1-BLOOD-PRESS-SYSTOLIC-AVG
107000                      PIC  999.
107100 10  P1-BLOOD-PRESS-DIASTOLIC-AVG
107200                       PIC  999.
107300 10  P1-PULSE-PER-MIN1 PIC  999.
107400 10  P1-PULSE-PER-MIN2 PIC  999.
107500 10  P1-PULSE-PER-MIN3 PIC  999.
107600 10  P1-MED-ADDL-PULSE-IND
107700                      PIC  X.
107800 10  P1-EXAM-PULSE-IRREG-IND
107900                      PIC  X.
108000 10  P1-PULSE-IRREG-PER-MIN1
108100                      PIC  999.
108200 10  P1-PULSE-IRREG-PER-MIN2
108300                      PIC  999.
108400 10  P1-PULSE-IRREG-PER-MIN3
108500                      PIC  999.
108600 10  P1-MED-HEART-ENLARGEMENT
108700                      PIC  X.
108800 10  P1-MED-HEART-DYSPNEA
108900                      PIC  X.
109000 10  P1-MED-HEART-EDEMA
109100                      PIC  X.
109200 10  P1-MED-HEART-MURMUR
109300                      PIC  X.
109400 10  P1-MED-QUES-15-17-IND
109500                      PIC  X.
109600 10  P1-MED-QUES-15-17-DTL-IND
109700                      PIC  X.
109800 10  P1-MED-ABNORMALITIES1
109900                      PIC  X.
110000 10  P1-MED-ABNORMALITIES2
110100                      PIC  X.
110200 10  P1-MED-ABNORMALITIES3
110300                      PIC  X.
110400 10  P1-MED-ABNORMALITIES4
110500                      PIC  X.
110600 10  P1-MED-ABNORMALITIES5
110700                      PIC  X.
110800 10  P1-MED-ABNORMALITIES6
110900                      PIC  X.
111000 10  P1-MED-ABNORMALITIES7
111100                      PIC  X.
111200 10  P1-MED-ABNORMALITIES8
111300                      PIC  X.
111400 10  P1-MED-HERNIA    PIC  X.
111500 10  P1-MED-HEMORROIDS
111600                      PIC  X.
111700 10  P1-MED-OTHER-HISTORY-IND
111800                      PIC  X.
111900 10  P1-ALBUMIN       PIC  X(10).
112000 10  P1-SUGAR         PIC  X(10).
112100 10  P1-OTHER-URINALYSIS
112200                      PIC  X(20).
112300 10  P1-HO-SPECIMEN-IND
112400                      PIC  X.
112500 10  P1-PMED-MEDICATION-IND
112600                      PIC  X.
112700 10  P1-PMED-MEDICATION-SPECIFIED
112800                      PIC  X(50).
112900 10  P1-MENSTRUATION  PIC  X.
113000 10  P1-XRAY-IND      PIC  X.
113100 10  P1-EKG-CD        PIC  X.
113200 10  P1-VITAL-CAPACITY-IND
113300                      PIC  X.
113400 10  P1-VITAL-CAPACITY-VALUE1
113500                      PIC  X(10).
113600 10  P1-VITAL-CAPACITY-VALUE2
113700                      PIC  X(10).
113800 10  P1-PMED-BLOOD-STUDY-IND
113900                      PIC  X.
114000 10  P1-PMED-HEMOGLOBIN-GMS
114100                      PIC  9(8)V99.
114200 10  P1-PMED-HEMOTOCRIT
114300                      PIC  9(8)V99.
114400 10  P1-PMED-OTHER-STUDIES
114500                      PIC  X.
114600 10  P1-EXAM-PARTB-SIG-IND
114700                      PIC  X.
114800 10  P1-EXAM-PARTB-DATE
114900                      PIC  9(6).
115000 10  P1-EXAM-PARTB-WITNESS-IND
115100                      PIC  X.
115200 10  P1-EXAM-PARTB-STATE-CD
115300                      PIC  XX.
115400 10  P1-EXAM-PARTC-SIGN-IND
115500                      PIC  X.
115600 10  P1-EXAM-PARTC-DATE
115700                      PIC  9(6).
115800*10  P1-EXAM-PARTB-DTL-KEY1.
115900 10  P1-EXAM-FORM-ID1
116000                      PIC  X.
116100 10  P1-EXAM-PERSON-CD1
116200                      PIC  XX.
116300 10  P1-EXAM-DETAIL-NO1
116400                      PIC  9.
116500 10  P1-EXAM-QUESTION-NO1
116600                      PIC  XX.
116700 10  P1-EXAM-DOCTORS-NAME1
116800                      PIC  X(25).
116900 10  P1-EXAM-DOCTOR-L1-ADDR1
117000                      PIC  X(20).
117100 10  P1-EXAM-DOCTOR-L2-ADDR1
117200                      PIC  X(20).
117300 10  P1-EXAM-DOCTOR-L3-ADDR1
117400                      PIC  X(20).
117500 10  P1-EXAM-DOCTOR-ZIP-CODE1
117600                      PIC  X(5).
117700 10  P1-EXAM-TEXT1    PIC  X(250).
117800*10  P1-EXAM-PARTB-DTL-KEY2.
117900 10  P1-EXAM-FORM-ID2
118000                      PIC  X.
118100 10  P1-EXAM-PERSON-CD2
118200                      PIC  XX.
118300 10  P1-EXAM-DETAIL-NO2
118400                      PIC  9.
118500 10  P1-EXAM-QUESTION-NO2
118600                      PIC  XX.
118700 10  P1-EXAM-DOCTORS-NAME2
118800                      PIC  X(25).
118900 10  P1-EXAM-DOCTOR-L1-ADDR2
119000                      PIC  X(20).
119100 10  P1-EXAM-DOCTOR-L2-ADDR2
119200                      PIC  X(20).
119300 10  P1-EXAM-DOCTOR-L3-ADDR2
119400                      PIC  X(20).
119500 10  P1-EXAM-DOCTOR-ZIP-CODE2
119600                      PIC  X(5).
119700 10  P1-EXAM-TEXT2    PIC  X(250).
119800*10  P1-EXAM-PARTB-DTL-KEY3.
119900 10  P1-EXAM-FORM-ID3
120000                      PIC  X.
120100 10  P1-EXAM-PERSON-CD3
120200                      PIC  XX.
120300 10  P1-EXAM-DETAIL-NO3
120400                      PIC  9.
120500 10  P1-EXAM-QUESTION-NO3
120600                      PIC  XX.
120700 10  P1-EXAM-DOCTORS-NAME3
120800                      PIC  X(25).
120900 10  P1-EXAM-DOCTOR-L1-ADDR3
121000                      PIC  X(20).
121100 10  P1-EXAM-DOCTOR-L2-ADDR3
121200                      PIC  X(20).
121300 10  P1-EXAM-DOCTOR-L3-ADDR3
121400                      PIC  X(20).
121500 10  P1-EXAM-DOCTOR-ZIP-CODE3
121600                      PIC  X(5).
121700 10  P1-EXAM-TEXT3    PIC  X(250).
121800*10  P1-EXAM-PARTB-DTL-KEY4.
121900 10  P1-EXAM-FORM-ID4
122000                      PIC  X.
122100 10  P1-EXAM-PERSON-CD4
122200                      PIC  XX.
122300 10  P1-EXAM-DETAIL-NO4
122400                      PIC  9.
122500 10  P1-EXAM-QUESTION-NO4
122600                      PIC  XX.
122700 10  P1-EXAM-DOCTORS-NAME4
122800                      PIC  X(25).
122900 10  P1-EXAM-DOCTOR-L1-ADDR4
123000                      PIC  X(20).
123100 10  P1-EXAM-DOCTOR-L2-ADDR4
123200                      PIC  X(20).
123300 10  P1-EXAM-DOCTOR-L3-ADDR4
123400                      PIC  X(20).
123500 10  P1-EXAM-DOCTOR-ZIP-CODE4
123600                      PIC  X(5).
123700 10  P1-EXAM-TEXT4    PIC  X(250).
123800 10  P1-EXAM-PARTB-ADDL-DTL-IND
123900                      PIC  X.
124000*10  P1-MEDICAL-EXAM-DTL-KEY1.
124100 10  P1-MEDICAL-DETAIL-FORM-ID1
124200                      PIC  X.
124300 10  P1-MEDICAL-DETAIL-PERSON-CD1
124400                      PIC  XX.
124500 10  P1-MEDICAL-DETAIL-DTL-NO1
124600                      PIC  9.
124700 10  P1-MEDICAL-DETAIL-QUESTION-NO1
124800                      PIC  XXX.
124900 10  P1-MEDICAL-DETAIL-TEXT1
125000                      PIC  X(100).
125100*10  P1-MEDICAL-EXAM-DTL-KEY2.
125200 10  P1-MEDICAL-DETAIL-FORM-ID2
125300                      PIC  X.
125400 10  P1-MEDICAL-DETAIL-PERSON-CD2
125500                      PIC  XX.
125600 10  P1-MEDICAL-DETAIL-DTL-NO2
125700                      PIC  9.
125800 10  P1-MEDICAL-DETAIL-QUESTION-NO2
125900                      PIC  XXX.
126000 10  P1-MEDICAL-DETAIL-TEXT2
126100                      PIC  X(100).
126200*10  P1-MEDICAL-EXAM-DTL-KEY3.
126300 10  P1-MEDICAL-DETAIL-FORM-ID3
126400                      PIC  X.
126500 10  P1-MEDICAL-DETAIL-PERSON-CD3
126600                      PIC  XX.
126700 10  P1-MEDICAL-DETAIL-DTL-NO3
126800                      PIC  9.
126900 10  P1-MEDICAL-DETAIL-QUESTION-NO3
127000                      PIC  XXX.
127100 10  P1-MEDICAL-DETAIL-TEXT3
127200                      PIC  X(100).
127300 10  P1-EXAM-DOCTOR-L1B-ADDR1                                     JAA90086
127400                      PIC  X(20).                                 JAA90086
127500 10  P1-EXAM-DOCTOR-L1B-ADDR2                                     JAA90086
127600                      PIC  X(20).                                 JAA90086
127700 10  P1-EXAM-DOCTOR-L1B-ADDR3                                     JAA90086
127800                      PIC  X(20).                                 JAA90086
127900 10  P1-EXAM-DOCTOR-L1B-ADDR4                                     JAA90086
128000                      PIC  X(20).                                 JAA90086
128100 10  FILLER-25        PIC X(75).                                  JAA90086
128200 10  P2-EXAM-REPORT-TYPE-CODE
128300                      PIC  9.
128400 10  P2-EXAM-QUES-2-8-IND
128500                      PIC  X.
128600 10  P2-EXAM-QUES-2A-2L-IND
128700                      PIC  X.
128800 10  P2-EXAM-DETAIL-QUES-2-9-IND
128900                      PIC  X.
129000 10  P2-DISORDERS1    PIC  X.
129100 10  P2-DISORDERS2    PIC  X.
129200 10  P2-DISORDERS3    PIC  X.
129300 10  P2-DISORDERS4    PIC  X.
129400 10  P2-DISORDERS5    PIC  X.
129500 10  P2-DISORDERS6    PIC  X.
129600 10  P2-DISORDERS7    PIC  X.
129700 10  P2-DISORDERS8    PIC  X.
129800 10  P2-DISORDERS9    PIC  X.
129900 10  P2-DISORDERS10   PIC  X.
130000 10  P2-DISORDERS11   PIC  X.
130100 10  P2-DISORDERS12   PIC  X.
130200 10  P2-NON-PRESCRIBE-DRUG
130300                      PIC  X.
130400 10  P2-PRESCRIBED-DRUG-CD
130500                      PIC  X.
130600 10  P2-WEIGHT-CHANGE PIC  X.
130700 10  P2-WEIGHT-GAIN   PIC  999.
130800 10  P2-WEIGHT-LOSS   PIC  999.
130900 10  P2-EXAM-QUES-6A-6E-IND
131000                      PIC  X.
131100 10  P2-ADDL-DISORDER-CD1 PIC  X.
131200 10  P2-ADDL-DISORDER-CD2 PIC  X.
131300 10  P2-ADDL-DISORDER-CD3 PIC  X.
131400 10  P2-ADDL-DISORDER-CD4 PIC  X.
131500 10  P2-ADDL-DISORDER-CD5 PIC  X.
131600 10  P2-MILITARY-DEFER-IND
131700                      PIC  X.
131800 10  P2-PENSION-BEN-IND   PIC  X.
131900 10  P2-PREGNANCY-IND     PIC  X.
132000 10  P2-PREGNANCY-DUE-DT  PIC  9(6).
132100 10  P2-EXAM-PERSONAL-PHYS-IND
132200                      PIC  X.
132300 10  P2-EXAM-PHYS-NAME
132400                      PIC  X(35).
132500 10  P2-EXAM-PHYS-ADDRESS1
132600                      PIC  X(20).
132700 10  P2-EXAM-PHYS-ADDRESS2
132800                      PIC  X(20).
132900 10  P2-EXAM-PHYS-ADDRESS3
133000                      PIC  X(20).
133100 10  P2-EXAM-PHYS-ADDRESS4
133200                      PIC  X(20).
133300 10  P2-EXAM-PHYSICIAN-ZIP
133400                      PIC  X(5).
133500 10  P2-EXAM-PHYS-CONSULT-CD
133600                      PIC  X.
133700 10  P2-FAMILY-HIST-CD
133800                      PIC  X.
133900 10  P2-FATHER-AGE    PIC  S999      COMP-3.
134000 10  P2-FATHER-CAUSE-OF-DEATH
134100                      PIC  X(20).
134200 10  P2-FATHER-AGE-DEATH
134300                      PIC  S999      COMP-3.
134400 10  P2-MOTHER-AGE
134500                      PIC  S999      COMP-3.
134600 10  P2-MOTHER-CAUSE-OF-DEATH
134700                      PIC  X(20).
134800 10  P2-MOTHER-AGE-DEATH
134900                      PIC  S999      COMP-3.
135000 10  P2-SIBLING-LIVE  PIC  99.
135100 10  P2-SIBLING-DEAD  PIC  99.
135200 10  P2-PMED-AGE-LAST-BDAY
135300                      PIC  99.
135400 10  P2-PMED-SEX      PIC  X.
135500 10  P2-PMED-APPEARANCE PIC  X.
135600 10  P2-PMED-PHYS-ABNORMALITY
135700                      PIC  X.
135800 10  P2-PMED-SMOKER-IND  PIC  X.
135900 10  P2-PMED-SMOKER-DATE PIC  9(6).
136000 10  P2-EXAM-FEET     PIC  9.
136100 10  P2-EXAM-INCHES   PIC  99.
136200 10  P2-MED-HEIGHT-BY-EXAM-IND
136300                      PIC  X.
136400 10  P2-EXAM-WEIGHT   PIC  999.
136500 10  P2-MED-WEIGHT-BY-EXAM-IND
136600                      PIC  X.
136700 10  P2-MED-WEIGHT-CHG-IND
136800                      PIC  X.
136900 10  P2-CHEST-INSPIRATION
137000                      PIC  99.
137100 10  P2-CHEST-EXPIRATION PIC  99.
137200 10  P2-ABDOMEN-CIRCUMFERENCE
137300                      PIC  99.
137400 10  P2-SYSTOLIC-BLOOD-PRESSURE1
137500                      PIC  999.
137600 10  P2-DIASTOLIC-BLOOD-PRESSURE1
137700                      PIC  999.
137800 10  P2-SYSTOLIC-BLOOD-PRESSURE2
137900                      PIC  999.
138000 10  P2-DIASTOLIC-BLOOD-PRESSURE2
138100                      PIC  999.
138200 10  P2-SYSTOLIC-BLOOD-PRESSURE3
138300                      PIC  999.
138400 10  P2-DIASTOLIC-BLOOD-PRESSURE3
138500                      PIC  999.
138600 10  P2-SYSTOLIC-BLOOD-PRESSURE4
138700                      PIC  999.
138800 10  P2-DIASTOLIC-BLOOD-PRESSURE4
138900                      PIC  999.
139000 10  P2-SYSTOLIC-BLOOD-PRESSURE5
139100                      PIC  999.
139200 10  P2-DIASTOLIC-BLOOD-PRESSURE5
139300                      PIC  999.
139400 10  P2-SYSTOLIC-BLOOD-PRESSURE6
139500                      PIC  999.
139600 10  P2-DIASTOLIC-BLOOD-PRESSURE6
139700                      PIC  999.
139800 10  P2-SYSTOLIC-BLOOD-PRESSURE7
139900                      PIC  999.
140000 10  P2-DIASTOLIC-BLOOD-PRESSURE7
140100                      PIC  999.
140200 10  P2-SYSTOLIC-BLOOD-PRESSURE8
140300                      PIC  999.
140400 10  P2-DIASTOLIC-BLOOD-PRESSURE8
140500                      PIC  999.
140600 10  P2-EXAM-ADDL-BLOOD-PRESS-IND
140700                      PIC  X.
140800 10  P2-BLOOD-PRESS-SYSTOLIC-AVG
140900                      PIC  999.
141000 10  P2-BLOOD-PRESS-DIASTOLIC-AVG
141100                      PIC  999.
141200 10  P2-PULSE-PER-MIN1 PIC  999.
141300 10  P2-PULSE-PER-MIN2 PIC  999.
141400 10  P2-PULSE-PER-MIN3 PIC  999.
141500 10  P2-MED-ADDL-PULSE-IND
141600                      PIC  X.
141700 10  P2-EXAM-PULSE-IRREG-IND
141800                      PIC  X.
141900 10  P2-PULSE-IRREG-PER-MIN1
142000                      PIC  999.
142100 10  P2-PULSE-IRREG-PER-MIN2
142200                      PIC  999.
142300 10  P2-PULSE-IRREG-PER-MIN3
142400                      PIC  999.
142500 10  P2-MED-HEART-ENLARGEMENT
142600                      PIC  X.
142700 10  P2-MED-HEART-DYSPNEA
142800                      PIC  X.
142900 10  P2-MED-HEART-EDEMA
143000                      PIC  X.
143100 10  P2-MED-HEART-MURMUR
143200                      PIC  X.
143300 10  P2-MED-QUES-15-17-IND
143400                      PIC  X.
143500 10  P2-MED-QUES-15-17-DTL-IND
143600                      PIC  X.
143700 10  P2-MED-ABNORMALITIES1
143800                      PIC  X.
143900 10  P2-MED-ABNORMALITIES2
144000                      PIC  X.
144100 10  P2-MED-ABNORMALITIES3
144200                      PIC  X.
144300 10  P2-MED-ABNORMALITIES4
144400                      PIC  X.
144500 10  P2-MED-ABNORMALITIES5
144600                      PIC  X.
144700 10  P2-MED-ABNORMALITIES6
144800                      PIC  X.
144900 10  P2-MED-ABNORMALITIES7
145000                      PIC  X.
145100 10  P2-MED-ABNORMALITIES8
145200                      PIC  X.
145300 10  P2-MED-HERNIA    PIC  X.
145400 10  P2-MED-HEMORROIDS
145500                      PIC  X.
145600 10  P2-MED-OTHER-HISTORY-IND
145700                      PIC  X.
145800 10  P2-ALBUMIN       PIC  X(10).
145900 10  P2-SUGAR         PIC  X(10).
146000 10  P2-OTHER-URINALYSIS
146100                      PIC  X(20).
146200 10  P2-HO-SPECIMEN-IND
146300                      PIC  X.
146400 10  P2-PMED-MEDICATION-IND
146500                      PIC  X.
146600 10  P2-PMED-MEDICATION-SPECIFIED
146700                      PIC  X(50).
146800 10  P2-MENSTRUATION  PIC  X.
146900 10  P2-XRAY-IND      PIC  X.
147000 10  P2-EKG-CD        PIC  X.
147100 10  P2-VITAL-CAPACITY-IND
147200                      PIC  X.
147300 10  P2-VITAL-CAPACITY-VALUE1
147400                      PIC  X(10).
147500 10  P2-VITAL-CAPACITY-VALUE2
147600                      PIC  X(10).
147700 10  P2-PMED-BLOOD-STUDY-IND
147800                      PIC  X.
147900 10  P2-PMED-HEMOGLOBIN-GMS
148000                      PIC  9(8)V99.
148100 10  P2-PMED-HEMOTOCRIT
148200                      PIC  9(8)V99.
148300 10  P2-PMED-OTHER-STUDIES
148400                      PIC  X.
148500 10  P2-EXAM-PARTB-SIG-IND
148600                      PIC  X.
148700 10  P2-EXAM-PARTB-DATE
148800                      PIC  9(6).
148900 10  P2-EXAM-PARTB-WITNESS-IND
149000                      PIC  X.
149100 10  P2-EXAM-PARTB-STATE-CD
149200                      PIC  XX.
149300 10  P2-EXAM-PARTC-SIGN-IND
149400                      PIC  X.
149500 10  P2-EXAM-PARTC-DATE
149600                      PIC  9(6).
149700*10  P2-EXAM-PARTB-DTL-KEY1.
149800 10  P2-EXAM-FORM-ID1
149900                      PIC  X.
150000 10  P2-EXAM-PERSON-CD1
150100                      PIC  XX.
150200 10  P2-EXAM-DETAIL-NO1
150300                      PIC  9.
150400 10  P2-EXAM-QUESTION-NO1
150500                      PIC  XX.
150600 10  P2-EXAM-DOCTORS-NAME1
150700                      PIC  X(25).
150800 10  P2-EXAM-DOCTOR-L1-ADDR1
150900                      PIC  X(20).
151000 10  P2-EXAM-DOCTOR-L2-ADDR1
151100                      PIC  X(20).
151200 10  P2-EXAM-DOCTOR-L3-ADDR1
151300                      PIC  X(20).
151400 10  P2-EXAM-DOCTOR-ZIP-CODE1
151500                      PIC  X(5).
151600 10  P2-EXAM-TEXT1    PIC  X(250).
151700*10  P2-EXAM-PARTB-DTL-KEY2.
151800 10  P2-EXAM-FORM-ID2
151900                      PIC  X.
152000 10  P2-EXAM-PERSON-CD2
152100                      PIC  XX.
152200 10  P2-EXAM-DETAIL-NO2
152300                      PIC  9.
152400 10  P2-EXAM-QUESTION-NO2
152500                      PIC  XX.
152600 10  P2-EXAM-DOCTORS-NAME2
152700                      PIC  X(25).
152800 10  P2-EXAM-DOCTOR-L1-ADDR2
152900                      PIC  X(20).
153000 10  P2-EXAM-DOCTOR-L2-ADDR2
153100                      PIC  X(20).
153200 10  P2-EXAM-DOCTOR-L3-ADDR2
153300                      PIC  X(20).
153400 10  P2-EXAM-DOCTOR-ZIP-CODE2
153500                      PIC  X(5).
153600 10  P2-EXAM-TEXT2    PIC  X(250).
153700*10  P2-EXAM-PARTB-DTL-KEY3.
153800 10  P2-EXAM-FORM-ID3
153900                      PIC  X.
154000 10  P2-EXAM-PERSON-CD3
154100                      PIC  XX.
154200 10  P2-EXAM-DETAIL-NO3
154300                      PIC  9.
154400 10  P2-EXAM-QUESTION-NO3
154500                      PIC  XX.
154600 10  P2-EXAM-DOCTORS-NAME3
154700                      PIC  X(25).
154800 10  P2-EXAM-DOCTOR-L1-ADDR3
154900                      PIC  X(20).
155000 10  P2-EXAM-DOCTOR-L2-ADDR3
155100                      PIC  X(20).
155200 10  P2-EXAM-DOCTOR-L3-ADDR3
155300                      PIC  X(20).
155400 10  P2-EXAM-DOCTOR-ZIP-CODE3
155500                      PIC  X(5).
155600 10  P2-EXAM-TEXT3    PIC  X(250).
155700*10  P2-EXAM-PARTB-DTL-KEY4.
155800 10  P2-EXAM-FORM-ID4
155900                      PIC  X.
156000 10  P2-EXAM-PERSON-CD4
156100                      PIC  XX.
156200 10  P2-EXAM-DETAIL-NO4
156300                      PIC  9.
156400 10  P2-EXAM-QUESTION-NO4
156500                      PIC  XX.
156600 10  P2-EXAM-DOCTORS-NAME4
156700                      PIC  X(25).
156800 10  P2-EXAM-DOCTOR-L1-ADDR4
156900                      PIC  X(20).
157000 10  P2-EXAM-DOCTOR-L2-ADDR4
157100                      PIC  X(20).
157200 10  P2-EXAM-DOCTOR-L3-ADDR4
157300                      PIC  X(20).
157400 10  P2-EXAM-DOCTOR-ZIP-CODE4
157500                      PIC  X(5).
157600 10  P2-EXAM-TEXT4    PIC  X(250).
157700 10  P2-EXAM-PARTB-ADDL-DTL-IND
157800                      PIC  X.
157900*10  P2-MEDICAL-EXAM-DTL-KEY1.
158000 10  P2-MEDICAL-DETAIL-FORM-ID1
158100                      PIC  X.
158200 10  P2-MEDICAL-DETAIL-PERSON-CD1
158300                      PIC  XX.
158400 10  P2-MEDICAL-DETAIL-DTL-NO1
158500                      PIC  9.
158600 10  P2-MEDICAL-DETAIL-QUESTION-NO1
158700                      PIC  XXX.
158800 10  P2-MEDICAL-DETAIL-TEXT1
158900                      PIC  X(100).
159000*10  P2-MEDICAL-EXAM-DTL-KEY2.
159100 10  P2-MEDICAL-DETAIL-FORM-ID2
159200                      PIC  X.
159300 10  P2-MEDICAL-DETAIL-PERSON-CD2
159400                      PIC  XX.
159500 10  P2-MEDICAL-DETAIL-DTL-NO2
159600                      PIC  9.
159700 10  P2-MEDICAL-DETAIL-QUESTION-NO2
159800                      PIC  XXX.
159900 10  P2-MEDICAL-DETAIL-TEXT2
160000                      PIC  X(100).
160100*10  P2-MEDICAL-EXAM-DTL-KEY3.
160200 10  P2-MEDICAL-DETAIL-FORM-ID3
160300                      PIC  X.
160400 10  P2-MEDICAL-DETAIL-PERSON-CD3
160500                      PIC  XX.
160600 10  P2-MEDICAL-DETAIL-DTL-NO3
160700                      PIC  9.
160800 10  P2-MEDICAL-DETAIL-QUESTION-NO3
160900                      PIC  XXX.
161000 10  P2-MEDICAL-DETAIL-TEXT3
161100                      PIC  X(100).
161200 10  P2-EXAM-DOCTOR-L1B-ADDR1                                     JAA90086
161300                      PIC  X(20).                                 JAA90086
161400 10  P2-EXAM-DOCTOR-L1B-ADDR2                                     JAA90086
161500                      PIC  X(20).                                 JAA90086
161600 10  P2-EXAM-DOCTOR-L1B-ADDR3                                     JAA90086
161700                      PIC  X(20).                                 JAA90086
161800 10  P2-EXAM-DOCTOR-L1B-ADDR4                                     JAA90086
161900                      PIC  X(20).                                 JAA90086
162000 10  FILLER-26        PIC X(75).
162100*10  EXAM-ADDL-DETAIL-SEG-KEY1.
162200 10  EXAM-ADDL-DTL-FORM-ID1
162300                      PIC  X.
162400 10  EXAM-ADDL-DTL-PERSON-CD1
162500                      PIC  XX.
162600 10  EXAM-ADDL-DTL-DETAIL-NO1
162700                      PIC  9.
162800 10  EXAM-ADDL-DETAIL-QUESTION-NO1
162900                      PIC  XX.
163000 10  EXAM-ADDL-DTL-DOCTORS-NAME1
163100                      PIC  X(25).
163200*           1 THRU 4 APPLY TO PI  5-8 TO SP
163300 10  EXAM-ADDL-DTL-L1-ADDR1
163400                      PIC  X(20).
163500 10  EXAM-ADDL-DTL-L2-ADDR1
163600                      PIC  X(20).
163700 10  EXAM-ADDL-DTL-L3-ADDR1
163800                      PIC  X(20).
163900 10  EXAM-ADDL-DTL-DOCTOR-ZIP1
164000                      PIC  X(5).
164100 10  EXAM-ADDL-DETAIL-TEXT1
164200                      PIC  X(250).
164300 10  EXAM-ADDL-DTL-L1B-ADDR1                                      JAA90086
164400                      PIC  X(20).                                 JAA90086
164500 10  FILLER-27        PIC X(34).                                  JAA90086
164600*10  EXAM-ADDL-DETAIL-SEG-KEY2.
164700 10  EXAM-ADDL-DTL-FORM-ID2
164800                      PIC  X.
164900 10  EXAM-ADDL-DTL-PERSON-CD2
165000                      PIC  XX.
165100 10  EXAM-ADDL-DTL-DETAIL-NO2
165200                      PIC  9.
165300 10  EXAM-ADDL-DETAIL-QUESTION-NO2
165400                      PIC  XX.
165500 10  EXAM-ADDL-DTL-DOCTORS-NAME2
165600                      PIC  X(25).
165700 10  EXAM-ADDL-DTL-L1-ADDR2
165800                      PIC  X(20).
165900 10  EXAM-ADDL-DTL-L2-ADDR2
166000                      PIC  X(20).
166100 10  EXAM-ADDL-DTL-L3-ADDR2
166200                      PIC  X(20).
166300 10  EXAM-ADDL-DTL-DOCTOR-ZIP2
166400                      PIC  X(5).
166500 10  EXAM-ADDL-DETAIL-TEXT2
166600                      PIC  X(250).
166700 10  EXAM-ADDL-DTL-L1B-ADDR2                                      JAA90086
166800                      PIC  X(20).                                 JAA90086
166900 10  FILLER-28        PIC  X(34).                                 JAA90086
167000*10  EXAM-ADDL-DETAIL-SEG-KEY3.
167100 10  EXAM-ADDL-DTL-FORM-ID3
167200                      PIC  X.
167300 10  EXAM-ADDL-DTL-PERSON-CD3
167400                      PIC  XX.
167500 10  EXAM-ADDL-DTL-DETAIL-NO3
167600                      PIC  9.
167700 10  EXAM-ADDL-DETAIL-QUESTION-NO3
167800                      PIC  XX.
167900 10  EXAM-ADDL-DTL-DOCTORS-NAME3
168000                      PIC  X(25).
168100 10  EXAM-ADDL-DTL-L1-ADDR3
168200                      PIC  X(20).
168300 10  EXAM-ADDL-DTL-L2-ADDR3
168400                      PIC  X(20).
168500 10  EXAM-ADDL-DTL-L3-ADDR3
168600                      PIC  X(20).
168700 10  EXAM-ADDL-DTL-DOCTOR-ZIP3
168800                      PIC  X(5).
168900 10  EXAM-ADDL-DETAIL-TEXT3
169000                      PIC  X(250).
169100 10  EXAM-ADDL-DTL-L1B-ADDR3                                      JAA90086
169200                      PIC  X(20).                                 JAA90086
169300 10  FILLER-29        PIC  X(34).                                 JAA90086
169400*10  EXAM-ADDL-DETAIL-SEG-KEY4.
169500 10  EXAM-ADDL-DTL-FORM-ID4
169600                      PIC  X.
169700 10  EXAM-ADDL-DTL-PERSON-CD4
169800                      PIC  XX.
169900 10  EXAM-ADDL-DTL-DETAIL-NO4
170000                      PIC  9.
170100 10  EXAM-ADDL-DETAIL-QUESTION-NO4
170200                      PIC  XX.
170300 10  EXAM-ADDL-DTL-DOCTORS-NAME4
170400                      PIC  X(25).
170500 10  EXAM-ADDL-DTL-L1-ADDR4
170600                      PIC  X(20).
170700 10  EXAM-ADDL-DTL-L2-ADDR4
170800                      PIC  X(20).
170900 10  EXAM-ADDL-DTL-L3-ADDR4
171000                      PIC  X(20).
171100 10  EXAM-ADDL-DTL-DOCTOR-ZIP4
171200                      PIC  X(5).
171300 10  EXAM-ADDL-DETAIL-TEXT4
171400                      PIC  X(250).
171500 10  EXAM-ADDL-DTL-L1B-ADDR4                                      JAA90086
171600                      PIC  X(20).                                 JAA90086
171700 10  FILLER-30        PIC  X(34).                                 JAA90086
171800*10  EXAM-ADDL-DETAIL-SEG-KEY5.
171900 10  EXAM-ADDL-DTL-FORM-ID5
172000                      PIC  X.
172100 10  EXAM-ADDL-DTL-PERSON-CD5
172200                      PIC  XX.
172300 10  EXAM-ADDL-DTL-DETAIL-NO5
172400                      PIC  9.
172500 10  EXAM-ADDL-DETAIL-QUESTION-NO5
172600                      PIC  XX.
172700 10  EXAM-ADDL-DTL-DOCTORS-NAME5
172800                      PIC  X(25).
172900 10  EXAM-ADDL-DTL-L1-ADDR5
173000                      PIC  X(20).
173100 10  EXAM-ADDL-DTL-L2-ADDR5
173200                      PIC  X(20).
173300 10  EXAM-ADDL-DTL-L3-ADDR5
173400                      PIC  X(20).
173500 10  EXAM-ADDL-DTL-DOCTOR-ZIP5
173600                      PIC  X(5).
173700 10  EXAM-ADDL-DETAIL-TEXT5
173800                      PIC  X(250).
173900 10  EXAM-ADDL-DTL-L1B-ADDR5                                      JAA90086
174000                      PIC  X(20).                                 JAA90086
174100 10  FILLER-31        PIC  X(34).                                 JAA90086
174200*10  EXAM-ADDL-DETAIL-SEG-KEY6.
174300 10  EXAM-ADDL-DTL-FORM-ID6
174400                      PIC  X.
174500 10  EXAM-ADDL-DTL-PERSON-CD6
174600                      PIC  XX.
174700 10  EXAM-ADDL-DTL-DETAIL-NO6
174800                      PIC  9.
174900 10  EXAM-ADDL-DETAIL-QUESTION-NO6
175000                      PIC  XX.
175100 10  EXAM-ADDL-DTL-DOCTORS-NAME6
175200                      PIC  X(25).
175300 10  EXAM-ADDL-DTL-L1-ADDR6
175400                      PIC  X(20).
175500 10  EXAM-ADDL-DTL-L2-ADDR6
175600                      PIC  X(20).
175700 10  EXAM-ADDL-DTL-L3-ADDR6
175800                      PIC  X(20).
175900 10  EXAM-ADDL-DTL-DOCTOR-ZIP6
176000                      PIC  X(5).
176100 10  EXAM-ADDL-DETAIL-TEXT6
176200                      PIC  X(250).
176300 10  EXAM-ADDL-DTL-L1B-ADDR6                                      JAA90086
176400                      PIC  X(20).                                 JAA90086
176500 10  FILLER-32        PIC X(34).                                  JAA90086
176600*10  EXAM-ADDL-DETAIL-SEG-KEY7.
176700 10  EXAM-ADDL-DTL-FORM-ID7
176800                      PIC  X.
176900 10  EXAM-ADDL-DTL-PERSON-CD7
177000                      PIC  XX.
177100 10  EXAM-ADDL-DTL-DETAIL-NO7
177200                      PIC  9.
177300 10  EXAM-ADDL-DETAIL-QUESTION-NO7
177400                      PIC  XX.
177500 10  EXAM-ADDL-DTL-DOCTORS-NAME7
177600                      PIC  X(25).
177700 10  EXAM-ADDL-DTL-L1-ADDR7
177800                      PIC  X(20).
177900 10  EXAM-ADDL-DTL-L2-ADDR7
178000                      PIC  X(20).
178100 10  EXAM-ADDL-DTL-L3-ADDR7
178200                      PIC  X(20).
178300 10  EXAM-ADDL-DTL-DOCTOR-ZIP7
178400                      PIC  X(5).
178500 10  EXAM-ADDL-DETAIL-TEXT7
178600                      PIC  X(250).
178700 10  EXAM-ADDL-DTL-L1B-ADDR7                                      JAA90086
178800                      PIC  X(20).                                 JAA90086
178900 10  FILLER-33        PIC  X(34).                                 JAA90086
179000*10  EXAM-ADDL-DETAIL-SEG-KEY8.
179100 10  EXAM-ADDL-DTL-FORM-ID8
179200                      PIC  X.
179300 10  EXAM-ADDL-DTL-PERSON-CD8
179400                      PIC  XX.
179500 10  EXAM-ADDL-DTL-DETAIL-NO8
179600                      PIC  9.
179700 10  EXAM-ADDL-DETAIL-QUESTION-NO8
179800                      PIC  XX.
179900 10  EXAM-ADDL-DTL-DOCTORS-NAME8
180000                      PIC  X(25).
180100 10  EXAM-ADDL-DTL-L1-ADDR8
180200                      PIC  X(20).
180300 10  EXAM-ADDL-DTL-L2-ADDR8
180400                      PIC  X(20).
180500 10  EXAM-ADDL-DTL-L3-ADDR8
180600                      PIC  X(20).
180700 10  EXAM-ADDL-DTL-DOCTOR-ZIP8
180800                      PIC  X(5).
180900 10  EXAM-ADDL-DETAIL-TEXT8
181000                      PIC  X(250).
181100 10  EXAM-ADDL-DTL-L1B-ADDR8                                      JAA90086
181200                      PIC  X(20).                                 JAA90086
181300 10  FILLER-34        PIC  X(34).                                 JAA90086
181400 10  IE-AGENCY-NAME   PIC  X(10).
181500 10  AGENT-NAME       PIC  X(16).
181600 10  ISSUE-JET-IND    PIC  X.
181700 10  UNDERWRITER-UNIT-CD PIC  X.
181800 10  ISSUE-REFER-ERR-CODE1
181900                      PIC  S9(5)     COMP-3.
182000 10  ISSUE-REFER-ERR-CODE2
182100                      PIC  S9(5)     COMP-3.
182200 10  ISSUE-REFER-ERR-CODE3
182300                      PIC  S9(5)     COMP-3.
182400 10  ISSUE-REFER-ERR-CODE4
182500                      PIC  S9(5)     COMP-3.
182600 10  ISSUE-REFER-ERR-CODE5
182700                      PIC  S9(5)     COMP-3.
182800 10  ISSUE-REFER-ERR-CODE6
182900                      PIC  S9(5)     COMP-3.
183000 10  ISSUE-REFER-ERR-CODE7
183100                      PIC  S9(5)     COMP-3.
183200 10  ISSUE-REFER-ERR-CODE8
183300                      PIC  S9(5)     COMP-3.
183400 10  ISSUE-REFER-ERR-CODE9
183500                      PIC  S9(5)     COMP-3.
183600 10  ISSUE-REFER-ERR-CODE10
183700                      PIC  S9(5)     COMP-3.
183800 10  ISSUE-REFER-ERR-CODE11
183900                      PIC  S9(5)     COMP-3.
184000 10  ISSUE-REFER-ERR-CODE12
184100                      PIC  S9(5)     COMP-3.
184200 10  ISSUE-REFER-ERR-CODE13
184300                      PIC  S9(5)     COMP-3.
184400 10  ISSUE-REFER-ERR-CODE14
184500                      PIC  S9(5)     COMP-3.
184600 10  ISSUE-REFER-ERR-CODE15
184700                      PIC  S9(5)     COMP-3.
184800 10  TOTAL-CHILD-INFORCE-AMT
184900                      PIC  S9(5)     COMP-3.
185000 10  INSURED-TOTAL-INFORCE-INS-AMT
185100                      PIC  S9(5)     COMP-3.
185200 10  INS-TOTAL-INFORCE-NON-MED-AMT
185300                      PIC  S9(9)     COMP-3.
185400 10  SP-TOTAL-INFORCE-NON-MED-AMT
185500                      PIC  S9(9)     COMP-3.
185600 10  INS-TOTAL-APPLIED-INFORCE-AMT
185700                      PIC  S9(9)     COMP-3.
185800 10  APP-OWN-TOTAL-INF-NON-MED-AMT
185900                      PIC  S9(9)     COMP-3.
186000 10  INS-PROG-PROT-COMB-BEN-INF-IND
186100                      PIC  X.
186200 10  INDEX-POSITION1-CD
186300                      PIC  X.
186400 10  INDEX-POSITION2-CD
186500                      PIC  X.
186600 10  INS-TOTAL-LAPSED-POLICY-CNT
186700                      PIC  X.
186800 10  PIF-RECORDS-OVER-MAXIMUM-IND
186900                      PIC  X.
187000 10  PIF-SEARCH-CD    PIC  X.
187100 10  MIB-SEARCH-CD    PIC  X.
187200 10  PROTECTIVE-INFORMATION-IND
187300                      PIC  X.
187400 10  REINSURANCE-IND  PIC  X.
187500 10  SUPP-PROTECT-BEN-TOT-INF-AMT
187600                      PIC  S9(5)     COMP-3.
187700 10  YOUTH-EST-BLD-INIT-TOT-INF-AMT
187800                      PIC  S9(5)     COMP-3.
187900 10  ACCID-DEATH-BEN-TOT-INF-AMT
188000                      PIC  S9(7)     COMP-3.
188100 10  FAMILY-SP65-BEN-IND PIC  X.
188200 10  INS-OF-INSURAB-BEN-TOT-INF-AMT
188300                      PIC  S9(7)     COMP-3.
188400 10  FAMILY-SP65-BEN-TOT-INF-AMT
188500                      PIC  S9(7)     COMP-3.
188600 10  NON-ISSUED-RECORDS-CNT
188700                      PIC  X.
188800 10  RATED-PROTECTED-INFO-RECORD-CD
188900                      PIC  X.
189000 10  MOD-POLICY-IND   PIC  X.
189100 10  TOTAL-MOD-PREMIUM PIC  S9(7)V99 COMP-3.
189200 10  TOTAL-REG-PREMIUM PIC  S9(7)V99 COMP-3.
189300 10  FLEXV-APPLICATION-NUMBER  PIC  X(7).
189400 10  PIF-INSURED-INFORCE-HIT-CNT                                  IF 90080
189500                               PIC S9(3) COMP-3.                  IF 90080
189600 10  PIF-INSURED-INFORCE-TRY-CNT                                  IF 90080
189700                               PIC S9(3) COMP-3.                  IF 90080
189800 10  PIF-INSURED-PREM-WAIV-CNT                                    IF 90080
189900                               PIC S9(3) COMP-3.                  IF 90080
190000 10  PIF-SPOUSE-PREM-WAIV-CNT                                     IF 90080
190100                               PIC S9(3) COMP-3.                  IF 90080
190200 10  FILLER-35                 PIC  X(10).                        IF 90080
190300 10  MEDICAL-INFO-BUREAU-MSG1  PIC  X(20).
190400 10  MEDICAL-INFO-BUREAU-MSG2  PIC  X(20).
190500 10  MEDICAL-INFO-BUREAU-MSG3  PIC  X(20).
190600 10  MEDICAL-INFO-BUREAU-MSG4  PIC  X(20).
190700 10  MEDICAL-INFO-BUREAU-MSG5  PIC  X(20).
190800 10  MEDICAL-INFO-BUREAU-MSG6  PIC  X(20).
190900 10  MEDICAL-INFO-BUREAU-MSG7  PIC  X(20).
191000 10  MEDICAL-INFO-BUREAU-MSG8  PIC  X(20).
191100 10  MEDICAL-INFO-BUREAU-MSG9  PIC  X(20).
191200 10  MEDICAL-INFO-BUREAU-MSG10 PIC  X(20).
191300 10  MEDICAL-INFO-BUREAU-MSG11 PIC  X(20).
191400 10  MEDICAL-INFO-BUREAU-MSG12 PIC  X(20).
191500 10  MEDICAL-INFO-BUREAU-MSG13 PIC  X(20).
191600 10  MEDICAL-INFO-BUREAU-MSG14 PIC  X(20).
191700 10  MEDICAL-INFO-BUREAU-MSG15 PIC  X(20).
191800 10  MEDICAL-INFO-BUREAU-MSG16 PIC  X(20).
191900 10  MEDICAL-INFO-BUREAU-MSG17 PIC  X(20).
192000 10  MEDICAL-INFO-BUREAU-MSG18 PIC  X(20).
192100 10  MEDICAL-INFO-BUREAU-MSG19 PIC  X(20).
192200 10  MEDICAL-INFO-BUREAU-MSG20 PIC  X(20).
192300 10  MEDICAL-INFO-BUREAU-MSG21 PIC  X(20).
192400 10  MEDICAL-INFO-BUREAU-MSG22 PIC  X(20).
192500 10  MEDICAL-INFO-BUREAU-MSG23 PIC  X(20).
192600 10  MEDICAL-INFO-BUREAU-MSG24 PIC  X(20).
192700 10  MEDICAL-INFO-BUREAU-MSG25 PIC  X(20).
192800 10  MEDICAL-INFO-BUREAU-MSG26 PIC  X(20).
192900 10  MEDICAL-INFO-BUREAU-MSG27 PIC  X(20).
193000 10  MEDICAL-INFO-BUREAU-MSG28 PIC  X(20).
193100 10  MEDICAL-INFO-BUREAU-MSG29 PIC  X(20).
193200 10  MEDICAL-INFO-BUREAU-MSG30 PIC  X(20).
193300 10  MEDICAL-INFO-BUREAU-MSG31 PIC  X(20).
193400 10  MEDICAL-INFO-BUREAU-MSG32 PIC  X(20).
193500 10  MEDICAL-INFO-BUREAU-MSG33 PIC  X(20).
193600 10  MEDICAL-INFO-BUREAU-MSG34 PIC  X(20).
193700 10  MEDICAL-INFO-BUREAU-MSG35 PIC  X(20).
193800 10  MEDICAL-INFO-BUREAU-MSG36 PIC  X(20).
193900 10  MEDICAL-INFO-BUREAU-MSG37 PIC  X(20).
194000 10  MEDICAL-INFO-BUREAU-MSG38 PIC  X(20).
194100 10  MEDICAL-INFO-BUREAU-MSG39 PIC  X(20).
194200 10  MEDICAL-INFO-BUREAU-MSG40 PIC  X(20).
194300 10  MEDICAL-INFO-BUREAU-MSG41 PIC  X(20).
194400 10  MEDICAL-INFO-BUREAU-MSG42 PIC  X(20).
194500 10  MEDICAL-INFO-BUREAU-MSG43 PIC  X(20).
194600 10  MEDICAL-INFO-BUREAU-MSG44 PIC  X(20).
194700 10  MEDICAL-INFO-BUREAU-MSG45 PIC  X(20).
194800 10  MEDICAL-INFO-BUREAU-MSG46 PIC  X(20).
194900 10  MEDICAL-INFO-BUREAU-MSG47 PIC  X(20).
195000 10  MEDICAL-INFO-BUREAU-MSG48 PIC  X(20).
195100 10  MEDICAL-INFO-BUREAU-MSG49 PIC  X(20).
195200 10  MEDICAL-INFO-BUREAU-MSG50 PIC  X(20).
195300 10  MEDICAL-INFO-BUREAU-MSG51 PIC  X(20).
195400 10  MEDICAL-INFO-BUREAU-MSG52 PIC  X(20).
195500 10  MEDICAL-INFO-BUREAU-MSG53 PIC  X(20).
195600 10  MEDICAL-INFO-BUREAU-MSG54 PIC  X(20).
195700 10  MEDICAL-INFO-BUREAU-MSG55 PIC  X(20).
195800 10  MEDICAL-INFO-BUREAU-MSG56 PIC  X(20).
195900 10  MEDICAL-INFO-BUREAU-MSG57 PIC  X(20).
196000 10  MEDICAL-INFO-BUREAU-MSG58 PIC  X(20).
196100 10  MEDICAL-INFO-BUREAU-MSG59 PIC  X(20).
196200 10  MEDICAL-INFO-BUREAU-MSG60 PIC  X(20).
