翻新
新的用户
已加入：2020年12月20日
帖子：3
所在地：美国
|
|
|
|
嗨！
我需要同时修改同一行或在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
// *
|
非常感谢您抽出宝贵的时间 |
|
