寻求IBMi地址验证原生API及Google ValidateAddress与SQLRPGLE集成方案

核心思路 #

IBMi原生无地址验证API，可通过调用Google ValidateAddress REST API，结合IBMi的HTTP访问能力与JSON解析工具，在SQLRPGLE中实现地址验证功能。主流实现方式有两种：利用IBMi SQL原生HTTP函数，或使用开源的HTTPAPI工具。

准备工作 #

• 申请并启用Google地址验证API，获取API密钥（需注意付费规则与调用配额）
• 确保IBMi服务器具备互联网访问权限，能连接Google API端点
• 配置系统支持UTF-8编码（CCSID 1208），Google API要求请求/响应使用该编码

方法一：SQLRPGLE + IBMi SQL HTTP函数 #

适合轻量场景，直接用SQL内置的HTTPPOSTCLOB发送请求，JSON_TABLE解析响应。

代码示例 #

** Free-Format SQLRPGLE Example
H DFTACTGRP(*NO) ACTGRP(*NEW) CCSID(1208)

Dcl-s apiKey       varchar(256) inz('你的Google API密钥');
Dcl-s inputAddress varchar(500) inz('1600 Amphitheatre Parkway, Mountain View, CA');
Dcl-s requestJson  clob(10000) ccsid(1208);
Dcl-s responseJson clob(10000) ccsid(1208);

Dcl-s isValid          boolean;
Dcl-s needsMoreDetail  boolean;
Dcl-s errorMessage     varchar(500);

// 构造符合Google API要求的JSON请求体
requestJson = '{"address": {"addressLines": ["' || inputAddress || '"]}}';

// 发送POST请求到Google地址验证API
Exec SQL
    SET :responseJson = HTTPPOSTCLOB(
        'https://addressvalidation.googleapis.com/v1:validateAddress?key=' || :apiKey,
        'application/json',
        :requestJson
    );

// 解析响应JSON，提取核心验证结果
Exec SQL
    SELECT 
        COALESCE(verdict.isValid, false),
        COALESCE(verdict.needsMoreDetail, false),
        COALESCE(error.message, '')
    INTO 
        :isValid, :needsMoreDetail, :errorMessage
    FROM JSON_TABLE(
        :responseJson,
        '$' COLUMNS(
            isValid          boolean PATH '$.verdict.isValid',
            needsMoreDetail  boolean PATH '$.verdict.needsMoreDetail',
            error            json PATH '$.error'
        )
    ) AS main,
    JSON_TABLE(
        main.error,
        '$' COLUMNS(
            message varchar(500) PATH '$.message'
        )
    ) AS error;

// 处理结果
if errorMessage <> '';
    dsply ('API错误: ' || errorMessage);
else;
    dsply ('地址是否有效: ' || %char(isValid));
    dsply ('是否需要更多信息: ' || %char(needsMoreDetail));
endif;

关键注意点 #

• 程序CCSID需设置为1208（UTF-8），避免字符编码转换错误
• 可通过HTTP函数扩展参数获取HTTP状态码，判断请求是否成功
• API密钥不要硬编码，建议存储在IBMi密钥管理服务中，运行时动态读取

方法二：HTTPAPI + YAJL工具 #

适合复杂HTTP场景（如自定义请求头、大响应数据），用开源HTTPAPI发请求，YAJL解析JSON。

步骤说明 #

1. 安装HTTPAPI和YAJL库（可从IBMi开源社区获取预编译版本）
2. 绑定程序到HTTPAPI与YAJL的绑定目录

代码示例 #

** Free-Format RPGLE with HTTPAPI and YAJL
H DFTACTGRP(*NO) BNDDIR('HTTPAPI' 'YAJL') CCSID(1208)

// HTTPAPI子程序声明
Dcl-pr http_post extproc('http_post');
    url            pointer value;
    contentType    pointer value;
    data           pointer value;
    dataLen        int(10) value;
    response       pointer value;
    responseLen    int(10) value;
    options        int(10) value;
    errorMsg       pointer value;
    errorMsgLen    int(10) value;
end-pr;

// YAJL解析子程序声明
Dcl-pr yajl_tree_parse extproc('yajl_tree_parse');
    jsonText       pointer value;
    jsonLen        int(10) value;
    errBuf         pointer value;
    errBufLen      int(10) value;
    return         pointer;
end-pr;

Dcl-pr yajl_get_value extproc('yajl_get_value');
    root           pointer value;
    path           pointer value;
    pathLen        int(10) value;
    return         pointer;
end-pr;

Dcl-s apiKey       varchar(256) inz('你的Google API密钥');
Dcl-s inputAddress varchar(500) inz('1600 Amphitheatre Parkway, Mountain View, CA');
Dcl-s requestJson  varchar(10000) ccsid(1208);
Dcl-s responseBuf  varchar(32767) ccsid(1208);
Dcl-s url          varchar(500) ccsid(1208);
Dcl-s errorMsg     varchar(1000);
Dcl-s rc           int(10);
Dcl-s jsonRoot     pointer;
Dcl-s isValidPtr   pointer;
Dcl-s isValid      boolean;

// 构造请求URL和JSON体
url = 'https://addressvalidation.googleapis.com/v1:validateAddress?key=' || apiKey;
requestJson = '{"address": {"addressLines": ["' || inputAddress || '"]}}';

// 发送POST请求
rc = http_post(
    %addr(url),
    %addr('application/json'),
    %addr(requestJson),
    %len(requestJson),
    %addr(responseBuf),
    %size(responseBuf),
    0,
    %addr(errorMsg),
    %size(errorMsg)
);

if rc = 0;
    // 解析JSON响应
    jsonRoot = yajl_tree_parse(%addr(responseBuf), %len(responseBuf), %addr(errorMsg), %size(errorMsg));
    if jsonRoot <> *null;
        // 获取isValid字段值
        isValidPtr = yajl_get_value(jsonRoot, %addr('$.verdict.isValid'), %len('$.verdict.isValid'));
        if isValidPtr <> *null;
            isValid = %bool(%int(isValidPtr));
            dsply ('地址是否有效: ' || %char(isValid));
        endif;
        // 释放YAJL解析树资源
        callp yajl_tree_free(jsonRoot);
    else;
        dsply ('JSON解析错误: ' || errorMsg);
    endif;
else;
    dsply ('HTTP请求失败: ' || errorMsg);
endif;

通用注意事项 #

• 成本控制：Google API按调用次数收费，建议添加缓存逻辑，避免重复验证相同地址
• 错误处理：完善网络错误、API错误码（如401权限错误、429配额超限）的处理逻辑
• 合规性：严格遵守Google API服务条款，确保地址数据使用符合隐私法规
• 性能优化：批量验证时，可使用API批量请求能力（若支持），减少HTTP请求次数

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