FUNCTION entregas_parciales(xorden,xnum_req ,
          xcodn,xcodgrupo,xcodtipo,xcodsec)
   DEFINE xorden,
          xnum_req,idx INT,
          xcodn,xcodgrupo,xcodtipo,xcodsec SMALLINT
 DEFINE zbusca_parcial DYNAMIC ARRAY OF RECORD
        secuencia     INT,
        cod_n         SMALLINT,
        cod_grupo     SMALLINT,
        cod_tipo      SMALLINT,
        cod_sec       SMALLINT,
        cantidad      DEC(12,5),
        fech_emb      DATE,
        fech_ent      DATE
  END RECORD

  DECLARE entregas CURSOR FOR
    SELECT a.secuencia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad,a.fech_emb,a.fech_ent
    FROM cotb00025 a WHERE a.num_oc = xorden AND a.num_req = xnum_req AND
                           a.cod_n = xcodn AND a.cod_grupo = xcodgrupo 
                       AND a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec
   LET idx =1
   FOREACH entregas INTO zbusca_parcial[idx].*
     LET idx = idx + 1
   END FOREACH   
  RETURN zbusca_parcial
END FUNCTION