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

使用line命令Z压缩PDS


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

新的用户


入会时间:2007年11月15日
帖子:36
地点:印度

发布发表:2009年8月18日,星期二,下午2:57
引用回复

使用行命令Z压缩PDS是否会破坏数据集?
回到顶部
查看用户资料 发送私信
埃斯卡帕

高级会员


已加入:2007年2月16日
帖子:1399
所在地:美国IL

发布发表:2009年8月18日,星期二,下午3:01
引用回复

这样的命令将被固定或删除。 icon_lol.gif icon_lol.gif

因为我们经常使用相同的...

您遇到任何具体问题?
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2009年8月18日,星期二,下午3:02
引用回复

科武尔写道:
使用行命令Z压缩数据集是否会破坏数据集?

是什么让你问那个
回到顶部
查看用户资料 发送私信
科武尔

新的用户


入会时间:2007年11月15日
帖子:36
地点:印度

发布发表:2009年8月18日,星期二,下午3:18
引用回复

我知道Z用于压缩PDS。
但是我面临的问题很奇怪。
我尝试使用Z压缩我的PDS之一,但PDS中的内容被损坏。
压缩后,一些成员没有数据,一些成员具有其他成员的数据,一些成员具有垃圾数据,而某些作业仍然具有有效数据。

我真的很困惑这是怎么发生的。请指教
回到顶部
查看用户资料 发送私信
埃斯卡帕

高级会员


已加入:2007年2月16日
帖子:1399
所在地:美国IL

发布发表:2009年8月18日,星期二,下午3:23
引用回复

引用:
有些有垃圾数据
垃圾在这里意味着什么 icon_rolleyes.gif icon_rolleyes.gif
回到顶部
查看用户资料 发送私信
科武尔

新的用户


入会时间:2007年11月15日
帖子:36
地点:印度

发布发表:2009年8月18日,星期二,下午3:25
引用回复

在这里,我指的是“垃圾”,它不是必需的。
例如,在jcl会员中,我看到数字。如果jcl成员在压缩前有40行,那么在压缩后我看到一些具有数千行的数字 icon_sad.gif
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表:2009年8月18日,星期二,下午4:39
引用回复

如果在压缩过程中出了点问题(例如,您的TSO用户ID被注销),则是的,数据集可能已损坏。压缩实际上是在PDS中移动成员,并且如果该过程无法正常完成(或者如果有另一个作业或任务试图同时使用成员),则可以使用需要从备份还原。
回到顶部
查看用户资料 发送私信
阿努·达万(Anuj Dhawan)

高级会员


已加入:2006年4月22日
帖子:6250
地点:印度孟买

发布发表:2009年8月18日,星期二,下午4:44
引用回复

当您发出compress时,是不是一个用户在“使用” PDS?
回到顶部
查看用户资料 发送私信
科武尔

新的用户


入会时间:2007年11月15日
帖子:36
地点:印度

发布发表:2009年8月18日,星期二,下午6:36
引用回复

它是一个共享的数据集。我要求所有人不要访问它。但是有人在不知不觉中可能已经访问过它。
不确定。
但是,这真的重要吗?
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2009年8月18日,星期二,下午6:39
引用回复

引用:
但是,这真的重要吗?

考虑到您的PDS所处的情况,您怎么看?
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表:2009年8月18日,星期二,下午6:49
引用回复

引用:
但是,这真的重要吗?
好的,由于同时进行压缩,该人员正在更新PDS并覆盖某些数据-和目录。腐败的几率是多少?我会说几乎100%。

原因是压缩作业通常以DISP = OLD运行。
回到顶部
查看用户资料 发送私信
科武尔

新的用户


入会时间:2007年11月15日
帖子:36
地点:印度

发布发表:2009年8月18日,星期二,7:22 pm
引用回复

人们可能正在使用1个或2个PDS成员。但是,为什么近50%的成员遭到腐败? PDS包含将近12000个成员,并且几乎一半的成员没有有效数据。
以下是压缩时得到的屏幕。每个成员都与其他成员重叠。

码:

FCO520A ABCDEFGH重叠先前的成员
FCO520A I218158E重叠的上一个成员
FCO520A GHFTJ105重叠的上一个成员
FCO520A JKGLJ601重叠的上一个成员
FCO520A HB7869MG重叠的以前的成员
FCO520A KHGFJ462重叠的上一个成员
FCO520A GMCTJ202重叠的上一个成员
FCO520A SRFLJ404重叠以前的成员
FCO520A JNSTART 重叠的上一个成员
FCO520A TYPBJ511重叠的上一个成员
FCO520A JRCDJ031重叠的以前的成员
FCO520A肿瘤 重叠的上一个成员
FCO520A IENEZT   重叠的上一个成员
FCO520A IOPBJ753重叠的上一个成员
FCO520A UECVJ703重叠的上一个成员
FCO520A YRCVJ705重叠的上一个成员
FCO520A IUFTJIN1重叠以前的成员
FCO520A OWFTJINX重叠的上一个成员
FCO520A PIFTJINY重叠以前的成员
FCO520A YUFTJIN2重叠以前的成员
FCO520A URCBJDGB重叠的上一个成员
FCO520A UR4485AA重叠的上一个成员
FCO520A BH4485AA重叠的以前的成员
FCO520A UIFTJ106重叠的上一个成员
FCO520A YTFTJ108重叠的上一个成员
回到顶部
查看用户资料 发送私信
特里·海因兹

