HP3000-L Archives

October 2013, Week 2

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:
Cobol: Cobol+Video Attributes
From:
Paul Richards <[log in to unmask]>
Reply To:
Paul Richards <[log in to unmask]>
Date:
Mon, 14 Oct 2013 20:59:35 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (24 lines) 
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 *

ATOM RSS1 RSS2