主机批量作业触发

我是CICS的新手。我有一个查询，我们可以触发批处理作业彻底的CICS事务吗？ 我想通过CICS事务执行的程序触发批处理作业，是否可能？     
2019-05-10 2 条评论
分享

没有找到相关结果

    已邀请:

    桑娠贯涤

    是的，这是可能的。 您的系统程序员必须设置一个额外的分区瞬态数据队列，其DD语句指向内部JES阅读器。 您必须将JCL写入瞬态数据队列，包括最后一张//卡。 您负责使用CICS ENQUEUE和DEQUEUE命令确保对瞬态数据队列的串行访问。 JOB卡必须包含用户标识和密码，以便JOB在您的帐户下运行，而不是在CICS区域的用户标识。 另一个选项是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中找到了这些信息。     
    2019-05-10 0 0
    分享
    为什么被折叠? 0 个回复被折叠

    要回复问题请先登录或注册

    或代码 OrCode.com 备案号：粤ICP备15020848号-1
    Escape time: 0.074701070785522