Cita Iniciado por Kuk Ver Mensaje
@Joseg, he hecho pruebas (acabé instalando el Fujitsu).

Funciona en mi caso comentando las siguientes líneas:

COBOL Código:
  1.      *>INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP4 .
  2.      *>INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP5 .
  3.      *>INVOKE WEBSERVICE "setRequestHeader" using OP6 OP4 .

Este es mi código:

COBOL Código:
  1. *>
  2.  IDENTIFICATION DIVISION.
  3.  PROGRAM-ID.   TEST001.
  4.  
  5.  ENVIRONMENT     DIVISION.
  6.  CONFIGURATION SECTION.
  7.  REPOSITORY.
  8.      CLASS COM AS "*COM"
  9.      CLASS COMEXCEPTION AS "*COM-EXCEPTION".
  10.  
  11.  DATA            DIVISION.
  12.  WORKING-STORAGE SECTION.
  13.  01 WINHTTP               PIC X(128) VALUE "WinHttp.WinHttpRequest.5.1".
  14.  01 WSDL                  PIC X(256) VALUE "https://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl".
  15.  01 xTraffic-Conditions   PIC X(384).
  16.      
  17.  *>01 Traffic-Conditions redefines xTraffic-Conditions pic x(386).
  18.  
  19.  01 WEBSERVICE USAGE OBJECT REFERENCE COM.
  20.  
  21.  01 OP1 PIC X(256) VALUE "POST".
  22.  01 OP2 PIC X(256) VALUE "http://ec.europa.eu/taxation_customs/vies/services/checkVatService/".
  23.  01 OP3 PIC X(256) VALUE "FALSE".
  24. *
  25.  01 OP4 PIC X(256) VALUE "Content-Type".
  26.  01 OP5 PIC X(256) VALUE "text/xml; charset=utf-8".
  27.  01 OP6 PIC X(256) VALUE "SOAPAction".
  28.  
  29.  
  30.  01 RESPOSTA    PIC X(8192).
  31.  
  32.  01 resultado1   PIC X(5).
  33.  01 resultado2   PIC X(5).
  34.  
  35.  *>01  long  PIC 9(4) COMP-5.
  36.  
  37.  PROCEDURE       DIVISION. 
  38.  MAIN SECTION.
  39.  MAIN-00.
  40.  
  41.      STRING 
  42.      '<?xml version="1.0" encoding="UTF-8"?>' & X"0D0A" 
  43.      '<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">' & X"0D0A" 
  44.      '  <SOAP-ENV:Body>' & X"0D0A" 
  45.      '    <tns1:checkVat xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types">' & X"0D0A" 
  46.      '      <tns1:countryCode>ES</tns1:countryCode>' & X"0D0A" 
  47.      '      <tns1:vatNumber>B63272603</tns1:vatNumber>' & X"0D0A" 
  48.      '    </tns1:checkVat>' & X"0D0A" 
  49.      '  </SOAP-ENV:Body>' & X"0D0A" 
  50.      '</SOAP-ENV:Envelope>' & X"0D0A"
  51. *          '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:ec.europa.eu:taxud:vies:services:checkVat:types">' & X"0D0A"
  52. *     '   <soapenv:Header/>' & X"0D0A"
  53. *     '   <soapenv:Body>' & X"0D0A"
  54. *     '      <urn:checkVat>' & X"0D0A"
  55. *     '         <urn:countryCode>ES</urn:countryCode>' & X"0D0A"
  56. *     '         <urn:vatNumber>B63272603</urn:vatNumber>' & X"0D0A"
  57. *     '      </urn:checkVat>' & X"0D0A"
  58. *     '   </soapenv:Body>' & X"0D0A"
  59. *     '</soapenv:Envelope>' & X"0D0A"
  60.          DELIMITED BY SIZE INTO xTraffic-Conditions
  61.      
  62.      display xTraffic-Conditions
  63.      display " "     
  64.           
  65.      INVOKE COM "CREATE-OBJECT" USING WINHTTP RETURNING WEBSERVICE.
  66. * 
  67.      INVOKE WEBSERVICE "OPEN" USING op1 op2 op3.
  68. * 
  69.      *>INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP4 .
  70.      *>INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP5 .
  71.      *>INVOKE WEBSERVICE "setRequestHeader" using OP6 OP4 .
  72. * 
  73.      
  74.      *>compute long = function stored-char-length(xTRAFFIC-CONDITIONS)      
  75.      *>display long
  76.      
  77.      INVOKE WEBSERVICE "send" USING xTRAFFIC-CONDITIONS
  78. * 
  79.      INVOKE WEBSERVICE "get-Responsetext" RETURNING RESPOSTA
  80.  
  81.      display RESPOSTA
  82.      display " "
  83.      
  84.      unstring RESPOSTA delimited by "<valid>" into resultado1 resultado2
  85.      
  86.      inspect resultado2 replacing all "<" by spaces
  87.      
  88.      display "RESULTADO: " resultado2
  89.      
  90.      EXIT PROGRAM
  91.      .

Resultado:

Código:
<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
  <SOAP-ENV:Body>
    <tns1:checkVat xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types">
      <tns1:countryCode>ES</tns1:countryCode>
      <tns1:vatNumber>B63272603</tns1:vatNumber>
    </tns1:checkVat>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>
 
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><checkVatResponse xmlns="urn:ec.europa.eu:taxud:vies:services:checkVat:types"><countryCode>ES</countryCode><vatNumber>B63272603</vatNumber><requestDate>2021-11-11+01:00</requestDate><valid>true</valid><name>---</name><address>---</address></checkVatResponse></soap:Body></soap:Envelope>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 
RESULTADO: true
Ja esta ok
Gracias a todos pela ajuda