01 FLAP-RECORD.
          05  FLAP-RECORD-KEY.
              10  FLAP-FULL-ACCT-ID.
                  15  FLAP-SYS-PRIN-AGNT-ID.
					  20  RECORD_LENGTH           PIC X(2).
					  20  REC-TYPE                PIC X(6).
					  20  NOFREC                  PIC S9(7)V    COMP-3.
					  20  FILLER                  PIC X(16).
                      20  FLAP-SYS-ID           PIC X(4).
                      20  FLAP-PRIN-AGNT-ID.
                          25  FLAP-PRIN-ID      PIC X(4).
                          25  FLAP-AGNT-ID      PIC X(4).
          05  FLAP-ITEM.
              10  FLAP-BASE-INFO.
                  15  FLAP-ID                   PIC S9(7)V    COMP-3.
                  15  FLAP-TYPE                 PIC X.
                  15  FLAP-TRANSACTION-AMT      PIC S9(15)V99 COMP-3.
                  15  FLAP-TRAN-DATE            PIC S9(7)V    COMP-3.
                  15  FLAP-EFFECTIVE-DATE       PIC S9(7)V    COMP-3.
                  15  FLAP-EFFECTIVE-RELJUL     PIC S9(3)V    COMP-3.
                  15  FLAP-POST-DATE            PIC S9(3)V    COMP-3.
03276A       10 FLAP-VRBL-SGMN-CTRS.
03276A            15 FLAP-MTHD-OVER-RIDE-NR PIC S999 COMP-3.
03276A            15 FLAP-RSTR-SGMN-NR      PIC S999 COMP-3.
03276A            15  FILLER                  PIC X(10).
03276A       10  FLAP-MTHD-OVER-RIDE.
03276A            15 FLAP-MTHDS.      
03276A               20 REDEFINE-STR1.   
04093A                 25 FLAP-ICBP-RVLV-SWTC-ID.
04093A                     30 FLAP-ICBP-RVLV-ID        PIC X(6).
04093A                     30 FLAP-ICBP-RVLV-MTHD-CD   PIC 99.
04093A                 25 FILLER                   PIC X.
03276A                 25 FLAP-ICBP-TYPE-CD      PIC X.
03276A                 25 FLAP-ICBP-MTHD-NM      PIC X(8).
03276A                 25 FLAPLS-ICBP-TYPE-CD    PIC X.
03276A                 25 FLAPLS-ICBP-MTHD-NM    PIC X(8).
03276A                 25 FLAPPS-ICBP-TYPE-CD    PIC X.
03276A                 25 FLAPPS-ICBP-MTHD-NM    PIC X(8).
03276A                 25 FLAPPR-ICBP-TYPE-CD    PIC X.
03276A                 25 FLAPPR-ICBP-MTHD-NM    PIC X(8).
04093A                 25 FLAPM1-ICBP-MTHD-NM    PIC X(8).
04093A                 25 FLAPM2-ICBP-MTHD-NM    PIC X(8).
04093A                 25 FLAPM3-ICBP-MTHD-NM    PIC X(8).
04093A                 25 FILLER                   PIC X(6).
		     20 REDEFINE-STR2   REDEFINES REDEFINE-STR1.
04093A                 25 FLAP-ITRO-ICBP-RVLV-SWTC-ID.
04093A                     30 FLAP-ITRO-ICBP-RVLV-ID        PIC X(6).
04093A                     30 FLAP-ITRO-ICBP-RVLV-MTHD-CD   PIC 99.
04093A                 25 FILLER                    PIC X.
03276A                 25 FLAP-ITRO-ICBP-TYPE-CD  PIC X.
03276A                 25 FLAP-ITRO-ICBP-MTHD-NM  PIC X(8).
04093A                 25 FLAPLS-ITRO-ICBP-TYPE-CD  PIC X.
04093A                 25 FLAPLS-ITRO-ICBP-MTHD-NM  PIC X(8).
04093A                 25 FLAPPS-ITRO-ICBP-TYPE-CD  PIC X.
04093A                 25 FLAPPS-ITRO-ICBP-MTHD-NM  PIC X(8).
04093A                 25 FLAPPR-ITRO-ICBP-TYPE-CD  PIC X.
04093A                 25 FLAPPR-ITRO-ICBP-MTHD-NM  PIC X(8).
04093A                 25 FLAPM1-ITRO-ICBP-MTHD-NM  PIC X(8).
04093A                 25 FLAPM2-ITRO-ICBP-MTHD-NM  PIC X(8).
04093A                 25 FLAPM3-ITRO-ICBP-MTHD-NM  PIC X(8).
04093A                 25 FILLER                      PIC X(6).
		     20 REDEFINE-STR3   REDEFINES REDEFINE-STR1.
04093A                 25 FLAP-ICID-RVLV-SWTC-ID.
04093A                     30 FLAP-ICID-RVLV-ID        PIC X(6).
04093A                     30 FLAP-ICID-RVLV-MTHD-CD   PIC 99.
04093A                 25 FILLER                  PIC X.
03276A                 25 FLAP-ICID-TYPE-CD     PIC X.
03276A                 25 FLAP-ICID-MTHD-NM     PIC X(8).
03276A                 25 FLAPLS-ICID-TYPE-CD   PIC X.
03276A                 25 FLAPLS-ICID-MTHD-NM   PIC X(8).
03276A                 25 FLAPPS-ICID-TYPE-CD   PIC X.
03276A                 25 FLAPPS-ICID-MTHD-NM   PIC X(8).
03276A                 25 FLAPPR-ICID-TYPE-CD   PIC X.
03276A                 25 FLAPPR-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPM1-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPM2-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPM3-ICID-MTHD-NM   PIC X(8).
04093A                 25 FILLER                  PIC X(6).
		     20 REDEFINE-STR4  REDEFINES REDEFINE-STR1.
04093A                 25 FLAP-ITRO-ICID-RVLV-SWTC-ID.
04093A                     30 FLAP-ITRO-ICID-RVLV-ID        PIC X(6).
04093A                     30 FLAP-ITRO-ICID-RVLV-MTHD-CD   PIC 99.
04093A                 25 FILLER                     PIC X.
03276A                 25 FLAP-ITRO-ICID-TYPE-CD   PIC X.
03276A                 25 FLAP-ITRO-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPLS-ITRO-ICID-TYPE-CD   PIC X.
04093A                 25 FLAPLS-ITRO-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPPS-ITRO-ICID-TYPE-CD   PIC X.
04093A                 25 FLAPPS-ITRO-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPPR-ITRO-ICID-TYPE-CD   PIC X.
04093A                 25 FLAPPR-ITRO-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPM1-ITRO-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPM2-ITRO-ICID-MTHD-NM   PIC X(8).
04093A                 25 FLAPM3-ITRO-ICID-MTHD-NM   PIC X(8).
04093A                 25 FILLER                       PIC X(6).