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

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日