Rocket® COBOL

Problem: If you have a PictureBox control on a Form with an Image displayed how can you set the picturebox so that it does not display an image? Resolution: This can be achieved by setting the "Image"  property in the PictureBox control to null. Code such as:-        set PictureBox1::"Image" to null should achieve this. Old KB# 3963

Problem: In a PictureBix object in WinForms how can you set up the image at runtime from COBOL Code ? Resolution: You can do this by passing in a Bitmap object to the Picture Box. Some example code that does this is:-       $set sourceformat(variable)       $set preservecase        class-id. frmPBox as "MDICOBOL.frmPBox" is partial                  inherits class-form.        environment division.        configuration section.        repository.            class interface-icontainer as "System.ComponentModel.IContainer"            class class-f

Problem: Customer is running a Net Express 4.0 application that uses the OpenESQL embedded SQL support to access a DB2 database on the mainframe. The ODBC driver that they are using is the NEON (now DataDirect) Shadow Direct ODBC driver for DB2. The application was running fine until they had to change some column descriptions in their tables from DECIMAL 2,2 to DECIMAL 3,3 which creates a host variable of PIC SV999 COMP-3. After recompiling their applications with the new description any SELECT statement that accessed one of these modifed columns would cause an abend in the OpenESQL run-time of either a stack overflow or a memory write protection error. Resolution: After quite a bit of testing we found that their were two completely different issues that when used together would cause the run-time error to occur. First, we tested this against other ODBC drivers including DB2 Connect from IBM and the error did not occur so we isolated the error to the

Problem: Net Express 4.0 Client  found that when compiling a COBOL program in Vistual Studio they got the  the following error(s): Failed to find the system program EXTSM Failed to find the system program EXTFH Resolution: Net Express was installed first.  Then the latest wrappack for Net Express was installed.  Then Net Express with .NET was installed from the installation CD.   Applying the latest wrappack for Net Express with .NET fixed the problem. Old KB# 3924

Problem: Error creating a new COBOL project "The application for project 'C:\\Documents and Settings\\default\\local settings\\temp\\5dgjbw2p.cpx\\temp\\classlibrary2.cblproj' is not installed.' Make sure the application for the project type (.cblproj) is installed. Resolution: Open a Visual Studio 2005 command prompt.  Go to the Mico Focus\\Studio 5.0\\Packages directory and enter the following: regsvr32 cblprj.dll then press enter then enter the following and press enter: devenv /setup Old KB# 3938

