CICS 实验

本次试验要求：
程序和TRANSID命名严格按照要求来，??表示你的账号后两位数字；GROUP
为U3917。
任务：
实验1：
    将教材上取时间、终端例子实现，程序名为PROGB0??,TRANSID 为B0??

实验2：
    CEDA CEMT CESF CESN CMAC命令的一般用法

实验3：
    编写一个伪会话程序，程序名为PROGC0??,TRANSID 为C0??。
功能要求：
    在屏幕（3，1）显示时间，（4，1）显示日期，
（6，1）显示程序执行次数。要求用户每敲一下执行键时间刷新，
执行次数加1,用户按F3键时，在左上角提示程序正常结束，返回CICS结束会话。
执行画面如下：
PA99                     
                         
TIME IS 11:21:46         
CALENDAR DATE IS 12/21/04
                         
EXECUTED:   000021 TIMES 

提示：用EIBCALEN来判断程序是否第一执行；
      用EIBAID来判断用户按的功能键：EIBAID = DFHPF3
      DFHPF3常量定义在COPYBOOK DFHADI中，需在WORKING-STORAGE SECTION中用
      COPY语句拷贝进来：COPY DFHAID.                             
      LINKAGE SECTION中定义DFHCOMMARE来接收参数：                 
      01   DFHCOMMAREA.                
           03  EXETIME-C   PIC 9(6). 
实验4：
    编写一个伪会话程序，程序名为PROGD0??,TRANSID 为D0??。
功能要求：
    用户在屏幕左上角输入TIME，就在（4，20）显示时间；
输入DATE就在（4，20）显示日期；输入TERM就在（4，20）显示终端号；
输入QUIT或按F3就返回CICS，结束会话。

实验5：
    内容：使用SDF-II工具创建MAP，生成物理MAP和符号MAP，在CICS中对MAP进行定义、并测试。
    目的：掌握SDF-II的使用，MAP在CICS中的定义，CECI的使用。
实验6：
    内容：编写一个CICS程序，调用实验5中生成的MAP进行输入、输出、控制。
          程序名为PROGE0??,TRANSID 为E0??。
    目的：掌握在COBOL程序中使用控制MAP

实验7：
    内容：编写一个CICS程序，读取指定VSAM文件，并利用实验5中生成的MAP上进行输出。
          程序名为PROGF0??,TRANSID 为F0??。
    目的：掌握CICS程序对VSAM文件的访问。

原文转自：http://www.ltesting.net