RE: Leading Zeroes in PF

Thanks for the info, I will defintely take a look at it.


On Thu, 2 Feb 2006 11:28:31 -0600 , Lapeyre, Francis wrote
> 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.
> -- 
> 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.


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