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

删除gdg今天双色球开奖结果名的最后8个字节


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

新的用户


已加入:2006年12月2日
帖子:33
地点:钦奈

发布发表:2011年5月19日星期四上午11:53
引用回复

嗨,

我的输入今天双色球开奖结果是这样的:LRECL = 100,RECFM = FB(今天双色球开奖结果名的长度是可变的)


XXXX.ABC.FILE.ABBYS.LART.TEST.G1423V00-GDG今天双色球开奖结果
XXXX.MNO.FILE.SAMPLE.ART.TEST01.G0003V00-GDG今天双色球开奖结果
XXXX.KLM.FILE.TES101.G0203V00 -GDG今天双色球开奖结果
XXXX.ABC.FILE.TEST-平面今天双色球开奖结果

输出今天双色球开奖结果的今天双色球开奖结果名中不应包含GDG版本控制

XXXX.ABC.FILE.ABBYS.LART.TEST-GDG今天双色球开奖结果
XXXX.MNO.FILE.SAMPLE.ART.TEST-GDG今天双色球开奖结果
XXXX.KLM.FILE.TES101 -GDG今天双色球开奖结果
XXXX.ABC.FILE.TEST-平面今天双色球开奖结果


我有SYNCSORT可用。我可以不使用COBOL来实现吗
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2011年5月19日,星期四,上午11:58
引用回复

您/您组织的权力应重新审查该要求
没有最后一个限定符的GDG数据集名称/生成不再是数据集名称
它是GDG的基本名称

为什么将GDG基本名称与常规数据集混合?
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2011年5月19日,星期四,12:02 pm
引用回复

继续
如果您只有GDG,该问题可能是合理的
想要检查孤儿
(缺少gdg基础/未分类的数据集)
适当的存储管理非常值得赞扬的东西

但是正常数据集的存在令人困惑/困惑 icon_biggrin.gif
回到顶部
查看用户资料 发送私信
瓦桑斯

全球主持人


已加入:2007年8月28日
帖子:1689
地点:印度蒂鲁普布尔

发布发表:2011年5月19日,星期四1:42 pm
引用回复

您好,

您可以尝试以下工作来满足要求,
码:
// JS020    EXEC PGM=SORT                                 
// SYSOUT   DD  SYSOUT=*                                 
// SYSUDUMP DD  SYSOUT=*                                 
// 分类WK01 DD UNIT = SYSALLDA,SPACE =(CYL,1)               
// 分类WK02 DD UNIT = SYSALLDA,SPACE =(CYL,1)               
// 分类WK03 DD UNIT = SYSALLDA,SPACE =(CYL,1)               
// 分类IN   DD DSN = WELLS.SORTIN,DISP = SHR               
//整理  DD DSN = WELLS.SORTOUT,DISP = OLD               
// SYSIN    DD  *                                         
  分类 FIELDS = COPY                                       
  记录 FIELDS=(1,80,JFY=(SHIFT=RIGHT))                 
  OUTREC IFTHEN =(WHEN=(72,1,CH,EQ,C'.',AND,             
                       73,1,CH,EQ,C'G',AND,     
                       74,1,SS,EQ,C'0123456789',AND,     
                       75,1,SS,EQ,C'0123456789',AND,     
                       76,1,SS,EQ,C'0123456789',AND,     
                       77,1,SS,EQ,C'0123456789',AND,     
                       78,1,CH,EQ,C'V',AND,     
                       79,1,SS,EQ,C'0123456789',AND,     
                       80,1,SS,EQ,C'0123456789'),       
                       BUILD=(1,71,JFY=(SHIFT=LEFT))),   
         IFTHEN=(WHEN=NONE,BUILD=(1,80,JFY=(SHIFT=LEFT)))
/ *


希望能帮助到你。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2011年5月19日,星期四1:47 pm
引用回复

嗨瓦桑斯

从技术角度来看,答案是完美的
为片刻的要求应用完美的解决方案迟早会出现麻烦!

理解TS为什么将GDG基础与真实数据集混合是正确的感觉还是很高兴的 icon_cool.gif
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

发布发表:2011年5月19日,星期四,下午1:58
引用回复

实际上,考虑到OP使用的术语以及该示例的预期输出,我提出了以下问题。

如果要删除GDG版本控制(不是我的选择),那么结果肯定是

输入:
XXXX.ABC.FILE.ABBYS.LART.TEST.G1423V00-GDG今天双色球开奖结果

输出:
XXXX.ABC.FILE.ABBYS.LART.TEST.G1423V-GDG今天双色球开奖结果

