IBM大型机论坛索引
 
 登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答  寄存器
 

同时修改多个JCL


IBM大型机论坛 -> JCL& VSAM
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
翻新

新的用户


已加入:2020年12月20日
帖子:3
所在地:美国

 发布 发表:星期日十二月20,2020 2:03上午
引用回复

嗨!

我需要同时修改同一行或在20个JCL上插入相同的更改,这可能吗?



图书馆:

工作JCLS.DESTINO.LIB(JCLMOD01)
工作JCLS.DESTINO.LIB(JCLMOD02)
工作JCLS.DESTINO.LIB(JCLMOD03)

假设我在JCL中加入了以下几行,

JCLMOD01
码:
编辑       工作JCLS.DESTINO.LIB(JCLMOD01) - 01.03         Columns 00001 00072
命令===>                                                  Scroll ===> CSR 
000312 // *                                                                     
000313 // RESUME EXEC PGM = SORT,COND =(04,LT)                                     
000314 // SYSOUT   DD SYSOUT=*                                                 
000315 // SORTIN   DD DSN = WORK.JCLS.INSERTX.SORTOUT,DISP = SHR     
000316 //             DD DSN = WORK.JCLS.CHGRECX.SORTOUT,DISP = SHR     
000319 //三角洲     DD DSN = WORK.JCLS.RESUME.DELTA.D %% ODATE,       
000320 //              DISP=(,CATLG,DELETE),                                     
000321 //              SPACE=(TRK,(150,150),RLSE)                               
000322 //系统    DD *                                                         
000323     SORT FIELDS=COPY                                                     
000324    OUTFIL FNAMES=DELTA                                                 
000325 // *                                                                     


JCLMOD02
码:
编辑       工作JCLS.DESTINO.LIB(JCLMOD02) - 01.03         Columns 00001 00072
命令===>                                                  Scroll ===> CSR 
000312 // *                                                                     
000313 // RESUME EXEC PGM = SORT,COND =(04,LT)                                     
000314 // SYSOUT   DD SYSOUT=*                                                 
000315 // SORTIN   DD DSN = WORK.JCLS.INSERTX.SORTOUT,DISP = SHR     
000316 //             DD DSN = WORK.JCLS.CHGRECX.SORTOUT,DISP = SHR     
000319 //三角洲     DD DSN = WORK.JCLS.RESUME.DELTA.D %% ODATE,       
000320 //              DISP=(,CATLG,DELETE),                                     
000321 //              SPACE=(TRK,(150,150),RLSE)                               
000322 //系统    DD *                                                         
000323     SORT FIELDS=COPY                                                     
000324    OUTFIL FNAMES=DELTA                                                 
000325 // *                                 


JCLMOD03
码:
编辑       工作JCLS.DESTINO.LIB(JCLMOD03) - 01.03         Columns 00001 00072
命令===>                                                  Scroll ===> CSR 
000312 // *                                                                     
000313 // RESUME EXEC PGM = SORT,COND =(04,LT)                                     
000314 // SYSOUT   DD SYSOUT=*                                                 
000315 // SORTIN   DD DSN = WORK.JCLS.INSERTX.SORTOUT,DISP = SHR     
000316 //             DD DSN = WORK.JCLS.CHGRECX.SORTOUT,DISP = SHR     
000319 //三角洲     DD DSN = WORK.JCLS.RESUME.DELTA.D %% ODATE,       
000320 //              DISP=(,CATLG,DELETE),                                     
000321 //              SPACE=(TRK,(150,150),RLSE)                               
000322 //系统    DD *                                                         
000323     SORT FIELDS=COPY                                                     
000324    OUTFIL FNAMES=DELTA                                                 
000325 // *           


正如我们在3个JCL中看到的,我们有相同的行

现在,假设我要将相同的行引入所有3个JCL中,如何同时进行呢?

