Help!

I'm trying to take an A4 filed from my SQLServer data base that sometimes has less than 4 values and pad it with leading zeros, i.e. a School_ID value of 13 becomes 0013. I've looked at the EDIT function, but I must be missing something as this doesn't do what I want.

Thanks!
Chuck Mason

Hi Chuck,

I guess the following should give you the desired result. Put it in a DEFINE or a COMPUTE:

 <br />SCHOOL_ID_I/I4 = EDIT(SCHOOL_ID);<br />SCHOOL_ID_A/A4 = EDIT(SCHOOL_ID_I);<br /> 

Hope I am right and it helps

format A2L packs with leading zeros, that's what the L indicates.
although of late i've seen it work, as Roland says, even without the L.
which makes A w/leading blanks a puzzle now.

Roland -

Thanks for the post! I tried that, but it doesn't add leading zeros. My 13 stayed 13. I need the field to go from '13' to '0013'

Susannah -

Let me try that one...Thanks!

Try the L for leading zeros.

DEFINE FILE CAR
XTEST/A6 WITH SALES = '23';
YTEST/I6L = EDIT(XTEST);
ZTEST/A6 = EDIT(YTEST);
END
TABLE FILE CAR
PRINT
YTEST ZTEST

ON TABLE SET PAGE NOLEAD
ON TABLE SET STYLESHEET *
TYPE=REPORT, GRID=OFF,
FONT='VERDANA', SIZE=8, $
ENDSTYLE
END

Chuck,

I am surprised it didn't work. I tried it myself on WF526 and it worked perfectly:

DEFINE FILE CAR
X/A4 WITH COUNTRY = '13';
X_I/I4 = EDIT(X);
X_A/A4 = EDIT(X_I);
END
TABLE FILE CAR
PRINT X X_I X_A
BY COUNTRY
END

This gives me '0013' in X_A. EDIT is always adding leading zeros while converting from numeric to alpha, as far as I can remember.

This message has been edited. Last edited by: <Mabel>,