也许
XXXX.ABC.FILE.ABBYS.LART.TEST.G1423-GDG今天双色球开奖结果

我是否在这里通过显示另一种误用术语而腐
回到顶部
查看用户资料 发送私信
瓦桑斯

全球主持人


已加入:2007年8月28日
帖子:1689
地点:印度蒂鲁普布尔

发布发表:2011年5月19日,星期四2:09 pm
引用回复

引用:
理解TS为什么将GDG基础与真实数据集混合是正确的感觉仍然很高兴


明智的话来自各种事物的经验 icon_smile.gif 我同意你的观点。

有时候,我没有意识到需求的真正目的,
可能是我从客户那里感染的传染病,如下所示... icon_biggrin.gif
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2011年5月19日,星期四2:10 pm
引用回复

只是好奇,发现了这种排序控制卡的替代品(与dfsort一起使用)

码:
000016   SORT   FIELDS=COPY
000017   INREC  FIELDS=(1,80,JFY=(SHIFT=RIGHT))
000018   OUTREC IFTHEN =(WHEN=(72,1,CH,EQ,C'.',AND,
000019                       73,1,CH,EQ,C'G',AND,
000020                       78,1,CH,EQ,C'V',AND,
000021                        74,4,FS,EQ,NUM,AND,
000022                        79,2,FS,EQ,NUM),
000023                 BUILD=(1,71,JFY=(SHIFT=LEFT))),
000024          IFTHEN =(WHEN=NONE,
000025                 BUILD=(1,80,JFY=(SHIFT=LEFT)))


仍然对混淆感到困惑!
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表:2011年5月19日,星期四2:53 pm
引用回复

另外:GDG数据集不是特定类型的数据集-它可以是平面(PS)数据集,转储或其他内容。仅遵循命名规范。我没有尝试过,但我想它可能是您可以编录一个数据集,该数据集不是GDG的一部分,但其dsn与GDG的格式相同。必须一段时间尝试。
回到顶部
查看用户资料 发送私信
瓦桑斯

全球主持人


已加入:2007年8月28日
帖子:1689
地点:印度蒂鲁普布尔

发布发表:2011年5月19日,星期四2:58 pm
引用回复

您好,
引用:
可能是您可以编录一个数据集,该数据集不是GDG的一部分,但其dsn与GDG的格式相同


我认为这是不可能的,尝试分配格式的数据集
USERID.G1423V00
通过3.2 ISPF失败。

不知道是否还有其他方法可以这样做。

问候,
回到顶部
查看用户资料 发送私信
kitchu84

新的用户


已加入:2006年12月2日
帖子:33
地点:钦奈

发布发表:2011年5月20日星期五12:22上午
引用回复

感谢Enrico Vasanthz-它的运行效果非常好。

现在,我可以使用它来满足我的要求。


[/码]
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2011年5月20日星期五12:30上午
引用回复

这对您很高兴,因为我们花了一些时间为您提供解决方案,
告诉我们将GCG基和正态数据集混淆的不合逻辑的原因

但是自然地,您不愿意承认这个先前表达的愿望,嗯?
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


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

发布发表:2011年5月20日,星期五,12:34
引用回复

瓦桑斯,我尝试了IEFBR14,然后又回来了
码:
IEF344I RS0BR14 IEFBR14 DD0-由于数据设施系统错误,分配失败
IGD17100I数据集意外的目录错误
XXXXXXX.TESTNGDG.G9876V00
返回码为8原因码为40 IGG0CLEH
回来作为
引用:
40说明:在带有GDG条目名称的DEFINE NONVSAM命令之前,未发出DEFINE GDG命令。

程序员响应:在使用GDG条目名称定义非VSAM之前,请确保已定义了GDG基数。
因此,看起来系统正在检查,并且不会以GnnnnVnn作为数据集名称的最后一级对任何内容进行分类。
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表:2011年5月20日,星期五,12:58
引用回复

啊-我正要玩这个。罗伯特,救了我一些(最小的)精力!
回到顶部
查看用户资料 发送私信
kitchu84

新的用户


已加入:2006年12月2日
帖子:33
地点:钦奈

发布发表:2011年5月20日,星期五,凌晨1:04
引用回复

嘿恩里科,

是的,我当然要发布详细信息...我也要处理其他办公室工作,尽管首先要感谢您,然后在到达家后提供详细的解释。

我需要获取JCL中使用的确切今天双色球开奖结果名及其计数。

