List all WPS known object IDs

[Autolink] Menu

File OS2.INI
Application PM_Workplace:Location
Keys {known object ids}
Value ?
Description This application contains the object IDs
of all known objects
Created ?
Deleted ?

You can use this application to get a list of all known object IDs (see also GETOBJ and List all objects):

 
/* Sample code to display all object ids known to the WPS.            */
/* Captured from a message in a public CompuServe Forum               */
/*                                                                    */

                    /* load the necessary REXXUTIL function           */
  call rxFuncAdd "SysIni", "REXXUTIL", "SysIni"

                    /* get the list of the known object IDs           */
  call SysIni "USER", "PM_Workplace:Location", "All:", "ids."

                    /* and print them to the screen                   */
  say ids.0 || " known object IDs found."
  j = 1
  do i = 1 to ids.0
    j = j + 1
    say ids.i
    if j = 23 then
    do
      say "Press RETURN to continue"
      parse pull
      j = 1
    end /* if j = 23 then */
  end /* do i = 1 to ids.0 */
exit


[Back: Get the display resolution]
[Next: Icons saved in the file OS2.INI]