IBM Version 4 manual Object ABCðð29 MRI object For Product

exit(1);

}

}

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

/\ Function:		Create_Prod_Load_Obj					\/
/\	Description:	Create the product loads		ABCðð5ð	(MRM	object) and	\/
/\		ABCðð29 (MRI object)	for	product	ABC.		\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ void Create_Prod_Load_Obj()

{
Qsz_Lod_Inf_t prod_load_info;	/\ Product load information	\/
Qsz_Lib_Inf_t prin_lib_info;	/\ Principal library info	\/
Qsz_Add_Lib_t add_libs;	/\ Additional library list	\/
Qsz_Pre_Ext_t preop_expgm;	/\ Preoperational exit program \/
Qsz_Flr_Lst_t folder_list;	/\ Folder list	\/
Qus_EC_t error_code;	/\ Error code parameter	\/
char text_desc[5ð];	/\ Text description	\/

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

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

memcpy(prod_load_info.Lod_Type,"\CODE ",1ð); memcpy(prod_load_info.Lod_ID,"\CODEDFT",8); memcpy(prod_load_info.Reg_ID_Type,"\PRDDFN ",1ð); memcpy(prod_load_info.Min_Tgt_Rls,"\CURRENT ",1ð);

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

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

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

memcpy(prin_lib_info.Dev_Lib,"ABC ",1ð);

memcpy(prin_lib_info.Prim_Lib,"ABC ",1ð); memcpy(prin_lib_info.Post_Exit_Pgm,"ABCPGMMRM2",1ð);

memset(&add_libs,' ',sizeof(add_libs));

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

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

memcpy(preop_expgm.Dev_Lib,"ABC ",1ð);

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

/\ There are no folders.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ memset(&folder_list,' ',sizeof(folder_list));

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

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

Appendix B. Original Examples in Additional BLanguages-131