18 lines
1.3 KiB
COBOL
18 lines
1.3 KiB
COBOL
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
|