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

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


person Manasi    schedule 17.06.2010    source источник


Ответы (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.

person Gilbert Le Blanc    schedule 17.06.2010
comment
Большое спасибо, Гилберт, я попробую это... :) - person Manasi; 18.06.2010