BIF to trim leading 0's

 * 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 

[report a broken link by clicking here]