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

JCl中的RESET条件代码


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

新的用户


已加入:2006年7月23日
帖子:5

 发布 发表:2006年11月16日,星期四,晚上10:25
引用回复

你好

有什么方法可以重置JCL中的条件代码?

我正在读取数据集,如果它的空JCL返回4。我想在JCL中将其重置为0,然后继续执行进一步的步骤。

谢谢
回到顶部
查看用户资料 发送私信
原始的

高级会员


已加入:2005年3月28日
帖子:1448
地点:伊利诺伊州芝加哥

 发布 发表:2006年11月16日,星期四,10:43 pm
引用回复

引用:
有什么方法可以重置JCL中的条件代码?

并不是的。您可以在内部逐步重置MAXCC,例如在IDCAMS的情况下。
引用:
I am reading a dataset and if its empty JCLreturns 4.

这是什么步骤...执行任何程序或???
引用:
I want to reset it to 0 in JCLand proceed to further steps..Pl advice

可以使用COND参数完成其他步骤,以包括RC = 4和上一步中的RC = 0。
您可能首先描述步骤之间的依赖性。
回到顶部
查看用户资料 发送私信
大卫达

活跃成员


已加入:2005年11月22日
帖子:700
地点:美国密歇根州特洛伊

 发布 发表:2006年11月16日,星期四,10:46 pm
引用回复

sood16,

为什么要重置条件代码?除非您希望在其余步骤上使用COND =,否则这不会妨碍其余步骤的执行。

让我们知道您为什么认为应该重置条件代码。

戴夫
回到顶部
查看用户资料 发送私信
sood16

新的用户


已加入:2006年7月23日
帖子:5

 发布 发表:2006年11月17日,星期五,上午12:49
引用回复

此步骤是最后一步,作业会给出返回码4,因此会产生误导。

这一步是使用IEBGENER并将报告发送到某个系统
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2006年11月17日,星期五,上午1:07
引用回复

你说的是误导。您为什么不想要知道数据集为空?
回到顶部
查看用户资料 发送私信
sood16

新的用户


已加入:2006年7月23日
帖子:5

 发布 发表:2006年11月17日,星期五,凌晨3:53
引用回复

由于要求是-不应发送空报告

有什么办法可以重置条件代码..report不发送但返回CC 04
回到顶部
查看用户资料 发送私信
大卫达

活跃成员


已加入:2005年11月22日
帖子:700
地点:美国密歇根州特洛伊

 发布 发表:2006年11月17日,星期五,上午4:23
引用回复

sood16,

尝试这个:

码:

// JS00100  EXEC PGM=IDCAMS             
// DDIN     DD DSN = your.report.file,     
//          DISP=SHR                   
// SYSPRINT DD DUMMY                   
// SYSIN DD *                            
  PRINT IFILE(DDIN) COUNT(1)   
// JS00200 EXEC PGM = IEBGENER,COND =(4,EQ,JS00100)
:
:


在IEBGENER步骤之前添加此IDC​​AMS步骤。

如果文件为空,则IDCAMS步骤将返回CC = 0004,如果JS00100 CC = 0004,则COND =(4,EQ,JS00100)将跳过IEBGENER步骤

戴夫
回到顶部
查看用户资料 发送私信
原始的

高级会员


已加入:2005年3月28日
帖子:1448
地点:伊利诺伊州芝加哥

 发布 发表:2006年11月17日,星期五,上午4:42
引用回复

引用:
如果文件为空,则IDCAMS步骤将返回CC = 0004,如果JS00100 CC = 0004,则COND =(4,EQ,JS00100)将跳过IEBGENER步骤

这在这种情况下无济于事,因为IDCAMS会再次导致Job生成RC = 04,这就是 误导 按照原始海报,让他们了解工作进展顺利。

因此编码IDCAMS与IEBGENER相同,因为在文件为空的情况下,两者都将生成RC = 04。
回到顶部
查看用户资料 发送私信
chandu321
目前被禁止

新的用户


已加入:2006年6月27日
帖子:8

 发布 发表:2006年11月17日,星期五,上午9:58
引用回复

我想以下应该起作用

IF RC > 8 Set RC = 0
回到顶部
查看用户资料 发送私信
原始的

高级会员


已加入:2005年3月28日
帖子:1448
地点:伊利诺伊州芝加哥

 发布 发表:2006年11月17日,星期五,上午10:17
引用回复

引用:
我想以下应该起作用

IF RC > 8 Set RC = 0

昌都...您能解释一下...您怎么猜呢?
回到顶部
查看用户资料 发送私信
大卫达

活跃成员


已加入:2005年11月22日
帖子:700
地点:美国密歇根州特洛伊

 发布 发表:2006年11月19日星期日上午7:11
引用回复

原始的

sood16写道:

由于要求是-不应发送空报告

有什么办法可以重置条件代码..report不发送但返回CC 04


我知道IDCAMS步骤也会生成RC = 0004,但是IDCAMS步骤将阻止发送空报告。

就个人而言,如果报告为空,我希望CC = 0004,这是一个快速参考,告诉您是否未发送报告。

我想知道是否可以使用IDCAMS将报告复制到各种输出,然后设置MAXCC = 0


戴夫
回到顶部
查看用户资料 发送私信
原始的

高级会员


已加入:2005年3月28日
帖子:1448
地点:伊利诺伊州芝加哥

 发布 发表:2006年11月19日星期日上午10:22
引用回复

你好戴夫,

引用:
有什么办法可以重置条件代码..report不发送但返回CC 04

我从原始发帖人解释这行,因为如果报告为空,则不会发送报告,但问题是CC = 04;这误导了他们。

那就是让我说IDCAMS相同的原因。您的建议没有矛盾...  icon_biggrin.gif

问候,
普里耶什。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
 发表新话题     回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL& VSAM

 


类似主题
话题 论坛 回覆
 没有新帖 无论先前的步骤如何,都执行步骤... JCL& VSAM 2
 没有新帖 错误0C1原因代码1与分支i ... PL / I和组装商 3
 没有新帖 删除基于S ...的重复记录 DFSORT / ICETOOL 4
 没有新帖 JCLfor replacing code in Cobol JCL& VSAM 7
 没有新帖 将十六进制转换为PD特殊条件 同步排序 3
搜索我们的论坛:

 回到顶部