REXX Tips & Tricks, Version 2.80


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


List all objects




File          OS2.INI
Application   PM_Abstract:Objects
Keys          {object handles}
Value         ? 
Description   This application contains 
              the handles of all 
              known objects 
Created       ? 
Deleted       ? 


You can use the DLL WPTOOLS.DLL to create a list of all known objects 
using this application (see also List all WPS known object IDs and 
GETOBJ):   
Note:   This program needs the routines from the section General routines 
        for the samples! 
   

  
 /*                                                                    */
 /* Sample program to display a list of all known objects              */
 /*                                                                    */
 /* Usage: ShowObj {>logfile}                                          */
 /*                                                                    */
 /* Note:  This program needs Henk Kelders excellent DLL WPTOOLS.DLL!  */
 /*                                                                    */
 /*        Tested under OS/2 WARP Connect. May not work on other OS/2  */
 /*        versions!                                                   */
 /*                                                                    */
 /* History                                                            */
 /*   14.01.1996 v1.00 /bs                                             */
 /*     - initial release (for RXT&T v2.00)                            */
 /*                                                                    */
 /* (c) 1996 Bernd Schemmer, Germany, EMail: 100104.613@compuserve.com */
 /*                                                                    */
 
                     /* turn on the NOVALUE condition                  */
   signal on NOVALUE
 
                     /*  load WPTOOLS functions                        */
   call RxFuncAdd "WPToolsLoadFuncs", "WPTOOLS", "WPToolsLoadFuncs"
   call WPToolsLoadFuncs
 
                     /*  load REXXUTIL functions                       */
   call rxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
   call SysLoadFuncs
 
                     /* get all object handles                         */
   thisRC = SysIni( "USER", "PM_Abstract:Objects", "ALL:", "handleList" )
 
 
   call lineOut , "Object list"
   call LineOut , "==========="
   call LineOut , ""
 
                     /* display the object data                        */
   do i = 1 to handleList.0
     curHandle = handleList.i
 
     call CharOut , "  " || curHandle || ": "
 
     cur2Indent = length( curHandle ) + 4 +2
     curIndent = 0
 
                     /* show the data of the object                    */
     call ShowObjectData "#2" || right( "0000" || curHandle, 4 ) ,,
                         cur2Indent, curIndent
 
     call LineOut , ""
 
   end /* do i = 1 to handleList.0 */
 
 exit
 
  * -------------- insert the routines from the section -------------- *
  *                  General routines for the samples                  *
  * ----------------------------- here! ------------------------------ *
 
 
 
   

Inf-HTML End Run - Successful