Мейнфрейм Запуск задания Запуск

Question

Я новичок в CICS. У меня есть один запрос. Можем ли мы запустить пакетную транзакцию CICS? Я хочу запустить пакетное задание через программу, которая выполняется транзакцией CICS, возможно ли это?

Answer 1

Да, это возможно.

Системные программисты должны настроить дополнительную очередь передачи данных, чей оператор DD указывает на внутренний JES-считыватель.

Вы должны написать JCL в очередь временных данных, включая последнюю // карту.

Вы несете ответственность за обеспечение последовательного доступа к очереди временных данных с помощью команд CICS ENQUEUE и DEQUEUE.

Карточка JOB должна содержать идентификатор пользователя и пароль, чтобы работа выполнялась под вашей учетной записью, а не с идентификатором пользователя области CICS.

Другой вариант - команда CICS SPOOLOPEN.

Вот код Cobol, который использует команду SPOOLOPEN.

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.