1 /*****************************************************************************
2
3 ExeCom()
4
5 This function executes a , (comma argument separator) 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
ExeCom()14 DEFAULT ExeCom() /* execute a , (comma) command */
15 {
16 DBGFEN(1,"ExeCom",NULL);
17
18 if (EStTop == EStBot) { /* if no numeric argument */
19 ErrMsg(ERR_NAC); /* no arg before , */
20 DBGFEX(1,DbgFNm,"FAILURE");
21 return FAILURE;
22 }
23
24 if (GetNmA() == FAILURE) {
25 DBGFEX(1,DbgFNm,"FAILURE");
26 return FAILURE;
27 }
28
29 MArgmt = NArgmt;
30 CmdMod |= MARGIS;
31
32 DBGFEX(1,DbgFNm,"SUCCESS");
33 return SUCCESS;
34 }
35