HP3000-L Archives

April 2018, Week 4

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:
Dennis Donald <[log in to unmask]>
Reply To:
Dennis Donald <[log in to unmask]>
Date:
Mon, 23 Apr 2018 15:13:03 +0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (1 lines) 
Billy,



 Years ago I created a COBOL logo display program that performed what you are asking for. 	Below is snippets of the code.



In the  DATA DIVISION,   WORKING-STORAGE SECTION.



   01  CURSOR-HOME-UP.

          05  FILLER           PIC X(01)  VALUE %33.

          05  FILLER           PIC X(01)  VALUE "h".

   01  CLEAR-DISPLAY.

           05  FILLER           PIC X(01)  VALUE %33.

           05  FILLER           PIC X(01)  VALUE "J".



In the PROCEDURE DIVISION



       DISPLAY CURSOR-HOME-UP.

       DISPLAY CLEAR-DISPLAY.



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

From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Billy Brewer

Sent: Friday, April 20, 2018 10:11 PM

To: [log in to unmask]

Subject: [HP3000-L] Cobol code clear screen



I'm hoping this is a really simple request.  



How do you code in Cobol to go to home and clear screen before prompting for input -- thanks.



-Billy



* 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