U@STRINGPHONE

U@STRINGPHONE strings the input data into the output area as (999)999-9999. No error indication is given for an invalid telephone number. If the area code is 0, the number is strung as 999-9999. If the telephone prefix is 0, no data moves to output.

Module STRRTNS
Input E@FMTPHONE
Output

E@FLDOUT (optional)

E@FLDPNTR (set to next available character position in output)

Programming Example

    EVAL      E@FMTPHONE  = telephone-number
    CALLP     U@STRINGPHONE