inc/bq-do.i

   1 /****************************************************/
   2 /* Filename:    inc/bq-do.i                         */
   3 /* Notes:       Run process on the batch queue      */
   4 /* Parameters:                                      */
   5 /*      1   The full pathname of the process to run */
   6 /*      2   The parameters of the process to run    */
   7 /*      3   "run locally" logical value             */
   8 /****************************************************/
   9
  10 IF {3} THEN DO:
  11   RUN make-bq-entry IN sys-mgr( "{1}", {2}, ?, ? ).
  12 END.
  13 ELSE DO:
  14   RUN notify( 'set-busy,container-source':U ).
  15   RUN {1} ( {2} ).
  16   RUN notify( 'set-idle,container-source':U ).
  17 END.
  18