home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / test80.zip / TEST80B.CMD < prev   
OS/2 REXX Batch file  |  1994-01-11  |  2KB  |  25 lines
  1. /* TEST80B.CMD - Child called by TEST80A to read queue */        /* 0001 */
  2. /*                                                               /* 0002 */
  3.    Calling parmeters:  queue name,                               /* 0003 */
  4.                        number of lines put into queue,           /* 0004 */
  5.                        [ trace value ]                           /* 0005 */
  6. */                                                               /* 0006 */
  7. parse arg queue_name  passed_line_count trace_type .             /* 0007 */
  8. trace value trace_type; nop                                      /* 0008 */
  9.                                                                  /* 0009 */
  10. current_line_count = 0                                           /* 0010 */
  11. hold_queue_name = RxQueue( 'SET', queue_name )                   /* 0011 */
  12.                                                                  /* 0012 */
  13. do while QUEUED() > 0                                            /* 0013 */
  14.    pull input_line                                               /* 0014 */
  15.    say input_line                                                /* 0015 */
  16.    current_line_count = current_line_count +1                    /* 0016 */
  17. end                                                              /* 0017 */
  18.                                                                  /* 0018 */
  19. if current_line_count = passed_line_count then                   /* 0019 */
  20.    say 'Line counts agree'                                       /* 0020 */
  21. else                                                             /* 0021 */
  22.    say passed_line_count 'lines passed;   ' ||,                  /* 0022 */
  23.        current_line_count 'lines read'                           /* 0023 */
  24. exit                                                             /* 0024 */
  25.