System i: Programming i5/OS PASE - IBM

}
/* rcvr is the output parameter 1 from QSZRTVPR */
char rcvr[108];
/* rcvrlen is input parameter 2 to QSZRTVPR */
int rcvrlen = sizeof(rcvr);
/* errcode is input parameter 5 to QSZRTVPR */
struct {
int bytes_provided;
int bytes_available;
char msgid[7];
} errcode;
/* qszrtvpr_pointer will contain the i5/OS 16-byte tagged system
pointer to QSZRTVPR */
ILEpointer qszrtvpr_pointer;
/* qszrtvpr_argv6 is the array of argument pointers to QSZRTVPR */
void *qszrtvpr_argv[6];
/* return code from _RSLOBJ2 and _PGMCALL functions */
int rc;
/* Set the i5/OS pointer to the QSYS/QSZRTVPR *PGM object */
rc = _RSLOBJ2(&qszrtvpr_pointer,
RSLOBJ_TS_PGM,
"QSZRTVPR",
"QSYS");
/* initialize the QSZRTVPR returned info structure */
memset(rcvr, 0, sizeof(rcvr));
/* initialize the QSZRTVPR error code structure */
memset(&errcode, 0, sizeof(errcode));
errcode.bytes_provided = sizeof(errcode);
/* initialize the array of argument pointers for the QSZRTVPR API */
qszrtvpr_argv[0] = &rcvr;
qszrtvpr_argv[1] = &rcvrlen;
qszrtvpr_argv[2] = &format;
qszrtvpr_argv[3] = &prodinfo;
qszrtvpr_argv[4] = &errcode;
qszrtvpr_argv[5] = NULL;
/* Call the i5/OS QSZRTVPR API from i5/OS PASE */
rc = _PGMCALL(&qszrtvpr_pointer,
(void*)&qszrtvpr_argv,
0);
/* Check the contents of bytes 63-64 of the returned information.
If they are not '90' (in EBCDIC), the code load is NOT correctly
installed */
if (memcmp(&rcvr[63], &installed, 2) != 0)
printf("i5/OS Option 33 is NOT installed\n");
else
printf("i5/OS Option 33 IS installed\n");
return(0);
Running i5/OS commands from i5/OS PASE
You can extend the capabilities of your i5/OS PASE program by running control language (CL)
commands that use i5/OS functions.
Use the systemCL runtime function to run an i5/OS command from within an i5/OS PASE program.
i5/OS PASE 39