head	1.2;
access;
symbols;
locks
	mer:1.2; strict;
comment	@# @;


1.2
date	91.11.20.03.05.48;	author mer;	state Exp;
branches;
next	1.1;

1.1
date	91.08.16.17.19.19;	author kemnitz;	state Exp;
branches;
next	;


desc
@oops - this is the real script-32
@


1.2
log
@postquel syntax fixes
@
text
@/*
 * here is a POSTQUEL function with a class as an argument
 * it defines a complex object manager of type emp for each 
 * employee
 */
define function manager_2 ( language = "postquel",
			    returntype = emp )
    arg is (emp)
    as retrieve (e.all) from e in emp
       where e.name  = dept.mgrname and dept.dname = current.dept
\g
@


1.1
log
@Initial revision
@
text
@d6 6
a11 7
define postquel function manager_2 (emp)
returns emp is
retrieve (e.all) 
from e in emp 
where e.name  = dept.mgrname
and dept.dname = current.dept
\p
@
