给初学as400/RPG的朋友提供个超级简单的例子(转)

以下的第一个程序把数据包SNDFLD发到到DTAQ，第二个程序则是从DTAQ收数据包，这是本人早期接触的极为简单的例子，希望对刚知道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