Rocket® COBOL

Problem: Using ODBC with DB2 and not being the owner of the table, how to specify a qualifer for the table? Resolution: This is specified by the configuration of the DB2 ODBC datasource through the ODBC Data Sources tool.  Select the datasource, click on Advanced Settings tab, hit the ADD button Select the CLI\\ODBC parameter of CurrentSchema (or CurrentSQLID) then specify the default qualifier. Old KB# 1252

Problem: Wie finde ich die Postion meines Cursors beim Animieren wieder nachdem ich im Quellcode geblaetter habe? Resolution: ueber View->Where im Menue oder die Tastenkombination strg w. Old KB# 1365

Problem: What steps needs to be taken to obtain a hard copy of the Net Express manuals Resolution: Manuals can be printed from the online help. For example, if you would like to get the File Handling manual printed you can do so within the online help by going to Contents\\Programming\\File Handling\\ and highlight the File Handling Manual.   Then from the menu bar at the top you can select Print or Options/Print and make sure that you select the radio button "Print selected heading and all subtopics".  That will print you the entire manual. Old KB# 1251

Problem: Does Oracle OCI Data access via the SQL(TARGETDB=ORACLEOCI) support the PREFETCH directive ? Resolution: This is not currently supported. Old KB# 1298

Problem: If you want to read an XSD file programatically you may want a Schema for the Scheme so that you can generate the COBOL data structures using the cbl2xml wizard. Resolution: The schema for the XML Schemas is a available at:- Schema is http://www.w3.org/2001/XMLSchema.xsd Full details on schemas and a DTD for a schema is available at:- http://www.w3.org/2001/XMLSchema Old KB# 1356

Problem: Error Edit134 appears when attempting to save an edited source member to a SAMBA drive. Resolution: Incorrect permissions prevented the deletion of temporary file mfeditor.sav. Change permissions to allow deletion from the directory. Old KB# 1342

Problem: A 'Read' on a Fujitsu data file will cause a 039 RTS error. Is it possible to access and read a Fujitsu data file with MF COBOL? Resolution: It is not possible to access a Fujitsu data file as the format will not be recognised. It is recommended to convert first to a Sequential file using Fujitsu tools. Old KB# 1348

Problem: Using the PC_PRINTER routines in Net Express, how to set the margins of the output? Resolution: (1) To control the margins of reports generated then there is an advice that instead of using the PC_PRINT_FILE call to "manually" control the printing of the reports by using a combination of the PC_PRINTER_OPEN, PC_PRINTER_CONTROL, PC_PRINTER_WRITE and PC_PRINTER_CLOSE calls.  This would mean that the program would have control over each line of the reports. (2) Another way to control this and still to use the PC_PRINT_FILE call would be to create the report file with the appropriate leading spaces that would fulfill the needs. Old KB# 1299

Problem: Can a computer be identified by a program? Resolution: The WinApi GetCurrentHwProfile retrieves information about the current hardware profile for the local computers producing a GUID. On every call, GetCurrentHwProfile computes the same GUID on the same hardware but a different GUID on a different hardware. This GUID should be unambiguous between different computers. Attachments: GUID.zip Old KB# 1294

Problem: Trying to do a positioned delete for mysql table and it isn't working. Resolution: For MYSQL to work you need to compile with the sql directive SQL(USECURLIB=YES) and need to set SCROLLOPTION to STATIC and CONCURRENCY to OPTCCVAL (these can either be specified through the EXEC SQL SET statement or specified in the DECLARE CURSOR statement). From on-line docs: Positioned Update ODBC supports positioned update, which updates the row most recently fetched by using a cursor. However, not all drivers provide support for positioned update. With some ODBC drivers, the select statement used by the cursor must contain a FOR UPDATE clause to enable positioned update. Most data sources require specific combinations of SCROLLOPTION and CONCURRENCY to be specified either by SET statements or in the DECLARE CURSOR statement. If this fails to work, the ODBC Cursor Library provides a restricted implementation of positioned update which can be enabled by compi

Problem: When using the CallUnManagedDll Sample which can be found on the supportline website an COBOLRuntimeException Error appeared. 174 file not in directory. Resolution: As described in the readme in the demo itself (and also in the source code *text* part) you need to add the cobcdll.dll and the cobcalldll.dll in the references. Also the kernel32.dll in windows/System32 needs to be added. Old KB# 1254

