IBM Version 4 manual Appendix B. Original Examples in Additional BLanguages-35

exit();

}

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

/\ Set Error Code structure to use exceptions\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

error_code.Bytes_Provided = ð; .1/

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

/\ Create a User Space for the List generated by QUSLSPL \/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

QUSCRTUS(spc_name,	/\ User space name and library .2/	\/
ext_attr,	/\ Extended attribute	\/
spc_size,	/\ Initial space size	\/
&spc_init,	/\ Initialize value for space	\/
spc_aut,	/\ Public authorization	\/
spc_text,	/\ Text description	\/
spc_replac,	/\ Replace option	\/
error_code,	/\ Error code structure	\/
spc_domain);	/\ Domain of space	\/

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

/\ Call QUSLSPL to get all spooled files for \CURRENT user \/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

QUSLSPL( spc_name,	/\ User space name and library .3/		\/
format,	/\ API format	.4/	\/
usr_prf,	/\ User profile		\/
outq,	/\ Output Queue		\/
formtyp,	/\ Form type		\/
usrdta,	/\ User data		\/
error_code,	/\ Error code structure		\/
jobnam,	/\ Job name		\/
keys,	/\ Keys to return	.5/	\/
number_of_keys);	/\ Number of keys	.6/	\/

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

/\ Get a resolved pointer to the User Space\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

QUSPTRUS(spc_name,	/\ User space name and library .9/	\/
&spcptr,	/\ Space pointer	\/
error_code);	/\ Error code structure	\/

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

/\ If valid information returned\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

if(memcmp\

(((Qus_Generic_Header_ð1ðð_t \)spcptr)->Structure_Release_Leve￿l,.12/ "ð1ðð", 4) != ð) { printf("Unknown Generic Header"); .13/

exit();

}

if((((Qus_Generic_Header_ð1ðð_t \)spcptr)->Information_Status=￿='C')\.14/

(((Qus_Generic_Header_ð1ðð_t \)spcptr)->Information_Status\ == 'P'))

Appendix B. Original Examples in Additional BLanguages-35