From: Eric Hill To: All

I am trying to edit a 10-digit phone number with an edit word so the output would look like this:

(205)-381-1250.

My edit word is keyed as:

'( )- - '

Does anyone have any ideas on this? When I do this, my output ends up being 205)-381-1250. I cannot get the first parenthesis to work.... Any help would be appreciated.

From: Chris Rowell To: Eric Hill

Try this edit word:

'0( ) - '

This was valid in RPGII; I'm not sure about RPG/400 or DDS. Also remember to count an extra space for the leading zero (i.e., you couldn't output this field ending in position 13.)

From: Pete Hall To: Eric Hill

You could use one of the user-definable edit codes (5-9). These allow you to specify a left-constant character. Check it out with the WRKEDTD command.

From: Tim Johnston To: Eric Hill

Try deleting one of your edit codes (I use nine for the telephone number), and:

 CRTEDTD EDTD(9) + INTMASK(' )& - ') + LFTCNS('(') + TEXT('Telephone edit code') 

Then write down how you did it. The next release you put on, I think, will wipe it out.