1 /*****************************************************************************
2 
3 	ExeFB()
4 
5 	This function executes an FB command.
6 
7 *****************************************************************************/
8 
9 #include "zport.h"		/* define portability identifiers */
10 #include "tecoc.h"		/* define general identifiers */
11 #include "defext.h"		/* define external global variables */
12 #include "deferr.h"		/* define identifiers for error messages */
13 
ExeFB()14 DEFAULT ExeFB()			/* execute an FB command */
15 {
16 	DBGFEN(1,"ExeFB",NULL);
17 
18 	if (CmdMod & DCOLON) {			/* if it's ::FB */
19 		ErrStr(ERR_ILL, "::FB");	/* illegal command "::FB" */
20 		DBGFEX(1,DbgFNm,"FAILURE");
21 		return FAILURE;
22 	}
23 
24 	SrcTyp = FB_SEARCH;
25 
26 	if (Search(FALSE) == FAILURE) {		/* FALSE: not two text args */
27 		DBGFEX(1,DbgFNm,"FAILURE");
28 		return FAILURE;
29 	}
30 
31 	CmdMod = '\0';				/* clear modifiers flags */
32 
33 	DBGFEX(1,DbgFNm,"SUCCESS");
34 	return SUCCESS;
35 }
36