home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / skeleton.zip / ErhView.cmd < prev    next >
OS/2 REXX Batch file  |  1995-08-03  |  3KB  |  63 lines
  1. /*****************************************************************************\
  2. | Specify file viewer to use to display .cmd code errors.                     |
  3. |                                                                             |
  4. | $Revision:   1.0  $
  5. |     $Date:   03 Aug 1995 20:10:16  $                                        |
  6. | Libraries:   REXXSAA                                                        |
  7. |  Category:   Error Handler                                                  |
  8. |     Class:   Programming                                                    |
  9. |      Type:   Service                                                        |
  10. |    Author:   Bob Rice - CompuServe: 72421,3016                              |
  11. |                                                                             |
  12. | Copyright (c) 1995 Empirical Heuristics                                     |
  13. \**************************************************************************r4*/
  14. /*  !tr! = value('TRACE',,'OS2ENVIRONMENT'); parse source . . !who!          */
  15. /*  if !tr! \= '' then say '--> Entering' !who!; trace value !tr!; nop       */
  16.   if arg(1) = '' | left(arg(1),1) = '?' then do
  17.     parse source . . !pgm!; call TellHelp arg(1), !pgm!; exit 2; end
  18.  
  19.   parse arg file
  20.  
  21.   /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
  22.   /*>>>> Customize the following line to use your favorite file browser. <<<<*/
  23.   '@EPM' file
  24.   exit
  25. /*--Begin Help-----------------------------------------------------------------
  26. Specify file viewer to use to display .cmd code errors.  Called by the standard
  27. Skeleton error trap routine.
  28.  
  29. Params: file-to-browse
  30.  
  31.   file-to-browse    is the filespec of the code file to browse.
  32.  
  33. ________________
  34. Alternate Params: [ ? | ?? | ??? | ???? ]
  35.  
  36. where:
  37.  
  38.   ?     Displays up to the "Syntax:" or "Params:" portion of this help text.
  39.  
  40.   ??    Displays this entire help text except for the technical information.
  41.  
  42.   ???   Displays this entire help text.
  43.  
  44.   ????  Puts this help text into a file whose name is the same as the name of
  45.         this program and whose extent is .ABS.  The file is written to the same
  46.         directory as that in which this program resides.
  47.  
  48. _______________
  49. Technical Notes
  50.  
  51. This program is not intended to be a general utility.  It is designed to
  52. support the standard REXX Skeleton as part of its error and event trap
  53. processor.
  54.  
  55. ___________________
  56. Development History
  57.  
  58. $Log:   Q:/rxdv/skeleton/vcs/erhview.cm!  $
  59.   
  60.      Rev 1.0   03 Aug 1995 20:10:16
  61.   Initial revision.
  62. --End Help-------------------------------------------------------------------*/
  63.