global.tbh:

'DEFINES-------------------------------------------------------------

#define SUPPORTS_GPRS 1

#define GPRS_DEBUG_PRINT 1

#define GPRS_PAYLOAD_SIZE 1

'INCLUDES------------------------------------------------------------

include "sock\trunk\sock.tbh"

include "gprs\trunk\gprs.tbh"

'DECLARATIONS--------------------------------------------------------

declare tcp_sock_o as byte

main.tbs:

include "global.tbh"

'--------------------------------------------------------------------

const AT_DT_COMMAND="*99#"

const REMOTE_IP="124.155.161.141"                        '<----- CHANGE THIS AS NEEDED

const REMOTE_PORT=1001                                        '<----- CHANGE THIS AS NEEDED

'--------------------------------------------------------------------

dim tcp_sock_o as byte

'====================================================================

sub on_sys_init()

       dim res as en_gprs_status_codes

       '----- this is for the outgoing test connection

       tcp_sock_o=sock_get("TCPA")

       sock.num=tcp_sock_o

       sock.txbuffrq(1)

       sock.rxbuffrq(1)

       sys.buffalloc

       sock.protocol=PL_SOCK_PROTOCOL_TCP

       sock.targetip=REMOTE_IP

       sock.targetport=REMOTE_PORT

       sock.targetinterface=PL_SOCK_INTERFACE_PPP

       '----- end

       res=gprs_start(AT_DT_COMMAND)

end sub

'--------------------------------------------------------------------

sub on_ser_data_arrival()

       gprs_proc_ser_data()

end sub

'--------------------------------------------------------------------

sub on_sock_data_arrival()

       dim s as string(32)

       gprs_proc_sock_data()

       '----- this is for the outgoing test connection

       if sock.num=tcp_sock_o then

               s=sock.getdata(255)

               pat.play("-***",PL_PAT_CANINT)

       end if

       '----- end

end sub

'--------------------------------------------------------------------

sub on_sys_timer()

       gprs_proc_timer()

       '----- this is for the outgoing test connection

       sock.num=tcp_sock_o

       if sock.statesimple=PL_SSTS_EST then

               sock.setdata("ABC")

               sock.send

       end if

       '----- end

end sub

'--------------------------------------------------------------------

sub on_sock_event(newstate as pl_sock_state, newstatesimple as pl_sock_state_simple)

       '----- this is for the outgoing test connection

       if sock.num=tcp_sock_o then

               pat.play("-***",PL_PAT_CANINT)

       end if

       '----- end

end sub

'--------------------------------------------------------------------

sub on_pat()

       '----- this is for the outgoing test connection

       sock.num=tcp_sock_o

       if sock.statesimple=PL_SSTS_EST then

               pat.play("G~",PL_PAT_CANINT)

       end if

       '----- end

end sub

device.tbs:

include "global.tbh"

'====================================================================

sub callback_gprs_ok()

       sock.num=tcp_sock_o

       sock.connect

end sub

'--------------------------------------------------------------------

sub callback_gprs_failure()

       sock.num=tcp_sock_o

       sock.discard

end sub

'--------------------------------------------------------------------

sub callback_gprs_pre_buffrq(required_buff_pages as byte)

end sub