Запуск пакетной работы мэйнфреймов - PullRequest
Новая
       38

Запуск пакетной работы мэйнфреймов

0 голосов
/ 17 июня 2010

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

1 Ответ

4 голосов
/ 17 июня 2010

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

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

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

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

Карта JOB должна содержатьИД пользователя и пароль, так что 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 .

...