RPG简单例子

最新推荐文章于 2020-05-03 22:32:12 发布

feigme

最新推荐文章于 2020-05-03 22:32:12 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： as/400 文章标签： c

本文链接：https://blog.youkuaiyun.com/feigme/article/details/1527688

as/400 专栏收录该内容

18 篇文章

订阅专栏

发送数据包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

other

.....CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments++++
*************** Beginning of data *************************************
C Z-ADD1 I 30 （定义I的类型是3P0，并赋值为1）
C Z-ADD100 NUM 30 （定义NUM的类型是3P0，并赋值为100）
C Z-ADD0 TTL 50 （定义TTL的类型是5P0，并赋值为0）
C I DOWLENUM （DO WHILE I《=100》
C ADD I TTL （TTL = TTL + I）
C ADD 1 I （I = I + 1）
C ENDDO （ENDDO）
C TTL DSPLY （display TTL）
C SETON LR （程序结束）
****************** End of data ****************************************