====== pears.NetTestGetStaff ======
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
===== Original SQL =====
create procedure "pears"."NetTestGetStaff"(
/* DOC
This procedure fetches the staff id, staff name and staff email from the staff table then checks if they are web enabled or not
It was created to show the apprentacies how to create sample IQXWeb Pages
*/
in "pWebUserID" char(20) )
result( "staffid" char(20),"name" char(60),"EMail" char(50),"LoginID" char(50) )
begin
select "staff"."staffid","staff"."name","staff"."email","IQXNetUser"."LoginID"
from "staff"
left outer join "IQXNetUser"
on "staff"."staffid" = "IQXNetUser"."StaffID"
end /* TEST
call NetTestSetup('');
SELECT * FROM NetTestGetStaff('IQXNET') WHERE staffid='TEST';
expect staffid=TEST, LoginID=test.user.owner;
expect EOF;
*/
go
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetTestGetStaff" IS
{create PROCEDURE pears."NetTestGetStaff"
/* DOC
This procedure fetches the staff id, staff name and staff email from the staff table then checks if they are web enabled or not
It was created to show the apprentacies how to create sample IQXWeb Pages
*/
( in pWebUserID char(20) )
RESULT( staffid char(20), name char(60), EMail char(50), LoginID char(50) )
BEGIN
SELECT
staff.staffid, staff.name, staff.email, IQXNetUser.LoginID
FROM staff
LEFT JOIN IQXNetUser
ON staff.staffid=IQXNetUser.StaffID
END
/* TEST
call NetTestSetup('');
SELECT * FROM NetTestGetStaff('IQXNET') WHERE staffid='TEST';
expect staffid=TEST, LoginID=test.user.owner;
expect EOF;
*/
}