sample3.c.bak

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

/*****************************************************************************/
/*
CISC服务端执接收客户信息的例子
testec.exe: ec.obj testec.obj
	link sample3.obj ec.obj cclwin32.lib
ec.obj: ec.c
	cl /c /DCICS_W32 ec.c
testec.obj: testec.c ec.h
	cl /c sample3.c
*/
//也可 make sample3
/*-------------------------- HEADER FILES ------------------------------------*/

#include "time.h"
#include "ec.h"
void main(){
char s[200];
    int i,j,r,rn,cn;
	printf("begin\n");
	r=ConnectServer( "CICS01", "TEST", "TEST" );
    if (r)
    {
    printf("连接不成功 %d\n",r);
	return;
	}
	printf("连接成功，返回码是 %d\n",r);
	BeginWrite();
	SetValue("X","10");
	r=CallProgramAndCommit("SAMPLE3");
 
    //r=CallProgramAndCommit("GETTIME");
	
    printf("返回码是 %d\n",r);
	if (r)
	{
		    printf("调用不成功 %d\n",r);
			return;
	}
	GetValue("NAME",s);
	printf("NAME=  %s\n",s);
	GetValue("Y",s);
	printf("Y=  %s\n",s);

	printf("结束");

}