IBM Mainframe Forum

Hello,

I have requirement, in which email id should be formatted.
e.g. someone_else@website.com should become someone=else//website.com

To say, '_' should be replaced by '=' and '@' should be replaced by '//'.

I can use CONVERTING or REPLACING along with INSPECT verb in COBOL, and it allows me to replace '_' by '='.
But for '@' by '//', it is not allowing, as one position (@) is getting replaced by two positions (//).

Is there any workaround to replace/convert one position by two positions?

Tks,
YV

If you use UNSTRING to split on the "@" (which will always be present, and only once, in a "valid format" e-mail address - are they all valid in format?) then you can use STRING to put it back together:

Hi Billy,

Thanks for the post. It was much closer to the actual one I have implemented in my code.

UNSTRING WS-EMAIL-ADR DELIMITED BY '@'
INTO PART1-USER-ID
PART2-DOMAIN
END-UNSTRING.


MOVE SPACES TO WS-EMAIL-ADR.

INSPECT PART1-USER-ID REPLACING ALL '_' BY '='.

STRING PART1-USER-ID DELIMITED BY SPACE
AT-SIGN DELIMITED BY SIZE
PART2-DOMAIN DELIMITED BY SPACE
INTO WS-EMAIL-ADR
END-STRING.