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

需要单个分类卡来分类和选择最上面的记录


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

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月17日,星期三,晚上8:23
引用回复

你好

我有以下要求,我需要帮助。

请参阅附件以获取详细信息和建议。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10718
所在地:意大利

发布发表:2010年11月17日,星期三,晚上8:27
引用回复

不要发布附件,(无论如何都没有附件)
不是每个人都能看到他们

粘贴为文本并使用这样的代码标签...
码:
使用代码标签格式化的文本

在点击“提交”按钮之前,请使用“预览”按钮检查所有内容是否可以理解
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2010年11月17日,星期三,晚上8:28
引用回复

Errrrrr,如果您提供的附件I无法打开,请使用代码标签发布输入数据和预期结果。

还要确切说明您要实现的目标。

请运行以下代码,以通过发布JES SYSOUT元素来建立在您的站点中安装的排序产品和发行级别。
码:
// SORTSTEP EXEC PGM = SORT
// SYSOUT   DD SYSOUT=*
// SORTIN   DD *
美国广播公司
//整理  DD SYSOUT=*
// SYSIN    DD *
  SORT     FIELDS=COPY
还提供详细信息,LRECL&输入和输出文件的RECFM,任何关键字段的位置,长度和格式。

还显示您到目前为止尝试过的内容以及遇到的问题。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月18日,星期四,上午11:53
引用回复

很抱歉,但是不知道为什么屏幕截图没有粘贴到这里..以下任何方式都是文本格式的信息...请让我知道是否需要其他信息。

我正在使用syncsort。
以下是转换为FB LRECL = 120文件的GDG文件的LISTCAT历史记录。我想选择显示在底部的最新GDG名称。

码:
命令===>                                                  Scroll ===
= COLS>---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- + ---- 4 ---- + ---- 5 ---- + ---- 6 ---- +
000016       ATTRIBUTES                                                 
000017 0NONVSAM ------- TTA.TAI23.VRS.CESSDATA.G0024V00                 
000018       IN-CAT --- TICFCATC                                         
000019       HISTORY                                                     
000020         DATASET-OWNER-----(NULL)     创建-------- 2010.320     
000021         发行---------------- 2     奖励------ 0000.000     
000022         帐户信息 - - - - - - - - - - - - - - - - - -(NULL)     
000023         状态------------活动                                 
000024       SMSDATA                                                     
000025         存储类------ SCTST     管理类---- MCTST      
000026         数据类------标准     备份--- 2010.320.2015     
000027       VOLUMES                                                     
000028         沃尔瑟------------ TEP243     DEVTYPE ------ X'3010200F'     
000029       ASSOCIATIONS                                               
000030         GDG ------ TTA.TAI23.VRS.CESSDATA                           
000031       ATTRIBUTES                                                 
000032 0NONVSAM -------[b]TTA.TAI23.VRS.CESSDATA.G0025V00                 [/b]
000033       IN-CAT --- TICFCATC                                         
000034       HISTORY               

使用下面的排序卡仅按降序列出文件名。

码:
= COLS>---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- + ---- 4 ---- + ---- 5 ----
 ****** ******************************数据顶部************
 000001  SORT FIELDS=(42,7,CH,D)                               
 000010  INCLUDE COND=(2,7,CH,EQ,C'NONVSAM',AND,18,24,CH,EQ,   
 000020                         C'TTA.TAI23.VRS.CESSDATA.G')
 ****** ****************************数据底部**********   



给出以下操作... FB LRECL = 120

码:
命令===>                                     
---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- + ---- 4 ---- + ---- 5
**************************************数据顶部****
0NONVSAM ------- TTA.TAI23.VRS.CESSDATA.G0028V00   
0NONVSAM ------- TTA.TAI23.VRS.CESSDATA.G0027V00   
0 NONVSAM ------- TTA.TAI23.VRS.CESSDATA.G0026V00   
0NONVSAM ------- TTA.TAI23.VRS.CESSDATA.G0025V00   
0NONVSAM ------- TTA.TAI23.VRS.CESSDATA.G0024V00   
********************************数据底部**


