home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / bit / listserv / cmspipl / 758 < prev    next >
Encoding:
Text File  |  1992-12-16  |  3.4 KB  |  82 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!noc.near.net!mars.caps.maine.edu!maine.maine.edu!cunyvm!psuvm!auvm!MAINE.MAINE.EDU!WTS
  3. Message-ID: <WTS.921216104932@maine.maine.EDU>
  4. Newsgroups: bit.listserv.cmspip-l
  5. Date:         Wed, 16 Dec 1992 10:49:32 EST
  6. Sender:       VM/SP CMS Pipelines Discussion List <CMSPIP-L@MARIST.BITNET>
  7. From:         Wayne Smith <WTS@MAINE.MAINE.EDU>
  8. Subject:      Re: Screen capture
  9. Lines: 71
  10.  
  11. Chris 'Dero' DeRoberts writes ...
  12. >Does anyone know of, or have, a PIPEs, or PIPEs + REXX + whatever,
  13. >screen capture prgram for VM? Basically, I'm looking for something
  14. >that will intercept the PRINT SCREEN key on various IBM consoles and
  15. >redirect the output to disk and/or a spool file (via PIPE's "PRINTMC").
  16.  
  17.    In the "whatever" category is the MPVM facility of PVM V2 (VM
  18.    Passthrough).  MPVM is a session manager of sorts (you need to logon
  19.    to CMS first).  You can then start multiple sessions.  Then, in a
  20.    number of ways you can invoke a REXX Macro.  The MPVM subcom
  21.    interface allows you wonderful control of exactly what happens next.
  22.  
  23.    For example, I recently wrote a NAMES file entry and MPVM macro to
  24.    automatically DIAL VTAM, select from the VTAM screen, and pre-fill our
  25.    CICS signon panel.  PF24 in this example does a print-screen to the
  26.    spooled CMS printer.  Total time to do this?  a few hours, but that
  27.    was because I knew nothing about MPVM facilities when I started.
  28.  
  29.    Though most of the comments are specifically directed to folks on our
  30.    Maine system, I reproduce SCRN_PRT MPVM below (at least it has a pipe)
  31.  
  32. /* SCRN_PRT MPVM - my 1st MPVM macro .. have a heart and don't laugh :-)
  33.  
  34.    Dump the current MPVM screen to the spooled printer of the
  35.    host CMS session.
  36.  
  37.    No parameters are expected nor processed.
  38.  
  39.    Note: This MPVM exec might be called via a PF key in an MPVM
  40.          session.
  41.  
  42.    Example 1: Create an MPVM NAMES file and add the following entry
  43.          (this entry is called "TEST" and may be used for a session on
  44.          the MAINE node.  It will be invoked by the CMS command
  45.          "MPVM * TEST".  Change the names TEST and MAINE to suit your
  46.          purposes.):
  47.  
  48.            :nick.TEST
  49.               :target.MAINE :PF24.MACRO SCRN_PRT
  50.  
  51.          (Optionally add (change "WTS" to your id)):
  52.               :?.COMMAND     SET VIEW OFF
  53.               :signon.MACRO  INTERP WAIT 1 500;TAB;TAB;ENTER DIAL VTAM
  54.               :initcmd.MACRO INTERP ENTER C2;WAIT 0 250;
  55.                              PLACE "/WTS/";TAB;
  56.                              SET VIEW ON;REFRESH
  57.    History:
  58.  
  59.      11/92 original version  WTS@MAINE.MAINE.EDU Wayne Smith, CAPS
  60.      12/92 add auto-connect  to VTAM & VSEPROD (C2)   wts@maine.maine.edu
  61. */
  62.  
  63. trace
  64. 'COMMAND EXTRACT /DISPLAY/'     /* extract contents of screen */
  65. if rc<>0 then do
  66.    say 'Error code' rc 'in SCRN_PRT MPVM.'
  67.    exit rc
  68.    end
  69. 'PIPE (end ?)',
  70.    '       stem mpvm_display.',              /* the whole screen */
  71.    '|rest: take 1',                          /* skip to new page */
  72.    '|      spec "1" 1.1 1-* 2',              /*    ... add cc    */
  73.    '|all:  faninany',                 /* merge 1st line & others */
  74.    '|      asatomc',                         /* ...              */
  75.    '|      printmc',                         /*     and print    */
  76.    '?rest:',
  77.    '|      spec " " 1.1 1-* 2',      /* single space other lines */
  78.    '|all:'
  79. retc = rc
  80. 'PIPE cp CLOSE PRT'
  81. exit retc
  82.