Problem: Unix Options: Setup disabled Resolution: Ensure that the Unix options are installed and a project is opened or create a new project. Old KB# 1297

Problem: The RaisePostBackEvent receives every event from an ASPX page. In contrast to other events like Button1_clicked, the RaisePostBackEvent routine isn't automatically generated from the COBOL wizard. How can the RaisePostBackEvent routine be implemented in COBOL. Resolution: Add the following code to the generated class:        method-id. "RaisePostBackEvent" protected override.        procedure division using by value a-source as System-PostBack                                          eventArgument as string.            invoke super "RaisePostBackEvent" using value a-source eventArgument  &

Problem: What is the meaning of the codes -->01 and -->08? For example: 16/11/2006 14:34:19 RECEIVEALL Error: HPLEVENSRV_P00084     -->08 CCITC32-0008E A response failure has been detected on the given connection. 16/11/2006 14:34:20 RECEIVEALL Error: HPLEVENSRV_P00083     -->08 CCITC32-0008E A response failure has been detected on the given connection. 16/11/2006 14:36:22 RECEIVEALL Error: HPLEVENSRV_P00082     -->08 CCITC32-0008E A response failure has been detected on the given connection. 16/11/2006 14:42:47 TRANSACT Error: HPLEVENSRV_P00036       -->01 CCITC32-0001I A CCITCP call has timed-out. - Processing Continued 16/11/2006 14:43:54 RECEIVEALL Error: HPLEVENSRV_P00081     -->08 CCITC32-0008E A response failure has been detected on the given connection. 16/11/2006 14:45:08 RECEIVEALL Error: HPLE

Problem: When using client-side cursors with SQL Server 2000 or earlier, there is a limitation of only allowing one active cursor per connection. Attempting to open a second client-side cursor will issue an error "connection is busy processing another hstmt". It is not possible to use separate connections for each cursor as this could lead to locking issues. Resolution: SQL Server 2005 has implemented support Multiple Active Result Sets (MARS). MARS removes this constraint/limitation and allows multiple queries or stored procedures to be performed on a single connection. In order to take advantage of MARS with Net Express, the program must be compiled with the following directives : SQL(DBMAN=ODBC, TARGETDB=MSSQLSERVER, MARS) or, if using a DSN-less connection, specify MARS_Connection=YES within the Connection String. This capablility is provided with Net Express 4.0 all06n40 wrappack (and later). Note that the ODBC DSN used must be the SQL Native Client driver,

Problem: File Handling; for indexed files under exclusive access mode, the maximum size is 4 GB by default using MF format (IDXFORMAT 3) and default FILEMAXSIZE at 4. Because fileshare open file in exclusive mode, does it mean that the maximum is also 4GB even multiple processes are using fileshare to gain access to a file concurrently.  As the documentation does not mention fileshare, please confirm. Resolution: Fileshare opens the files exclusively and maintains the locks. Even if two separate process are accessing the records thgrough fileshare the locks are still being maintained under the control of fileshare. Therefore as the file is opened exclusively the limits are the same as any other process opening the file exclusively. Old KB# 1376#COBOL#ServerExpress#AcuCobol#netexpress#RMCOBOL

Problem: This error was encountered on a machine with Net Express 5.0 with Support for .Net installed. This error was encountered after installing the Micro Focus Net Express 5.0 WrapPack 2, NXP3250020077.msp. After completing the install process they tried to open a .NET COBOL solution and received the following error: Unable to load C:\\Program Files\\Micro Focus\\Net Express 5.0\\Packages\\cblprj.dll Resolution: The wrappack installation notes state that before installing this WrapPack, you must uninstall Net Express support for .NET in Net Express 5.0 if you have it installed. To uninstall the Net Express support for .NET: Go to Add or Remove Programs in Windows Control Panel. Navigate to Micro Focus Net Express 5.0. Click Change. Follow the wizard and choose to uninstall the Net Express support for .NET. You can reinstall the updated Net Express support for .NET after installing the WrapPack using the same procedure as above but choosin

Problem: When using the Examine feature of the Net Express Animator by clicking on the "Change" button a grayed out window will appear that will not permitting to change the value of the data item. Resolution: One possible cause is that one of the Micro Focus OCX was not registered properly during installation or that the version registered is too old. The OCX is valueedit.ocx. That file can be found in c:\\program files\\common files\\Micro Focus, where the last part of the directory structure could also be Merant, depending on the product installation. Go to a command prompt and then do a directory change to go to the above mentioned location and register the OCX, i.e. regsvr32 valueedit.ocx Still experiencing this problem? Please contact your local SupportLine office to pursue. Old KB# 1311

