Quellcode Prozedur q

Das DB-Objekt selbst

CREATE PROCEDURE "demoadm".q_perskto(
  pv_mandant char(2),
  pv_pkto char(15),
  pv_jahr decimal(4,0),
  pv_periode decimal(2,0)
)
  DEFINE err_sql int;
  DEFINE err_isam int;
  DEFINE err_txt varchar(160,0);

  BEGIN
    ON EXCEPTION
    SET err_sql, err_isam, err_txt
    INSERT INTO DWE_perskto
    VALUES (0,err_sql,err_isam,err_txt,0,'sr_sh_pkto',
      'D',
      pv_mandant,
      pv_pkto,
      pv_jahr,
      pv_periode,
      0.0,
      0.0
    );
    SET LOCK MODE TO NOT WAIT;
    END EXCEPTION
    SET LOCK MODE TO WAIT 10;

    DELETE FROM sr_sh_pkto
    WHERE (pkto_nr = pv_pkto)
    AND (mandant = pv_mandant)
    AND (jahr    = pv_jahr)
    AND (periode = pv_periode)
    ;

    SET LOCK MODE TO NOT WAIT;
  END
END PROCEDURE

Abhängige Objekte, Rechte

grant  execute on "demoadm".q_perskto to "public" as "demoadm";

Quellcode Prozedur q_perskto

Das DB-Objekt selbst

Abhängige Objekte, Rechte