Re: Re: Can fortran clear the 3270 screen?

Ron,

Below is an ancient Clear Screen sub-routne I found in my archives written in bare naked Assembler, roughly 1970s vintage, author unknown:

CLRSCRN  START 0                                                        00000100
         USING *,10                                                     00000200
         ENTRY CLRSCN                                                   00000300
CLRSCN   EQU   *                                                        00000400
         SAVE  (14,12)                                                  00000500
         LR    10,15                                                    00000600
         GTSIZE                                                         00001100
         LTR   0,0                                                      00001200
         BZ    NOTCRT                                                   00001300
         TPUT  ERASE,L'ERASE,FULLSCR,,HOLD                              00001400
NOTCRT   EQU   *                                                        00001500
         RETURN  (14,12),RC=0                                           00001600
ERASE    DC    X'C1115D7E1140403C4040001DC813'                          00001700
         END                                                            00001900

You cold remove the GTSIZE macro (lines 1100-1300). Its purpose is to prevent printing "rubbish" (the ERASE orders) on a teletype or IBM 2741 TSO termial.

Hope this helps !

Andreas F. Geissbuehler
AFG Consultants Inc.
http://www.afgc-inc.com/