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

Syncsort-在标头中递增计数值


IBM大型机论坛 -> JCL& VSAM
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
阿伦·拉吉(Arun Raj)

主持人


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

发布发表:2008年10月20日星期一1:06 pm
引用回复

您好,

这是一个执行相同操作的Syncsort作业。它涉及2个步骤,

步骤1: 从计数器文件1中获取计数,递增1,将其保存回计数器文件,还为新计数创建一个Symbol-CNT。
第2步: Overlays the symbol - 碳纳米管 into the header record.
码:
//步骤1    EXEC PGM=SORT                                   
// SYSOUT   DD SYSOUT=*                                     
// SORTIN   DD DSN =计数文件----------------- FB,LRECL = 6 
//整理 DD DSN =计数文件----------------- FB,LRECL = 6 
// C1       DD DSN=&&C1,DISP=(,PASS),UNIT=SYSDA             
// SYSIN    DD *                                             
  INREC BUILD=(1,6,ZD,ADD,+ 1,TO = ZDF,LENGTH = 6)               
  SORT FIELDS=COPY                                         
 OUTFIL FNAMES = C1,BUILD =(C'CNT,C''',1,6,C'''',80:X)       
// *                                                         
//第2步    EXEC PGM=SORT                                   
// SYSOUT   DD SYSOUT=*                                     
//SYMNAMES DD DSN =&&C1,DISP=(OLD,PASS)                     
// SORTIN   DD DSN= Input 文件----------------- FB,LRECL = 30
//整理 DD DSN =输出文件----------------- FB,LRECL = 30
// SYSIN    DD *                                             
  INREC IFTHEN=(WHEN=(1,3,CH,EQ,C'BOF'),OVERLAY=(11:CNT))   
  SORT FIELDS=COPY       
回到顶部
查看用户资料 发送私信
熔化的记忆

新的用户


已加入:2008年10月13日
帖子:16
地点:班加罗尔

发布发表:2008年10月20日星期一4:02 pm
引用回复

icon_biggrin.gif

多谢!!!真棒!再次感谢您的支持!!!
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL& VSAM 转到页面 以前  1, 2

 


类似主题
话题 论坛 回覆
没有新帖 比较文件记录计数百分比... DFSORT / ICETOOL 4
没有新帖 带SyncSort的数值检查。 同步排序 1
没有新帖 RECFM = U磁带文件的记录数 DFSORT / ICETOOL 17
没有新帖 通过SYNCSORT,每月的最后一天。 同步排序 5
没有新帖 如何从数字d获取总计数... 同步排序 9
搜索我们的论坛:


回到顶部