Rocket® COBOL

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: Is there any set of specific directives recommend whent converting from mainframe COBOL370 programs to Microfocus COBOL Net Express? Resolution: The list of directives should match the mainframe compiler version currently being used. Micro Focus creates a standard for that Dialect, but that does not mean it will match the specific environment completely. Look at Net Express Help > Start Here, Migration Cookbook, Chapter 6 Directives and Dialects for the directives associated with each Dialect. Obtain the list of directives that are used when compiling on the mainframe and match them to one of the dialects and then add/remove additional directives as needed. There is no list other than using the DIALECT(XXX) directive where XXX indicates a specific dialect. There are simply too many combinations of language elements that would enable a simple list of directives to work in all cases. This being understood the only generic list would be that provid

Problem: Receiving an error running MFSORT - error is SORT042U.   Cannot find MFSORT documentation that lists this message - is there a complete set of MFSORT error messages ? Resolution: Open Net Express Help and click the "Contents" tab. Then open these folders: Reference   File Handling     Sorting Files       Mfsort and click the "Error messages" document. The messages are grouped into 0001 through 0099 and 0100 through 0199. Your error is within the first group. SORT042U Memory allocation failure The mfsort utility was unable to allocate the required memory. Resolution: Try reducing the value of the SORTSPACE environment variable. See Also: Environment Variables SORTSPACE The amount of memory to be allocated to internal workspace for SORT operations. This can be specified in different formats: for example, you could specify 64M, 2G, and 1000000 to give sort memo

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: 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: 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: The cookie.js file was correctly deployed to the web server but the cookie used on the page was being passed between the browser and server. Resolution: This issue was caused by the Virus checker that was installed on the webserver machine. The virus checker was preventing the javascript from functioning correctly. Old KB# 5397

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