* ------------------------------------------------------------------------
      * (C) Ajut/400
      * ------------------------------------------------------------------------
      *  Programa: Realizar espera
      * ------------------------------------------------------------------------
      *  Programado por: Alex Martínez
      *                  http://www.ajut400.com
      * ------------------------------------------------------------------------
     h bnddir('QC2LE')
     d mi_time         s               z
     d mitime          pr              *   extproc('mitime')
     d   mitimePtr                     *   value
     d   horas                       10i 0 value
     d   minutos                     10i 0 value
     d   segundos                    10i 0 value
     d   centesimas                  10i 0 value
     d waittime        pr                  extproc('waittime')
     d   mitimePtr                     *   value
     d   opciones                    10i 0 value
     d Opciones        s             10i 0

      * La función waittime necesita un parámetro de tipo puntero
      * apuntando a un estruct de tipo "time" y unas opciones de
      * información obtenida de miembro QP0Z1170 de archivo H de
      * biblioteca QSYSINC sobre especificación SPEC 1170

     c                   callp     waittime (mitime(%addr(mi_time) :
     c                                       0 : 0 : 0 : 50 ) :
     c                                       Opciones)

     c                   eval      *inlr = *on