home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / mued102b.zip / fixphone.cmd < prev    next >
OS/2 REXX Batch file  |  1995-01-20  |  639b  |  24 lines
  1. /* */
  2. uCount = MED_QueryUserCount()
  3.  
  4. if uCount <> 'ERROR' Then Do
  5.     do i = 0 to uCount - 1
  6.         phone = Space(Translate(MED_QueryPhone(i), '        ', '/[],()-.'), 0)
  7.         if Length(phone) < 8 Then
  8.             phone = '317'phone
  9.         if Length(phone) = 10 Then Do
  10.             prfx = SubStr(phone, 1, 3)
  11.             mdfx = SubStr(phone, 4, 3)
  12.             sffx = SubStr(phone, 7, 4)
  13.             phone = '('prfx')'mdfx'-'sffx
  14.             Call MED_SetPhone i, phone
  15.         End
  16.         Else Do
  17.             Say '"'phone'" bad format - user #'i
  18.         End
  19.     End
  20. End
  21.  
  22. Say 'Click Send to Continue. . .'
  23. Pull .
  24.