Leading zeroes in Alphanumeric field

neelesht

Hi All,

I have an Alphanumeric fields X(6) , i want leading zeroes in it.......e.g if value is E6 it shud be 0000E6 (this field can have any value E8 or ABC or TYRS)

one way is to count how till next space and then do it.

I wanted to know if there are any other ways, more simple ones ?

Thanks Everyone

XungoPejcao · New User Joined: 04 Sep 2008 Posts: 7 Location: Espa�a

Hi!

You can try with Inspect sentence:

01 CT-E6 PIC X(6) VALUE ' E6'.

------------------------------------------------

INSPECT CT-E6 REPLACING ALL ' ' BY '0'

CT-E6 = '0000E6'

ashimer · Posted: Wed Sep 10, 2008 5:23 pm Post subject:

Sambhaji · Posted: Wed Sep 10, 2008 5:25 pm Post subject:

I think instead of REPLACING ALL it should be REPLACING LEADING.

if value is 'E 6'
with REPLACING ALL SPACES output will be '000E06'
with REPLACING LEADING SPACES output will be '000E 6'

Now depends on neelesht what he wants..

dbzTHEdinosauer · Posted: Wed Sep 10, 2008 5:28 pm Post subject:

since you might be clobbered by justification problems,
you need to know where your non-space data will be.

Sambhaji · Posted: Wed Sep 10, 2008 5:30 pm Post subject:

Sorry Ashimer, i couldnt see your post as i was typing mine...
you were 2 min ahead...

Moderators delete my post if not required

ashimer · Posted: Wed Sep 10, 2008 5:32 pm Post subject:

neelesht · Posted: Thu Sep 11, 2008 3:30 am Post subject:

Hi All,

I guess I was not clear enough.
It wont have leading spaces, it will have trailing spaces like 'E6 '

In this case I cant even say INSPECT CT-E6 REPLACING ALL ' ' BY '0' coze it will make it
'E60000'

'E6 ' should look in file as '0000E6'

Sorry for not being clear.

Thanks everyone.

Robert Sample · Posted: Thu Sep 11, 2008 7:22 am Post subject:

neelesht: I haven't tried this but I believe it'll meet your need. Define a variable PIC X(06) JUST RIGHT and move your field to this variable. Do the INSPECT REPLACING LEADING SPACE on this variable.

Bill O'Boyle

Give this a try -

neelesht · Posted: Thu Sep 11, 2008 8:18 am Post subject:

Thanks Bill/Robert and everyone else.

I will try this tomorrow and let you all know.

Thanks for the help.

Regards
Neelesh

Cristopher · New User Joined: 31 Jul 2008 Posts: 36 Location: NY

Neelesh,

You can very well use the code been suggested by Bill, it will take care of leading or trailing spaces.
But u need to either move zeroes to WS-WORK-AREA in the begining or
use inspect WS-WORK-AREA replacing leading spaces by zero after the Perform to get the desired result.

Regards,
Cris

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1504

Hi Robert,

The parameter JUSTifies on the difference in the sending/receiving VARIABLE lengths, not the difference between the sending string length and the receiving VARIABLE length.