1

我正在编写一个 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

错误消息是 Dataset JCLMEM01 not found 。

我该如何解决这个错误？

4

1 回答 1

1

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

该TSO SUBMIT命令（当不在 中使用时ISPF Editor）需要一个dataset. APDS Member不是数据集。PDS-and-Member-together 确实算作一个数据集。

"SUBMIT XXX.YYYY.JCLLIB(JCLMEM01)"

您应该始终查看收到的任何消息。这会让你有 99% 的时间到达那里。在 Rexx 中，也看看如何使用Trace.

于 2014-12-22T14:36:36.797 回答