Problem: When you run CBLCORED from the Net Express Command Prompt, it pops up a window to allow you to select the following options:     Disabled (default)     Enabled with prompt     Enabled with no prompt How to enable this feature without having to select manually from a popup window? Resolution: The runtime tunable core_on_error was introduced in the All WebSync WrapPack v4.0.005 (ALL05N40.EXE) of Net Express v4.0. There is a demo available on the sample site, which shows how to use (http://downloads.microfocus.com/examplesandutilities/utilities/CoreDump.zip) The description below for core_on_error is in the documentation. core_on_error Specifies in what circumstances a core file is produced. Syntax: >>-----set core_on_error=---.-0-.-----------><                      &nbsp

Problem: How to trap exception in COBOL .NET? Resolution: You can find documentation on how to handle exceptions using the TRY statement from the Net Express with .NET Help. Just follow the steps below: 1. Click on Help > Index 2. Make sure "Micro Focus Net Express with .NET" is selected from the "Filtered by" drop-down list 3. Type in "exception" from the "Look for field" 4. Double-click on "structured", which is right below "exception handling" in the list of topics That will lead you to the page where it addresses about structured exception handling and the usage of the TRY/CATCH/FINALLY/END-TRY control structure. It also refers to an existing sample, which is in Net Express with .NET\\Examples\\LRM Samples\\Exceptions folder. Old KB# 3944

Problem: Hitting backspace in a Screen Section restores a value instead of replacing with a space. Resolution: 1. Open the Net Express Command Prompt 2. Change directory at the location of the application's ADISCTRL file 3. Execute ADISCF 4. Press F2=Alter 5. Press F3=Accept/Display Options 6. Press F3=Individual Options 7. Press Down Arrow key to go to 12 (Auto-restore during backspace in replacement editing mode) 8. Press Enter to edit the option #12 9. Change the value from 1, which is the default, to 2 Here are the options for Auto-Restore: 1: Auto-Restore. The characters overtyped are automatically restored as characters are deleted. 2: Auto-Restore disabled. Deleted characters are replaced by the filler characters. Old KB# 3959

Problem: Which database products are certified for use with Server Express ? Which database products are certified for use with Net Express ? Which database products are certified for use with OCDS ? Which database products are certified for use with Workbench ? Is OpenESQL available on my platform? Is ODBC support available on my platform? Is DB2 support available on my platform? Is Cobsql available on my platform? Why do I get an 18-U Preprocessor error on initialization error using Cobsql? Resolution: 1. If you are using the COBOL precompiler as provided by a database vendor, e.g. Oracle Pro*COBOL, Informix ESQL/COBOL, Sybase cobpre (or are using Cobsql), or IBM's precompiler (or are compiling with the DB2 compiler directive), the responsibility of certifying the precompiler against Micro Focus COBOL products lies with the database vendor themselves : Oracle users with a valid MetaLink account, can access Oracle's document detailing certifi

Problem: The following line fails with "912-S Internal error - Dictionary invalid r/w 00000000" in Net Express 4.0 with All WebSync WrapPack v4.0.005 (all05n40.exe): DISPLAY FUNCTION WHEN-COMPILED(7:2) AT LINE 25 COL 09. The above however does not fail in any of the previous version of WrapPacks, even with previous versions of Net Express. Resolution: This has been fixed since All WebSync WrapPack v4.0.006 (all06n40.exe). Old KB# 3971

Problem: After updating Net Express 4.0 with the WrapPack all07n40, an RTS 115 is encountered when attempting to open a Service Interface or when attempting to create a new one. Resolution: This is a known problem e.g. for the Service Interface tool as well as for Form Designer. Workaround: The problem is caused by the "Text Find and Replace" dockable window, which you get from the IDE by "Search", "Find in text...". Just "right-click on this window and HIDE it" will enable the IDE to work correctly. This will be fixed in the next web sync for Net Express 4. Old KB# 3952

Problem: Using code how can you make a specific Tab page within a Tab control the current page. Resolution: You can use with the SelectedPage or SelectedIndex property of the TabControl object. Some example code for this would be:-           set tabControl1::"SelectedIndex" to 1  *> Its ZERO Indexed so 1 is actual Tab Page 2                *> or                    set ls-tabpage to tabControl1::"TabPages"::"Item"("tabpage2")                set tabControl1::"SelectedTab" to ls-tabpage Old KB# 3914

Problem: This demo returns information about the operating system environment via the library call CBL_GET_OS_INFO. Resolution: This demo also demonstrate the usage of the Library Routine Type Definitions and Call Prototypes.  Net Express contains two copyfiles; one contains data items used by the library routines specified as type definitions, or TYPEDEFs, while the other contains call prototypes for the library routines.  These can be used in your COBOL programs to enable the Compiler to validate all calls to these routines. SOURCE FILES: ========== Program Files Description ---------------------  --------------------------------------------------------- GetOSInfo.cbl Sample program used for the demo Copy Files ---------------------  --------------------------------------------------------- CBLPROTO.CPY Located in your Net Express\\base\\source folder CBLTYPES.CPY Located in your Net Express\\base\\source

Problem: You may have set environment variables external to the Net Express IDE.  However, you can't see them from within the IDE. How can you see environment variables that have been set externally from within the IDE? Resolution: Go to Project | Properties Click on the IDE button Then click on the 'Import' button and import the current environment by selecting  the environment variables you want to view or edit. Old KB# 3931

Problem: If you have a checked listbox how can you add items into the listbox and control their state? Resolution: You can add items to a CheckedListBox using code such as:-             invoke checkedListBox1::"Items"::"Add"("Item 2",cCheckState::"Checked")             invoke checkedListBox1::"Items"::"Add"("Item 3",cCheckState::"Unchecked")             invoke checkedListBox1::"Items"::"Add"("Item 4",cCheckState::"Checked")             invoke checkedListBox1::"Items"::"Add"("Item 5",cCheckState::"Unchecked") cCheckState is the System.Windows.Forms.CheckStat

Problem: This demo shows the use of animate from the command line when passing a command line parameter Resolution: This demo demonstrate how to accept and use parameters from a command execution SOURCE FILES: ========= Program Files             Description --------------------     ----------------------------------------------- animparm.cbl           Sample program Other Files: --------------------     ----------------------------------------------- compile.bat               Batch file to compile the program runit.bat                    Batch file to run program passing parameters OPERATION: ======== From a

Problem: This error was encountered in Release 3.1, but may be relevant to later versions of Net Express: Testing an ODBC environment: It runs ok under the Net Express development environment however running this in a Net Express runtime environment it fails and returns the error: The procedure entry point mF_xe_odbc_load could not be located in the dynamic link library cblrtss.dll What does this mean? Resolution: There is a difference between the development and run time environment versions. You should synchronize the versions - you should make sure the version of Net Express and Application Server (or Micro Focus Server in later versions) are the same. You can get the latest Application Server files and Net Express development environment files by logging on to the Supportline Website and then checking the following - For the Net Express development environment: 'Product Updates'  -> and then under the heading 'Net

Problem: COM WORD: Open  existing document in ReadOnly mode Resolution: ______________________________________________________________________________ Word Object Model [Word 2003 VBA Language Reference] <http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd11/html/woobjDialogs1_HV05210511.asp> ---> Open Method: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd11/html/womthOpen1_HV03076944.asp ....Open method as it applies to the Documents object. ______________________________________________________________________________ Demo attached: ...        *>=========================================================            *> Create an instance of Word            invoke wordapp "new" returning wordServer    &nbs

Problem: How to change the settings for MS Word document's orientation, margins, and font Resolution: There are few demo projects in Net Express, which shows how to use Microsoft Word with Cobol applications, and they are located in C:\\Program Files\\Micro Focus\\Net Express 4.0\\Base\\DEMO\\COMDEMOS\\WORD. The programs may not show you how to change the settings you wish to change, but they show you how to change MS Word settings in general. You can have a look at MSWORD.CPY in the same folder to discover other numerous methods to change MS Word's settings or properties. We do not provide any documentation on how to use MS Word from Cobol. You need to know Object-Oriented Cobol and methods and functions available in MS Word. The attached demo (WORD3.CBL) is taken from the Word demo folder and modified to set orientation, margins, and font. Go to the Microsoft MSDN site (http://msdn.microsoft.com) to see the complete documentation on these MS Word fu

Problem: Rebuilding an Object-Oriented Cobol program in a Net Express 4.0 project fails with "Rebuild complete with errors", but nothing more is shown in the Output window. If the same program is compiled and linked from the Net Express Command Prompt, the following error message is then displayed: * 013-R Illegal intermediate code (at 0X101 in seg 0) ERROR: (9) Program indicated failure Resolution: This has been fixed since All WebSync WrapPack v4.0.005 (all05n40.exe). Old KB# 3972

Problem: The customer wanted a list of XML file status codes: he looked under 'XML' and 'file' in Net Express help, but found nothing. Resolution: The XML error codes are detailed in the Net Express help, but they're difficult to find. They're on the 'Contents' tab -> Reference -> COBOL Language -> Additional Topics -> XML Syntax Extensions -> XML File Status. That returns the following list: Return Code Meaning > 0  After a successful READ action, the ordinal number of the record read is returned as the status code. 0 Success. The XML I/O action is performed without problem. -1 The XML I/O action is trying to access an XML stream that is not opened.   -2 This is an invalid XML I/O action. -3 Invalid mode is specified in the OPEN statement. -4 The XML stream cannot be opened. -5 The XML I/O action is attempting to access an internal DOM (Document Object Model) representation whi

Problem: This program demonstrates how to use Microsoft ADO (ActiveX DataObjects). Resolution: INTRODUCTION ========== This program demonstrates how to use Microsoft ADO (ActiveX DataObjects). SOURCE FILES ========= Program Files             Description --------------------     ----------------------------------------------- ne3ado.cbl REQUIREMENTS ========== The source of the data is a Microsoft Access Database  file sample.mdb located in your NetExpress\\base\\demo\\Smpldata\\ Access directory. There should also be a DSN entry viewable in the ODBC Data Source Administrator for "NetExpress Sample2".   This program is set up to use ADO Recordset Objects  as specified in the class-control paragraph. You can look for the entry ADODB.Recordset in the Windows system registry(using regedit.exe) within HKEY_CLASSES_ROOT.

Problem: The Find function under Net Express retains the values from previous finds, which can be deleted or reduced. Resolution: Go to regedit and looks under: (HKEY_CURRENT_USER/Software/Micro Focus/NetExpress/nn/IDE/FindHistory) You can remove the old values under "FindHistory". You can also limit the number of values kept in storage by selecting the "size" name under FindHistory and change the value to a lesser number. Old KB# 3968

Problem: Example of how to implement a COBOL Callback method that is called from C Resolution: 2 example programs are shown below: callbacks.cbl        identification division.        program-id. callbacks.        data division.        working-storage section.        01 pptr-callback1        procedure-pointer.        01 pptr-callback2        procedure-pointer.        01 pptr-C-DLL            procedure-pointer value null.        01 callback-id           pic 9(9) comp-5.   &n

Problem: Is possible to join together three files into only one file? Resolution: Yes, using x"91" funtion 35. Example program:        01  result          pic x comp-x.        01  function-code   pic x comp-x value 35.        01  parameter.            03  name-len   pic x comp-x.            03  progname   pic x(99).        procedure division.        move "COPY a b c d" to progname        move length of progname to name-len        c