免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 请教一个问题，高手不难，我这样的就为难了
12下一页
最近访问板块 发新帖
查看: 2223 | 回复: 11
打印 上一主题 下一主题

请教一个问题，高手不难，我这样的就为难了 [复制链接]

江海天

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2004-11-05 08:44 |只看该作者 |倒序浏览
我用rpg可以很容易的取到当前的系统日期T，但是我能不能很容易的得到系统的上一个日期T-1呢？


非得编程才能得到T-1么？


请诸位指一条明路
hsiang_wang

论坛徽章:
0
2楼 [报告]
发表于 2004-11-05 08:51 |只看该作者

请教一个问题，高手不难，我这样的就为难了

我这有只程序可以实现你的需要！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
江海天

论坛徽章:
0
3楼 [报告]
发表于 2004-11-05 08:55 |只看该作者

请教一个问题，高手不难，我这样的就为难了

hsiang_wang,希望能得到你的帮助，可以把源码发给我么
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
xuguopeng

论坛徽章:
0
4楼 [报告]
发表于 2004-11-05 09:10 |只看该作者

请教一个问题，高手不难，我这样的就为难了

应该很简单的啊 用SUBDUR就可以
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
江海天

论坛徽章:
0
5楼 [报告]
发表于 2004-11-05 09:17 |只看该作者

请教一个问题，高手不难，我这样的就为难了

SUBDUR?

好，我看看REF去。不明白再回来请教
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
xuguopeng

论坛徽章:
0
6楼 [报告]
发表于 2004-11-05 09:19 |只看该作者

请教一个问题，高手不难，我这样的就为难了

  1. 0001.00 HDATFMT(*ISO)                                                     
  2. 0003.00 DDATEB            S               D   DATFMT(*ISO)               
  3. 0003.01 DDATED            S               D   DATFMT(*ISO)               
  4. 0004.00 D                 DS                                             
  5. 0005.00 D YMD                     1     10                                
  6. 0006.00 D YY                      1      4S 0                             
  7. 0007.00 D D1                      5      5                                
  8. 0008.00 D MM                      6      7S 0                             
  9. 0009.00 D D2                      8      8                                
  10. 0010.00 D D3                      9     10S 0                             
  11. 0011.00 D                 DS                                             
  12. 0012.00 D #YMD                    1      8S 0                             
  13. 0013.00 D Y5                      1      4S 0                             
  14. 0014.00 D M5                      5      6S 0                             
  15. 0015.00 D D5                      7      8S 0                             
  16. 0016.00 C     *ENTRY        PLIST                                         
  17. 0017.01 C                   PARM                    SYSDATE           8 0
  18. 0017.02 C                   PARM                    RCVDATE           8 0
  19. 0017.03 c                   PARM                    DFDAT             5 0
  20. 0022.00 C                   Z-ADD     SYSDATE       #YMD                  
  21. 0023.00 C                   Z-ADD     Y5            YY                     
  22. 0024.00 c                   Z-ADD     M5            MM                     
  23. 0025.00 c                   Z-ADD     D5            D3                     
  24. 0026.00 c                   MOVE      '-'           D1                     
  25. 0027.00 C                   MOVE      '-'           D2                     
  26. 0028.00 C                   MOVEL     YMD           DATEB                  
  27. 0028.01 C                   Z-ADD     RCVDATE       #YMD                  
  28. 0028.02 C                   Z-ADD     Y5            YY                     
  29. 0028.03 c                   Z-ADD     M5            MM                     
  30. 0028.04 c                   Z-ADD     D5            D3                     
  31. 0028.05 c                   MOVE      '-'           D1                     
  32. 0028.06 C                   MOVE      '-'           D2                     
  33. 0028.07 C                   MOVEL     YMD           DATED                  
  34. 0029.00 C     DATED         SUBDUR    DATEB         DFDAT:*D          5 0  
  35. 0029.01 C                   IF        DFDAT < 0                           
  36. 0029.02 C                   EVAL      DFDAT = DFDAT * -1                  
  37. 0029.03 C                   ENDIF                                          
  38. 0031.00 C                   SETON                                        LR
  39. 0032.00 c                   RETURN                                         
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
江海天

论坛徽章:
0
7楼 [报告]
发表于 2004-11-05 09:33 |只看该作者

请教一个问题，高手不难，我这样的就为难了

哈哈，
老大，你提供的这个源程序很好。

不过和我的问题可不一致啊。我不是要求两个日子的差

不过从我看REF来看，SUBDUR的另外一种用法是可以实现我的需要的。

——真的，就差您这一点拨。

谢谢！！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
bpcsusr

论坛徽章:
0
8楼 [报告]
发表于 2004-11-05 09:38 |只看该作者

请教一个问题，高手不难，我这样的就为难了

给你个例子.
C                   MOVE      UDATE         DATCUR  
C     WEEKD         IFEQ      '*MON'               
C     DATCUR        SUBDUR    2:*D          DATINPUT
C                   ELSE                           
C     DATCUR        SUBDUR    1:*D          DATINPUT
C                   ENDIF
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
winner_530

论坛徽章:
0
9楼 [报告]
发表于 2004-11-05 09:38 |只看该作者

请教一个问题，高手不难，我这样的就为难了

有一个函数是可以将日期加、减多少的，adddur，当然你不可能直接得到当前日期前一天的日期的不用程序写代码的方法。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
江海天

论坛徽章:
0
10楼 [报告]
发表于 2004-11-05 09:46 |只看该作者

请教一个问题，高手不难，我这样的就为难了

好，也谢谢两位。

让我又体会到不少……

谢谢！！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP