24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIT061
|
|
00003 * DTSIT061 ELECTRONIC MEDIA BATCH UPDATE TRIGGER RECORD. LV001
|
|
00004 * DTSIT061
|
|
00005 * DTSIT061
|
|
00006 * 04/11/2001 INITIAL DEVELOPMENT. GD DTSIT061
|
|
00007 * DTSIT061
|
|
00008 * DTSIT061
|
|
00009 ***** DTSIT061
|
|
00010 DTSIT061
|
|
00011 10 T061-LENGTH PIC S9(04) COMP. DTSIT061
|
|
00012 DTSIT061
|
|
00013 10 T061-COMMON-AREA. DTSIT061
|
|
00014 15 T061-REC-TYPE PIC X(03) VALUE '061'. DTSIT061
|
|
00015 88 T061-061-88 VALUE '061'. DTSIT061
|
|
00016 15 T061-LOG-NO PIC 9(10). DTSIT061
|
|
00017 15 T061-ABSTIME PIC S9(15) COMP-3. DTSIT061
|
|
00018 DTSIT061
|
|
00019 10 T061-DATA-AREA. DTSIT061
|
|
00020 15 T061-TYPE PIC 9(02). DTSIT061
|
|
00021 88 T061-TYPE-WAGE-88 VALUE 01. DTSIT061
|
|
00022 DTSIT061
|
|
00023 15 FILLER PIC X(39). DTSIT061
|