      *     RAAT mode output
      *     Table ACCTREC
           02  ACCTREC.
              03    ACCTDO        PIC X(5).
              03    SNAMEDO       PIC X(18).
              03    FNAMEDO       PIC X(12).
              03    MIDO          PIC X(1).
              03    TTLDO         PIC X(4).
              03    TELDO         PIC X(10).
              03    ADDR1DO       PIC X(24).
              03    ADDR2DO       PIC X(24).
              03    ADDR3DO       PIC X(24).
              03    AUTH1DO       PIC X(32).
              03    AUTH2DO       PIC X(32).
              03    AUTH3DO       PIC X(32).
              03    AUTH4DO       PIC X(32).
              03    CARDSDO       PIC X(1).
              03    IMODO         PIC X(2).
              03    IDAYDO        PIC X(2).
              03    IYRDO         PIC X(2).
              03    RSNDO         PIC X(1).
              03    CCODEDO       PIC X(1).
              03    APPRDO        PIC X(3).
              03    SCODE1DO      PIC X(1).
              03    SCODE2DO      PIC X(1).
              03    SCODE3DO      PIC X(1).
              03    STATDO        PIC X(2).
              03    LIMITDO       PIC X(8).
              03    PAY-HIST.
                 04     BAL1      PIC X(8).
                 04     BMO1      PIC S9(2)      DISPLAY.
                 04     BDAY1     PIC S9(2)      DISPLAY.
                 04     BYR1      PIC S9(2)      DISPLAY.
                 04     BAMT1     PIC X(8).
                 04     PMO1      PIC S9(2)      DISPLAY.
                 04     PDAY1     PIC S9(2)      DISPLAY.
                 04     PYR1      PIC S9(2)      DISPLAY.
                 04     PAMT1     PIC X(8).
                 04     BAL2      PIC X(8).
                 04     BMO2      PIC S9(2)      DISPLAY.
                 04     BDAY2     PIC S9(2)      DISPLAY.
                 04     BYR2      PIC S9(2)      DISPLAY.
                 04     BAMT2     PIC X(8).
                 04     PMO2      PIC S9(2)      DISPLAY.
                 04     PDAY2     PIC S9(2)      DISPLAY.
                 04     PYR2      PIC S9(2)      DISPLAY.
                 04     PAMT2     PIC X(8).
                 04     BAL3      PIC X(8).
                 04     BMO3      PIC S9(2)      DISPLAY.
                 04     BDAY3     PIC S9(2)      DISPLAY.
                 04     BYR3      PIC S9(2)      DISPLAY.
                 04     BAMT3     PIC X(8).
                 04     PMO3      PIC S9(2)      DISPLAY.
                 04     PDAY3     PIC S9(2)      DISPLAY.
                 04     PYR3      PIC S9(2)      DISPLAY.
                 04     PAMT3     PIC X(8).
              03    PAY-HIST-R    REDEFINES PAY-HIST
                                                 OCCURS 3 TIMES.
                 04     BAL       PIC X(8).
                 04     BMO       PIC 9(2)       DISPLAY.
                 04     BDAY      PIC 9(2)       DISPLAY.
                 04     BYR       PIC 9(2)       DISPLAY.
                 04     BAMT      PIC X(8).
                 04     PMO       PIC 9(2)       DISPLAY.
                 04     PDAY      PIC 9(2)       DISPLAY.
                 04     PYR       PIC 9(2)       DISPLAY.
                 04     PAMT      PIC X(8).

