IBM Version 4 manual 134

"ðððð","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 thr￿ough \/

/\ 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