home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / rexx / 1324 < prev    next >
Encoding:
Text File  |  1992-11-19  |  4.3 KB  |  99 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!LBDRSCS.BITNET!FLASS
  3. Organization: New York State Legislative Bill Drafting Commission
  4. Message-ID: <REXXLIST%92111909521920@UCF1VM.CC.UCF.EDU>
  5. Newsgroups: comp.lang.rexx
  6. Date:         Thu, 19 Nov 1992 09:35:46 EST
  7. Sender:       REXX Programming discussion list <REXXLIST@UGA.BITNET>
  8. From:         Peter Flass <FLASS@LBDRSCS.BITNET>
  9. Subject:      Re: Vmfclear for REXX/MVS
  10. Comments: To: vmoper@evalun11.BITNET
  11. In-Reply-To:  Message of Tue, 17 Nov 1992 18:55:50 EST from <VMOPER@EVALUN11>
  12. Lines: 85
  13.  
  14. > I know the command VMFCLEAR for clear the screen in an EXEC for CMS
  15. > But I have too MVS, and I need a command to do that in an EXEC for MVS.
  16. > Thanks.
  17.  
  18. Here is what I use.  I don't claim anything for it except that it works for
  19. me.  Runs under XA and ESA.
  20.  
  21. ----------------- Cut Here ---------------------------------------------
  22. ***********************************************************************
  23. *                                                                     *
  24. * MODULE ID: 'VMFCLEAR'                                               *
  25. * AUTHOR:    PETER FLASS, NYS LBDC                                    *
  26. * DATE:      AUGUST, 1991                                             *
  27. * FUNCTION:  ISSUE 'TPUT' TO CLEAR TERMINAL SCREEN.                   *
  28. *                                                                     *
  29. ***********************************************************************
  30.          SPACE 3
  31. *
  32. ***********************************************************************
  33. * *            G e n e r a l   R e g i s t e r   E q u a t e s      * *
  34. ***********************************************************************
  35. *
  36. R0       EQU   0         General Register 0
  37. R1       EQU   1         General Register 1
  38. R2       EQU   2         General Register 2
  39. R3       EQU   3         General Register 3
  40. R4       EQU   4         General Register 4
  41. R5       EQU   5         General Register 5
  42. R6       EQU   6         General Register 6
  43. R7       EQU   7         General Register 7
  44. R8       EQU   8         General Register 8
  45. R9       EQU   9         General Register 9
  46. R10      EQU   10        General Register 10
  47. R11      EQU   11        General Register 11
  48. R12      EQU   12        General Register 12
  49. R13      EQU   13        General Register 13
  50. R14      EQU   14        General Register 14
  51. R15      EQU   15        General Register 15
  52. *
  53. ***********************************************************************
  54. *
  55.          SPACE 3
  56. BASE     EQU   R12
  57.          SPACE 3
  58. VMFCLEAR CSECT
  59. VMFCLEAR AMODE 24
  60. VMFCLEAR RMODE 24
  61.          B     BEGIN-VMFCLEAR(,R15)
  62. VMFCLEAR VERSION 1.0
  63. BEGIN    DS    0H
  64.          SAVE  (14,12)             SAVE REGISTERS
  65.          LR    BASE,R15            ESTABLISH NEW BASE
  66.          USING VMFCLEAR,BASE             +
  67.          GETMAIN RU,LV=WALEN       ACQUIRE AND CHAIN SAVEAREAS
  68.          ST    R13,4(,R1)                +
  69.          ST    R1,8(,R13)                +
  70.          LR    R13,R1                    +
  71.          USING WORKAREA,R13
  72.          LH    R0,=H'3'            SET BUFFER LENGTH
  73.          LA    R1,TERMBUF          LOAD BUFFER ADDRESS
  74.          ICM   R1,B'1000',=AL1(FULSCR) SET FULLSCREEN FLAG
  75.          TPUT  (1),(0),R           CLEAR THE SCREEN
  76.          LR    R1,R13              STASH SAVEAREA ADDR
  77.          L     R13,4(,R13)         GET A(CALLER'S SAVEAREA)
  78.          FREEMAIN RU,A=(1),LV=WALEN FREE SAVEAREA
  79.          RETURN (14,12),RC=0       RETURN TO CALLER
  80.          SPACE 1
  81. FULSCR   EQU   X'03'               FLAG FOR TPUT
  82. TERMBUF  DS    0F                  TERMINAL BUFFER
  83.          DC    X'27F583'           ESC, ERASE-WRITE, RESET
  84.          LTORG ,
  85.          SPACE 3
  86. WORKAREA DSECT ,                   SAVEAREA, ETC.
  87. SAVEAREA DS    9D                        +
  88. WALEN    EQU   *-WORKAREA          L'WORKAREA
  89.          END   VMFCLEAR
  90. ---------------- End of Program ------------------------------------------
  91.  
  92. =====================================================================
  93. = PETER FLASS                               FLASS@LBDRSCS           =
  94. = Systems Programmer                        tel (518)458-5114       =
  95. = NYS Legislative Bill Drafting Commission                          =
  96. = 1450 Western Ave.                                                 =
  97. = Albany, NY  12203                                                 =
  98. =====================================================================
  99.