home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / test80.zip / TEST80.TRC next >
Text File  |  1994-01-11  |  3KB  |  83 lines
  1.      TEST80A
  2.      -------
  3.      3 *-*   Nop;
  4.      6 *-*   queue_name = 'TEST80';
  5.        >>>     "TEST80"
  6.      7 *-*   new_queue_name = RxQueue('CREATE', queue_name);
  7.        >>>     "TEST80"
  8.      8 *-*   old_queue = RxQueue('SET', new_queue_name);
  9.        >>>     "SESSION"
  10.     11 *-*   Do i = 1 To 2;
  11.        >>>       "1"
  12.        >>>       "2"
  13.     12 *-*     output_line = 'TEST80 - Line number' i;
  14.        >>>       "TEST80 - Line number 1"
  15.     13 *-*     Queue output_line;
  16.        >>>       "TEST80 - Line number 1"
  17.     14 *-*     End;
  18.     11 *-*     Do i = 1 To 2;
  19.        >>>       "2"
  20.     12 *-*     output_line = 'TEST80 - Line number' i;
  21.        >>>       "TEST80 - Line number 2"
  22.     13 *-*     Queue output_line;
  23.        >>>       "TEST80 - Line number 2"
  24.     14 *-*     End;
  25.     11 *-*     Do i = 1 To 2;
  26.        >>>       "3"
  27.     17 *-*   'start "Test80B Child" /MIN TEST80B.CMD' new_queue_name i - 1 trace_type;
  28.        >>>     "start "Test80B Child" /MIN TEST80B.CMD TEST80 2 r"
  29.     20 *-*   Do Forever;
  30.     21 *-*     Call SysSleep 2;
  31.  
  32.  
  33.      TEST80B
  34.      -------
  35.      8 *-*   Nop;
  36.     10 *-*   current_line_count = 0;
  37.        >>>     "0"
  38.     11 *-*   hold_queue_name = RxQueue('SET', queue_name);
  39.        >>>     "SESSION"
  40.     13 *-*   Do While QUEUED() > 0;
  41.        >>>       "1"
  42.     14 *-*     Pull input_line;
  43.        >>>       "TEST80 - LINE NUMBER 1"
  44.     15 *-*     Say input_line;
  45.        >>>       "TEST80 - LINE NUMBER 1"
  46.     16 *-*     current_line_count = current_line_count + 1;
  47.        >>>       "1"
  48.     17 *-*     End;
  49.     13 *-*     Do While QUEUED() > 0;
  50.        >>>       "1"
  51.     14 *-*     Pull input_line;
  52.        >>>       "TEST80 - LINE NUMBER 2"
  53.     15 *-*     Say input_line;
  54.        >>>       "TEST80 - LINE NUMBER 2"
  55.     16 *-*     current_line_count = current_line_count + 1;
  56.        >>>       "2"
  57.     17 *-*     End;
  58.     13 *-*     Do While QUEUED() > 0;
  59.        >>>       "0"
  60.     19 *-*   If current_line_count = passed_line_count;
  61.        >>>     "1"
  62.     19 *-*   Then;
  63.     20 *-*     Say 'Line counts agree';
  64.        >>>       "Line counts agree"
  65.     24 *-*   Exit;
  66.        >>>       "0"
  67.  
  68.  
  69.      TEST80A
  70.      -------
  71.     22 *-*     If QUEUED() = 0;
  72.        >>>       "1"
  73.     22 *-*     Then;
  74.     22 *-*       Leave;
  75.     20 *-*     Do Forever;
  76.     26 *-*   Call RxQueue 'DELETE', new_queue_name;
  77.        >>>     "0"
  78.     27 *-*   If result <> 0;
  79.        >>>     "0"
  80.     31 *-*   Call RxQueue 'SET', old_queue;
  81.        >>>     "TEST80"
  82.     32 *-*   Exit;
  83.