RE: BIF to trim leading 0's

[Buck Calabro <buck.calabro@xxxxxxxxxxxxxxxxx>]

 * Demonstrate edit and trim BIFs                           
                                                            
h dftactgrp(*no) actgrp('QILE') option(*srcstmt: *nodebugio)
h debug                                                     
 * dbgview(*list)                                           
                                                            
d amount          s             11p 2                       
d message         s             50                          
                                                            
c                   eval      amount  = 256.64              
c                   eval      message =                     
c                               'Your balance is $' +       
c                               %trim(%editc(amount: 'J'))  
                                                            
c     message       dsply                                   
                                                            
c                   eval      *inlr = *on                   

Buck Calabro
Commsoft; Albany, NY
"Nothing is so firmly believed as
 that which we least know" -- Michel Montaigne
Visit the Midrange archives at http://www.midrange.com
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---