RE: Leading Zeroes in PF

Doug:

Yes. Our zip code fields are 9p0, the first 5 is the 5 digit code, and the
last 4 are the ZIP+4. On screen, I use a data structure to split it up into
screen fields. 

When printing, this is how I print the zip code as a string:

     * 5 digit ZIP code if ZIP+4 is all zeros).                            
     C                  Clear    @Zip
    C                   If        %SUBST(%EDITC(Bnkzip:'X'):1:5) <> *ALL'0'
    C                   Eval      @Zip =   %SUBST(%EDITC(Bnkzip:'X'):1:5)

    C                   If        %SUBST(%EDITC(Bnkzip:'X'):6:4) <> *ALL'0'
    C                   Eval      @Zip = %TRIM(@Zip) + '-'         
    C                             + %SUBST(%EDITC(Bnkzip:'X'):6:4)         
    C                   Endif                                              
    C                   Endif                                              


This will print the leading zeros, but won't print anything if the zip code
is all zero. If the ZIP+4 is zero, only the 5 digit zip will print.

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
Sent: Thursday, February 2, 2006 11:08 AM
To: Mid Range List
Subject: Leading Zeroes in PF

I have been working with some zipcode files and we would prefer to treat the
field (zipcode) as a packed field, but I need to allow for leading
zeroes...is that possible with the PF? 

If you bought it, it was hauled by a truck - somewhere, sometime.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.