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:
From:
Cornelia Sellitto <[log in to unmask]>
Reply To:
Cornelia Sellitto <[log in to unmask]>
Date:
Mon, 23 Apr 2018 14:22:13 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (50 lines)
We used a called routine that was placed into an XL - here is the code:
the COBOL program simply has   CALL "CLEAR".

  1     $CONTROL DYNAMIC,NOWARN,USLINIT
  1.1    IDENTIFICATION DIVISION.
  1.2    PROGRAM-ID. CLEAR.
  1.3    ENVIRONMENT DIVISION.
  1.4    DATA DIVISION.
  1.5    WORKING-STORAGE SECTION.
  1.6
  1.7   *  Here is some sample code for 'CLEAR'
  1.8
  1.9   *  ----
  1.91   LINKAGE SECTION.
  1.92
  2      01  MSG-TEXT                PIC X(80).
  2.1    01  LGTH                    PIC S9999 COMP SYNC.
  2.2
  2.3    PROCEDURE DIVISION.
  2.4
  2.5   *'CLEAR'
  2.6
  2.61   CLEAR.
  3.1           DISPLAY %033 "H" %033 "J"
  3.3
  3.4   * CLEAR = %033 "J"
  3.5   * HOMECLEAR = %033 "H" %033 "J"
  3.6
  6         GOBACK.
/

Connie Sellitto


On Fri, Apr 20, 2018 at 10:11 PM, Billy Brewer <[log in to unmask]> wrote:

> 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