在第一节中曾讲到,每一个任务都有一个与之对应的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).