/* Display object ID's known to WPS */

call rxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
call sysloadfuncs

result = SysIni( 'USER', 'PM_Workplace:Location', 'ALL:', 'ids.')
if result \= 'ERROR:' then
	do i = 1 to ids.0
	  say ids.i
	end
