ISPCLEAR CSECT    ,                 ISPF aware clear screen module
ISPCLEAR AMODE    31
ISPCLEAR RMODE    24
         STM      14,12,12(13)
         LR       12,15
         USING    ISPCLEAR,12
         LA       15,SAVEAREA
         ST       15,8(13)
         ST       13,4(15)
         LR       13,15
         STFSMODE INITIAL=YES       Initialize full screen mode
         TPUT     CLR,L'CLR,FULLSCR,,HOLD   Clear the screen
         STLINENO LINE=1            Clear screen & set cursor to line 1
         STFSMODE OFF               Go back to line mode
         STTMPMD  OFF               Let session manager play with us
         TCLEARQ  INPUT             Clear input queue
         L        15,=V(ISPQRY)     Load ISPF environment test address
         BALR     14,15             See if ISPF is available
         LTR      15,15
         BNZ      NOISPF            If not, go to exit
         L        15,=V(ISPLINK)    Load ISPLINK interface address
         LA       1,ISPPARMS        ISPLINK CONTROL DISPLAY REFRESH
         BALR     14,15             To force screen refresh on return
NOISPF   L        13,4(13)
         LM       14,12,12(13)
         XR       15,15             Always return a zero return code
         BR       14
SAVEAREA DS       9D
ISPPARMS DC       A(CONTROL),A(DISPLAY),A(REFRESH+X'80000000')
CONTROL  DC       CL8'CONTROL '
DISPLAY  DC       CL8'DISPLAY '
REFRESH  DC       CL8'REFRESH '
CLR      DC       X'401140403C40400013'
         DS       0F
         LTORG
         END      ISPCLEAR