Re: Can fortran clear the 3270 screen?

I setup a CLEARSCR program in the Turnkey as HERC01.  The listing above has font problems.  I put a copy called CLEARSCR.txt in the files section.  It has been asseembled, linked and tested as HERC01 on the turnkey.

Mark

--- In [email protected], Ron Hudson <hudson.ra@...> wrote:
>
> Thanks MITMWP - I was just about to dismantle one of my other programs
> to reduce it to a clear the screen. I think this is cleaner.
> 
> 
> Just to be sure I transcribed it properly...
> 
> 000100 CLEARSCR TITLE     'CLEARSCR - CLEAR 3270 SCREEN'
> 000200 CLEARSCR CSECT
> 000300          SETREG    12,CODE=RENT
> 000400          STFSMODE  ON,INITIAL=YES
> 000500          LTR       2,15
> 000600          BNZ       END
> 000700          TPUT      CLEAR,LCLEAR,FULLSCR
> 000800          STFSMODE  OFF
> 000900 END      EOJ       RC=(2),LOG=NO
> 001000 CLEAR    DC        X'C11140403C4040001140C113'
> 001100 LCLEAR   EQU       *-CLEAR
> 001200          END       CLEARSCR
> 
> I made a change or two - in line 500 you referenced the registers with an
> R - but don't show the EQU to set that up
> I calculated LCLEAR,
> 
> I have not seen EOJ RC=2,LOG=NO but then I have not seen much anyway.
> 
> I have it in RPF in a PDS now... Anyone see any errors?
>