DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
23
Copybook/DTSIT061.cpy
Normal file
23
Copybook/DTSIT061.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
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
|
||||
Reference in New Issue
Block a user