Я новичок в CICS. У меня есть один вопрос: можем ли мы инициировать пакетное задание через транзакцию CICS? Я хочу запустить пакетное задание через программу, которая выполняется транзакцией CICS, возможно ли это?
Запуск пакетного задания мейнфрейма
Ответы (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
Большое спасибо, Гилберт, я попробую это... :)
- person Manasi; 18.06.2010