From c59b4762c27281a8d0a707aca1e31792529172ad Mon Sep 17 00:00:00 2001 From: faizana Date: Sat, 13 Sep 2025 06:24:12 -0400 Subject: [PATCH] Screen18, screen 13, and screen L1 are fixed. --- CICS/DTSCS18.cob | 5 +- CICS/DTSCU072.cob | 1214 +++++++++++++++++++++++---------------------- CICSFiles.txt | 2 +- Maps/DTSML1.bms | 545 ++++++++++---------- Maps/DTSMSET.cpy | 14 - Maps/DTSMSET.xml | 45 -- 6 files changed, 887 insertions(+), 938 deletions(-) diff --git a/CICS/DTSCS18.cob b/CICS/DTSCS18.cob index edfd040..c489c0b 100644 --- a/CICS/DTSCS18.cob +++ b/CICS/DTSCS18.cob @@ -1305,11 +1305,14 @@ 01304 SKIP1 DTSCS18 01305 IF CURSOR-SET-GOTO DTSCS18 01306 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS18 +RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A 01307 ELSE DTSCS18 01308 IF CURSOR-SET-LINE-NUMBER DTSCS18 01309 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS18 +RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A 01310 ELSE DTSCS18 -01311 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS18 +01311 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS18 +RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A. 01312 SKIP1 DTSCS18 01313 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS18 01314 SKIP1 DTSCS18 diff --git a/CICS/DTSCU072.cob b/CICS/DTSCU072.cob index 3843be3..6ff4aab 100644 --- a/CICS/DTSCU072.cob +++ b/CICS/DTSCU072.cob @@ -1,6 +1,6 @@ -00001 IDENTIFICATION DIVISION. 05/15/17 +00001 IDENTIFICATION DIVISION. 09/12/25 00002 PROGRAM-ID. DTSCU072. DTSCU072 -00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV025 +00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV011 00004 DATE-WRITTEN. NOVEMBER 1991. DTSCU072 00005 DATE-COMPILED. DTSCU072 00006 SKIP3 DTSCU072 @@ -63,635 +63,655 @@ 00063 * 04/02/2002 RECOMPILED FOR NEW VERSION(R730) OF FINALIST. DTSCU072 00064 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSCU072 00065 * DTSCU072 -00066 * 99/99/9999 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU072 -00067 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU072 -00068 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSCU072 -00069 * DTSCU072 -00070 * DTSCU072 -00071 * DESCRIPTION: DTSCU072 +00066 * 05/15/2017 UNCOMMENTED CODE FOR CHECKING CASS CERTIFICATION CL**2 +00067 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 CL**2 +00068 * CL**2 +00069 * 99/99/9999 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU072 +00070 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU072 +00071 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSCU072 00072 * DTSCU072 -00073 * EDIT AN ADDRESS. DTSCU072 -00074 * DTSCU072 +00073 * DTSCU072 +00074 * DESCRIPTION: DTSCU072 00075 * DTSCU072 -00076 * SEE ISSUE STATEMENT 12, ISSUE STATEMENT 13, AND DTSCU072 -00077 * THE 'FINALIST' MANUAL. DTSCU072 +00076 * EDIT AN ADDRESS. DTSCU072 +00077 * DTSCU072 00078 * DTSCU072 -00079 * SEE THE COMMENTS IN THE CODE. DTSCU072 -00080 * DTSCU072 +00079 * SEE ISSUE STATEMENT 12, ISSUE STATEMENT 13, AND DTSCU072 +00080 * THE 'FINALIST' MANUAL. DTSCU072 00081 * DTSCU072 -00082 * 04/20/94 THE LOGIC PERMITTING A BLANK DELIVERY LINE DTSCU072 -00083 * (IF L072-NAME IS A VALID FIRM NAME) IS DTSCU072 -00084 * SUPPRESSED. DTSCU072 -00085 * DTSCU072 -00086 * STATUS UNIT WORKERS INDICATE THEY "NEVER" DTSCU072 -00087 * ENCOUNTER A BLANK DELIVERY LINE. DTSCU072 +00082 * SEE THE COMMENTS IN THE CODE. DTSCU072 +00083 * DTSCU072 +00084 * DTSCU072 +00085 * 04/20/94 THE LOGIC PERMITTING A BLANK DELIVERY LINE DTSCU072 +00086 * (IF L072-NAME IS A VALID FIRM NAME) IS DTSCU072 +00087 * SUPPRESSED. DTSCU072 00088 * DTSCU072 -00089 ***** DTSCU072 -00090 SKIP3 DTSCU072 -00091 ENVIRONMENT DIVISION. DTSCU072 -00092 SKIP3 DTSCU072 -00093 DATA DIVISION. DTSCU072 -00094 SKIP3 DTSCU072 -00095 WORKING-STORAGE SECTION. DTSCU072 -000955 77 PAN-VALET PICTURE X(24) VALUE '025DTSCU072 05/15/17'. DTSCU072 -00096 SKIP3 DTSCU072 -00097 01 WRK-AREA. DTSCU072 -00098 05 WRK-ABEND-CODE PIC X(04) VALUE 'U072'. DTSCU072 -00099 DTSCU072 -00100 05 WRK-RESP-CODE PIC S9(08) COMP. DTSCU072 -00101 SKIP3 DTSCU072 -00102 01 FC-FINALIST-RETURN-CODES. DTSCU072 -00103 05 FC-REASON-CODES. DTSCU072 -00104 10 FC-REASON-CODE1 PIC 9(01). DTSCU072 -00105 88 FC-ZIP-VERIF-88 VALUE 0 . DTSCU072 -00106 88 FC-ZIP-GUESSED-88 VALUE 4 . DTSCU072 -00107 88 FC-ZIP-FIXED-88 VALUE 5 6 7 . DTSCU072 -00108 88 FC-ZIP-RETURNED-88 VALUE 1 . DTSCU072 -00109 88 FC-ZIP-BYPASSED-88 VALUE 2 3 . DTSCU072 -00110 88 FC-ZIP-BAD-88 VALUE 9. DTSCU072 -00111 10 FC-REASON-CODE2 PIC 9(01). DTSCU072 -00112 88 FC-CITY-VERIF-88 VALUE 0 . DTSCU072 -00113 88 FC-CITY-VANITY-88 VALUE 7 . DTSCU072 -00114 88 FC-CITY-STANDARD-88 VALUE 2 3 . DTSCU072 -00115 88 FC-CITY-GUESSED-88 VALUE 6 . DTSCU072 -00116 88 FC-CITY-FIXED-88 VALUE 5 . DTSCU072 -00117 88 FC-CITY-RETURNED-88 VALUE 1 . DTSCU072 -00118 88 FC-CITY-BYPASSED-88 VALUE 4 . DTSCU072 -00119 88 FC-CITY-BAD-88 VALUE 9. DTSCU072 -00120 10 FC-REASON-CODE3-CARRIER-ROUTE PIC 9(01). DTSCU072 -00121 10 FC-REASON-CODE4-ZIP-PLUS-4 PIC 9(01). DTSCU072 -00122 10 FC-REASON-CODE5 PIC 9(01). DTSCU072 -00123 88 FC-STREET-VERIF-88 VALUE 0 . DTSCU072 -00124 88 FC-STREET-STANDARD-88 VALUE 1 . DTSCU072 -00125 88 FC-STREET-GUESSED-88 VALUE 2 3 4 6 . DTSCU072 -00126 88 FC-STREET-BAD-88 VALUE 9. DTSCU072 -00127 10 FC-REASON-CODE6 PIC 9(01). DTSCU072 -00128 88 FC-RANGE-VERIF-88 VALUE 0 . DTSCU072 -00129 88 FC-RANGE-GUESSED-88 VALUE 4 . DTSCU072 -00130 88 FC-RANGE-BAD-88 VALUE 1 2 3 9. DTSCU072 -00131 10 FC-REASON-CODE7 PIC 9(01). DTSCU072 -00132 88 FC-SUFDIR-VERIF-88 VALUE 0 . DTSCU072 -00133 88 FC-SUFDIR-MULTI-88 VALUE 4 . DTSCU072 -00134 88 FC-SUFDIR-FIXED-88 VALUE 1 2 3 . DTSCU072 -00135 88 FC-SUFDIR-BAD-88 VALUE 9. DTSCU072 -00136 05 FC-ADDRESS-INFO-CODES. DTSCU072 -00137 10 FC-INFO-CODE1 PIC 9(01). DTSCU072 -00138 10 FC-INFO-CODE2 PIC 9(01). DTSCU072 -00139 10 FC-INFO-CODE3 PIC 9(01). DTSCU072 -00140 10 FC-INFO-CODE4 PIC 9(01). DTSCU072 -00141 88 FC-BOTH-ADDR-BAD-88 VALUE 9. DTSCU072 -00142 10 FC-INFO-CODE5 PIC 9(01). DTSCU072 -00143 10 FC-INFO-CODE678 PIC 9(03). DTSCU072 -00144 SKIP3 DTSCU072 -00145 01 MSG-AREAS. DTSCU072 -00146 05 MSG-E081-AREA. DTSCU072 -00147 10 MSG-E081-MSG-ID PIC X(04) VALUE 'E081'.DTSCU072 -00148 10 MSG-E081-MSG-TXT. DTSCU072 -00149 15 FILLER PIC X(25) DTSCU072 -00150 VALUE 'FINALIST NOT AVAILABLE'. DTSCU072 -00151 15 MSG-E081-CAERRMOD PIC X(08). DTSCU072 -00152 15 FILLER PIC X(02) VALUE SPACES.DTSCU072 -00153 15 MSG-E081-CAERRSRC PIC X(08). DTSCU072 -00154 15 FILLER PIC X(02) VALUE SPACES.DTSCU072 -00155 15 MSG-E081-CAERRDSC PIC X(09). DTSCU072 -00156 15 FILLER PIC X(06) VALUE SPACES.DTSCU072 -00157 05 MSG-E082-AREA. DTSCU072 -00158 10 FILLER PIC X(21) VALUE 'E082FINALIST RESULT: '.DTSCU072 -00159 10 FILLER PIC X(43) DTSCU072 -00160 VALUE 'UNABLE TO DETERMINE ZIP PLUS FOUR'. DTSCU072 -00161 05 MSG-E083-AREA. DTSCU072 -00162 10 FILLER PIC X(21) VALUE 'E083FINALIST RESULT: '.DTSCU072 +00089 * STATUS UNIT WORKERS INDICATE THEY "NEVER" DTSCU072 +00090 * ENCOUNTER A BLANK DELIVERY LINE. DTSCU072 +00091 * DTSCU072 +00092 ***** DTSCU072 +00093 SKIP3 DTSCU072 +00094 ENVIRONMENT DIVISION. DTSCU072 +00095 SKIP3 DTSCU072 +00096 DATA DIVISION. DTSCU072 +00097 SKIP3 DTSCU072 +00098 WORKING-STORAGE SECTION. DTSCU072 +000985 77 PAN-VALET PICTURE X(24) VALUE '011DTSCU072 09/12/25'. DTSCU072 +00099 77 PAN-VALET PICTURE X(24) VALUE '023DTSCU072 05/15/02'. DTSCU072 +00100 SKIP3 DTSCU072 +00101 01 WRK-AREA. DTSCU072 +00102 05 WRK-ABEND-CODE PIC X(04) VALUE 'U072'. DTSCU072 +00103 DTSCU072 +00104 05 WRK-RESP-CODE PIC S9(08) COMP. DTSCU072 +00105 SKIP3 DTSCU072 +00106 01 FC-FINALIST-RETURN-CODES. DTSCU072 +00107 05 FC-REASON-CODES. DTSCU072 +00108 10 FC-REASON-CODE1 PIC 9(01). DTSCU072 +00109 88 FC-ZIP-VERIF-88 VALUE 0 . DTSCU072 +00110 88 FC-ZIP-GUESSED-88 VALUE 4 . DTSCU072 +00111 88 FC-ZIP-FIXED-88 VALUE 5 6 7 . DTSCU072 +00112 88 FC-ZIP-RETURNED-88 VALUE 1 . DTSCU072 +00113 88 FC-ZIP-BYPASSED-88 VALUE 2 3 . DTSCU072 +00114 88 FC-ZIP-BAD-88 VALUE 9. DTSCU072 +00115 10 FC-REASON-CODE2 PIC 9(01). DTSCU072 +00116 88 FC-CITY-VERIF-88 VALUE 0 . DTSCU072 +00117 88 FC-CITY-VANITY-88 VALUE 7 . DTSCU072 +00118 88 FC-CITY-STANDARD-88 VALUE 2 3 . DTSCU072 +00119 88 FC-CITY-GUESSED-88 VALUE 6 . DTSCU072 +00120 88 FC-CITY-FIXED-88 VALUE 5 . DTSCU072 +00121 88 FC-CITY-RETURNED-88 VALUE 1 . DTSCU072 +00122 88 FC-CITY-BYPASSED-88 VALUE 4 . DTSCU072 +00123 88 FC-CITY-BAD-88 VALUE 9. DTSCU072 +00124 10 FC-REASON-CODE3-CARRIER-ROUTE PIC 9(01). DTSCU072 +00125 10 FC-REASON-CODE4-ZIP-PLUS-4 PIC 9(01). DTSCU072 +00126 10 FC-REASON-CODE5 PIC 9(01). DTSCU072 +00127 88 FC-STREET-VERIF-88 VALUE 0 . DTSCU072 +00128 88 FC-STREET-STANDARD-88 VALUE 1 . DTSCU072 +00129 88 FC-STREET-GUESSED-88 VALUE 2 3 4 6 . DTSCU072 +00130 88 FC-STREET-BAD-88 VALUE 9. DTSCU072 +00131 10 FC-REASON-CODE6 PIC 9(01). DTSCU072 +00132 88 FC-RANGE-VERIF-88 VALUE 0 . DTSCU072 +00133 88 FC-RANGE-GUESSED-88 VALUE 4 . DTSCU072 +00134 88 FC-RANGE-BAD-88 VALUE 1 2 3 9. DTSCU072 +00135 10 FC-REASON-CODE7 PIC 9(01). DTSCU072 +00136 88 FC-SUFDIR-VERIF-88 VALUE 0 . DTSCU072 +00137 88 FC-SUFDIR-MULTI-88 VALUE 4 . DTSCU072 +00138 88 FC-SUFDIR-FIXED-88 VALUE 1 2 3 . DTSCU072 +00139 88 FC-SUFDIR-BAD-88 VALUE 9. DTSCU072 +00140 05 FC-ADDRESS-INFO-CODES. DTSCU072 +00141 10 FC-INFO-CODE1 PIC 9(01). DTSCU072 +00142 10 FC-INFO-CODE2 PIC 9(01). DTSCU072 +00143 10 FC-INFO-CODE3 PIC 9(01). DTSCU072 +00144 10 FC-INFO-CODE4 PIC 9(01). DTSCU072 +00145 88 FC-BOTH-ADDR-BAD-88 VALUE 9. DTSCU072 +00146 10 FC-INFO-CODE5 PIC 9(01). DTSCU072 +00147 10 FC-INFO-CODE678 PIC 9(03). DTSCU072 +00148 SKIP3 DTSCU072 +00149 01 MSG-AREAS. DTSCU072 +00150 05 MSG-E081-AREA. DTSCU072 +00151 10 MSG-E081-MSG-ID PIC X(04) VALUE 'E081'.DTSCU072 +00152 10 MSG-E081-MSG-TXT. DTSCU072 +00153 15 FILLER PIC X(25) DTSCU072 +00154 VALUE 'FINALIST NOT AVAILABLE'. DTSCU072 +00155 15 MSG-E081-CAERRMOD PIC X(08). DTSCU072 +00156 15 FILLER PIC X(02) VALUE SPACES.DTSCU072 +00157 15 MSG-E081-CAERRSRC PIC X(08). DTSCU072 +00158 15 FILLER PIC X(02) VALUE SPACES.DTSCU072 +00159 15 MSG-E081-CAERRDSC PIC X(09). DTSCU072 +00160 15 FILLER PIC X(06) VALUE SPACES.DTSCU072 +00161 05 MSG-E082-AREA. DTSCU072 +00162 10 FILLER PIC X(21) VALUE 'E082FINALIST RESULT: '.DTSCU072 00163 10 FILLER PIC X(43) DTSCU072 -00164 VALUE 'ZIP CODE FAILED'. DTSCU072 -00165 05 MSG-E084-AREA. DTSCU072 -00166 10 FILLER PIC X(21) VALUE 'E084FINALIST RESULT: '.DTSCU072 +00164 VALUE 'UNABLE TO DETERMINE ZIP PLUS FOUR'. DTSCU072 +00165 05 MSG-E083-AREA. DTSCU072 +00166 10 FILLER PIC X(21) VALUE 'E083FINALIST RESULT: '.DTSCU072 00167 10 FILLER PIC X(43) DTSCU072 -00168 VALUE 'CITY FAILED'. DTSCU072 -00169 05 MSG-E085-AREA. DTSCU072 -00170 10 FILLER PIC X(21) VALUE 'E085FINALIST RESULT: '.DTSCU072 +00168 VALUE 'ZIP CODE FAILED'. DTSCU072 +00169 05 MSG-E084-AREA. DTSCU072 +00170 10 FILLER PIC X(21) VALUE 'E084FINALIST RESULT: '.DTSCU072 00171 10 FILLER PIC X(43) DTSCU072 -00172 VALUE 'STREET ADDRESS FAILED'. DTSCU072 -00173 05 MSG-E086-AREA. DTSCU072 -00174 10 FILLER PIC X(21) VALUE 'E086FINALIST RESULT: '.DTSCU072 +00172 VALUE 'CITY FAILED'. DTSCU072 +00173 05 MSG-E085-AREA. DTSCU072 +00174 10 FILLER PIC X(21) VALUE 'E085FINALIST RESULT: '.DTSCU072 00175 10 FILLER PIC X(43) DTSCU072 -00176 VALUE 'ADDRESS FAILED'. DTSCU072 -00177 05 MSG-E087-AREA. DTSCU072 -00178 10 FILLER PIC X(21) VALUE 'E087FINALIST RESULT: '.DTSCU072 +00176 VALUE 'STREET ADDRESS FAILED'. DTSCU072 +00177 05 MSG-E086-AREA. DTSCU072 +00178 10 FILLER PIC X(21) VALUE 'E086FINALIST RESULT: '.DTSCU072 00179 10 FILLER PIC X(43) DTSCU072 -00180 VALUE 'ADDRESS LINE LONGER THAN 40 CHARACTERS'. DTSCU072 -00181 *****05 MSG-E08Y-AREA. DTSCU072 -00182 ***** 10 FILLER PIC X(04) VALUE 'E08Y'. DTSCU072 -00183 ***** 10 FILLER PIC X(60) DTSCU072 -00184 ***** VALUE 'ILLEGAL NAME FORMAT FOUND ON MASTER FILE'. DTSCU072 -00185 *****05 MSG-E08Z-AREA. DTSCU072 -00186 ***** 10 FILLER PIC X(04) VALUE 'E08ZFINALIST RESULT: '.DTSCU072 -00187 ***** 10 FILLER PIC X(43) DTSCU072 -00188 ***** VALUE 'NON-FIRM NAME FOUND ON MASTER FILE'. DTSCU072 -00189 EJECT DTSCU072 -00190 01 C072-LITERALS. DTSCU072 -00191 ++INCLUDE DTSIC072 DTSCU072 -00192 SKIP3 DTSCU072 -00193 ++INCLUDE LPFNCL01 DTSCU072 -00194 EJECT DTSCU072 -00195 01 CECD-LITERALS. DTSCU072 -00196 ++INCLUDE DTSICECD DTSCU072 -00197 EJECT DTSCU072 -00198 LINKAGE SECTION. DTSCU072 -00199 SKIP3 DTSCU072 -00200 01 DFHCOMMAREA. DTSCU072 -00201 ++INCLUDE DTSIL072 DTSCU072 -00202 EJECT DTSCU072 -00203 PROCEDURE DIVISION. DTSCU072 -00204 DTSCU072 -00205 *& NOTE: THE FOLLOWING LINE DISABLES CASS CERTIFICATION. DTSCU072 -00206 *& IT MUST BE REMOVED WHEN FINALIST IS AVAILABLE. DTSCU072 -00207 DTSCU072 -00208 *& SET L072-NO-CASS-EDITS-88 TO TRUE. DTSCU072 -00209 *& DTSCU072 -00210 PERFORM I1000-INITIALIZE THROUGH I1000-EXIT. DTSCU072 +00180 VALUE 'ADDRESS FAILED'. DTSCU072 +00181 05 MSG-E087-AREA. DTSCU072 +00182 10 FILLER PIC X(21) VALUE 'E087FINALIST RESULT: '.DTSCU072 +00183 10 FILLER PIC X(43) DTSCU072 +00184 VALUE 'ADDRESS LINE LONGER THAN 40 CHARACTERS'. DTSCU072 +00185 *****05 MSG-E08Y-AREA. DTSCU072 +00186 ***** 10 FILLER PIC X(04) VALUE 'E08Y'. DTSCU072 +00187 ***** 10 FILLER PIC X(60) DTSCU072 +00188 ***** VALUE 'ILLEGAL NAME FORMAT FOUND ON MASTER FILE'. DTSCU072 +00189 *****05 MSG-E08Z-AREA. DTSCU072 +00190 ***** 10 FILLER PIC X(04) VALUE 'E08ZFINALIST RESULT: '.DTSCU072 +00191 ***** 10 FILLER PIC X(43) DTSCU072 +00192 ***** VALUE 'NON-FIRM NAME FOUND ON MASTER FILE'. DTSCU072 +00193 EJECT DTSCU072 +00194 01 C072-LITERALS. DTSCU072 +00195 ++INCLUDE DTSIC072 DTSCU072 +00196 SKIP3 DTSCU072 +00197 ++INCLUDE LPFNCL01 DTSCU072 +00198 EJECT DTSCU072 +00199 01 CECD-LITERALS. DTSCU072 +00200 ++INCLUDE DTSICECD DTSCU072 +00201 EJECT DTSCU072 +00202 LINKAGE SECTION. DTSCU072 +00203 SKIP3 DTSCU072 +00204 01 DFHCOMMAREA. DTSCU072 +00205 ++INCLUDE DTSIL072 DTSCU072 +00206 EJECT DTSCU072 +00207 PROCEDURE DIVISION. DTSCU072 +00208 DTSCU072 +00209 *& NOTE: THE FOLLOWING LINE DISABLES CASS CERTIFICATION. DTSCU072 +00210 *& IT MUST BE REMOVED WHEN FINALIST IS AVAILABLE. DTSCU072 00211 DTSCU072 -00212 MOVE L072-ST TO C072-ST. DTSCU072 -00213 IF C072-DC-88 DTSCU072 -00214 PERFORM P2000-US-ADDRESS THRU P2000-EXIT DTSCU072 -00215 ELSE DTSCU072 -00216 IF C072-US-88 DTSCU072 -00217 PERFORM P2000-US-ADDRESS THRU P2000-EXIT DTSCU072 -00218 ELSE DTSCU072 -00219 IF C072-CANADA-88 DTSCU072 -00220 PERFORM P1000-CANADA-ADDRESS THRU P1000-EXIT DTSCU072 -00221 ELSE DTSCU072 -00222 IF C072-FOREIGN-88 DTSCU072 -00223 PERFORM P3000-FOREIGN-ADDRESS THRU P3000-EXIT DTSCU072 -00224 ELSE DTSCU072 -00225 SET L072-ST-NOT-VALID-88 TO TRUE DTSCU072 -00226 IF L072-ST = SPACE OR LOW-VALUE DTSCU072 -00227 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00228 ELSE DTSCU072 -00229 MOVE EMSG-FIELD-NOT-VALID TO L072-MSG-AREA. DTSCU072 -00230 DTSCU072 -00231 IF L072-MSG-ID NOT = SPACE DTSCU072 -00232 SET L072-ADDRESS-NOT-VALID-88 TO TRUE. DTSCU072 -00233 DTSCU072 -00234 IF L072-ADDRESS-NOT-VALID-88 DTSCU072 -00235 NEXT SENTENCE DTSCU072 -00236 ELSE DTSCU072 -00237 IF L072-DELIV-LINE-1-NOT-VALID-88 DTSCU072 -00238 OR L072-DELIV-LINE-2-NOT-VALID-88 DTSCU072 -00239 OR L072-CITY-NOT-VALID-88 DTSCU072 -00240 OR L072-ST-NOT-VALID-88 DTSCU072 -00241 OR L072-ZIP-NOT-VALID-88 DTSCU072 -00242 SET L072-ADDRESS-NOT-VALID-88 TO TRUE DTSCU072 -00243 ELSE DTSCU072 -00244 IF L072-DELIV-LINE-1-CHANGED-88 DTSCU072 -00245 OR L072-DELIV-LINE-2-CHANGED-88 DTSCU072 -00246 OR L072-CITY-CHANGED-88 DTSCU072 -00247 OR L072-ST-CHANGED-88 DTSCU072 -00248 OR L072-ZIP-CHANGED-88 DTSCU072 -00249 SET L072-ADDRESS-CHANGED-88 TO TRUE. DTSCU072 -00250 DTSCU072 -00251 DTSCU072 -00252 EXEC CICS DTSCU072 -00253 RETURN DTSCU072 -00254 END-EXEC. DTSCU072 +00212 SET L072-NO-CASS-EDITS-88 TO TRUE. CL**9 +00213 CL**9 +00214 PERFORM I1000-INITIALIZE THROUGH I1000-EXIT. DTSCU072 +00215 DTSCU072 +00216 MOVE L072-ST TO C072-ST. DTSCU072 +00217 IF C072-DC-88 DTSCU072 +00218 PERFORM P2000-US-ADDRESS THRU P2000-EXIT DTSCU072 +00219 ELSE DTSCU072 +00220 IF C072-US-88 DTSCU072 +00221 PERFORM P2000-US-ADDRESS THRU P2000-EXIT DTSCU072 +00222 ELSE DTSCU072 +00223 IF C072-CANADA-88 DTSCU072 +00224 PERFORM P1000-CANADA-ADDRESS THRU P1000-EXIT DTSCU072 +00225 ELSE DTSCU072 +00226 IF C072-FOREIGN-88 DTSCU072 +00227 PERFORM P3000-FOREIGN-ADDRESS THRU P3000-EXIT DTSCU072 +00228 ELSE DTSCU072 +00229 SET L072-ST-NOT-VALID-88 TO TRUE DTSCU072 +00230 IF L072-ST = SPACE OR LOW-VALUE DTSCU072 +00231 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 +00232 ELSE DTSCU072 +00233 MOVE EMSG-FIELD-NOT-VALID TO L072-MSG-AREA. DTSCU072 +00234 DTSCU072 +00235 IF L072-MSG-ID NOT = SPACE DTSCU072 +00236 SET L072-ADDRESS-NOT-VALID-88 TO TRUE. DTSCU072 +00237 DTSCU072 +00238 IF L072-ADDRESS-NOT-VALID-88 DTSCU072 +00239 NEXT SENTENCE DTSCU072 +00240 ELSE DTSCU072 +00241 IF L072-DELIV-LINE-1-NOT-VALID-88 DTSCU072 +00242 OR L072-DELIV-LINE-2-NOT-VALID-88 DTSCU072 +00243 OR L072-CITY-NOT-VALID-88 DTSCU072 +00244 OR L072-ST-NOT-VALID-88 DTSCU072 +00245 OR L072-ZIP-NOT-VALID-88 DTSCU072 +00246 SET L072-ADDRESS-NOT-VALID-88 TO TRUE DTSCU072 +00247 ELSE DTSCU072 +00248 IF L072-DELIV-LINE-1-CHANGED-88 DTSCU072 +00249 OR L072-DELIV-LINE-2-CHANGED-88 DTSCU072 +00250 OR L072-CITY-CHANGED-88 DTSCU072 +00251 OR L072-ST-CHANGED-88 DTSCU072 +00252 OR L072-ZIP-CHANGED-88 DTSCU072 +00253 SET L072-ADDRESS-CHANGED-88 TO TRUE. DTSCU072 +00254 DTSCU072 00255 DTSCU072 -00256 DTSCU072 -00257 DTSCU072 -00258 GOBACK. DTSCU072 -00259 EJECT DTSCU072 -00260 I1000-INITIALIZE. DTSCU072 -00261 IF L072-NO-CASS-EDITS-88 DTSCU072 -00262 NEXT SENTENCE DTSCU072 -00263 ELSE DTSCU072 -00264 SET L072-CASS-EDITS-88 TO TRUE. DTSCU072 -00265 DTSCU072 -00266 DTSCU072 -00267 SET L072-ADDRESS-UNCHANGED-88 TO TRUE. DTSCU072 -00268 DTSCU072 +00256 EXEC CICS DTSCU072 +00257 RETURN DTSCU072 +00258 END-EXEC. DTSCU072 +00259 DTSCU072 +00260 DTSCU072 +00261 DTSCU072 +00262 GOBACK. DTSCU072 +00263 EJECT DTSCU072 +00264 I1000-INITIALIZE. DTSCU072 +00265 IF L072-NO-CASS-EDITS-88 DTSCU072 +00266 NEXT SENTENCE DTSCU072 +00267 ELSE DTSCU072 +00268 SET L072-CASS-EDITS-88 TO TRUE. DTSCU072 00269 DTSCU072 -00270 SET L072-ATTN-LINE-UNCHANGED-88 TO TRUE. DTSCU072 -00271 DTSCU072 -00272 SET L072-DELIV-LINE-1-UNCHANGED-88 TO TRUE. DTSCU072 +00270 DTSCU072 +00271 SET L072-NO-CASS-EDITS-88 TO TRUE. CL*10 +00272 SET L072-ADDRESS-UNCHANGED-88 TO TRUE. DTSCU072 00273 DTSCU072 -00274 SET L072-DELIV-LINE-2-UNCHANGED-88 TO TRUE. DTSCU072 -00275 DTSCU072 -00276 SET L072-CITY-UNCHANGED-88 TO TRUE. DTSCU072 -00277 DTSCU072 -00278 SET L072-ST-UNCHANGED-88 TO TRUE. DTSCU072 -00279 DTSCU072 -00280 SET L072-ZIP-UNCHANGED-88 TO TRUE. DTSCU072 -00281 DTSCU072 +00274 DTSCU072 +00275 SET L072-ATTN-LINE-UNCHANGED-88 TO TRUE. DTSCU072 +00276 DTSCU072 +00277 SET L072-DELIV-LINE-1-UNCHANGED-88 TO TRUE. DTSCU072 +00278 DTSCU072 +00279 SET L072-DELIV-LINE-2-UNCHANGED-88 TO TRUE. DTSCU072 +00280 DTSCU072 +00281 SET L072-CITY-UNCHANGED-88 TO TRUE. DTSCU072 00282 DTSCU072 -00283 IF L072-ATTN-LINE = LOW-VALUES DTSCU072 -00284 MOVE SPACES TO L072-ATTN-LINE. DTSCU072 -00285 DTSCU072 -00286 IF L072-DELIV-LINE-1 = LOW-VALUES DTSCU072 -00287 MOVE SPACES TO L072-DELIV-LINE-1. DTSCU072 -00288 DTSCU072 -00289 IF L072-DELIV-LINE-2 = LOW-VALUES DTSCU072 -00290 MOVE SPACES TO L072-DELIV-LINE-2. DTSCU072 -00291 DTSCU072 -00292 IF L072-CITY = LOW-VALUES DTSCU072 -00293 MOVE SPACES TO L072-CITY. DTSCU072 -00294 DTSCU072 -00295 IF L072-ST = LOW-VALUES DTSCU072 -00296 MOVE SPACES TO L072-ST. DTSCU072 -00297 DTSCU072 -00298 IF L072-ZIP = LOW-VALUES DTSCU072 -00299 MOVE SPACES TO L072-ZIP. DTSCU072 -00300 DTSCU072 -00301 DTSCU072 -00302 MOVE SPACES TO L072-ADVANCED-BARCODE DTSCU072 -00303 L072-CASS-RETURN-CODES DTSCU072 -00304 L072-MSG-AREA. DTSCU072 +00283 SET L072-ST-UNCHANGED-88 TO TRUE. DTSCU072 +00284 DTSCU072 +00285 SET L072-ZIP-UNCHANGED-88 TO TRUE. DTSCU072 +00286 DTSCU072 +00287 DTSCU072 +00288 IF L072-ATTN-LINE = LOW-VALUES DTSCU072 +00289 MOVE SPACES TO L072-ATTN-LINE. DTSCU072 +00290 DTSCU072 +00291 IF L072-DELIV-LINE-1 = LOW-VALUES DTSCU072 +00292 MOVE SPACES TO L072-DELIV-LINE-1. DTSCU072 +00293 DTSCU072 +00294 IF L072-DELIV-LINE-2 = LOW-VALUES DTSCU072 +00295 MOVE SPACES TO L072-DELIV-LINE-2. DTSCU072 +00296 DTSCU072 +00297 IF L072-CITY = LOW-VALUES DTSCU072 +00298 MOVE SPACES TO L072-CITY. DTSCU072 +00299 DTSCU072 +00300 IF L072-ST = LOW-VALUES DTSCU072 +00301 MOVE SPACES TO L072-ST. DTSCU072 +00302 DTSCU072 +00303 IF L072-ZIP = LOW-VALUES DTSCU072 +00304 MOVE SPACES TO L072-ZIP. DTSCU072 00305 DTSCU072 00306 DTSCU072 -00307 MOVE L072-ST TO C072-ST. DTSCU072 -00308 I1000-EXIT. DTSCU072 -00309 EXIT. DTSCU072 -00310 EJECT DTSCU072 -00311 P1000-CANADA-ADDRESS. DTSCU072 -00312 SET L072-NO-CASS-EDITS-88 TO TRUE. DTSCU072 -00313 DTSCU072 -00314 DTSCU072 -00315 * IF (L072-ATTN-LINE NOT = SPACES) DTSCU072 -00316 * AND DTSCU072 -00317 * (L072-DELIV-LINE-1 NOT = SPACES) DTSCU072 -00318 * AND DTSCU072 -00319 * (L072-DELIV-LINE-2 NOT = SPACES) DTSCU072 -00320 * MOVE EMSG-CROSS-EDIT TO L072-MSG-AREA DTSCU072 -00321 * SET L072-ATTN-LINE-NOT-VALID-88 DTSCU072 -00322 * L072-DELIV-LINE-1-NOT-VALID-88 DTSCU072 -00323 * L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 -00324 * GO TO P1000-EXIT. DTSCU072 -00325 DTSCU072 -00326 IF (L072-DELIV-LINE-1 NOT = SPACES) DTSCU072 -00327 AND DTSCU072 -00328 (L072-DELIV-LINE-2 = SPACES) DTSCU072 -00329 MOVE L072-DELIV-LINE-1 TO L072-DELIV-LINE-2 DTSCU072 -00330 MOVE SPACES TO L072-DELIV-LINE-1 DTSCU072 -00331 SET L072-DELIV-LINE-1-CHANGED-88 DTSCU072 -00332 L072-DELIV-LINE-2-CHANGED-88 TO TRUE. DTSCU072 -00333 DTSCU072 -00334 IF L072-DELIV-LINE-2 = SPACES DTSCU072 -00335 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00336 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 -00337 GO TO P1000-EXIT. DTSCU072 +00307 MOVE SPACES TO L072-ADVANCED-BARCODE DTSCU072 +00308 L072-CASS-RETURN-CODES DTSCU072 +00309 L072-MSG-AREA. DTSCU072 +00310 DTSCU072 +00311 DTSCU072 +00312 MOVE L072-ST TO C072-ST. DTSCU072 +00313 I1000-EXIT. DTSCU072 +00314 EXIT. DTSCU072 +00315 EJECT DTSCU072 +00316 P1000-CANADA-ADDRESS. DTSCU072 +00317 SET L072-NO-CASS-EDITS-88 TO TRUE. DTSCU072 +00318 DTSCU072 +00319 DTSCU072 +00320 * IF (L072-ATTN-LINE NOT = SPACES) DTSCU072 +00321 * AND DTSCU072 +00322 * (L072-DELIV-LINE-1 NOT = SPACES) DTSCU072 +00323 * AND DTSCU072 +00324 * (L072-DELIV-LINE-2 NOT = SPACES) DTSCU072 +00325 * MOVE EMSG-CROSS-EDIT TO L072-MSG-AREA DTSCU072 +00326 * SET L072-ATTN-LINE-NOT-VALID-88 DTSCU072 +00327 * L072-DELIV-LINE-1-NOT-VALID-88 DTSCU072 +00328 * L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 +00329 * GO TO P1000-EXIT. DTSCU072 +00330 DTSCU072 +00331 IF (L072-DELIV-LINE-1 NOT = SPACES) DTSCU072 +00332 AND DTSCU072 +00333 (L072-DELIV-LINE-2 = SPACES) DTSCU072 +00334 MOVE L072-DELIV-LINE-1 TO L072-DELIV-LINE-2 DTSCU072 +00335 MOVE SPACES TO L072-DELIV-LINE-1 DTSCU072 +00336 SET L072-DELIV-LINE-1-CHANGED-88 DTSCU072 +00337 L072-DELIV-LINE-2-CHANGED-88 TO TRUE. DTSCU072 00338 DTSCU072 -00339 IF L072-CITY = SPACE DTSCU072 +00339 IF L072-DELIV-LINE-2 = SPACES DTSCU072 00340 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00341 SET L072-CITY-NOT-VALID-88 TO TRUE DTSCU072 +00341 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 00342 GO TO P1000-EXIT. DTSCU072 00343 DTSCU072 -00344 IF L072-ZIP = SPACES DTSCU072 +00344 IF L072-CITY = SPACE DTSCU072 00345 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00346 SET L072-ZIP-NOT-VALID-88 TO TRUE DTSCU072 +00346 SET L072-CITY-NOT-VALID-88 TO TRUE DTSCU072 00347 GO TO P1000-EXIT. DTSCU072 00348 DTSCU072 -00349 IF L072-ZIP (1:1) NOT ALPHABETIC DTSCU072 -00350 OR L072-ZIP (2:1) NOT NUMERIC DTSCU072 -00351 OR L072-ZIP (3:1) NOT ALPHABETIC DTSCU072 -00352 OR L072-ZIP (4:1) NOT = SPACE DTSCU072 -00353 OR L072-ZIP (5:1) NOT NUMERIC DTSCU072 -00354 OR L072-ZIP (6:1) NOT ALPHABETIC DTSCU072 -00355 OR L072-ZIP (7:1) NOT NUMERIC DTSCU072 -00356 OR L072-ZIP (8:3) NOT = SPACE DTSCU072 -00357 SET L072-ZIP-NOT-VALID-88 TO TRUE DTSCU072 -00358 MOVE EMSG-FIELD-NOT-VALID TO L072-MSG-AREA. DTSCU072 -00359 P1000-EXIT. DTSCU072 -00360 EXIT. DTSCU072 -00361 SKIP3 DTSCU072 -00362 P2000-US-ADDRESS. DTSCU072 -00363 IF L072-CASS-EDITS-88 DTSCU072 -00364 PERFORM P2100-CASS THRU P2100-EXIT DTSCU072 -00365 ELSE DTSCU072 -00366 PERFORM P2200-NO-CASS THRU P2200-EXIT. DTSCU072 -00367 P2000-EXIT. DTSCU072 -00368 EXIT. DTSCU072 -00369 EJECT DTSCU072 -00370 P2100-CASS. DTSCU072 -00371 MOVE SPACE TO FINAL-ORIGINAL-RETURN-AREA DTSCU072 -00372 FINAL-EXPANDED-RETURN-AREA. DTSCU072 -00373 MOVE HIGH-VALUE TO FINAL-FILLER. DTSCU072 -00374 DTSCU072 -00375 MOVE '0' TO FINAL-FUNCTION-CODE. DTSCU072 -00376 DTSCU072 -00377 *-------------------------------------------------------------- DTSCU072 -00378 * FINALIST ONLINE DOES NOT ACCEPT VALID CASS CONFIGURATIONS DTSCU072 -00379 * (CONFIGXXX). HOWEVER, THE FOLLOWING CODE SETS THE DTSCU072 -00380 * INDIVIDUAL TAILORING OPTIONS TO DUPLICATE (WHEN COMBINED DTSCU072 -00381 * WITH LATER USE OF FUNCTION CODE EQUAL TO 5) THE DTSCU072 -00382 * 'CNFIGAAR' CONFIGURATION. DTSCU072 +00349 * IF L072-ZIP = SPACES CL**7 +00350 * MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA CL**7 +00351 * SET L072-ZIP-NOT-VALID-88 TO TRUE CL**7 +00352 * GO TO P1000-EXIT. CL**7 +00353 DTSCU072 +00354 * IF L072-ZIP (1:1) NOT ALPHABETIC CL**6 +00355 * OR L072-ZIP (2:1) NOT NUMERIC CL**6 +00356 * OR L072-ZIP (3:1) NOT ALPHABETIC CL**6 +00357 * OR L072-ZIP (4:1) NOT = SPACE CL**6 +00358 * OR L072-ZIP (5:1) NOT NUMERIC CL**6 +00359 * OR L072-ZIP (6:1) NOT ALPHABETIC CL**6 +00360 * OR L072-ZIP (7:1) NOT NUMERIC CL**6 +00361 * OR L072-ZIP (8:3) NOT = SPACE CL**6 +00362 * SET L072-ZIP-NOT-VALID-88 TO TRUE CL**6 +00363 * MOVE EMSG-FIELD-NOT-VALID TO L072-MSG-AREA. CL**6 +00364 P1000-EXIT. DTSCU072 +00365 EXIT. DTSCU072 +00366 SKIP3 DTSCU072 +00367 P2000-US-ADDRESS. DTSCU072 +00368 * IF L072-CASS-EDITS-88 CL*10 +00369 * PERFORM P2100-CASS THRU P2100-EXIT CL*10 +00370 * ELSE CL*10 +00371 SET L072-NO-CASS-EDITS-88 TO TRUE. CL*10 +00372 PERFORM P2200-NO-CASS THRU P2200-EXIT. DTSCU072 +00373 P2000-EXIT. DTSCU072 +00374 EXIT. DTSCU072 +00375 EJECT DTSCU072 +00376 P2100-CASS. DTSCU072 +00377 MOVE SPACE TO FINAL-ORIGINAL-RETURN-AREA DTSCU072 +00378 FINAL-EXPANDED-RETURN-AREA. DTSCU072 +00379 MOVE HIGH-VALUE TO FINAL-FILLER. DTSCU072 +00380 DTSCU072 +00381 MOVE '0' TO FINAL-FUNCTION-CODE. DTSCU072 +00382 DTSCU072 00383 *-------------------------------------------------------------- DTSCU072 -00384 MOVE 'X ' TO FINAL-FUNCTION-OPTION. DTSCU072 -00385 MOVE 'Y' TO FINAL-UNIQUE-OPT. DTSCU072 -00386 MOVE 'Y' TO FINAL-STRTPHON-OPT. DTSCU072 -00387 MOVE 'Y' TO FINAL-FIRMCORR-OPT. DTSCU072 -00388 MOVE 'Y' TO FINAL-CITYPHON-OPT. DTSCU072 -00389 MOVE 'N' TO FINAL-WEIGHT-OPT. DTSCU072 -00390 MOVE 'Y' TO FINAL-ZIPCORR-OPT. DTSCU072 -00391 MOVE 'Y' TO FINAL-CITYCORR-OPT. DTSCU072 -00392 MOVE 'N' TO FINAL-STRCOSM-OPT. DTSCU072 -00393 MOVE 'Y' TO FINAL-FRMPRS-OPT. DTSCU072 -00394 MOVE 'Y' TO FINAL-UNITDES-OPT. DTSCU072 -00395 MOVE 'Y' TO FINAL-CTYLONG-OPT. DTSCU072 -00396 MOVE 'N' TO FINAL-ALSLBL-OPT. DTSCU072 -00397 MOVE 'LPFNMODC' TO CAMODNAM. DTSCU072 -00398 DTSCU072 -00399 PERFORM S1000-LINK-TO-FINALIST THROUGH S1000-EXIT. DTSCU072 -00400 DTSCU072 -00401 IF FINAL-RETURN-CODE1 = 'E' DTSCU072 -00402 PERFORM P2110-FINALIST-ABEND THROUGH P2110-EXIT DTSCU072 -00403 GO TO P2100-EXIT. DTSCU072 +00384 * FINALIST ONLINE DOES NOT ACCEPT VALID CASS CONFIGURATIONS DTSCU072 +00385 * (CONFIGXXX). HOWEVER, THE FOLLOWING CODE SETS THE DTSCU072 +00386 * INDIVIDUAL TAILORING OPTIONS TO DUPLICATE (WHEN COMBINED DTSCU072 +00387 * WITH LATER USE OF FUNCTION CODE EQUAL TO 5) THE DTSCU072 +00388 * 'CNFIGAAR' CONFIGURATION. DTSCU072 +00389 *-------------------------------------------------------------- DTSCU072 +00390 MOVE 'X ' TO FINAL-FUNCTION-OPTION. DTSCU072 +00391 MOVE 'Y' TO FINAL-UNIQUE-OPT. DTSCU072 +00392 MOVE 'Y' TO FINAL-STRTPHON-OPT. DTSCU072 +00393 MOVE 'Y' TO FINAL-FIRMCORR-OPT. DTSCU072 +00394 MOVE 'Y' TO FINAL-CITYPHON-OPT. DTSCU072 +00395 MOVE 'N' TO FINAL-WEIGHT-OPT. DTSCU072 +00396 MOVE 'Y' TO FINAL-ZIPCORR-OPT. DTSCU072 +00397 MOVE 'Y' TO FINAL-CITYCORR-OPT. DTSCU072 +00398 MOVE 'N' TO FINAL-STRCOSM-OPT. DTSCU072 +00399 MOVE 'Y' TO FINAL-FRMPRS-OPT. DTSCU072 +00400 MOVE 'Y' TO FINAL-UNITDES-OPT. DTSCU072 +00401 MOVE 'Y' TO FINAL-CTYLONG-OPT. DTSCU072 +00402 MOVE 'N' TO FINAL-ALSLBL-OPT. DTSCU072 +00403 MOVE 'LPFNMODC' TO CAMODNAM. DTSCU072 00404 DTSCU072 -00405 MOVE SPACES TO FINAL-INPUT-ADDR-AREA. DTSCU072 +00405 PERFORM S1000-LINK-TO-FINALIST THROUGH S1000-EXIT. DTSCU072 00406 DTSCU072 -00407 IF L072-DELIV-LINE-1 > SPACES DTSCU072 -00408 MOVE L072-DELIV-LINE-1 TO USER-INPUT-ADDRESS-1. DTSCU072 -00409 DTSCU072 -00410 * IF L072-DELIV-LINE = SPACE DTSCU072 -00411 * IF L072-MOPO-88 DTSCU072 -00412 * OR L072-FFID-88 DTSCU072 -00413 * SET L071-FROM-LAST-NAME-FIRST TO TRUE DTSCU072 -00414 * MOVE L072-NAME TO L071-NAM DTSCU072 -00415 * PERFORM S071-NAME-CONVERT THROUGH S071-EXIT DTSCU072 -00416 * IF L071-NAME-CONVERTED DTSCU072 -00417 * MOVE L071-NAM TO USER-INPUT-ADDRESS-2 DTSCU072 -00418 * ELSE DTSCU072 -00419 * SET L072-DELIV-LINE-NOT-VALID-88 TO TRUE DTSCU072 -00420 * MOVE MSG-E08Y-AREA TO L072-MSG-AREA DTSCU072 -00421 * GO TO P2100-EXIT DTSCU072 -00422 * ELSE DTSCU072 -00423 * MOVE L072-NAME TO USER-INPUT-ADDRESS-2 DTSCU072 -00424 * ELSE DTSCU072 -00425 * MOVE L072-DELIV-LINE TO USER-INPUT-ADDRESS-2. DTSCU072 -00426 * IF L072-DELIV-LINE = SPACE DTSCU072 -00427 * SET L072-DELIV-LINE-NOT-VALID-88 TO TRUE DTSCU072 -00428 * MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00429 * GO TO P2100-EXIT DTSCU072 +00407 IF FINAL-RETURN-CODE1 = 'E' DTSCU072 +00408 PERFORM P2110-FINALIST-ABEND THROUGH P2110-EXIT DTSCU072 +00409 GO TO P2100-EXIT. DTSCU072 +00410 DTSCU072 +00411 MOVE SPACES TO FINAL-INPUT-ADDR-AREA. DTSCU072 +00412 DTSCU072 +00413 IF L072-DELIV-LINE-1 > SPACES DTSCU072 +00414 MOVE L072-DELIV-LINE-1 TO USER-INPUT-ADDRESS-1. DTSCU072 +00415 DTSCU072 +00416 * IF L072-DELIV-LINE = SPACE DTSCU072 +00417 * IF L072-MOPO-88 DTSCU072 +00418 * OR L072-FFID-88 DTSCU072 +00419 * SET L071-FROM-LAST-NAME-FIRST TO TRUE DTSCU072 +00420 * MOVE L072-NAME TO L071-NAM DTSCU072 +00421 * PERFORM S071-NAME-CONVERT THROUGH S071-EXIT DTSCU072 +00422 * IF L071-NAME-CONVERTED DTSCU072 +00423 * MOVE L071-NAM TO USER-INPUT-ADDRESS-2 DTSCU072 +00424 * ELSE DTSCU072 +00425 * SET L072-DELIV-LINE-NOT-VALID-88 TO TRUE DTSCU072 +00426 * MOVE MSG-E08Y-AREA TO L072-MSG-AREA DTSCU072 +00427 * GO TO P2100-EXIT DTSCU072 +00428 * ELSE DTSCU072 +00429 * MOVE L072-NAME TO USER-INPUT-ADDRESS-2 DTSCU072 00430 * ELSE DTSCU072 00431 * MOVE L072-DELIV-LINE TO USER-INPUT-ADDRESS-2. DTSCU072 -00432 * DTSCU072 -00433 * MOVE SPACES TO USER-INPUT-CSZ-AREA. DTSCU072 -00434 DTSCU072 -00435 MOVE L072-DELIV-LINE-2 TO USER-INPUT-ADDRESS-2. DTSCU072 -00436 DTSCU072 -00437 * STRING L072-CITY ' ' L072-ST DTSCU072 -00438 * DELIMITED BY ' ' DTSCU072 -00439 * INTO USER-INPUT-CITY-STATE. DTSCU072 +00432 * IF L072-DELIV-LINE = SPACE DTSCU072 +00433 * SET L072-DELIV-LINE-NOT-VALID-88 TO TRUE DTSCU072 +00434 * MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 +00435 * GO TO P2100-EXIT DTSCU072 +00436 * ELSE DTSCU072 +00437 * MOVE L072-DELIV-LINE TO USER-INPUT-ADDRESS-2. DTSCU072 +00438 * DTSCU072 +00439 * MOVE SPACES TO USER-INPUT-CSZ-AREA. DTSCU072 00440 DTSCU072 -00441 MOVE L072-CITY TO USER-INPUT-CITY-STATE (1:25). DTSCU072 -00442 MOVE L072-ST TO USER-INPUT-CITY-STATE (28:2). DTSCU072 -00443 DTSCU072 -00444 MOVE L072-ZIP TO USER-INPUT-ZIP. DTSCU072 -00445 MOVE L072-ZIP (7:4) TO USER-INPUT-SEC-SEG. DTSCU072 +00441 MOVE L072-DELIV-LINE-2 TO USER-INPUT-ADDRESS-2. DTSCU072 +00442 DTSCU072 +00443 * STRING L072-CITY ' ' L072-ST DTSCU072 +00444 * DELIMITED BY ' ' DTSCU072 +00445 * INTO USER-INPUT-CITY-STATE. DTSCU072 00446 DTSCU072 -00447 MOVE '5' TO FINAL-FUNCTION-CODE. DTSCU072 -00448 PERFORM S1000-LINK-TO-FINALIST THROUGH S1000-EXIT. DTSCU072 -00449 IF FINAL-RETURN-CODE1 = 'E' DTSCU072 -00450 PERFORM P2110-FINALIST-ABEND THROUGH P2110-EXIT DTSCU072 -00451 GO TO P2100-EXIT. DTSCU072 +00447 MOVE L072-CITY TO USER-INPUT-CITY-STATE (1:25). DTSCU072 +00448 MOVE L072-ST TO USER-INPUT-CITY-STATE (28:2). DTSCU072 +00449 DTSCU072 +00450 MOVE L072-ZIP TO USER-INPUT-ZIP. DTSCU072 +00451 MOVE L072-ZIP (7:4) TO USER-INPUT-SEC-SEG. DTSCU072 00452 DTSCU072 -00453 PERFORM P2120-FINALIST-RESULTS THROUGH P2120-EXIT. DTSCU072 -00454 IF L072-MSG-ID = SPACE DTSCU072 -00455 PERFORM P2130-CHECK-FINALIST-CODES THROUGH P2130-EXIT. DTSCU072 -00456 * IF L072-DELIV-LINE-NOT-VALID-88 DTSCU072 -00457 *** WORKAROUND FOR FINALIST BUG: GENERAL DELIVERY W/ GARBAGE CITY DTSCU072 -00458 * IF L072-DELIV-LINE = 'GENERAL DELIVERY' DTSCU072 -00459 * SET L072-DELIV-LINE-UNCHANGED-88 TO TRUE DTSCU072 -00460 * MOVE MSG-E084-AREA TO L072-MSG-AREA DTSCU072 -00461 * SET L072-CITY-NOT-VALID-88 TO TRUE. DTSCU072 -00462 DTSCU072 -00463 IF L072-MSG-ID = SPACE DTSCU072 -00464 IF FINAL-OUTSEL-BAD = 'Y' DTSCU072 -00465 SET L072-ADDRESS-NOT-VALID-88 TO TRUE DTSCU072 -00466 MOVE MSG-E086-AREA TO L072-MSG-AREA. DTSCU072 -00467 DTSCU072 -00468 * MOVE '9' TO FINAL-FUNCTION-CODE. DTSCU072 -00469 * PERFORM S1000-LINK-TO-FINALIST THROUGH S1000-EXIT. DTSCU072 -00470 * IF FINAL-RETURN-CODE1 = 'E' DTSCU072 -00471 * PERFORM P2110-FINALIST-ABEND THROUGH P2110-EXIT. DTSCU072 -00472 DTSCU072 -00473 P2100-EXIT. DTSCU072 -00474 EXIT. DTSCU072 -00475 SKIP3 DTSCU072 -00476 P2110-FINALIST-ABEND. DTSCU072 -00477 SET L072-ADDRESS-NOT-VALID-88 TO TRUE. DTSCU072 +00453 MOVE '5' TO FINAL-FUNCTION-CODE. DTSCU072 +00454 PERFORM S1000-LINK-TO-FINALIST THROUGH S1000-EXIT. DTSCU072 +00455 IF FINAL-RETURN-CODE1 = 'E' DTSCU072 +00456 PERFORM P2110-FINALIST-ABEND THROUGH P2110-EXIT DTSCU072 +00457 GO TO P2100-EXIT. DTSCU072 +00458 DTSCU072 +00459 PERFORM P2120-FINALIST-RESULTS THROUGH P2120-EXIT. DTSCU072 +00460 IF L072-MSG-ID = SPACE DTSCU072 +00461 PERFORM P2130-CHECK-FINALIST-CODES THROUGH P2130-EXIT. DTSCU072 +00462 * IF L072-DELIV-LINE-NOT-VALID-88 DTSCU072 +00463 *** WORKAROUND FOR FINALIST BUG: GENERAL DELIVERY W/ GARBAGE CITY DTSCU072 +00464 * IF L072-DELIV-LINE = 'GENERAL DELIVERY' DTSCU072 +00465 * SET L072-DELIV-LINE-UNCHANGED-88 TO TRUE DTSCU072 +00466 * MOVE MSG-E084-AREA TO L072-MSG-AREA DTSCU072 +00467 * SET L072-CITY-NOT-VALID-88 TO TRUE. DTSCU072 +00468 DTSCU072 +00469 IF L072-MSG-ID = SPACE DTSCU072 +00470 IF FINAL-OUTSEL-BAD = 'Y' DTSCU072 +00471 SET L072-ADDRESS-NOT-VALID-88 TO TRUE DTSCU072 +00472 MOVE MSG-E086-AREA TO L072-MSG-AREA. DTSCU072 +00473 DTSCU072 +00474 * MOVE '9' TO FINAL-FUNCTION-CODE. DTSCU072 +00475 * PERFORM S1000-LINK-TO-FINALIST THROUGH S1000-EXIT. DTSCU072 +00476 * IF FINAL-RETURN-CODE1 = 'E' DTSCU072 +00477 * PERFORM P2110-FINALIST-ABEND THROUGH P2110-EXIT. DTSCU072 00478 DTSCU072 -00479 MOVE CAERRMOD TO MSG-E081-CAERRMOD. DTSCU072 -00480 MOVE CAERRSRC TO MSG-E081-CAERRSRC. DTSCU072 -00481 MOVE CAERRDSC TO MSG-E081-CAERRDSC. DTSCU072 -00482 DTSCU072 -00483 *****MOVE SPACES TO MSG-E081-CAERRMOD DTSCU072 -00484 ***** MSG-E081-CAERRSRC DTSCU072 -00485 ***** MSG-E081-CAERRDSC. DTSCU072 -00486 DTSCU072 -00487 MOVE MSG-E081-AREA TO L072-MSG-AREA. DTSCU072 -00488 P2110-EXIT. DTSCU072 -00489 EXIT. DTSCU072 -00490 EJECT DTSCU072 -00491 P2120-FINALIST-RESULTS. DTSCU072 -00492 IF FINAL-LABEL-LENGTH1 > 40 DTSCU072 -00493 MOVE MSG-E087-AREA TO L072-MSG-AREA DTSCU072 -00494 SET L072-DELIV-LINE-1-NOT-VALID-88 TO TRUE DTSCU072 -00495 ELSE DTSCU072 -00496 IF L072-DELIV-LINE-1 > SPACES DTSCU072 -00497 IF FINAL-LABEL-LENGTH1 > 0 DTSCU072 -00498 MOVE EMSG-FIELD-NOT-ALLOWED TO L072-MSG-AREA DTSCU072 -00499 SET L072-DELIV-LINE-1-NOT-VALID-88 TO TRUE DTSCU072 -00500 ELSE DTSCU072 -00501 MOVE SPACES TO L072-DELIV-LINE-1 DTSCU072 -00502 ELSE DTSCU072 -00503 IF L072-DELIV-LINE-1 = SPACES DTSCU072 -00504 IF FINAL-LABEL-LENGTH1 > 0 DTSCU072 -00505 MOVE FINAL-LABEL-LINE1 TO L072-DELIV-LINE-1 DTSCU072 -00506 SET L072-DELIV-LINE-1-CHANGED-88 TO TRUE DTSCU072 -00507 * SET L072-ATTN-DELIV-88 TO TRUE DTSCU072 -00508 ELSE DTSCU072 -00509 NEXT SENTENCE DTSCU072 -00510 ELSE DTSCU072 -00511 IF FINAL-LABEL-LENGTH1 > 0 DTSCU072 -00512 MOVE FINAL-LABEL-LINE1 TO L072-DELIV-LINE-1 DTSCU072 -00513 SET L072-DELIV-LINE-1-CHANGED-88 TO TRUE DTSCU072 -00514 * SET L072-ATTN-DELIV-88 TO TRUE DTSCU072 -00515 ELSE DTSCU072 -00516 MOVE SPACES TO L072-DELIV-LINE-1 DTSCU072 -00517 SET L072-DELIV-LINE-1-CHANGED-88 TO TRUE. DTSCU072 -00518 * SET L072-ATTN-NONE-88 TO TRUE. DTSCU072 -00519 DTSCU072 -00520 IF FINAL-LABEL-LENGTH2 > 40 DTSCU072 -00521 MOVE MSG-E087-AREA TO L072-MSG-AREA DTSCU072 -00522 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 -00523 ELSE DTSCU072 -00524 * IF L072-DELIV-LINE = SPACE DTSCU072 -00525 * IF FINAL-MAIL-FIRM-NAME = SPACE DTSCU072 -00526 * SET L072-DELIV-LINE-NOT-VALID-88 TO TRUE DTSCU072 -00527 * MOVE MSG-E08Z-AREA TO L072-MSG-AREA DTSCU072 -00528 * ELSE DTSCU072 -00529 * NEXT SENTENCE DTSCU072 -00530 * ELSE DTSCU072 -00531 IF FINAL-LABEL-LINE2 NOT = L072-DELIV-LINE-2 DTSCU072 -00532 MOVE FINAL-LABEL-LINE2 TO L072-DELIV-LINE-2 DTSCU072 -00533 SET L072-DELIV-LINE-2-CHANGED-88 TO TRUE. DTSCU072 -00534 DTSCU072 -00535 IF FINAL-FULL-CITY-NAME NOT = L072-CITY DTSCU072 -00536 MOVE FINAL-FULL-CITY-NAME TO L072-CITY DTSCU072 -00537 SET L072-CITY-CHANGED-88 TO TRUE. DTSCU072 -00538 DTSCU072 -00539 IF FINAL-STATE NOT = L072-ST DTSCU072 -00540 MOVE FINAL-STATE TO L072-ST DTSCU072 -00541 SET L072-ST-CHANGED-88 TO TRUE. DTSCU072 -00542 DTSCU072 -00543 IF FINAL-ZIP NOT = L072-ZIP (1:5) DTSCU072 -00544 MOVE FINAL-ZIP TO L072-ZIP (1:5) DTSCU072 -00545 SET L072-ZIP-CHANGED-88 TO TRUE. DTSCU072 -00546 DTSCU072 -00547 IF FINAL-SEC-SEG = SPACE DTSCU072 -00548 MOVE SPACE TO L072-ZIP (6:5) DTSCU072 -00549 ELSE DTSCU072 -00550 IF L072-ZIP (7:4) NOT = SPACE DTSCU072 -00551 AND FINAL-SEC-SEG NOT = L072-ZIP (7:4) DTSCU072 -00552 SET L072-ZIP-CHANGED-88 TO TRUE DTSCU072 -00553 END-IF DTSCU072 -00554 MOVE '-' TO L072-ZIP (6:1) DTSCU072 -00555 MOVE FINAL-SEC-SEG TO L072-ZIP (7:4). DTSCU072 -00556 DTSCU072 -00557 STRING FINAL-RETURN-CODE1 DELIMITED BY SIZE DTSCU072 -00558 '-' DELIMITED BY SIZE DTSCU072 -00559 FINAL-REASON-CODES (1:9) DELIMITED BY SIZE DTSCU072 -00560 '-' DELIMITED BY SIZE DTSCU072 -00561 FINAL-ADDRESS-INFO-CODES (1:6) DELIMITED BY SIZE DTSCU072 -00562 INTO L072-CASS-RETURN-CODES. DTSCU072 -00563 DTSCU072 -00564 MOVE FINAL-ADVANCED-BARCODE TO L072-ADVANCED-BARCODE. DTSCU072 -00565 P2120-EXIT. DTSCU072 -00566 EXIT. DTSCU072 -00567 EJECT DTSCU072 -00568 P2130-CHECK-FINALIST-CODES. DTSCU072 -00569 MOVE FINAL-REASON-CODES TO FC-REASON-CODES. DTSCU072 -00570 MOVE FINAL-ADDRESS-INFO-CODES TO FC-ADDRESS-INFO-CODES. DTSCU072 -00571 DTSCU072 -00572 IF FC-STREET-BAD-88 DTSCU072 -00573 OR FC-RANGE-BAD-88 DTSCU072 -00574 OR FC-SUFDIR-BAD-88 DTSCU072 -00575 MOVE MSG-E085-AREA TO L072-MSG-AREA DTSCU072 -00576 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 -00577 GO TO P2130-EXIT. DTSCU072 -00578 DTSCU072 -00579 IF FC-CITY-BYPASSED-88 DTSCU072 -00580 OR FC-CITY-BAD-88 DTSCU072 -00581 MOVE MSG-E084-AREA TO L072-MSG-AREA DTSCU072 -00582 SET L072-CITY-NOT-VALID-88 TO TRUE DTSCU072 +00479 P2100-EXIT. DTSCU072 +00480 EXIT. DTSCU072 +00481 SKIP3 DTSCU072 +00482 P2110-FINALIST-ABEND. DTSCU072 +00483 SET L072-ADDRESS-NOT-VALID-88 TO TRUE. DTSCU072 +00484 DTSCU072 +00485 MOVE CAERRMOD TO MSG-E081-CAERRMOD. DTSCU072 +00486 MOVE CAERRSRC TO MSG-E081-CAERRSRC. DTSCU072 +00487 MOVE CAERRDSC TO MSG-E081-CAERRDSC. DTSCU072 +00488 DTSCU072 +00489 *****MOVE SPACES TO MSG-E081-CAERRMOD DTSCU072 +00490 ***** MSG-E081-CAERRSRC DTSCU072 +00491 ***** MSG-E081-CAERRDSC. DTSCU072 +00492 DTSCU072 +00493 MOVE MSG-E081-AREA TO L072-MSG-AREA. DTSCU072 +00494 P2110-EXIT. DTSCU072 +00495 EXIT. DTSCU072 +00496 EJECT DTSCU072 +00497 P2120-FINALIST-RESULTS. DTSCU072 +00498 IF FINAL-LABEL-LENGTH1 > 40 DTSCU072 +00499 MOVE MSG-E087-AREA TO L072-MSG-AREA DTSCU072 +00500 SET L072-DELIV-LINE-1-NOT-VALID-88 TO TRUE DTSCU072 +00501 ELSE DTSCU072 +00502 IF L072-DELIV-LINE-1 > SPACES DTSCU072 +00503 IF FINAL-LABEL-LENGTH1 > 0 DTSCU072 +00504 MOVE EMSG-FIELD-NOT-ALLOWED TO L072-MSG-AREA DTSCU072 +00505 SET L072-DELIV-LINE-1-NOT-VALID-88 TO TRUE DTSCU072 +00506 ELSE DTSCU072 +00507 MOVE SPACES TO L072-DELIV-LINE-1 DTSCU072 +00508 ELSE DTSCU072 +00509 IF L072-DELIV-LINE-1 = SPACES DTSCU072 +00510 IF FINAL-LABEL-LENGTH1 > 0 DTSCU072 +00511 MOVE FINAL-LABEL-LINE1 TO L072-DELIV-LINE-1 DTSCU072 +00512 SET L072-DELIV-LINE-1-CHANGED-88 TO TRUE DTSCU072 +00513 * SET L072-ATTN-DELIV-88 TO TRUE DTSCU072 +00514 ELSE DTSCU072 +00515 NEXT SENTENCE DTSCU072 +00516 ELSE DTSCU072 +00517 IF FINAL-LABEL-LENGTH1 > 0 DTSCU072 +00518 MOVE FINAL-LABEL-LINE1 TO L072-DELIV-LINE-1 DTSCU072 +00519 SET L072-DELIV-LINE-1-CHANGED-88 TO TRUE DTSCU072 +00520 * SET L072-ATTN-DELIV-88 TO TRUE DTSCU072 +00521 ELSE DTSCU072 +00522 MOVE SPACES TO L072-DELIV-LINE-1 DTSCU072 +00523 SET L072-DELIV-LINE-1-CHANGED-88 TO TRUE. DTSCU072 +00524 * SET L072-ATTN-NONE-88 TO TRUE. DTSCU072 +00525 DTSCU072 +00526 IF FINAL-LABEL-LENGTH2 > 40 DTSCU072 +00527 MOVE MSG-E087-AREA TO L072-MSG-AREA DTSCU072 +00528 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 +00529 ELSE DTSCU072 +00530 * IF L072-DELIV-LINE = SPACE DTSCU072 +00531 * IF FINAL-MAIL-FIRM-NAME = SPACE DTSCU072 +00532 * SET L072-DELIV-LINE-NOT-VALID-88 TO TRUE DTSCU072 +00533 * MOVE MSG-E08Z-AREA TO L072-MSG-AREA DTSCU072 +00534 * ELSE DTSCU072 +00535 * NEXT SENTENCE DTSCU072 +00536 * ELSE DTSCU072 +00537 IF FINAL-LABEL-LINE2 NOT = L072-DELIV-LINE-2 DTSCU072 +00538 MOVE FINAL-LABEL-LINE2 TO L072-DELIV-LINE-2 DTSCU072 +00539 SET L072-DELIV-LINE-2-CHANGED-88 TO TRUE. DTSCU072 +00540 DTSCU072 +00541 IF FINAL-FULL-CITY-NAME NOT = L072-CITY DTSCU072 +00542 MOVE FINAL-FULL-CITY-NAME TO L072-CITY DTSCU072 +00543 SET L072-CITY-CHANGED-88 TO TRUE. DTSCU072 +00544 DTSCU072 +00545 IF FINAL-STATE NOT = L072-ST DTSCU072 +00546 MOVE FINAL-STATE TO L072-ST DTSCU072 +00547 SET L072-ST-CHANGED-88 TO TRUE. DTSCU072 +00548 DTSCU072 +00549 IF FINAL-ZIP NOT = L072-ZIP (1:5) DTSCU072 +00550 MOVE FINAL-ZIP TO L072-ZIP (1:5) DTSCU072 +00551 SET L072-ZIP-CHANGED-88 TO TRUE. DTSCU072 +00552 DTSCU072 +00553 IF FINAL-SEC-SEG = SPACE DTSCU072 +00554 MOVE SPACE TO L072-ZIP (6:5) DTSCU072 +00555 ELSE DTSCU072 +00556 IF L072-ZIP (7:4) NOT = SPACE DTSCU072 +00557 AND FINAL-SEC-SEG NOT = L072-ZIP (7:4) DTSCU072 +00558 SET L072-ZIP-CHANGED-88 TO TRUE DTSCU072 +00559 END-IF DTSCU072 +00560 MOVE '-' TO L072-ZIP (6:1) DTSCU072 +00561 MOVE FINAL-SEC-SEG TO L072-ZIP (7:4). DTSCU072 +00562 DTSCU072 +00563 STRING FINAL-RETURN-CODE1 DELIMITED BY SIZE DTSCU072 +00564 '-' DELIMITED BY SIZE DTSCU072 +00565 FINAL-REASON-CODES (1:9) DELIMITED BY SIZE DTSCU072 +00566 '-' DELIMITED BY SIZE DTSCU072 +00567 FINAL-ADDRESS-INFO-CODES (1:6) DELIMITED BY SIZE DTSCU072 +00568 INTO L072-CASS-RETURN-CODES. DTSCU072 +00569 DTSCU072 +00570 MOVE FINAL-ADVANCED-BARCODE TO L072-ADVANCED-BARCODE. DTSCU072 +00571 P2120-EXIT. DTSCU072 +00572 EXIT. DTSCU072 +00573 EJECT DTSCU072 +00574 P2130-CHECK-FINALIST-CODES. DTSCU072 +00575 MOVE FINAL-REASON-CODES TO FC-REASON-CODES. DTSCU072 +00576 MOVE FINAL-ADDRESS-INFO-CODES TO FC-ADDRESS-INFO-CODES. DTSCU072 +00577 DTSCU072 +00578 IF FC-STREET-BAD-88 DTSCU072 +00579 OR FC-RANGE-BAD-88 DTSCU072 +00580 OR FC-SUFDIR-BAD-88 DTSCU072 +00581 MOVE MSG-E085-AREA TO L072-MSG-AREA DTSCU072 +00582 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 00583 GO TO P2130-EXIT. DTSCU072 00584 DTSCU072 -00585 IF FC-ZIP-BYPASSED-88 DTSCU072 -00586 OR FC-ZIP-BAD-88 DTSCU072 -00587 MOVE MSG-E083-AREA TO L072-MSG-AREA DTSCU072 -00588 SET L072-ZIP-NOT-VALID-88 TO TRUE DTSCU072 +00585 IF FC-CITY-BYPASSED-88 DTSCU072 +00586 OR FC-CITY-BAD-88 DTSCU072 +00587 MOVE MSG-E084-AREA TO L072-MSG-AREA DTSCU072 +00588 SET L072-CITY-NOT-VALID-88 TO TRUE DTSCU072 00589 GO TO P2130-EXIT. DTSCU072 00590 DTSCU072 -00591 IF FC-BOTH-ADDR-BAD-88 DTSCU072 -00592 MOVE MSG-E086-AREA TO L072-MSG-AREA DTSCU072 -00593 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 -00594 GO TO P2130-EXIT. DTSCU072 -00595 DTSCU072 -00596 IF FINAL-RETURN-CODE1 NOT = '0' DTSCU072 -00597 IF FC-SUFDIR-MULTI-88 DTSCU072 -00598 MOVE MSG-E085-AREA TO L072-MSG-AREA DTSCU072 -00599 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 -00600 GO TO P2130-EXIT DTSCU072 -00601 ELSE DTSCU072 -00602 MOVE MSG-E082-AREA TO L072-MSG-AREA DTSCU072 -00603 SET L072-ZIP-NOT-VALID-88 TO TRUE DTSCU072 -00604 GO TO P2130-EXIT. DTSCU072 -00605 P2130-EXIT. DTSCU072 -00606 EXIT. DTSCU072 -00607 EJECT DTSCU072 -00608 P2200-NO-CASS. DTSCU072 -00609 IF (L072-DELIV-LINE-1 NOT = SPACES) DTSCU072 -00610 AND DTSCU072 -00611 (L072-DELIV-LINE-2 = SPACES) DTSCU072 -00612 MOVE L072-DELIV-LINE-1 TO L072-DELIV-LINE-2 DTSCU072 -00613 MOVE SPACES TO L072-DELIV-LINE-1 DTSCU072 -00614 SET L072-DELIV-LINE-1-CHANGED-88 DTSCU072 -00615 L072-DELIV-LINE-2-CHANGED-88 TO TRUE. DTSCU072 -00616 DTSCU072 -00617 IF L072-DELIV-LINE-2 = SPACES DTSCU072 -00618 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00619 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 -00620 GO TO P2200-EXIT. DTSCU072 -00621 DTSCU072 -00622 IF L072-CITY = SPACE DTSCU072 -00623 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00624 SET L072-CITY-NOT-VALID-88 TO TRUE DTSCU072 -00625 GO TO P2200-EXIT. DTSCU072 -00626 DTSCU072 -00627 IF L072-ZIP = SPACES DTSCU072 -00628 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00629 SET L072-ZIP-NOT-VALID-88 TO TRUE DTSCU072 -00630 GO TO P2200-EXIT. DTSCU072 -00631 DTSCU072 -00632 IF L072-ZIP (1:5) NOT NUMERIC DTSCU072 -00633 OR L072-ZIP (1:5) = '00000' CL*25 -00634 MOVE EMSG-FIELD-NOT-VALID TO L072-MSG-AREA DTSCU072 -00635 SET L072-ZIP-NOT-VALID-88 TO TRUE DTSCU072 -00636 ELSE DTSCU072 -00637 IF L072-ZIP (6:5) NOT = SPACE CL*25 -00638 MOVE SPACE TO L072-ZIP (6:5) CL*25 -00639 SET L072-ZIP-CHANGED-88 TO TRUE. CL*25 -00640 P2200-EXIT. DTSCU072 -00641 EXIT. DTSCU072 -00642 EJECT DTSCU072 -00643 P3000-FOREIGN-ADDRESS. DTSCU072 -00644 SET L072-NO-CASS-EDITS-88 TO TRUE. DTSCU072 -00645 DTSCU072 -00646 IF L072-ZIP = ALL '*' DTSCU072 -00647 NEXT SENTENCE DTSCU072 -00648 ELSE DTSCU072 -00649 MOVE ALL '*' TO L072-ZIP DTSCU072 -00650 SET L072-ZIP-CHANGED-88 TO TRUE. DTSCU072 -00651 DTSCU072 -00652 IF L072-DELIV-LINE-1 = SPACES DTSCU072 -00653 SET L072-DELIV-LINE-1-NOT-VALID-88 TO TRUE DTSCU072 -00654 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00655 GO TO P3000-EXIT. DTSCU072 -00656 DTSCU072 -00657 IF L072-DELIV-LINE-2 = SPACES DTSCU072 -00658 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 -00659 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00660 GO TO P3000-EXIT. DTSCU072 -00661 DTSCU072 -00662 IF L072-CITY = SPACES DTSCU072 -00663 SET L072-CITY-NOT-VALID-88 TO TRUE DTSCU072 -00664 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 -00665 GO TO P3000-EXIT. DTSCU072 -00666 P3000-EXIT. DTSCU072 -00667 EXIT. DTSCU072 -00668 EJECT DTSCU072 -00669 S1000-LINK-TO-FINALIST. DTSCU072 -00670 EXEC CICS DTSCU072 -00671 LINK DTSCU072 -00672 PROGRAM ('FINALOL') DTSCU072 -00673 COMMAREA (FINAL-CALL-AREA) DTSCU072 -00674 END-EXEC. DTSCU072 -00675 S1000-EXIT. DTSCU072 -00676 EXIT. DTSCU072 -00677 SKIP3 DTSCU072 -00678 ****************** S071-NAME-CONVERT NOT USED. DTSCU072 -00679 *S071-NAME-CONVERT. DTSCU072 -00680 * EXEC CICS DTSCU072 -00681 * LINK DTSCU072 -00682 * PROGRAM ('DTSCU071') DTSCU072 -00683 * COMMAREA (L071-COMM-AREA) DTSCU072 -00684 * END-EXEC. DTSCU072 -00685 *S071-EXIT. DTSCU072 -00686 * EXIT. DTSCU072 -00687 ****************** S899-ABEND NOT USED. DTSCU072 -00688 *S899-ABEND. DTSCU072 -00689 * SKIP1 DTSCU072 -00690 * EXEC CICS DTSCU072 -00691 * ABEND DTSCU072 -00692 * ABCODE (WRK-ABEND-CODE) DTSCU072 -00693 * END-EXEC. DTSCU072 -00694 * SKIP1 DTSCU072 -00695 *S899-EXIT. DTSCU072 -00696 * EXIT. DTSCU072 +00591 IF FC-ZIP-BYPASSED-88 DTSCU072 +00592 OR FC-ZIP-BAD-88 DTSCU072 +00593 MOVE MSG-E083-AREA TO L072-MSG-AREA DTSCU072 +00594 SET L072-ZIP-NOT-VALID-88 TO TRUE DTSCU072 +00595 GO TO P2130-EXIT. DTSCU072 +00596 DTSCU072 +00597 IF FC-BOTH-ADDR-BAD-88 DTSCU072 +00598 MOVE MSG-E086-AREA TO L072-MSG-AREA DTSCU072 +00599 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 +00600 GO TO P2130-EXIT. DTSCU072 +00601 DTSCU072 +00602 IF FINAL-RETURN-CODE1 NOT = '0' DTSCU072 +00603 IF FC-SUFDIR-MULTI-88 DTSCU072 +00604 MOVE MSG-E085-AREA TO L072-MSG-AREA DTSCU072 +00605 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 +00606 GO TO P2130-EXIT DTSCU072 +00607 ELSE DTSCU072 +00608 MOVE MSG-E082-AREA TO L072-MSG-AREA DTSCU072 +00609 SET L072-ZIP-NOT-VALID-88 TO TRUE DTSCU072 +00610 GO TO P2130-EXIT. DTSCU072 +00611 P2130-EXIT. DTSCU072 +00612 EXIT. DTSCU072 +00613 EJECT DTSCU072 +00614 P2200-NO-CASS. DTSCU072 +00615 IF (L072-DELIV-LINE-1 NOT = SPACES) DTSCU072 +00616 AND DTSCU072 +00617 (L072-DELIV-LINE-2 = SPACES) DTSCU072 +00618 MOVE L072-DELIV-LINE-1 TO L072-DELIV-LINE-2 DTSCU072 +00619 MOVE SPACES TO L072-DELIV-LINE-1 DTSCU072 +00620 SET L072-DELIV-LINE-1-CHANGED-88 DTSCU072 +00621 L072-DELIV-LINE-2-CHANGED-88 TO TRUE. DTSCU072 +00622 DTSCU072 +00623 IF L072-DELIV-LINE-2 = SPACES DTSCU072 +00624 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 +00625 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 +00626 GO TO P2200-EXIT. DTSCU072 +00627 DTSCU072 +00628 IF L072-CITY = SPACE DTSCU072 +00629 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 +00630 SET L072-CITY-NOT-VALID-88 TO TRUE DTSCU072 +00631 GO TO P2200-EXIT. DTSCU072 +00632 DTSCU072 +00633 * IF L072-ZIP = SPACES CL**5 +00634 * MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA CL**5 +00635 * SET L072-ZIP-NOT-VALID-88 TO TRUE CL**5 +00636 * GO TO P2200-EXIT. CL**5 +00637 DTSCU072 +00638 IF L072-ZIP (1:5) NOT NUMERIC CL**3 +00639 * OR L072-ZIP (1:5) = '00000' CL**3 +00640 MOVE EMSG-FIELD-NOT-VALID TO L072-MSG-AREA CL**3 +00641 SET L072-ZIP-NOT-VALID-88 TO TRUE CL**3 +00642 GO TO P2200-EXIT. CL**4 +00643 CL**4 +00644 IF L072-ZIP (7:4) = SPACES CL**4 +00645 GO TO P2200-EXIT CL**4 +00646 ELSE CL**4 +00647 IF L072-ZIP (7:4) NOT NUMERIC CL**4 +00648 MOVE EMSG-FIELD-NOT-VALID TO L072-MSG-AREA CL**3 +00649 SET L072-ZIP-NOT-VALID-88 TO TRUE. CL**3 +00650 * MOVE SPACE TO L072-ZIP (6:5) CL**3 +00651 * SET L072-ZIP-CHANGED-88 TO TRUE. CL**3 +00652 * IF L072-ZIP (1:5) NOT NUMERIC CL**3 +00653 * OR L072-ZIP (1:5) = '00000' CL**3 +00654 * MOVE EMSG-FIELD-NOT-VALID TO L072-MSG-AREA CL**3 +00655 * SET L072-ZIP-NOT-VALID-88 TO TRUE CL**3 +00656 * ELSE CL**3 +00657 * IF L072-ZIP (6:5) NOT = SPACE CL**3 +00658 * MOVE SPACE TO L072-ZIP (6:5) CL**3 +00659 * SET L072-ZIP-CHANGED-88 TO TRUE. CL**3 +00660 P2200-EXIT. DTSCU072 +00661 EXIT. DTSCU072 +00662 EJECT DTSCU072 +00663 P3000-FOREIGN-ADDRESS. DTSCU072 +00664 SET L072-NO-CASS-EDITS-88 TO TRUE. DTSCU072 +00665 DTSCU072 +00666 IF L072-ZIP = ALL '*' DTSCU072 +00667 NEXT SENTENCE DTSCU072 +00668 ELSE DTSCU072 +00669 MOVE ALL '*' TO L072-ZIP DTSCU072 +00670 SET L072-ZIP-CHANGED-88 TO TRUE. DTSCU072 +00671 DTSCU072 +00672 IF L072-DELIV-LINE-1 = SPACES DTSCU072 +00673 SET L072-DELIV-LINE-1-NOT-VALID-88 TO TRUE DTSCU072 +00674 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 +00675 GO TO P3000-EXIT. DTSCU072 +00676 DTSCU072 +00677 IF L072-DELIV-LINE-2 = SPACES DTSCU072 +00678 SET L072-DELIV-LINE-2-NOT-VALID-88 TO TRUE DTSCU072 +00679 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 +00680 GO TO P3000-EXIT. DTSCU072 +00681 DTSCU072 +00682 IF L072-CITY = SPACES DTSCU072 +00683 SET L072-CITY-NOT-VALID-88 TO TRUE DTSCU072 +00684 MOVE EMSG-FIELD-REQUIRED TO L072-MSG-AREA DTSCU072 +00685 GO TO P3000-EXIT. DTSCU072 +00686 P3000-EXIT. DTSCU072 +00687 EXIT. DTSCU072 +00688 EJECT DTSCU072 +00689 S1000-LINK-TO-FINALIST. DTSCU072 +00690 EXEC CICS DTSCU072 +00691 LINK DTSCU072 +00692 PROGRAM ('FINALOL') DTSCU072 +00693 COMMAREA (FINAL-CALL-AREA) DTSCU072 +00694 END-EXEC. DTSCU072 +00695 S1000-EXIT. DTSCU072 +00696 EXIT. DTSCU072 +00697 SKIP3 DTSCU072 +00698 ****************** S071-NAME-CONVERT NOT USED. DTSCU072 +00699 *S071-NAME-CONVERT. DTSCU072 +00700 * EXEC CICS DTSCU072 +00701 * LINK DTSCU072 +00702 * PROGRAM ('DTSCU071') DTSCU072 +00703 * COMMAREA (L071-COMM-AREA) DTSCU072 +00704 * END-EXEC. DTSCU072 +00705 *S071-EXIT. DTSCU072 +00706 * EXIT. DTSCU072 +00707 ****************** S899-ABEND NOT USED. DTSCU072 +00708 *S899-ABEND. DTSCU072 +00709 * SKIP1 DTSCU072 +00710 * EXEC CICS DTSCU072 +00711 * ABEND DTSCU072 +00712 * ABCODE (WRK-ABEND-CODE) DTSCU072 +00713 * END-EXEC. DTSCU072 +00714 * SKIP1 DTSCU072 +00715 *S899-EXIT. DTSCU072 +00716 * EXIT. DTSCU072 diff --git a/CICSFiles.txt b/CICSFiles.txt index a6c1f97..a3fe8a9 100644 --- a/CICSFiles.txt +++ b/CICSFiles.txt @@ -1,4 +1,4 @@ -E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS26.cob +E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCSL1.cob diff --git a/Maps/DTSML1.bms b/Maps/DTSML1.bms index 6130649..bfa5e92 100644 --- a/Maps/DTSML1.bms +++ b/Maps/DTSML1.bms @@ -1,285 +1,270 @@ -* DATA SET DTSML1 AT LEVEL 014 AS OF 09/22/06 -* DATA SET DTSML1 AT LEVEL 003 AS OF 09/21/06 00001 -* DATA SET DTSML1 AT LEVEL 012 AS OF 07/19/99 00002 -DTSML1 DFHMDI SIZE=(24,80), X00003 - LINE=01, X00004 - COLUMN=01 00005 -FL10101 DFHMDF POS=(01,01), X00006 - ATTRB=(ASKIP,FSET), X00007 - LENGTH=002, X00008 - INITIAL='L1' 00009 - DFHMDF POS=(01,20), X00010 - ATTRB=(ASKIP), X00011 - LENGTH=020, X00012 - INITIAL=' LMI INQUIRY/UPDATE ' 00013 -FL10162 DFHMDF POS=(01,62), X00014 - ATTRB=(ASKIP), X00015 - LENGTH=008 00016 -FL10172 DFHMDF POS=(01,72), X00017 - ATTRB=(ASKIP), X00018 - LENGTH=008 00019 -FL10272 DFHMDF POS=(02,72), X00020 - ATTRB=(ASKIP), X00021 - LENGTH=008 00022 - DFHMDF POS=(03,05), X00023 - ATTRB=(ASKIP), X00024 - LENGTH=007, X00025 - INITIAL='EMP NO:' 00026 -FL10313 DFHMDF POS=(03,13), X00027 - ATTRB=(ASKIP), X00028 - LENGTH=003 00029 -FL10317 DFHMDF POS=(03,17), X00030 - ATTRB=(ASKIP), X00031 - LENGTH=003 00032 - DFHMDF POS=(03,21), X00033 - ATTRB=(ASKIP), X00034 - LENGTH=001 00035 -FL10324 DFHMDF POS=(03,24), X00036 - ATTRB=(ASKIP), X00037 - LENGTH=040 00038 -FL10372 DFHMDF POS=(03,72), X00039 - ATTRB=(ASKIP), X00040 - LENGTH=002 00041 - DFHMDF POS=(03,75), X00042 - ATTRB=(ASKIP), X00043 - LENGTH=002, X00044 - INITIAL='OF' 00045 -FL10378 DFHMDF POS=(03,78), X00046 - ATTRB=(ASKIP), X00047 - LENGTH=002 00048 - DFHMDF POS=(05,16), X00049 - ATTRB=(ASKIP), X00050 - LENGTH=004, X00051 - INITIAL='QTR:' 00052 -FL10521 DFHMDF POS=(05,21), X00053 - ATTRB=(ASKIP), X00054 - LENGTH=002 00055 -FL10524 DFHMDF POS=(05,24), X00056 - ATTRB=(ASKIP), X00057 - LENGTH=001 00058 - DFHMDF POS=(05,26), X00059 - ATTRB=(ASKIP), X00060 - LENGTH=001 00061 - DFHMDF POS=(07,04), X00062 - ATTRB=(ASKIP), X00063 - LENGTH=016, X00064 - INITIAL='MONTH 1 EMP CNT:' 00065 -FL10721 DFHMDF POS=(07,21), X00066 - ATTRB=(ASKIP), X00067 - LENGTH=009 00068 - DFHMDF POS=(07,31), X00069 - ATTRB=(ASKIP), X00070 - LENGTH=001 00071 - DFHMDF POS=(07,42), X00072 - ATTRB=(ASKIP), X00073 - LENGTH=009, X00074 - INITIAL='TOT WAGE:' 00075 -FL10752 DFHMDF POS=(07,52), X00076 - ATTRB=(ASKIP), X00077 - LENGTH=014 00078 - DFHMDF POS=(08,04), X00079 - ATTRB=(ASKIP), X00080 - LENGTH=016, X00081 - INITIAL='MONTH 2 EMP CNT:' 00082 -FL10821 DFHMDF POS=(08,21), X00083 - ATTRB=(ASKIP), X00084 - LENGTH=009 00085 - DFHMDF POS=(08,31), X00086 - ATTRB=(ASKIP), X00087 - LENGTH=001 00088 - DFHMDF POS=(08,42), X00089 - ATTRB=(ASKIP), X00090 - LENGTH=009, X00091 - INITIAL='TAX WAGE:' 00092 -FL10852 DFHMDF POS=(08,52), X00093 - ATTRB=(ASKIP), X00094 - LENGTH=014 00095 - DFHMDF POS=(09,04), X00096 - ATTRB=(ASKIP), X00097 - LENGTH=016, X00098 - INITIAL='MONTH 3 EMP CNT:' 00099 -FL10921 DFHMDF POS=(09,21), X00100 - ATTRB=(ASKIP), X00101 - LENGTH=009 00102 - DFHMDF POS=(09,31), X00103 - ATTRB=(ASKIP), X00104 - LENGTH=001 00105 - DFHMDF POS=(09,42), X00106 - ATTRB=(ASKIP), X00107 - LENGTH=009, X00108 - INITIAL='WGE CHNG:' 00109 -FL10952 DFHMDF POS=(09,52), X00110 - ATTRB=(ASKIP), X00111 - LENGTH=008 00112 - DFHMDF POS=(10,42), X00113 - ATTRB=(ASKIP), X00114 - LENGTH=009, X00115 - INITIAL='RPT TYPE:' 00116 -FL11052 DFHMDF POS=(10,52), X00117 - ATTRB=(ASKIP), X00118 - LENGTH=010 00119 - DFHMDF POS=(11,42), X00120 - ATTRB=(ASKIP), X00121 - LENGTH=009, X00122 - INITIAL='CNT CHNG:' 00123 -FL11152 DFHMDF POS=(11,52), X00124 - ATTRB=(ASKIP), X00125 - LENGTH=008 00126 - DFHMDF POS=(13,08), X00127 - ATTRB=(ASKIP), X00128 - LENGTH=007, X00129 - INITIAL='SIC CD:' 00130 -FL11310 DFHMDF POS=(13,16), X00131 - ATTRB=(ASKIP), X00132 - LENGTH=004 00133 - DFHMDF POS=(13,21), X00134 - ATTRB=(ASKIP), X00135 - LENGTH=001 00136 -FL11320 DFHMDF POS=(13,25), X00137 - ATTRB=(ASKIP), X00138 - LENGTH=020 00139 - DFHMDF POS=(13,49), X00140 - ATTRB=(ASKIP), X00141 - LENGTH=008, X00142 - INITIAL='OLD SIC:' 00143 -FL11355 DFHMDF POS=(13,58), X00144 - ATTRB=(ASKIP), X00145 - LENGTH=004 00146 - DFHMDF POS=(13,65), X00147 - ATTRB=(ASKIP), X00148 - LENGTH=005, X00149 - INITIAL='CHNG:' 00150 -FL11371 DFHMDF POS=(13,71), X00151 - ATTRB=(ASKIP), X00152 - LENGTH=008 00153 - DFHMDF POS=(15,04), X00154 - ATTRB=(ASKIP), X00155 - LENGTH=011, X00156 - INITIAL='SIC AUX CD:' 00157 -FL11516 DFHMDF POS=(15,16), X00158 - ATTRB=(ASKIP), X00159 - LENGTH=001 00160 - DFHMDF POS=(15,18), X00161 - ATTRB=(ASKIP), X00162 - LENGTH=001 00163 -FL11525 DFHMDF POS=(15,25), X00164 - ATTRB=(ASKIP), X00165 - LENGTH=010 00166 - DFHMDF POS=(17,06), X00167 - ATTRB=(ASKIP), X00168 - LENGTH=009, X00169 - INITIAL='NAICS CD:' 00170 -FL11716 DFHMDF POS=(17,16), X00171 - ATTRB=(ASKIP), X00172 - LENGTH=006 00173 - DFHMDF POS=(17,23), X00174 - ATTRB=(ASKIP), X00175 - LENGTH=001 00176 -FL11725 DFHMDF POS=(17,25), X00177 - ATTRB=(ASKIP), X00178 - LENGTH=020 00179 - DFHMDF POS=(17,47), X00180 - ATTRB=(ASKIP), X00181 - LENGTH=010, X00182 - INITIAL='OLD NAICS:' 00183 -FL11758 DFHMDF POS=(17,58), X00184 - ATTRB=(ASKIP), X00185 - LENGTH=006 00186 - DFHMDF POS=(17,65), X00187 - ATTRB=(ASKIP), X00188 - LENGTH=005, X00189 - INITIAL='CHNG:' 00190 -FL11771 DFHMDF POS=(17,71), X00191 - ATTRB=(ASKIP), X00192 - LENGTH=008 00193 - DFHMDF POS=(18,05), X00194 - ATTRB=(ASKIP), X00195 - LENGTH=010, X00196 - INITIAL='ALT NAICS:' 00197 -FL11816 DFHMDF POS=(18,16), X00198 - ATTRB=(ASKIP), X00199 - LENGTH=006 00200 - DFHMDF POS=(18,23), X00201 - ATTRB=(ASKIP), X00202 - LENGTH=001 00203 -FL11825 DFHMDF POS=(18,25), X00204 - ATTRB=(ASKIP), X00205 - LENGTH=020 00206 - DFHMDF POS=(19,08), X00207 - ATTRB=(ASKIP), X00208 - LENGTH=007, X00209 - INITIAL='OWN CD:' 00210 -FL11910 DFHMDF POS=(19,16), X00211 - ATTRB=(ASKIP), X00212 - LENGTH=002 00213 - DFHMDF POS=(19,19), X00214 - ATTRB=(ASKIP), X00215 - LENGTH=001 00216 -FL11920 DFHMDF POS=(19,25), X00217 - ATTRB=(ASKIP), X00218 - LENGTH=010 00219 - DFHMDF POS=(19,49), X00220 - ATTRB=(ASKIP), X00221 - LENGTH=008, X00222 - INITIAL='OLD OWN:' 00223 -FL11955 DFHMDF POS=(19,58), X00224 - ATTRB=(ASKIP), X00225 - LENGTH=002 00226 - DFHMDF POS=(19,65), X00227 - ATTRB=(ASKIP), X00228 - LENGTH=005, X00229 - INITIAL='CHNG:' 00230 -FL11971 DFHMDF POS=(19,71), X00231 - ATTRB=(ASKIP), X00232 - LENGTH=008 00233 - DFHMDF POS=(21,05), X00234 - ATTRB=(ASKIP), X00235 - LENGTH=010, X00236 - INITIAL='MULTI IND:' 00237 -FL12110 DFHMDF POS=(21,16), X00238 - ATTRB=(ASKIP), X00239 - LENGTH=001 00240 - DFHMDF POS=(21,18), X00241 - ATTRB=(ASKIP), X00242 - LENGTH=001 00243 -FL12120 DFHMDF POS=(21,25), X00244 - ATTRB=(ASKIP), X00245 - LENGTH=010 00246 - DFHMDF POS=(21,49), X00247 - ATTRB=(ASKIP), X00248 - LENGTH=008, X00249 - INITIAL='WARD CD:' 00250 -FL12155 DFHMDF POS=(21,58), X00251 +* DATA SET DTSML1 AT LEVEL 012 AS OF 07/19/99 +DTSML1 DFHMDI SIZE=(24,80), X00001**3 + LINE=01, X00002 + COLUMN=01 00003 +FL10101 DFHMDF POS=(01,01), X00004**4 + ATTRB=(ASKIP,FSET), X00005 + LENGTH=002, X00006 + INITIAL='L1' 00007**7 + DFHMDF POS=(01,20), X00008 + ATTRB=(ASKIP), X00009 + LENGTH=020, X00010 + INITIAL=' LMI INQUIRY/UPDATE ' 00011**8 +FL10162 DFHMDF POS=(01,62), X00012**4 + ATTRB=(ASKIP), X00013 + LENGTH=008 00014 +FL10172 DFHMDF POS=(01,72), X00015**4 + ATTRB=(ASKIP), X00016 + LENGTH=008 00017 +FL10272 DFHMDF POS=(02,72), X00018**4 + ATTRB=(ASKIP), X00019 + LENGTH=008 00020 + DFHMDF POS=(03,05), X00021 + ATTRB=(ASKIP), X00022 + LENGTH=007, X00023 + INITIAL='EMP NO:' 00024 +FL10313 DFHMDF POS=(03,13), X00025**4 + ATTRB=(ASKIP), X00026 + LENGTH=003 00027 +FL10317 DFHMDF POS=(03,17), X00028**4 + ATTRB=(ASKIP), X00029 + LENGTH=003 00030 + DFHMDF POS=(03,21), X00031 + ATTRB=(ASKIP), X00032 + LENGTH=001 00033 +FL10324 DFHMDF POS=(03,24), X00034**4 + ATTRB=(ASKIP), X00035 + LENGTH=040 00036 +FL10372 DFHMDF POS=(03,72), X00037**4 + ATTRB=(ASKIP), X00038 + LENGTH=002 00039 + DFHMDF POS=(03,75), X00040 + ATTRB=(ASKIP), X00041 + LENGTH=002, X00042 + INITIAL='OF' 00043 +FL10378 DFHMDF POS=(03,78), X00044**4 + ATTRB=(ASKIP), X00045 + LENGTH=002 00046 + DFHMDF POS=(05,16), X00047 + ATTRB=(ASKIP), X00048 + LENGTH=004, X00049 + INITIAL='QTR:' 00050 +FL10521 DFHMDF POS=(05,21), X00051**4 + ATTRB=(ASKIP), X00052 + LENGTH=002 00053 +FL10524 DFHMDF POS=(05,24), X00054**4 + ATTRB=(ASKIP), X00055 + LENGTH=001 00056 + DFHMDF POS=(05,26), X00057 + ATTRB=(ASKIP), X00058 + LENGTH=001 00059 + DFHMDF POS=(07,04), X00060 + ATTRB=(ASKIP), X00061 + LENGTH=016, X00062 + INITIAL='MONTH 1 EMP CNT:' 00063 +FL10721 DFHMDF POS=(07,21), X00064**4 + ATTRB=(ASKIP), X00065 + LENGTH=009 00066*12 + DFHMDF POS=(07,31), X00067*12 + ATTRB=(ASKIP), X00068 + LENGTH=001 00069 + DFHMDF POS=(07,42), X00070 + ATTRB=(ASKIP), X00071 + LENGTH=009, X00072 + INITIAL='TOT WAGE:' 00073 +FL10752 DFHMDF POS=(07,52), X00074**4 + ATTRB=(ASKIP), X00075 + LENGTH=014 00076 + DFHMDF POS=(08,04), X00077 + ATTRB=(ASKIP), X00078 + LENGTH=016, X00079 + INITIAL='MONTH 2 EMP CNT:' 00080 +FL10821 DFHMDF POS=(08,21), X00081**4 + ATTRB=(ASKIP), X00082 + LENGTH=009 00083*12 + DFHMDF POS=(08,31), X00084*12 + ATTRB=(ASKIP), X00085 + LENGTH=001 00086 + DFHMDF POS=(08,42), X00087 + ATTRB=(ASKIP), X00088 + LENGTH=009, X00089 + INITIAL='TAX WAGE:' 00090 +FL10852 DFHMDF POS=(08,52), X00091**4 + ATTRB=(ASKIP), X00092 + LENGTH=014 00093 + DFHMDF POS=(09,04), X00094 + ATTRB=(ASKIP), X00095 + LENGTH=016, X00096 + INITIAL='MONTH 3 EMP CNT:' 00097 +FL10921 DFHMDF POS=(09,21), X00098**4 + ATTRB=(ASKIP), X00099 + LENGTH=009 00100*12 + DFHMDF POS=(09,31), X00101*12 + ATTRB=(ASKIP), X00102 + LENGTH=001 00103 + DFHMDF POS=(09,42), X00104 + ATTRB=(ASKIP), X00105 + LENGTH=009, X00106 + INITIAL='WGE CHNG:' 00107 +FL10952 DFHMDF POS=(09,52), X00108**4 + ATTRB=(ASKIP), X00109 + LENGTH=008 00110 + DFHMDF POS=(10,42), X00111 + ATTRB=(ASKIP), X00112 + LENGTH=009, X00113 + INITIAL='RPT TYPE:' 00114 +FL11052 DFHMDF POS=(10,52), X00115**4 + ATTRB=(ASKIP), X00116 + LENGTH=010 00117 + DFHMDF POS=(11,42), X00118 + ATTRB=(ASKIP), X00119 + LENGTH=009, X00120 + INITIAL='CNT CHNG:' 00121 +FL11152 DFHMDF POS=(11,52), X00122**4 + ATTRB=(ASKIP), X00123 + LENGTH=008 00124 + DFHMDF POS=(13,08), X00125**5 + ATTRB=(ASKIP), X00126 + LENGTH=007, X00127 + INITIAL='SIC CD:' 00128 +FL11310 DFHMDF POS=(13,16), X00129**6 + ATTRB=(ASKIP), X00130 + LENGTH=004 00131**5 + DFHMDF POS=(13,21), X00132**5 + ATTRB=(ASKIP), X00133 + LENGTH=001 00134 +FL11320 DFHMDF POS=(13,25), X00135**6 + ATTRB=(ASKIP), X00136 + LENGTH=020 00137 + DFHMDF POS=(13,49), X00138**5 + ATTRB=(ASKIP), X00139 + LENGTH=008, X00140 + INITIAL='OLD SIC:' 00141 +FL11355 DFHMDF POS=(13,58), X00142**6 + ATTRB=(ASKIP), X00143 + LENGTH=004 00144**5 + DFHMDF POS=(13,65), X00145**5 + ATTRB=(ASKIP), X00146 + LENGTH=005, X00147 + INITIAL='CHNG:' 00148 +FL11371 DFHMDF POS=(13,71), X00149**6 + ATTRB=(ASKIP), X00150 + LENGTH=008 00151 + DFHMDF POS=(15,04), X00152*10 + ATTRB=(ASKIP), X00153**5 + LENGTH=011, X00154*10 + INITIAL='SIC AUX CD:' 00155*10 +FL11516 DFHMDF POS=(15,16), X00156*10 + ATTRB=(ASKIP), X00157**5 + LENGTH=001 00158**5 + DFHMDF POS=(15,18), X00159*10 + ATTRB=(ASKIP), X00160**5 + LENGTH=001 00161**5 +FL11525 DFHMDF POS=(15,25), X00162*10 + ATTRB=(ASKIP), X00163**5 + LENGTH=010 00164**5 + DFHMDF POS=(17,06), X00165*10 + ATTRB=(ASKIP), X00166*10 + LENGTH=009, X00167*10 + INITIAL='NAICS CD:' 00168*10 +FL11716 DFHMDF POS=(17,16), X00169*10 + ATTRB=(ASKIP), X00170*11 + LENGTH=006 00171*10 + DFHMDF POS=(17,23), X00172*10 + ATTRB=(ASKIP), X00173*10 + LENGTH=001 00174*10 +FL11725 DFHMDF POS=(17,25), X00175*10 + ATTRB=(ASKIP), X00176*10 + LENGTH=020 00177*10 + DFHMDF POS=(17,47), X00178*10 + ATTRB=(ASKIP), X00179*10 + LENGTH=010, X00180*10 + INITIAL='OLD NAICS:' 00181*10 +FL11758 DFHMDF POS=(17,58), X00182*10 + ATTRB=(ASKIP), X00183*10 + LENGTH=006 00184*10 + DFHMDF POS=(17,65), X00185*10 + ATTRB=(ASKIP), X00186*10 + LENGTH=005, X00187*10 + INITIAL='CHNG:' 00188*10 +FL11771 DFHMDF POS=(17,71), X00189*10 + ATTRB=(ASKIP), X00190*10 + LENGTH=008 00191*10 + DFHMDF POS=(19,08), X00192**5 + ATTRB=(ASKIP), X00193**5 + LENGTH=007, X00194**5 + INITIAL='OWN CD:' 00195**5 +FL11910 DFHMDF POS=(19,16), X00196**6 + ATTRB=(ASKIP), X00197**5 + LENGTH=002 00198**5 + DFHMDF POS=(19,19), X00199**5 + ATTRB=(ASKIP), X00200**5 + LENGTH=001 00201**5 +FL11920 DFHMDF POS=(19,25), X00202**6 + ATTRB=(ASKIP), X00203**5 + LENGTH=010 00204**5 + DFHMDF POS=(19,49), X00205**5 + ATTRB=(ASKIP), X00206**5 + LENGTH=008, X00207**5 + INITIAL='OLD OWN:' 00208**5 +FL11955 DFHMDF POS=(19,58), X00209**6 + ATTRB=(ASKIP), X00210**5 + LENGTH=002 00211**5 + DFHMDF POS=(19,65), X00212**5 + ATTRB=(ASKIP), X00213**5 + LENGTH=005, X00214**5 + INITIAL='CHNG:' 00215**5 +FL11971 DFHMDF POS=(19,71), X00216**6 + ATTRB=(ASKIP), X00217**5 + LENGTH=008 00218**5 + DFHMDF POS=(21,05), X00219**6 + ATTRB=(ASKIP), X00220**5 + LENGTH=010, X00221**6 + INITIAL='MULTI IND:' 00222**6 +FL12110 DFHMDF POS=(21,16), X00223**6 + ATTRB=(ASKIP), X00224**5 + LENGTH=001 00225**6 + DFHMDF POS=(21,18), X00226**6 + ATTRB=(ASKIP), X00227**5 + LENGTH=001 00228**5 +FL12120 DFHMDF POS=(21,25), X00229**6 + ATTRB=(ASKIP), X00230**5 + LENGTH=010 00231**5 + DFHMDF POS=(21,49), X00232**6 + ATTRB=(ASKIP), X00233**5 + LENGTH=008, X00234**5 + INITIAL='WARD CD:' 00235**6 +FL12155 DFHMDF POS=(21,58), X00236**6 + ATTRB=(ASKIP), X00237**5 + LENGTH=002 00238**9 +FL12312 DFHMDF POS=(23,12), X00239**4 + ATTRB=(ASKIP), X00240 + LENGTH=008 00241 +FL12322 DFHMDF POS=(23,22), X00242**4 + ATTRB=(ASKIP), X00243 + LENGTH=007 00244 +FL12331 DFHMDF POS=(23,31), X00245**4 + ATTRB=(ASKIP), X00246 + LENGTH=007 00247 +FL12340 DFHMDF POS=(23,40), X00248**4 + ATTRB=(ASKIP), X00249 + LENGTH=007 00250 +FL12350 DFHMDF POS=(23,50), X00251**4 ATTRB=(ASKIP), X00252 - LENGTH=002 00253 -FL12312 DFHMDF POS=(23,12), X00254 + LENGTH=007 00253 +FL12401 DFHMDF POS=(24,01), X00254**4 ATTRB=(ASKIP), X00255 LENGTH=008 00256 -FL12322 DFHMDF POS=(23,22), X00257 +FL12410 DFHMDF POS=(24,10), X00257**4 ATTRB=(ASKIP), X00258 - LENGTH=007 00259 -FL12331 DFHMDF POS=(23,31), X00260 + LENGTH=058 00259 + DFHMDF POS=(24,69), X00260 ATTRB=(ASKIP), X00261 - LENGTH=007 00262 -FL12340 DFHMDF POS=(23,40), X00263 - ATTRB=(ASKIP), X00264 - LENGTH=007 00265 -FL12350 DFHMDF POS=(23,50), X00266 - ATTRB=(ASKIP), X00267 - LENGTH=007 00268 -FL12401 DFHMDF POS=(24,01), X00269 - ATTRB=(ASKIP), X00270 - LENGTH=008 00271 -FL12410 DFHMDF POS=(24,10), X00272 - ATTRB=(ASKIP), X00273 - LENGTH=058 00274 - DFHMDF POS=(24,69), X00275 - ATTRB=(ASKIP), X00276 - LENGTH=006, X00277 - INITIAL='GO TO:' 00278 -FL12476 DFHMDF POS=(24,76), X00279 - ATTRB=(ASKIP), X00280 - LENGTH=002 00281 - DFHMDF POS=(24,79), X00282 - ATTRB=(ASKIP), X00283 - LENGTH=001 00284 + LENGTH=006, X00262 + INITIAL='GO TO:' 00263 +FL12476 DFHMDF POS=(24,76), X00264**4 + ATTRB=(ASKIP), X00265 + LENGTH=002 00266 + DFHMDF POS=(24,79), X00267 + ATTRB=(ASKIP), X00268 + LENGTH=001 00269 diff --git a/Maps/DTSMSET.cpy b/Maps/DTSMSET.cpy index 4746674..6848e3f 100644 --- a/Maps/DTSMSET.cpy +++ b/Maps/DTSMSET.cpy @@ -29677,16 +29677,6 @@ 02 FILLER REDEFINES FL11771F. 04 FL11771A PIC X. 02 FL11771I PIC X(8). - 02 FL11816L PIC S9(4) COMP-5. - 02 FL11816F PIC X(1). - 02 FILLER REDEFINES FL11816F. - 04 FL11816A PIC X. - 02 FL11816I PIC X(6). - 02 FL11825L PIC S9(4) COMP-5. - 02 FL11825F PIC X(1). - 02 FILLER REDEFINES FL11825F. - 04 FL11825A PIC X. - 02 FL11825I PIC X(20). 02 FL11910L PIC S9(4) COMP-5. 02 FL11910F PIC X(1). 02 FILLER REDEFINES FL11910F. @@ -29823,10 +29813,6 @@ 02 FILLER PIC X(3). 02 FL11771O PIC X(8). 02 FILLER PIC X(3). - 02 FL11816O PIC X(6). - 02 FILLER PIC X(3). - 02 FL11825O PIC X(20). - 02 FILLER PIC X(3). 02 FL11910O PIC X(2). 02 FILLER PIC X(3). 02 FL11920O PIC X(10). diff --git a/Maps/DTSMSET.xml b/Maps/DTSMSET.xml index 5b42414..a394548 100644 --- a/Maps/DTSMSET.xml +++ b/Maps/DTSMSET.xml @@ -85284,51 +85284,6 @@ Intensity="NORM" /> - - - - - - - - - - - -