00001 *****                                                             03/01/12
00002 *                                                                 DTSIL221
00003 *    DTSIL221   MPRF-ONLINE-UPDATE-DATA MAINTENANCE                  LV004
00004 *                                                                 DTSIL221
00005 *                                                                 DTSIL221
00006 *               09/09/1998  REVIEWED AND MODIFIED FOR DC.  EHH    DTSIL221
00007 *               09/15/2006  ADDED R906-ONLY OPTION. THIS WIL      DTSIL221
00008 *                           WRITE A 906 RECORD, BUT WILL NOT      DTSIL221
00009 *                           UPDATE THE MPRF RECORD. IT IS USED    DTSIL221
00010 *                           TO TRACK UPDATES TO ACCOUNTING        DTSIL221
00011 *               09/15/2006  ADDED BATCH AND ITEM NUMBERS -        DTSIL221
00012 *                           NEEDED TO TRACK UPDATES TO            DTSIL221
00013 *                           ACCOUNTING TRANSACTIONS.    GD        DTSIL221
00014 *                                                                 DTSIL221
00015 *****                                                             DTSIL221
00016                                                                   DTSIL221
00017          10  L221-OPTION                 PIC  X(01).              DTSIL221
00018              88  L221-START-UPDATE              VALUE '1'.        DTSIL221
00019              88  L221-END-UPDATE                VALUE '2'.        DTSIL221
00020              88  L221-R906-ONLY                 VALUE '3'.        DTSIL221
00021                                                                   DTSIL221
00022          10  L221-RESULT-IND             PIC  X(01).              DTSIL221
00023              88  L221-OK                        VALUE '0'.        DTSIL221
00024              88  L221-SCR-NOT-CURRENT           VALUE '1'.        DTSIL221
00025              88  L221-EMP-LOCKED-UPDATE         VALUE '2'.        DTSIL221
00026              88  L221-EMP-LOCKED-PURGE          VALUE '3'.        DTSIL221
00027              88  L221-NO-REC                    VALUE '4'.        DTSIL221
00028              88  L221-EMP-WRITTEN-OFF           VALUE '5'.        DTSIL221
00029              88  L221-FILE-CLOSED               VALUE '9'.        DTSIL221
00030              88  L221-NOT-OK                    VALUE '1'         DTSIL221
00031                                                  THRU '9'.        DTSIL221
00032                                                                   DTSIL221
00033          10  L221-EMP-NO                 PIC S9(07)       COMP-3. DTSIL221
00034                                                                   DTSIL221
00035          10  L221-SCR-ABSTIME            PIC S9(15)       COMP-3. DTSIL221
00036                                                                   DTSIL221
00037          10  L221-UPDATE-TASK-ID         PIC S9(08)       COMP.   DTSIL221
00038                                                                   DTSIL221
00039          10  L221-UPDATE-OP-ID           PIC  X(08).              DTSIL221
00040                                                                   DTSIL221
00041          10  L221-UPDATE-TERMID          PIC  X(04).              DTSIL221
00042                                                                   DTSIL221
00043          10  L221-UPDATE-NETNAME         PIC  X(08).              DTSIL221
00044                                                                   DTSIL221
00045          10  L221-UPDATE-START-DATE      PIC S9(09)       COMP-3. DTSIL221
00046                                                                   DTSIL221
00047          10  L221-UPDATE-START-TIME      PIC S9(07)       COMP-3. DTSIL221
00048                                                                   DTSIL221
00049          10  L221-UPDATE-SCR-ID          PIC  X(02).              DTSIL221
00050              88  L221-BYPASS-PURGE-ALL-88   VALUE '91' '99'.      DTSIL221
00051              88  L221-BYPASS-WRITTEN-OFF-88 VALUE '13' '91' '99'  DTSIL221
00052                                                   '71' '73' '74'  DTSIL221
00053                                                   '15' '42' '44'  DTSIL221
00054                                                   '47'.           DTSIL221
00055                                                                   DTSIL221
00056          10  L221-UPDATE-FUNCTION        PIC  X(01).              DTSIL221
00057                                                                   DTSIL221
00058          10  L221-UPDATE-END-ABSTIME     PIC S9(15)       COMP-3. DTSIL221
00059                                                                   DTSIL221
00060          10  L221-DOCUMENT-NO-AREA.                               DTSIL221
00061              15  L221-BATCH-NO           PIC S9(05)       COMP-3. DTSIL221
00062              15  L221-ITEM-NO            PIC S9(03)       COMP-3. DTSIL221
00063                                                                   DTSIL221
00064          10  FILLER                      PIC  X(27).              DTSIL221
00065                                                                   DTSIL221
00066          10  L221-MSG-AREA.                                       DTSIL221
00067              15  L221-MSG-ID             PIC  X(04).              DTSIL221
00068              15  L221-MSG-TEXT           PIC  X(60).              DTSIL221