69 lines
5.4 KiB
COBOL
69 lines
5.4 KiB
COBOL
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
|