System i: Programming i5/OS PASE - IBM

}
}
{
printf("fopen(\"SHUPE/PASEDATA\", \"r\") failed, "
"errno = %i\n", errno);
result = 2;
}
else
{
char buf[25];
char *string;
errno = 0;
string = fgets(buf, sizeof(buf), fp);
if (!string)
{
printf("fgets() EOF or error, errno = %i\n", errno);
buf[0] = 0; /* null-terminate empty buffer */
}
src = buf;
srcLen = strlen(buf) + 1;
tgt = arg2; /* iconv output to arg2 buffer */
tgtLen = srcLen;
iconv(cd, &src, &srcLen, &tgt, &tgtLen);
fclose(fp);
}
result = 1;
/*
* Close the conversion descriptor, and return the
* result value determined above
*/
iconv_close(cd);
return result;
Example 3: Compiler commands to create the programs
When you compile your i5/OS PASE program, you must use compiler options -qalign=natural and
-qldbl128 to force relative 16-byte alignment of type long double, which is used inside type ILEpointer.
This alignment is required by ILE in i5/OS. For option -bI:, you should enter the path name in which
you saved as400_libc.exp:
xlc -o PASEtoILE -qldbl128 -qalign=natural
-bI:/afs/rich.xyz.com/usr1/shupe/PASE/as400_libc.exp
PASEtoILE.c
When you compile your ILE C module and service program, compile them with the teraspace option.
Otherwise, i5/OS PASE cannot interact with them:
CRTCMOD MODULE(MYLIB/MYMODULE)
SRCFILE(MYLIB/SRCPF)
TERASPACE(*YES *TSIFC)
CRTSRVPGM SRVPGM(MYLIB/MYSRVPGM)
MODULE(MYLIB/MOMODULE)
Finally, you must compile your DDS and propagate at least one record of data:
CRTPF FILE(MYLIB/MYDATAFILE)
SRCFILE(MYLIB/SRCDDSF)
SRCMBR(MYMEMBERNAME)
Calling i5/OS programs from i5/OS PASE
You can take advantage of existing i5/OS programs (*PGM objects) when you create your i5/OS PASE
applications. In addition, you can use the systemCL() function to run the CL CALL command.
i5/OS PASE 37