PHP PDO 在 IBM i QCMDEXC 中绑定带单引号参数的进阶指南

<?php
// 假设 $pdo 已经是一个有效的PDO连接对象
$query = "CALL QCMDEXC(?)";
$stmt = $pdo->prepare($query);

$cmd = "CALL PGM(IBMIPGM) PARM(INPARM)";
$stmt->bindParam(1, $cmd, PDO::PARAM_STR, strlen($cmd)); // 长度参数在某些驱动中可能有用
$stmt->execute();
?>

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

// 多个参数由空格分隔
$cmd1 = 'CALL PGM(IBMIPGM) PARM(INPARM1 INPARM2)';
$stmt->bindParam(1, $cmd1, PDO::PARAM_STR);
$stmt->execute();

// 参数值包含空格时，需要用单引号括起来
$cmd2 = "CALL PGM(IBMIPGM) PARM('INPARM1 PART1' INPARM2)";
$stmt->bindParam(1, $cmd2, PDO::PARAM_STR);
$stmt->execute();
?>

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

$original_value = "Don't forget to escape single quotes";

// 步骤1: 转义 CL 命令参数中的单引号 (用两个单引号代替一个)
$escaped_value_for_cl = str_replace("'", "''", $original_value); 

// 步骤2: 构建完整的 CL 命令字符串
// 注意：VALUE('$escaped_value_for_cl') 中的单引号是CL命令语法要求的
$cmd = "CHGDTAARA DTAARA(MYLIB/TESTDTA *ALL) VALUE('$escaped_value_for_cl')";

$stmt->bindParam(1, $cmd, PDO::PARAM_STR);
$stmt->execute();

echo "执行的CL命令: " . $cmd . "\n";
// 实际执行的命令会是: CHGDTAARA DTAARA(MYLIB/TESTDTA *ALL) VALUE('Don''t forget to escape single quotes')
?>

<?php
// 假设原始值是 "Don't forget to escape single quotes"
// CL命令需要: VALUE('Don''t forget to escape single quotes')
// 如果直接在PHP双引号字符串中拼接，需要这样：
$cmd_direct = "CALL QCMDEXC('CHGDTAARA DTAARA(MYLIB/TESTDTA *ALL) VALUE(''Don''''t forget to escape single quotes'')')";
// 解释：
// 最外层是PHP双引号
// QCMDEXC('...') 内部的单引号是CL命令字符串的定界符
// VALUE('...') 内部的单引号是CL命令参数的定界符
// 'Don''''t...' 中的 '' 是转义一个单引号 '
// 最终，原始的 ' 变成了 ''，然后这个 '' 又被外部的 CL 命令单引号包围。
// 所以，如果原始值有 '，它变成 ''。
// 如果用PHP双引号包裹整个字符串，那么 `''` 在PHP中就是两个字符。
// 如果用PHP单引号包裹整个字符串，那么 `''` 需要写成 `\'\'` 或者更复杂的 `\'\'\'\'`
// 示例（PHP单引号，极度复杂且不推荐）：
$cmd_single_quotes = 'CALL QCMDEXC(\'CHGDTAARA DTAARA(MYLIB/TESTDTA *ALL) VALUE(\'\'Don\'\'\'\'t forget to escape single quotes\'\')\')';
?>

<?php
// 假设你已经安装并配置了 XMLSERVICE 库
// 具体实现会依赖于你使用的XMLSERVICE客户端库和配置
// 这是一个概念性的示例，具体API调用请参考XMLSERVICE文档

/*
// 示例：使用 XMLSERVICE 执行 CL 命令
$toolkit = new \XMLSERVICE\Toolkit(); // 假设的实例化
$toolkit->setDb($pdo); // 将PDO连接传递给toolkit

try {
    $cl_result = $toolkit->CLCommand("CALL PGM(IBMIPGM) PARM('INPARM1 PART1' INPARM2)");
    // XMLSERVICE 会处理内部的引用和转义
    if ($cl_result->isSuccess()) {
        echo "CL 命令执行成功。\n";
        // 可以从 $cl_result 获取返回信息，如果 CLCommand 支持
    } else {
        echo "CL 命令执行失败: " . $cl_result->getError() . "\n";
    }
} catch (Exception $e) {
    echo "XMLSERVICE 错误: " . $e->getMessage() . "\n";
}

// 示例：使用 XMLSERVICE 调用程序 (更推荐，直接处理参数)
try {
    $program_call = $toolkit->PGMCall('IBMIPGM', [
        ['name' => 'inValue', 'type' => 'char', 'length' => 10, 'value' => 'InputData'],
        ['name' => 'outValue', 'type' => 'char', 'length' => 10, 'io' => 'out'],
    ]);

    if ($program_call->isSuccess()) {
        echo "程序调用成功。\n";
        $output_data = $program_call->getParam('outValue');
        echo "输出参数: " . $output_data . "\n";
    } else {
        echo "程序调用失败: " . $program_call->getError() . "\n";
    }
} catch (Exception $e) {
    echo "XMLSERVICE 错误: " . $e->getMessage() . "\n";
}
*/
?>

CREATE PROCEDURE PGM_PROC ( 
    IN INVALUE CHAR(10), 
    OUT OUTVALUE CHAR(10), 
    INOUT INOUTVAL CHAR(20) 
) 
LANGUAGE C                -- 根据实际程序语言选择 (C, RPG, JAVA等)
EXTERNAL NAME IBMIPGM     -- 您的IBM i程序名称
PARAMETER STYLE GENERAL;  -- 参数风格，通常选择GENERAL

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

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

// 定义参数变量
$invalue = "InputData";
$outvalue = ""; // 用于接收输出
$inoutvalue = "InitialInOut"; // 输入并期望修改

// 绑定参数
// PDO::PARAM_INPUT 是默认值，可以省略
$stmt->bindParam(1, $invalue, PDO::PARAM_STR, 10); 
$stmt->bindParam(2, $outvalue, PDO::PARAM_STR|PDO::PARAM_INPUT_OUTPUT, 10); // 声明为输出或输入输出
$stmt->bindParam(3, $inoutvalue, PDO::PARAM_STR|PDO::PARAM_INPUT_OUTPUT, 20);

$stmt->execute();

// 执行后，可以获取输出和输入/输出参数的值
echo "输出参数 (OUTVALUE): " . $outvalue . "\n";
echo "输入/输出参数 (INOUTVAL): " . $inoutvalue . "\n";
?>