Re: Re: Can fortran clear the 3270 screen?

On Mon, Jun 7, 2010 at 7:41 PM, Rick Fochtman <[email protected]> wrote:

>
>
> -------------------------------<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
>
>
Change this for?(I know the registers probably change)
         SAVE     (14,12),,*
         LR       12,15
         USING    HELLO1,12


>
> STFSMODE ON,INITIAL=YES
>
> LTR R2,R15
>
> BNZ END
>
> TPUT CLEAR,L'CLEAR,FULLSCR
>
> STFSMODE OFF
>
> END EOJ RC=(2),LOG=NO
>
> Change this for? (I know the registers probably change)
         L        13,4(,13)        RESTORE SAVEAREA
         LM       14,12,12(13)
         SLR      15,15            CLEAR MY ENTRY POINT
         BR       14               RETURN TO CALLER

>
> 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
>  
>