utelecom.~cpp

IBM 开发的easy cics通讯相关的源代码

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "uTelecom.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmTelecom *frmTelecom;
//---------------------------------------------------------------------------
__fastcall TfrmTelecom::TfrmTelecom(TComponent* Owner)
        : TForm(Owner){

}
//---------------------------------------------------------------------------
void __fastcall TfrmTelecom::btnAboutClick(TObject *Sender)
{
        oEc.About();
}
//---------------------------------------------------------------------------

void __fastcall TfrmTelecom::FormCreate(TObject *Sender){
int r;
        oEc.ConnectServer( WideString("CICS01"), WideString("TEST"), WideString("TEST") );
        r= oEc.GetErrCode();
if(r){
        ShowMessage( "connect server error!!" );
        return;
}

        }
//---------------------------------------------------------------------------

void __fastcall TfrmTelecom::btnQueryClick(TObject *Sender){
short int cn, rn, i, j;
int r;
AnsiString a_s, a_resu;

        oEc.BeginWrite();
        oEc.SetValue( WideString("NO"), WideString( txtNo->Text ) );
        oEc.CallProgramAndCommit( WideString("TELECOM") );
        r= oEc.GetErrCode();
if(r){
        ShowMessage( "error call!!" );
        return;
}

        oEc.RsOpen();
        rn= oEc.RsGetRowNum();
        cn= oEc.RsGetColNum();

        lstTbl->Clear();
for( i=1; i<=rn; i++ ){
        oEc.RsFetchRow();
        a_s="";
 for( j=1; j<=cn; j++ ){
        a_s+= AnsiString( oEc.RsGetCol(j) );
        a_s+= ",";
 }
        lstTbl->Items->Add(a_s);
//      ShowMessage( a_s );
 }

}

//---------------------------------------------------------------------------