现在,如果可以将其他任何选项添加到我上面的排序卡中,那么我想避免另一个排序步骤来拾取最上面的记录,这只会给我上面文件中的最高文件名而不是列表。

非常感谢adv。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月18日,星期四,上午11:59
引用回复

码:
**************************************数据顶部************** ********************
 SYNCSORT FOR Z/OS  1.3.2.0R 
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10718
所在地:意大利

发布发表:2010年11月18日,星期四,12:06 pm
引用回复

在发布方式方面,您得到了很好的建议,但是您根本不在乎
您的帖子已被编辑,以向您显示发布屏幕信息的正确方法


您在我的第一个答案中不了解什么?
看起来您只接受过书面训练,却没有接受过阅读训练 icon_evil.gif

还重新编辑了您的其他帖子,使内容更具可读性
代码标签会强制浏览器使用固定间距字体,
屏幕截图,文件布局,系统配置更易于理解

您还应该接受有关如何 不发布 雇主相关信息
只需发布syncsort级别就足够了
您的帖子已被编辑以删除机密信息
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月18日,星期四,12:55 pm
引用回复

感谢您的喊叫恩里科...我的坏...我现在明白了...!
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10718
所在地:意大利

发布发表:2010年11月18日,星期四1:44 pm
引用回复

偶尔大声喊叫有助于..做'它 icon_biggrin.gif icon_biggrin.gif
回到顶部
查看用户资料 发送私信
阿伦·拉吉(Arun Raj)

主持人


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

发布发表:2010年11月18日,星期四2:05 pm
引用回复

如何将此添加到您的排序卡以将文件名写入FB / LRECL = 44的数据集
码:
 OUTFIL ENDREC = 1,BUILD =(18,44)
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月18日,星期四6:30 pm
引用回复

非常感谢阿伦!!它工作得很好...现在我还有另一个任务如下...我认为可以使用inrec / outrec函数来完成,但不能获得所需的操作。如果可能的话,有人可以再次帮助我...

我的第一个文件如下:FB / 115,前44个字节为空。

码:
= COLS>---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- + ---- 4 ---- + ---- 5 ---- + ---- 6 ---- + ---- 7--
 ****** ******************************数据顶部************ ******************
 000001                               | +000005500000 | +000000016527.50 | 0000000000
 000002                               | +000003575000 | +000000007859.92 | 0000000000
 ****** ****************************数据底部************* ***************


还有我使用Arun的代码得到的第二个文件:FB / 44

码:
= COLS>---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- + ---- 4 ----
 ****** **********************************数据顶部***
 000001 TTA.TAI23.VRS.CESSDATA.G0028V00               
 000002 TTA.TAI23.VRS.POLMSTR.G0016V00               
 ****** ****************************数据底部*


这两个文件将始终仅具有两个记录。

并且op文件将是一个连接在一起的文件,如下所示:FB / 115..LRECL现在现在变得有点混乱,但是我稍后会对其进行调整...

码:
  =COLS>---- + ---- 1 ---- + ---- 2 ---- + ---- 3 ---- + ---- 4 ---- + ---- 5 ---- + ---- 6 ---- + ---- 7--
 ****** ******************************数据顶部************ ******************
 000001 TTA.TAI23.VRS.CESSDATA.G0028V00 | +000005500000 | +000000016527.50 | 0000000000
 000002 TA.TAI23.VRS.POLMSTR.G0016V00       | +000003575000 | +000000007859.92 | 0000000000
 ****** ****************************数据底部************* ***************


请问有什么分类提示吗?

@Enrico:这次的帖子怎么样??? icon_smile.gif
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10718
所在地:意大利

发布发表:2010年11月18日,星期四,下午7:04
引用回复

对我来说看上去很好,
至少美学,对于内容,您将不得不等待下一个情节 icon_biggrin.gif
回到顶部
查看用户资料 发送私信
阿伦·拉吉(Arun Raj)

主持人


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

发布发表:2010年11月18日,星期四,9:13 pm
引用回复

您如何生成文件1(LRECL 115)?它与文件2中的数据有何关系?

