00001 *****                                                             12/03/98
00002 *   MODIFIED  12/02/98      D.SHEPPERSON                          DTSIR609
00003 *                                                                    LV002
00004 *   DTSIR609     FIELD ASSIGNMENT MANAGEMENT SUMMARY                 CL**2
00005 *                REPORT RECORD.                                   DTSIR609
00006 *                                                                 DTSIR609
00007 *                                                                 DTSIR609
00008 *                THE R609-PRINT-DETAIL-IND INDICATOR IS SET AS    DTSIR609
00009 *                TO WHETHER OR NOT THE DETAIL REPORT (609R1)      DTSIR609
00010 *                IS TO BE PRINTED.  EITHER WAY PRINT THE TOTAL    DTSIR609
00011 *                REPORT (609R2).                                  DTSIR609
00012 *                                                                 DTSIR609
00013 *                R609-PROCESSED-IND WILL CONTAIN A SPACE FOR ALL  DTSIR609
00014 *                BUT COMPLETED AUDITS THAT HAVE BEEN PROCESSED.   DTSIR609
00015 *                                                                 DTSIR609
00016 *****                                                             DTSIR609
00017      SKIP1                                                        DTSIR609
00018          10  R609-LENGTH         PIC S9(04)  COMP.                   CL**2
00019      SKIP1                                                        DTSIR609
00020          10  R609-SORT-AREA.                                      DTSIR609
00021              15  R609-REC-TYPE           PIC  X(03).                 CL**2
00022              15  R609-FIELD-REP-ID       PIC  X(02).              DTSIR609
00023              15  R609-STATUS-IND         PIC  X(01).              DTSIR609
00024                  88  R609-STATUS-ACTIVE-88           VALUE '1'.   DTSIR609
00025                  88  R609-STATUS-BACK-LOGGED-88      VALUE '2'.   DTSIR609
00026                  88  R609-STATUS-HELD-88             VALUE '3'.   DTSIR609
00027                  88  R609-STATUS-COMPLETED-88        VALUE '4'.   DTSIR609
00028              15  R609-STATUS-IND-9   REDEFINES   R609-STATUS-IND  DTSIR609
00029                                          PIC  9(01).              DTSIR609
00030              15  R609-ASSIGN-TYPE        PIC  X(02).              DTSIR609
00031              15  R609-ASSIGN-NO          PIC S9(09)      COMP-3.  DTSIR609
00032              15  R609-EMP-NO             PIC S9(07)      COMP-3.  DTSIR609
00033      SKIP1                                                        DTSIR609
00034          10  R609-DATA-AREA.                                      DTSIR609
00035              15  R609-PRINT-DETAIL-IND   PIC  X(01).              DTSIR609
00036                  88  R609-PRINT-DETAIL-TOO-88        VALUE 'Y'.   DTSIR609
00037                  88  R609-PRINT-TOTAL-ONLY-88        VALUE 'N'.   DTSIR609
00038              15  R609-PERIOD-START-DATE  PIC S9(09)      COMP-3.  DTSIR609
00039              15  R609-PERIOD-END-DATE    PIC S9(09)      COMP-3.  DTSIR609
00040              15  R609-PRIMARY-NAME       PIC  X(40).                 CL**2
00041              15  R609-BACK-LOGGED-DAYS   PIC S9(05)      COMP-3.  DTSIR609
00042              15  R609-PROCESSED-IND      PIC  X(01).              DTSIR609
00043                  88  R609-PROCESSED-YES-88           VALUE 'Y'.   DTSIR609
00044                  88  R609-PROCESSED-NO-88            VALUE SPACE. DTSIR609