大型機批處理作業觸發

Question

我是CICS新手。我有一個查詢，我們可以通過CICS事務觸發批處理作業嗎？ 我想通過由CICS事務執行的程序來觸發一個批處理作業，有可能嗎？

Answer 1

是的，這是可能的。

您的系統程序員必須設置一個額外的分區瞬態數據隊列，其DD語句指向內部的JES閱讀器。

您必須將JCL寫入瞬態數據隊列，包括最後//卡。

您有責任通過CICS ENQUEUE和DEQUEUE命令確保對瞬時數據隊列的串行訪問。

作業卡必須包含用戶標識和密碼，以便作業在您的帳戶下運行，而不是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找到了該信息。