ON RECORD(OUTFILE) PL/1

在 PL/1 中，`ON RECORD` 语句用于指定一个文件的输出格式。`OUTFILE` 关键字用于将输出结果写入到指定的文件中。语法如下：

ON RECORD file FORMAT format OUTFILE file_path;

其中，`file` 是要指定输出格式的文件名，`format` 是输出格式，可以是 `ASCII` 或 `BINARY`，`file_path` 是输出文件的路径和文件名。如果省略 `file_path`，则默认输出到控制台。

例如，以下 PL/1 代码将 `employee` 表中的所有员工信息按照指定的格式输出到 `/tmp/employees.txt` 文件中：

DECLARE emp_cursor CURSOR FOR
    SELECT *
    FROM employee;

OPEN emp_cursor;

ON RECORD emp_cursor FORMAT ASCII OUTFILE '/tmp/employees.txt';

FETCH emp_cursor INTO :empl_id, :empl_name, :empl_salary;

DO WHILE SQLCODE = 0;
    PUT emp_cursor;
    FETCH emp_cursor INTO :empl_id, :empl_name, :empl_salary;
END;

CLOSE emp_cursor;

执行完该代码后，`/tmp/employees.txt` 文件将包含所有员工信息。如果该文件已经存在，则会被覆盖。注意，在 PL/1 中，`ON RECORD` 语句必须放在文件操作之前。