Mainframe JCL中的循环-作为用户（大型机）输入的计数数

我想从用户那里获取输入，然后在JCL中多次运行某些特定步骤。

---

可能吗？

不仅仅是JCL，不。JCL没有循环结构。您可以编写一个函数来完成此操作，但将限于作业中允许的步骤数。

不仅仅是JCL，没有。JCL没有循环构造。您可以编写一个函数来执行此操作，但仅限于作业中允许的步骤数。

JCL没有任何循环/转到结构，因此没有

通常在大型机上，您会生成一个包含多个步骤（或多个作业/多个步骤）的作业。我强烈建议您与您工作的人交谈，看看这通常是如何完成的

但基本上，您可以根据需要生成多个作业/步骤。特别是：

• TSO/SPF- 在TSO/ISPF中有这样的功能。特别是查看和）点（Do表）和）端点spf skelton控件（请参阅 ）中的点语句）

• 对于CICS/IMS DC来说，正常过程是
  • 提交作业，该作业在正在使用的调度系统中提交调度
  • 生成一个或多个作业
  • 运行生成的作业
• 您可以在rexx中运行所需的步骤

• 您可以有多个步骤，并使用if/cond执行正确数量的步骤

SPF骨架基本上是具有所需文本的PDS成员。 变量（开始和长度不超过8个字符，通常以结尾。）+各种控件

---

（例如）SEL等）

JCL没有任何循环/转到结构，因此没有

通常在大型机上，您会生成一个包含多个步骤（或多个作业/多个步骤）的作业。我强烈建议您与您工作的人交谈，看看这通常是如何完成的

但基本上，您可以根据需要生成多个作业/步骤。特别是：

• TSO/SPF- 在TSO/ISPF中有这样的功能。特别是查看和）点（Do表）和）端点spf skelton控件（请参阅 ）中的点语句）

• 对于CICS/IMS DC来说，正常过程是
  • 提交作业，该作业在正在使用的调度系统中提交调度
  • 生成一个或多个作业
  • 运行生成的作业
• 您可以在rexx中运行所需的步骤

• 您可以有多个步骤，并使用if/cond执行正确数量的步骤

SPF骨架基本上是具有所需文本的PDS成员。 变量（开始和长度不超过8个字符，通常以结尾。）+各种控件

---

（例如，SEL等）

< P>我会考虑查看RXXX脚本语言。你可以通过运行一个执行Rexx脚本的一批TSO步骤来有效地模拟JCL。

< P>我会考虑查看ReX脚本语言。通过运行一个批处理TSO步骤执行REXX脚本，可以非常有效地模拟JCL。

许多站点都有从CICS提交作业的方法。此外，如果您有一个调度团队，像Control-M这样的产品将允许您“生成”JCL，其中包含可变数量的步骤，甚至多个工作卡，这些工作卡可以在提交时“包含”到模板成员中。

---

它们还允许循环作业在运行时检查令牌，默认情况下为虚拟作业

许多站点都有从CICS提交作业的方法。此外，如果您有一个调度团队，像Control-M这样的产品将允许您“生成”JCL，其中包含可变数量的步骤，甚至多个工作卡，这些工作卡可以在提交时“包含”到模板成员中。

---

它们还允许循环作业在运行时检查令牌，默认情况下为虚拟作业

请你再解释一下好吗？为什么多次运行一个步骤会有帮助呢？嗨，比尔，有一个任务，其中可以有任意数量的实例，我必须运行一个特定的步骤。我正在制作一个通用程序，任何人都可以在我的公司使用。在不同的应用程序中，它们希望运行的次数不同。所以，我是这么想的。你能再解释一下吗？为什么多次运行一个步骤会有帮助呢？嗨，比尔，有一个任务，其中可以有任意数量的实例，我必须运行一个特定的步骤。我正在制作一个通用程序，任何人都可以在我的公司使用。在不同的应用程序中，它们希望运行的次数不同。所以，我是这么想的。嗨，布鲁斯，谢谢你宝贵的时间。我对ISPF文件裁剪或REXX不太了解，现在就开始学习。你能指导我如何学习所有这些吗？我的项目与CICS/IMSDC无关。嗨，布鲁斯，谢谢你宝贵的时间。我对ISPF文件裁剪或REXX不太了解，现在就开始学习。你能指导我如何学习所有这些吗？我的项目与CICS/IMSDC无关。您好，谢谢您宝贵的回答。对不起，我对ISPF对话了解不多，你能指导我如何了解更多信息吗？嗨，谢谢你宝贵的回答。对不起，我对ISPF对话了解不多，你能指导我如何了解更多信息吗？嗨，是的，我的高年级同学（队友）只建议我这么做。但我不认识雷克斯，现在正努力学习……）你能指导我如何有效地学习吗？这里有几本关于REXX的好书，还有很多网站。就我个人而言，我会做谷歌搜索，因为每个人的学习方式都不一样。嗨，是的，我的前辈（队友）只是建议我这么做。但我不认识雷克斯，现在正努力学习……）你能指导我如何有效地学习吗？有几个好的开始 //STEPCHK EXEC PGM=... Program to convert parameter to return code // EXEC ...,COND=(0,lt,STEPCHK) // EXEC ...,COND=(1,lt,STEPCHK) // EXEC ...,COND=(2,lt,STEPCHK) // EXEC ...,COND=(3,lt,STEPCHK) // EXEC ...,COND=(4,lt,STEPCHK) ... // EXEC ...,COND=(n,lt,STEPCHK)

parse arg numberOfSteps

Address ISPEXEC

'ftopen'

'ftincl jclstart'

do i=1 to numberOfSteps
   'ftincl jclstep'
end
'ftclose name(member)'