IBM Version 4 manual 130System API Programming V4R1

void Create_Prod_Def_Obj()
{
Qsz_Prd_Inf_t prod_info;	/\ Product information	\/
Qsz_Prd_Opt_t prod_opt_list;	/\ Product option list	\/
Qsz_Lng_Lod_t prod_lang_load;	/\ Product language load list	\/
Qus_EC_t error_code;	/\ Error code parameter	\/
char text_desc[5ð];	/\ Text description	\/

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

/\ Fill in the product information.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ memset(&prod_info,' ',sizeof(prod_info)); memcpy(prod_info.PID,"ðABCABC",7); memcpy(prod_info.Rls_Lvl,"V3R1Mð",6);

memcpy(prod_info.Msg_File,"ABCMSG ",1ð); memcpy(prod_info.Fst_Cpyrt,"\CURRENT ",1ð); memcpy(prod_info.Cur_Cpyrt,"\CURRENT ",1ð); memcpy(prod_info.Rls_Date,"9412ð1",6); memcpy(prod_info.Alw_Mult_Rls,"\NO ",4);

memcpy(prod_info.Reg_ID_Type,"\PHONE ",1ð);

memcpy(prod_info.Reg_ID_Val,"5ð7253ð927 ",14); /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Fill in the product option list.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ memset(&prod_opt_list,' ',sizeof(prod_opt_list)); memcpy(prod_opt_list.Opt,"ðððð",4); memcpy(prod_opt_list.Msg_ID,"ABCððð1",7); memcpy(prod_opt_list.Alw_Dyn_Nam,"\NODYNNAM ",1ð); memcpy(prod_opt_list.Cod_Lod,"5ðð1",4); /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Fill in the product language load list.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ memset(&prod_lang_load,' ',sizeof(prod_lang_load));

memcpy(prod_lang_load.Lng_Lod,"2924 ",8); memcpy(prod_lang_load.Opt,"ðððð",4);

memset(text_desc,' ',5ð); memcpy(text_desc,"Product ABC",11);

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

/\	Initialize the	error code	to have the API send errors thr￿ough	\/
/\	the error code	parameter.		\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ error_code.Bytes_Provided=sizeof(error_code);

QSZCRTPD("ABCðð5ð	ABC	", /\ Product definition name	\/
&prod_info,		/\ Product definition info	\/
&prod_opt_list,		/\ Product option list	\/
1,		/\ Number of options	\/
&prod_lang_load,		/\ Language load list	\/
1,		/\ Number languages	\/
text_desc,		/\ Text description	\/
"\USE	",	/\ Public authority	\/
&error_code);		/\ Error code	\/

if (error_code.Bytes_Available > ð)

{

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

B-130System API Programming V4R1