home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / rexx / 1325 < prev    next >
Encoding:
Text File  |  1992-11-18  |  2.6 KB  |  66 lines
  1. Newsgroups: comp.lang.rexx
  2. Path: sparky!uunet!ornl!rsg1.er.usgs.gov!darwin.sura.net!wupost!cs.utexas.edu!qt.cs.utexas.edu!news.Brown.EDU!noc.near.net!ns.draper.com!news.draper.com!MVS.draper.com!SEB1525
  3. From: SEB1525@MVS.draper.com (Steve Bacher)
  4. Subject: Re: Vmfclear for REXX/MVS
  5. Message-ID: <19921119125541SEB1525@MVS.draper.com>
  6. Sender: MVS NNTP News Reader <NNMVS@MVS.draper.com>
  7. Nntp-Posting-Host: mvs.draper.com
  8. Organization: Draper Laboratory
  9. References: <92322.185550VMOPER@EVALUN11.BITNET>
  10. Date: Thu, 19 Nov 1992 17:55:00 GMT
  11. Lines: 53
  12.  
  13.  
  14. Originally posted to IBM-MAIN (newsgroup bit.listserv.ibm-main):
  15.  
  16. Some of the screen-clearing assembler code floating around works by
  17. just sending out a screen-clearing TPUT.  This isn't a good idea if
  18. done by itself, because any line-mode message that gets sent to your
  19. terminal between the time the user presses ENTER and the time the
  20. screen gets cleared will be lost.
  21.  
  22. For this reason, it is imperative that you obey the laws of TSO
  23. full-screen mode, just as when you display a full-screen panel.
  24.  
  25. The following code will clear the screen whether you're running
  26. TSO/VTAM or TSO/TCAM.  It also ignored ISPF and Session Manager,
  27. both of which have their own recommended commands to clear the screen.
  28.  
  29.  
  30.          STFSMODE INITIAL=YES      SET FULL SCREEN MODE FOR VTAM
  31.          LTR   15,15               IF NOT A VTAM TERMINAL
  32.          BNZ   TCAMCLR             THEN DO A TCAM SCREEN CLEAR
  33. *                                  ELSE DO A VTAM SCREEN CLEAR
  34.          TPUT  CLR,L'CLR,FULLSCR,,HOLD
  35.          STLINENO LINE=1           INSURE LINE MODE OUTPUT GOES TO TOP
  36.          STFSMODE OFF              SET FULL SCREEN MODE OFF
  37.          TCLEARQ INPUT             FLUSH PA2 AID QUEUED BY VTIOC
  38.          B     DONE
  39. TCAMCLR  DS    0H                  NOT VTAM - DO TCAM SCREEN CLEAR
  40.          TPUT  FSON,L'FSON,FULLSCR,,HOLD
  41.          TPUT  FSOFF,L'FSOFF,FULLSCR,,HOLD
  42. DONE     DS    0H
  43.          ...
  44. CLR      DC    X'401140403C40400013'
  45. FSON     DC    X'40115D7F1140403C40400013'
  46. FSOFF    DC    X'40115D7E1140403C40400013'
  47.          ...
  48.  
  49. Leonard Woren has suggested a simpler screen clearing program for VTAM:
  50.  
  51.          STLINENO  MODE=OFF,LINE=1
  52.  
  53. "This is how IBM suggests clearing the screen.  Note that this is ALL
  54. that's needed!  VTAM does the rest."
  55.  
  56. The ISPF "CONTROL DISPLAY LINE START(1)", which is supposed to issue a
  57. similar STLINENO, also works.
  58.  
  59. I haven't been happy with the timing on STLINENO requests, though,
  60. which is why the TPUT in the above code has a HOLD on it.
  61.  
  62.  
  63. --
  64. Steve Bacher (Batchman)                 Draper Laboratory
  65. Internet: seb@draper.com                Cambridge, MA, USA
  66.