COBOL ILE中如何访问DTAQ?

发布: 2007-6-08 22:43 | 作者: seanhe | 来源: | 查看: 36次 | 进入软件测试论坛讨论

查了一下本论坛的记录，有RPG和C的SAMPLE。
请哪位大侠给个COBOL的SAMPLE。

另外监视DTAQ的程序一般如何结束?是不是无限循环直到从DTAQ里接到一个结束指令？

hsiang_wang 回复于：2004-11-09 16:25:01

你的问题能否清楚些？你想对DTAQ进行怎样操作在COBOL中？

PETER CAO 回复于：2004-11-09 16:59:35

做的事情是：监视一个DTAQ，从其接收数据，处理完后，把结果放到另一个DTAQ里。
数据可能任何时候来。

初学AS400，请多指教。

hsiang_wang 回复于：2004-11-10 08:52:27

发送DTAQ：
C                     CALL 'QSNDDTAQ'
C                     PARM           DTAQ
C                     PARM           LIB
C                     PARM           LEN
C                     PARM           DATA
接收DTAQ：
C                     CALL 'QRCVDTAQ'
C                     PARM           DTAQ
C                     PARM           LIB
C                     PARM           LEN
C                     PARM           DATA
C                     PARM           WAIT
以上是RPG的例子。有KEY的DTAQ你再看看帮助吧，COBOL中的参数用！USING！

PETER CAO 回复于：2004-11-10 12:41:44

Thank you!