|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
科武尔
新的用户
入会时间：2007年11月15日
帖子：36
地点：印度
|
|
|
|
| 使用行命令Z压缩PDS是否会破坏数据集？ |
|
| 回到顶部 |
|
 |
埃斯卡帕
高级会员
已加入：2007年2月16日
帖子：1399
所在地：美国IL
|
|
|
|
这样的命令将被固定或删除。 
因为我们经常使用相同的...
您遇到任何具体问题？ |
|
| 回到顶部 |
|
|
外籍人士
全球主持人
已加入：2007年3月14日
帖子：8794
地点：威尔士威尔士
|
|
|
|
| 科武尔写道： |
| 使用行命令Z压缩数据集是否会破坏数据集？ |
是什么让你问那个 |
|
| 回到顶部 |
|
|
科武尔
新的用户
入会时间：2007年11月15日
帖子：36
地点：印度
|
|
|
|
我知道Z用于压缩PDS。
但是我面临的问题很奇怪。
我尝试使用Z压缩我的PDS之一，但PDS中的内容被损坏。
压缩后，一些成员没有数据，一些成员具有其他成员的数据，一些成员具有垃圾数据，而某些作业仍然具有有效数据。
我真的很困惑这是怎么发生的。请指教 |
|
| 回到顶部 |
|
|
埃斯卡帕
高级会员
已加入：2007年2月16日
帖子：1399
所在地：美国IL
|
|
| 回到顶部 |
|
|
科武尔
新的用户
入会时间：2007年11月15日
帖子：36
地点：印度
|
|
|
|
在这里，我指的是“垃圾”，它不是必需的。
例如，在jcl会员中，我看到数字。如果jcl成员在压缩前有40行，那么在压缩后我看到一些具有数千行的数字  |
|
| 回到顶部 |
|
|
罗伯特·桑普
全球主持人
已加入：2008年6月6日
帖子：8569
地点：美国爱荷华州迪比克
|
|
|
|
| 如果在压缩过程中出了点问题（例如，您的TSO用户ID被注销），则是的，数据集可能已损坏。压缩实际上是在PDS中移动成员，并且如果该过程无法正常完成（或者如果有另一个作业或任务试图同时使用成员），则可以使用需要从备份还原。 |
|
| 回到顶部 |
|
|
阿努·达万（Anuj Dhawan）
高级会员
已加入：2006年4月22日
帖子：6250
地点：印度孟买
|
|
|
|
| 当您发出compress时，是不是一个用户在“使用” PDS？ |
|
| 回到顶部 |
|
|
科武尔
新的用户
入会时间：2007年11月15日
帖子：36
地点：印度
|
|
|
|
它是一个共享的数据集。我要求所有人不要访问它。但是有人在不知不觉中可能已经访问过它。
不确定。
但是，这真的重要吗？ |
|
| 回到顶部 |
|
|
外籍人士
全球主持人
已加入：2007年3月14日
帖子：8794
地点：威尔士威尔士
|
|
|
|
考虑到您的PDS所处的情况，您怎么看？ |
|
| 回到顶部 |
|
|
罗伯特·桑普
全球主持人
已加入：2008年6月6日
帖子：8569
地点：美国爱荷华州迪比克
|
|
|
|
好的，由于同时进行压缩，该人员正在更新PDS并覆盖某些数据-和目录。腐败的几率是多少？我会说几乎100％。
原因是压缩作业通常以DISP = OLD运行。 |
|
| 回到顶部 |
|
|
科武尔
新的用户
入会时间：2007年11月15日
帖子：36
地点：印度
|
|
|
|
人们可能正在使用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
地点：美国明尼苏达州里奇菲尔德
|
|
|
|
即使当我确定自己是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
地点：孟买
|
|
|
|
| 根本不应该发生这种情况，因为如果一个人打开了PDS进行写操作，那么第二个人尝试打开PDS进行写操作时将获得213-50（或-70）的异常终止。自引入该异常保护以来，使用DISP = SHR压缩数据集是安全的，并且已经进行了10年或更长时间。可能发生损坏的唯一方法是，如果作业，您的TSO ID在写入目录或数据时异常结束，或者在不同系统之间共享同一数据集，并且ENQ机制，GRS，MIM等未正确设置。您可能还会看到一个问题，其中目录被高速缓存，并且高速缓存尚未更新以反映新目录。这对于VLF控制的加载模块很常见，但在其他数据集和系统中也是如此。如果有一个程序使用旧目录作为起点直接写PDS目录（不使用STOW），那将是一场灾难，等待着发生，但是我无法想象有人会这样做。 |
|
| 回到顶部 |
|
|
|
|
