|
midrange.com
Frank,
How about this:
Change to procedures and make the procedures return an indicatorl
D CHECK_6 pr N
Dx 10a (First Zip Code Field)
Dx 10A (Second Zip Code Field)
*------------------------------------------------------------------
D CHECK_56
Dx 14A
Dx 14A
*------------------------------------------------------------------
Then the procedures would look like this:
P CHECK_6 B
D CHECK_6 PI N
D SV_ZIP 14A
D XN14 14A
/FREE
IF (%SUBST(SV_SZIP:6:1)='0' AND %SUBST(XN14:6:1)='1')
OR (%SUBST(SV_SZIP:6:1)='1' AND %SUBST(XN14:6:1)='2')
OR (%SUBST(SV_SZIP:6:1)='2' AND %SUBST(XN14:6:1)='3')
OR (%SUBST(SV_SZIP:6:1)='3' AND %SUBST(XN14:6:1)='4')
OR (%SUBST(SV_SZIP:6:1)='4' AND %SUBST(XN14:6:1)='5')
OR (%SUBST(SV_SZIP:6:1)='5' AND %SUBST(XN14:6:1)='6')
OR (%SUBST(SV_SZIP:6:1)='6' AND %SUBST(XN14:6:1)='7')
OR (%SUBST(SV_SZIP:6:1)='7' AND %SUBST(XN14:6:1)='8')
OR (%SUBST(SV_SZIP:6:1)='8' AND %SUBST(XN14:6:1)='9');
RETURN *ON;
ELSE;
RETURN *OFF;
ENDIF;
/END-FREE
P CHECK_6 E
------------------------------------------------------------------------
------------------------------------
P CHECK_56 B
D CHECK_56 N
D SV_ZIP 14A
D XN14 14A
/FREE
IF (%SUBST(SV_SZIP:5:1)=%SUBST(XN14:5:1)
AND CHECK_6(SV_ZIP:XN14)) ;
RETURN *ON;
ELSE;
RETURN *OFF;
END;
P CHECK_56 E
------------------------------------------------------------------------
------------------------------------
Now if you need to check only the sixth character you code:
IF (CHECK_6(SV_ZIP:XN14));
// IN SEQUENCE
ELSE;
// NOT IN SEQUENCE
ENDIF;
If you need to check the 5th & 6th you code:
IF (CHECK_56(SV_ZIP:XN14));
// IN SEQUENCE
ELSE;
// NOT IN SEQUENCE
ENDIF;
If you need more just add another level that checks the first character
and then a function all to the procedure above that. For Example:
IF(CHECK_456(SV_ZIP:XN14));
// IN SEQUENCE
ELSE;
// NOT IN SEQUENCE
ENDIF;
I hope this is what you were looking for.
Marvin Radding
------------------------------------------------------------------------
-------------------------------------
If someone else has an easier way to shorten this code, PLEASE fill me
in,
I'd certainly appreciate it.
Frank
*
**********************************************************************
* CHECK_6 - S/R to Make Sure 6th Position for the Current_Zipcode
* is in Sequence with the 6th Position for the
* Previous_Zipcode.
**********************************************************************
C CHECK_6 BEGSR
/FREE
IN_SEQUENCE = 'N';
IF (%SUBST(SV_SZIP:6:1)='0' AND %SUBST(XN14:6:1)='1') OR
(%SUBST(SV_SZIP:6:1)='1' AND %SUBST(XN14:6:1)='2') OR
(%SUBST(SV_SZIP:6:1)='2' AND %SUBST(XN14:6:1)='3') OR
(%SUBST(SV_SZIP:6:1)='3' AND %SUBST(XN14:6:1)='4') OR
(%SUBST(SV_SZIP:6:1)='4' AND %SUBST(XN14:6:1)='5') OR
(%SUBST(SV_SZIP:6:1)='5' AND %SUBST(XN14:6:1)='6') OR
(%SUBST(SV_SZIP:6:1)='6' AND %SUBST(XN14:6:1)='7') OR
(%SUBST(SV_SZIP:6:1)='7' AND %SUBST(XN14:6:1)='8') OR
(%SUBST(SV_SZIP:6:1)='8' AND %SUBST(XN14:6:1)='9');
IN_SEQUENCE = 'Y';
ENDIF;
/END-FREE
C ENDSR
*
**********************************************************************
* CHECK_56 - S/R to Make Sure 5,6th Position for the
Current_Zipcode
* is in Sequence with the 5,6th Position for the
* Previous_Zipcode.
**********************************************************************
C CHECK_56 BEGSR
/FREE
IN_SEQUENCE = 'N';
IF (%SUBST(SV_SZIP:5:2)='A0' AND %SUBST(XN14:5:2)='A1') OR
(%SUBST(SV_SZIP:5:2)='A1' AND %SUBST(XN14:5:2)='A2') OR
(%SUBST(SV_SZIP:5:2)='A2' AND %SUBST(XN14:5:2)='A3') OR
(%SUBST(SV_SZIP:5:2)='A3' AND %SUBST(XN14:5:2)='A4') OR
(%SUBST(SV_SZIP:5:2)='A4' AND %SUBST(XN14:5:2)='A5') OR
(%SUBST(SV_SZIP:5:2)='A5' AND %SUBST(XN14:5:2)='A6') OR
(%SUBST(SV_SZIP:5:2)='A6' AND %SUBST(XN14:5:2)='A7') OR
(%SUBST(SV_SZIP:5:2)='A7' AND %SUBST(XN14:5:2)='A8') OR
(%SUBST(SV_SZIP:5:2)='A8' AND %SUBST(XN14:5:2)='A9') OR
(%SUBST(SV_SZIP:5:2)='A9' AND (%SUBST(XN14:5:2)='B0' OR
%SUBST(XN14:5:2)='B1') OR
(%SUBST(SV_SZIP:5:2)='B0' AND %SUBST(XN14:5:2)='B1') OR
(%SUBST(SV_SZIP:5:2)='B1' AND %SUBST(XN14:5:2)='B2') OR
(%SUBST(SV_SZIP:5:2)='B2' AND %SUBST(XN14:5:2)='B3') OR
(%SUBST(SV_SZIP:5:2)='B3' AND %SUBST(XN14:5:2)='B4') OR
(%SUBST(SV_SZIP:5:2)='B4' AND %SUBST(XN14:5:2)='B5') OR
(%SUBST(SV_SZIP:5:2)='B5' AND %SUBST(XN14:5:2)='B6') OR
(%SUBST(SV_SZIP:5:2)='B6' AND %SUBST(XN14:5:2)='B7') OR
(%SUBST(SV_SZIP:5:2)='B7' AND %SUBST(XN14:5:2)='B8') OR
(%SUBST(SV_SZIP:5:2)='B8' AND %SUBST(XN14:5:2)='B9') OR
(%SUBST(SV_SZIP:5:2)='B9' AND (%SUBST(XN14:5:2)='C0' OR
%SUBST(XN14:5:2)='C1') OR
(%SUBST(SV_SZIP:5:2)='C0' AND %SUBST(XN14:5:2)='C1') OR
(%SUBST(SV_SZIP:5:2)='C1' AND %SUBST(XN14:5:2)='C2') OR
(%SUBST(SV_SZIP:5:2)='C2' AND %SUBST(XN14:5:2)='C3') OR
(%SUBST(SV_SZIP:5:2)='C3' AND %SUBST(XN14:5:2)='C4') OR
(%SUBST(SV_SZIP:5:2)='C4' AND %SUBST(XN14:5:2)='C5') OR
(%SUBST(SV_SZIP:5:2)='C5' AND %SUBST(XN14:5:2)='C6') OR
(%SUBST(SV_SZIP:5:2)='C6' AND %SUBST(XN14:5:2)='C7') OR
(%SUBST(SV_SZIP:5:2)='C7' AND %SUBST(XN14:5:2)='C8') OR
(%SUBST(SV_SZIP:5:2)='C8' AND %SUBST(XN14:5:2)='C9') OR
(%SUBST(SV_SZIP:5:2)='C9' AND (%SUBST(XN14:5:2)='D0' OR
%SUBST(XN14:5:2)='D1') OR
(%SUBST(SV_SZIP:5:2)='D0' AND %SUBST(XN14:5:2)='D1') OR
(%SUBST(SV_SZIP:5:2)='D1' AND %SUBST(XN14:5:2)='D2') OR
(%SUBST(SV_SZIP:5:2)='D2' AND %SUBST(XN14:5:2)='D3') OR
(%SUBST(SV_SZIP:5:2)='D3' AND %SUBST(XN14:5:2)='D4') OR
(%SUBST(SV_SZIP:5:2)='D4' AND %SUBST(XN14:5:2)='D5') OR
(%SUBST(SV_SZIP:5:2)='D5' AND %SUBST(XN14:5:2)='D6') OR
(%SUBST(SV_SZIP:5:2)='D6' AND %SUBST(XN14:5:2)='D7') OR
(%SUBST(SV_SZIP:5:2)='D7' AND %SUBST(XN14:5:2)='D8') OR
(%SUBST(SV_SZIP:5:2)='D8' AND %SUBST(XN14:5:2)='D9') OR
(%SUBST(SV_SZIP:5:2)='D9' AND (%SUBST(XN14:5:2)='E0' OR
%SUBST(XN14:5:2)='E1') OR
(%SUBST(SV_SZIP:5:2)='E0' AND %SUBST(XN14:5:2)='E1') OR
(%SUBST(SV_SZIP:5:2)='E1' AND %SUBST(XN14:5:2)='E2') OR
(%SUBST(SV_SZIP:5:2)='E2' AND %SUBST(XN14:5:2)='E3') OR
(%SUBST(SV_SZIP:5:2)='E3' AND %SUBST(XN14:5:2)='E4') OR
(%SUBST(SV_SZIP:5:2)='E4' AND %SUBST(XN14:5:2)='E5') OR
(%SUBST(SV_SZIP:5:2)='E5' AND %SUBST(XN14:5:2)='E6') OR
(%SUBST(SV_SZIP:5:2)='E6' AND %SUBST(XN14:5:2)='E7') OR
(%SUBST(SV_SZIP:5:2)='E7' AND %SUBST(XN14:5:2)='E8') OR
(%SUBST(SV_SZIP:5:2)='E8' AND %SUBST(XN14:5:2)='E9') OR
(%SUBST(SV_SZIP:5:2)='E9' AND (%SUBST(XN14:5:2)='F0' OR
%SUBST(XN14:5:2)='F1') OR
(%SUBST(SV_SZIP:5:2)='F0' AND %SUBST(XN14:5:2)='F1') OR
(%SUBST(SV_SZIP:5:2)='F1' AND %SUBST(XN14:5:2)='F2') OR
(%SUBST(SV_SZIP:5:2)='F2' AND %SUBST(XN14:5:2)='F3') OR
(%SUBST(SV_SZIP:5:2)='F3' AND %SUBST(XN14:5:2)='F4') OR
(%SUBST(SV_SZIP:5:2)='F4' AND %SUBST(XN14:5:2)='F5') OR
(%SUBST(SV_SZIP:5:2)='F5' AND %SUBST(XN14:5:2)='F6') OR
(%SUBST(SV_SZIP:5:2)='F6' AND %SUBST(XN14:5:2)='F7') OR
(%SUBST(SV_SZIP:5:2)='F7' AND %SUBST(XN14:5:2)='F8') OR
(%SUBST(SV_SZIP:5:2)='F8' AND %SUBST(XN14:5:2)='F9') OR
(%SUBST(SV_SZIP:5:2)='F9' AND (%SUBST(XN14:5:2)='G0' OR
%SUBST(XN14:5:2)='G1') OR
(%SUBST(SV_SZIP:5:2)='G0' AND %SUBST(XN14:5:2)='G1') OR
(%SUBST(SV_SZIP:5:2)='G1' AND %SUBST(XN14:5:2)='G2') OR
(%SUBST(SV_SZIP:5:2)='G2' AND %SUBST(XN14:5:2)='G3') OR
(%SUBST(SV_SZIP:5:2)='G3' AND %SUBST(XN14:5:2)='G4') OR
(%SUBST(SV_SZIP:5:2)='G4' AND %SUBST(XN14:5:2)='G5') OR
(%SUBST(SV_SZIP:5:2)='G5' AND %SUBST(XN14:5:2)='G6') OR
(%SUBST(SV_SZIP:5:2)='G6' AND %SUBST(XN14:5:2)='G7') OR
(%SUBST(SV_SZIP:5:2)='G7' AND %SUBST(XN14:5:2)='G8') OR
(%SUBST(SV_SZIP:5:2)='G8' AND %SUBST(XN14:5:2)='G9') OR
(%SUBST(SV_SZIP:5:2)='G9' AND (%SUBST(XN14:5:2)='H0' OR
%SUBST(XN14:5:2)='H1') OR
(%SUBST(SV_SZIP:5:2)='H0' AND %SUBST(XN14:5:2)='H1') OR
(%SUBST(SV_SZIP:5:2)='H1' AND %SUBST(XN14:5:2)='H2') OR
(%SUBST(SV_SZIP:5:2)='H2' AND %SUBST(XN14:5:2)='H3') OR
(%SUBST(SV_SZIP:5:2)='H3' AND %SUBST(XN14:5:2)='H4') OR
(%SUBST(SV_SZIP:5:2)='H4' AND %SUBST(XN14:5:2)='H5') OR
(%SUBST(SV_SZIP:5:2)='H5' AND %SUBST(XN14:5:2)='H6') OR
(%SUBST(SV_SZIP:5:2)='H6' AND %SUBST(XN14:5:2)='H7') OR
(%SUBST(SV_SZIP:5:2)='H7' AND %SUBST(XN14:5:2)='H8') OR
(%SUBST(SV_SZIP:5:2)='H8' AND %SUBST(XN14:5:2)='H9') OR
(%SUBST(SV_SZIP:5:2)='H9' AND (%SUBST(XN14:5:2)='I0' OR
%SUBST(XN14:5:2)='I1') OR
(%SUBST(SV_SZIP:5:2)='I0' AND %SUBST(XN14:5:2)='I1') OR
(%SUBST(SV_SZIP:5:2)='I1' AND %SUBST(XN14:5:2)='I2') OR
(%SUBST(SV_SZIP:5:2)='I2' AND %SUBST(XN14:5:2)='I3') OR
(%SUBST(SV_SZIP:5:2)='I3' AND %SUBST(XN14:5:2)='I4') OR
(%SUBST(SV_SZIP:5:2)='I4' AND %SUBST(XN14:5:2)='I5') OR
(%SUBST(SV_SZIP:5:2)='I5' AND %SUBST(XN14:5:2)='I6') OR
(%SUBST(SV_SZIP:5:2)='I6' AND %SUBST(XN14:5:2)='I7') OR
(%SUBST(SV_SZIP:5:2)='I7' AND %SUBST(XN14:5:2)='I8') OR
(%SUBST(SV_SZIP:5:2)='I8' AND %SUBST(XN14:5:2)='I9') OR
(%SUBST(SV_SZIP:5:2)='I9' AND (%SUBST(XN14:5:2)='J0' OR
%SUBST(XN14:5:2)='J1') OR
(%SUBST(SV_SZIP:5:2)='J0' AND %SUBST(XN14:5:2)='J1') OR
(%SUBST(SV_SZIP:5:2)='J1' AND %SUBST(XN14:5:2)='J2') OR
(%SUBST(SV_SZIP:5:2)='J2' AND %SUBST(XN14:5:2)='J3') OR
(%SUBST(SV_SZIP:5:2)='J3' AND %SUBST(XN14:5:2)='J4') OR
(%SUBST(SV_SZIP:5:2)='J4' AND %SUBST(XN14:5:2)='J5') OR
(%SUBST(SV_SZIP:5:2)='J5' AND %SUBST(XN14:5:2)='J6') OR
(%SUBST(SV_SZIP:5:2)='J6' AND %SUBST(XN14:5:2)='J7') OR
(%SUBST(SV_SZIP:5:2)='J7' AND %SUBST(XN14:5:2)='J8') OR
(%SUBST(SV_SZIP:5:2)='J8' AND %SUBST(XN14:5:2)='J9') OR
(%SUBST(SV_SZIP:5:2)='J9' AND (%SUBST(XN14:5:2)='K0' OR
%SUBST(XN14:5:2)='K1') OR
(%SUBST(SV_SZIP:5:2)='K0' AND %SUBST(XN14:5:2)='K1') OR
(%SUBST(SV_SZIP:5:2)='K1' AND %SUBST(XN14:5:2)='K2') OR
(%SUBST(SV_SZIP:5:2)='K2' AND %SUBST(XN14:5:2)='K3') OR
(%SUBST(SV_SZIP:5:2)='K3' AND %SUBST(XN14:5:2)='K4') OR
(%SUBST(SV_SZIP:5:2)='K4' AND %SUBST(XN14:5:2)='K5') OR
(%SUBST(SV_SZIP:5:2)='K5' AND %SUBST(XN14:5:2)='K6') OR
(%SUBST(SV_SZIP:5:2)='K6' AND %SUBST(XN14:5:2)='K7') OR
(%SUBST(SV_SZIP:5:2)='K7' AND %SUBST(XN14:5:2)='K8') OR
(%SUBST(SV_SZIP:5:2)='K8' AND %SUBST(XN14:5:2)='K9') OR
(%SUBST(SV_SZIP:5:2)='K9' AND (%SUBST(XN14:5:2)='L0' OR
%SUBST(XN14:5:2)='L1') OR
(%SUBST(SV_SZIP:5:2)='L0' AND %SUBST(XN14:5:2)='L1') OR
(%SUBST(SV_SZIP:5:2)='L1' AND %SUBST(XN14:5:2)='L2') OR
(%SUBST(SV_SZIP:5:2)='L2' AND %SUBST(XN14:5:2)='L3') OR
(%SUBST(SV_SZIP:5:2)='L3' AND %SUBST(XN14:5:2)='L4') OR
(%SUBST(SV_SZIP:5:2)='L4' AND %SUBST(XN14:5:2)='L5') OR
(%SUBST(SV_SZIP:5:2)='L5' AND %SUBST(XN14:5:2)='L6') OR
(%SUBST(SV_SZIP:5:2)='L6' AND %SUBST(XN14:5:2)='L7') OR
(%SUBST(SV_SZIP:5:2)='L7' AND %SUBST(XN14:5:2)='L8') OR
(%SUBST(SV_SZIP:5:2)='L8' AND %SUBST(XN14:5:2)='L9') OR
(%SUBST(SV_SZIP:5:2)='L9' AND (%SUBST(XN14:5:2)='M0' OR
%SUBST(XN14:5:2)='M1') OR
(%SUBST(SV_SZIP:5:2)='M0' AND %SUBST(XN14:5:2)='M1') OR
(%SUBST(SV_SZIP:5:2)='M1' AND %SUBST(XN14:5:2)='M2') OR
(%SUBST(SV_SZIP:5:2)='M2' AND %SUBST(XN14:5:2)='M3') OR
(%SUBST(SV_SZIP:5:2)='M3' AND %SUBST(XN14:5:2)='M4') OR
(%SUBST(SV_SZIP:5:2)='M4' AND %SUBST(XN14:5:2)='M5') OR
(%SUBST(SV_SZIP:5:2)='M5' AND %SUBST(XN14:5:2)='M6') OR
(%SUBST(SV_SZIP:5:2)='M6' AND %SUBST(XN14:5:2)='M7') OR
(%SUBST(SV_SZIP:5:2)='M7' AND %SUBST(XN14:5:2)='M8') OR
(%SUBST(SV_SZIP:5:2)='M8' AND %SUBST(XN14:5:2)='M9') OR
(%SUBST(SV_SZIP:5:2)='M9' AND (%SUBST(XN14:5:2)='N0' OR
%SUBST(XN14:5:2)='N1') OR
(%SUBST(SV_SZIP:5:2)='N0' AND %SUBST(XN14:5:2)='N1') OR
(%SUBST(SV_SZIP:5:2)='N1' AND %SUBST(XN14:5:2)='N2') OR
(%SUBST(SV_SZIP:5:2)='N2' AND %SUBST(XN14:5:2)='N3') OR
(%SUBST(SV_SZIP:5:2)='N3' AND %SUBST(XN14:5:2)='N4') OR
(%SUBST(SV_SZIP:5:2)='N4' AND %SUBST(XN14:5:2)='N5') OR
(%SUBST(SV_SZIP:5:2)='N5' AND %SUBST(XN14:5:2)='N6') OR
(%SUBST(SV_SZIP:5:2)='N6' AND %SUBST(XN14:5:2)='N7') OR
(%SUBST(SV_SZIP:5:2)='N7' AND %SUBST(XN14:5:2)='N8') OR
(%SUBST(SV_SZIP:5:2)='N8' AND %SUBST(XN14:5:2)='N9') OR
(%SUBST(SV_SZIP:5:2)='N9' AND (%SUBST(XN14:5:2)='O0' OR
%SUBST(XN14:5:2)='O1') OR
(%SUBST(SV_SZIP:5:2)='O0' AND %SUBST(XN14:5:2)='O1') OR
(%SUBST(SV_SZIP:5:2)='O1' AND %SUBST(XN14:5:2)='O2') OR
(%SUBST(SV_SZIP:5:2)='O2' AND %SUBST(XN14:5:2)='O3') OR
(%SUBST(SV_SZIP:5:2)='O3' AND %SUBST(XN14:5:2)='O4') OR
(%SUBST(SV_SZIP:5:2)='O4' AND %SUBST(XN14:5:2)='O5') OR
(%SUBST(SV_SZIP:5:2)='O5' AND %SUBST(XN14:5:2)='O6') OR
(%SUBST(SV_SZIP:5:2)='O6' AND %SUBST(XN14:5:2)='O7') OR
(%SUBST(SV_SZIP:5:2)='O7' AND %SUBST(XN14:5:2)='O8') OR
(%SUBST(SV_SZIP:5:2)='O8' AND %SUBST(XN14:5:2)='O9') OR
(%SUBST(SV_SZIP:5:2)='O9' AND (%SUBST(XN14:5:2)='P0' OR
%SUBST(XN14:5:2)='P1') OR
(%SUBST(SV_SZIP:5:2)='P0' AND %SUBST(XN14:5:2)='P1') OR
(%SUBST(SV_SZIP:5:2)='P1' AND %SUBST(XN14:5:2)='P2') OR
(%SUBST(SV_SZIP:5:2)='P2' AND %SUBST(XN14:5:2)='P3') OR
(%SUBST(SV_SZIP:5:2)='P3' AND %SUBST(XN14:5:2)='P4') OR
(%SUBST(SV_SZIP:5:2)='P4' AND %SUBST(XN14:5:2)='P5') OR
(%SUBST(SV_SZIP:5:2)='P5' AND %SUBST(XN14:5:2)='P6') OR
(%SUBST(SV_SZIP:5:2)='P6' AND %SUBST(XN14:5:2)='P7') OR
(%SUBST(SV_SZIP:5:2)='P7' AND %SUBST(XN14:5:2)='P8') OR
(%SUBST(SV_SZIP:5:2)='P8' AND %SUBST(XN14:5:2)='P9') OR
(%SUBST(SV_SZIP:5:2)='P9' AND (%SUBST(XN14:5:2)='Q0' OR
%SUBST(XN14:5:2)='Q1') OR
(%SUBST(SV_SZIP:5:2)='Q0' AND %SUBST(XN14:5:2)='Q1') OR
(%SUBST(SV_SZIP:5:2)='Q1' AND %SUBST(XN14:5:2)='Q2') OR
(%SUBST(SV_SZIP:5:2)='Q2' AND %SUBST(XN14:5:2)='Q3') OR
(%SUBST(SV_SZIP:5:2)='Q3' AND %SUBST(XN14:5:2)='Q4') OR
(%SUBST(SV_SZIP:5:2)='Q4' AND %SUBST(XN14:5:2)='Q5') OR
(%SUBST(SV_SZIP:5:2)='Q5' AND %SUBST(XN14:5:2)='Q6') OR
(%SUBST(SV_SZIP:5:2)='Q6' AND %SUBST(XN14:5:2)='Q7') OR
(%SUBST(SV_SZIP:5:2)='Q7' AND %SUBST(XN14:5:2)='Q8') OR
(%SUBST(SV_SZIP:5:2)='Q8' AND %SUBST(XN14:5:2)='Q9') OR
(%SUBST(SV_SZIP:5:2)='Q9' AND (%SUBST(XN14:5:2)='R0' OR
%SUBST(XN14:5:2)='R1') OR
(%SUBST(SV_SZIP:5:2)='R0' AND %SUBST(XN14:5:2)='R1') OR
(%SUBST(SV_SZIP:5:2)='R1' AND %SUBST(XN14:5:2)='R2') OR
(%SUBST(SV_SZIP:5:2)='R2' AND %SUBST(XN14:5:2)='R3') OR
(%SUBST(SV_SZIP:5:2)='R3' AND %SUBST(XN14:5:2)='R4') OR
(%SUBST(SV_SZIP:5:2)='R4' AND %SUBST(XN14:5:2)='R5') OR
(%SUBST(SV_SZIP:5:2)='R5' AND %SUBST(XN14:5:2)='R6') OR
(%SUBST(SV_SZIP:5:2)='R6' AND %SUBST(XN14:5:2)='R7') OR
(%SUBST(SV_SZIP:5:2)='R7' AND %SUBST(XN14:5:2)='R8') OR
(%SUBST(SV_SZIP:5:2)='R8' AND %SUBST(XN14:5:2)='R9') OR
(%SUBST(SV_SZIP:5:2)='R9' AND (%SUBST(XN14:5:2)='S0' OR
%SUBST(XN14:5:2)='S1') OR
(%SUBST(SV_SZIP:5:2)='S0' AND %SUBST(XN14:5:2)='S1') OR
(%SUBST(SV_SZIP:5:2)='S1' AND %SUBST(XN14:5:2)='S2') OR
(%SUBST(SV_SZIP:5:2)='S2' AND %SUBST(XN14:5:2)='S3') OR
(%SUBST(SV_SZIP:5:2)='S3' AND %SUBST(XN14:5:2)='S4') OR
(%SUBST(SV_SZIP:5:2)='S4' AND %SUBST(XN14:5:2)='S5') OR
(%SUBST(SV_SZIP:5:2)='S5' AND %SUBST(XN14:5:2)='S6') OR
(%SUBST(SV_SZIP:5:2)='S6' AND %SUBST(XN14:5:2)='S7') OR
(%SUBST(SV_SZIP:5:2)='S7' AND %SUBST(XN14:5:2)='S8') OR
(%SUBST(SV_SZIP:5:2)='S8' AND %SUBST(XN14:5:2)='S9') OR
(%SUBST(SV_SZIP:5:2)='S9' AND (%SUBST(XN14:5:2)='T0' OR
%SUBST(XN14:5:2)='T1') OR
(%SUBST(SV_SZIP:5:2)='T0' AND %SUBST(XN14:5:2)='T1') OR
(%SUBST(SV_SZIP:5:2)='T1' AND %SUBST(XN14:5:2)='T2') OR
(%SUBST(SV_SZIP:5:2)='T2' AND %SUBST(XN14:5:2)='T3') OR
(%SUBST(SV_SZIP:5:2)='T3' AND %SUBST(XN14:5:2)='T4') OR
(%SUBST(SV_SZIP:5:2)='T4' AND %SUBST(XN14:5:2)='T5') OR
(%SUBST(SV_SZIP:5:2)='T5' AND %SUBST(XN14:5:2)='T6') OR
(%SUBST(SV_SZIP:5:2)='T6' AND %SUBST(XN14:5:2)='T7') OR
(%SUBST(SV_SZIP:5:2)='T7' AND %SUBST(XN14:5:2)='T8') OR
(%SUBST(SV_SZIP:5:2)='T8' AND %SUBST(XN14:5:2)='T9') OR
(%SUBST(SV_SZIP:5:2)='T9' AND (%SUBST(XN14:5:2)='U0' OR
%SUBST(XN14:5:2)='U1') OR
(%SUBST(SV_SZIP:5:2)='U0' AND %SUBST(XN14:5:2)='U1') OR
(%SUBST(SV_SZIP:5:2)='U1' AND %SUBST(XN14:5:2)='U2') OR
(%SUBST(SV_SZIP:5:2)='U2' AND %SUBST(XN14:5:2)='U3') OR
(%SUBST(SV_SZIP:5:2)='U3' AND %SUBST(XN14:5:2)='U4') OR
(%SUBST(SV_SZIP:5:2)='U4' AND %SUBST(XN14:5:2)='U5') OR
(%SUBST(SV_SZIP:5:2)='U5' AND %SUBST(XN14:5:2)='U6') OR
(%SUBST(SV_SZIP:5:2)='U6' AND %SUBST(XN14:5:2)='U7') OR
(%SUBST(SV_SZIP:5:2)='U7' AND %SUBST(XN14:5:2)='U8') OR
(%SUBST(SV_SZIP:5:2)='U8' AND %SUBST(XN14:5:2)='U9') OR
(%SUBST(SV_SZIP:5:2)='U9' AND (%SUBST(XN14:5:2)='V0' OR
%SUBST(XN14:5:2)='V1') OR
(%SUBST(SV_SZIP:5:2)='V0' AND %SUBST(XN14:5:2)='V1') OR
(%SUBST(SV_SZIP:5:2)='V1' AND %SUBST(XN14:5:2)='V2') OR
(%SUBST(SV_SZIP:5:2)='V2' AND %SUBST(XN14:5:2)='V3') OR
(%SUBST(SV_SZIP:5:2)='V3' AND %SUBST(XN14:5:2)='V4') OR
(%SUBST(SV_SZIP:5:2)='V4' AND %SUBST(XN14:5:2)='V5') OR
(%SUBST(SV_SZIP:5:2)='V5' AND %SUBST(XN14:5:2)='V6') OR
(%SUBST(SV_SZIP:5:2)='V6' AND %SUBST(XN14:5:2)='V7') OR
(%SUBST(SV_SZIP:5:2)='V7' AND %SUBST(XN14:5:2)='V8') OR
(%SUBST(SV_SZIP:5:2)='V8' AND %SUBST(XN14:5:2)='V9') OR
(%SUBST(SV_SZIP:5:2)='V9' AND (%SUBST(XN14:5:2)='W0' OR
%SUBST(XN14:5:2)='W1') OR
(%SUBST(SV_SZIP:5:2)='W0' AND %SUBST(XN14:5:2)='W1') OR
(%SUBST(SV_SZIP:5:2)='W1' AND %SUBST(XN14:5:2)='W2') OR
(%SUBST(SV_SZIP:5:2)='W2' AND %SUBST(XN14:5:2)='W3') OR
(%SUBST(SV_SZIP:5:2)='W3' AND %SUBST(XN14:5:2)='W4') OR
(%SUBST(SV_SZIP:5:2)='W4' AND %SUBST(XN14:5:2)='W5') OR
(%SUBST(SV_SZIP:5:2)='W5' AND %SUBST(XN14:5:2)='W6') OR
(%SUBST(SV_SZIP:5:2)='W6' AND %SUBST(XN14:5:2)='W7') OR
(%SUBST(SV_SZIP:5:2)='W7' AND %SUBST(XN14:5:2)='W8') OR
(%SUBST(SV_SZIP:5:2)='W8' AND %SUBST(XN14:5:2)='W9') OR
(%SUBST(SV_SZIP:5:2)='W9' AND (%SUBST(XN14:5:2)='X0' OR
%SUBST(XN14:5:2)='X1') OR
(%SUBST(SV_SZIP:5:2)='X0' AND %SUBST(XN14:5:2)='X1') OR
(%SUBST(SV_SZIP:5:2)='X1' AND %SUBST(XN14:5:2)='X2') OR
(%SUBST(SV_SZIP:5:2)='X2' AND %SUBST(XN14:5:2)='X3') OR
(%SUBST(SV_SZIP:5:2)='X3' AND %SUBST(XN14:5:2)='X4') OR
(%SUBST(SV_SZIP:5:2)='X4' AND %SUBST(XN14:5:2)='X5') OR
(%SUBST(SV_SZIP:5:2)='X5' AND %SUBST(XN14:5:2)='X6') OR
(%SUBST(SV_SZIP:5:2)='X6' AND %SUBST(XN14:5:2)='X7') OR
(%SUBST(SV_SZIP:5:2)='X7' AND %SUBST(XN14:5:2)='X8') OR
(%SUBST(SV_SZIP:5:2)='X8' AND %SUBST(XN14:5:2)='X9') OR
(%SUBST(SV_SZIP:5:2)='X9' AND (%SUBST(XN14:5:2)='Y0' OR
%SUBST(XN14:5:2)='Y1') OR
(%SUBST(SV_SZIP:5:2)='Y0' AND %SUBST(XN14:5:2)='Y1') OR
(%SUBST(SV_SZIP:5:2)='Y1' AND %SUBST(XN14:5:2)='Y2') OR
(%SUBST(SV_SZIP:5:2)='Y2' AND %SUBST(XN14:5:2)='Y3') OR
(%SUBST(SV_SZIP:5:2)='Y3' AND %SUBST(XN14:5:2)='Y4') OR
(%SUBST(SV_SZIP:5:2)='Y4' AND %SUBST(XN14:5:2)='Y5') OR
(%SUBST(SV_SZIP:5:2)='Y5' AND %SUBST(XN14:5:2)='Y6') OR
(%SUBST(SV_SZIP:5:2)='Y6' AND %SUBST(XN14:5:2)='Y7') OR
(%SUBST(SV_SZIP:5:2)='Y7' AND %SUBST(XN14:5:2)='Y8') OR
(%SUBST(SV_SZIP:5:2)='Y8' AND %SUBST(XN14:5:2)='Y9') OR
(%SUBST(SV_SZIP:5:2)='Y9' AND (%SUBST(XN14:5:2)='Z0' OR
%SUBST(XN14:5:2)='Z1') OR
(%SUBST(SV_SZIP:5:2)='Z0' AND %SUBST(XN14:5:2)='Z1') OR
(%SUBST(SV_SZIP:5:2)='Z1' AND %SUBST(XN14:5:2)='Z2') OR
(%SUBST(SV_SZIP:5:2)='Z2' AND %SUBST(XN14:5:2)='Z3') OR
(%SUBST(SV_SZIP:5:2)='Z3' AND %SUBST(XN14:5:2)='Z4') OR
(%SUBST(SV_SZIP:5:2)='Z4' AND %SUBST(XN14:5:2)='Z5') OR
(%SUBST(SV_SZIP:5:2)='Z5' AND %SUBST(XN14:5:2)='Z6') OR
(%SUBST(SV_SZIP:5:2)='Z6' AND %SUBST(XN14:5:2)='Z7') OR
(%SUBST(SV_SZIP:5:2)='Z7' AND %SUBST(XN14:5:2)='Z8') OR
(%SUBST(SV_SZIP:5:2)='Z8' AND %SUBST(XN14:5:2)='Z9');
IN_SEQUENCE = 'Y';
ENDIF;
/END-FREE
C ENDSR
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
