sample1.ccs

来自「CICS简单入门例程 CICS环境构架 1 安装服务器 1） 建立用户C」· CCS 代码 · 共 38 行

/*
作者：ddxkxk
[e-mail]
*/

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