Re: Re: Can fortran clear the 3270 screen?

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?