home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rdebug21.zip / RDBMSG.KEX < prev    next >
Text File  |  1993-03-25  |  5KB  |  110 lines
  1. /*H* RDBMSG.KEX 02-15-93 10:27*/
  2. /* delete following code (when optimizing) that is marked:*/
  3. arg dbnum .
  4. parse arg . dbrest
  5. parse arg . dbxme dbsigl .
  6.  Parse Value 'rdbMSG' 0 With dbme dbtrc dbtrap dbtrapp dbmsg
  7.  Signal On Error;   Signal On Failure;  Signal On Halt
  8.  Signal On Novalue; Signal On Notready; Signal ON Syntax
  9. if dbnum='?' then /*Exit*/ Return tell(dbme);
  10. sep=' '
  11.  trace o?r   /*T*/
  12. if      dbnum>399 then call msg400
  13. else if dbnum> 99 then call msg100
  14. else call msg000
  15. if left(dbnum,2)='80' then msg='DBG'dbnum''left(dbm.dbnum,1) dbxme dbsigl substr(dbm.dbnum,2)'!'sep
  16. else msg= 'DBG'dbnum''dbm.dbnum dbrest'!'sep;/**/
  17. /*Exit*/ Return msg
  18.  
  19. MSG000:
  20. if dbnum<20 then sep=''
  21. dbm.001="i You didn't specify an existing program - Choose OPEN.";
  22. dbm.003="i Make changes & enter FILE or QQ to continue";
  23. dbm.004="w Correct item after pressing F2 - Invalid item in profile:";
  24. dbm.005="w Correct Entry after pressing F2 - Invalid entry in profile:";
  25. dbm.007="w Missing quotes, comments at points: .1 to .x";
  26. dbm.008="e PROCEDURE found in source",
  27.     sep "Remove statement or place routine in external file"
  28. dbm.009="e File missing:"
  29. dbm.010="t No system-specific code exists, please redo install for system:"
  30. dbm.015="i If you wish To use use a new log choose 'OPEN'."
  31. dbm.016="i If you wish to rerun last session, modify & select RERUN."
  32. dbm.017="i Make any change(s) you wish To your LOG after pressing F2."
  33. dbm.018="i Make any change(s) you wish To your SOURCE after pressing F2."
  34. dbm.019="i Make any change(s) you wish To your PROFILE after pressing F2."
  35. dbm.020="i Breakpoint on count";
  36. dbm.030="i Change in:";
  37. dbm.041="e Error in rDEBUG Nucleus, enter SAVE (rDEBUG may abort)";
  38. dbm.042="e Error in rDEBUG Nucleus, (rDEBUG will probably abort";
  39. dbm.043="e Error in rDEBUG, try another request";
  40. dbm.044="e Error in rDEBUG or your program, try again";
  41. dbm.045="e Error in your program, please correct. Resumes at";
  42.  
  43. return 0; MSG100:
  44. dbm.102="w Unsupported key - try another.";
  45. dbm.104="e Invalid key:";
  46. dbm.110="i Breakpoint:";
  47. dbm.111="i Invalid selection:";
  48. dbm.112="i Welcome, ";
  49. dbm.115="w This command is only effective in:"
  50. dbm.190="w To continue, Please FILE or QUIT all";
  51. dbm.220="w Exiting rDEBUG";
  52. dbm.222="w ABORT cancelled - you may continue";
  53. dbm.230="i Press C-F4 to restore SESSION LOG";
  54. dbm.305="e Not > 0 and < size of program:";
  55. dbm.310="e To label doesn't exist:";
  56. dbm.311="e Not possible to 'SIGNAL' out of a restricted DO/SELECT",
  57.   sep"Suggest you adjust looping control variable.";
  58. dbm.320="r Use , RESTART or SAVE to exit. You may not";
  59. dbm.330="i To load another session please use EXIT or RESTART";
  60. dbm.333="e Invalid characters:";
  61. dbm.334="e Operand too short:";
  62. dbm.335="r WATCH set for:";
  63. dbm.337="r ";
  64. dbm.338="e Invalid syntax for conditional",
  65.     sep " Must be of form (abc<>1) (note, there may not be any spaces";
  66. dbm.340="e Must be numeric and positive:";
  67. dbm.345="i Switch";
  68. dbm.350="r Switch";
  69. dbm.360="e May be set '1' (ON) or '0' (OFF), setting of";
  70. dbm.364="r WATCH is:";
  71.  
  72. return 0; MSG400:
  73. dbm.411="i Breakpoints are:"
  74. dbm.520="i Line(s) not valid:";
  75. dbm.610="i Not available for this release";
  76. dbm.710="e Cursor not on a word";
  77. dbm.711="e Cursor not in file area."
  78. dbm.750="e Event trap in external module."
  79. dbm.800="i Your program terminated - you may continue at line 1"
  80. dbm.80E="t Error in system call:";
  81. dbm.80F="t Failure in system call:";
  82. dbm.80H="i Program interrupted by user";
  83. dbm.80R="t Device not ready";
  84. dbm.80S="e REXX syntax error";
  85. dbm.80V="e Novalue found:";
  86. dbm.840="e Error message and contents of line: ";
  87. dbm.842="i Call stack: ";
  88. dbm.851="w Will attempt to continue at line:";
  89. dbm.852="t Trap in restricted DO/SELECT range-",
  90.         sep "Enter GO to set ERROR off & RESTART program";
  91. dbm.860="r File has been changed - enter 'Y' to UNLOAD.";
  92. dbm.920="w Missing or unmatched end";
  93. dbm.982="i SAVE was successful on: ";
  94. dbm.980="r Has file been changed?, enter 'Y' to SAVE.";
  95. dbm.998="i Unsupported when FULLSW=0! - Register for FULL system.";
  96. dbm.999="i Not available yet! Register to get FULL version."
  97. return 0
  98.  ERROR:    return db9trap(sigl 80e) sourceline(sigl)
  99.  FAILURE:  return db9trap(sigl 80f) sourceline(sigl)
  100.  HALT:     return db9trap(sigl 80h)
  101.  NOTREADY: return db9trap(sigl 80r) sourceline(sigl)
  102.  NOVALUE:  return db9trap(sigl 80v)
  103.  SYNTAX:   return db9trap(sigl 80e) errortext(rc)'~'sourceline(sigl)
  104.  db9TRAP:
  105.  if dbtrc=-7 then dbtrapp=dbtrap
  106.  parse arg dbsigl dbtcode dbtrest
  107.  dbtrap = 0 dbme dbsigl dbtcode dbmsg rdbmsg(dbtcode dbme dbsigl) dbtrest
  108.  dbtrc=-7
  109.  return -7 dbtrapp'~'dbtrap
  110.