JCLModerator


已加入:2008年7月14日
帖子:1249
地点:美国明尼苏达州里奇菲尔德

发布发表:2009年8月18日,星期二,晚上7:30
引用回复

即使当我确定自己是PDS的唯一用户99.9%时,我仍然使用以下内容代替Z:
码:
---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- + ---- 4 ---- + ---- 5 ---- + ---- 6 ---- + ---- 7 ---- + ---- 8
// XXXXXBIG JOB(XXX),'T。 HEINZE-XXX-XXXX',                               
//             CLASS=R,                                                   
//             MSGCLASS=T,                                                 
//             NOTIFY=&SYSUID,                                             
//             REGION=0M                                                                                                   
// * 通过将分区复制到A来为分区数据集分配更多空间       
// * 新名称并将其重新命名为原始名称。  THIS JOB DOES NOT     
// * 删除旧数据集,请手动进行。                   
//         SET BLKSIZE=27920           <===  CHECK (MAX=27998)             
//         SET BLKSPRI=00120           (每3390缸30块)       
// * 分配了1个附加块供近似使用。每20个DIR。 BLKS。       
//         SET BLKSSEC=00120                                                 
//         SET DIRBLKS=08                                                   
// * C CURR“数据集名称”                                             
//         SET DSNME='CURR'            <===  CHANGE                         
//         SET 重新格式化=FB             {F|FB|U}                             
//         SET RECLNGTH=00080                                               
// *                                                                           
//         IF (RC EQ 0000) THEN                                             
// * 如果存在,请删除旧家伙。                                       
//删除  EXEC PGM=IEFBR14                                                   
// DD1      DD  DSN=&DSNME..OLD,                                               
//             DISP=(MOD,DELETE,DELETE),                                     
//             SPACE=(TRK,0)                                               
//         ENDIF                                                             
// *                                                                           
// *                                                                         
//         IF (RC EQ 0000) THEN                                               
// * 将老家伙复制到新家伙。                                         
//复制    EXEC PGM=IEBCOPY                                                   
// DDIN     DD  DSN=&DSNME,                                                     
//             DISP=OLD                                                       
// DDOUT    DD  DSN=&DSNME..NEW,                                             
//             DISP=(NEW,CATLG,DELETE),                                       
//             LRECL=&RECLNGTH,                                           
//             RECFM=&RECFORMT                                             
//             SPACE=(&BLKSIZE,(&BLKSPRI,&BLKSSEC,&DIRBLKS))           
// SYSPRINT DD  SYSOUT=*                                                     
// SYSIN    DD  *                                                             
  COPY         OUTDD=DDOUT                                                   
               INDD=DDIN                                                     
//         ENDIF                                                             
// *                                                                       
// *                                                                         
//         IF (RC EQ 0000) THEN                                             
// * 将新人重命名为旧人。                                     
//改名  EXEC PGM=IDCAMS                                                   
// SYSPRINT DD  SYSOUT=*                                                     
// SYSIN    DD  *                                                             
  ALTER         CURR                                         -               
        NEWNAME(CURR.OLD)                                                     
  ALTER         CURR.NEW                                     -                   
        NEWNAME(CURR)                                                             
//         ENDIF                                                                 
// *                                                                               
//
回到顶部
查看用户资料 发送私信
姆巴布

活跃用户


已加入:2008年8月3日
帖子:401
地点:孟买

发布发表:2009年8月18日,星期二,7:48 pm
引用回复

根本不应该发生这种情况,因为如果一个人打开了PDS进行写操作,那么第二个人尝试打开PDS进行写操作时将获得213-50(或-70)的异常终止。自引入该异常保护以来,使用DISP = SHR压缩数据集是安全的,并且已经进行了10年或更长时间。可能发生损坏的唯一方法是,如果作业,您的TSO ID在写入目录或数据时异常结束,或者在不同系统之间共享同一数据集,并且ENQ机制,GRS,MIM等未正确设置。您可能还会看到一个问题,其中目录被高速缓存,并且高速缓存尚未更新以反映新目录。这对于VLF控制的加载模块很常见,但在其他数据集和系统中也是如此。如果有一个程序使用旧目录作为起点直接写PDS目录(不使用STOW),那将是一场灾难,等待着发生,但是我无法想象有人会这样做。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL& VSAM

 


类似主题
话题 论坛 回覆
没有新帖 DB2I面板中的命令行放置 TSO / ISPF 2
没有新帖 文件辅助批处理如何重复一行... Compuware和其他工具 2
没有新帖 更改存在的LRECL的命令... JCL& VSAM 7
没有新帖 SQL的下一行 DB2 4
没有新帖 如何在ISPSTART中传递参数... 清单和REXX 6
搜索我们的论坛:


回到顶部