JCLMOD0 *
码:
编辑       工作JCLS.DESTINO.LIB(JCLMOD0*) - 01.03         Columns 00001 00072
命令===>                                                  Scroll ===> CSR 
000312 // *                                                                     
000313 // RESUME EXEC PGM = SORT,COND =(04,LT)                                     
000314 // SYSOUT   DD SYSOUT=*                                                 
000315 // SORTIN   DD DSN = WORK.JCLS.INSERTX.SORTOUT,DISP = SHR     
000316 //             DD DSN = WORK.JCLS.CHGRECX.SORTOUT,DISP = SHR
000319 //三角洲     DD DSN = WORK.JCLS.RESUME.DELTA.D %% ODATE,       
000320 //              DISP=(,CATLG,DELETE),                                     
000321 //              SPACE=(TRK,(150,150),RLSE)                               
000322 //系统    DD *                                                         
000323     SORT FIELDS=COPY                                                     
000324    OUTFIL FNAMES=DELTA                                                 
000325 // *           
/*                                                                     
// * 新增行                                                                   
// CONTA    EXEC PGM=SORT,COND=(4,LT)                                   
// SORTIN   DD DSN = WORK.JCLS.RESUME.DELTA.D %% ODATE,DISP = SHR
//整理 DD DSN = WORK.JCLS.RESUME.CONTA.SORTOUT,               
//            DISP=(,CATLG,DELETE),                                     
//            SPACE=(TRK,(20,5),RLSE),                                 
//            DCB=(LRECL=80,BLKSIZE=0)                                 
// SYSOUT   DD SYSOUT=*                                                 
// SYSIN    DD *                                                         
  排序字段=复制                                                     
 OUTFIL FNAMES = SORTOUT,                                               
   TRAILER1=(01:'%% JOBNAME %% ODATE DELTA     COUNT: ', -     
   COUNT=(M11,LENGTH=8)),NODETAIL                                       
// *                                                                     



非常感谢您抽出宝贵的时间
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

 发布 发表于:2020年12月20日,星期日3:09 pm
引用回复

您可以使用剪切和粘贴的方式完成此工作,而所需的时间要少于撰写该文章所需的时间,而如果使用的是JCL,则花费的时间甚至更少 包括 声明。而且,无论如何,对于20个成员,剪切和粘贴可能是最快的方法。
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

 发布 发表于:2020年12月20日,星期日3:50 pm
引用回复

你不能我和Nic一起去,使用剪切和粘贴。
但是,在查找您的JCL时,我看到带有D %% ODATE的数据集名称,这使我相信这些成员是生成的JCL的基础。 IBM Tivoli Workload Scheduler? JCL生成器是否具有INCLUDE功能?
回到顶部
查看用户资料 发送私信
翻新

新的用户


已加入:2020年12月20日
帖子:3
所在地:美国

 发布 发表:2020年12月21日星期一12:02上午
引用回复

谢谢您的答复,就像我想象的那样,多次剪切和粘贴是唯一的选择。

抱歉,“包含”是什么意思?
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
帖子:939
所在地:马里兰

 发布 发表:2020年12月21日星期一1:38上午
引用回复

翻新 写道:
谢谢您的答复,就像我想象的那样,多次剪切和粘贴是唯一的选择。

抱歉,“包含”是什么意思?

RTFM:“ JCL手册。包含声明”
回到顶部
查看用户资料 发送私信
翻新

新的用户


已加入:2020年12月20日
帖子:3
所在地:美国

 发布 发表于:2020年12月21日星期一1:52上午
引用回复

塞尔吉肯写道:
翻新 写道:
谢谢您的答复,就像我想象的那样,多次剪切和粘贴是唯一的选择。

抱歉,“包含”是什么意思?

RTFM:“ JCL手册。包含声明”


哦,你是对的,我现在明白了。

谢谢你的帮助
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

 发布 发表于:2020年12月21日星期一3:05
引用回复

实际上,我的意思是Tivoli Scheduler,我很确定它具有包含功能。 Nic已经提到了JCL 包括 或私有过程库。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL& VSAM

 


类似主题
话题 论坛 回覆
没有新帖 如何处理基于文件的依赖文件 JCL& VSAM 8
没有新帖 用日期和日期引用文件名... JCL& VSAM 9
没有新帖 在Des中修改VSAM的共享选项... 清单和REXX 30
没有新帖 具有JCL的JES2 JEC JCL& VSAM 2
没有新帖 大型机工作机会-全职 大型机工作 0
搜索我们的论坛:


回到顶部