Re: Fujitsu COBOL and COM and events

From: Paulo Vieira (pvieira_at_emporsoft.pt)
Date: 02/05/04 

Date: 5 Feb 2004 05:31:41 -0800

Frederico Fonseca <real-email-in-msg-spam@email.com> wrote in message news:<manv105c1q959lkbdqn5dknsm145ditq5n@4ax.com>...
> Hi all,
>
>
> I have the following problem related with Fujitsu COBOL and events
> raised by COM objects.
>
> Basically I have a small app that is calling a third party app, and
> this app as most Windows apps has the following
> 1- Methods
> 2- Properties
> 3- Events.
>
> I am able to deal with 1 and 2 fine, but I canīt find a way of dealing
> with 3.
>
> Example of what is required.
>
> ENVIRONMENT DIVISION.
> DATA DIVISION.
> WORKING-STORAGE SECTION.
> 01 WK PIC X(80).
> 01 CApplication OBJECT REFERENCE COM.
> PROCEDURE DIVISION.
> Move "appname.Application.9" TO WK.
> INVOKE COM "CREATE-OBJECT" USING WK RETURNING CApplication.
> INVOKE cApplication "PrintRecords".
>
> On this particular case the application will fire an event
> "record_printed", and if this was VB I could code
>
> private sub appname_record_printed()
> some vbcode e.g. for a progress indicator
> end sub
>
>
> But I am unable to translate this to "*COM".
>
> Is there anyone that can help on this subject, as Fujitsu Support will
> charge just to look at this, and will not guarantee a result, as this
> is considered a "how-to" which is not covered under the maintenance
> contract.
>
>
>
>
> Frederico Fonseca
> ema il: frederico_fonseca at syssoft-int.com

Hi Frederico, long time, no see

A couple of years ago, I had the same problem working with EXCEL. The
only solution I came up with was to develop a VB ActiveX component to
talk to EXCEL and beeing able of receiving events (I only cared for a
few of them). Then inserting the VB component in my Powercobol form, I
could control (somehow) the behaviour of the spread***. Isn't
pretty, but works.

Best regards

Paulo Vieira, Emporsoft