01  COMMUNITY-MSTR-MCI-DATA-RECORD.

         03  MCID-TRANSMITTED-DATA-RECORD.

           05  MCID-PRIMARY-KEY.
               10  MCID-REC-TYPE                      PIC  X(03).
                   88  MCID-C04                            VALUE 'C04'.

           05  MCID-CHANGE-DATA-RECS.
               10  MCID-SECONDARY-KEY.
                   15  MCID-STATE-ID-X                PIC  X(02).
                   15  MCID-COMM-NUM-X                PIC  X(04).
               10  FILLER  REDEFINES  MCID-SECONDARY-KEY.
                   15  MCID-STATE-ID                  PIC  9(02).
                   15  MCID-COMM-NUM                  PIC  9(04).


      *        ********************************************************
      *        * C04 TRANS. FORMAT - PROBATION INFORMATION            *
      *        ********************************************************

               10  MCID-C04-REC.

                   15  MCID-PROB-TRAILER-CNT-X.
                       20  MCID-PROB-TRAILER-CNT      PIC  9(04).

                   15  MCID-PROBATION-KEY.
                       20  MCID-PROBATION-EFFECTIVE-DATE.
                           25  MCID-PROB-EFFECT-CENTURY-X.
                               30  MCID-PROB-EFFECT-CENTURY
                                                      PIC  9(02).
                           25  MCID-PROB-EFFECT-YYMMDD.
                               30  MCID-PROB-EFFECT-YY-X.
                                   35  MCID-PROB-EFFECT-YY
                                                      PIC  9(02).
                               30  MCID-PROB-EFFECT-MM-X.
                                   35  MCID-PROB-EFFECT-MM
                                                      PIC  9(02).
                               30  MCID-PROB-EFFECT-DD-X.
                                   35  MCID-PROB-EFFECT-DD
                                                      PIC  9(02).

                       20  MCID-PROBATION-ENDING-DATE.
                           25  MCID-PROB-END-CENTURY-X.
                               30  MCID-PROB-END-CENTURY
                                                      PIC  9(02).
                           25  MCID-PROB-END-YYMMDD.
                               30  MCID-PROB-END-YY-X.
                                   35  MCID-PROB-END-YY
                                                      PIC  9(02).
                               30  MCID-PROB-END-MM-X.
                                   35  MCID-PROB-END-MM
                                                      PIC  9(02).
                               30  MCID-PROB-END-DD-X.
                                   35  MCID-PROB-END-DD
                                                      PIC  9(02).

                   15  MCID-PROBATION-IND-X.
                           88  MCID-PROBATION-NONE          VALUE ZERO.
                           88  MCID-PROBATION-YES           VALUE '1'.
                           88  MCID-PROBATION-COMPLIED      VALUE '2'.
                           88  MCID-PROBATION-PENDING       VALUE '3'.
                           88  MCID-PROBATION-ERROR         VALUE '4'.
                           88  MCID-PROBATION-LIFTED        VALUE '5'.
                           88  MCID-PROBATION-NO            VALUE ZERO
                                                                  '2'
                                                                  '3'
                                                                  '4'
                                                                  '5'.
                       20  MCID-PROBATION-IND         PIC  9(01).


                   15  MCID-PROBATION-SURCHARGE-DATE.
                       20  MCID-PROB-SURCH-CENTURY-X.
                           25  MCID-PROB-SURCH-CENTURY
                                                      PIC  9(02).
                       20  MCID-PROB-SURCH-YYMMDD.
                           25  MCID-PROB-SURCH-YY-X.
                               30  MCID-PROB-SURCH-YY PIC  9(02).
                           25  MCID-PROB-SURCH-MM-X.
                               30  MCID-PROB-SURCH-MM PIC  9(02).
                           25  MCID-PROB-SURCH-DD-X.
                               30  MCID-PROB-SURCH-DD PIC  9(02).

                   15  MCID-PROB-LAST-UPDATE-DATE.
                       20  MCID-PROB-LAST-UPDATE-CENT-X.
                           25  MCID-PROB-LAST-UPDATE-CENTURY
                                                      PIC  9(02).
                       20  MCID-PROB-LAST-UPDATE-YYMMDD.
                           25  MCID-PROB-LAST-UPDATE-YY-X.
                               30  MCID-PROB-LAST-UPDATE-YY
                                                      PIC  9(02).
                           25  MCID-PROB-LAST-UPDATE-MM-X.
                               30  MCID-PROB-LAST-UPDATE-MM
                                                      PIC  9(02).
                           25  MCID-PROB-LAST-UPDATE-DD-X.
                               30  MCID-PROB-LAST-UPDATE-DD
                                                      PIC  9(02).

                   15  MCID-PROB-LAST-UPDATE-TIME     PIC  X(08).

                   15  FILLER                         PIC  X(201).