API sample cobol program???

Does some one have a API cobol program.

I want to make a connection with Mailchimp or channable or Twinfield etc etc. 

 

 

 

https://support.channable.com/hc/en-us/categories/115000528869-Marketplaces-Orders

  • There are sample programs here demonstrating COBOL calling the Windows API:
    supportline.microfocus.com/.../GUIsampleprograms.aspx
    Look at GetEnvironment, key_status, auto-min-win, and flash-window. While they do not connect with any of those you mention you'll see how to load the dll and call methods.
  • Hello Doug, these sample programs are at least 12 years old. Isn't time to put some new sample programs for Acucobol on the website? That would give us, the Acucobol developers, the idea that Acucobol is still alive.....
  • Note!
    Response comes back in memory. Max response text here 1 mb.


    78 LENGTH-REQUEST-FILE VALUE 2097152. | 2048k.
    77 GET-REQUEST-FILE PIC X(LENGTH-REQUEST-FILE).
    77 http-destination-url pic x(512) value spaces.

    01 http-get-post pic 9(01) value 0.
    88 http-get value 0.
    88 http-post value 1.
    88 http-put value 2.
    88 http-delete value 3.

    111114 78 ANSWER-LENGTH VALUE 1048576. | 1024k

    01 RESET-VELDEN.
    03 ANSWER PIC X(ANSWER-LENGTH).

    *----------------------------------------------------------------
    CALL-XML-HTTP60 SECTION.
    BEGIN.
    if http-put .....
    MOVE your-api-command TO http-destination-url
    END-IF.

    CREATE @XMLHTTP60 HANDLE IN MS-XML-OBJECT.

    IF http-get
    MODIFY MS-XML-OBJECT @Open("GET",
    http-destination-url, 0)
    END-IF.
    IF http-post
    MODIFY MS-XML-OBJECT @Open("POST",
    http-destination-url, 0)
    END-IF.
    IF http-put
    MODIFY MS-XML-OBJECT @Open("PUT",
    http-destination-url, 0)
    END-IF.
    IF http-delete
    MODIFY MS-XML-OBJECT @Open("DELETE",
    http-destination-url, 0)
    END-IF.

    IF http-post OR http-put
    MODIFY MS-XML-OBJECT @setRequestHeader
    ("Content-Type","application/xml")

    * MODIFY MS-XML-OBJECT @setRequestHeader
    * ("Content-Type",
    * "application/x-www-form-urlencoded")

    * MODIFY MS-XML-OBJECT @setRequestHeader
    * ("Content-Type",
    * "text/xml; charset=utf-8")
    * MODIFY MS-XML-OBJECT @setRequestHeader
    * ("Authorization", ACCESS-TOKEN)
    * MODIFY MS-XML-OBJECT @setRequestHeader
    * ("SOAPAction", API-SOAP-ACTION)
    * MODIFY MS-XML-OBJECT @setRequestHeader
    * ("Content-Type","application/xml")

    MODIFY MS-XML-OBJECT @Send(GET-REQUEST-FILE(01:ip1))
    END-IF.

    IF http-get OR http-delete
    MODIFY MS-XML-OBJECT @Send("")
    END-IF.

    INITIALIZE WS-STATUS.
    INQUIRE MS-XML-OBJECT @Status IN WS-STATUS
    INQUIRE MS-XML-OBJECT @responseText IN ANSWER

    DESTROY MS-XML-OBJECT.
    ENDS.
    EXIT.
  • Note.
    You have to create a .def file from msxml6.dll

    * OLE object definitions for MSXML2
    * This is a 32-bit object
    * Generated by axdefgen version 9.2.1 ECN-4245
    * Generated: Tuesday, August 01, 2017
    * Typelib..: C:\Windows\SysWOW64\msxml6.dll