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

卸载:导致错误的布局


IBM大型机论坛 -> DB2
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
村里922

新的用户


加入:2005年7月25日
帖子:92
地点:印度

发布发表:2007年8月2日,星期四,9:08 pm
引用回复

码:
选择“ H”作为RECORD_TYPE                                     
     , 焦炭(CURRENT DATE, ISO)|| ''AS CARD_ACCT_PLSTC_NO   
从SYSIBM.SYSDUMMY1     


当我在SPUFI中使用相同的查询时,它很好用。但是,当我将记录放入FILE时,出现了错误。

在SPUFI中,输出如下所示:
--------- + --------- + --------- + --------- + --------- + --
RECORD_TYPE CARD_ACCT_PLSTC_NO
--------- + --------- + --------- + --------- + --------- + --
H 2007-08-02

当我将其卸载到文件中时,结果如下:
..H..2007-08-02

我希望输出是这样的:
H2007-08-02

先谢谢您的帮助。 icon_biggrin.gif
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2007年8月2日,星期四,9:29 pm
引用回复

码:
选择'H'||
       CHAR(CURRENT DATE, ISO)|| ''AS RECORD_TYPE_CARD_ACCT_PLSTC_NO   
来自SYSIBM.SYSDUMMY1;
回到顶部
查看用户资料 发送私信
socker_dad

活跃用户


已加入:2006年12月5日
职位:171
地点:华盛顿州西雅图

发布发表:2007年8月2日,星期四,9:46 pm
引用回复

有趣。

我尝试了dbz的代码,尽管其余部分看起来不错,但我仍然在第1列和第2列中得到了十六进制值(X'000C')。

我不知道这是为什么。 icon_confused.gif
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2007年8月2日,星期四10:32 pm
引用回复

有趣的是(X'000C')= 12以10为基数,这是数据的长度。
可能正在卸载到可变长度文件,或者在输出过程中没有关闭VLI生成器。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2007年8月2日星期四晚上10:53
引用回复

实际上0c是13,这是生成的输出的长度。

只是在开玩笑-真的是12。 。
回到顶部
查看用户资料 发送私信
Craq Giegerich

高级会员


加入时间:2007年5月19日
帖子:1512
地点:美国弗吉尼亚

发布发表:2007年8月2日星期四晚上10:57
引用回复

当您使用像'H'这样的文字时,它将被视为varchar字段,如果将其强制转换为char(1)字段,则不会在其前面获得2字节长的字段。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2007年8月2日,星期四,11:06 pm
引用回复

谢谢Craq,

我们知道为什么vli =12。(尽管我以前的帖子!)

1代表H
日期为10
日期后的空格为1。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2007年8月3日星期五12:14上午
引用回复

码:

选择投放('H' ||CHAR(CURRENT DATE, ISO) || ' '  AS 焦炭(12))
来自SYSIBM.SYSDUMMY1;
回到顶部
查看用户资料 发送私信
socker_dad

活跃用户


已加入:2006年12月5日
职位:171
地点:华盛顿州西雅图

发布发表:2007年8月3日,星期五,上午5:15
引用回复

甜!
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2007年8月3日,星期五5:36 am
引用回复

谢谢编辑我帖子的人,我不是在开玩笑。塞尔·佩恩利希
回到顶部
查看用户资料 发送私信
斯托多拉斯

活跃成员


已加入:2007年6月13日
帖子:632
地点:威斯康星州

发布发表:2007年8月3日,星期五6:36 am
引用回复

我的理解是,卸载实用程序将其卸载以与DCLGEN抄写本相匹配,以便在COBOL中使用该表。它保存comp-3等。
回到顶部
查看用户资料 发送私信
村里922

新的用户


加入:2005年7月25日
帖子:92
地点:印度

发布发表:2007年8月3日星期五10:10上午
引用回复

我原来的SQL看起来像这样:

码:
选择“ H”作为RECORD_TYPE
     , 焦炭(CURRENT DATE, ISO)|| ''AS CARD_ACCT_PLSTC_NO
 从SYSIBM.SYSDUMMY1

 UNION ALL

当AMOUNT_NO ='00'时选择案例
            THEN 'B'
            ELSE 'S'
        END AS RECORD_TYPE
     , 焦炭(CURRENT DATE, ISO)|| ''AS CARD_ACCT_PLSTC_NO
   从SYSIBM.SYSDUMMY1B

 UNION ALL

按RECORD_TYPE选择“ T”
     ,''AS CARD_ACCT_PLSTC_NO
 从SYSIBM.SYSDUMMY1
;


我需要在所有3个部分中都使用相同的布局,因为我使用UNION ALL。在这种情况下,我将无法使用大家提出的解决方案,就像我在使用您提出的解决方案一样,我根本没有变量RECORD_TYPE。

还有其他方法可以删除所有变量前面的..吗?

谢谢
回到顶部
查看用户资料 发送私信
村里922

新的用户


加入:2005年7月25日
帖子:92
地点:印度

发布发表:2007年8月3日,星期五1:32 pm
引用回复

当STU_NAME ='00'时选择案例
THEN SCHOOL_NAME
埃尔斯
在TABLE_A中以SCHOOL_NAME结尾;

SCHOOL NAME is defined in the table as 焦炭(35).

第一条记录有
教育的阿尔法衔接学校
印度商学院

第一条记录很好。但是下一个记录在开头有2个空格。
由于该字段中的值始终不会是CHAR(35),有时可能小于35个字节,
我认为需要一种解决方案来首先删除空格。
我使用过CAST,但它不起作用。我也尝试将SQL修改为:

当STU_NAME ='00'时选择案例
THEN SCHOOL_NAME
埃尔斯
在TABLE_A中以SCHOOL_NAME结尾;

当STU_NAME ='00'时选择案例
THEN SUBSTR(CAST(COMPANY_NM AS 焦炭(35)),1,35)
埃尔斯
在TABLE_A中以SCHOOL_NAME结尾;

当STU_NAME ='00'时选择案例
THEN SUBSTR(CAST(COMPANY_NM AS 焦炭(35)),1,
LENGTH(RTRIM(COMPANY_NM)))
埃尔斯
在TABLE_A中以SCHOOL_NAME结尾;

没事。让我知道您是否还有其他方法可以解决此问题。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2007年8月3日,星期五6:10 pm
引用回复

你好,

为什么不修改接收过程以按过程创建数据的方式处理数据?只要数据一致,就不成问题。 。 。?
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2007年8月3日星期五7:06 pm
引用回复

您可以将其分解为不同的步骤。看来您正在创建标题,明细和尾部记录。您可以在步骤1中创建标题,在步骤2中创建详细信息,并在步骤3中创建预告片,然后合并这三个文件。因此,在详细记录提取中不需要联合
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> DB2

 


类似主题
话题 论坛 回覆
没有新帖 使用REXX访问SDSF;我是什么 ... 清单和REXX 38
没有新帖 从CA Disp中以ARCHIVE格式卸载报告... CA产品 0
没有新帖 将压缩的十进制值转换为zon ... DB2 6
没有新帖 Outrec IFTHEN在错误的位置建立数据... DFSORT / ICETOOL 6
没有新帖 SMF记录布局 DFSORT / ICETOOL 10
搜索我们的论坛:

回到顶部