survictory 2020-07-17 14:19 采纳率: 83.3%
浏览 160
已采纳

COBOL: 在JCL练习题中用IEBCOPY移动PDS数据集中的member,INDD=((IN2,R)) 代码表示什么意思?

//D0403 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//************************************************************
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//OUT1 DD DSN=USERID.PDS04,DISP=OLD
//IN1 DD DSN=USERID.PDS01,DISP=OLD
//IN2 DD DSN=USERID.PDS02,DISP=OLD
//IN3 DD DSN=USERID.PDS03,DISP=OLD
//SYSIN DD *
COPY OUTDD=OUT1
INDD=IN1
SELECT MEMBER=((M11,M41,R),(M13,M43,R))
INDD=IN3 EXCLUDE MEMBER=(M31,M32)
COPY OUTDD=OUT1,
INDD=((IN2,R))
/*
//

各位大神,本人刚刚开始学习COBOL.
以上是COBO两种JCL练习题中关于IEBCOPY中member的源代码,
在操作开始之前,
PDS01中的MEMEBER是M11,M12,M13,
PDS02中的MEMEBER是M21,M22,M23,
PDS03中的MEMEBER是M31,M32,M33。
PDS04中没有MEMBER,空的。
请问最后的代码INDD=((IN2, R))中的代码表示什么意思呢?
最后移动完成之后,PDS04中的MEMBER又是哪些呢?
多谢大家!~

  • 写回答

1条回答 默认 最新

  • 关注
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 已采纳回答 6月7日

悬赏问题

  • ¥15 c程序不知道为什么得不到结果
  • ¥40 复杂的限制性的商函数处理
  • ¥15 程序不包含适用于入口点的静态Main方法
  • ¥15 素材场景中光线烘焙后灯光失效
  • ¥15 请教一下各位,为什么我这个没有实现模拟点击
  • ¥15 执行 virtuoso 命令后,界面没有,cadence 启动不起来
  • ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
  • ¥20 有关区间dp的问题求解
  • ¥15 多电路系统共用电源的串扰问题
  • ¥15 slam rangenet++配置