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