00001 *****                                                             04/13/00
00002 *                                                                 DTSIR608
00003 *   DTSIR608   AUDIT SURVEY CARDS REPORT RECORDS.                    LV003
00004 *                                                                 DTSIR608
00005 *              10/16/1999  MODIFIED FOR DC.  EHH                     CL**2
00006 *                                                                    CL**2
00007 *****                                                             DTSIR608
00008                                                                      CL**2
00009          10  R608-LENGTH         PIC S9(04)  COMP.                   CL**2
00010                                                                      CL**2
00011          10  R608-SORT-AREA.                                      DTSIR608
00012              15  R608-REC-TYPE           PIC  X(03)  VALUE '608'. DTSIR608
00013              15  R608-OP-ID              PIC  X(08).              DTSIR608
00014              15  R608-EMP-NO             PIC S9(07)  COMP-3.      DTSIR608
00015                                                                      CL**2
00016          10  R608-DATA-AREA.                                      DTSIR608
00017              15  R608-FIELD-REP-ID       PIC  X(02).              DTSIR608
00018              15  R608-FMT-ADDR.                                   DTSIR608
00019                  20  R608-FMT-LINE OCCURS 5 TIMES                 DTSIR608
00020                                    INDEXED BY R608-FMT-IDX        DTSIR608
00021                                          PIC  X(40).              DTSIR608
00022              15  R608-ZIP                PIC  X(10).              DTSIR608
00023              15  R608-ADVANCED-BARCODE   PIC  X(14).                 CL**2