QMExecute()

The output from the command is returned as a text string. If the command does not produce any output, the C API returns a null pointer.

If the command completes without requesting input, the Err variable is set to SV_OK.

If the command requests input, any output up to that point is returned and the Err variable is set to SV_PROMPT. The client may respond to this using the QMRespond() function or abort the command using the QMEndCommand() function.

On completion of the command, QMStatus() will return the value of @SYSTEM.RETURN.CODE.

The executed command may perform most functions of the QM database. Specific restrictions are:

Input may be requested from the client using the QMBasic INPUT and INPUT@ statements. Use of the KEYIN() function is not allowed.

Testing for input using the QMBasic KEYREADY() function or the INPUT -1 syntax will not show input waiting.

The length parameter and special options such as HIDDEN and UPCASE in an INPUT statement will be ignored if present. Only simple input is supported via QMExecute().

Execution of a further command from within the executed command may not behave correctly.

The example program fragments below run a program named MYPROG on the server. This program repeatedly outputs data using CRT, DISPLAY or PRINT and prompts for user input. Each output /response pair is handled by the client loop until the program terminates.

char * QMExecute(char * Cmnd, int * Err)

S = QMExecute("RUN MYPROG", &Err);

while(Err == SV_PROMPT)

{

...Process returned value and get new Response...

QMFree(S);

S = QMRespond(Response, &Err);

}

...Process final response...

Note that the returned string pointers from both QMExecute() and QMRespond() point to dynamically allocated memory that must be released using QMFree() when no longer required.

QMExecute(ByVal Cmnd as String, ByRef Err as Integer) as String

S = QMExecute("RUN MYPROG", Err)

While Err = SV_PROMPT

...Process returned value and get new Response...

S = QMRespond(Response, Err)

End While

...Process final response...

Execute(Cmnd, Err)

S = session->Execute("RUN MYPROG", Err)

loop

while Err = SV$PROMPT

...Process returned value and get new Response...

S = session->Respond("RUN MYPROG", Err)

repeat

...Process final response...

String Execute(String Cmnd)

S = QMExecute("RUN MYPROG");

while(qm.ServerError == SV_PROMPT)

{

...Process returned value and get new Response...

QMFree(S);

S = QMRespond(Response);

}

...Process final response...

Execute(Cmnd)

S, Err = qm.Execute("RUN MYPROG")

while(qm.ServerError == SV$PROMPT):

...Process returned value and get new Response...

S, Err = qm.Respond(Response)

...Process final response...