6В06 Информационно-коммуникационные технологии

Set Term ^;

pPar char(20),PYear integer,pSex char(1))

AS

Begin

into pFam,pNam,pPar,pYear,pSex DO

SUSPEND;

END;^

/*Процедура SetInf - процедура выполняемая, изменяет данные о сотруднике, возвращает номер записи или 0, если сотрудника нет параметрическим запросом*/

Set Term ^;

Create Procedure SetInf

(pFam char(20),pNam Char(20),pPar char(20), PYear integer, pDep Char(15),pSex char(1))

RETURNS

BEGIN

Select Num From Pers

Where (Fam=:pFam)And(Nam=:pNam)And(par=:pPar) into mess;

if (mess>0) Then

Update Pers Set Year_b=:pYear, Dep=:pDep,Sex=:pSex Where (Fam=:pFam)And(Nam=:pNam)And (par=:pPar);

END;^

/*Процедура GetInf - процедура выполняемая, возвращает данные о сотруднике, или год рождения = 0, если сотрудника нет параметрическим запросом*/

SET TERM ^;

Create Procedure GetInf

(pFam char(20),pNam Char(20),pPar char(20)) RETURNS

(PYear integer, pDep Char(15),pSex char(1))

AS

BEGIN

Select Year_b, Dep, Sex From Pers

Where (Fam=:pFam)And(Nam=:pNam)And (par=:pPar) Into pYear,pDep,pSex;

END;^