HP3000-L Archives

October 2013, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Cobol: Cobol+Video Attributes
From:
Neal Kazmi <[log in to unmask]>
Reply To:
[log in to unmask]
Date:
Tue, 15 Oct 2013 07:10:23 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines) 
FWIW 

The majority of escape sequences end with an uppercase ASCII character (including characters in the same octal number range). Some sequences are fixed length and do not require a terminator. A few use an internally defined length or terminator (data transfer sequences).

The %15 is an ASCII carriage return. It is used to host initiated commands to terminal emulators prior to the implicit end at 80 characters total for the sequence (unless the emulator is configured to support more characters).

Neal Kazmi
www.minisoft.com
800-682-0200
360-568-6602


-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Michael Anderson
Sent: Monday, October 14, 2013 6:03 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] Cobol: Cobol+Video Attributes

Try"
    Display inverse-on "bbbbbbbbbb".

All in one statement.

Hp Terminal escape sequences are terminated at %15, each display statement ends with a %15.


On 10/14/2013 07:59 PM, Paul Richards wrote:
> I am trying to use video attributes (e.g. inverse, blink, underline etc) using the Stromasys HP3000 emulator, QCTerm and HP COBOL 85.
>
> I have a script that cycles through all of the available attributes (i.e. setvar esc chr(27) ...  setvar inverse esc+'&dB'...) which works perfectly in demonstrating the use of the various attributes.
>
> However I cannot get a COBOL version to work. I know that ESC = %33 and I'm trying data definitions thus:
>
> 01 inverse-on.
>    03               pic x      %33.
>    03               pic x(3) "&dB".
>
> then
>
> display inverse-on followed by a
> display "bbbbbbbb" ....
>
> This is not working - the text bbbbbbbb is displayed without any change to its attributes.
>
> What is the correct way to define such attribute data and then use it in the Procedure Division to achieve the desired effect?
>
> TIA
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2