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

				
				/*****************************************************************************/
				/*
				调用服务端的结果集的例子
				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("SAMPLE2");
				
				    //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						RsFetchRow();
						for(j=1;j							RsGetCol(j,s);
							printf(s);
							printf(",");
						}
						printf("\n");
					}
					printf("结束");
				
				}