REXX Tips & Tricks, Version 2.80


Inf-HTML [About][Toc][Index] 0.9b (c) 1995 Peter Childs


List all WPS known object IDs




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

  

Inf-HTML End Run - Successful