Roger,
Penso que se consegue assim:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WINHTTP PIC X(128) VALUE "MSXML2.ServerXMLHTTP".
*
01 OBJHTTP USAGE OBJECT REFERENCE COM.
01 OP1 PIC X(256) VALUE "POST".
01 WSSITE PIC X(256) VALUE SPACE.
01 SITE PIC X(256) VALUE SPACE.
*
01 OP3 PIC X(256) VALUE "FALSE".
*
01 OP4 PIC X(256) VALUE "User-Agent".
01 OP5 PIC X(256) VALUE "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)".
01 OP6 PIC X(256) VALUE " ".
01 COUNTER pic s9(09) comp-5.
01 DMICON pic s9(09) comp-5.
01 returnvalue pic s9(09) comp-5.
01 RESPOSTA PIC X(8192).
*
01 OLE-ERR-INFO.
03 OLE-ERR-TYPE PIC X(001).
03 OLE-ERR-WCODE PIC X(002).
03 ROLE-ERR-WCODE REDEFINES OLE-ERR-WCODE PIC S9(04) COMP-5.
03 OLE-ERR-SCODE PIC X(004).
03 ROLE-ERR-SCODE REDEFINES OLE-ERR-SCODE PIC S9(09) COMP-5.
*
PROCEDURE DIVISION.
DECLARATIVES.
OLE-ERRO SECTION.
USE AFTER EXCEPTION COMEXCEPTION.
INVOKE EXCEPTION-OBJECT "GET-ERROR-TYPE"
RETURNING OLE-ERR-TYPE.
INVOKE POW-SELF "DisplayMessage" USING OLE-ERR-TYPE "ERRO EM OLE2"
GO TO MAIN-90.
END DECLARATIVES.
MAIN SECTION.
MAIN-00.
INITIALIZE SITE.
MOVE "TEXT" OF CMSITE TO WSSITE.
IF WSSITE = SPACE GO TO MAIN-99-EXIT.
IF WSSITE(1:4) = "HTTP" OR = "http" GO TO MAIN-10.
MOVE "HTTP://" TO SITE.
MOVE WSSITE TO SITE(8:).
MOVE SITE TO WSSITE.
MOVE SITE TO "TEXT" OF CMSITE.
*
MAIN-10.
INVOKE COM "CREATE-OBJECT" USING WINHTTP RETURNING OBJHTTP.
*
INVOKE OBJHTTP "OPEN" USING OP1 WSSITE.
INVOKE OBJHTTP "setRequestHeader" USING OP4 OP5 .
*
INVOKE OBJHTTP "send" USING OP6.
*
INVOKE OBJHTTP "get-ResponseText" RETURNING RESPOSTA.
MOVE RESPOSTA TO XMLLINHA.
MOVE RESPOSTA TO "TEXT" OF CMTEXT1.
* INVOKE OBJHTTP "get-ResponseBody" RETURNING RESPOSTA.
*****
* MOVE RESPOSTA TO XMLLINHA.
GO TO MAIN-90.
MAIN-90.
SET OBJHTTP TO NULL.
MAIN-99-EXIT.
EXIT PROGRAM.
Em anexo tens um ppj (Versão 9.0 do Fujitsu Cobol)