System i: Programming i5/OS PASE - IBM

}
(char**)&arg_list,
NULL);
/* open a shared library */
QP2_ptr64_t openlib(char * libname) {
QP2_ptr64_t id;
int * paseErrno;
}
/* Qp2dlopen dynamically loads the specified library returning an
* id value that can be used in calls to Qp2dlsym and Qp2dlcose */
id = Qp2dlopen(libname,
(QP2_RTLD_NOW |
QP2_RTLD_MEMBER ),
JOB_CCSID);
if (id == 0) {
printf("Qp2dlopen failed. ILE errno=%i\n", errno);
if ((paseErrno=Qp2errnop()) != NULL)
printf("Qp2dlopen failed. i5/OS PASE errno=%i\n", *paseErrno);
printf("Qp2dlopen failed. Qp2dlerror = %s\n", Qp2dlerror());
}
return(id);
/* find an exported symbol */
void * findsym(const QP2_ptr64_t id, const char * functionname) {
void * symbol;
int * paseErrno;
}
/* Qp2dlsym locates the function descriptor for the
* specified function */
symbol = Qp2dlsym(id, functionname, JOB_CCSID, NULL);
if (symbol == NULL) {
printf("Qp2dlsym failed. ILE errno = %i\n", errno);
if ((paseErrno=Qp2errnop()) != NULL)
printf("Qp2dlsym failed. i5/OS PASE errno=%i\n", *paseErrno);
printf("Qp2dlsym failed. Qp2dlerror = %s\n", Qp2dlerror());
}
return(symbol);
/* call i5/OS PASE procedure */
int callPASE(const void * functionsymbol,
const void * arglist,
const QP2_arg_type_t * signature,
const QP2_result_type_t result_type,
void * buf,
const short buflen) {
int * paseErrno;
int rc;
/* Call Qp2CallPase2 to run the unction function */
rc = Qp2CallPase2(functionsymbol,
arglist,
signature,
result_type,
buf,
buflen);
if (rc != 0) {
printf("Qp2CallPase failed. rc=%i, ILE errno=%i\n", rc, errno);
if ((paseErrno=Qp2errnop()) != NULL)
printf("Qp2CallPase failed. i5/OS PASE errno=%i\n", *paseErrno);
printf("Qp2CallPase failed. Qp2dlerror=%s\n", Qp2dlerror());
i5/OS PASE 25