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

使用COBDFSYM生成SYMNAMES


IBM大型机论坛 -> 清单& REXX
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
陀螺仪

活跃的成员


已加入:2009年7月31日
帖子:565
地点:班加罗尔

发布发表:2012年6月5日,星期二,下午3:31
引用回复

你好

我正在尝试使用COBDFSYM生成SYMNAMES。但是,我无法为whens子句生成SYMNAMES。

示例:抄写本

码:

01  XXX-RECORD.                                               
  03  XXX-BEGIN.                                               
    05  FILE-SIZE             PICTURE S9(4) COMP.             
    05  FILE-NAME             PICTURE X(2).                   
  03  XXX-KEY.                                                 
    05  KEY-G2-VARI           PICTURE X(50).                   
    05  FILLER               重新定义KEY-G2-VARI。           
        10  KEY-G2Y.                                           
            15  KEY-XXX-ACCT  PICTURE S9(15) COMP-3.           
            15  KEY-XXX-DATE  PICTURE S9(8)  COMP.             
            15  FILLER        PICTURE X(38).                   
  03  XXX-DATA.                                               
    05  XXX-LST-CHG-DATE      PICTURE S9(8)     COMPUTATIONAL.
    05  XXX-LEVEL-EACH        OCCURS 02 TIMES                 
                             由XXX-LEVL-INDEX表示。       
        10  XXX-LEVEL-IND     PICTURE 9.                       
        10  XXX-REPT-EACH     OCCURS 03 TIMES                 
                             由XXX-REPT-INDEX表示。       
            15  XXX-REPT-PERCENT                               
                              PICTURE S9(03)V9(06) COMP-3.   


生成的输出SYMNAMES:
码:

XXX记录1,90,CH                           
XXX-BEGIN,1,4,CH                             
FILE-SIZE,1,2,FI                             
文件名,3,2,CH                             
XXX键,5,50,CH                               
KEY-G2-VARI,5,50,CH                           
KEY-G2Y,5,50,CH                               
KEY-XXX-ACCT,5,8,PD                           
KEY-XXX-DATE,13,4,FI                         
XXX-DATA,55,36,CH                             
XXX-LST-CHG-DATE,55,4,FI                     
XXX-EACH,59,16,CH                       
_1,1,Index-Nam,CH                             
XXX-LEVEL-IND,59,1,ZD                         
XXX-REPT-EACH,60,5,CH                         
_2,1,Index-Nam,CH                             
XXX-REPT-PERCENT,60,5,PD       


我们可以看到,SYMNAMES的出现子句具有 _1,1,Index-Nam,CH .

有人可以让我知道当抄写本中有出现子句时如何正确生成SYMNAMES吗?

提前致谢。
回到顶部
查看用户资料 发送私信
比尔·伍德格

主持人荣誉


加入时间:2011年3月9日
帖子:7311
位置:矩阵内部

发布发表:2012年6月5日,星期二,下午4:12
引用回复

很高兴看到有人使用SYMNAMES :-)

OCCURS无法直接反映,在Sort产品中没有下标。您需要付出一些额外的手动或程序性工作才能为每个事件指定一个唯一的名称。

对于数据定义,请尝试:

码:
场1,30,7,PD
FIELD-2 *,=,=
FIELD-3 *,=,=


*将使用下一个可用的起始位置(FIELD-2的起始位置为37),而=将“复制”前一个字段在该位置的信息,因此所有长度和类型都将相同,而无需显式编码。

可以在SYMNOUT中检查所有内容,并将其扩展到实际位置,长度和类型。
回到顶部
查看用户资料 发送私信
陀螺仪

活跃的成员


已加入:2009年7月31日
帖子:565
地点:班加罗尔

发布发表:2012年6月5日星期二5:17 pm
引用回复

谢谢比尔
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


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

发布发表:2012年6月5日,星期二,11:51 pm
引用回复

您正在Rexx中进行此操作吗?
回到顶部
查看用户资料 发送私信
陀螺仪

活跃的成员


已加入:2009年7月31日
帖子:565
地点:班加罗尔

发布发表:2012年6月6日星期三下午12:14
引用回复

嗨尼克

COBDFSYM是IBM提供的Rexx例程,用于从cobol抄写本生成SYMNAMES。但是此例程无法正确处理Occurs子句...
回到顶部
查看用户资料 发送私信
唐·雷西

活跃的成员


已加入:2010年7月6日
帖子:696
地点:加拿大安大略省惠特比

发布发表:2012年6月6日,星期三6:02 pm
引用回复

我也注意到COBDFSYM中的小故障。 IBM按“原样”提供它,并且您可以随意更改它。

例如,我解决了一个影响可变大小组的问题。 (不幸的是,我不记得问题出在哪里)。我还添加了两个输入参数,一个用于指示起始偏移量(对于VB文件方便),另一个用于控制在符号名称中使用连字符(-)还是下划线(_)。

我还添加了一个生成MAPDEF结构的功能(REXX IMS可以使用它来解析IMS段)。

无论如何,我的观点是,如果COBDFSYM无法按照您想要的方式工作,请进行更改。这是Rexx,而不是火箭科学。 icon_cool.gif
回到顶部
查看用户资料 发送私信
蒙蒙的

新的用户


加入:2020年5月6日
帖子:7
所在地:美国

发布发表于:2020年5月6日,星期三6:55 pm
引用回复

我注册只是为了可以与COBDFSYM共享此修复程序。

我已经使用了几年了,很喜欢它,当我们从cobol编译器V4升级到V6对该程序造成阻碍时,我感到非常难过。幸运的是,这是一个相当简单的更新程序。
这是您需要使其与V6(我假设是V5)编译器兼容的修复程序。
我将其发布在一些论坛上,以便其他人也可以找到同样的问题。

改变这条线
解析var行 92 asmdef datatyp .

解析var行 87 asmdef datatyp .

并添加此行

直到左(line,1)='1'
call Put_line
parse pull line
if pos('数据分区图的结尾',行)<> 0 then leave
end
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 SYMNAMES使用COBDFSYM进行OCCURS cl ... 清单& REXX 10
没有新帖 SYMNAMES问题 DFSORT / ICETOOL 7
没有新帖 如何在SYMNAMES中获取上个月 同步排序 9
没有新帖 昨天的日期使用SYMNAMES和F ... DFSORT / ICETOOL 2
没有新帖 SORT卡中的符号 DFSORT / ICETOOL 2
搜索我们的论坛:


回到顶部