00001 *****                                                             09/09/98
00002 *                                                                 DTSIL082
00003 *    DTSIL082    OPERATOR ID EDIT/LOOKUP MODULE LINKAGE.             LV004
00004 *                                                                 DTSIL082
00005 *****                                                             DTSIL082
00006                                                                      CL**4
00007          10  L082-RESULT-IND             PIC  X(01).              DTSIL082
00008              88  L082-VALID-OP               VALUE '1'.           DTSIL082
00009              88  L082-NOT-VALID-OP           VALUE '8'.           DTSIL082
00010              88  L082-FILE-CLOSED            VALUE '9'.           DTSIL082
00011                                                                      CL**4
00012          10  L082-OP-ID                  PIC  X(08).              DTSIL082
00013                                                                      CL**4
00014          10  L082-DATA-AREA.                                      DTSIL082
00015              15  L082-TYPE               PIC  X(01).              DTSIL082
00016                  88  L082-EXTERNAL-88            VALUE 'E'.       DTSIL082
00017                  88  L082-INTERNAL-88            VALUE 'I'.       DTSIL082
00018                                                                      CL**4
00019              15  L082-NAME               PIC  X(32).              DTSIL082
00020                                                                      CL**4
00021              15  L082-TITLE              PIC  X(30).              DTSIL082
00022                                                                      CL**4
00023              15  L082-UNIT-NAME          PIC  X(30).              DTSIL082
00024                                                                      CL**4
00025              15  L082-BUREAU-NAME        PIC  X(30).              DTSIL082
00026                                                                      CL**4
00027              15  L082-PHONE-NUMBERS.                              DTSIL082
00028                  20  L082-VOICE-1.                                   CL**4
00029                      25  L082-VOICE-1-AREA-CD PIC X(03).             CL**4
00030                      25  L082-VOICE-1-PREFIX PIC  X(03).             CL**4
00031                      25  L082-VOICE-1-SUFFIX PIC  X(04).             CL**4
00032                      25  L082-VOICE-1-EXT    PIC  X(05).             CL**4
00033                  20  L082-VOICE-2.                                   CL**4
00034                      25  L082-VOICE-2-AREA-CD PIC X(03).             CL**4
00035                      25  L082-VOICE-2-PREFIX PIC  X(03).             CL**4
00036                      25  L082-VOICE-2-SUFFIX PIC  X(04).             CL**4
00037                      25  L082-VOICE-2-EXT    PIC  X(05).             CL**4
00038                  20  L082-FAX.                                       CL**3
00039                      25  L082-FAX-AREA-CD    PIC  X(03).             CL**3
00040                      25  L082-FAX-PREFIX     PIC  X(03).             CL**3
00041                      25  L082-FAX-SUFFIX     PIC  X(04).             CL**3
00042                      25  L082-FAX-EXT        PIC  X(05).             CL**3
00043                                                                      CL**4
00044              15  L082-EMAIL-ADDRESS      PIC  X(40).                 CL**4
00045                                                                      CL**4
00046              15  L082-UNIT-ID            PIC  X(04).              DTSIL082
00047                                                                      CL**4
00048              15  L082-FLD-REP-ID         PIC  X(02).              DTSIL082
00049                  88  L082-NOT-FLD-REP-88         VALUE '  '.      DTSIL082
00050                                                                      CL**4
00051              15  L082-FLD-DESK-IND       PIC  X(01).              DTSIL082
00052                  88  L082-NOT-FLD-DESK-88        VALUE 'N'.       DTSIL082
00053                  88  L082-IS-FLD-DESK-88         VALUE 'Y'.       DTSIL082
00054                                                                      CL**4
00055              15  L082-ACCOUNTING-DESK-IND PIC X(01).                 CL**4
00056                  88  L082-NOT-ACCT-DESK-88       VALUE 'N'.          CL**4
00057                  88  L082-IS-ACCT-DESK-88        VALUE 'Y'.          CL**4
00058                                                                      CL**4
00059          10  FILLER                      PIC  X(64).                 CL**4
00060                                                                      CL**4
00061          10  L082-MSG-AREA.                                       DTSIL082
00062              15  L082-MSG-ID             PIC  X(04).              DTSIL082
00063              15  L082-MSG-TEXT           PIC  X(60).              DTSIL082