开源环境下如何从Cobol DB2程序发起HTTP请求获取数据？

1. 借助GnuCOBOL调用C语言HTTP封装逻辑 #

GnuCOBOL是主流开源COBOL编译器，支持调用C语言编写的HTTP客户端代码，这是兼容性最强的方案。

步骤1：用libcurl编写C语言HTTP函数 #

基于开源HTTP库libcurl封装GET请求逻辑，示例代码：

#include <curl/curl.h>
#include <string.h>

size_t write_callback(void *contents, size_t size, size_t nmemb, void *userp) {
    strncat(userp, contents, size * nmemb);
    return size * nmemb;
}

int http_get(const char *url, char *response, int max_len) {
    CURL *curl = curl_easy_init();
    if (!curl) return -1;

    memset(response, 0, max_len);
    curl_easy_setopt(curl, CURLOPT_URL, url);
    curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, write_callback);
    curl_easy_setopt(curl, CURLOPT_WRITEDATA, response);
    curl_easy_setopt(curl, CURLOPT_FOLLOWLOCATION, 1L);

    CURLcode res = curl_easy_perform(curl);
    curl_easy_cleanup(curl);
    return (res == CURLE_OK) ? 0 : -2;
}

步骤2：在COBOL中声明并调用C函数 #

通过CALL语句调用外部C函数，需先声明函数接口：

IDENTIFICATION DIVISION.
       PROGRAM-ID. HTTP-TEST.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  URL PIC X(256) VALUE "https://example.com/api/data".
       01  RESPONSE-BUFFER PIC X(4096).
       01  RETURN-CODE PIC S9(4) COMP.
       01  EXTERNAL-FUNCTIONS.
           EXTERNAL "http_get"
               CALLING CONVENTION IS C
               PARAMETERS (
                   BY REFERENCE URL,
                   BY REFERENCE RESPONSE-BUFFER,
                   BY VALUE LENGTH OF RESPONSE-BUFFER
               )
               RETURNING RETURN-CODE.
       PROCEDURE DIVISION.
           CALL "http_get" USING URL, RESPONSE-BUFFER, LENGTH OF RESPONSE-BUFFER
               RETURNING RETURN-CODE.
           IF RETURN-CODE = 0 THEN
               DISPLAY "HTTP请求成功，响应内容：" RESPONSE-BUFFER
           ELSE
               DISPLAY "HTTP请求失败，错误码：" RETURN-CODE
           END-IF.
           STOP RUN.

步骤3：编译运行 #

编译时链接libcurl库，命令如下：

cobc -x -o http-test http-test.cbl http-get.c -lcurl

执行生成的可执行文件即可发起HTTP请求。

2. 使用GnuCOBOL原生网络扩展 #

部分GnuCOBOL版本支持原生HTTP操作扩展，无需额外写C代码，示例片段：

IDENTIFICATION DIVISION.
       PROGRAM-ID. NET-HTTP-TEST.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  RESPONSE PIC X(8192).
       PROCEDURE DIVISION.
           HTTP-GET "https://example.com/api/data" INTO RESPONSE
               ON SUCCESS DISPLAY "响应：" RESPONSE
               ON FAILURE DISPLAY "请求失败"
           END-HTTP.
           STOP RUN.

编译时需启用扩展开关：

cobc -x -o net-test net-test.cbl -std=gnucobol

注意：该扩展兼容性有限，需确认编译器版本支持。

3. 通过shell脚本中转（轻量方案） #

若不想编写C代码，可在COBOL中调用shell脚本完成HTTP请求，适合小数据量场景：

编写shell脚本http-fetch.sh #

#!/bin/bash
curl -s "$1" > /tmp/http-response.txt

COBOL中调用脚本并读取结果 #

IDENTIFICATION DIVISION.
       PROGRAM-ID. SHELL-HTTP-TEST.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  URL PIC X(256) VALUE "https://example.com/api/data".
       01  RESPONSE PIC X(4096).
       01  CMD-LINE PIC X(512).
       PROCEDURE DIVISION.
           STRING "./http-fetch.sh ", URL INTO CMD-LINE.
           CALL "SYSTEM" USING CMD-LINE.
           OPEN INPUT "/tmp/http-response.txt".
           READ "/tmp/http-response.txt" INTO RESPONSE AT END DISPLAY "无响应内容".
           CLOSE "/tmp/http-response.txt".
           DISPLAY "响应内容：" RESPONSE.
           STOP RUN.

内容的提问来源于stack exchange，提问作者SRI