home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / os2 / open20.arj / OPEN20.ZIP / objectid.cmd < prev    next >
Encoding:
Text File  |  1997-11-01  |  651 b   |  25 lines
  1. /* List of object IDs */
  2.  call RxFuncAdd 'SysLoadFuncs', 'rexxutil', 'SysLoadFuncs'
  3.  call SysLoadFuncs
  4.  App='PM_Workplace:Location'
  5.  
  6.  call SysINI 'USER', App, 'All:', 'Keys'
  7.  if result \= 'Error:' then do
  8.    call SysCls
  9.    Say 'Listing of object ID information';Say '';
  10.    parse value SysTextScreenSize() with row col
  11.    j=row-5
  12.    do i=1 to Keys.0
  13.      if trunc(i/j)==i/j then
  14.      do
  15.        Say '';Say 'Press any key to display the next screen...'
  16.        key=SysGetKey()
  17.        call SysCls
  18.        Say 'Listing of object ID information';Say '';
  19.      end
  20.      Say Keys.i
  21.    end
  22.  end
  23.  else Say 'Error querying for' App
  24.  return
  25.