Re: Re: Can fortran clear the 3270 screen?

-------------------------------<snip>-----------------------------

>  
>
> I once had to clear the screen from a Fortran IV program. I called the 
> following assembler code:
>
> CLEARSCR TITLE 'CLEARSCR - CLEAR 3270 SCREEN'
>
> CLEARSCR CSECT
>
> SETREG 12,CODE=RENT
>
> STFSMODE ON,INITIAL=YES
>
> LTR R2,R15
>
> BNZ END
>
> TPUT CLEAR,L'CLEAR,FULLSCR
>
> STFSMODE OFF
>
> END EOJ RC=(2),LOG=NO
>
> CLEAR DC X'C11140403C4040001140C113'
>
> END CLEARSCR
>
> Mark
>
-----------------------------------<unsnip>-----------------------------
That's reasonable code, Mark. But you have a few non-MVS macros in that 
code that might be considered a problem.  SETREG? EOJ ??

Rick