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

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

最后

以上就是贤惠钢铁侠为你收集整理的RPG简单例子的全部内容，希望文章能够帮你解决RPG简单例子所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。