0001.00 dDTAQNAME s 10 inz('myyDTAQ ')
0002.00 dDTAQLIB s 10 inz('myyLIB ')
0003.00 DDTAQLEN S 5 0 INZ(1000)
0004.00 DDATA S 1000
0005.00 DWAITTIME S 5 0 INZ(-1)
0006.00 DKEYORDER S 2
0007.00 DKEYLEN S 3P 0
0008.00 DKEYDATA S 32766
0009.00 dRMVMSG S 10 INZ('*YES')
0010.00 DRcvVarSize s 5P 0
0011.00 DSENDERLEN S 3P 0
0012.00 DSENDERINFO S 32766
0013.00 D*RMVMSG S 5P 0
0014.00 DERRORCODE S 32766
0015.00 DERROR S 4B 0 INZ(0)
0016.00 DCOUNT S 4 0
0017.00 DREPLY S 1
0018.00 D
0019.00 DReceiver s 2322
0020.00 DReceiverLen s 4B 0 inz(2322)
0021.00 DReceiverFmt s 8 inz('RDQM0100')
0022.00 DDataQName s 20 inz('myyDTAQ myyLIB ')
0023.00 DMessageSel s 272
0024.00 DMessageSelLn s 4B 0 inz(32)
0025.00 DMessageFmt s 8 inz('RDQS0200')
0026.00 D
0027.00 D
0028.00 c CALL 'QCLRDTAQ'
0029.00 c PARM DTAQNAME
0030.00 C PARM DTAQLIB
0045.00 C*XIE SHU JU
0046.00 C FOR COUNT=1 TO 5
0047.00 C EVAL DATA='TEST ENTRY '+%CHAR(COUNT) +
0048.00 c '-'+%CHAR(%TIME())
0049.00 C '1' DSPLY
0050.00 C '1' DSPLY
0051.00 C CALL 'QSNDDTAQ'
0052.00 c PARM DTAQNAME
0053.00 c PARM DTAQLIB
0054.00 c PARM DTAQLEN
0055.00 c PARM DATA
0056.00 c* PARM KEYLEN
0057.00 c* PARM KEYDATA
0058.00 c ENDFOR
0059.00 c*READ SHU JU
0060.00 C DO 5
0061.00 c CALL 'QRCVDTAQ'
0062.00 c PARM DTAQNAME
0063.00 c PARM DTAQLIB
0064.00 c PARM DTAQLEN
0065.00 c PARM DATA
0066.00 c PARM WAITTIME
0067.00 c* PARM KEYORDER
0068.00 c* PARM KEYLEN
0069.00 c* PARM KEYDATA
0069.00
0070.00 c* PARM SENDERLEN
0071.00 c* PARM SENDERINFO
0072.00 c* PARM RMVMSG
0073.00 c* PARM RCVVARSIZE
0074.00 c* PARM ERRORCODE
0075.00 C DATA DSPLY REPLY
0076.00 C ENDDO
0077.00 C*
0078.00 C FOR COUNT=1 TO 5
0079.00 C CALL 'QMHRDQM'
0080.00 C PARM RECEIVER
0081.00 C PARM RECEIVERLEN
0082.00 C PARM RECEIVERFMT
0083.00 C PARM DATAQNAME
0084.00 C PARM MESSAGESEL
0085.00 C PARM MESSAGESELLN
0086.00 C PARM MESSAGEFMT
0087.00 C PARM ERROR
0088.00 C ENDFOR
0089.00 c
0090.00 c eval *inlr = '1'
阅读(1361) | 评论(0) | 转发(0) |
