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

根据EZT中的记录设置字段


IBM大型机论坛 -> CA产品
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
rkarthik22

新的用户


已加入:2009年4月18日
帖子:47
地点:印度

发布发表:2009年6月24日星期三下午4:36
引用回复

嗨,专家们,

我在下面有一个要求!

输入LRECL = 75 RECFM = FB

引用:
文件INFILE FB(75 0)

123mart000026-11678
123call031826-11678
8910boox000125-54789
5423lisp000132-9912555
4921java031989-10789
4921java0000th89-10789


码:
预期输出文件

匹配键   REF    ID    Mart-flg    call0318   boox0001  lisp0001  java0319  java0000th
123        26-11   678       Y          Y          N         N         N         N
8910       25-54   789       N          N          Y         N         N         N
5423       32-99   12555     N          N          N         Y         N         N   
4921       89-10   789       N          N          N         N         Y         Y


这是我的EZT代码

码:
文件输入文件FB(75 0)                         
*                                             
 IN-REC                        1     75   A     
  MATCH-KEY                    01    11   A
  TEXT                         12    20   A
  REF                          32    26   A
  ID                           58    18   A



文件输出FB(63 0)

外录                         1   213  A     
 O-MATCH-KEY                    01   11   A 
 O-REF                          12   26   A 
 O-ID                           38   18   A 
 Mart-flg                       56   1    A 
 call0318-flg                   57   1    A 
 boox0001-flg                   58   1    A 
 lisp0001-flg                   59   1    A 
 java0319-flg                   60   1    A 
 java0000th-flg                 61   1    A 
 BAIS0003-flg                   62   1    A 
 BOSS-flg                       63   1    A 

*************工作存储       
*                                                               
       
 WS-MATCH-KEY          W    11  A   
 WS-TEXT           W    20  A                                                             
 WS-REF                W    26  A                                 
 WS-ID                 W    18  A                                 
*                                                               
**********************                         

职位输入(NULL)                     
                         
  GET INFILE                               
 不要在文件中隐藏                 
       WS-MATCH-KEY =匹配键                               
       WS-REF       = REF                 
       WS-ID        = ID               
  GET INFILE                               
    IF NOT EOF INFILE                     
       IF WS-MATCH-KEY =匹配键         
           O-MATCH-KEY  = WS-MATCH-KEY       
           O-REF        = WS-REF           
           O-ID         = WS-ID       
           IF WS-TEXT  = 'mart0000'   
              Mart-flg  =  'Y'   
           END-IF                 
       ELSE       
      PUT OUTFILE
      WS-COUNTER   =  WS-COUNTER    +  1
       END-IF
END-DO 
转到工作


我无法获得预期的结果...标志设置不正确...任何人都可以帮忙
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2009年6月24日,星期三,8:29 pm
引用回复

您好,

建议您阅读输入内容并构建所需值的数组。

读取所有输入后,处理数组并创建所需的输出。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> CA产品

 


类似主题
话题 论坛 回覆
没有新帖 选择多个常量记录 DB2 3
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出文件 DFSORT / ICETOOL 11
没有新帖 合并两个以上的记录 DFSORT / ICETOOL 15
没有新帖 匹配和不匹配记录使用 DFSORT / ICETOOL 11
没有新帖 删除基于S ...的重复记录 DFSORT / ICETOOL 4
搜索我们的论坛:


回到顶部