Есть несколько способов сделать это. Я бы предложил ISPF skeltons
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