DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
17
Copybook/DTSIL003.cpy
Normal file
17
Copybook/DTSIL003.cpy
Normal file
@ -0,0 +1,17 @@
|
||||
00001 ***** 03/01/12
|
||||
00002 * DTSIL003
|
||||
00003 * MACIL003 HOLIDAY DETERMINATION MODULE LINKAGE. LV005
|
||||
00004 * DTSIL003
|
||||
00005 ***** DTSIL003
|
||||
00006 DTSIL003
|
||||
00007 10 L003-OPTION PIC X(01). DTSIL003
|
||||
00008 88 L003-AGENCY-DAY VALUE '1'. DTSIL003
|
||||
00009 88 L003-OPEN-FILE VALUE '2'. DTSIL003
|
||||
00010 DTSIL003
|
||||
00011 10 L003-DATE PIC S9(09) COMP-3. DTSIL003
|
||||
00012 DTSIL003
|
||||
00013 10 L003-DAY-TYPE PIC S9(01) COMP-3. DTSIL003
|
||||
00014 88 L003-NOT-WORK-DAY VALUE +0. DTSIL003
|
||||
00015 88 L003-IS-WORK-DAY VALUE +1. DTSIL003
|
||||
00016 DTSIL003
|
||||
00017 10 FILLER PIC X(09). DTSIL003
|
||||
Reference in New Issue
Block a user