From 7408a12cc651d77562c63df897f147de3d18b2fa Mon Sep 17 00:00:00 2001 From: faizana Date: Thu, 9 Oct 2025 01:58:17 -0400 Subject: [PATCH] revert the changes which were over right by Mistakenly by Z. --- Copybook/DTSIL415.cpy | 6 ++--- Copybook/DTSIS89.cpy | 58 +++++++++++++++++++++---------------------- 2 files changed, 32 insertions(+), 32 deletions(-) diff --git a/Copybook/DTSIL415.cpy b/Copybook/DTSIL415.cpy index 402d7ab..3f0d195 100644 --- a/Copybook/DTSIL415.cpy +++ b/Copybook/DTSIL415.cpy @@ -1,6 +1,6 @@ -00001 ***** 07/17/03 +00001 ***** 04/09/13 00002 * DTSIL415 -00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV005 +00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV002 00004 * MODULE LINKAGE. DTSIL415 00005 * DTSIL415 00006 * THE SETTING OF L415-MODE DETERMINES WHETHER THE PROGRAM WILL DTSIL415 @@ -48,7 +48,7 @@ 00048 PIC S9(05) COMP-3. DTSIL415 00049 15 L415-UC30H-FIRST-DEL-END-YRQ DTSIL415 00050 PIC S9(05) COMP-3. DTSIL415 -00051 15 L415-UC30H-FINAL-DEL-DATE DTSIL415 +00051 15 L415-UC30H-ESTIMATED-DATE CL**2 00052 PIC S9(09) COMP-3. DTSIL415 00053 15 L415-UC30H-FINAL-DEL-STRT-YRQ DTSIL415 00054 PIC S9(05) COMP-3. DTSIL415 diff --git a/Copybook/DTSIS89.cpy b/Copybook/DTSIS89.cpy index 760407c..38b6ce4 100644 --- a/Copybook/DTSIS89.cpy +++ b/Copybook/DTSIS89.cpy @@ -1,6 +1,6 @@ -00001 ***** 11/11/02 +00001 ***** 04/09/13 00002 * DTSIS89 -00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV001 +00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV003 00004 * DTSIS89 00005 ***** DTSIS89 00006 SKIP1 DTSIS89 @@ -88,33 +88,33 @@ 00088 20 MAP-UC30H-FIRST-DEL-YY-A PIC X(01). DTSIS89 00089 20 MAP-UC30H-FIRST-DEL-YY PIC X(02). DTSIS89 00090 SKIP1 DTSIS89 -00091 10 MAP-UC30H-FINAL-DEL-DATE-AREA. DTSIS89 -00092 15 MAP-UC30H-FINAL-DEL-MM-AREA. DTSIS89 -00093 20 MAP-UC30H-FINAL-DEL-MM-L PIC S9(04) COMP. DTSIS89 -00094 20 MAP-UC30H-FINAL-DEL-MM-A PIC X(01). DTSIS89 -00095 20 MAP-UC30H-FINAL-DEL-MM PIC X(02). DTSIS89 -00096 15 MAP-UC30H-FINAL-DEL-DD-AREA. DTSIS89 -00097 20 MAP-UC30H-FINAL-DEL-DD-L PIC S9(04) COMP. DTSIS89 -00098 20 MAP-UC30H-FINAL-DEL-DD-A PIC X(01). DTSIS89 -00099 20 MAP-UC30H-FINAL-DEL-DD PIC X(02). DTSIS89 -00100 15 MAP-UC30H-FINAL-DEL-YY-AREA. DTSIS89 -00101 20 MAP-UC30H-FINAL-DEL-YY-L PIC S9(04) COMP. DTSIS89 -00102 20 MAP-UC30H-FINAL-DEL-YY-A PIC X(01). DTSIS89 -00103 20 MAP-UC30H-FINAL-DEL-YY PIC X(02). DTSIS89 -00104 SKIP1 DTSIS89 -00105 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89 -00106 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89 -00107 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89 -00108 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89 -00109 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89 -00110 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89 -00111 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89 -00112 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89 -00113 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89 -00114 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89 -00115 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89 -00116 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89 -00117 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89 +00091 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89 +00092 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89 +00093 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89 +00094 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89 +00095 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89 +00096 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89 +00097 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89 +00098 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89 +00099 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89 +00100 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89 +00101 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89 +00102 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89 +00103 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89 +00104 SKIP1 CL**2 +00105 10 MAP-UC30H-ESTIMATED-DATE-AREA. CL**3 +00106 15 MAP-UC30H-ESTIMATED-MM-AREA. CL**3 +00107 20 MAP-UC30H-ESTIMATED-MM-L PIC S9(04) COMP. CL**3 +00108 20 MAP-UC30H-ESTIMATED-MM-A PIC X(01). CL**3 +00109 20 MAP-UC30H-ESTIMATED-MM PIC X(02). CL**3 +00110 15 MAP-UC30H-ESTIMATED-DD-AREA. CL**3 +00111 20 MAP-UC30H-ESTIMATED-DD-L PIC S9(04) COMP. CL**3 +00112 20 MAP-UC30H-ESTIMATED-DD-A PIC X(01). CL**3 +00113 20 MAP-UC30H-ESTIMATED-DD PIC X(02). CL**3 +00114 15 MAP-UC30H-ESTIMATED-YY-AREA. CL**3 +00115 20 MAP-UC30H-ESTIMATED-YY-L PIC S9(04) COMP. CL**3 +00116 20 MAP-UC30H-ESTIMATED-YY-A PIC X(01). CL**3 +00117 20 MAP-UC30H-ESTIMATED-YY PIC X(02). CL**3 00118 SKIP1 DTSIS89 00119 10 MAP-ESTB-DATE-AREA. DTSIS89 00120 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS89