Leading zeroes in Alphanumeric field

neelesht · Posted: Wed Sep 10, 2008 9:24 am

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: 5 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

Escapa · Posted: Wed Sep 10, 2008 5:25 pm

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

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

Escapa · Posted: Wed Sep 10, 2008 5:30 pm

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

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

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

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 · Posted: Thu Sep 11, 2008 7:53 am

Give this a try -

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

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: 53 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: 1592

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.