/* Anlistung aller Objekt-Ids */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
App='PM_Workplace:Location'
call Sysini 'User', App, 'All:', 'Keys'
if Result = 'Error:' then do
call SysCls
Say '';Say ''; Say 'Anzeige der Objekt-ID Informationen';Say '';
parse value SysTextScreenSize() with row co
j=row-10
do i=1 to Keys.0
if trunc(i/j)==i/j then do
Say'';Say'Drücken Sie eine beliebige Taste, um die nächste Seite anzuzeigen...'
key=SysGetKey()
Call SysCls
Say '';Say '';Say 'Anzeige der Objekt-ID Informationen';Say '';
end /* do */
Say Keys.i
end
end
else Say 'Fehler beim holen der Information für' App
Return
[ Leser: 35 ] |