ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

%xlate - example

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • %xlate - example

    Code:
          *                                                                  
          * Definitions                                                      
          *                                                                  
         d somefield       s             15    inz('**********12.35')        
         d dec152          s             15  2                               
          *                                                                  
          /free                                                              
                                                                             
               dec152  =  %dec(%xlate('*':'0':somefield):15:2);              
                                                                             
                *INLR = *on;                                                 
          /end-free
    All my answers were extracted from the "Big Dummy's Guide to the As400"
    and I take no responsibility for any of them.

    www.code400.com
Working...
X