home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / bit / listserv / cmspipl / 522 < prev    next >
Encoding:
Text File  |  1992-07-29  |  2.7 KB  |  64 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!SUVM.BITNET!SYSBXR
  3. Message-ID: <CMSPIP-L%92072914551080@VM.MARIST.EDU>
  4. Newsgroups: bit.listserv.cmspip-l
  5. Date:         Wed, 29 Jul 1992 14:42:00 LCL
  6. Sender:       VM/SP CMS Pipelines Discussion List <CMSPIP-L@MARIST.BITNET>
  7. From:         Bridget Rutty <SYSBXR@SUVM.BITNET>
  8. Subject:      SASTUTOR. FULLSCREEN, and Pipes
  9. Lines: 53
  10.  
  11. I'm developing an interface exec for SAS Institutes computer based
  12. training product.  It doesn't work at all if a user tries to execute
  13. it from fullscreen cms.  It also doesn't work if the user has less than
  14. 4m virtual storage.  So I have two pipes in the exec, one which checks
  15. the virtual storage and gives the user messages if its too small and
  16. the other queries the fullscreen setting and is supposed to also give
  17. the user messages.  But instead it sends the output of the query to
  18. the console and does not set the rexx variable.  I'm including the
  19. two pipes below.  We are using Pipes 1.5.  Is there some trick to
  20. the query fullscreen?
  21.  
  22. /* Rexx Program to start the SAS CBT courses                          */
  23. /*  Two (2) lines require updating in this EXEC                       */
  24. /*    Line 16 - The location of the 0MAIN SASCBTA catalog             */
  25. /*    line 27 - The exec that is used to invoke SAS 6.06              */
  26. /* Modified by Bridget Rutty -  03/18/92                              */
  27. /*    Use Linker pipe subroutine to link and access disk              */
  28. /*    Preserve users msg and console settings                         */
  29.  
  30. trace
  31. pushcons
  32. pushmsg
  33. conwait
  34.  
  35. parse upper arg argstring          /* Get argument string           */
  36.  
  37. Address Command 'PIPE',
  38.      'cp query virtual storage',      /* How big is the machine?     */
  39.      '| spec 11.5 1',                /* Strip off what we don't need */
  40.      '| var vsize'                    /* Save the number             */
  41.  
  42. minstor=4096
  43. if vsize < minstor
  44.     then do
  45.     say '**Your virtual machine size (' vsize 'K) is too small.'
  46.     say '  A minimum of ' minstor 'K is required to use SASTUTOR.'
  47.     say '  For further help, please call the Information Center, x2677.'
  48.     exit
  49. end
  50.  
  51. Address command 'PIPE',
  52.    ' cms query fullscreen ',          /* Query fullscreen            */
  53.    '| spec word 2 1',                 /* Select the setting          */
  54.    '| var fullset '                   /* Save it                     */
  55. say fullset
  56. If fullset = 'ON'
  57.    then do
  58.     say 'SASTUTOR will not work while you are using FULLSCREEN CMS.'
  59.     say '  Please SET FULLSCREEN SUSPEND or SET FULLSCREEN OFF'
  60.     say '  and then run this exec again.'
  61.     say '  For further help, please call the Information Center, x2677.'
  62.     exit
  63. end
  64.