00001 *****                                                             11/19/09
00002 *                                                                 DTSIR615
00003 *   DTSIR615   FIELD ASSIGNMENT AUDIT EMPLOYER NOTICIFACTION.        LV001
00004 *                                                                 DTSIR615
00005 *    09/16/2009  CREATED FROM DTSIR602                    ZL1     DTSIR615
00006 *****                                                             DTSIR615
00007      SKIP1                                                        DTSIR615
00008          10  R615-LENGTH         PIC S9(04)  COMP.                DTSIR615
00009      SKIP1                                                        DTSIR615
00010          10  R615-SORT-AREA.                                      DTSIR615
00011              15  R615-REC-TYPE           PIC  X(03) VALUE '615'.  DTSIR615
00012              15  R615-FIELD-REP-ID       PIC  X(02).              DTSIR615
00013              15  R615-EMP-NO             PIC S9(07)  COMP-3.      DTSIR615
00014      SKIP1                                                        DTSIR615
00015          10  R615-DATA-AREA.                                      DTSIR615
00016              15  R615-ASSIGN-NO          PIC S9(09)  COMP-3.      DTSIR615
00017              15  R615-STMT-DATE          PIC S9(09)  COMP-3.      DTSIR615
00018              15  R615-AUDIT-START-YRQ    PIC S9(05)  COMP-3.      DTSIR615
00019              15  R615-AUDIT-END-YRQ      PIC S9(05)  COMP-3.      DTSIR615
00020              15  R615-AUDIT-SCHED-DATE   PIC S9(09)  COMP-3.      DTSIR615
00021              15  R615-AUDIT-SCHED-TIME   PIC S9(06)  COMP-3.      DTSIR615
00022              15  R615-FMT-ADDR.                                   DTSIR615
00023                  20  R615-FMT-LINE OCCURS 5 TIMES                 DTSIR615
00024                                INDEXED BY R615-FMT-IDX            DTSIR615
00025                                          PIC  X(40).              DTSIR615
00026              15  R615-ZIP                PIC  X(10).              DTSIR615
00027              15  R615-ADVANCED-BARCODE   PIC  X(14).              DTSIR615