Black Box 4

home *** CD-ROM | disk | FTP | other *** search

/ Black Box 4 / BlackBox.cdr / os2 / rexx20.arj / REXX.TXT < prev next >

Wrap

Text File | 1992-07-09 | 53.6 KB | 703 lines

There are 4 files in this fix, unZIP them to either a diskette or directory. In order to use these files, you will need to either copy them to the ROOT directory of the BOOT drive, and then restart your system, or use the Install diskette and ESC to the A: prompt and replace these files in your OS2\DLL directory. The changes will then take effect when you reboot your system. The files in the ZIP files are - REXX.TXT (this file) REXX.DLL REXXAPI.DLL REXXINIT.DLL REXXUTIL.DLL These contain the fixes for APARs PJ03945 and PJ04178, plus the following REXXUTIL fixes: "The SysIni function doesn't release allocated storage when the 'ALL:' parameter is used." "Stack overflow when Rexx is used from PMREXX" "Cannot close a session when a Rexx program is running" APAR: PJ04178 Title: VALUE FUNCTION RETURNS INCORRECT VALUE Problem Description The following REXX program produces incorrect output : /* */ Stem. = '' Key = 'AAA' KVal = 'BBB' call Test Stem.!AAA = '' call Test exit Test: say say 'This should be null: "'Stem.!AAA'"' Old = value(('Stem.!'Key, KVal) say 'This should be null: "'Old'"' say 'This should be BBB: "'Stem.!AAA'"' return ----------------------------------------------- Initializing Stem. = '' should initialize Stem.!AAA to ''. The first time Test is called, in correct output is produced. ******************** APAR: PJ03945 Title: REXX: VALUE(.."OS2ENVIRONMENT"..) TO SET ENV HOSES PIB INFO. Problem Description "RexxStart()" Bug I use RexxStart() from a "C" program to call a REXX procedure. I have recently diagnosed a problem where if I set an environment variable in this rexx procedure, the called programs environment is corrupted (as a "C" "getenv()" call fails to retrieve a variable that is known to exist. Depending on the change to the environment, I sometimes get an invalid value returned in the "pib_pchcmd" field from a "DosGetInfoBlocks()" call. This invalid value is the tail part of the new variable value. Thinking that the bug may only occur when expanding the size of an environment variable or the environment, I tried to shorten the path variable, this removed the problem with "pib_pchcmd" being corrupted but still caused the "getenv()" to fail. Note that the "getenv()" does not always fail, it obviously depends on the change. REXXUTIL also contains two new REXX WorkPlace Shell functions, SysSetObjectData and SysDestroyObject. See the notes on the REXX WorkPlace Shell functions below. REXX WorkPlace Shell Functions This section contains 4 pieces of information: 1) Large block of text containing information that pertains to the subject. (TEXT INFORMATION) 2) Sample Rexx code to create a folder and program objects in the folder (FOLDER.CMD) 3) Sample Rexx code to create shadows of objects (SHADOW.CMD) 4) Sample Rexx code to create a folder, then program object in the folder, then place a shadow of the program object on the desktop. (FLDSHAD.CMD) ((BEGIN TEXT INFORMATION)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Using the REXXUTIL SysCreateObject function Using V2's REXXUTIL SysCreateObject function one can create various objects; like folders, programs, and shadow objects using Rexx. This section for the most part includes parameter information which was gathered together from various sources of information. -- Help information regarding the SysCreateObject function of REXXUTIL -- Function: SysCreateObject Syntax: result=SysCreateObject(classname, title, location <,setup>, <,duplicateflag>) classname:The name of the object class. title: The object title. location: The object location. This can be specified as either a descriptive path (for example, OS/2 System Folder\System Configuration) or a file system path (for example, C:\bin\mytools). setup: A WinCreateObject setup string. duplicateflag: This parameter indicates what action should be taken when the Setup string specifies an object ID, and an object with that object ID already exists. If the setup string does not give an object ID, a duplicate object will be created. result The return code from WinCreateObject. This returns 1 (TRUE) if the object was created and 0 (FALSE) if the object was not created. Purpose: Create a new instance of an object class. --Interesting INI information:----------------------------------------------- If one views the *.RC files located in your bootdrive:\OS2 directory you can learn a lot about the various INI settings and folder structure. Review INI.RC and INISYS.RC files, they are used to create your OS2.INI and OS2SYS.INI files. --SysCreateObject / WinCreateObject------------------------------------------ The various fields of the SysCreateObject call map closely with the WinCreateObject call. /***************************************************************************/ /* This WinCreateObject function creates an instance of object class */ /* pszClassName, with title pszTitle, and places the icon and title in the */ /* location referred to by pszLocation. */ /***************************************************************************/ #define INCL_WINWORKPLACE #include <os2.h> PSZ pszClassName; PSZ pszTitle; PSZ pszSetupString; PSZ pszLocation; /* Folder location */ ULONG ulFlags; /* Creation flags */ HOBJECT Success; /* Success indicator */ Success = WinCreateObject(pszClassName, pszTitle, pszSetupString, pszLocation, ulFlags); -- Help information regarding the SysSetObjectData function of REXXUTIL -- Function: SysSetObjectData Syntax: result=SysSetObjectData(name, setup) name: The object name. This can be specified as an object id (for example <WP_DESKTOP>) or as a fully specified file name. setup: A WinCreateObject setup string. Purpose: Alter the settings of an existing object. See the description of the SysCreateObject location and setup strings below for an explanation of the parameters. -- Help information regarding the SysDestroyObject function of REXXUTIL -- Function: SysDestroyObject Syntax: result=SysDestroyObject(name) name: The object name. This can be specified as an object id (for example <WP_DESKTOP>) or as a fully specified file name. Purpose: Destroys an existing object. See the description of the SysCreateObject location parameter below for an explanation of the object name. --Putting it all together---------------------------------------------------- The SysCreateObject parameters are now explained in more detail. (As I understand them...) Remember Syntax: result = SysCreateObject(classname, title, location <,setup>) classname: A registered object class defined to the system. Of particular interest are the WPFolder/WPProgram/WPShadow classes. Note using the sample Rexx code included in the SysQueryClassList function help screen one can list all of the registered classes: call SysQueryClassList "list." do i = 1 to list.0 say 'Class' i 'is' list.i end title: Easy one, the objects title you want to use. If you wish to break the title line use the carat "^" symbol in the title. Ex. 'First line^Second Line' location: You can see above what the online Help information has in regards to this field. However by looking at the INI.RC file one can see a use of other "locations", such as <WP_DESKTOP>. If this is used as a location then your object will reside on the WorkPlace Shell desktop. If you are creating a folder or program object you should make sure you use the setup string option and give that folder a unique OBJECTID. We'll see how this works later. HINTS: Here are some predefined object ids of system folders. Also if you are thinking of placing an object in the Startup Folder <WP_START>, make it a shadow of the object. <WP_DESKTOP> The Desktop. <WP_START> The Startup folder. <WP_OS2SYS> The System folder. <WP_TEMPS> The Templates folder. <WP_CONFIG> The System Setup folder. <WP_INFO> The Information folder. <WP_DRIVES> The Drives folder. <WP_NOWHERE> The hidden folder. setup: This field needs the most explaining, and required the most "snooping". The setupstring field contains a series of "keyname=value" pairs separated by semi-colons that change the behavior of an object. Each object class documents its keynames and the parameters it expects to see. duplicateflag: There are three possible values for this parameter: FailIfExists - No object should be created if an object with the given object already exists. This is the default. ReplaceIfExists - If an object with the given object ID already exists, the existing object should be replaced. UpdateIfExists - If an object with the given object ID already exists, the existing object should be updated with the new information. (Only the first character is required/examined) ALL parameters have safe defaults, so it is never necessary to pass unnecessary parameters to an object. Setup Strings: -------------- Below are both WPFolder and WPProgram setup string parameters. Their various key names, values and a short description follow each item. The <<xxx>> item is there to give you an idea of what settings "page" you would find this information on. ********************************* ***WPFolder setup string parms*** ********************************* KEYNAME VALUE Description ----------------------------------------------------------------------------- <<View>> OPEN ICON Open icon view when object is created. TREE Open tree view when object is created. DETAILS Open details view when object is created. ICONVIEW s1[,s2,...sn] Set icon view to specified style(s). TREEVIEW s1[,s2,...sn] Set tree view to specified style(s). DETAILSVIEW s1[,s2,...sn] Set details view to specified style(s). (styles) FLOWED flowed list items NONFLOWED non-flowed list items NONGRID non-gridded icon view NORMAL normal size icons MINI small icons INVISIBLE no icons LINES lines in tree view NOLINES no lines in tree view <<Background>> BACKGROUND filename Sets the folder background. filename is the name of a file in the \OS2\BITMAP directory of the boot drive. <<File>> WORKAREA YES Make the folder a Workarea folder <<Window>> MINWIN HIDE Views of this object will hide when their minimize button is selected. VIEWER Views of this object will minimize to the minimized window viewer when their minimize button is selected. DESKTOP Views of this object will minimize to the Desktop when their minimize button is selected. VIEWBUTTON HIDE Views of this object will have a hide button as opposed to a minimize button. MINIMIZE Views of this object will have a minimize button as opposed to a hide button. CONCURRENTVIEW YES New views of this object will be created every time the user selects open. NO Open views of this object will resurface when the user selects open. <<General>> ICONFILE filename This sets the object's icon. ICONRESOURCE id,module This sets the object's icon. 'id' is the identity of an icon resource in the 'module' dynamic link library (DLL). ICONPOS x,y This sets the object's initial icon position. The x and y values represent the position in the object's folder in percentage coordinates. TEMPLATE YES Creates object as a template. NO Resets objects template property. ----------------------------------------------------------------------------- ********************************** ***WPProgram setup string parms*** ********************************** KEYNAME VALUE Description ----------------------------------------------------------------------------- <<Program>> EXENAME filename Sets the name of the program PARAMETERS params Sets the parameters list, which may include substitution characters STARTUPDIR pathname Sets the working directory - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <<Sessions>> PROGTYPE FULLSCREEN Sets the session type to OS/2 full screen PM Sets the session type to PM SEPARATEWIN Sets the session type to WIN-OS2 window running in a separate VDM. VDM Sets the session type to DOS full screen WIN Sets the session type to WIN-OS2 full screen WINDOWABLEVIO Sets the session type to OS/2 windowed WINDOWEDVDM Sets the session type to DOS windowed WINDOWEDWIN Sets the session type to WIN-OS2 windowed MINIMIZED YES Start program minimized MAXIMIZED YES Start program maximized NOAUTOCLOSE YES Leaves the window open upon program termination. NO Closes the window when the program terminates. -DOS Settings- NOTES: - To change these values you use SET keyname= Example: SET DOS_FILES=45;SET DOS_HIGH=1 Also for some use values of 1 for ON, 0 for off Example: SET COM_HOLD=1; (on, default is off) To add more than one DOS_DEVICE you need to separate with hex 0A (line-feed) Rexx example: h0A='0A'X setup='...;SET DOS_DEVICE=C:\OS2\MDOS\ANSI.SYS'h0A'C:\OS2\MDOS\EGA.SYS...' List of DOS Setting fields COM_HOLD DOS_BACKGROUND_EXECUTION DOS_BREAK DOS_DEVICE DOS_FCBS DOS_FCBS_KEEP DOS_FILES DOS_HIGH DOS_LASTDRIVE DOS_RMSIZE DOS_SHELL DOS_STARTUP_DRIVE DOS_UMB DOS_VERSION DPMI_DOS_API DPMI_MEMORY_LIMIT DPMI_NETWORK_BUFF_SIZE DPMI_DOS_API EMS_FRAME_LOCATION EMS_HIGH_OS_MAP_REGION EMS_LOW_OS_MAP_REGION EMS_MEMORY_LIMIT HW_NOSOUND HW_ROM_TO_RAM HW_TIMER IDLE_SECONDS IDLE_SENSITIVITY KBD_ALTHOME_BYPASS KBD_BUFFER_EXTEND KBD_RATE_LOCK MEM_INCLUDE_REGIONS MEM_EXCLUDE_REGIONS MOUSE_EXCLUSIVE_ACCESS PRINT_TIMEOUT VIDEO_FASTPASTE VIDEO_MODE_RESTRICTION VIDEO_ONDEMAND_MEMORY VIDEO_RETRACE_EMULATION VIDEO_ROM_EMULATION VIDEO_SWITCH_NOTIFICATION VIDEO_WINDOW_REFRESH VIDEO_8514A_XGA_IOTRAP XMS_HANDLES XMS_MEMORY_LIMIT XMS_MINIMUM_HMA - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <<Association>> ASSOCFILTER filters Sets the filename filter for files associated to this program. Multiple filters are separated by commas. ASSOCTYPE type Sets the type of files associated to this program. Multiple filters are separated by commas. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <<Window>> MINWIN HIDE Views of this object will hide when their minimize button is selected. VIEWER Views of this object will minimize to the minimized window viewer when their minimize button is selected. DESKTOP Views of this object will minimize to the Desktop when their minimize button is selected. VIEWBUTTON HIDE Views of this object will have a hide button as opposed to a minimize button. MINIMIZE Views of this object will have a minimize button as opposed to a hide button. CONCURRENTVIEW YES New views of this object will be created every time the user selects open. NO Open views of this object will resurface when the user selects open. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <<General>> ICONFILE filename This sets the object's icon. ICONRESOURCE id,module This sets the object's icon. 'id' is the identity of an icon resource in the 'module' dynamic link library (DLL). ICONPOS x,y This sets the object's initial icon position. The x and y values represent the position in the object's folder in percentage coordinates. TEMPLATE YES Creates object as a template. NO Resets objects template property. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <<Misc>> OBJECTID <name> This sets the object's identity. The object id will stay with the object even if it is moved or renamed. An object id is any unique string preceded with a '<' and terminated with a '>'. This may also be a real name specified as a fully qualified path name. HELPPANEL id This sets the object's default help panel. HELPLIBRARY filename This sets the help library. OPEN SETTINGS Open settings view when object is created. DEFAULT Open default view when object is created. NODELETE YES Will not allow you to delete the object. NOCOPY YES Will not allow you to make a copy. NOMOVE YES Will not allow you to move the object to another folder, will create shadow on a move. NODRAG YES Will not allow you to drag the object. NOLINK YES Will not allow you to create a shadow link. NOSHADOW YES Will not allow you to create a shadow link. NORENAME YES Will not allow you to rename the object. NOPRINT YES Will not allow you to print it. NOTVISIBLE YES Will not display the object. ----------------------------------------------------------------------------- Good Luck.... - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((END TEXT INFORMATION)) ((BEGIN REXX CMD SAMPLES)) - (FOLDER.CMD) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - /* FOLDER.CMD: Sample code using REXXUTIL's SysCreateObject function */ /* Builds a folder on the DeskTop and places some program objects in it.*/ /* Load REXXUTIL */ call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs call sysloadfuncs /* The basic call is listed next. */ /* result = SysCreateObject(classname, title, location, setup) */ call SysCls Say '';Say 'Using REXXUTILs to Add a Folder and Program Objects...' Say '';Say 'Press Y to add Test Folder to Desktop...';Say ''; parse upper value SysGetKey('NOECHO') with key If key<>'Y' Then Exit /* All of the routines pass parameters to a subroutine to perform the call */ classname='WPFolder' title='Test Folder' location='<WP_DESKTOP>' setup='OBJECTID=<TEST_FOLDER>' Call BldObj Say '';Say 'Now go and open up the folder, currently no items are there.' Say 'Press ENTER and we will add a few program objects...' key=SysGetKey() Say 'Place a program object into the folder...';Say ''; classname='WPProgram' title='SYSLEVEL-FULLSCR' location='<TEST_FOLDER>' setup='PROGTYPE=FULLSCREEN;EXENAME=\OS2\SYSLEVEL.EXE;OBJECTID=<TEST_SYSL>' Call BldObj classname='WPProgram' title='CHKDSK-PM' location='<TEST_FOLDER>' setup='MINIMIZED=YES;PROGTYPE=PM;EXENAME=\OS2\PMCHKDSK.EXE;OBJECTID=<TEST_PMCK>' Call BldObj classname='WPProgram' title='SYSLEVEL-VIO' location='<TEST_FOLDER>' setup='PROGTYPE=WINDOWABLEVIO;EXENAME=\OS2\SYSLEVEL.EXE;OBJECTID=<TEST_SYSLVIO>' Call BldObj classname='WPProgram' title='MEM-Fullscreen' location='<TEST_FOLDER>' setup='PROGTYPE=VDM;EXENAME=\OS2\MDOS\MEM.EXE;PARAMETERS=/?;NOAUTOCLOSE=YES;OBJE Call BldObj classname='WPProgram' title='MEM-WindowVDM' location='<TEST_FOLDER>' setup='PROGTYPE=WINDOWEDVDM;EXENAME=\OS2\MDOS\MEM.EXE;PARAMETERS=/?;NOAUTOCLOSE= Call BldObj Say '';Say 'All done, to remove objects drag to shredder...' Exit /* Build Object */ BldObj: call charout ,'Building: 'title result = SysCreateObject(classname, title, location, setup) If result=1 Then call charout ,'... Object created!' Else call charout ,'... Not created! Return code='result Say ''; Return - (SHADOW.CMD) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - /* SHADOW.CMD: Sample code using REXXUTIL's SysCreateObject function */ /* Builds shadows on the DeskTop and Startup Folder */ call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs call sysloadfuncs Call SysCls Say '';Say 'Using REXXUTILs to Add Shadow Objects...' /* The titles and objectid's are found from the \OS2\INI.RC file */ Say '';Say 'First lets place some items on the Desktop...' title='Enhanced Editor'; objid='<WP_EPM>' ; loc='<WP_DESKTOP>'; call AddShad title='OS/2 Window' ; objid='<WP_OS2WIN>'; loc='<WP_DESKTOP>'; call AddShad title='System Clock' ; objid='<WP_CLOCK>' ; loc='<WP_DESKTOP>'; call AddShad Say '';Say 'You can even make shadow objects of files...' title='CONFIG.SYS'; objid='C:\CONFIG.SYS' ; loc='<WP_DESKTOP>'; call AddShad Say '';Say 'Now lets place an item in the Startup Folder...' title='System Clock' ; objid='<WP_CLOCK>' ; loc='<WP_START>' ; call AddShad Say '';Say 'All done, to remove objects drag to shredder...' Exit AddShad: Say '';Say 'Press Y to add shadow object: 'title' to 'loc parse upper value SysGetKey('NOECHO') with key If key='Y' Then Do result=SysCreateObject('WPShadow', title, loc, 'SHADOWID='objid) If result=1 Then Say 'Object created' Else Say 'Not created, return code='result End Return - (FLDSHAD.CMD) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - /* FLDSHAD.CMD: Sample code using REXXUTIL's SysCreateObject function */ /* Builds a folder on the DeskTop places a program object in it then */ /* places a shadow of the program object on the DeskTop. */ /* Load REXXUTIL */ call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs call sysloadfuncs /* The basic call is listed next. */ /* result = SysCreateObject(classname, title, location, setup) */ call SysCls Say '';Say 'Using REXXUTILs to Add Folder/Program/Shadow Objects...' Say '';Say 'Press Y to add Test Folder to Desktop...';Say ''; parse upper value SysGetKey('NOECHO') with key If key<>'Y' Then Exit classname='WPFolder' title='Test Folder' location='<WP_DESKTOP>' setup='OBJECTID=<TEST2_FOLDER>' Call BldObj Say '';Say 'Press Y to place a program object into the folder...';Say ''; parse upper value SysGetKey('NOECHO') with key If key<>'Y' Then Exit classname='WPProgram' title='SYSLEVEL-VIO' location='<TEST2_FOLDER>' setup='PROGTYPE=WINDOWABLEVIO;EXENAME=\OS2\SYSLEVEL.EXE;OBJECTID=<TEST2_SYSLVIO> Call BldObj Say '';Say 'Press Y to place a shadow of the program object on the Desktop...';S parse upper value SysGetKey('NOECHO') with key If key<>'Y' Then Exit classname='WPShadow' title='SYSLEVEL-VIO' location='<WP_DESKTOP>' setup='SHADOWID=<TEST2_SYSLVIO>' Call BldObj Say '';Say 'All done, to remove objects drag to shredder...' Exit /* Build Object */ BldObj: call charout ,'Building: 'title result = SysCreateObject(classname, title, location, setup) If result=1 Then call charout ,'... Object created!' Else call charout ,'... Not created! Return code='result Say ''; Return - (STARTDOS.CMD) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - /* STARTDOS.CMD: Sample code using REXXUTIL's SysCreateObject function */ /* Starts a DOS program using specific DOS VDM settings. This */ /* particularly useful for LAN execution that requires NET USE commands.*/ /* This example invokes the PKZIP.EXE utility using a files setting of */ /* 45 */ /* Load REXXUTIL */ call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs call sysloadfuncs /* The basic call is listed next. */ /* result = SysCreateObject(classname, title, location, setup) */ classname='WPProgram' title='My DOS Program' location='<WP_NOWHERE>' /* place in invisible folder */ program='EXENAME=C:\PKZIP.EXE;' /* DOS program name */ type='PROGTYPE=WINDOWEDVDM;' /* type of DOS session (windowed) */ startup='STARTUPDIR=C:\;' /* startup directory */ settings='SET DOS_FILES=45;' /* required DOS settings */ open='OPEN=DEFAULT;' /* open now */ call SysCreateObject classname, title, location,, program||type||startup||settings||open, 'REPLACE' - (BOOTDOS.CMD) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - /* BOOTDOS.CMD: Sample code using REXXUTIL's SysCreateObject function */ /* Starts a DOS session, booting from a specific DOS image with */ /* specific DOS VDM settings. */ /* Load REXXUTIL */ call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs call sysloadfuncs /* The basic call is listed next. */ /* result = SysCreateObject(classname, title, location, setup) */ classname='WPProgram' title='Booted DR DOS' location='<WP_NOWHERE>' /* place in invisible folder */ program='EXENAME=*;' /* DOS program name (use shell) */ type='PROGTYPE=WINDOWEDVDM;' /* type of DOS session (windowed) */ image='C:\DRDOS.VM;' /* DOS image file */ /* required DOS settings */ settings='SET DOS_BACKGROUND_EXECUTION=ON;' open='OPEN=DEFAULT;' /* open now */ call SysCreateObject classname, title, location,, program||type||image||settings||open, 'REPLACE' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((END REXX CMD SAMPLES))