00001 ***** 12/21/99 00002 * DTSIL001 00003 * DTSIL001 DATE EDIT/CONVERSION MODULE LINKAGE. LV007 00004 * DTSIL001 00005 * CL**5 00006 * 09/29/1998 L001-SLASH-8-DATE ADDED TO LINKAGE CL**5 00007 * (REPLACING FILLER). EHH CL**5 00008 * CL**5 00009 ***** DTSIL001 00010 CL**4 00011 10 L001-OPTION PIC X(1). DTSIL001 00012 88 L001-FROM-CAL-8 VALUE '0'. DTSIL001 00013 88 L001-FROM-FED-8 VALUE '1'. DTSIL001 00014 88 L001-FROM-JUL VALUE '2'. DTSIL001 00015 88 L001-FROM-ABS-DAY VALUE '3'. DTSIL001 00016 88 L001-FROM-CAL-6 VALUE '4'. DTSIL001 00017 88 L001-FROM-FED-6 VALUE '5'. DTSIL001 00018 88 L001-FROM-NINES-COMPLEMENT VALUE '6'. DTSIL001 00019 CL**4 00020 10 L001-DAY-OF-WEEK PIC S9(1) COMP-3. DTSIL001 00021 88 L001-INVALID-DATE VALUE +0. DTSIL001 00022 88 L001-SUNDAY VALUE +1. DTSIL001 00023 88 L001-MONDAY VALUE +2. DTSIL001 00024 88 L001-TUESDAY VALUE +3. DTSIL001 00025 88 L001-WEDNESDAY VALUE +4. DTSIL001 00026 88 L001-THURSDAY VALUE +5. DTSIL001 00027 88 L001-FRIDAY VALUE +6. DTSIL001 00028 88 L001-SATURDAY VALUE +7. DTSIL001 00029 88 L001-VALID-DATE VALUE +1 THRU +7.DTSIL001 00030 CL**4 00031 10 L001-DATE-8-AREA. DTSIL001 00032 15 L001-FED-8-DATE-X. DTSIL001 00033 20 L001-FED-8-YR PIC 9(4). DTSIL001 00034 20 L001-FED-8-MO PIC 9(2). DTSIL001 00035 20 L001-FED-8-DA PIC 9(2). DTSIL001 00036 15 L001-FED-8-DATE-9 REDEFINES L001-FED-8-DATE-X DTSIL001 00037 PIC 9(8). DTSIL001 00038 15 FILLER PIC 9(4). DTSIL001 00039 10 FILLER REDEFINES L001-DATE-8-AREA. DTSIL001 00040 15 FILLER PIC 9(4). DTSIL001 00041 15 L001-CAL-8-DATE-X. DTSIL001 00042 20 L001-CAL-8-MO PIC 9(2). DTSIL001 00043 20 L001-CAL-8-DA PIC 9(2). DTSIL001 00044 20 L001-CAL-8-YR PIC 9(4). DTSIL001 00045 15 L001-CAL-8-DATE-9 REDEFINES L001-CAL-8-DATE-X DTSIL001 00046 PIC 9(8). DTSIL001 00047 CL**4 00048 10 L001-DATE-6-AREA. DTSIL001 00049 15 L001-FED-6-DATE-X. DTSIL001 00050 20 L001-FED-6-YR PIC 9(2). DTSIL001 00051 20 L001-FED-6-MO PIC 9(2). DTSIL001 00052 20 L001-FED-6-DA PIC 9(2). DTSIL001 00053 15 L001-FED-6-DATE-9 REDEFINES L001-FED-6-DATE-X DTSIL001 00054 PIC 9(6). DTSIL001 00055 15 FILLER PIC 9(2). DTSIL001 00056 10 FILLER REDEFINES L001-DATE-6-AREA. DTSIL001 00057 15 FILLER PIC 9(2). DTSIL001 00058 15 L001-CAL-6-DATE-X. DTSIL001 00059 20 L001-CAL-6-MO PIC 9(2). DTSIL001 00060 20 L001-CAL-6-DA PIC 9(2). DTSIL001 00061 20 L001-CAL-6-YR PIC 9(2). DTSIL001 00062 15 L001-CAL-6-DATE-9 REDEFINES L001-CAL-6-DATE-X DTSIL001 00063 PIC 9(6). DTSIL001 00064 CL**4 00065 10 L001-SLASH-DATE. DTSIL001 00066 15 L001-SLASH-MO PIC 9(2). DTSIL001 00067 15 FILLER PIC X(1). DTSIL001 00068 15 L001-SLASH-DA PIC 9(2). DTSIL001 00069 15 FILLER PIC X(1). DTSIL001 00070 15 L001-SLASH-YR PIC 9(2). CL**7 00071 CL**4 00072 10 L001-JUL-DATE PIC S9(7) COMP-3.DTSIL001 00073 CL**4 00074 10 L001-JUL-ABS-DAY PIC S9(8) COMP. DTSIL001 00075 CL**4 00076 10 L001-NINES-COMPLEMENT-DATE PIC S9(09) COMP-3.DTSIL001 00077 CL**4 00078 10 L001-SLASH-8-DATE. CL**4 00079 15 L001-SLASH-8-MO PIC 9(2). CL**4 00080 15 FILLER PIC X(1). CL**4 00081 15 L001-SLASH-8-DA PIC 9(2). CL**4 00082 15 FILLER PIC X(1). CL**4 00083 15 L001-SLASH-8-YR PIC 9(4). CL**4 00084 CL**4 00085 10 FILLER PIC X(09). CL**4