DATA_QUEUE实例

AS400 开发时可以参考

数据队列应用实例(测试过)

CRTDTAQ DTAQ(FUSL/DTAQ1) MAXLEN(64512)

CRTOUTQ OUTQ(FUSL/MYOUTQ) DTAQ(FUSL/DTAQ1)

1.DATAQ (RPGLE) -- FUSL/QRPGSRC

DDTAQNAME S 10 inz('DTAQ1 ')

DDTAQLIB S 10 inz('FUSL ')

DDTAQLEN S 5 0 INZ(1000)

DDATA S 50

DWAITTIME S 5 0 INZ(-1)

DKEYORDER S 2

DKEYLEN S 3P 0

DKEYDATA S 32766

DRMVMSG S 10 INZ('*YES')

DRCvVarSize S 5P 0

DSENDERLEN S 3P 0

DSENDERINFO S 32766

D*RMVMSG S 5P 0

DERRORCODE S 32766

DERROR S 4B 0 INZ(0)

DCOUNT S 4 0

DREPLY S 1

DReCeiver S 2322

DReCeiverLen S 4B 0 inz(2322)

DReCeiverFmt S 8 inz('RDQM0100')

DDataQName S 20 inz('DTAQ1 FUSL ')

DMeSSageSel S 272

DMeSSageSelLn S 4B 0 inz(32)

DMeSSageFmt S 8 inz('RDQS0200')

C CALL 'QCLRDTAQ'

C PARM DTAQNAME

C PARM DTAQLIB

C FOR COUNT=1 TO 5

C EVAL DATA='TEST ENTRY '+%CHAR(COUNT) +

C '-'+%CHAR(%TIME())+%Char(%Date())

C* '1' DSPLY

C* '1' DSPLY

C CALL 'QSNDDTAQ'

C PARM DTAQNAME

C PARM DTAQLIB

C PARM DTAQLEN

C PARM DATA

C* PARM KEYLEN

C* PARM KEYDATA

C ENDFOR

C DO 5

C CALL 'QRCVDTAQ'

C PARM DTAQNAME

你可能喜欢

  • perl实例精解pdf
  • ssh项目实例
  • myeclipse实例详解
  • global mapper系列教程十五
  • queue头文件
  • global mapper系列教程十九

DATA_QUEUE实例相关文档

最新文档

返回顶部