当前位置：文江博客话题详情

大型机批量作业触发

发布于 2024-09-05 15:55:40 字数 76 浏览 5 评论 0原文

我是 CICS 新手。我有一个疑问，我们可以通过 CICS 事务触发批处理作业吗？我想通过CICS事务执行的程序触发批处理作业，可以吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

悲凉≈ 2024-09-12 15:55:40

是的，这是可能的。

您的系统程序员必须设置一个额外的分区瞬态数据队列，其 DD 语句指向内部 JES 读取器。

您必须将 JCL 写入瞬态数据队列，包括最后一张 // 卡。

您负责使用 CICS ENQUEUE 和 DEQUEUE 命令确保对瞬态数据队列的串行访问。

作业卡必须包含用户 ID 和密码，以便作业在您的帐户下运行，而不是在 CICS 区域的用户 ID 下运行。

另一个选项是 CICS SPOOLOPEN 命令。

以下是一些使用 SPOOLOPEN 命令的 Cobol 代码。

EXEC CICS SPOOLOPEN OUTPUT
          NODE ('LOCAL')
          USERID ('INTRDR')
          RESP(RETCODE)RESP2(RESP2)
          TOKEN(TOKEN)
END-EXEC

PERFORM VARYING JCL-IND FROM +1 BY +1
  UNTIL RETCODE NOT = DFHRESP(NORMAL)
     OR JCL-IND > jcl-ind-max
  MOVE JCLELE (JCL-IND)     TO      JOBQUEUE
  EXEC CICS SPOOLWRITE
          FROM(JOBQUEUE)
          RESP(RETCODE) RESP2(RESP2)
          FLENGTH(OUTLEN)
          TOKEN(TOKEN)
  END-EXEC
END-PERFORM

EXEC CICS SPOOLCLOSE
          TOKEN(TOKEN)
          RESP(RETCODE) RESP2(RESP2)
END-EXEC

我在 CICS wiki 中找到了此信息。

Yes, it's possible.

Your system programmers have to set up an extra partition transient data queue whose DD statement is pointing towards the internal JES reader.

You have to write the JCL to the transient data queue, including the last // card.

You are responsible for assuring serial access to the transient data queue with CICS ENQUEUE and DEQUEUE commands.

The JOB card has to contain a userid and a password, so that the JOB runs under your account and not the userid of the CICS region.

Another option is the CICS SPOOLOPEN command.

Here's some Cobol code that uses the SPOOLOPEN command.

EXEC CICS SPOOLOPEN OUTPUT
          NODE ('LOCAL')
          USERID ('INTRDR')
          RESP(RETCODE)RESP2(RESP2)
          TOKEN(TOKEN)
END-EXEC

PERFORM VARYING JCL-IND FROM +1 BY +1
  UNTIL RETCODE NOT = DFHRESP(NORMAL)
     OR JCL-IND > jcl-ind-max
  MOVE JCLELE (JCL-IND)     TO      JOBQUEUE
  EXEC CICS SPOOLWRITE
          FROM(JOBQUEUE)
          RESP(RETCODE) RESP2(RESP2)
          FLENGTH(OUTLEN)
          TOKEN(TOKEN)
  END-EXEC
END-PERFORM

EXEC CICS SPOOLCLOSE
          TOKEN(TOKEN)
          RESP(RETCODE) RESP2(RESP2)
END-EXEC

I found this information in a CICS wiki.

回复收藏 0 原文

~没有更多了~