1.在所有作业步骤的最后,我计划在作业运行时读取JESYSMS,然后提取作业中正在使用的所有确切今天双色球开奖结果名。 (今天双色球开奖结果名可以是GDG版本,也可以是Flat今天双色球开奖结果)。

2.现在,在较早的作业步骤中,将使用i / p今天双色球开奖结果并创建o / p数据集。我正计划创建一个包含今天双色球开奖结果名及其计数的报告今天双色球开奖结果。但是,这些今天双色球开奖结果名将不是确切的今天双色球开奖结果名。 (这些将没有确切的GDG版本号)

3.现在,我需要比较步骤1(不包括GDG版本)和步骤2(包含今天双色球开奖结果名和计数)中的确切今天双色球开奖结果名,然后最终创建一个具有确切今天双色球开奖结果名和计数的FINAL今天双色球开奖结果。

不知道这听起来是否令人困惑。请告诉我。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2011年5月20日,星期五,上午1:19
引用回复

算什么...
不要告诉我您要计算每个今天双色球开奖结果的记录 icon_eek.gif
回到顶部
查看用户资料 发送私信
kitchu84

新的用户


已加入:2006年12月2日
帖子:33
地点:钦奈

发布发表:2011年5月20日,星期五,上午1:22
引用回复

要添加到它:

由于我需要匹配2个今天双色球开奖结果,一个具有确切的今天双色球开奖结果名,另一个具有精确的今天双色球开奖结果名
基本今天双色球开奖结果名和计数。我问这个查询。

另外,我尝试更改排序卡以实现此目的。

输入今天双色球开奖结果:LERCL = 100,RECFM = FB
今天双色球开奖结果名:80字节(1:80)-后9个字节用于版本号EX:'.G1423V00'

今天双色球开奖结果数:11字节(90:11)

输入今天双色球开奖结果的最后一个字节视图:

+ ---- 9 ---- + ---- 0
****************
00024560010
00003300010
00330330010
00000005510


我使用的排序卡:

// SYSIN DD *
分类 FIELDS = COPY
记录 FIELDS =(1,80,JFY =(SHIFT = RIGHT),90,11)
OUTREC IFTHEN =(WHEN=(72,1,CH,EQ,C'.',AND,
73,1,CH,EQ,C'G',AND,
78,1,CH,EQ,C'V',AND,
74,4,FS,EQ,NUM,AND,
79,2,FS,EQ,NUM),
BUILD = [1,71,JFY =(SHIFT = LEFT),72:72,9,90:90,11)),
IFTHEN =(WHEN=NONE,
BUILD = [1,80,JFY =(SHIFT = LEFT),90:90,11))
/ *


我得到的输出:
LRECL = 100,RECFM = 80

我正确获取了今天双色球开奖结果名的前71个字节
接下来的9个字节的版本号也正确地从第72位开始。但是
今天双色球开奖结果计数未正确到达位置90。

输出今天双色球开奖结果的最后一个字节视图:

7 ---- + ---- 8 ---- + ---- 9 ---- + ---- 0
***********************************
.G1423V00 10
.G0003V00 10
.G0203V00 10
10


请给我建议。
回到顶部
查看用户资料 发送私信
kitchu84

新的用户


已加入:2006年12月2日
帖子:33
地点:钦奈

发布发表:2011年5月20日,星期五,上午1:23
引用回复

请原谅我的今天双色球开奖结果快照,粘贴时无法正确显示...
回到顶部
查看用户资料 发送私信
kitchu84

新的用户


已加入:2006年12月2日
帖子:33
地点:钦奈

发布发表:2011年5月20日,星期五,上午1:28
引用回复

在恩里科:

“算什么...
不要告诉我您要计算每个今天双色球开奖结果的记录“


是的,我们需要作业中使用的今天双色球开奖结果数。但是,由我们自行决定要显示计数的今天双色球开奖结果。因此,现在我们计划对创建该今天双色球开奖结果的现有cobols / ezt进行更改,或调用ICETOOL来获取今天双色球开奖结果计数。对于大容量今天双色球开奖结果,我们可能不希望调用ICETOOL,只是我们将更改模块以在创建今天双色球开奖结果本身时显示计数。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL和VSAM

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出今天双色球开奖结果 DFSORT / ICETOOL 11
没有新帖 比较今天双色球开奖结果记录计数百分比... DFSORT / ICETOOL 4
没有新帖 比较两个今天双色球开奖结果以查找位置/日期... 同步排序 2
没有新帖 SYSIBM表中的列名 DB2 5
没有新帖 将今天双色球开奖结果从PD转换为显示... 同步排序 4
搜索我们的论坛:


回到顶部