Код Rexx для изменения слова в jcl и отправки.
Есть код JCL. Требуется запустить задание после выполнения «C ALL JOB1 JOB2».
Код Rexx для изменения слова в jcl и отправки.
Есть код JCL. Требуется запустить задание после выполнения «C ALL JOB1 JOB2».
Есть несколько способов сделать это. Я бы посоветовал скелетоны ISPF
Рекс это
ADDRESS TSO "ALLOC DD(OUTSKEL) DS('"OUTSKPDS"') SHR"
job="job2" /* job1 */
'FTOPEN'
'FTINCL SAMPSKEL'
'FTCLOSE LIBRARY(OUTSKEL) NAME('WORKMEM')'
Скелет становится
//&job. job
см. Выполнение DFSORT с использованием REXX
Вы можете использовать макрос редактирования. Рекс
'address ispexec edit dataset(my.job.to.edit) macro(mymacro)'
и макрос примерно
address isredit 'macro'
address isredit 'c job1 job2 all'
address isredit 'sub'
Джоу мог читать JCL построчно, изменять каждую строку по мере необходимости и писать новый файл набора данных JCL.