如何在 REXX 程序中包含 JCL PDS 库

Question

我正在编写一个Rexx程序来自动按顺序提交作业。 代码是这样的：

/*REXX*/
  Address ISPEXEC "LIBDEF ISPPLIB DATASET ID('XXX.YYY.PANELS')
  Address ISPEXEC "LIBDEF ISPMLIB DATASET ID('XXX.YYYY.JCLLIB')
  isf_rc=ISFACALLS('ON')
  Addres ISPEXEC "Display Panel(Panel1)"
  if rc<>0 then do 
     say isf_rc
  end
  if zcmd==1 then do /*zcmd is a variable defined in the Panel to capture user input*/
     Address TSO "SUBMIT (JCLMEM01)"
  end

错误消息为"找不到数据集JCLMEM01"。

如何解决此错误？

Answer 1

发布消息时，您需要在消息引用中包含全文。请将其添加到您的问题中（从模拟器粘贴）。

TSO SUBMIT命令（当不在ISPF Editor中使用时）需要dataset。PDS Member不是数据集。PDS 和成员一起算作一个数据集。

"SUBMIT XXX.YYYY.JCLLIB(JCLMEM01)"

您应该始终查找收到的任何消息。这会让你在 99% 的情况下到达那里。在 Rexx 中，还看看如何使用 Trace 。