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...