精通COBOL－－16.8 CICS中的队列

　　CICS中的队列相当于一块临时缓冲区，用于以队列的形式存放临时数据。在CICS的队列中提供两种数据组织机制。这两种机制分别为瞬时数据（Transient Data）和临时存储（Temporary Storage）。下面重点只介绍临时存储。

当将数据写入临时存储队列中时，是通过WRITEQ命令实现的。例如，以下代码将把文件“TESTF”中的数据依次写入到临时存储队列之中：

IDENTIFICATION  DIVISION.

PROGRAM-ID.  WTSPGM.                                

*

 ENVIRONMENT  DIVISION.

*

 DATA  DIVISION.

 WORKING-STORAGE  SECTION.

 ……

*

 PROCEDURE  DIVISION.

   ……

     EXEC  CICS  STARTBR   FILE('TESTF')                  

                               RIDFLD(RECKEY)                   

                               RESP(RCVERR)                     

                               END-EXEC                          

     IF RCVERR = DFHRESP(NORMAL)                        

              STRING EIBTRMID EIBTRNID                     

                 DELIMITED BY SIZE INTO TS-ID          

              MOVE 1 TO TS-ITEMNO                          

              PERFORM UNTIL RCVERR = DFHRESP(ENDFILE)      

                EXEC  CICS  READNEXT   FILE('TESTF')           

                                            INTO(REC-FIELD)           

                                            RIDFLD(RECKEY)                           

                                            LENGTH(RECL)              

                                            RESP(RCVERR)              

                                            END-EXEC                  

                IF RCVERR = DFHRESP(NORMAL)                  

                       EXEC CICS WRITEQ TS QUEUE(TS-ID)             

                                              FROM(REC-FIELD)          

                                              LENGTH(RECL)             

                                              ITEM(TS-ITEMNO)          

                                              RESP(TS-RCVERR)          

                                              END-EXEC                 

                       ADD 1 TO TS-ITEMNO                              

                END-IF                                          

              END-PERFORM                                     

              EXEC  CICS  ENDBR  FILE('TESTF')  END-EXEC      

   ……

需要注意的是，对于临时存储队列，对其进行操作时通常会涉及到一个称作ITEM的选项。ITEM按顺序记录了队列中每一数据记录的编号，可用于对记录进行直接访问。

对临时存储队列同样也可进行读取和删除。其中读取队列中指定数据记录（通过ITEM编号指定）的CICS命令如下：

EXEC  CICS  READQ  TS  QUEUE(TS-ID)

                            INTO(TS-REC)

                            LENGTH(TS-RECL)

                            ITEM(TS-ITEMNO)

                            RESP(TS-ERR-CODE)

                            END-EXEC.

对整个临时存储队列进行删除的CICS命令如下：

EXEC   CICS  DELETEQ  TS  QUEUE(TS-ID)

                               END-EXEC.