Problem: getting an ILLOGIC (Eibresp=21, 110) when trying to read a RRDS file.   The CFLE program (DFHZDFDM) reads it fine.    It is a standard CICS READ.                   EXEC CICS READ                   DATASET (WS-DATASET)               RIDFLD (WS-RECORDKEY)                INTO (WS-RECORDAREA)                LENGTH (WS-RECORDLEN)                EQUAL                NOHANDLE   &nb

Problem: Running ES MTO - an abend occurred and the CICS was creating a dump. It hung the whole system and took like 2 hours. Resolution: In this case - the faultfind utility had been turned on Faultfind should NOT be used with  ES MTO This is a feature for debugging regular pc and cgi applications. ES MTO has its own dumping facility and the two conflict with each other for resources.   Old KB# 1290

Problem: My SQL Server stored procedure  takes a list of parameters and returns a result set what is the required syntax to call this stored procedure? Resolution: from docs: If a stored procedure call returns a result set, it must be used in a cursor declaration, thus:     EXEC SQL         DECLARE cursorName CURSOR FOR storedProcecureCall The stored procedure is then called by OPENing the cursor and FETCHing result set rows, like any other type of cursor. Currently OpenESQL supports only a single result set. The code for calling a stored procedure that has two input parameters and returns a result set containing 3 output values for each fetched row would be something like the follows:           exec sql               declare c1 cursor for    &n

Problem: In an unix environment parameters are retrieved with the  DISPLAY UPON ARGUMENT-NUMBER as numbers 2, 3, and 4, (with argument 1 being the program name and path). It appears in the Windows environment they correspond to numbers 1, 2, and Is there some compiler/runtime flag that would emulate the unix environment? Resolution: Use the run time tunable arguments_are_initial=TRUE according to the documentation: This affects the COBOL command line arguments returned from the syntax ACCEPT ... FROM ARGUMENT-NUMBER and ACCEPT ... FROM ARGUMENT-VALUE. example: run myapp arg1 arg2 arg3 Returns myapp as argument 0 when this tunable is set to FALSE (default). When the tuneable is set to TRUE the trigger name (run) is returned as argument 0 and myapp as argument 1. Therefore the actual passed parameters would be 2,3,& 4 as in the unix environment. syntax: set arguments_are_initial=TRUE NOTE: This run-time tunable should be specified in

Problem: How to SORT a table in storage. Can this be done? Resolution:   Yes, here is a sample program that illustrates how to do this:       $set mf charset"ascii"        Identification Division.        Program-Id.  LORINCE.        Environment Division.        Data Division.        Working-Storage Section.       * Sorted Numeric Values : 111 112 121 122 211 212 221 222        1   MixNumVals.         2          Pic 9(12) Value 222221112121.         2          Pic

Problem: Net Express To run the utility in bulk for multiple data files conversion but unable to figure out how to redirect the output of DFCONV to a log file. For example: @run dfconv CFAB.PRO > loadCFAB.lst The command ran successfully but the output of dfconv was displayed on screen instead of being redirected to the log file loadCFAB.lst. Resolution: To do this from a netexpress commandline: set cobsw=s5 run dfconv xxx > dfconv.txt Running multiple dfconv in one command file and getting all output to go to one file (appending) To do this: set cobsw= s5 run dfconv xxx >> dfconv.txt Old KB# 1296

Problem: After installing Net Express v5.0 you get a "188 Filename too long" error when trying to bring up one of the IDE Tools, such as Dialog for UNIX. Resolution: This happens when installing Net Express v5.0 on a machine with a previous version.  The install scripts detects that you have an older product and ask if you want to use the old configuration.  If you answer "yes" then you could get an incompatibility with the old and new settings. The resolution is to remove the IDE folder from the registry. From the Start button select Run and enter regedit - this will open the registry Open the HKEY-CURRENT_USER and select  - Software >> Micro Focus >> NetExpress >> 5.0 You will see two folders IDE and Unix Right click on the IDE folder and delete it  (It is recommend you back it up prior to deleting it) Exit out of the registry Start Net Express v5.0 When it ask if you