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()14DEFAULT 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