IBM Version 4 manual CHAR1, This is a Test Exit PROGRAM,27

/\				\/
/\ and the Qus_Vlen_Rec_4_t structure is defined in				\/
/\ qus.h (included by qusrgfa1) as:				\/
/\				\/
/\	typedef _Packed struct Qus_Vlen_Rec_4 {			\/
/\	int Length_Vlen_Record;			\/
/\	int	Control_Key;		\/
/\	int	Length_Data;		\/
/\	\\char Data[];-> this field is supplied by			\/
/\	the user			\/
/\	} Qus_Vlen_Rec_4_t;			\/
/\				\/
/\ This structure			is mapped in bytes as follows:	\/
/\	{			\/
/\	BIN(4)		- num_rec	\/
/\	BIN(4)		- length variable length record for replace key \/
/\	BIN(4)		- replace key	\/
/\	BIN(4)		- length replace data	\/
/\	CHAR(1)		- replace data	\/
/\	BIN(4)		- length variable length record for CCSID key	\/
/\	BIN(4)		- CCSID key	\/
/\	BIN(4)		- length CCSID data	\/
/\	BIN(4)		- CCSID data	\/
/\	BIN(4)		- length variable length record for description \/
/\			key	\/
/\	BIN(4)		- description key	\/
/\	BIN(4)		- length description key	\/
/\	CHAR(5ð)		- description data	\/
/\	}			\/
/\				\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ attrib_keys.replace_rec.Length_Vlen_Record=13; .15/ attrib_keys.replace_rec.Control_Key=4; attrib_keys.replace_rec.Length_Data=1; attrib_keys.replace='1';

attrib_keys.CCSID_rec.Length_Vlen_Record=16; attrib_keys.CCSID_rec.Control_Key=3; attrib_keys.CCSID_rec.Length_Data=4; attrib_keys.CCSID=37;

attrib_keys.desc_rec.Length_Vlen_Record=39; attrib_keys.desc_rec.Control_Key=2; attrib_keys.desc_rec.Length_Data=27; memcpy(&attrib_keys.desc,

"THIS IS A TEST EXIT PROGRAM",27);

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

/\ Call the API to add the exit program.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ QusAddExitProgram("EXAMPLE_EXIT_POINT ",

"EXMPð1ðð",

1,

"EXAMPLEPGMEXAMPLELIB", "EXAMPLE EXIT PROGRAM DATA", 25,

&attrib_keys, &error_code);

9-24System API Programming V4R1