Re: quick question on string-appreciate ur help,Thanks in adv..

[murali dhar <hydchap1@xxxxxxxxx>]

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