如何使用ifs_read＆amp; IFS_WRITE服务？

Question

最近，我听说了IBM I（以前称为/400或ISERIES）的“新” IFS_READ和IFS_WRITE服务。我找不到他们的文档，而且我发现的大部分内容都一般而言。更详细的少数资源完全集中在RPG上，但我想在Ile Cobol中使用它们。

这是可能的，如果是的话，如何？

Answer 1

ifs_read 和 ifs_write 有时很难找到API，以及如何使用它们完全不同的手册，所以让我在将其拉动时，让我搭配你。

这两个API都是I服务的DB2。这些文档不在数据库参考主题中，而是在数据库性能和查询优化主题中找到： https://www.ibm.com/docs/docs/docs/en/en/i/7.topic = is-- ifs-read-ifs-read-binary-ifs-read-utf8-table-unctions

您会注意到 ifs_read 服务是表函数，而 ifs_write 服务是一个存储的过程，因此要从IFS中读取，您可以使用SELECT，但要写入IFS，您需要使用呼叫。顺便说一句，由于您必须使用呼叫，因此几乎可以轻松地简单地使用 fopen ， fread ， fwrite fwrite fwrite 和 fclose 。您只需要为它们创建COBOL链接类型定义即可。我会把它留给您，因为这不是这个问题的话题。

因此，下一个问题是我们如何将SQL嵌入COBOL中。这在另一本手册中描述： https://www.ibm.com/docs/en/i/7.4?topic = programproging-coding-sql-statement-sql-statement-in-cobol-applications

conthell you n no Cithell you nour sql you sql exec-sql 和 end-sql 。但是，还有更多。由于表函数可以返回多个行，因此您不能仅使用选择，因此您需要打开光标，从光标获取，然后关闭光标。

类似的内容：

EXEC-SQL
  DECLARE C1 CURSOR FOR
  SELECT LINE FROM TABLE(QSYS2.IFS_READ(PATH_NAME => '/usr/file1',
                               END_OF_LINE => 'CRLF')) A
END-SQL.

EXEC-SQL
  OPEN C1
END-SQL.

// in a loop
EXEC-SQL
  FETCH C1 INTO :Host_Variable
END-SQL.

// then once the loop has completed
EXEC-SQL
  CLOSE C1
END-SQL.

可以在SQL参考中找到SQL语句的语法： https://www.ibm.com/docs/en/i/7.4?topic=Reference-Statements

ifs_write 有些相似，但是您需要放置SQL打电话给循环。

// loop for each line you want to write then inside the loop
EXEC-SQL
  CALL QSYS2.IFS_WRITE(PATH_NAME => '/tmp/library_names', 
                     LINE => :host_variable)
END-SQL.

现在，您可能会注意到这里没有错误处理。除非您陷入困境，否则SQL会忽略大多数错误，我将把它留给您。