******************************************************************
      *              SYSTEM:  NFIP                                     *
      *           SUBSYSTEM:  RDA - POLICY ADMINISTRATION              *
      *             COPYLIB:  MFCFPANX                                 *
      *                                                                *
      *   AUTHOR:    NFIP TECHNICAL SERVICES                           *
      *                                                                *
      *   PURPOSE:   COMMUNITY MASTER SUFFIX/PANEL RECORDS.            *
      *                                                                *
      *           RECORD FORMAT:  FB          BLOCKSIZE:               *
      *           RECORD LENGTH:  300              DISK:  23400        *
      *           CISZ:           4096             TAPE:  32700        *
      *                                                                *
      *   LANGUAGE:  COBOL                                             *
      *                                                                *
      *   TABLES:    ZONE TABLE                                        *
      *                                                                *
      *   SWITCHES:  NONE                                              *
      *                                                                *
      *   SPECIAL MAINTENANCE PROCEDURES:  LAYOUT SHOULD MATCH         *
      *   PANEL TABLE LAYOUT IN COMMUNITY MASTER COPYBOOK MFCFEXTR.    *
      *                                                                *
      ******************************************************************
      *                                                                *
      *   CHANGE LOG:                                                  *
      *                                                                *
      * MOD #   OSR # INITIALS  DATE IMP       DESCRIPTION             *
      *                                                                *
      *  01.   MAY2000  CINDY  06/30/2000   NEW COPYBOOK.              *
      *                 MILES                                          *
      *                                                                *
      ******************************************************************
       01  CPT-COMM-MSTR-PANEL-RECORD.

           05  CX-DATA.

      *        RECORD INCLUDES COMMUNITY STATE, ID, SUFFIX, AND PANEL.
      *        THE RECORD LAYOUT IS SET UP SO THAT THE PANEL DATA FIELDS
      *        WILL MATCH THE MFCFEXTR PANEL DATA AREA EXACTLY.

               10  CX-RECORD-KEY           PIC  X(11).
               10  FILLER                  PIC  X(289).

           05  FILLER                  REDEFINES CX-DATA.

               10  CX-COMMUN-NBR.
                   15  CX-COMMUN-STATE     PIC  X(02).
                   15  CX-COMMUN-ID        PIC  X(04).

               10  FILLER              REDEFINES CX-COMMUN-NBR.
                   15  CX-COMMUN-STATE-9   PIC  9(02).
                   15  CX-COMMUN-ID-9      PIC  9(04).

               10  CX-PANEL-DATA.

                   15  CX-PANEL-KEY.
                       20  CX-PANEL-SUFFIX PIC  X(01).
                       20  CX-PANEL-NBR    PIC  X(04).

                   15  CX-PANEL-EFFECTIVE-DATE.
                       20  CX-PANEL-EFFECT-CENTURY
                                           PIC  9(02).
                       20  CX-PANEL-EFFECT-YYMMDD.
                           25  CX-PANEL-EFFECT-YY
                                           PIC  9(02).
                           25  CX-PANEL-EFFECT-MM
                                           PIC  9(02).
                           25  CX-PANEL-EFFECT-DD
                                           PIC  9(02).

                   15  CX-PANEL-RESCIND-DATE.
                       20  CX-PANEL-RESC-CENTURY
                                           PIC  9(02).
                       20  CX-PANEL-RESC-YYMMDD.
                           25  CX-PANEL-RESC-YY
                                           PIC  9(02).
                           25  CX-PANEL-RESC-MM
                                           PIC  9(02).
                           25  CX-PANEL-RESC-DD
                                           PIC  9(02).

                   15  CX-PANEL-REINSTATE-DATE.
                       20  CX-PANEL-REINSTATE-CENTURY
                                           PIC  9(02).
                       20  CX-PANEL-REINSTATE-YYMMDD.
                           25  CX-PANEL-REINSTATE-YY
                                           PIC  9(02).
                           25  CX-PANEL-REINSTATE-MM
                                           PIC  9(02).
                           25  CX-PANEL-REINSTATE-DD
                                           PIC  9(02).

                   15  CX-PANEL-STATUS     PIC  X(01).
                       88  CX-PANEL-ACTIVE             VALUE 'A'.
                       88  CX-PANEL-RESCINDED          VALUE 'R'.

                   15  CX-PANEL-LAST-UPDATE-DATE.
                       20  CX-PANEL-LAST-UPDATE-CENTURY
                                           PIC  9(02).
                       20  CX-PANEL-LAST-UPDATE-YYMMDD.
                           25  CX-PANEL-LAST-UPDATE-YY
                                           PIC  9(02).
                           25  CX-PANEL-LAST-UPDATE-MM
                                           PIC  9(02).
                           25  CX-PANEL-LAST-UPDATE-DD
                                           PIC  9(02).

                   15  CX-PANEL-LAST-UPDATE-TIME
                                           PIC  X(08).

                   15  CX-FLOOD-ZONE-AREA.
                       20  CX-ZONE-AREA-DATA
                                           OCCURS  50 TIMES
                                           INDEXED CX-ZONE-INDX.
                           25  CX-FILLER-4
                                           PIC  X(01).
                           25  CX-FIRM-ZONE.
                               30  CX-FLOOD-ZONE
                                           PIC  X(01).
                                   88  CX-FLOOD-SPECIAL
                                                       VALUE 'A'.
                                   88  CX-FLOOD-MODERATE
                                                       VALUE 'B'
                                                             'X'.
                                   88  CX-FLOOD-MINIMAL
                                                       VALUE 'C'
                                                             'X'.
                                   88  CX-FLOOD-POSSIBLE
                                                       VALUE 'D'.
                                   88  CX-FLOOD-VELOCITY
                                                       VALUE 'V'.
                                   88  CX-FLOOD-B-C-X  VALUE 'B'
                                                             'C'
                                                             'X'.
                               30  CX-ELEV-ZONE-NBR
                                           PIC  X(02).
                                   88  CX-SHALLOW-DEPTH
                                                       VALUE ZERO.
                                   88  CX-SHALLOW-DEPTH1
                                                       VALUE '0B'.
                                   88  CX-ELEV-ZONE    VALUE '01'
                                                        THRU '30'
                                                             'E '.
                                   88  CX-COMPLETE-FOR-RATE
                                                       VALUE '99'.
                                   88  CX-NEW-ELEV-ZONE
                                                       VALUE 'E '.
                                   88  CX-SHALLOW-PONDING
                                                       VALUE 'H '
                                                             'HB'.
                                   88  CX-SHALLOW-SHEET-FLOW
                                                       VALUE 'O '.
                                   88  CX-SHALLOW-SHEET-FLOW1
                                                       VALUE 'OB'.
                                   88  CX-ASSIGNED-ZONES
                                                       VALUE 'S '
                                                             'A '.
                                   88  CX-NO-BASE-FLOOD
                                                       VALUE SPACE.

                   15  CX-PANEL-CBRA-IND   PIC  X(01).
                       88  CX-PANEL-CBRA               VALUE 'C'.
                       88  CX-PANEL-OPA                VALUE 'O'.
                       88  CX-PANEL-BOTH               VALUE 'B'.

                   15  CX-PANEL-CBRA-DATE.
                       20  CX-PANEL-CBRA-CENTURY
                                           PIC  9(02).
                       20  CX-PANEL-CBRA-YYMMDD.
                           25  CX-PANEL-CBRA-YY
                                           PIC  9(02).
                           25  CX-PANEL-CBRA-MM
                                           PIC  9(02).
                           25  CX-PANEL-CBRA-DD
                                           PIC  9(02).

                   15  CX-FILLER-5         PIC  X(39).