× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi Raul,
I have implemented following code :
EVAL      LDZERO=1                                  
DOW       ldzero <8 and %SUBST(CEXPR:LDZERO:1) = '0'  
EVAL      %SUBST(CEXPR:LDZERO:1) = ' '              
EVAL      LDZERO=LDZERO+1                           
ENDDO    
CEXPR is field .....
it is working, Can you explain me                     
                           
what is 'Z' in your solution . Yes my field contains
valid numbers only .
I assume number as field what is 'Z'.


Murali.
--- Raul A Jager <raul@xxxxxxxxxx> wrote:
> If your application stores the data as numeric,
> simply use: 
>  %trim(%editc(number: 'Z'))
> 
> If your field is alpha, but contains only valid
> nun=mbers use: 
> %trim(%editc(%dec(alpha: 7: 0): 'Z'))  - this will
> work even if you have 
> trailing blanks.  If your field contains non valid
> numbers, you will 
> need to use test or monitor.
> 
> 
> murali dhar wrote:
> 
> >Hi, 
> >I want to suppress the leading zero in CEXPR field
> of
> >my PF. It is the printable strike price(7 char)
> field
> >and my application  stores this field with leading
> >zeros. This is causing problems for client web when
> >they upload the data. So they want us to suppress
> the
> >leading zeros in the 7 char field. 
> >which string fucntion in RPG i can use ? 
> >if anyone know ,please share the knowledge, as I
> dont
> >ve much time to refer notes,however i will do
> it,your
> >help is more appreciated
> >--- 
> >Murali.
> >
> >__________________________________
> >Do you Yahoo!?
> >Yahoo! Finance: Get your refund fast by filing
> online.
> >http://taxes.yahoo.com/filing.html
> >_______________________________________________
> >This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> >To post a message email: RPG400-L@xxxxxxxxxxxx
> >To subscribe, unsubscribe, or change list options,
> >visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l
> >or email: RPG400-L-request@xxxxxxxxxxxx
> >Before posting, please take a moment to review the
> archives
> >at http://archive.midrange.com/rpg400-l.
> >  
> >
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
> 


__________________________________
Do you Yahoo!?
Yahoo! Finance: Get your refund fast by filing online.
http://taxes.yahoo.com/filing.html

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.