免费注册	查看新帖 \|


平台论坛博客文库

› 论坛 › 操作系统 › AS400 › 求助关于rpg与cobol

最近访问板块

发新帖

查看: 2352 | 回复: 4

求助关于rpg与cobol [复制链接]

论坛徽章:: 0

发表于 2008-09-23 08:50 |显示全部楼层

RPG里有这些
D             SDS
D @@PGMID                1    10                                        PROGRAM ID
D @@WSID             244 253                                        WORKSTATION ID
D @@USRID             254 263                                        USER ID
D @@JOBNO             264 269S 0                                     JOB NO

COBOL里怎么取这些值

文库|博客

论坛徽章:: 0

发表于 2008-09-23 09:47 |显示全部楼层

写一个CLP

RTVJOBA JOB(&WSID) USER(&USER) PRTDEV(&PRTID)

至于PGM-ID, 直接赋值吧.

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

论坛徽章:: 0

发表于 2008-09-23 10:12 |显示全部楼层

回复 #1 KienR9 的帖子

我这里有写一些COBOL方面的东西，希望能给你帮助，
http://leetow2007.bokee.com/

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

论坛徽章:: 0

发表于 2008-09-23 10:26 |显示全部楼层

不错，谢谢了

希望能写多点界面及SUBFILE那些东西

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

论坛徽章:: 0

发表于 2008-09-28 14:31 |显示全部楼层

COBOL基本上没怎么接触过

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

发新帖

Chinaunix › 论坛 › 操作系统 › AS400 › 求助关于rpg与cobol

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP