Phone Dialing and FileMaker Pro 2.x

Keywords:     phone dialing

It is possible to dial a number from a field in FileMaker Pro 2.x using any Windows communication program. You can use a Winbatch file for this.

First you need to create the call from FileMaker Pro, as follows:
```
Copy [Select, "Phone"]
Send Message to open the WBT(Winbatch) file.
```
This will execute the Winbatch file.

Create the Winbatch file: Phone.WBT:

This batch file will minimize FileMaker Pro and run the

; This is a standard script to access a BBS, download
; a file and quit.

AddExtender("wwser34i.dll")
MyModemIsOn="COM2"
BBSPhone="1-234-123-4567"
CaptureFile="C:\MySerialCaputure.html"
pCaptureOn(CaptureFile,0)


BoxOpen("BBS Script","Initializing")
port=pComOpen(MyModemIsOn,0,57600,"8N1","RTSRTS")

BoxText("Resetting Modem")
pModemCommand(port,"ATZ")       ;gratuitous
pModemInit(port)                ;gratuitous

BoxText("Dialing")
pModemDial(port,1,BBSPhone)

BoxText("Waiting for connect")
pModemConnect(port)
BoxText("Waiting for name prompt")

while !pWaitFor(port,"name:"," ",0,10000)
   pPutLine(port,"n")
endwhile   
BoxText("Sending Name")

pPutLine(port,"guest guest")
pWaitFor(port,"Guest Guest [Y,n]?","+",0,3000)
BoxText("Confirming Name")

pPutLine(port,"y")
pWaitFor(port,"word:"," ",0,3000)
BoxText("Sending Password")


pPutLine(port,"guest")
pWaitFor(port,"continue"," ",0,3000)
BoxText("Moving thru bulletins")

pPutByte(port,13)
pWaitFor(port,"]?"," ",0,3000)

pPutline(port,"n")
pWaitFor(port,"]?"," ",0,3000)

pPutline(port,"n")
pWaitFor(port,"Select:"," ",0,3000)
BoxText("Selecting File Areas")

pPutline(port,"f")
pWaitFor(port,"Select:"," ",0,3000)
BoxText("Selecting Area 1")

pPutline(port,"a 1")
pWaitFor(port,"Select:"," ",0,3000)
BoxText("Initiating Download")


pPutLine(port,"d")            ; Download
pWaitFor(port,"Select:"," ",0,3000)
BoxText("Zmodem")

pPutLine(port,"z")            ; Zmodem
pWaitFor(port,"(#1):"," ",0,3000)
BoxText("Entering Filename")

pPutLine(port,"disclaim.zip")            ; Filename
pWaitFor(port,"(#2):"," ",0,3000)
BoxText("No second file")

pPutByte(port,13)            ; No second file
pWaitFor(port,"cancel."," ",0,3000)
pWaitFor(port,"rz"," ",0,3000)
BoxText("Receiving File")
xx=pRecvFile(port,"zmodem","C:\temp\*.*",1,1)
;Message(xx,pGetLastError())

pWaitFor(port,"Select:"," ",0,3000)
BoxText("Goodbye")

pPutLine(port,"g")            ; GoodBye
pWaitFor(port,"]?"," ",0,3000)
BoxText("YesYes")

pPutLine(port,"y")            ; Disconnect
pWaitFor(port,"]?"," ",0,3000)
BoxText("No message to sysop")

pPutLine(port,"n")            ; Message to sysop
pWaitFor(port,"again!"," ",0,3000)
BoxText("All Done - Hanging up")



pModemHangup(port)
pComClose(port,0)
Message("All","Doned")

There are many ways to write this batch file. This is just an example for Windows Terminal.

Article ID:   W13009

Filename:   Phone Dialling and FileMaker Pro 2.txt