/* rexx */
/*-------------------------------------------------------------------*/
/*                                                                   */
/*                         REXX Exec : SLEEP                         */
/*                                                                   */
/*  Description : This EXEC will 'sleep' an exec for the passed      */
/*                number of minutes (or hours)                       */
/*                If no parameters are passed 1 minute will be used  */
/*                                                                   */
/*                                                                   */
/*  Created on : 5 May 2020                                          */
/*  Created by : Kevin E. Ferguson                                   */
/*             : Userid(MIT001)                                      */
/*             : using ABBYDALE.PROD.REXX(SLEEP)                     */
/*                                                                   */
/*  Called by :                                                      */
/*                                                                   */
/*  Calls :                                                          */
/*                                                                   */
/*  Change Activity :                                                */
/*                                                                   */
/*                ©Copyright of Abbydale Systems LLC.                */
/*                                                                   */
/*-------------------------------------------------------------------*/
parse upper arg time value
If value <> "" then do
/*   If you don't pass a value seconds are assumed otherwise:        */
/*      use M for minutes or H for hours                             */
   value = substr(value,1,1)
   if value = "M" then time = time * 60
   if value = "H" then time = time * 60 * 60
end
   if time = "" then time = '1'
   hit = 0
Do while hit < time
  hit = TIME('Elapsed ')
  end = lastpos('.',hit)
  hit = substr(hit,1,end)
end
exit
/*-------------------------------------------------------------------*/
/*                           End of SLEEP                            */
/*-------------------------------------------------------------------*/