sample2.ccs.bak

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

/*
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<10;i++)
	{
		RsAddRow();
		sprintf(s,"%2d",i);
        RsSetCol(1,s);
		sprintf(si,"%4d",i*9);
        RsSetCol(2,si);
		RsSaveRow();
	}
	PrintStatus("sample2 end");
	ExitEasyCics();
}