System i: Programming i5/OS PASE - IBM

located at /home/samplePASE. Compile on
AIX, then ftp to i5/OS.
To ftp use the commands:
> binary
> site namefmt 1
> put samplePASE /home/samplePASE
******************************************/
int main(int argc, char *argv[])
{
/* Print out a greeting and the parameter passed in. Note argv[0] is the program
name, so, argv[1] is the parameter */
printf("Hello from i5/OS PASE program %s. Parameter value is \"%s\".\n", argv[0], argv[1]);
}
return 0;
Calling an i5/OS PASE procedure from within i5/OS programs
You can call the Qp2CallPase() and Qp2CallPase2() ILE procedures from within other ILE procedures to
run an i5/OS PASE program in a job where the i5/OS PASE environment is already running.
The Qp2RunPase() API initially starts and runs an i5/OS PASE program in a job. It returns an error if
i5/OS PASE is already active in that job.
To call i5/OS PASE procedures in a job that is already running an i5/OS PASE program, you use the
Qp2CallPase() and Qp2CallPase2() APIs.
Related information
Qp2CallPase()--Call an i5/OS PASE Procedure
Example 1: Calling an i5/OS PASE procedure from within i5/OS programs:
This example shows an ILE program calling an i5/OS PASE procedure.
Note: By using the code examples, you agree to the terms of the “Code license and disclaimer
information” on page 70.
#include
#include
#include
#define JOB_CCSID 0
int main(int argc, char *argv[])
{
QP2_ptr64_t id;
void *getpid_pase;
const QP2_arg_type_t signature[] = { QP2_ARG_END };
QP2_word_t result;
/*
* Call QP2SHELL2 to run the i5/OS PASE program
* /usr/lib/start32, which starts i5/OS PASE in
* 32-bit mode (and leaves it active on return)
*/
QP2SHELL2("/usr/lib/start32");
/*
* Qp2dlopen opens the global name space (rather than
* loading a new shared executable) when the first
* argument is a null pointer. Qp2dlsym locates the
* function descriptor for the i5/OS PASE getpid
* subroutine (exported by shared library libc.a)
*/
id = Qp2dlopen(NULL, QP2_RTLD_NOW, JOB_CCSID);
getpid_pase = Qp2dlsym(id, "getpid", JOB_CCSID, NULL);
i5/OS PASE 23