Rocket® COBOL

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:   If the sub-program is called:        CALL "subprog" USING OMITTED OMITTED WS-VAR-3. The following error occurrs: Execution error : file 'subprog.int' error code: 203, pc=225, call=1, seg=0 203     CALL parameter not supplied How do I validate which parameter is omitted to avoid this error? Resolution: The 203 error is correct as you need to test for the presence of each parameter before attempting to modify it in the sub-program. This is done with the following code:       if <variable-name> is not omitted           move ... and so on. Old KB# 5449

Problem: Running a  Dialog System application with a Calendar control the following error may occur:      OLE returned an error H"800401F3", invalid class string. Resolution: This error indicates that the ActiveX control has not been registered in the operating system. Iit would appear that the Calendar control is supplied as part of Microsoft Office (MSCAL.OCX).  You will need to have installed Office on the machine. For more information see: http://support.microsoft.com/default.aspx?scid=kb;en-us;279098 Old KB# 5433

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: 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: 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: 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: 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

Problem: Release 4.0: When compiling a program with a single syntax bug, this causes an aftereffect of about 1500 error messages. It may end with an "Unexpected Error while syntax checking", or a hanging IDE, or it may take several minutes until the IDE can be used again. Killing the IDE using taskmanager does only help if the IDY-file is deleted also. Resolution: A better solution is offered by the compiler directive MAX-ERROR. Limiting the number of errors, e.g. to: MAX-ERROR"50 E" MAX-ERROR"40 S" e.g. placed in the COBOL.DIR file, will improve the situation. After reaching the specified number of messages, the compilation will be aborted by a (last) "Too many errors" message. Old KB# 5409

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: You want to convert a string (e.g. "12.3") to decimal data type in .NET. Resolution:        program-id. DecStrConv as "DecStrConv".        environment division.        configuration section.        repository.             class stringClass as "System.String"             class decimalClass as "System.Decimal"             class convertClass as "System.Convert"             .        data division.        working-storage section. 1 myString object reference stringClass. 1 myDecimal object refere

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: 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: 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: 1.  Program A calls program B. 2.  Program B opens a file, then returns control to program A. 3.  Program A calls program B again. 4.  Program B accesses the file, assuming it is still open from program A's prior call.  This causes an immediate "47" I/O declarative error. Apparently, working-storage variables in program B held state from the previous call but the FILE OPEN state did not - the file has reverted to a closed status without ever being explicitly closed.  Again this behavior is different from my 3.0 system.   Is this also a compiler directive or runtime setup issue? Resolution: The sub program was using  EXIT PROGRAM to return to the calling program which using RM directive will close all open files. Adding "ANSI" to the RM directive will allow the EXIT PROGRAM to keep files open. RM"ANSI" O

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: 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: Enabling a cobol program to recognize a printer plugged into a usb port Resolution:   The way to print via a USB-port and not the 'normal' LPT1/2 etc is to use the printer_redirection run-time tuneable. This redirects output on a file defined as ASSIGN TO PRINTER to whatever your default printer is. So, if that is connected via USB it should work. The printer_redirection tuneable causes ASSIGN TO PRINTER statements to go to the print spooler rather than LPTn. Therefore, provided the printer attached to the USB has been installed properly there should be no problem printing to it. There is no way to access ports directly in our product because the operating system APIs used for file handling do not handle USB port names. The printer_redirection mechanism is the only way that accessing a printer connected via USB can be done. To set the printer_redirection runtime tuneable you need to create a runtime configuration file and

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: In the documentation the Dialect COBOL370 and OS390 show the compiler option  HOST-NUMCOMPARE To expand on the the meaning of the following associated directives... HOST-NUMCOMPARE"1" HOST-NUMCOMPARE"2" NOHOST-NUMCOMPARE HOST-NUMCOMPARE Resolution: HOST-NUMCOMPARE is actually the same as HOST-NUMCOMPARE"2"... HOST-NUMCOMPARE"1" is an earlier version and is deliberately no longer documented. It is still supported for some customers who came to rely on its semantics, however support for HOST-NUMCOMPARE(1) may be withdrawn in a future product. All new code that wants compatibility with IBM mainframe for comparisons should use HOST-NUMCOMPARE. NO HOST-NUMCOMPARE is the default setting. Old KB# 5328

Problem: Does Application Server support Windows Clustered environments? Resolution: Micro Focus Application Server has no direct support for Clustered Services. Applications written in COBOL however should run on a Windows Server machine that participates in a Windows Cluster. However the application will not be cluster aware. There is a API that applications can use to make themselves cluster aware:- http://msdn.microsoft.com/library/default.asp?url=/library/en-us/mscs/mscs/windows_clustering.asp?frame=true If you need to make your application cluster aware then you will need to to use these apis. Old KB# 5373

Problem: Gets an exception (java.lang.nullPointerException) only when animating a web application. The same web project runs fine on any other development machines except on one. Resolution: If the web application is using a Java applet, make sure the Java (Sun) setting in the Internet options of your web browser is not set to use the Java Sun JRE. The name of the option is "Use JRE 1.x.x_xx <applet>" Old KB# 5329

Problem: Doing a static link of a ODBC program with Base release of Net Express 4.0 and base release of Application Server for Net Express 4.0. Resolution: Static link is not recommended for ODBC The issue was resolved by linking as Shared Another method would have been to upgrade development and Application Server for Net Express to the currect update levels available on our website. http://supportline.microfocus.com Old KB# 5348

Problem: A COBOL program that is built with Oracle Procobol precompiler fails with an RTS114 Error on a SQL SELECT statement. Resolution: This error was caused by a mismatch of Oracle versions. Using the correct version of Oracle client software for the Oracle Server version resolved the problem. Old KB# 5378#RMCOBOL#ServerExpress#AcuCobol#COBOL#netexpress