CLRSCRN / CLEAR / IKJ? / ISP? supported clear-screen



IBM's Command List programming language & Restructured Extended Executor

CLRSCRN / CLEAR / IKJ? / ISP? supported clear-screen

Postby Steve Coalbran » Fri Oct 21, 2016 12:23 pm

I am searching for a supported clear-screen module.
Yes, I know that one can code one's own using assembler but this would not necessarily be available at the sites to which I am sending (compiled) REXX code.
I got this one years ago and it's perfect (forgot who wrote it! Doug Nadel I think)
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

Is there not any standard TSO (or better ISPF) module which does this?
An...
ADDRESS ISPEXEC "CONTROL DISPLAY CLEAR"
would have been nice?
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time

Re: CLRSCRN / CLEAR / IKJ? / ISP? supported clear-screen

Postby prino » Fri Oct 21, 2016 1:05 pm

Have been using this one for years, and I think it's simple enough to be supported by about every systems programmer...

Anyway, if you want something supported, enter an RFE on the IBM site, publish the URL here, on IBM-MAIN, and on ISPF-L and it may attract enough votes to come into supported existence...

FWIW, if you do an XMIT of just ISPCLEAR to an XMI dataset, it will contain 29 lines, you can almost type it in yourself... Or send yourself an email with the data in HEX format and paste it... Or convert it to REXX, I've got a useful macro for this, but at 600 lines it's a bit too long to post here... Actually, I've posted it at the sister-site, EPANQ, together with some samples of EXECs using the generated data.
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 635
Joined: Wed Mar 11, 2009 12:22 am
Location: Vilnius, Lithuania
Has thanked: 3 times
Been thanked: 28 times

Re: CLRSCRN / CLEAR / IKJ? / ISP? supported clear-screen

Postby enrico-sorichetti » Fri Oct 21, 2016 2:19 pm

I would check also

        L        15,=V(ISPQRY)     Load ISPF environment test address  
         LTR      15,15                                                
         BZ       NOISPF            If stub not found , go to exit          
         BALR     14,15             See if ISPF is available            
         LTR      15,15                                                
         BNZ      NOISPF            If not, go to exit          
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post