/*
CISC服務(wù)端執(zhí)接收客戶信息的例子
1 編譯 set USERLIB=easycics.obj
cicstcl -e -d -lC sample3.ccs
或者用目錄下的
make sample3.ccs
2 
打開CICS Administration Utility,
選中CICS01, 右鍵菜單選擇Resources->Program, 輸入以下值：
Program Name: SAMPLE3
Program Path: sample3.dll, (如果在COPY sample2.dll 到了當(dāng)前目錄下，否則browse 找到文件） 
在Security/DCE中, Resource Level Security Key: Public
按“Permanent”按紐
*/
#include "easycics.h"
void main(){
    int i;
	char s[10],si[5];
	if( InitEasyCics() ) ExitEasyCics();
	PrintStatus("sample3 begin");
	GetValue("X",s);
	i=atoi(s);
	BeginWrite();   //開始寫公共數(shù)據(jù)區(qū)，或清公共數(shù)據(jù)區(qū)
	SetValue("NAME","SAMPLE3");
	sprintf(s,"%d",i*678);
	SetValue("Y",s);
	PrintStatus("sample3 end");
	ExitEasyCics();
}