"ðððð","5ðð1","ðABCABCV3R1Mð",
"ABCðð29 ABC ","\PRDLOD ",
"ðððð","2924","ðABCABCV3R1Mð",
"ABC ABC ","\LIB ",
"ðððð","5ðð1","ðABCABCV3R1Mð"};
change_obj_info_t cobji; /\ Change object information \/
Qus_EC_t error_code; /\ Error code parameter \/
char rtn_lib[1ð]; /\ Return library \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Fill in the changed object information. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
cobji.numkey=3;
cobji.PID_rec.Key=13;
cobji.PID_rec.Length_Vlen_Record=4;
cobji.LID_rec.Key=12;
cobji.LID_rec.Length_Vlen_Record=4;
cobji.LP_rec.Key=5;
cobji.LP_rec.Length_Vlen_Record=13;
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Initialize the error code to have the API send errors through \/
/\ the error code parameter. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
error_code.Bytes_Provided=sizeof(error_code);
for (i=ð; i<15; i++)
{
memcpy(cobji.PID,obj_info[i].prd_opt_id,4);
memcpy(cobji.LID,obj_info[i].prd_opt_ld,4);
memcpy(cobji.LP,obj_info[i].lp_id,13);
QLICOBJD(rtn_lib, /\ Return library \/
obj_info[i].obj_name_lib, /\ Object name \/
obj_info[i].obj_type, /\ Object type \/
&cobji, /\ Changed object information\/
&error_code); /\ Error code \/
if (error_code.Bytes_Available > ð)
{
printf("Failed in QLICOBJD API with error: %.7s",
error_code.Exception_Id);
exit(1);
}
}
}
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Function: Package_Prod \/
/\ Description: Package Product ABC so that all the SAVLICPGM, \/
/\ RSTLICPGM and DLTLICPGM commands work with the \/
/\ product. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
void Package_Prod()
{
Qsz_Prd_Opt_Inf_t prod_opt_info; /\ Product option information \/
Qus_EC_t error_code; /\ Error code parameter \/
B-134 System API Programming V4R1