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

Lueko Willms wrote:
> .    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?
>

COM port directly (sort of).

This particular pole display (Logic Controls LC3000) has a clever driver
that maps the USB port to which the pole is attached to a (new) com port
number. I can, for example, do this at a command prompt:

COPY FILE.TXT COM4

and the pole works swell.

"JerryMouse" <nospam@bisusa.com> wrote in message
news:10s4gjhpt6tt24a@news.supernews.com...
> 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.)
>
>
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.

Pete.
>

..     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:

>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
>
>
Interesting looking at your code,

"SET-Output "

Presumably that space is an x'00' - paralleling M/F's dual approach :-

01 myLiteral pic x(11) value z"SET-Output".  *> x'00' in position 11

or as I use when creating callbacks

invoke callback "new" returning .......
using xxxx, Methodname

where methodName is "doThisCallback ".   ?????

Jimmy

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.

"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.

"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>