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

				/*
				作者：ddxkxk
				ddxxkk@21cn.com
				*/
				
				/*
				CISC服务端的结果集的例子
				1 编译 set USERLIB=easycics.obj
				cicstcl -e -d -lC sample2.ccs
				或者用目录下的
				make sample1.ccs
				2 
				打开CICS Administration Utility,
				选中CICS01, 右键菜单选择Resources->Program, 输入以下值：
				Program Name: SAMPLE2
				Program Path: sample2.dll, (如果在COPY sample2.dll 到了当前目录下，否则browse 找到文件） 
				在Security/DCE中, Resource Level Security Key: Public
				按“Permanent”按纽
				*/
				#include "easycics.h"
				void main(){
				    int i;
					char s[3],si[5];
					if( InitEasyCics() ) ExitEasyCics();
					PrintStatus("sample2 begin");
					BeginWrite();   //开始写公共数据区，或清公共数据区
					SetValue("NAME","SAMPLE2");
					RsCreate(2);
				    for(i=1;i					{
						RsAddRow();
						sprintf(s,"%2d",i);
				        RsSetCol(1,s);
						sprintf(si,"%4d",i*9);
				        RsSetCol(2,si);
						RsSaveRow();
					}
					PrintStatus("sample2 end");
					ExitEasyCics();
				}