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"
/>
-
-
-
-
-
-
-
-
-
-
-
-