在AS400上，可以通过参数文件返回SQL脚本。下面是一个示例代码：

首先，创建一个参数文件（例如，test.parm）来存储SQL脚本：

/* test.parm */
SCRIPT('SELECT * FROM your_table')

然后，创建一个RPG程序来读取参数文件并返回SQL脚本：

**free
// RPG程序
Dcl-Proc Main;
    Dcl-Pi *N;
        script  Char(1000);
    End-Pi;

    Dcl-S parmFile     Char(20)   Inz('test.parm');
    Dcl-S script       Char(1000);

    Exec SQL SET OPTION COMMIT = *NONE;

    // 打开参数文件
    Exec SQL
        SET OPTION ALWBLK = *ALLREAD,
        COMMIT = *NONE;

    Exec SQL
        PREPARE parmStmt FROM :parmFile;

    Exec SQL
        DECLARE parmCursor CURSOR FOR parmStmt;

    Exec SQL
        OPEN parmCursor;

    Exec SQL
        FETCH NEXT FROM parmCursor INTO :script;

    Exec SQL
        CLOSE parmCursor;

    Return script;
End-Proc;

在上面的示例中，RPG程序从参数文件中读取SQL脚本并将其存储在变量“script”中。然后，该变量作为返回值返回。

要使用这个RPG程序，您可以在另一个程序中调用它：

**free
// 调用RPG程序
Dcl-Proc Main;
    Dcl-S script       Char(1000);
    
    // 调用RPG程序
    script = Main();

    // 执行返回的SQL脚本
    Exec SQL
        EXECUTE IMMEDIATE :script;
    
    Return;
End-Proc;

在上面的示例中，调用RPG程序“Main”，并将返回的SQL脚本存储在变量“script”中。然后，使用“EXECUTE IMMEDIATE”语句执行返回的SQL脚本。

请注意，这只是一个简单的示例，您可能需要根据实际情况进行修改。