midrange.com code scratchpad |
Name:
Test List Objects Owned via QSYLOBJA
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
12/05/2007 11:34:02 pm
|
IP:
Logged
|
|
Description:
Accepts a *USRPRF as parameter input. CALLs QSYLOBJA with both formats 'OBJA0100' and 'OBJA0110'. After each CALL, the populated *USRSPC is queried to see how many objects were listed. A DMPCLPGM at the end shows program variable contents. This was purely a test coding to get a feeling for differences between the two API formats.
|
Code:
|
|