81 lines
6.3 KiB
COBOL
81 lines
6.3 KiB
COBOL
00001 ***** 11/27/01
|
|
00002 * DTSIL004
|
|
00003 * DTSIL004 QUARTER EDIT/CONVERSION MODULE LINKAGE. LV007
|
|
00004 * DTSIL004
|
|
00005 * NOTE: A NUMBER OF TAX SYSTEM MODULES EXPECT DTSIL004
|
|
00006 * L004-ABS-QTR TO HAVE A VALUE OF LESS THAN DTSIL004
|
|
00007 * OR EQUAL TO 400. DTSIL004
|
|
00008 * DTSIL004
|
|
00009 * THIS SHOULD WORK FINE UNTIL ABOUT THE YEAR DTSIL004
|
|
00010 * 2028. DTSIL004
|
|
00011 * DTSIL004
|
|
00012 * IF IN THE YEAR 2028 THIS SYSTEM REMAINS IN USE DTSIL004
|
|
00013 * AND THE PROGRAMMERS ARE REVISING THE DATE LOGIC, DTSIL004
|
|
00014 * THEN THOSE PROGRAMMERS (IN ADDITION TO HAVING MY DTSIL004
|
|
00015 * DEEPEST SYMPATHY FOR THE CRUEL FATE OF HAVING DTSIL004
|
|
00016 * TO MAINTAIN AN ANCIENT SYSTEM) MAY NEED LOCATE AND DTSIL004
|
|
00017 * REVISE THE MODULES THAT EXPECT L004-ABS-QTR TO DTSIL004
|
|
00018 * HAVE A VALUE OF LESS THAN OR EQUAL TO 400. DTSIL004
|
|
00019 * DTSIL004
|
|
00020 * DTSIL004
|
|
00021 * 09/29/1998 ADDED L004-SLASH-5-QTR TO LINKAGE DTSIL004
|
|
00022 * AREA (REPLACING FILLER). EHH DTSIL004
|
|
00023 * DTSIL004
|
|
00024 * 10/30/2001 ADDED L004-ANN-DEFAULT-DUE-DATE, DTSIL004
|
|
00025 * REPLACING FILLER. GD DTSIL004
|
|
00026 ***** DTSIL004
|
|
00027 DTSIL004
|
|
00028 10 L004-OPTION PIC X(01). DTSIL004
|
|
00029 88 L004-FROM-5 VALUE '1'. DTSIL004
|
|
00030 88 L004-FROM-3 VALUE '2'. DTSIL004
|
|
00031 88 L004-FROM-ABS VALUE '3'. DTSIL004
|
|
00032 88 L004-FROM-DATE VALUE '4'. DTSIL004
|
|
00033 88 L004-FROM-NINES-COMPLEMENT VALUE '5'. DTSIL004
|
|
00034 DTSIL004
|
|
00035 10 L004-RETURN-CODE PIC X(01). DTSIL004
|
|
00036 88 L004-VALID-QTR VALUE '0'. DTSIL004
|
|
00037 88 L004-INVALID-QTR VALUE '1'. DTSIL004
|
|
00038 DTSIL004
|
|
00039 10 L004-QTR-5-AREA. DTSIL004
|
|
00040 15 L004-QTR-5-X. DTSIL004
|
|
00041 20 L004-QTR-5-YR PIC 9(04). DTSIL004
|
|
00042 20 L004-QTR-5-Q PIC 9(01). DTSIL004
|
|
00043 15 L004-QTR-5-9 REDEFINES L004-QTR-5-X DTSIL004
|
|
00044 PIC 9(05). DTSIL004
|
|
00045 DTSIL004
|
|
00046 10 L004-QTR-3-AREA. DTSIL004
|
|
00047 15 L004-QTR-3. DTSIL004
|
|
00048 20 L004-QTR-3-YR PIC 9(02). DTSIL004
|
|
00049 20 L004-QTR-3-Q PIC 9(01). DTSIL004
|
|
00050 15 L004-QTR-3-9 REDEFINES L004-QTR-3 DTSIL004
|
|
00051 PIC 9(03). DTSIL004
|
|
00052 15 L004-QTR-3-X REDEFINES L004-QTR-3. DTSIL004
|
|
00053 20 L004-QTR-3-YR-X PIC X(02). DTSIL004
|
|
00054 20 L004-QTR-3-Q-X PIC X(01). DTSIL004
|
|
00055 DTSIL004
|
|
00056 10 L004-NINES-COMPLEMENT-QTR PIC S9(05) COMP-3. DTSIL004
|
|
00057 DTSIL004
|
|
00058 10 L004-ABS-QTR PIC S9(04) COMP. DTSIL004
|
|
00059 DTSIL004
|
|
00060 10 L004-DATE PIC S9(09) COMP-3. DTSIL004
|
|
00061 DTSIL004
|
|
00062 10 L004-SLASH-QTR. DTSIL004
|
|
00063 15 L004-SLASH-YR PIC 9(02). DTSIL004
|
|
00064 15 L004-SLASH-LIT PIC X(01). DTSIL004
|
|
00065 15 L004-SLASH-Q PIC 9(01). DTSIL004
|
|
00066 DTSIL004
|
|
00067 10 L004-QTR-START-DATE PIC S9(09) COMP-3. DTSIL004
|
|
00068 DTSIL004
|
|
00069 10 L004-QTR-END-DATE PIC S9(09) COMP-3. DTSIL004
|
|
00070 DTSIL004
|
|
00071 10 L004-QTR-DEFAULT-DUE-DATE PIC S9(09) COMP-3. DTSIL004
|
|
00072 DTSIL004
|
|
00073 10 L004-SLASH-5-QTR. DTSIL004
|
|
00074 15 L004-SLASH-5-YR PIC 9(04). DTSIL004
|
|
00075 15 L004-SLASH-5-LIT PIC X(01). DTSIL004
|
|
00076 15 L004-SLASH-5-Q PIC 9(01). DTSIL004
|
|
00077 DTSIL004
|
|
00078 10 L004-ANN-DEFAULT-DUE-DATE PIC S9(09) COMP-3. DTSIL004
|
|
00079 DTSIL004
|
|
00080 10 FILLER PIC X(12). DTSIL004
|