d TEXT S 4A INZ('0034')
d NUM S 4S 0
* No 1
c eval TEXT = %trim(TEXT)
c dow %subst(TEXT:1:1)='0'
c if %subst(TEXT:1:1)='0'
c eval %subst(TEXT:1:1)=' '
c eval TEXT = %trim(TEXT)
c endif
c enddo
c evalr TEXT = %trimr(TEXT)
* No 2
c move text num
c eval text = %editc(num:'L')