home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / test80.zip / TEST80A.CMD < prev    next >
OS/2 REXX Batch file  |  1994-01-11  |  2KB  |  33 lines
  1. /* TEST80A.CMD - Parent calling TEST80B child with Queue data */ /* 0001 */
  2. trace_type = VALUE( 'TRACE',, 'OS2ENVIRONMENT' )                 /* 0002 */
  3. trace value trace_type; nop                                      /* 0003 */
  4.                                                                  /* 0004 */
  5. /* setup queue structure */                                      /* 0005 */
  6. queue_name     = 'TEST80'                                        /* 0006 */
  7. new_queue_name = RxQueue( 'CREATE', queue_name )  /* create queue    */
  8. old_queue      = RxQueue( 'SET', new_queue_name ) /* name new active */
  9.                                                                  /* 0009 */
  10. /* put lines into queue */                                       /* 0010 */
  11. do i = 1 to 2                                                    /* 0011 */
  12.    output_line = 'TEST80 - Line number' i                        /* 0012 */
  13.    queue output_line                                             /* 0013 */
  14. end                                                              /* 0014 */
  15.                                                                  /* 0015 */
  16. /* Start TEST80B.CMD (child) to read queue & wait for it to finish */
  17. 'start "Test80B Child" /MIN TEST80B.CMD' new_queue_name,         /* 0017 */
  18.                                          i - 1,                  /* 0018 */
  19.                                          trace_type              /* 0019 */
  20. do forever                                                       /* 0020 */
  21.    call SysSleep 2                                               /* 0021 */
  22.    if QUEUED() = 0 then leave                                    /* 0022 */
  23. end                                                              /* 0023 */
  24.                                                                  /* 0024 */
  25. /* Kill new queue */                                             /* 0025 */
  26. call RxQueue 'DELETE', new_queue_name                            /* 0026 */
  27. if result <> 0 then                                              /* 0027 */
  28.    do                                                            /* 0028 */
  29.       say 'Delete unsuccessful, return code =' RESULT            /* 0029 */
  30.    end                                                           /* 0030 */
  31. call RxQueue 'SET', old_queue                                    /* 0031 */
  32. exit                                                             /* 0032 */
  33.