实验1-熟悉CICS环境.docxVIP

一．实验目的：熟悉CICS常用事务，编程简单CICS应用程序，掌握CICS应用程序的结构和编译方法，同时掌握CICS系统定义和安装资源的方法二．实验要求：（1）使用基本的CICS命令编写程序；（2）CICS-SUPPLIEDTRANSACTION三．实验步骤：（1）使用基本的CICS命令编写程序；1、 相关数据集的准备。注意： 大机环境中enter执行键是指ctrl键 所有的YNTE01改为你的账号 所有的程序名，以账号开头，程序名不能超过8个字符 所有的事务名，以nnnm表示，其中nnn表示你帐号中的三位数字，m表示数字，事务名不能超过4个字符。用分配给大家的账号登陆大机IP：52端口:23在主界面选3.2,然后按下图提示建立各数据集（注意，大家的数据集必须以你们的账号作为名字的第一部分）YNTE01.ONLINE.MAPDEF：存放屏幕映射YNTE01.ONLINE.COBOL：存放程序源代码YNTE01.ONLINE.CNTL ：存放JCL程序YNTE01.ONLINE.LIBRARY ：存放中间结果YNTE01.ONLINE.LOAD ：存放编译结果前四个数据集的参数见下图三：图1：主界面选3.2图2：创建新数据集图三：数据集的参数创建YNTE01.ONLINE.LOAD数据集参数见图四。图四：存放编译程序数据集参数2、 编写源程序3、 编译源程序连续键入两次回车，如果编译无错，则MAXCC=0如有错，可以按照下列步骤查看调式按ctrl键，列出所有作业，按功能键F8向下翻，找到你想查看的作业名（比如：YNTE01C）。上面返回码是0，表示无错。如有错，在此屏幕上可以查看到源代码级的错误或逻辑错误。如有错，请修改源程序，重新编译。4、 连续按F3键，（选择2，删除垃圾文件），输入LOGOFF，退出TSO5、 在cics中将程序与事务绑定进入cics输入账号和密码按Pause键清屏，然后定义、安装程序和事务资源注意： 所有的YNTE01改为你的账号 所有的程序名，以YNnn开头（nn表示你帐号中的后两位数字），程序名不能超过8个字符 所有的事务名，以Ynnm表示，其中nn表示你帐号中的后两位数字，m表示数字，事务名不能超过4个字符，比如Y010、Y011；Y020、Y021等等。每条命令单独执行CEDADEFPROG(YT1HELO)G(YNTE01G)CEDADEFTRANS(YNT7)G(YNTE01G)PROG(YT1HELO)CEDAINSPROG(YT1HELO)G(YNTE01G)CEDAINSTRANS(YNT7)G(YNTE01G)6、 运行事务在CICS环境中输入事务名：YNT7，按执行键即可（2）CICS-SUPPLIEDTRANSACTIONIntroduction:1.Sign-on(CESN)andSign-off(CESF)2.OperatorTerminalTransaction(CEOT)3.MessageSwitching(CMSG)4.MasterTerminaloperations(CEMT)5.On-Lineresourcedisplay(CEDC)6.On-Lineresourcedefine(CEDA)7.CommandInterpreter(CECI)8.TemporaryStorageBrowse(CEBR)9.ExecutionDiagnosticFacility(CEDF)10.CMAC(CICSMessagesandCodes)Key1.Pause键——clearscreen2.F3——exitkey3.每个交易执行完毕后，都需要先按F3,然后再按PAUSE键，达到清屏的效果Steps1.Enter==CICSA,thenpressPausekey.2.CESN:thistransactionforlogon.3.CEOTWhat’sinthe“Ter”?RememberitSampleTer(0076)4.CMSG’THISISATESTMESSAGEToME’,R=XXXX,H,SXXXX==Ter(0076)00765.CEMTITRANSACTION:CEDACEDCCEDFCECICEBRCESTCESNCESF6.CEMTIPROGRAM7.CEMTIPROG(DFH*)8.CEMTIFILE9.CEMTIDB2ENTRY10.CEDCDGROUP(YNTE01G)：改为你的账号11.CEDCEXPANDGROUP(YNTE01G)PROGRAM(*)：改为你的账号12.CEDCVIEWGROUP(YNTE01G)TRANSACTION(事务名)：改为你的账号和事务名