Question

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

Answer 1

是的，这是可能的。

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

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

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

JOB卡必须包含用户ID和密码，以便JOB在您的帐户下运行，而不是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中找到了这些信息。

主机批量作业触发

1 个答案: