RPG简单例子

发送数据包SNDFLDDTAQ的程序代码:

  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 ****************************************

1。变量应该在D-SPEC 定义好
2
SET ON *INLR的作用是文件复位,变量复位
3
SET ON *INLR之后应该 RETURN

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值