Dial Phone number on Smartphone

I am trying to dial a phone number on my smart phone. The phone number comes from a table. The word "PROCEDURE " remains however underlined what am I doing wrong?


// Selects the TAPI device
IF tapiLineDial(WIN_Settings.COMBO_TAPI[COMBO_TAPI ], ...
EditControlPhoneNumber,"TestLineStatus")<>0 THEN
Info("Click OK to hang up")
tapiHangUp()
END
PROCEDURE LineStatus(ValueLineStatus is int)
SWITCH ValueLineStatus
CASE tapiLineBusy: Message("The line is busy")
CASE tapiLineConnected: Message("OK, connected")
CASE tapiLineDialing: Message("Dialing in progress")
CASE tapiLineDialTone: Message("Dial tone")
CASE tapiLineDisconnected: Message ("The caller has hung up")
CASE tapiLineProceeding: Message("Searching for the correspondent")
CASE tapiLineRingBack: Message("Ringing")
END

Well, right off the top of my head I see that you are missing and END for the PROCEDURE.

// Selects the TAPI device 
IF tapiLineDial(WIN_Settings.COMBO_TAPI[COMBO_TAPI ], ...
  EditControlPhoneNumber,"TestLineStatus")<>0 THEN 
  Info("Click OK to hang up") 
  tapiHangUp() 
END // END for IF tapiLineDial
PROCEDURE  LineStatus(ValueLineStatus is int) 
  SWITCH ValueLineStatus 
  CASE tapiLineBusy: Message("The line is busy") 
  CASE tapiLineConnected: Message("OK, connected") 
  CASE tapiLineDialing: Message("Dialing in progress") 
  CASE tapiLineDialTone: Message("Dial tone") 
  CASE tapiLineDisconnected: Message ("The caller has hung up") 
  CASE tapiLineProceeding: Message("Searching for the correspondent") 
  CASE tapiLineRingBack: Message("Ringing") 
  END //-- END for SWITCH
END //--- END for PROCEDURE

hmm.. did not solve the problem

in the error code it says "PROCEDURE" is a WLanguage keyword, its use is incorrect in this case.
Thanks
Hans

i don't know how it works with smart phones but you have one (WINDEV) mistake in your code.
In the tapiLineDial you are calling one procedure called TestLineStatus and in the procedure the name is LineStatus.

You can't copy the code from the help like it is, in fact PROCEDURE is a WLanguage keyword.
Use the first block of code for the tapiLineDial and define one GLOBAL/LOCAL PROCEDURE with the rigth name with all the code from the keyword procedure until the end.