home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / skeleton.zip / ErhEdit.cmd < prev    next >
OS/2 REXX Batch file  |  1995-08-03  |  3KB  |  66 lines
  1. /*****************************************************************************\
  2. | Specify file editor to use to display .cmd code errors.                     |
  3. |                                                                             |
  4. | $Revision:   1.0  $
  5. |     $Date:   03 Aug 1995 20:10:10  $                                        |
  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 line .
  20.   if line = '' then line = 1
  21.   /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
  22.   /*>>>>>>> Customize the following line to use your favorite editor. <<<<<<<*/
  23.   '@START EPM' file "'goto" line"'"
  24.   exit
  25. /*--Begin Help-----------------------------------------------------------------
  26. Specify file editor to use to display .cmd code errors.  Called by the standard
  27. Skeleton error trap routine.
  28.  
  29. Params: file-to-edit error-line-number
  30.  
  31.   file-to-edit      is the filespec of the file which the editor is expected to
  32.                     open in the event of an error detected by Skeleton.
  33.  
  34.   error-line-number is the line number of the source code in error.
  35.  
  36. ________________
  37. Alternate Params: [ ? | ?? | ??? | ???? ]
  38.  
  39. where:
  40.  
  41.   ?     Displays up to the "Syntax:" or "Params:" portion of this help text.
  42.  
  43.   ??    Displays this entire help text except for the technical information.
  44.  
  45.   ???   Displays this entire help text.
  46.  
  47.   ????  Puts this help text into a file whose name is the same as the name of
  48.         this program and whose extent is .ABS.  The file is written to the same
  49.         directory as that in which this program resides.
  50.  
  51. _______________
  52. Technical Notes
  53.  
  54. This program is not intended to be a general utility.  It is designed to
  55. support the standard REXX Skeleton as part of its error and event trap
  56. processor.
  57.  
  58. ___________________
  59. Development History
  60.  
  61. $Log:   Q:/rxdv/skeleton/vcs/erhedit.cm!  $
  62.   
  63.      Rev 1.0   03 Aug 1995 20:10:10
  64.   Initial revision.
  65. --End Help-------------------------------------------------------------------*/
  66.