|
midrange.com
Frank,
I am still trying to get things cleaned up after Ivan so I am a little
late jumping into this thread but, would it be feasible to put these
values into a file then chain to the file with the substring value?
> ------------------------------
>
> message: 5
> date: Tue, 19 Oct 2004 13:12:00 -0500
> from: fkany@xxxxxxxxxxxxxxxxxx
> subject: RE: Trivia: How many lines of code are allowed in an RPG
> Program?
>
>
>
> This program is a monster and I hope to never see another request for
> ranging canadian zip codes<fingers crossed>. I've written a very small
> US
> zip code ranging program(less than 50 lines of code), but the letters in
> the canadian zip codes throws a wrench in the whole process of trying to
> make the program small. I've tried to make the program as simple and
> easy
> to follow as possible. If someone else has a better way, be my guest, I'm
> open to ideas.
>
> Below are 2 subroutines: CHECK_6 and CHECK_56.
>
> CHECK_6(N): The first 5 positions of the current zipcode and the
> previous
> zipcode match, it's easy to check if the 6th position is in sequence
> since
> it's numeric. Only 9 different combinations to see if the current
> zipcode
> is in sequence with the previous zipcode.
>
> CHECK_56(AN): Here it gets a little more complicated and longer. There
> are
> 234 different combinations to validate the sequence of the zipcodes. For
> each letter of the alphabet there can be 9 different
> comninations.(9*26=234)
>
> As you can imagine, the combinations keep multiplying. CHECK_456(NAN):
> 234*10 = 2340 combinations, CHECK_3456(ANAN): 2340*26=60,840
> combinations,
> CHECK_23456(NANAN): 60840*10=608,400 combinations!!!
>
> 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
>
>
>
>
>
Thanks,
Terry
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
