Communications Control

FJ PowerCOBOL, Microsoft Communications Control V6.0

Just getting started, but no matter what I try to move to "Output" of CC-1 I
get "Invalid Property."

Specifically:
01  OUTSTUFF.
02  FILLER    PIC X(5) VALUE "HELLO".
02  FILLER    PIC X VALUE X'0D'.

Move OUTSTUFF to "Output" of CC-1.

or

Move "Hello" to "Output" of CC-1.

This is so trivial, the MSDN gives extremely short-shrift to explaining it.

(I'm trying to drive a pole display.)

..    On  16.12.04
wrote  nospam@bisusa.com (JerryMouse)
on  /COMP/LANG/COBOL
in  10s4gjhpt6tt24a@news.supernews.com
about  Communications Control


n> (I'm trying to drive a pole display.)

Do you use an OPOS driver for the display, or do you try to access
the COM port directly?


Yours,
Lüko Willms                                     http://www.willms-edv.de
/--------- L.WILLMS@jpberlin.de -- Alle Rechte vorbehalten --

Das Buch, das in der Welt am ehesten verboten zu werden verdiente, wäre ein 
Katalogus von verbotenen Büchern. -G.C.Lichtenberg

..     Am  17.12.04
schrieb  nospam@bisusa.com (JerryMouse)
bei  /COMP/LANG/COBOL
in  ILadnZ6ObZ3ZfF_cRVn-qg@giganews.com
ueber  Re: Communications Control

n> This particular pole display (Logic Controls LC3000) has a clever
n> driver

doesn't it come with an OPOS driver? If you can use that, your
program will work with any customer display and is not tied to that
particular display.


Yours,
Lüko Willms                                     http://www.mlwerke.de
/--------- L.WILLMS@jpberlin.de -- Alle Rechte vorbehalten --

"Es sind nicht die Generäle und Könige, die die Geschichte machen,
sondern die breiten Massen des Volkes"                - Nelson Mandela

Pete Dashwood wrote:
> "JerryMouse" <nospam@bisusa.com> wrote in message
> news:10s4gjhpt6tt24a@news.supernews.com... 
> Assuming it is a COM control (I'm too tired to check but will if you
> have a problem with it...) Try this:
>
> invoke CC1 "SET-Output "
>            using OUTSTUFF
> end-invoke
> invoke CC1 "GET-Output "
>            returning OUTSTUFF
> end-invoke
>
>
> ...where CC1 must be an object reference to an instance obtained by
> CREATE-OBJECT. Have a look at OUTSTUFF and see what came back.

"Output" is a property associated with the control. The control has no
methods that can be invoked.

Lueko Willms wrote:
> .     Am  17.12.04
> schrieb  nospam@bisusa.com (JerryMouse)
>     bei  /COMP/LANG/COBOL
>      in  ILadnZ6ObZ3ZfF_cRVn-qg@giganews.com
>   ueber  Re: Communications Control
>
> n> This particular pole display (Logic Controls LC3000) has a clever
> n> driver
>
>   doesn't it come with an OPOS driver? If you can use that, your
> program will work with any customer display and is not tied to that
> particular display.

Apparently this device (Logic Controls PD3000U) doesn't have an OPOS driver.

"James J. Gavan" <jjgavan@shaw.ca> wrote in message
news:J_Ewd.533179$%k.242568@pd7tw2no...
> Pete Dashwood wrote:
> 
a 
> Interesting looking at your code,
>
> "SET-Output "
>
> Presumably that space is an x'00' - paralleling M/F's dual approach :-

Nope. That space is a typo induced by trying to help people at 3 in the
morning <G>.

<snip>

"JerryMouse" <nospam@bisusa.com> wrote in message
news:10s6hlqdqf6kd8e@news.supernews.com...
> Pete Dashwood wrote: 
>
> "Output" is a property associated with the control. The control has no
> methods that can be invoked.
>
I know it is a property, Jerry (Sheesh <G> ).

If it is a COM component it DOES have Methods, whether you recognise them or
not. They are inherited from the Fujitsu BASE and *OLE Classes.

If it is NOT a COM component then it serves you right... <G>

Pete.

..    On  17.12.04
wrote  nospam@bisusa.com (JerryMouse)
on  /COMP/LANG/COBOL
in  10s6magtkbdvh8f@news.supernews.com
about  Re: Communications Control


n> Apparently this device (Logic Controls PD3000U) doesn't have an OPOS
n> driver.

True, it would have to be a PO39xx ...


Yours,
Lüko Willms                                     http://www.willms-edv.de
/--------- L.WILLMS@jpberlin.de -- Alle Rechte vorbehalten --

Der Satz muß noch mit einem Bruch multipliziert werden. -G.C.Lichtenberg

On Thu, 16 Dec 2004 20:20:33 -0600, "JerryMouse" <nospam@bisusa.com>
wrote:

>FJ PowerCOBOL, Microsoft Communications Control V6.0
>
>Just getting started, but no matter what I try to move to "Output" of CC-1 
I
>get "Invalid Property."
>
>Specifically:
>01  OUTSTUFF.
>   02  FILLER    PIC X(5) VALUE "HELLO".
>   02  FILLER    PIC X VALUE X'0D'.
>
>Move OUTSTUFF to "Output" of CC-1.
>
>or
>
>Move "Hello" to "Output" of CC-1.
>
>This is so trivial, the MSDN gives extremely short-shrift to explaining it.
>
>(I'm trying to drive a pole display.)
>
I may be wrong, but I think the problem here is that the control is
expecting either a variant or a byte array, and COBOL is passing the
property as a string.

Will try the COM approach also, but think it will have the same
problem, and this means that to use this control you will need to
create another one on VB or C to convert from string to variant.

Easy to do on VB.


Frederico Fonseca
ema il: frederico_fonseca at syssoft-int.com