Re: Re: Can fortran clear the 3270 screen?

I think you mean " USING CLEARSCR,12  "  :-)Ron Hudson wrote:

>  
>
>
>
> On Mon, Jun 7, 2010 at 7:41 PM, Rick Fochtman <[email protected] 
> <mailto:[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
>
>
>