Rocket® COBOL

Problem: Changing the current date to test in a project. Resolution: Open the project where you want the date changed.  Go to the Project/properties tab.  Select Application under Environment.  Next choose the Testing tab - here you can change the Year, Month and or day. Old KB# 5428

Problem: While using a Net Windows Forms application how can you ensure when you tab into a Multi Line Entry field that no text is already selected? Resolution: In order to do this you need to add a Gained Focus event handler on the control you need to bevhave in this way and add the following lines:- set self::"textBox1"::"SelectionStart" to 0 set self::"textBox1"::"SelectionLength" to 0 On entry to this field the above code will ensure that no text is selected. Old KB# 5414

Problem: How do I define "Sparse keys"? Resolution: Sparse Keys A sparse key is an alternate key for which index entries are not created when the key has a particular value. For example, if an alternate key containg all spaces is defined as a sparse key, index entries for the key are not created when the alternate key contains only space characters. Using this feature results in smaller index files. The larger your key(s) and the more records you have for which the alternate key has the given value, the larger your saving of disk space. To enable sparse keys, use SUPPRESS WHEN ALL in the ALTERNATE RECORD KEY clause in the SELECT clause: file-control.        select idxfile assign to "idx.dat"                             organization is indexed   &n

Problem: Release 4.0: Creating and maintaining toolbars in Net Express, Dialog system is preferred. Where to find examples and tips? Resolution: (1)  A demo can be found in the Net Express product installation itself: ..\\DialogSystem\\Demo\\Commoncontrols\\Toolbar (2)  Additional, there is a programming tutorial "Adding and Customizing a Menu Bar and Toolbar". It can be found here: Net Express -> Help -> Help Topics -> Content -> Programming -> Dialog System -> Dialog System Guide -> Part 3 Programming Tutorials -> Chapter 21 Old KB# 5410

Problem: In .Net Winforms how can a user hide controls when a checkbox is checked ? Resolution: In WinForms there is a CheckedChanged event for a CheckBox. You can use this and the "Checked" property of the checkbox to hide controls as required. The simplest way to hide a control is by setting the "Visible" property of a control to false. Some example code that does this is:-        method-id.  "cboxHide_CheckedChanged" final private.        linkage section.        01 sender System-Object.        01 e System-EventArgs.        procedure division using by value  sender e.                    if self::"cboxHide"::"Checked" &

Problem: Release 4.0: Using the XML GENERATE statement from IBM mainframe COBOL in Net Express. Resolution: Use Net Express 4.0 with the WrapPack all06n40 or later. Old KB# 5437

Problem: the code pasted below compiles without any Problem with Net Express 3.1, generates errors 1309 == File related section or paragraph not allowed. ( Severe error ) with Net Express 4.0.... ====> compile errors: Micro Focus Net Express V4 Version 4.0.38 Copyright (C) 1984-2005 Micro Focus International Ltd. URN AXCGG/AA0/00000     43 INPUT-OUTPUT SECTION.   *> !!!!! *1309-S************                                                          ** **    File related section or paragraph not allowed.     46 FILE SECTION.           *> !!

Problem: Das Modify Data Tag (MDT) soll als Eigenschaft eines Feldes im Editor gesetzt werden. Kann üblicherweise bereits für ein BMS Feld eingestellt werden, nicht erst im SEND MAP Aufruf. Wo ist der Schalter im Net Express BMS Editor ? Resolution: Das MDT Bit wird  durch den Schalter FSET in den Feldattributen gesetzt (Field Properties / General). Old KB# 5421#RMCOBOL#netexpress#ServerExpress#COBOL#AcuCobol

Problem: Converting a data file from EBCDIC to ASCII that contains packed numeric fields (usage COMP-3) using DFCONV from the command line, or alternatively the File Convert data tool from the Net Express IDE, results on corrupted data in the numeric fields. Resolution: The problem may be that the packet fields are not EBCDIC character data, they are just numeric data that follows a particular format (packet decimal) but it always follows the same format whatever the OS. I will give you an example. If you have the following hexadecimal data from the mainframe: 94 2C What would you say it is? It could be the value 924 in packet decimal format, but it could also be the EBCDIC string "k<". If you tell the File Convert tool that your file is all in EBCDIC, it will take it as the string "k<" and generate its ASCII equivalent, in hexadecimal: 63 BC This is perfectly valid if it really was the string "k<", but if that

Problem: t:\\NE\\obj\\program.obj cbllds00000714.obj    Creating library t:\\NE\\dll\\program.lib and object t:\\NE\\dll\\program.exp CVTRES : fatal error CVT1107: t:\\NE\\dll\\program.exp is corrupt t:\\NE\\dll\\progam.exp : fatal error LNK1123: failure during conversion to COFF: file invalid or corrupt link finished with errors T:\\PR\\SRCE> Resolution: cbllink uses Microsoft "link" under the covers the 1123 occurs sporatically for unknown reason when trying to place the linked module onto a mapped lan drive. MicroSofts position on this matter is that they do not support linking over the network Old KB# 5401