这两个文件的记录数总是一样吗?如果不是,请显示一个示例,显示所有可能的输入组合(文件1记录数> or <file-2 rec count)和预期的输出。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月18日,星期四11:00 pm
引用回复

嗨,阿伦,

文件一个是一种控制文件,其中包含2个数据op文件的总记录计数,其gdg版本名称将是合并op文件的第一个字段。

就像在最后一个屏幕截图中一样...第一个记录显示cessdata文件的控制总数,第二个记录显示polmstr文件的ctrl记录。
每次运行后,每次gdg版本名称及其对应的控件总值都会有所不同。

我每次都只需要串联这两个文件...希望这能解释。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月18日,星期四,11:05 pm
引用回复

我无法从程序中获取控制文件的所有必需数据(gdg代 从版本更正 名称),y使第一个字段为空。然后通过idcams listcat,我将它们的名称保存在另一个文件中,现在我想在控制文件的空白字段中进行填充……没有其他操作或组合,只需简单的串联即可。
回到顶部
查看用户资料 发送私信
阿努·达万(Anuj Dhawan)

高级会员


已加入:2006年4月22日
帖子:6250
地点:印度孟买

发布发表:2010年11月19日,星期五,下午5:05
引用回复

这不是一个类似的主题: www.ibmmainframes.com/viewtopic.php?t=52170&highlight=
回到顶部
查看用户资料 发送私信
阿伦·拉吉(Arun Raj)

主持人


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

发布发表:2010年11月19日,星期五,下午6:42
引用回复

阿奴

这与OP提出的问题完全相同。尝试多种选择。 icon_biggrin.gif
回到顶部
查看用户资料 发送私信
阿伦·拉吉(Arun Raj)

主持人


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

发布发表:2010年11月19日,星期五,下午6:56
引用回复

引用:
该文件是一种控制文件,其中包含2个数据操作文件的总记录计数,其gdg版本名称将是合并的操作文件的第一个字段
ksouren007,

我在问如何或由哪个进程生成/写入此控制文件?

哎呀。对不起,阿努。我只是注意到我拼错了你的名字。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月19日,星期五,9:02 pm
引用回复

确实...但是我想了解这两种方式...我认为学习不会造成任何伤害 icon_smile.gif
回到顶部
查看用户资料 发送私信
阿伦·拉吉(Arun Raj)

主持人


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

发布发表:星期五十一月19,2010 11:47下午
引用回复

引用:
但是我想知道两种方式
但是您似乎不愿意通过不回答所提出的问题来帮助自己。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年11月20日星期六12:25 pm
引用回复

1.我有一个COBOL程序,该程序生成两个数据文件和一个控制文件。

2.运行程序的作业步骤有3个以上的o / p文件。

3.在已经给出结构的控制文件中,LRECL 115 FB始终仅需保留两个记录。该文件的第一个字段将包含在该步骤本身中生成的数据文件的相应GDG文件名。该程序填充了其他文件。仅第一字段保留为空。

4.在接下来的步骤中,我将获取最新一代的数据文件,并运行IDCAMS listcat和其他排序过程,以将它们的gdg版本名称存储在其他文件中。 LRECL 44 FB。

5.现在我只想用各自的文件名来填充原始控制文件中的空白。

其余内容如上面的截图所示。希望这可以解释整个过程。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年12月3日,星期五,下午5:38
引用回复

在阅读了有关IDCAMS的一系列手册之后,...

下面的代码将直接获取GDG文件的最新版本,并消除其他细节。

无需其他排序步骤即可获取最新版本的GDG名称。

也许evryone会知道这一点,但我仍然知道,以防将来有人面临相同的要求,这可能会有帮助!
感谢你的帮助。

