home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rdebug21.zip / RSTRUC.KEX < prev    next >
Text File  |  1993-03-25  |  736b  |  28 lines
  1. /*H* RSTRUC.KEX 02-10-93 14:06*/
  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='rSTRUC'
  12.  'COMMAND MSG' me 'will display only lines With REXX flow control keywords'
  13.  DB6STRUC:
  14.  'COMMAND EXTRACT /CASE'
  15.  'COMMAND SET CASE MIXED IGNORE'
  16.  'ALL /: /|/ CALL /|',
  17.  '/RETURN /|/EXIT /|/ DO /|/ END /|',
  18.  '/RETURN;/|/EXIT;/|/ DO;/|/ END;/'
  19.  'MORE',
  20.  '/ SELECT /|/ LEAVE/|/ITERATE/|',
  21.  '/ IF /|/ THEN /|/ ELSE /|',
  22.  '/ WHEN /|/OTHERWISE/'
  23.  'COMMAND SET CASE' CASE.1 CASE.2
  24.  'COMMAND CMSG ALL'
  25.  'COMMAND EMSG HIT ENTER TO RESTORE FILE'
  26.  
  27.  Return 0;
  28.