| Author |
Communications Control
|
|
| JerryMouse 2004-12-17, 3:55 am |
| 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.)
| |
| Lueko Willms 2004-12-17, 8:55 am |
| .. 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
| |
| JerryMouse 2004-12-17, 3:55 pm |
| 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.
| |
| Pete Dashwood 2004-12-17, 3:55 pm |
|
"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.
>
| |
| Lueko Willms 2004-12-17, 3:55 pm |
| .. 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
| |
| James J. Gavan 2004-12-17, 3:55 pm |
| 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
| |
| JerryMouse 2004-12-18, 12:46 pm |
| 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.
| |
| JerryMouse 2004-12-18, 12:46 pm |
| 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.
| |
| Pete Dashwood 2004-12-18, 12:46 pm |
|
"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.
| |
| Pete Dashwood 2004-12-18, 12:46 pm |
|
"James J. Gavan" <jjgavan@shaw.ca> wrote in message
news:J_Ewd.533179$%k.242568@pd7tw2no...
> Pete Dashwood wrote:
>
a[color=darkred]
> 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>
| |
| Lueko Willms 2004-12-18, 12:46 pm |
| .. 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
| |
| Frederico Fonseca 2004-12-18, 8:55 pm |
| 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
|
|
|
|