首页 > 代码库 > z/OS上Dataset 的移动
z/OS上Dataset 的移动
最近的一个需求,需要把大批量的Dataset移到新的Storage Class,新的Volume中去,刚开始感觉非常头疼。仔细研究后发现这个事情其实很简单。确实符合别人所说,事情的在你真正开始努力之后就会变简单了。
首先创建你的target Storage class和Storage Group,并把相关的Volume加到对于的SG,这时候不需要担心现有的Vol上已经存在的Dataset,改动Storage Group不会删除DataSet。
然后配置ACS Routines,将HLQ,SC和SG关联起来,Validate并激活你的ACS。 用命令 /SETSMS SCDS(SMS.ACS) 可以避免在Console上再输入一次yes。
最后就可以开始真正Move DataSet了,用ADRDSSU来实现
//IMPRTCON EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //SYSIN DD * COPY - DATASET(INCLUDE(RBC9CAT.**, - RBC9REG.**, - ) - ) - STORCLAS(TPHCRYSC) - BYPASSACS(**) - DELETE
注意第9行写要把这些DataSet 移动到的目标SC,这时候因为SC和SG已经建立了关联关系,所以会自动把DataSet放到目标Volume上。 其实这时候可以先不用建立HLQ和SC的对应关系,因为有BYPASSACS(**),所以这些新的DataSet可以忽略ACS的规则。
剩下的时间就是等待时间,这些JOB可能会跑很长时间,因为移动大批量的Dataset还是很费时间的的。所以常见的一个错误是
IEW4000I FETCH FOR MODULE ANTCVXPR FROM DDNAME *VLF* FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABLE. CSV031I LIBRARY ACCESS FAILED FOR MODULE ANTCVXPR, RETURN CODE 24, REASON CODE 26080021, DDNAME *LNKLST*这个主要问题是REGION的size太小,可以增大REGION或把上面的JCL include的DataSet拆分来让JOB顺利跑完。
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。