30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
00001 ***** 04/03/20
|
|
00002 * REVIEWED BY D. SHEPPERSON 10/23/1998 DTSIR906
|
|
00003 * LV001
|
|
00004 * DTSIR906 ON-LINE UPDATE LOG REPORT RECORD. DTSIR906
|
|
00005 * DTSIR906
|
|
00006 * ADDED BATCH AND ITEM NUMBERS TO TRACK DTSIR906
|
|
00007 * UPDATES TO ACCOUNTING TRANSACTIONS. 9/15/2006 GDTSIR906
|
|
00008 * DTSIR906
|
|
00009 ***** DTSIR906
|
|
00010 DTSIR906
|
|
00011 10 R906-LENGTH PIC S9(04) COMP. DTSIR906
|
|
00012 DTSIR906
|
|
00013 10 R906-SORT-AREA. DTSIR906
|
|
00014 15 R906-REC-TYPE PIC X(03) VALUE '906'. DTSIR906
|
|
00015 15 R906-OP-ID PIC X(08). DTSIR906
|
|
00016 15 R906-EMP-NO PIC S9(07) COMP-3. DTSIR906
|
|
00017 15 R906-TASK-START-DATE PIC S9(09) COMP-3. DTSIR906
|
|
00018 15 R906-TASK-START-TIME PIC S9(07) COMP-3. DTSIR906
|
|
00019 DTSIR906
|
|
00020 10 R906-DATA-AREA. DTSIR906
|
|
00021 15 R906-TASK-ID PIC S9(08) COMP. DTSIR906
|
|
00022 15 R906-TERM-ID PIC X(04). DTSIR906
|
|
00023 15 R906-NETNAME PIC X(08). DTSIR906
|
|
00024 15 R906-SCR-ID PIC X(02). DTSIR906
|
|
00025 15 R906-FUNCTION PIC X(01). DTSIR906
|
|
00026 15 R906-BATCH-NO PIC S9(05) COMP-3. DTSIR906
|
|
00027 15 R906-ITEM-NO PIC S9(03) COMP-3. DTSIR906
|
|
00028 DTSIR906
|
|
00029 10 R906-PADDING-FOR-SYNCSORT PIC X(30). DTSIR906
|