HP3000-L Archives

April 2018, 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 code clear screen
From:
Tony Summers <[log in to unmask]>
Reply To:
Tony Summers <[log in to unmask]>
Date:
Sat, 21 Apr 2018 07:16:34 +0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (1 lines) 
And here’s a variation on the same answer…



1   PV04-DISPLAY-FIELDS.

3     PV04-SPECIALS.

5       PV04-HOME-CLEAR.

7         FILLER                VALUE 7021 PIC 9999 COMP.

7         FILLER                VALUE 6984 PIC 9999 COMP.

7         FILLER                VALUE 6986 PIC 9999 COMP.

5       PV04-MEMORY-LOCK.

7         FILLER                VALUE 7020 PIC 9999 COMP.



     DISPLAY PV04-HOME-CLEAR.

     DISPLAY "Please enter required report option : ".

     DISPLAY "   1. Security transaction list ".

     etc





From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Keven Miller(3k)

Sent: 21 April 2018 06:04

To: [log in to unmask]

Subject: Re: [HP3000-L] Cobol code clear screen



----- Original Message -----

From: "Boyd, Mark" <[log in to unmask]<mailto:[log in to unmask]>>

To: <[log in to unmask]<mailto:[log in to unmask]>>

Sent: Fri 20 Apr 2018 07:36 PM

Subject: Re: [HP3000-L] Cobol code clear screen





> Wouldn't you just define a CLS variable and display it?

> This works.

>

> 05 CLS.

> 10 FILLER PIC X VALUE ESCAPE.

> 10 FILLER PIC X VALUE "h".

> 10 FILLER PIC X VALUE ESCAPE.

> 10 FILLER PIC X VALUE "J".

>





I like the 05 CLS solution best,

but then I'm not really a COBOL programmer.



Note that all these work with HP terminals: <esc>H<esc>J





If your using VT like devices, you'll need: <esc>[H<esc>[J



SPECIAL NAMES.

SYMBOLIC ESCAPE 28.



05 VTCLS.

10 FILLER PIC X VALUE ESCAPE.

10 FILLER PIC XX VALUE "[H".

10 FILLER PIC X VALUE ESCAPE.

10 FILLER PIC XX VALUE "[J".





Wyse terminals are yet another sequence.



Keven



* To join/leave the list, search archives, change list settings, *

* etc., please visit http://raven.utc.edu/archives/hp3000-l.html<http://raven.utc.edu/archives/hp3000-l.html> *



The contents of this email are confidential to the intended recipient and may not be disclosed. Although it is believed that this email and any attachments are virus free, it is the responsibility of the recipient to confirm this.



Details of Smith & Williamson group companies and Nexia Smith & Williamson Audit Limited and their regulators (where applicable), can be found at this URL



http://www.smith.williamson.co.uk/disclosure



* To join/leave the list, search archives, change list settings, *

* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2