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

验证具有多个标题/尾部的文件


IBM大型机论坛 -> DFSORT / ICETOOL
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
Mohitsaini
警告:1

新的用户


已加入:2006年5月15日
帖子:92

发布发表于:2017年4月13日,星期四1:53上午
引用回复

大家好,

我已经对下面的“排序”步骤进行了编码,以验证文件的标题,结尾和计数。它对于单个标头和预告片工作正常。

但是,如果输入中的标题和尾部超过1个,则它不起作用。意味着它不会引发错误。您能否建议我如何修改以下分类卡,以引发多个页眉/尾页的错误。

具体来说,如果我要读取最后一条记录(即串联文件的预告片),则可以进行当前正在TRL上进行的验证。任何建议将不胜感激。谢谢

码:
// STEP0100 EXEC PGM = SORT,PARM ='NORC16'                             
// SYSOUT   DD SYSOUT=*                                             
// SORTIN    DD DSN = input.file,DISP = SHR       
//              **两个相同的文件作为输入不会出错。   
//整理  DD SYSOUT = *                                             
// HDR      DD SYSOUT = *                                             
// TLR      DD SYSOUT = *                                             
// SYSIN    DD *                                                     
  OPTION COPY                                                       
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(181:SEQNUM,9,ZD)),               
        IFTHEN=(WHEN=(19,6,CH,EQ,C'TRAILR'),                       
                OVERLAY=(181:181,9,ZD,SUB,+ 2,M11,LENGTH = 9))         
 OUTFIL FNAMES = HDR,INCLUDE =(19,6,CH,EQ,C'HEADER'),NULLOFL=RC16     
 OUTFIL FNAMES = TLR,INCLUDE =(19,6,CH,EQ,C'TRAILR',                 
                           AND,25,9,CH,EQ,181,9,CH),               
                    NULLOFL=RC16                                   
// *   
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表于:2017年4月13日,星期四2:23上午
引用回复

引用:
您能否建议我如何修改以下分类卡,以引发多个页眉/尾页的错误。
这段时间无法完成。大型机系统不会“抛出错误”-它们可能会发生异常,它们可能具有非零的步进返回码,它们可能会出现用户错误,但它们并非“抛出错误”。由于代码永远不会抛出错误,因此我们无法告诉您该如何做。

据说这是大型机专家用户的论坛-您现在应该知道术语是什么并使用它。如果要抛出错误,请在Unix或Windows计算机上工作。
回到顶部
查看用户资料 发送私信
Mohitsaini
警告:1

新的用户


已加入:2006年5月15日
帖子:92

发布发表于:2017年4月13日,星期四2:41上午
引用回复

抱歉使用不正确的用语。我的错误意思是JCL步骤返回了非零返回码(RC)。下次我会照顾的。谢谢。
回到顶部
查看用户资料 发送私信
拉胡尔G31

活跃用户


已加入:2014年12月20日
帖子:446
地点:美国

发布发表于:2017年4月13日,星期四3:36上午
引用回复

最好显示示例数据。您在这里拥有什么:
码:
AND,25,9,CH,EQ,181,9,CH
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表于:2017年4月13日,星期四4:32上午
引用回复

引用:
但是,如果输入中的标题和尾部超过1个,则它不起作用
您已经在这个论坛上呆了近11年,没有看到任何帖子说明告诉我们“不起作用”是没有用的-怎么不起作用?
它产生了SORT错误吗?
它是否为SORT步骤生成了非零的返回码(如果是,则返回什么返回码)?
它是否生成了空的输出​​数据集?
它是否生成了具有正确数据但没有标题或尾部的数据集?
它是否生成了具有正确数据和标头但没有预告片的数据集?
它是否生成了具有正确数据以及标题和尾部的数据集,但是它们不正确(如果是这种情况,那么它们不正确)吗?
等等
等等
等等
有很多“不起作用”的方法-您需要至少向我们提供一些有关什么不起作用的信息,以帮助我们!您应该至少张贴SORT消息!
回到顶部
查看用户资料 发送私信
阿伦·拉吉(Arun Raj)

主持人


已加入:2006年10月17日
帖子:2481
位置:@我的办公桌

发布发表于:星期五四月14,2017 3:20上午
引用回复

Mohitsaini,

对于单个输入数据集条件,似乎您正在尝试从显示的控制卡中没有头记录或不正确的预告片记录计数时生成RC = 16。

我认为您需要清楚地定义何时将串联的输入视为无效-根本没有头记录,或者缺少任何一个头记录。同样,任何一个预告片记录计数不正确,或者都不正确,依此类推。那么,这就引出了一个问题,即数据(详细记录)中是否有东西有助于区分连接中涉及的多个数据集的记录。
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2582
地点:美国纽约

发布发表于:星期五四月14,2017 4:29上午
引用回复

引用:
但是,如果输入中的标题和尾部超过1个,则它不起作用。
当然,这是行不通的,因为您无法重新启动序列号并标识下一个标题和尾部等等。
拉胡尔G31,TS将总记录数与拖车数进行匹配。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> DFSORT / ICETOOL

 


类似主题
话题 论坛 回覆
没有新帖 选择多个常量记录 DB2 3
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出文件 DFSORT / ICETOOL 11
没有新帖 比较文件记录计数百分比... DFSORT / ICETOOL 4
没有新帖 比较两个文件以查找位置/日期... 同步排序 2
没有新帖 将文件从PD转换为显示... 同步排序 4
搜索我们的论坛:


回到顶部