sample4.c.bak

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

/*****************************************************************************/
/*
调用服务端的结果集的例子
testec.exe: ec.obj testec.obj
	link sample2.obj ec.obj cclwin32.lib
ec.obj: ec.c
	cl /c /DCICS_W32 ec.c
testec.obj: testec.c ec.h
	cl /c sample2.c
*/
//也可 make sample2
/*-------------------------- 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);
	r=CallProgramAndCommit("SAMPLE4");

    //r=CallProgramAndCommit("GETTIME");
	
    printf("返回码是 %d\n",r);
	if (r)
	{
		    printf("调用不成功 %d\n",r);
			return;
	}
	GetValue("NAME",s);
	printf("NAME=  %s\n",s);
    RsOpen();
	rn=RsGetRowNum();
	cn=RsGetColNum();
	printf("%3d 行，%3d 列 \n",rn,cn);
    for(i=1;i<=rn;i++){
		RsFetchRow();
		for(j=1;j<=cn;j++){
			RsGetCol(j,s);
			printf(s);
			printf(",");
		}
		printf("\n");
	}
	printf("结束");

}