Difference between revisions of "Format Phone Number"
From MidrangeWiki
DaveLClarkI (talk | contribs) (→References) |
DaveLClarkI (talk | contribs) |
||
Line 1: | Line 1: | ||
+ | [[Category:Sample Code]] | ||
[[Category:Service Procedures]] | [[Category:Service Procedures]] | ||
== Summary == | == Summary == |
Revision as of 17:51, 13 December 2018
Summary
The following are the RPG/LE fully free-form definitions and instructions needed for using the Format Phone Number service procedure. This service procedure simply allows the caller to (re)format a USA phone number.
Service Procedure
**free //============================================================================== // Format phone number for output using a USA extended format. //============================================================================== dcl-pr GenUtl_FormatPhoneNo varchar(20); PhoneValue varchar(20) const; end-pr; //============================================================================== // Format phone number for output using a USA extended format. //============================================================================== dcl-proc GenUtl_FormatPhoneNo export; dcl-pi *n varchar(20); PhoneValue varchar(20) const; end-pi; dcl-s PhoneNo like(PhoneValue); PhoneNo = GenUtl_StripFormatting(%trim(PhoneValue): ' ()+-.'); if %len(PhoneNo) = *zero // if blank or not GenUtl_isDigits(PhoneNo); // or not all digits return PhoneNo; // return as-is (alpha phone number?) endif; if %len(PhoneNo) <= 7; // no area code present? return %trim(%editw(%int(PhoneNo):'0 - ')); // return 7-digit phone no endif; return %trim(%editw(%int(PhoneNo):' 0&( )& - ')); // return formatted ph# end-proc;
References
- GenUtl_isDigits service procedure
- GenUtl_StripFormatting service procedure