sample3.ccs

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

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

/*
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();
}