Autor: Michal Pohorelsky

Uverejneno: CHIP 08/98, str. 133

Seznam objektu WPS

Pokud chceme maximalne vyuzivat vsech schopnosti grafickeho prostredi WPS, musime mimo jine znat realne nazvy vsech viditelnych i skrytych objektu. Proto jsem pred mnoha mesici vytvoril REXX program OBJEKTID.CMD, ktery vsechny nazvy zobrazuje (viz. 30. TRIK). Program OBJEKTID.CMD pouzivam dost casto, a proto jsem se rozhodl ho zjednodusit a vylepsit. Vysledkem je kratky programek OBJ_ID.CMD, ktery poskytuje rychleji stejne informace a navic zobrazuje pocet nalezenych objektu.
Program je nutne vytvaret v textovem editoru, ktery podporuje ciste ASCII (napr. Systemovy editor EPM). Ve vsech programech vytvorenych v jazyku REXX musi byt na prvnim miste komentar zacinajici znaky "/*", takze neodstranujte uvodni komentare. V novem prostredi Object REXX funguje program bez problemu.

/* OBJ_ID.CMD */
/* Autor: Michal Pohorelsky */
/* Vytvoreno pro system OS/2 Merlin 4.0 */
/* Program zobrazi vsechny dostupne ID objektu
   v prostredi WorkPlace Shell */
/* Aktivuji knihovnu funkci REXXUTIL */

IF RxFuncQuery("SysLoadFuncs") THEN
DO
CALL RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
CALL SysLoadFuncs
END
/* --------------------------------- */
/* Postupne vypisuji ID objektu */

CALL SysIni "USER", "PM_Workplace:Location", "All:", "Objid."
CALL SysCls
SAY ' '
SAY ' Vypis informaci o ObjectID'
SAY ' '
SAY ' V systemu jsem nasel celkem ' || objid.0 || ' objektu.'
SAY ' '
J = 1
DO i = 1 TO Objid.0
J = J + 1
SAY '   'Objid.i
IF J = 16 THEN
DO
SAY ' '
SAY ' Stisknutim klavesy zobrazite dalsi obrazovku...'
key=SysGetKey()
J = 1
Call SysCls
SAY ' '
SAY ' Vypis informaci o ObjectID'
SAY ' '
END
END
EXIT 0