00001 *****                                                             07/19/99
00002 *                                                                 DTSIR713
00003 *    DTSIR713    ETA-581 EXPORT REPORT RECORD.                       LV004
00004 *                                                                 DTSIR713
00005 *         NOTE:  THERE IS ONLY ONE DTSIR713 REPORT RECORD PASSED     CL**3
00006 *                FOR ANY GIVEN REPORT QUARTER.                    DTSIR713
00007 *                                                                 DTSIR713
00008 *                REPORT RECORD DTSIR713 SIMPLY SIGNALS THAT AN       CL**4
00009 *                ETA-581 EXPORT FOR A GIVEN YRQ IS TO BE          DTSIR713
00010 *                GENERATED.  THE REPORT MODULE THEN READS THE     DTSIR713
00011 *                F581 REFERENCE FILE RECORD TO OBTAIN THE 581     DTSIR713
00012 *                STATISTICS FOR THAT QUARTER.                     DTSIR713
00013 *                                                                 DTSIR713
00014 *****                                                             DTSIR713
00015      SKIP1                                                        DTSIR713
00016          10  R713-LENGTH         PIC S9(04) COMP.                    CL**2
00017      SKIP1                                                        DTSIR713
00018          10  R713-SORT-AREA.                                      DTSIR713
00019              15  R713-REC-TYPE           PIC  X(03)  VALUE '713'. DTSIR713
00020              15  R713-YRQ                PIC S9(05)       COMP-3. DTSIR713