|
Here is a solution using %SCAN and %REPLACE that works. * Before EVAL, XXA12 has the value '2001 01 28 ' * After EVAL, XXA12 has the value '20010128 ' C Z-ADD *ZERO XC 3 0 C MOVE '2001 01 28 'XXA12 12 C* C* Scan for the value ' '. If found remove the ' '. C* C EVAL XC = 1 C* C DOW XC > *ZERO AND XC < %LEN(XXA12) C EVAL XC = %SCAN(' ':XXA12:XC) Note that there is ONE blank between the two apostrophes %SCAN(' ': C IF XC <> *ZERO C EVAL XXA12 = %REPLACE('':XXA12:XC:+1) Note that there is NO blank between the two apostrophes %REPLACE('': C EVAL XC = XC + 1 C ENDIF C* C ENDDO C* C SETON LR Jan
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.