PHP PDO 调用 IBM i QCMDEXC 及复杂参数处理指南

<?php
// 假设 $pdo 已经是一个有效的 PDO 连接对象

$query = "CALL QCMDEXC(?)";
$stmt = $pdo->prepare($query);

$programName = "IBMIPGM";
$inParameter = "INPARM"; // 简单输入参数

// 构建完整的 CL 命令字符串
$cmd = "CALL PGM({$programName}) PARM({$inParameter})";

// 绑定完整的命令字符串
$stmt->bindParam(1, $cmd, PDO::PARAM_STR);

// 执行命令
if ($stmt->execute()) {
    echo "CL 命令执行成功。\n";
} else {
    echo "CL 命令执行失败。\n";
    print_r($stmt->errorInfo());
}
?>

<?php
// ... (PDO 连接设置同上)

$stmt = $pdo->prepare("CALL QCMDEXC(?)");

$programName = "IBMIPGM";
$param1 = "INPARM1PART1 INPARM1PART2"; // 包含空格的参数
$param2 = "INPARM2";

// 构建 CL 命令字符串时，为包含空格的参数添加单引号
$cmd = "CALL PGM({$programName}) PARM('{$param1}' {$param2})";

$stmt->bindParam(1, $cmd, PDO::PARAM_STR);
if ($stmt->execute()) {
    echo "CL 命令执行成功 (带空格参数)。\n";
} else {
    echo "CL 命令执行失败。\n";
    print_r($stmt->errorInfo());
}
?>

<?php
// ... (PDO 连接设置同上)

$stmt = $pdo->prepare("CALL QCMDEXC(?)");

$dataArea = "MYLIB/TESTDTA";
$valueWithSingleQuote = "Don't forget to escape single quotes";

// 1. 在 CL 命令层面，将值中的单引号转义为双单引号
$escapedValueForCL = str_replace("'", "''", $valueWithSingleQuote);

// 2. 构建完整的 CL 命令字符串
// 注意：这里使用 PHP 双引号字符串，所以不需要对 PHP 字符串内部的单引号进行额外转义
$cmd = "CHGDTAARA DTAARA({$dataArea} *ALL) VALUE('{$escapedValueForCL}')";

// 最终的 $cmd 字符串会是类似这样的：
// CHGDTAARA DTAARA(MYLIB/TESTDTA *ALL) VALUE('Don''t forget to escape single quotes')

$stmt->bindParam(1, $cmd, PDO::PARAM_STR);
if ($stmt->execute()) {
    echo "数据区设置成功 (带转义单引号)。\n";
} else {
    echo "数据区设置失败。\n";
    print_r($stmt->errorInfo());
}

// 极端情况：如果直接构建没有绑定变量的字符串，需要双重转义
// $cmd_direct = "CALL QCMDEXC('CHGDTAARA DTAARA(MYLIB/TESTDTA *ALL) VALUE(''Don''''t forget to escape single quotes'')')";
// 使用 PHP 单引号字符串时，转义会更复杂：
// $cmd_single_quote_php = 'CALL QCMDEXC(\'CHGDTAARA DTAARA(MYLIB/TESTDTA *ALL) VALUE(\'\'Don\'\'\'\'t forget to escape single quotes\'\')\')';
?>

<?php
// 假设您已经安装并配置了 XMLSERVICE PHP 库
use com\zend\ibmi\XmlService;

// ... (PDO 连接或其他连接设置)
// XmlService 可以通过多种方式初始化，例如基于 HTTP 或本地连接
$xmlService = new XmlService(/* 配置参数 */);

// 1. 调用 CL 命令 (例如，带有输出的命令)
try {
    $result = $xmlService->CLCommand("RTVJOBA USRPRF(?) OUTQ(?)", [
        'USRPRF' => ['value' => 'MYUSER', 'type' => 'char', 'length' => 10],
        'OUTQ'   => ['value' => '', 'type' => 'char', 'length' => 10, 'io' => 'out']
    ]);
    echo "CLCommand 结果: " . json_encode($result) . "\n";
} catch (Exception $e) {
    echo "CLCommand 错误: " . $e->getMessage() . "\n";
}

// 2. 调用 IBM i 程序 (PGMCall)
try {
    $programResult = $xmlService->PGMCall("IBMIPGM", [
        'param1' => ['value' => 'InputData', 'type' => 'char', 'length' => 10, 'io' => 'in'],
        'param2' => ['value' => '', 'type' => 'char', 'length' => 10, 'io' => 'out'],
        'param3' => ['value' => 'InOutData', 'type' => 'char', 'length' => 20, 'io' => 'inout']
    ]);
    echo "PGMCall 结果: " . json_encode($programResult) . "\n";
} catch (Exception $e) {
    echo "PGMCall 错误: " . $e->getMessage() . "\n";
}
?>

-- 示例：创建一个包装 IBMIPGM 程序的存储过程
CREATE PROCEDURE PGM_PROC (
    IN INVALUE CHAR(10),       -- 输入参数
    OUT OUTVALUE CHAR(10),     -- 输出参数
    INOUT INOUTVAL CHAR(20)    -- 输入/输出参数
)
LANGUAGE C                     -- 指定底层程序的语言 (例如 C, RPGLE, JAVA 等)
EXTERNAL NAME IBMIPGM          -- 指定实际的 IBM i 程序名
PARAMETER STYLE GENERAL;       -- 参数样式，GENERAL 是常见选择

<?php
// ... (PDO 连接设置同上)

$query = "CALL PGM_PROC(?,?,?)";
$stmt = $pdo->prepare($query);

// 定义参数变量
$invalue = "InputData";
$outvalue = "";       // 输出参数需要一个变量来接收结果
$inoutvalue = "InitialInOut"; // 输入/输出参数的初始值

// 绑定参数
// PDO::PARAM_INPUT 用于输入参数
// PDO::PARAM_OUTPUT 用于输出参数
// PDO::PARAM_INPUT_OUTPUT 用于输入/输出参数
$stmt->bindParam(1, $invalue, PDO::PARAM_STR | PDO::PARAM_INPUT, 10);
$stmt->bindParam(2, $outvalue, PDO::PARAM_STR | PDO::PARAM_OUTPUT, 10);
$stmt->bindParam(3, $inoutvalue, PDO::PARAM_STR | PDO::PARAM_INPUT_OUTPUT, 20);

// 执行存储过程
if ($stmt->execute()) {
    echo "存储过程调用成功。\n";
    echo "输出参数 OUTVALUE: " . $outvalue . "\n";
    echo "输入/输出参数 INOUTVAL (更新后): " . $inoutvalue . "\n";
} else {
    echo "存储过程调用失败。\n";
    print_r($stmt->errorInfo());
}
?>