00001 *****                                                             11/10/05
00002 *                                                                 DTSIL222
00003 *    DTSIL222   EPRF-ONLINE-UPDATE-DATA MAINTENANCE                  LV001
00004 *                                                                 DTSIL222
00005 *                                                                 DTSIL222
00006 *               01/17/2001  CREATED FOR DC.  GD                   DTSIL222
00007 *                                                                 DTSIL222
00008 *****                                                             DTSIL222
00009                                                                   DTSIL222
00010          10  L222-OPTION                 PIC  X(01).              DTSIL222
00011              88  L222-START-UPDATE              VALUE '1'.        DTSIL222
00012              88  L222-END-UPDATE                VALUE '2'.        DTSIL222
00013                                                                   DTSIL222
00014          10  L222-RESULT-IND             PIC  X(01).              DTSIL222
00015              88  L222-OK                        VALUE '0'.        DTSIL222
00016              88  L222-SCR-NOT-CURRENT           VALUE '1'.        DTSIL222
00017              88  L222-EMP-LOCKED-CICS-UPD       VALUE '2'.        DTSIL222
00018              88  L222-EMP-LOCKED-BATCH-UPD      VALUE '3'.        DTSIL222
00019              88  L222-NO-REC                    VALUE '4'.        DTSIL222
00020              88  L222-FILE-CLOSED               VALUE '9'.        DTSIL222
00021              88  L222-NOT-OK                    VALUE '1'         DTSIL222
00022                                                  THRU '9'.        DTSIL222
00023                                                                   DTSIL222
00024          10  L222-ELF-ID                 PIC S9(07)       COMP-3. DTSIL222
00025                                                                   DTSIL222
00026          10  L222-DATA-TYPE-CD           PIC  X(02).              DTSIL222
00027                                                                   DTSIL222
00028          10  L222-SCR-ABSTIME            PIC S9(15)       COMP-3. DTSIL222
00029                                                                   DTSIL222
00030          10  L222-UPDATE-TASK-ID         PIC S9(08)       COMP.   DTSIL222
00031                                                                   DTSIL222
00032          10  L222-UPDATE-OP-ID           PIC  X(08).              DTSIL222
00033                                                                   DTSIL222
00034          10  L222-UPDATE-TERMID          PIC  X(04).              DTSIL222
00035                                                                   DTSIL222
00036          10  L222-UPDATE-NETNAME         PIC  X(08).              DTSIL222
00037                                                                   DTSIL222
00038          10  L222-UPDATE-START-DATE      PIC S9(09)       COMP-3. DTSIL222
00039                                                                   DTSIL222
00040          10  L222-UPDATE-START-TIME      PIC S9(07)       COMP-3. DTSIL222
00041                                                                   DTSIL222
00042          10  L222-UPDATE-SCR-ID          PIC  X(02).              DTSIL222
00043                                                                   DTSIL222
00044          10  L222-UPDATE-FUNCTION        PIC  X(01).              DTSIL222
00045                                                                   DTSIL222
00046          10  L222-UPDATE-END-ABSTIME     PIC S9(15)       COMP-3. DTSIL222
00047                                                                   DTSIL222
00048          10  FILLER                      PIC  X(32).              DTSIL222
00049                                                                   DTSIL222
00050          10  L222-MSG-AREA.                                       DTSIL222
00051              15  L222-MSG-ID             PIC  X(04).              DTSIL222
00052              15  L222-MSG-TEXT           PIC  X(60).              DTSIL222