Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1294231
  • 博文数量: 287
  • 博客积分: 11000
  • 博客等级: 上将
  • 技术积分: 3833
  • 用 户 组: 普通用户
  • 注册时间: 2007-08-16 08:43
文章分类
文章存档

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2009-05-13 09:14:43

RPGIV编程问题百解(26)V5R4 declaration overlay *next的算法
 
问题:
 
     D                 DS                                           
     D EffDate                                                     
     D   EFDTCH                            overlay(EffDate)        
     D   EFDTYH                            overlay(EffDate:*next)  
     D   EFDTMH                            overlay(EffDate:*next)  
     D   EFDTDH                            overlay(EffDate:*next)  
     D                                                            
     D   EFDTCR                            overlay(EffDate)        
     D   EFDTYR                            overlay(EffDate:*next)  
     D   EFDTMR                            overlay(EffDate:*next)  
     D   EFDTDR                            overlay(EffDate:*next)  
     D                                                        
     D   EFDTCM                            overlay(EffDate)        
     D   EFDTYM                            overlay(EffDate:*next)  
     D   EFDTMM                            overlay(EffDate:*next)  
     D   EFDTDM                            overlay(EffDate:*next)
 
    每一组的第一个字段为1S 0,其它为2S 0。没有压缩数字类型。
 
    EffDate的长度是多少?
 
回答:
 
    EFDTCH   1-1
    EFDTYH   2-3
    EFDTMH   4-5
    EFDTDH   6-7
 
    EFDTCR   1-1
    EFDTYR   8-9
    EFDTMR  10-11
    EFDTDR  12-13
 
    EFDTCM   1-1
    EFDTYM  14-15
    EFDTMM  16-17
    EFDTDM  18-19
阅读(712) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~