home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rdebug21.zip / RSYNMSG.KEX < prev    next >
Text File  |  1993-03-25  |  1KB  |  46 lines
  1. /*H* RSYNMSG.KEX 12-16-92 11:46 */
  2.  /*      test seperately
  3.  signal on error
  4.  signal on halt
  5.  signal on syntax
  6.  */
  7.  Parse source sys .
  8.  if      sys='OS/2'  then sys='OS2'
  9.  else if sys='PCDOS' then sys='DOS'
  10.  if (sys='DOS') + (sys='OS2')>0 then pc?=1
  11.  me='rSYNMSG'
  12.  If fn='?' Then Exit tell(me)
  13.  If arg(1)=' ' Then Exit tell(me)
  14.  SYNMSG:
  15.  Parse Arg num remainder
  16.  /* message number, further messages*/
  17.  /* expand message number from RSYNTAX*/
  18.  m.010="Num not numeric."
  19.  m.020="Missing '/*'"
  20.  m.030="Unpaired quotes, comments or brackets:"
  21.  m.040="Unknown function name:"
  22.  m.050="Undefined label:"
  23.  m.060="Invalid conditional operator:"
  24.  m.061="Too many operators"
  25.  m.070="Missing parm"
  26.  m.080="Too many parms:"
  27.  m.090="Illogical For literal in parm"
  28.  m.100="Invalid option:"
  29.  m.110="Missing ',' or parm"
  30.  m.120="Invalid flag:"
  31.  m.130="Parm 3 must start With 'M'"
  32.  m.140="Missing PARSE statement"
  33.  m.150="'=' is not surrounded By quotes"
  34.  m.160="Iterate/leave/until/while outside of do_construct"
  35.  m.170="Must be at least one name following EXPOSE"
  36.  m.180="'WITH' missing"
  37.  m.190="'THEN' expected"
  38.  m.200="Unexpected THEN or ELSE"
  39.  m.210="Unexpected WHEN or OTHERWISE"
  40.  m.220="Unexpected UNTIL or WHILE"
  41.  m.230="Missing or unmatched END at level:"
  42.  m.240="Missing ')'"
  43.  m.260="Parm 2 must be 'BEFORE'"
  44.  m.270="Parm 3 must be 'AFTER'"
  45.  Return 'SYN'num m.num remainder
  46.