Problem: When Net Express is uninstalled, choose to revoke the license but no revoke code was visible. Resolution: Search the machine for the file protrev.txt, this will contain the revoke key. Normally can be found in the Net Express\\base\\bin directory. (If using older version would have to have applied the clu08all fixpack) Old KB# 5417

Problem: The system has a limit of 100 GDI objects (brushes, colours, fonts, etc.), and this limit can be reached when the same GDI object (e.g. font) is being created repeatedly, leading to the error message "Cannot map any more GDI objects - Internal Limit Reached" Resolution: If you are working with List View, and this error is occurring. This may have been a result of creating the font object over and over. The problem appears to be with the wmgadgetnotify method in the control program. It is actually creating a new font for every prepaint message. You will need to make a small change in the SetFont method of the ...LVIEWITEM.CBL program. You will note there is only one single statement in that method, which is      invoke lnkfont "deepcopy" returning itemfont Please comment that statement out, and add instead:      move lnkfont to itemfont Old KB# 5420#RMCOBOL#ServerExpress#COBOL#netexpress#A

Problem: Release 4.0: Migrating from IBM's DB2 and compiling a source including Oracle's SUM and CASE function respectively: SELECT ...        SUM(CASE TRIGGERTABLE                           WHEN 'RS032' THEN 1 ELSE 0            END)                         ... and getting back compiler error: COBCH0149S No SQL directives have been set  : N:\\mf_ora\\Source\\cobol\\RS032.cbl(143,15) COBPR0000S 000400:Encountered the symbol "TRIGGERTABLE" when expecting one of the fol   : N:\\mf_ora\\Source\\cobol\\RS032.cbl(147,44) COBPR0000S 000400:Encountered the symbol ")" whe

Problem: trying to use comp-6 directive and getting invalid command line error Resolution: An additional integer  of "1" or "2" is required comp-6"1"   or comp-6"2" Old KB# 5402

Problem: Using Sql Server and getting error message "Connection is busy with results for another hstmt" . which is caused when using Firehose cursors (client-side). Need to force server side cursors in my application. Resolution: Although client-side cursors are much faster than server-side cursors there is the SQL Server limitation that you can only have one client-side cursor open per connection. Microsoft introduced fastfoward readonly cursors to alleviate the limitation of working with firehose cursors. To force a server side cursor you can  set scrolloption  or use the new SQL compiler directive BEHAVIOR specifying primitive options to force a fastfoward readonly (server-side) cursor. In either instance the following sql compiler directive is required  SQL(TARGETDB=MSSQLSERVER). 1. setting scrolloption EXEC SQL SET SCROLLOPTION FASTFORWARD END-EXEC or specifying it in DECLARE CURSOR statement EXEC SQL DECLARE CS

Problem: When creating an Excel file from within COBOL.Net  the formatting on numeric cells is lost, see example :- 1) Tthe value 123.40 is in a cell, but when opened the file it shows 123.4 2) Also the same with 00100, it shows 100 Resolution: Set the number format on ths cells you require. The "NumberFormat" property on a Range object lets you do this. See the Microsoft doucmentation on this property for full details on what can be set. Some example code for this is:-       $set sourceformat(variable)        program-id. MSExcel.        environment division.        configuration section.        repository.     class cExcel as "Microsoft.Office.Interop.Excel.ApplicationClass"     class c

Problem: How to uninstall Net Express 4.0's All WebSync WrapPack? Resolution: To uninstall the Net Express 4.0's All WebSync WrapPack, you just need to follow the steps below: 1. Go to "Add/Remove Programs" 2. Select "Micro Focus Net Express 4.0" from the list 3. Click on the Remove button 4. Check the "All WebSync WrapPack" option 5. Click on the Uninstall button As results, Net Express will be back at its original version. That is, it is without any patches at all. If you want to apply any previous version of WrapPack, you can download them from the Micro Focus SupportLine site at http://supportline.microfocus.com. There is a link for "Net Express 4.0 All WebSync WrapPack Archive" from the "Net Express 4.0, Net Express with .NET and Mainframe Transaction Option" download page However, we highly recommend to apply the latest WrapPack. If you experience any problems with the latest WrapPa

