论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2010-04-13 17:24 |只看该作者 |倒序浏览

本帖最后由 fusl520 于 2010-04-13 17:25 编辑

以下例子演示取得当天的一年前的日期值，希望对初学者有帮助。

1. SEU录入程式RPG11,RPG22

RPG11

RPG22
2. 分别将RPG11和RPG22建立成MODULE,
3. 建立服务程式SRPG1
CRTSRVPGM SRVPGM(PCEDP09/SRPG1) MODULE(PCEDP09/RPG11) EXPORT(*ALL)
4. 建立程式RPG22
CRTPGM PGM(PCEDP09/RPG22) MODULE(PCEDP09/RPG22) BNDSRVPGM(SRPG1) OPTION(*DUPPROC)

5. 运行 RPG22即可

文库|博客

insmile

丰衣足食

论坛徽章:: 0

2楼 [报告]

发表于 2010-04-13 22:37 |只看该作者

建议楼主下个YaHei Consolas Hybrid字体，把pcomm的字体换成这个看，很不错

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

fusl520

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2010-04-14 08:23 |只看该作者

按LS的提议，搜索了一下编程的好字体：

下载Yahei Consolas Hybrid字体

参阅：
http://www.cnblogs.com/webflash/archive/2009/07/05/1517291.html

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

passthru

小富即安

论坛徽章:: 0

4楼 [报告]

发表于 2010-04-14 08:49 |只看该作者

呵呵，楼主是不是忘了什么？比如，RPG22中定义了procedures的prototype：BEFORE1YEAR，在C表处理中没有看到date2 = BEFORE1YEAR（date1）之类的代码呀？

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

fusl520

白手起家

论坛徽章:: 0

5楼 [报告]

发表于 2010-04-14 09:27 |只看该作者

谢谢楼上关注

此例的RPG22中的语句EVAL rs=Result的功能正是

相当于date2 = BEFORE1YEAR（date1）之类代码。

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

fusl520

白手起家

论坛徽章:: 0

6楼 [报告]

发表于 2010-04-14 09:31 |只看该作者

此例我今天又换了一种方法，用到RTVBNDSRC命令。
程式代码不需要改变，仍然创建RPG11,RPG22为模块。

然后分别执行以下命令：
RTVBNDSRC MODULE(PCEDP09/RPG11) SRCFILE(PCEDP09/QSRVSRC)
* 自动建立PCEDP09/QSRVSRC，以及在其中建立成员RPG11

CRTSRVPGM SRVPGM(PCEDP09/RPG11) SRCFILE(PCEDP09/QSRVSRC) OPTION(*GEN)
*用上面的成员RPG11建立服务程序RPG11

CRTPGM PGM(PCEDP09/RPG22) MODULE(PCEDP09/RPG22) BNDSRVPGM(PCEDP09/RPG11) OPTION(*GEN)
*用服务程序RPG11为模块RPG22建立程序

CALL RPG22即可。