procedure Pgqua2;