Filter
Top Products
/ᑍ Initialize the attributes to change structure. ᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
attrib_info.attrib_count = 1; /ᑍ Number of attributes ᑍ/
attrib_info.keyinfo.Key = 3; /ᑍ Key of attribute to change ᑍ/
attrib_info.keyinfo.Length_Vlen_Record = 1;
/ᑍ Length of data ᑍ/
attrib_info.key_value='1'; /ᑍ Autoextend space ᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍ Change the user space to be automatically extendable. ᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
QUSCUSAT(return_lib, /ᑍ Return library ᑍ/
user_space, /ᑍ User space name and library ᑍ/
&attrib_info, /ᑍ Attributes to change ᑍ/
&error_code); /ᑍ Error code ᑍ/
if (error_flag) {
exit(1);
}
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍ Retrieve a pointer to the user space object. ᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
QUSPTRUS(user_space,&space_ptr);
if (error_flag) {
exit(1);
}
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
/ᑍ Retrieve the file description information to the user space. ᑍ/
/ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ/
QDBRTVFD(space_ptr, /ᑍ Receiver variable ᑍ/
1677674, /ᑍ Return up to 16MB minus 512 ᑍ/
/ᑍ bytes of data ᑍ/
ret_file_lib, /ᑍ Returned file and library ᑍ/
"FILD1", /ᑍ File definition template ᑍ/
file_and_lib, /ᑍ File and library name ᑍ/
record_fmt, /ᑍ Record format name ᑍ/
"", /ᑍ No override processing ᑍ/
"ᑍLCL ", /ᑍ Local system ᑍ/
"ᑍINT ", /ᑍ Internal formats 1 ᑍ/
&error_code); /ᑍ Error code ᑍ/
if (error_flag) {
exit(1);
}
}
The example program uses the value *INT (1). A description and examples of
the internal (*INT) and external (*EXT) formats are provided in the “Retrieve Data-
base File Description (QDBRTVFD) API” in the
System API Reference
book.
A-14 System API Programming V4R1