码:
000004 // GDGNAME EXEC PGM = IDCAMS,COND =(0,NE)                         
000005 // *************************************************** ************
000006 // *                                                           
000007 // * STEPLIB   DD DISP = SHR,DSN = ETA.T.S1MAIN.LOAD               
000008 // *                                                           
000009 // *************************************************** ************
000010 // DD1       DD DISP = SHR,DSN = TTA.TAI23.VRS.POLMSTR.SORT(0)     
000011 // DD2       DD DISP = SHR,DSN = TTA.TAI23.VRS.CESSDATA.SORT(0)   
000012 // SYSTSPRT  DD SYSOUT=*                                       
000013 // SYSPRINT DD DSN = TTA.TAI23.GDGNAME.SYSPRINT,               
000014 //             DISP=(,CATLG,DELETE),                         
000015 //             SPACE=(TRK,(35,45),RLSE),UNIT=TEST             
000016 // *            DCB=(DSORG = PS,RECFM = FB,LRECL = 80,BLKSIZE = 0)     
000017 // SYSOUT    DD SYSOUT=*                                       
000018 // AMSDUMP   DD SYSOUT=*                                       
000019 // SYSIN     DD *                                             
000020  PRINT INFILE(DD1) COUNT(0) CHAR                             
000021  PRINT INFILE(DD2) COUNT(0) CHAR                             



您将获得以下输出,它们是GDG文件的最新版本。

码:
000001 1IDCAMS  SYSTEM SERVICES                                     
000002 0                                                           
000003   PRINT INFILE(DD1) COUNT(0) CHAR                           
000004 1IDCAMS  SYSTEM SERVICES                                     
000005-数据集列表-TTA.TAI23.VRS.POLMSTR.SORT.G0008V00   
000006 0IDC0005I处理的记录数为0                 
000007 0IDC0001I已完成功能,最高条件代码为0   
000008 1IDCAMS  SYSTEM SERVICES                                     
000009 0                                                           
000010   PRINT INFILE(DD2) COUNT(0) CHAR                           
000011 1IDCAMS  SYSTEM SERVICES                                     
000012-数据集列表-TTA.TAI23.VRS.CESSDATA.SORT.G0008V00   
000013 0IDC0005I处理的记录数为0                 
000014 0IDC0001I功能已完成,最高条件代码为0   
000015 1IDCAMS  SYSTEM SERVICES                                     
000016 0                                                           
000017 0IDC0002I IDCAM处理完成。最大条件代码
****** ****************************数据底部************* ***
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2010年12月3日,星期五8:47 pm
引用回复

您好,

版本再次被滥用。 。 。

注意事项- “我们不需要steenkin”版本 . . .

这显示的是最新的 .
回到顶部
查看用户资料 发送私信
阿伦·拉吉(Arun Raj)

主持人


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

发布发表:2010年12月7日,星期二,12:19 pm
引用回复

引用:
无需其他排序步骤即可获取最新版本的GDG名称。
但是我不认为它具有“节省步骤”的优势。根据您的要求,您需要提取最新一代的文件名并将其修复为另一个文件中包含的数据。
回到顶部
查看用户资料 发送私信
ksouren007

新的用户


已加入:2010年6月30日
帖子:85
地点:安大略省多伦多

发布发表:2010年12月7日,星期二,12:32 pm
引用回复

迪克

我的错 icon_sad.gif 用更通俗易懂的术语来形容我想表达的内容!!

下面应该申请我的以上职位。

码:
C ALL'VERSION''GENERATION'


阿伦

这节省了我的中间排序步骤,因为列表猫输出以升序排列,所以我是根据世代号以降序对列表猫输出进行排序,我的意思是最早的一代。

现在,随着我马上获得最新一代的信息,我可以在下一步本身中垂直合并这两个文件。因此保存了一张分类卡。
回到顶部
查看用户资料 发送私信
阿伦·拉吉(Arun Raj)

主持人


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

发布发表:2010年12月7日,星期二,12:47 pm
引用回复

酸en

您能展示一下最终JCL以及控制卡的样子吗?
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL& VSAM 转到页面 1, 2  下一页

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出文件 DFSORT / ICETOOL 11
没有新帖 建立排序键 DFSORT / ICETOOL 3
没有新帖 很大排序失败-寻求识别... DFSORT / ICETOOL 7
没有新帖 使用SORT进行日期转换 同步排序 4
没有新帖 哪个SORT实用程序可以改善性能? DFSORT / ICETOOL 16
搜索我们的论坛:


回到顶部