Free form and MOVE

[Fooch]

This may be a dumb question, but is there a MOVE equivalent in Free form? There are many times when I have needed to force a numeric into a char for certain reasons, or vice versa. For concatination or things like that where %CHAR won't work because of the deletion on leading zeros.

 

[MdnghtPgmr]

Fooch,

CharVar = %EDITC( NumVar : 'X' );

Will get you the leading zeros. You can also use %DEC() or %INT() to go the other way.

HTH,
MdnghtPgmr

 

[flapeyre]

Instead of %CHAR, use %EDITW. You have more control over leading zeros.

For example, I use

Formatted_SSN = %EDITW(cusssn : '0   -  -    ');

to edit a Social Security number.



Sumptum fac donec consumptus sis.

-- my wife's motto

 

[Fooch]

Thanks. Another question on the same kind of thing. Is there a way for free form to turn on/off multiple indicators? Like how you can in IV..MOVEA '0000' *IN(80)...kind of thing.

 

[flapeyre]

/free
for x = 80 to 83;
*in(x) = *off;
endfor;

Sumptum fac donec consumptus sis.

-- my wife's motto