00001 *****                                                             09/16/99
00002 *                                                                 DTSIL061
00003 *    DTSIL061    FIELD TERRITORY / FIELD REP ID MODULE LINKAGE.      LV006
00004 *                                                                 DTSIL061
00005 *****                                                             DTSIL061
00006      SKIP1                                                        DTSIL061
00007          10  L061-FLD-ZIP-ST.                                        CL**4
00008              15  L061-FLD-ZIP            PIC  X(10).                 CL**4
00009              15  L061-FLD-ST             PIC  X(02).                 CL**4
00010          10  L061-EMP-NO                 PIC S9(07)  COMP-3.      DTSIL061
00011      SKIP1                                                        DTSIL061
00012          10  L061-RESULT-IND             PIC  X(01).              DTSIL061
00013              88  L061-OK                     VALUE '1'.           DTSIL061
00014              88  L061-FILE-CLOSED            VALUE '2'.           DTSIL061
00015      SKIP1                                                        DTSIL061
00016          10  L061-FLD-REP-ID             PIC  X(02).              DTSIL061
00017              88  L061-FLD-DESK-88               VALUE '??', 'FD'.    CL**3
00018      SKIP1                                                        DTSIL061
00019          10  L061-MSG-AREA.                                       DTSIL061
00020              15  L061-MSG-ID             PIC  X(04).              DTSIL061
00021              15  L061-MSG-TEXT           PIC  X(60).              DTSIL061
00022      SKIP1                                                        DTSIL061
00023          10  L061-TERRITORY-IND          PIC  X(01).                 CL**6
00024          10  FILLER                      PIC  X(24).                 CL**5