精通COBOL－－16.3.5 获取CICS的终端信息

　　在第一节中曾讲到，每一个任务都有一个与之对应的EIB。CICS的终端信息正是通过EIB得到的。

需要注意的是，由于任务可以在不同的终端上启动，因此得到的终端信息也是不同的。也就是说，终端信息是基于任务而言的，这点同每一任务中EIB的惟一性是相对应的。

此处所说的终端信息，主要是指终端在CICS中的设备编号。终端编号是通过EIB中的信息EIBTRMID提供的。以下程序将直接通过EIBTRMID得到相应的终端设备编号，并从屏幕第二行的第一列开始将其输出：

IDENTIFICATION  DIVISION.

PROGRAM-ID.  TERMPGM1.

*

 ENVIRONMENT  DIVISION.

*

 DATA  DIVISION.

 WORKING-STORAGE  SECTION.

01  MSG1    PIC  X(80).

*

 PROCEDURE  DIVISION.

STRING  ‘TERMINAL  ID  IS:  ‘  EIBTRMID