GetObj
Purpose
GETOBJ creates a list containing the data for all objects in a folder
(and it's sub folder) for example your desktop folder. For each object
the title, the class, the setup string and the location is shown.
GETOBJ can also create a REXX program with SysCreateObject calls to
recreat the objects.
GETOBJ needs the DLL WPTOOLS.DLL. This DLL is included in this package.
Back to top
History
Version
|
Releasedate
|
Description |
1.11
|
1997
|
|
Back to top
Operating system
OS/2
Back to top
Language / type
REXX Script
Back to top
Prerequisites
REXX, wptools.dll (included in the package but you may replace it with
a newer one)
Back to top
Usage
D:\DATEN\apache2\arcor\public\os2\test>getobj.cmd /?
GETOBJ.CMD 1.11 started on 6 Feb 2005 at 14:21:17 ...
Usage: GETOBJ.CMD {!|{!}startFolder}
{/L:logfile}
{/REXX{=file}} {/NOREXX}
{/STAT} {/NOSTAT}
{/LIST} {/NOLIST}
{/Silent} {/NoAnsi}
{/NoSound}
{/H}
GETOBJ.CMD 1.11 ended on 6 Feb 2005 at 14:21:17 with RC = 253 (='FD'x)
Back to top
Examples
getobj.cmd "C:\Desktop\OS!!2 System\Command Prompts"
/REXX=crobjects.cmd
GETOBJ.CMD 1.11 started on 6 Feb 2005 at 14:25:20 ...
Detecting the folder structure ... done. 0 folder(s) found.
Detecting the object data ...done. 18 object(s) found.
Creating the REXX program
"D:\DATEN\apache2\arcor\public\os2\test\CROBJECTS.CMD"
to recreate the objects ...done.
┌──────────────────────────────────────────────────────────────────────────────┐
│
Check the
program
│
│
D:\DATEN\apache2\arcor\public\os2\test\CROBJECTS.CMD
│
│
carefully before using
it!
│
│
(see
WPTOOLS.TXT)
│
└──────────────────────────────────────────────────────────────────────────────┘
GETOBJ.CMD 1.11 ended on 6 Feb 2005 at 14:25:20 with RC = 0 (='0'x)
The file CROBJECTS.CMD created by getobj.cmd looks like this
/*
------------------------------------------------------------------ */
/* REXX program to recreate the objects from the
folder
*/
/* C:\Desktop\OS!2 System\Command
Prompts
*/
/* Created on 6 Feb 2005 at 14:25:20 with GETOBJ.CMD
v1.11
*/
/* This files contains the data for 18
objects.
*/
/*
*/
/* Usage:
CROBJECTS.CMD
*/
/*
*/
/* ------------------------------------------------------------------
*/
/* load the dll
REXXUTIL
*/
call rxFuncAdd "SysLoadFuncs", "REXXUTIL",
"SysLoadFuncs"
call
SysLoadFuncs
/* ask the user if we should
continue */
say "REXX program to recreate the 18 saved objects from the
folder"
say " C:\Desktop\OS!2 System\Command Prompts"
say "Saved on 6 Feb 2005 at 14:25:20 with GETOBJ.CMD v1.11"
say
""
say "Caution: Check this file carefully before using
it!!!"
say
""
call CharOut , "Press Y to recreate the saved objects ...
"
if translate( SysGetKey( "NOECHO" ) ) <> "Y" then
exit
say
""
i =
0
objects.0 =
i
/* stem elements for the
folder
*/
i=i+1;
objects.i.__Title = "Command Prompts"
objects.i.__Class = "WPFolder"
objects.i.__Setup = "ICONVIEW=NONGRID,NORMAL;"
||,
"TREEVIEW=LINES,VISIBLE,MINI;DEFAULTSORT=-2;" ||,
"ALWAYSSORT=NO;" ||,
"BACKGROUND=C:\OS2\BITMAP\MAGRITTE.JPG,S,1,C;" ||,
"TITLE=Command Prompts;NOPRINT=YES;HELPPANEL=8008;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=DEFAULT;" ||,
"DEFAULTVIEW=DEFAULT;OBJECTID=<WP_PROMPTS>;"
objects.i.__location = "<WP_OS2SYS>"
/* stem elements for the
objects
*/
i=i+1;
objects.i.__Title = "OS/2 Full Screen"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;PROGTYPE=FULLSCREEN;PARAMETERS=%;" ||,
"TITLE=OS/2 Full Screen;NOPRINT=YES;HELPPANEL=8009;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=YES;" ||,
"DEFAULTVIEW=DEFAULT;OBJECTID=<WP_OS2FS>;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "OS/2 Window"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;PROGTYPE=WINDOWABLEVIO;PARAMETERS=%;" ||,
"TITLE=OS/2 Window;NOPRINT=YES;HELPPANEL=8010;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=YES;" ||,
"DEFAULTVIEW=DEFAULT;OBJECTID=<WP_OS2WIN>;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "DOS Full Screen"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;PROGTYPE=VDM;PARAMETERS=%;" ||,
"TITLE=DOS Full Screen;NOPRINT=YES;HELPPANEL=8011;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=YES;" ||,
"DEFAULTVIEW=DEFAULT;OBJECTID=<WP_DOSFS>;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "DOS Window"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;PROGTYPE=WINDOWEDVDM;PARAMETERS=%;" ||,
"TITLE=DOS Window;NOPRINT=YES;HELPPANEL=8012;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=YES;" ||,
"DEFAULTVIEW=DEFAULT;OBJECTID=<WP_DOSWIN>;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "WIN-OS/2 Full Screen"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;PROGTYPE=PROG_31_ENH;" ||,
"SET KBD_ALTHOME_BYPASS=1;" ||,
"SET KBD_CTRL_BYPASS=CTRL_ESC;" ||,
"SET VIDEO_SWITCH_NOTIFICATION=1;" ||,
"SET VIDEO_8514A_XGA_IOTRAP=0;" ||,
"SET DPMI_MEMORY_LIMIT=64;SET WIN_DDE=0;" ||,
"SET WIN_CLIPBOARD=1;TITLE=WIN-OS/2 Full Screen;" ||,
"NOPRINT=YES;HELPPANEL=8022;HIDEBUTTON=DEFAULT;" ||,
"MINWIN=DEFAULT;CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;" ||,
"OBJECTID=<WP_WINFS>;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "WIN-OS/2 Window"
objects.i.__Class = "WPProgram"
objects.i.__Setup = "EXENAME=PROGMAN.EXE;" ||,
"PROGTYPE=PROG_31_ENHSEAMLESSCOMMON;" ||,
"SET DOS_FCBS=255;SET DOS_FILES=255;" ||,
"SET KBD_CTRL_BYPASS=CTRL_ESC;" ||,
"SET KBD_ALTHOME_BYPASS=1;SET DPMI_MEMORY_LIMIT=64;" ||,
"SET DPMI_DOS_API=ENABLED;" ||,
"SET VIDEO_SWITCH_NOTIFICATION=1;" ||,
"SET VIDEO_8514A_XGA_IOTRAP=0;" ||,
"TITLE=WIN-OS/2 Window;NOPRINT=YES;HELPPANEL=8022;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=DEFAULT;" ||,
"DEFAULTVIEW=DEFAULT;OBJECTID=<WP_WIN2WIN>;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "DOS from Drive A:"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;PROGTYPE=VDM;SET DOS_STARTUP_DRIVE=A:;" ||,
"TITLE=DOS from Drive A:;NOPRINT=YES;" ||,
"HELPPANEL=8529;HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;" ||,
"CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;" ||,
"OBJECTID=<WP_DOS_DRV_A>;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "DOS 6.0 from Drive A:"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;PROGTYPE=WINDOWEDVDM;" ||,
"SET DOS_STARTUP_DRIVE=D:\DATEN\DOSIMG\dos60dsk;" ||,
"TITLE=DOS 6.0 from Drive A:;NOPRINT=YES;" ||,
"HELPPANEL=8529;HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;" ||,
"CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "DOS 7.0 from Drive A:"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;PROGTYPE=WINDOWEDVDM;" ||,
"SET DOS_STARTUP_DRIVE=D:\DATEN\DOSIMG\dos60dsk
D:\DATEN\DOSIMG\dos720.dsk;" ||,
"TITLE=DOS 7.0 from Drive A:;NOPRINT=YES;" ||,
"HELPPANEL=8529;HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;" ||,
"CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "4os2"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=D:\OS_2\SHELLS\4OS2\4OS2.EXE;" ||,
"STARTUPDIR=D:\OS_2\SHELLS\4OS2;" ||,
"PROGTYPE=WINDOWABLEVIO;TITLE=4os2;NOPRINT=YES;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=DEFAULT;" ||,
"DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "Tcmdos2"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=D:\OS_2\SHELLS\TCOS2\TCMDOS2.EXE;" ||,
"STARTUPDIR=D:\OS_2\SHELLS\TCOS2;TITLE=Tcmdos2;" ||,
"NOPRINT=YES;HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;" ||,
"CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "Java118"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;STARTUPDIR=C:\TOOLS\CMD;" ||,
"PROGTYPE=WINDOWABLEVIO;" ||,
"PARAMETERS=/k C:\TOOLS\CMD\ibm_java118.cmd %;" ||,
"TITLE=Java118;NOPRINT=YES;HIDEBUTTON=DEFAULT;" ||,
"MINWIN=DEFAULT;CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "Java131"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;STARTUPDIR=C:\TOOLS\CMD;" ||,
"PROGTYPE=WINDOWABLEVIO;" ||,
"PARAMETERS=/k C:\TOOLS\CMD\ibm_java.cmd [jar file? ] %;" ||,
"TITLE=Java131;NOPRINT=YES;HIDEBUTTON=DEFAULT;" ||,
"MINWIN=DEFAULT;CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "Innotek Java141"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;STARTUPDIR=C:\TOOLS\CMD;" ||,
"PROGTYPE=WINDOWABLEVIO;" ||,
"PARAMETERS=/k C:\TOOLS\CMD\innotek_java.cmd [jar file? ] %;" ||,
"TITLE=Innotek Java141;NOPRINT=YES;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=DEFAULT;" ||,
"DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "GCD Java"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;STARTUPDIR=C:\TOOLS\CMD;" ||,
"PROGTYPE=WINDOWABLEVIO;" ||,
"PARAMETERS=/k C:\TOOLS\CMD\gcd_java.cmd [jar file? ] %;" ||,
"TITLE=GCD Java;NOPRINT=YES;HIDEBUTTON=DEFAULT;" ||,
"MINWIN=DEFAULT;CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "Execute X Program"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=*;STARTUPDIR=C:\USR\X11R6;" ||,
"PROGTYPE=WINDOWABLEVIO;" ||,
"PARAMETERS=/k C:\TOOLS\CMD\startXProg.cmd [X Program: ] %;" ||,
"TITLE=Execute X Program;NOPRINT=YES;" ||,
"HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=YES;" ||,
"DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
i=i+1;
objects.i.__Title = "Putty"
objects.i.__Class = "WPProgram"
objects.i.__Setup =
"EXENAME=C:\TOOLS\PUTTY\PUTTY.CMD;" ||,
"STARTUPDIR=C:\TOOLS\PUTTY;PROGTYPE=WINDOWABLEVIO;" ||,
"TITLE=Putty;NOPRINT=YES;HIDEBUTTON=DEFAULT;" ||,
"MINWIN=DEFAULT;CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;"
objects.i.__location = "<WP_PROMPTS>"
/* stem elements for the
shadows
*/
objects.0 =
i
/* now create the
objects
*/
errorCounter =
0
okCounter =
0
do i = 1 to
objects.0
say " Creating the object """ || objects.i.__title
|| """ ..."
if SysCreateObject(
objects.i.__class
,,
objects.i.__title
,,
objects.i.__location
,,
objects.i.__setup
,,
"UPDATE" ) <> 1
then
do
errorCounter = errorCounter +
1
say " *** Warning: Can not create
the object """ ||
,
objects.i.__title || """ (Index=" || i ||
")!"
end /* if SysCreateObject( ...
*/
else
okCounter = okCounter +
1
end /* do i = 1 to objects.0
*/
say okCounter || " object(s) created, " ||
,
errorCounter || " object creation(s)
failed."
exit
Back to top
Notes
This file is distributed as freeware but please give credit where
credit is due.
Back to top
Download
Download GetObject
Back to top