微软ERP Dynamics 专业论坛 [分享]RPG简单例子

公告栏

微软ERP Dynamics Ax Axapta SL CRM Nav 专业论坛-秋毫ERP咨询论坛： http://www.QiuHao.com

控制面板

个人首页

发表文章

博客管理

链接管理

日历

2008年7月

留言簿(107)

随笔档案

文章档案

微软ERP

最新评论

阅读排行榜

评论排行榜

[分享]RPG简单例子

发送数据包SNDFLD到DTAQ的程序代码：

C *ENTRY PLIST
C PARM SNDFLD 30
C*
C MOVE *BLANKS PGM
C MOVE *BLANKS LIB
C MOVE *BLANKS FLD1 30
C*
C MOVEL'DTAQ' PGM 10 *DATAQ'S NAME
C MOVEL'*LIBL' LIB 10 *DATAQ'S LIB
C Z-ADD30 LEN 50 *DATAQ' LENTH
C MOVELSNDFLD FLD1
C*
C CALL 'QSNDDTAQ'
C PARM PGM
C PARM LIB
C PARM LEN
C PARM FLD1
C*
C SETON LR

接收数据队列中的数据包的程序代码：
H Y
IFLD DS 30
I 1 3 A4
C*
C #STAR TAG
C MOVEL*BLANKS PGM 10
C MOVEL'DTAQ' PGM
C MOVEL'*LIBL' LIB 10
C Z-ADD0 LEN 50
C Z-ADD-1 WAIT 50
C MOVE *BLANKS FLD
C*
C CALL 'QRCVDTAQ'
C PARM PGM
C PARM LIB
C PARM LEN
C PARM FLD
C PARM WAIT
C*
C MOVE *BLANKS DSP1 10
C SELEC
C A4 WHEQ 'END'
C GOTO #END
C OTHER
C 'OK!' DSPLY
C ENDSL
C GOTO #STAR
C #END TAG
C SETON LR

作者:秋毫ERP咨询阅读() 评论() 编辑发表于:2008-07-31 00:25