home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Security / Security.zip / swp401.zip / OBJECTS.CMD < prev    next >
OS/2 REXX Batch file  |  1994-02-08  |  871b  |  29 lines
  1. /* OBJLIST.CMD: generates and object list                               */
  2. /* Routine will display the OBJECTIDs known to the WorkPlace Shell      */
  3. /* Copyright Syntegration 1993. All rights reserved                     */
  4. '@ECHO OFF'
  5.  
  6. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  7. call sysloadfuncs
  8.  
  9. App='PM_Workplace:Location'
  10. call SysIni 'USER', App, 'All:', 'Keys'
  11. if Result \= 'ERROR:' then do
  12.    Call SysCls
  13.    Say '';Say '';Say 'Listing ObjectId information';Say '';
  14.    parse value SysTextScreenSize() with row col
  15.    j=row-10
  16.    Do i=1 to Keys.0
  17.       If trunc(i/j)==i/j Then Do
  18.          Say '';Say 'Press any key to show next screen...'
  19.          key=SysGetKey()
  20.          Call SysCls
  21.          Say '';Say '';Say 'Listing ObjectId information';Say '';
  22.       End
  23.       Say Keys.i
  24.    End
  25. End
  26. Else Say 'Error querying' App
  27. Return
  28.  
  29.