CICS简单入门例程 CICS环境构架 1 安装服务器 1） 建立用户CICSTEST（要用超户权） 2）用CICSTEST用户登录 3）安装DB2指定CICSTEST为管理用户

				/*
				CISC服务端执接收客户信息的例子
				1 编译 set USERLIB=easycics.obj
				cicstcl -e -d -lC sample3.ccs
				或者用目录下的
				make sample3.ccs
				2 
				打开CICS Administration Utility,
				选中CICS01, 右键菜单选择Resources->Program, 输入以下值：
				Program Name: SAMPLE3
				Program Path: sample3.dll, (如果在COPY sample2.dll 到了当前目录下，否则browse 找到文件） 
				在Security/DCE中, Resource Level Security Key: Public
				按“Permanent”按纽
				*/
				#include "easycics.h"
				void main(){
				    int i;
					char s[10],si[5];
					if( InitEasyCics() ) ExitEasyCics();
					PrintStatus("sample3 begin");
					GetValue("X",s);
					i=atoi(s);
					BeginWrite();   //开始写公共数据区，或清公共数据区
					SetValue("NAME","SAMPLE3");
					sprintf(s,"%d",i*678);
					SetValue("Y",s);
					PrintStatus("sample3 end");
					ExitEasyCics();
				}