DELETE TEST_BABY_ED;
REDEFINE PROCEDURE TEST_BABY_ED
DECLARE INSTR	PIC X(1000).
DECLARE OUTSTR	PIC X(1000).
DECLARE CHRS	LONG.
DECLARE DWN	LONG.
DECLARE CLRBEF	LONG.
DECLARE CLRAFT	LONG.
INSTR = "This is a test of the new user added function BABY_ED " |
	".   It should be performed whenever modifications to Datatrieve " |
	"or the actual function BABY_ED. "
CHRS = 1000
DWN = *."number of lines from top of screen"
CLRBEF = *."'0' to clear screen before function. '1' to save screen. "
CLRAFT = *."'0' to clear screen after function.  '1' to save screen. "
!
OUTSTR = FN$BABY_ED(INSTR, CHRS, DWN, CLRBEF,CLRAFT)
END_PROCEDURE