IBM Version 4 ABCPGMMRM2ABC, ABCPGMMRI1ABC, ABCPGMMRI2ABC, Qclsrc ABC, Abcpf ABC, Abc \Prddfn

error_code.Exception_Id);

exit(1);

}

}

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

/\ Function:	Change_Obj_Descr			\/
/\ Description:	Change object descriptions	for all objects		\/
/\	that make up Product ABC.	Currently there	are 15	\/
/\	objects.			\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ void Change_Obj_Descr()

{

typedef struct {

char obj_name_lib[21]; char obj_type[11]; char prd_opt_id[5]; char prd_opt_ld[5]; char lp_id[4];

} obj_info_t;

typedef struct { int numkey;

Qus_Vlen_Rec_3_t PID_rec; char PID[4]; Qus_Vlen_Rec_3_t LID_rec; char LID[4]; Qus_Vlen_Rec_3_t LP_rec; char LP[13];

} change_obj_info_t;
int i;
obj_info_t obj_info[15] = {"ABCPGMMRM1ABC		","\PGM	",
"ðððð","5ðð1","ðABCABCV3R1Mð",
"ABCPGMMRM2ABC		","\PGM	",
"ðððð","5ðð1","ðABCABCV3R1Mð",
"ABCPGMMRI1ABC		","\PGM	",
"ðððð","2924","ðABCABCV3R1Mð",
"ABCPGMMRI2ABC		","\PGM	",
"ðððð","2924","ðABCABCV3R1Mð",
"ABCPGM	ABC	","\PGM	",
"ðððð","5ðð1","ðABCABCV3R1Mð",
"QCLSRC	ABC	","\FILE	",
"ðððð","2924","ðABCABCV3R1Mð",
"ABCDSPF	ABC	","\FILE	",
"ðððð","2924","ðABCABCV3R1Mð",
"ABCPF	ABC	","\FILE	",
"ðððð","2924","ðABCABCV3R1Mð",
"ABCMSG	ABC	","\MSGF	",
"ðððð","2924","ðABCABCV3R1Mð",
"ABC	ABC	","\CMD	",
"ðððð","2924","ðABCABCV3R1Mð",
"ABCPNLGRP ABC		","\PNLGRP	",
"ðððð","2924","ðABCABCV3R1Mð",
"ABCðð5ð	ABC	","\PRDDFN	",
"ðððð","5ðð1","ðABCABCV3R1Mð",
"ABCðð5ð	ABC	","\PRDLOD	",
Appendix	B. Original	Examples in Additional BLanguages-133