00001 *****                                                             03/12/99
00002 *                                                                 DTSIR740
00003 *   DTSIR740     ELECTRONIC FILER LIST REPORT RECORD.                LV005
00004 *                                                                 DTSIR740
00005 *                                                                 DTSIR740
00006 *****                                                             DTSIR740
00007      SKIP1                                                        DTSIR740
00008          10  R740-LENGTH             PIC S9(04)  COMP.               CL**2
00009      SKIP1                                                        DTSIR740
00010          10  R740-SORT-AREA.                                      DTSIR740
00011              15  R740-REC-TYPE           PIC  X(03)  VALUE '740'. DTSIR740
00012              15  R740-MEDIA-TYPE-CD      PIC  X(01).                 CL**4
00013                  88  R740-MEDIA-CARTRIDGE-88         VALUE 'C'.   DTSIR740
00014                  88  R740-MEDIA-DISKETTE-88          VALUE 'D'.   DTSIR740
00015                  88  R740-MEDIA-MODEM-88             VALUE 'M'.   DTSIR740
00016                  88  R740-MEDIA-PAPER-88             VALUE 'P'.   DTSIR740
00017                  88  R740-MEDIA-TAPE-88              VALUE 'T'.   DTSIR740
00018              15  R740-EMP-NO             PIC S9(07)  COMP-3.      DTSIR740
00019      SKIP1                                                        DTSIR740
00020          10  R740-DATA-AREA.                                      DTSIR740
00021              15  R740-PRIMARY-NAME       PIC  X(40).                 CL**2
00022              15  R740-WAGES-IND          PIC  X(01).              DTSIR740
00023                  88  R740-WAGE-YES-88                VALUE 'Y'.   DTSIR740
00024                  88  R740-WAGES-NO-88                VALUE 'N'.   DTSIR740
00025              15  R740-WAGE-BEGIN-YRQ     PIC  S9(05)  COMP-3.        CL**5