CICS简单入门例程
CICS环境构架
1 安装服务器
1) 建立用户CICSTEST(要用超户权)
2)用CICSTEST用户登录
3)安装DB2指定CICSTEST为管理用户
源代码在线查看: sample3.c.bak
/*****************************************************************************/
/*
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("结束");
}