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

覆盖排序I / P和O / P文件


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

新的用户


已加入:2003年8月19日
帖子:20
地点:加尔各答

发布发表:2003年8月20日星期三上午10:24
引用回复

你好
我有一个正在使用SORT的proc,现在我必须从主proc外部覆盖infile和outfile排序。

我通过外部过程来追踪它,但它给出了错误....

我该怎么做??...

提前致谢
回到顶部
查看用户资料 发送私信
麦克米伦

网站管理员


加入:2003年5月18日
帖子:1204
地点:印度

发布发表:2003年8月20日,星期三3:40 pm
引用回复

但是您必须在SORT pgm的调用程序中添加SYSIN。您可以使用步骤名称在调用作业中覆盖SORTIN&SORTOUT。
回到顶部
查看用户资料 发送私信
prasadrachuri

新的用户


已加入:2003年8月19日
帖子:20
地点:加尔各答

发布发表:2003年8月20日,星期三,下午4:43
引用回复

对不起,我忘了提...我正在jcl中进行外部排序。.我未在程序中进行排序..我希望你现在知道了...

对于前..代码将是这样的..

// xxxxx proc
// yyyyy pgm = ddddd
//........
//.......
// sort1 exec proc = SORT
// sortin dd dsn = xx.yy.zz,disp = shr
// sortdd dd dsn = xx.yy.ww,disp =(new,catlg)...。
// zzzzz pgm = ggggg
//...........
//.......
//悬挂
// abcd proc = xxxxx

现在我想在我的xxxxx proc之外覆盖我的sortin和sortout文件
如何做到的???
回到顶部
查看用户资料 发送私信
麦克米伦

网站管理员


加入:2003年5月18日
帖子:1204
地点:印度

发布发表:2003年8月21日,星期四,上午9:06
引用回复

prasadrachuri写道:


// xxxxx proc
// yyyyy pgm = ddddd
//........
//.......
// sort1 exec proc = SORT
// sortin dd dsn = xx.yy.zz,disp = shr
// sortdd dd dsn = xx.yy.ww,disp =(new,catlg)...。
// zzzzz pgm = ggggg
//...........
//.......
//悬挂
// abcd proc = xxxxx




尝试一下:

// ABCD PROC = XXXXX
//SORT1.SORTIN DD DSN= <i/p dataset>
//SORT1.SORTOUT DD DSN= <o/p dataset>
//SORT1.SYSIN DD *
SORT FIELDS= <control cards>
回到顶部
查看用户资料 发送私信
prasadrachuri

新的用户


已加入:2003年8月19日
帖子:20
地点:加尔各答

发布发表:2003年8月21日,星期四,下午12:48
引用回复

// ABCD PROC = XXXXX
//SORT1.SORTIN DD DSN= <i/p dataset>
//SORT1.SORTOUT DD DSN= <o/p dataset>
//SORT1.SYSIN DD *
排序字段=<control cards>

先生,
我也早先遍历了上面的代码...它给了jcl错误

我注意到错误为“在过程中找不到替代步骤”
回到顶部
查看用户资料 发送私信
夏兰

新的用户


已加入:2003年12月22日
帖子:6
地点:Banaglore

发布发表:2004年1月19日星期一6:38 pm
引用回复

嗨Prasadrachuri,

如果U已将proc编码为流内过程,则这里是覆盖Infile和outfile的一种方法。

码:
// ****工作卡****
// PROCSRT PROC                                                         
// SORTST  EXEC PGM=SORT
// SORTIN  DD DSN = INFILE1,DISP = SHR                               
// SORTOUT DD  DSN=OUTFILE1,                                 
//           DISP=(,CATLG,DELETE),                                   
//           UNIT=SYSDA,                                             
//           SPACE=(TRK,(1,1))                                             
// SYSIN   DD  DSN=CNTLCARD(CARD1),DISP=SHR
// SYSOUT  DD  SYSOUT=*                                               
//        PEND                                                       
// MAINSTP EXEC PROCSRT                                                 
//SORTST.SORTIN DD DSN=INFILE2
//整理       DD DSN=OUTFILE2


如果U已编码为编目过程,则您可以通过以下方式执行相同的操作。

码:
// ****工作卡****
// MAINSTP EXEC PROCSRT                                                 
//SORTST.SORTIN DD DSN=INFILE2                               
//整理       DD DSN=OUTFILE2



我认为以上两种方法都可以正常工作。


希望这可以帮助,

谢谢
夏兰
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> DFSORT / ICETOOL

 


类似主题
话题 论坛 回覆
没有新帖 建立排序键 DFSORT / ICETOOL 3
没有新帖 很大排序失败-寻求识别... DFSORT / ICETOOL 7
没有新帖 使用SORT进行日期转换 同步排序 4
没有新帖 哪个SORT实用程序可以改善性能? DFSORT / ICETOOL 16
没有新帖 使用基于关闭的VB记录排序... DFSORT / ICETOOL 6
搜索我们的论坛:


回到顶部