Buenas tardes.
Puedes enviar un ejemplo en POWERCOBOL, no consigo hacer funcionar este ejemplo.
La librería WININET.LIB donde la puedo localizar.
se puede programar solo con librerías de POWERCOBOL.
Muchas gracias
Citación del post de
Alrolo
|
❞
yo realizo lo siguiente:
Código COBOL:
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. *Usa WININET.LIB *recuerda usar ALPHAL(WORD) 01 WInternet_St pic s9(9) comp-5. 01 whttp pic x(21) value "http://www.google.com". PROCEDURE DIVISION. call "InternetCheckConnectionA" with stdcall linkage using by reference whttp *> by value 1 by value 0 returning WInternet_St *> if WInternet_St equal to zero INVOKE POW-SELF "Alarm" USING POW-MBEXCLAMATION move "No existe conexion a internet" to "Caption" of LabMsg end-if exit program.
|