Problem: If you have applied IBM FixPak 10 to DB2 UDB V8.1 / V8.2, a SYSIBM:CLI:-805 error trying to access SYSIBM.SQLTABLES may occur when attempting to connect to the DB2 database to retrieve the list of tables from within the ESQL Assistant. Resolution: Per the IBM FixPak Readme for FP 10, you will need to manually re-bind to the database. See the IBM Support Alert at http://www-1.ibm.com/support/docview.wss?rs=71&context=SSEPGG&dc=D600&uid=swg21215626&loc=en_US&cs=UTF-8&lang=en for information on how to solve this. As documented in the IBM FixPak Readme file for DB2 Version 8.1 FixPak 10, you will need to bind the db2schema.bnd file against each database, as follows: At a command prompt: db2 terminate db2 connect to <database-name> db2 bind <path>/db2schema.bnd blocking all grant public sqlerror continue db2 terminate ...where <database-name> represents the name of a database to which the utilities sh

Problem: You open a Net Express Command prompt and you enter the adiscf command to be able to configure adis behavior for screen i-o. But although you can see the menu bar at the bottom, you can not see any of the menu options in the main panel. Resolution: Adiscf was designed when the command prompt window had a fixed size and there were not any screen buffer. So to get it working properly, you need to reduce the screen buffer size to match the real window size. For example, if you wanted to configure adis to enable function keys, these are the steps that you would need to do: 1. Open a Net Express command prompt 2. At the command prompt window you need to reduce the Screen Buffer Size to match exactly the Window Size, or you will have problems with adiscf. Click on the top left corner and select properties. Then reduce the Screen Buffer Height to 25, that is the same value that you see in Window Size. Then click OK. If you select "Apply prop

Problem: With the CBLLINK command, an EXE (or DLL) can be linked with the dynamically bound shared runtime library using the -rs option. Resolution: From the Net Express IDE, you can link an EXE (or DLL) with the dynamically bound shared runtime library as follows: 1. Right-click on the EXE from the project tree, the left pane of the IDE 2. Select Build Settings 3. Click on the Link tab 4. Make sure Shared is selected 5. Click on the check box for Dynamic 6. Click on the Close button 7. Rebuid the EXE Old KB# 5447#ServerExpress#COBOL#netexpress#AcuCobol#RMCOBOL

Problem: Release 4.0: Receving a return code 14605 for a file operation using a call_by_name CBL_  routine Resolution: 14605 is a decimal number representing the related run time error in two bytes basically in hex format: '390d', the most right byte hex '0d' describes a value of '013' decimal. You can find more information about run time error '013', and all other cases, here: Net Express Help -> Index -> Run-time system -> error messages -> Run-time System Error Messages ->refer to 013 -> File not found If you want to act programmatically take a look here: http://www.microfocus.com/Resources/Newsletters/SupportLine/20051101-index.asp#TechnicalArticles >Interpreting the Return Code of a Library Routine< Old KB# 5427#netexpress#COBOL#RMCOBOL#AcuCobol#ServerExpress

Problem: You may see this error message reported when using Net Express Application Server when attempting to execute a deployed application. The problem is that error gives in some customers and in others no. The environment is the same for all customers.      Could you help us to solve this problem, please? Regards, Resolution: The most common reason you would see this message is because you are attempting to run an application that has been built using the Net Express 4.0 runtime on a machine that only has the Net Express 3.1 run time installed. Because the Net Express 4.0 runtime cannot be found on the machine the error is produced. So the solution would be to either install the Net Express 4.0 runtime onto the client machine(s) or if possible to rebuild the application in Net Express 3.1 which will then use the Net Express 3.1 runtime available on the machine. Old KB# 5415

Problem: Only 16 colours are displayed when using the colour option.  The computer is set to unlimited number of colours. Resolution: The Form Designer Script Assistant helps you set up event handlers that: Invoke methods Get and set properties Get and set styles The Script Assistant has five tabs: The Events tab The Methods tab The Properties tab The Styles tab The Scripts tab The Events, Methods, Properties and Styles tabs provide you with a point and click method of creating event handlers, while the Scripts tab enables you to enter and edit your code directly. The contents of the tabs and the behavior of the Script Assistant vary depending on whether you are working with HTML controls or ActiveX controls. Styles contain information about the appearance of an element. Just as with properties, you can set a style to change an element s appearance, or get a style to discover its appearance.  For example, most ActiveX

Problem: When attempting to install Net Express .NET the Visual Studio.Net prerequisite CD asks you to insert cd-1 and then hangs. Resolution: Ensure that you have at least 128MB of RAM on the machine you are installing to. Old KB# 5441

Problem: Migrating to Microsoft SQL Server from the mainframe, the stored procedure returns both a cursor and output parameters. Is this supported in OpenESQL? Resolution: No. We do not support returning output parms and a cursor simultaneously from a stored procedure with OpenESQL. (net express 4.0 all05n40) Old KB# 5715