Subject: | |
From: | |
Reply To: | |
Date: | Mon, 23 Apr 2018 14:22:13 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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 *
|
|
|