[Q]: Как вызывать рекс-функции из своей программы?

[A]: Dmitry Zavalishin (2:5020/32)

Это - кусок кода, наспех выдраный из U1 - вряд ли скомпилится у вас, но как пример - сойдет, надеюсь.

#define INCL_REXXSAA #include <rexxsaa.h> /* needed for RexxStart() */ #include <stdio.h> /* needed for printf() */ #include <string.h> /* needed for strlen() */

bool CallRexx( const char *prog, string &out, const char *a1, const char *a2 )

{
RXSTRING arg[2]; // argument string for REXX
RXSTRING rexxretval; // return value from REXX

APIRET rc; // return code from REXX
SHORT rexxrc = 0; // return code from function

if( prog == NULL || strlen(prog) == 0 )
return Err;

/* By setting the strlength of the output RXSTRING to zero, we */
/* force the interpreter to allocate memory and return it to us. */
/* We could provide a buffer for the interpreter to use instead. */
rexxretval.strlength = 0L; /* initialize return to empty*/

if( a1 == NULL ) a1 = "";
MAKERXSTRING(arg[0], a1, strlen(a1)); /* create input argument */

if( a2 == NULL ) a2 = "";
MAKERXSTRING(arg[1], a2, strlen(a2)); /* create input argument */

/* Here we call the interpreter. We don't really need to use */
/* all the casts in this call; they just help illustrate */
/* the data types used. */

rc=RexxStart((LONG) 2, /* number of arguments */
(PRXSTRING) &arg, /* array of arguments */
(PSZ) prog, /* name of REXX file */
(PRXSTRING) 0, /* No INSTORE used */
(PSZ) "U1", /* Command env. name */
(LONG) RXSUBROUTINE, /* Code for how invoked */
(PRXSYSEXIT) 0, /* No EXITs on this call */
(PSHORT) &rexxrc, /* Rexx program output */
(PRXSTRING) &rexxretval ); /* Rexx program output */

debug( “CallRexx() = '%s',int=%d, rexx=%d”,rexxretval.strptr, rc, (int)rexxrc);

printf(“Interpreter Return Code: %d\n”, rc); printf(“Function Return Code: %d\n”, (int) rexxrc); printf(“Args: '%s', '%s'\n”, arg[0].strptr, arg[1].strptr ); printf(“Ret : '%s'\n”, rexxretval.strptr);

if( rexxretval.strptr != NULL )
out = rexxretval.strptr;

DosFreeMem(rexxretval.strptr); /* Release storage */
/* given to us by REXX. */

if( rexxrc != 0 )
{
error( EI_None, "CallRexx( '%s', out, '%s', '%s' ) returned %d",
prog, a1, a2, (int) rexxrc );
return Err;
}

return rc == 0 ? Ok : Err;
}