sample1.c.bak

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

/*****************************************************************************/
/*
testec.exe: ec.obj testec.obj
	link sample1.obj ec.obj cclwin32.lib
ec.obj: ec.c
	cl /c /DCICS_W32 ec.c
testec.obj: testec.c ec.h
	cl /c sample1.c
*/
/*-------------------------- HEADER FILES ------------------------------------*/

#include "time.h"

#include "ec.h"


void main(){
char s[200];

    int r;
	printf("begin\n");
	r=ConnectServer( "CICS01", "TEST", "TEST" );
    if (r)
    {
    printf("连接不成功 %d\n",r);
	return;
	}
	printf("连接成功，返回码是 %d\n",r);
	r=CallProgramAndCommit("SAMPLE1");

    //r=CallProgramAndCommit("GETTIME");
	
    printf("返回码是 %d\n",r);
	GetValue("TIME",s);
	printf("TIME=  %s\n",s);

	GetValue("NAME",s);
	printf("NAME=  %s\n",s);

	printf("结束");

}