FUNCTION ver_log(xnum_oc,xcodn,xcodgrupo,xcodtipo,xcodsec)
  DEFINE xnum_oc INT,
         idx,xcodn,xcodgrupo,xcodtipo,xcodsec SMALLINT,
  arr_log DYNAMIC ARRAY OF RECORD
    fecha    CHAR(10),
    num_oc   INT,
    estado   STRING,
    observaciones VARCHAR(100),
    fecha_compromiso CHAR(10),
    us_crea   VARCHAR(50)
  END RECORD

  OPEN WINDOW w1 WITH FORM "prfmmt011b"

     DECLARE busca_log CURSOR FOR
       SELECT CONVERT(CHAR(10),a.fecha_trx,103),a.num_oc,
       CASE
        WHEN a.cerrada = 's' THEN 'CERRADA' ELSE 'ABIERTA' END,
       a.observacion,CONVERT(CHAR(10),a.fecha_compromiso,103),a.usuario
       FROM prordenstatus a
       WHERE a.num_oc = xnum_oc 
       
    LET idx = 1
    FOREACH busca_log INTO arr_log[idx].*
      LET idx = idx + 1
    END FOREACH
    DISPLAY ARRAY arr_log TO slog.*         
  CLOSE WINDOW w1
  
END FUNCTION