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。

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

1 个答案: