IBM Version 4 manual 132System API Programming V4R1

/\ the error code parameter.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ error_code.Bytes_Provided=sizeof(error_code);

QSZCRTPL("ABCðð5ð	",	/\ Product load name	\/
&prod_load_info,		/\ Product load information	\/
"	",	/\ Secondary language lib name \/
&prin_lib_info,		/\ Principal library	\/
&add_libs,		/\ Additional libraries	\/
ð,		/\ Number of additional libs	\/
&preop_expgm,		/\ Preoperational exit program \/
1,		/\ Number of preop exit pgms	\/
&folder_list,		/\ Folder list	\/
ð,		/\ Number of folders	\/
text_desc,		/\ Text description	\/
"\USE	",	/\ Public authority	\/
&error_code);		/\ Error code	\/

if (error_code.Bytes_Available > ð)

{

printf("Failed in QSZCRTPL API with error: %.7s", error_code.Exception_Id);

exit(1);

}

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Fill in the product load information.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

memcpy(prod_load_info.Lod_Type,"\LNG ",1ð);

memcpy(prod_load_info.Lod_ID,"2924 ",8);

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\	Fill in the principal	library information. There are no	\/
/\	additional libraries.		\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ memcpy(prin_lib_info.Post_Exit_Pgm,"ABCPGMMRI2",1ð);

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Fill in the preoperational exit program.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ memcpy(preop_expgm.Pre_Ext_Pgm,"ABCPGMMRI1",1ð);

QSZCRTPL("ABCðð29	",	/\ Product load name	\/
&prod_load_info,		/\ Product load information	\/
"ABC2924	",	/\ Secondary language lib name \/
&prin_lib_info,		/\ Principal library	\/
&add_libs,		/\ Additional libraries	\/
ð,		/\ Number of additional libs	\/
&preop_expgm,		/\ Preoperational exit program \/
1,		/\ Number of preop exit pgms	\/
&folder_list,		/\ Folder list	\/
ð,		/\ Number of folders	\/
text_desc,		/\ Text description	\/
"\USE	",	/\ Public authority	\/
&error_code);		/\ Error code	\/

if (error_code.Bytes_Available > ð)

{

printf("Failed in QSZCRTPL API with error: %.7s",

B-132System API Programming V4R1