CICS中的队列相当于一块临时缓冲区,用于以队列的形式存放临时数据。在CICS的队列中提供两种数据组织机制。这两种机制分别为瞬时数据(Transient Data)和临时存储(Temporary Storage)。下面重点只介绍临时存储。
当将数据写入临时存储队列中时,是通过WRITEQ命令实现的。例如,以下代码将把文件“TESTF”中的数据依次写入到临时存储队列之中:
IDENTIFICATION DIVISION.
PROGRAM-ID. WTSPGM.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE