Subject: | |
From: | |
Reply To: | |
Date: | Wed, 25 Oct 2000 16:31:59 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
For those who may still have an interest in this, I have finally gotten my
Cobol program to send a message to a QUIET terminal working. I could not
have done so without the kind help of Mark Bixby - thanks Mark.
Here is the essence of the thing. What you see assumes the program
previously acquired the logical device number (SAVE-DEV) and the message to
display (MSG-BUFF). And this is a native-mode solution only.
01 FILLER.
05 SAVE-DEV PIC S9(04) COMP.
05 MSG-BUFF PIC X(160).
05 GENMSG-PARMS COMP.
15 MSG-SET PIC S9(04).
15 MSG-NBR PIC S9(09).
15 MSG-PARM-MASK PIC S9(04).
15 MSG-PARM1 PIC S9(09).
15 MSG-PARM2 PIC S9(09).
15 MSG-PARM3 PIC S9(09).
15 MSG-PARM4 PIC S9(09).
15 MSG-PARM5 PIC S9(09).
15 MSG-DEV PIC S9(04).
15 MSG-Q1 PIC S9(04).
15 MSG-Q2 PIC S9(09).
15 MSG-Q3 PIC S9(04).
15 MSG-FLAGS PIC S9(04).
INITIALIZE GENMSG-PARMS.
MOVE -1 TO MSG-SET.
CALL INTRINSIC '.LOC.'
USING @MSG-BUFF GIVING MSG-NBR.
MOVE -1 TO MSG-PARM-MASK.
MOVE SAVE-DEV TO MSG-DEV.
MOVE -1 TO MSG-Q1.
MOVE -1 TO MSG-Q2.
MOVE 2 TO MSG-FLAGS.
CALL INTRINSIC 'GETPRIVMODE'.
CALL 'GENMSG'
USING
\MSG-SET\, \MSG-NBR\, \MSG-PARM-MASK\
\MSG-PARM1\, \MSG-PARM2\, \MSG-PARM3\
\MSG-PARM4\, \MSG-PARM5\, \MSG-DEV\
\MSG-Q1\, \MSG-Q2\, \MSG-Q3\ \MSG-FLAGS\
GIVING LGTH.
CALL INTRINSIC 'GETUSERMODE'.
|
|
|