00001 *****                                                             02/05/99
00002 *                                                                 DTSIR311
00003 *     MACIR311     FIELD REP PAY TRANSACTION REPORT RECORD.          LV003
00004 *                                                                 DTSIR311
00005 *****                                                             DTSIR311
00006      SKIP1                                                        DTSIR311
00007          10  R311-LENGTH             PIC S9(04)  COMP.               CL**3
00008      SKIP1                                                        DTSIR311
00009          10  R311-SORT-AREA.                                      DTSIR311
00010              15  R311-REC-TYPE           PIC  X(03).                 CL**3
00011              15  R311-FLD-REP-ID         PIC  X(02).              DTSIR311
00012              15  R311-EMP-NO             PIC S9(07)       COMP-3. DTSIR311
00013      SKIP1                                                        DTSIR311
00014          10  R311-DATA-AREA.                                      DTSIR311
00015              15  R311-PERIOD-START-DATE  PIC S9(09)       COMP-3. DTSIR311
00016              15  R311-PERIOD-END-DATE    PIC S9(09)       COMP-3. DTSIR311
00017              15  R311-DOC-NO.                                     DTSIR311
00018                  20  R311-BATCH-NO       PIC S9(05)       COMP-3. DTSIR311
00019                  20  R311-ITEM-NO        PIC S9(03)       COMP-3. DTSIR311
00020              15  R311-APPLIC-YRQ         PIC S9(05)       COMP-3. DTSIR311
00021              15  R311-AMT                PIC S9(09)V9(02) COMP-3. DTSIR311
00022              15  R311-REASON-CDE         PIC X(03).                  CL**2