'FONE    - converts 0171/0181 to 020 7/020 8

external  vloadif()

public    ptstr l

global    x i newnr y suf oldnr


MAIN
single-step off
clear global
for i = 1 to records
  x=[Office_Tel]   'message "x is:"&str(x)
  l=len(x)         'message "l is:"&str(l)
  if left(x,5)="0171-"
    y=right(x,l-5) 'message "y is:"&str(y)
    newnr="020-7"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Office_Tel]=newnr
    write-record
  elseif left(x,5)="0181-"
    y=right(x,l-5)  'message "y is:"&str(y)
    newnr="020-8"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Office_Tel]=newnr
    write-record
  elseif left(x,5)="0207-"
    y=right(x,l-5) 'message "y is:"&str(y)
    newnr="020-7"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Office_Tel]=newnr
    write-record
  elseif left(x,5)="0208-"
    y=right(x,l-5)  'message "y is:"&str(y)
    newnr="020-8"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Office_Tel]=newnr
    write-record
  end if

  x=[Mobile/Other_Nr]
  l=len(x)         'message "l is:"&str(l)
  if left(x,5)="0171-"
    y=right(x,l-5) 'message "y is:"&str(y)
    newnr="020-7"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Mobile/Other_Nr]=newnr
    write-record
  elseif left(x,5)="0181-"
    y=right(x,l-5)  'message "y is:"&str(y)
    newnr="020-8"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Mobile/Other_Nr]=newnr
    write-record
  elseif left(x,5)="0207-"
    y=right(x,l-5) 'message "y is:"&str(y)
    newnr="020-7"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Mobile/Other_Nr]=newnr
    write-record
  elseif left(x,5)="0208-"
    y=right(x,l-5)  'message "y is:"&str(y)
    newnr="020-8"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Mobile/Other_Nr]=newnr
    write-record
  end if

  x=[Office_Fax]
  l=len(x)         'message "l is:"&str(l)
  if left(x,5)="0171-"
    y=right(x,l-5) 'message "y is:"&str(y)
    newnr="020-7"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Office_Fax]=newnr
    write-record
  elseif left(x,5)="0181-"
    y=right(x,l-5)  'message "y is:"&str(y)
    newnr="020-8"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Office_Fax]=newnr
    write-record
  elseif left(x,5)="0207-"
    y=right(x,l-5) 'message "y is:"&str(y)
    newnr="020-7"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Office_Fax]=newnr
    write-record
  elseif left(x,5)="0208-"
    y=right(x,l-5)  'message "y is:"&str(y)
    newnr="020-8"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Office_Fax]=newnr
    write-record
  end if

  x=[Home_Tel]
  l=len(x)         'message "l is:"&str(l)
  if left(x,5)="0171-"
    y=right(x,l-5) 'message "y is:"&str(y)
    newnr="020-7"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Home_Tel]=newnr
    write-record
  elseif left(x,5)="0181-"
    y=right(x,l-5)  'message "y is:"&str(y)
    newnr="020-8"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Home_Tel]=newnr
    write-record
  elseif left(x,5)="0207-"
    y=right(x,l-5) 'message "y is:"&str(y)
    newnr="020-7"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Home_Tel]=newnr
    write-record
  elseif left(x,5)="0208-"
    y=right(x,l-5)  'message "y is:"&str(y)
    newnr="020-8"|y 'message "newnr is:"&str(newnr)
    lock-record
      [Home_Tel]=newnr
    write-record
  end if

  data goto record next
end for

END MAIN