Cobol Foro - [Duda] Envío de SMS...

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Duda] Envío de SMS... (https://www.cobolforo.es/showthread.php?t=913)

Envío de SMS...

Hola Amigos:

Estoy necesitando enviar SMS a los clientes desde mi aplicación COBOL, alguien tiene alguna idea de cómo puedo implementar eso?

Saludos.

Fito...

Supongo que lo necesitas para tu pais y entiendo que no sera gratis enviar un sms.

Hay muchos proveedores para enviar sms a muchos paises.

SMS Gateway. Pasarela SMS para empresas.

Este es un proveedor que cobra dependiendo del pais y dispone de un servicio web para poder integrarlo a tu aplicación.

En mi empresa compramos bonos y sale a 3 centimos de euro el sms (0,03 €)

---------- Post añadido : 22:42 ---------- Post anterior : 22:27 ----------

Este es un poco mas caro

GatewayAPI -*Rock solid SMS gateway

Puedes usar las ideas que te dá JCantero, en PowerCOBOL tendrás usar HTTP para el envío y recepción de respuestas de parte del servidor, al menos que la empresa te proporcione un OCX, pero esto último está casi en desuso.

En mi caso, me desarrollé una aplicación para Android con Windev Mobile como intermediario entre la aplicación y un teléfono móvil como emisor de SMS usando una base de datos accesible desde el móvil por WI-FI, ya que hay compañías de telefonía que ofrecen bonos de envíos gratis como bonoficación de contrato, así poder aprovechar estas posibilidades al máximo.

Saludos.

En que sistema operativo lo tienes que hacer?
Para que cobol ?

Si es para rm/cobol y lo quieres hacer con llamada a servicio web es muy facil tanto para windows o linux

si es para linux en cualquier cobol sin complicarte la vida te sobra con una llamada a un script en el caso de que elijas el primer link que te he puesto y con 4 parametros:

call "system" using "enviasms usuario clave mensaje telefono" end-call

Código Bash:

curl --user $1:$2 -X POST \
  [url=https://api.labsmobile.com/json/send]https://api.labsmobile.com/json/send[/url] \
  -H 'Cache-Control: no-cache' \
  -H 'Content-Type: application/json' \
  -d '{"message":"$3", "tpoa":"Mensaje","recipient":[{"msisdn":"$4"}]}'

Cualquier duda, pregunta

Gracias Amigos: voy a empezar a investigar sobre lo que me dicen.

Saludos.

Fito...

Holassss:

Estuve investigando más y me gustó mucho la idea de enviar comando AT a un modem.

Tengo un modem usb, de esos que daba Claro para conectarte a internet, con un chip. Estoy probando con mscomm32.ocx. Y el problema que tengo es que cuando cargo la porpiedad "Output" con las cadenas de caracteres me da un error de "invalid propierty value".

Les pego el código para que vean lo que estoy haciendo.

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  wnro        pic x(10).
 01  wtexto      pic x(80).
 01  wenviar     pic x(8192).
 01  xt          pic s9(5) comp-5.
 PROCEDURE       DIVISION.
     
 comienzo.
     move "Text" of txtNumero     to wnro.
     move "Text" of txtMensaje    to wtexto.
     
     move 6               to "CommPort" of PHONE.
     move "9600,N,8,1"    to "Settings" of PHONE.
     move pow-true        to "PortOpen" of PHONE.
 
*.............................................................................     
 
     move spaces          to wenviar.
     string "ATZ" X"0D" delimited by size into wenviar.
     perform enviar.
     
     move spaces          to wenviar.
     string "AT+CMGF=1" X"0D" delimited by size into wenviar.
     perform enviar.
     
     move spaces          to wenviar.
     string "AT+CMGS=" wnro X"0D" delimited by size into wenviar.
     perform enviar.
     
     move spaces          to wenviar.
     string wtexto X"1A" X"0D" delimited by size into wenviar.
     perform enviar.
 
*.............................................................................     
 
     move pow-false       to "PortOpen" of PHONE.
     
     exit program.
     
 
 enviar.
     compute xt = function stored-char-length(wenviar).
     move wenviar(1:xt)   to "Output" OF PHONE.

En el parrafo enviar me da el error, como que el wenviar pic x(...) no fuera el tipo de dato que está esperando la propiedad.

Saludos.

Fito...

Pero tu que deseas, enviar SMS o conectarte con el moden a otro dispositivo ?

hola JCantero:

Yo quiero enviar sms a través de un modem que tiene un chip de celular incorporado.

el modem es similar a este.

Modem Usb 3g Externos Libres Sin Tapitas + Chip Claro - $ 599,99 en Mercado Libre

Saludos.

Fito...

Entiendo.

Yo lo hago mediante un proveedor como te comenté más arriba.

Como tu dices no he probado y no te puedo ayudar, aunque me ha picado la curiosidad.

He estado leyendo aquí y parece interesante.
¿Cómo enviar SMS desde un modem? - Foros del Web

Movistar en España tiene una aplicación para eso.

Holaaa:

Teóricamente sería sencillo, enviar los comando AT por el puerto serie y listo. Desde el software de Claro que trae el modem, envío perfectamente los sms.

Pero el problema me parece que lo tengo con el ocx, él es el que me está dando error, el que no entiende mi picture alfanumerico como ingreso a la propiedad "Output". Va más allá de si se lo envió a un modem o una balanza o cualquier otra cosa.

Saludos.

Fito...