Remove Leading Zero [RPGLE]

 *=================================================================*
 * Example Removing Leading Zero from CHAR Variable (@LAE)         
 *=================================================================*
C                   Z-ADD     0045600       WfVar1            9 0  
C                   MOVE      WfVar1        WfVar2            9    
C                   MOVE      WfVar2        WfTemp            9    
                                                                   
C                   Z-ADD     0             WfFnd             1 0  
C                   MOVE      *BLANK        WfOutput          9    
C                   DOU       1 = 2                                
C                   EVAL      WfFnd = %Scan('0':WfTemp:1)          
C     WfFnd         IFNE      1                                    
C                   LEAVE                                          
C                   ENDIF                                          
C                   EVAL      WfTemp = %Replace('':WfTemp:1:1)     
C                   ENDDO                                          
C                   MOVEL     WfTemp        WfOutput               
C     WfOutput      DSPLY                                          
C                   SETON                                        LR