00001 *****                                                             03/20/01
00002 *                                                                 DTSIR310
00003 *   DTSIR310     STATEMENT OF ACCOUNT (CREDITS) CONTROL              LV004
00004 *                REPORT RECORD.                                   DTSIR310
00005 *                                                                 DTSIR310
00006 *****                                                             DTSIR310
00007      SKIP1                                                        DTSIR310
00008          10  R310-LENGTH                 PIC S9(04)  COMP.        DTSIR310
00009      SKIP1                                                        DTSIR310
00010          10  R310-SORT-AREA.                                      DTSIR310
00011              15  R310-REC-TYPE           PIC  X(03).              DTSIR310
00012              15  R310-EMP-NO             PIC S9(07)  COMP-3.      DTSIR310