Rocket® COBOL

Problem: The following erros may be observed when attempting to start a Fileshare Server:    FS084-I Fileshare Server is starting. (Revision 9243).    FS130-I Reading database reference file, please wait. FS108-I Processing the files specified in the database reference file. FS110-I D:\\ENVIRONMENTS\\V513FILESHARE\\DATA\\FILE01  - ok. FS110-I D:\\ENVIRONMENTS\\V513FILESHARE\\DATA\\FILE02  - ok. FS109-W The file D:\\ENVIRONMENTS\\V513FILESHARE\\DATA\\FILE31 does not exist FS110-I D:\\ENVIRONMENTS\\V513FILESHARE\\DATA\\FILE51  - ok. FS246-I Backing up database files to directory         'd:\\environments\\v513fileshare\\backup'. Please wait. FS250-I Deleting all unwanted log files. FS104-I The log file cannot be found, creating a new recovery log file. FS186-I The Fileshare Server is using the log file         &#

Problem: The following error mesage occurs when the user clicks on the "Click here to install Net Express 4.0" link from the install page of Net Express 4.0: "Impossible de trouver le fichier /d:/autorun/..\\nxsetup.asq. Vérifiez son emplacement et essayez á nouveau." [This above French error message simply means that it was unable to find nxsetup.asq] Resolution: Make sure to load the web page in Internet Explorer (IE)! It was designed to run on IE. The above error message occurred in Mozilla FireFox web browser. Old KB# 5380

Problem: A legacy code is added to a solution, and it is set as "Console Application" for the output type. The solution gets rebuild successfully, but a class is unable to call the "console" application. There is neither a warning or error. Resolution: When a program's output type is set as "Console Application," it will be built as an EXE. In other words, it cannot be called. The output type should then be set as "Class Library", so it can be built as a DLL. Old KB# 5284

Problem: Unable to create a Net Express project on a Novel Netware drives (NWFS) but create successfully on Windows drives Resolution: Make sure the user has the network rights to use the Netware drive. The other possible cause of the problem is that the EXTFH environment variable is set, and it contains FILEMAXSIZE=8, which enables the 64-bit file addressing and allows to create files greater than 4GB. Net Express does not support 64-bit file addressing on Netware (NWFS) drives. If FILEMAXSIZE=8 is not set, Net Express will then use 32-bit file addressing and can create file up to 4GB on Netware drives. If you need to use FILEMAXSIZE=8 for other applications, you will have to set the EXTFH environment variable from each application level, not from system level. If it is set from the system level, Net Express will be affected as well. Old KB# 5285

Problem: Customer is doing Proof of Concept getting T0055*2*Connection does not support HOLD cursors error Resolution: Go to the XDB ODBC Driver Data Source Configuration and check With Hold Package under Optional parameters and see if this resolves the problem. Old KB# 5312#netexpress#COBOL#ServerExpress#AcuCobol#RMCOBOL

Problem: * Copyright (C) 1984-2002 Micro Focus International Ltd. URN AXCGG/AA0/00000     72-'   <INPUT TYPE="Submit" NAME="Logon" value="Chang C:\\MF\\Net Express31\\Base\\WORKAREA\\TESTHTML.CBL(72,51): *   3-S Illegal format : Literal     73-'e Password" onClick="return NumericCheck(USERID)"></td></tr></TA C:\\MF\\Net Express31\\Base\\WORKAREA\\TESTHTML.CBL(73,9): *1003-E First character of a continued literal not a quote. Quote assumed. * Total Messages:     2 * Unrecoverable :     0                    Severe  :     1 * Errors        :     1      &nbsp

Problem: Release 4.0: Working with sources to migrate SIEMENS copybooks and getting messages for TIMEOUT as follows: > Micro Focus Net Express V4 Version 4.0.38 Copyright (C) 1984-2005 Micro Focus International Ltd. URN AXCGG/AA0/00000   1514 01      TIMEOUT                                                  00031100 * 666-S***************                                                 (   0)** **    Res

Problem: If a migration is being done from a character user interface application from Workbench 4.0 to Net Express 4.0, the ADIS control keys must be enables to behave in Net Epress the same as they did in the Workbench application. Resolution: When using ADIS in the Workbench application, an ADISCTRL file which contains the saved settings is picked up by the application at run time. This file needs to be copied into the application folder in the Net Express environment to allow the same key settings to be re-implemented into the migrated application. Old KB# 5259

Problem: Method to determine if an object-reference is set to an object Resolution: The only way to do this is to initialise to null.  When it is non-null it is set to something else. Old KB# 5298

Problem: Net Express 4.0 on Windows XP. Problems compiling source code which contains Japanese DBCS user-defined words. Resolution: To compile your programs successfully ensure that both your User and System Locale are set to Japanese on Windows XP. Old KB# 5265

Problem: Working storage not being initialised between CALLs in a CICS environment. Resolution: The directives required to achieve this functionality are: CALL-RECOVERY DATA-CONTEXT Old KB# 5266

Problem: Micro Focus has both Net Express and Mainframe Express. Is the Net Express Interface Mapping Tool just Mainframe Express's Component Generator renamed?   Resolution: The answer is no. Net Express has an Interface Mapping Tool which allows one to select fields for mapping to a new display format. In COBOL, one can describe a data item's data type precisely, using its picture-string. COM, Java and XML (used for sending data between a client and a Web service) each define their own sets of data types. The Interface Mapper maps the COBOL types in your program onto the types available in COM, Java or XML. CG (Component Generator) is an interface allowing creation of Java and web components to allow testing of a legacy application that has been web enabled. CG allows one to (1) analyze an application, (2) capture its output screens (BMS or MFS), (3) create an eBiz transaction for displaying the output or for allowing access to a VSAM dataset or

Problem: The system indicated 26 gig were available. Also, the install states 26 gigs were available The directory kept going to an Application Server directory with no browse button Resolution: Problem determination:  Application Server was installed on the same machine where Net Express also resides.  This is not permitted. Go to "Add/remove programs" and uninstall Application Server for Net Express 4.0 Restart the installation, and it should finish without errors. Old KB# 5293#ServerExpress#AcuCobol#COBOL#netexpress#RMCOBOL

Problem: ProgramA is compiled with the directive $set CallFH "MyProgram".  When any file access occurs (e.g. Open i-o File) this correctly calls the "New file Handler" MyProgram.  However, the means to access the FCB of the relevant file is not at all clear.  For example, including the Directive FCDREG in the calling and called programs has no effect. Resolution: The following is a workable example of accessing the FCD below. The program turns on key compression in a file by setting the appropriate bits in the file's Key Definition Block. $set fcdreg select masterfile assign to ... organization is indexed record key is rec-key alternate key is m-alt-key-1 with duplicates alternate key is m-alt-key-2 alternate key is m-alt-key-3 with duplicates. select indexfile assign to ... organization is indexed record key is rec-key alternate key is t-alt-key-1

Problem: Customer was attempting to do a PInvoke function call from a C# ASP.NET code-behind program to an unmanaged COBOL .DLL created with Net Express 3.1 preSP1. Customer compiled the application using REENTRANT"2" but the application also uses embedded SQL Server ODBC statements and the SQL(Thread=Isolate) was not supported in 3.1 pre SP1. Customer could successfully run the ASP.NET application and call the unmanaged COBOL .DLL if only one user was running the application. When they added multiple users making simultaneous requests for the Web application the Platform Invoke call started to fail and one client's working-storage would end up in another client's program. Pgm1: 3rd party C# .NET? multithreaded exe calls/passes data Pgm2: COBOL dll calls/passes data Pgm3: COBOL dll Resolution: The following information is in regards to your attempts to create a C# based ASP.NET application which uses Platform Invoke to call an unmanaged

Problem: A called program or a subprogram fails with RTS 114 error on EXIT PROGRAM RETURNING a value. The error occurs in INT, not in GNT. Resolution: Make sure the value is valid for return-code. It is not meant to return a string or any other value. Old KB# 5256

Problem: compiler directive set:        $set p(prexml) o(basic.pp) ENDp        $set ilpinvoke(cblxmls.dll) sum-up compiler directive ILPINVOKE ( extracted from MF .NET doc): Makes the specified unmanaged code available, so that the entry points in the unmanaged code are available to the program being compiled. See the Visual Studio Help topic Calling Unmanaged Code from COBOL Using Platform Invoke Services for more information. Syntax: >>-.----.--ILPINVOKE--"unmanaged-dll"------><     -NO- Parameters: unmanaged-dll The name of the .dll containing the unmanaged code that is required Properties: Default: NOILPINVOKE IDE equivalent: Add a reference to the unmanaged .dll to the References folder of the solution Resolution: Instead of        $set ilpinvoke(cblxmls.dll) use    &

Problem: How to write all the console output (including errors) from a batch program to a text file? Resolution: 1) You will need to compile your programs with the CHARACTER option rather    than GRAPHICAL.  This ensures that any errors are display as plain text    rather than in a Windows message box. 2) You will need to set the following runtime switches:    set cobsw=-I2 S5 3) You then run your program with redirection:    paddy01.exe > x.txt For example, the following program:        procedure division.            display "Before CALL...".            call "fred".            display "After CALL...".       

Problem: If lines are entered into a Multi Line TextBox similar to the following: Line1 Line2 Line3 Line4 then how is access to each of the individual lines in the control accomplished? Resolution: On a TextBox there is a "Text" property that provides access to all the text wtih x"0d0a" delimiters (Carride Return/ LineFeeds) between the lines. The user could retrieve the test to a pic x(..) and then UNSTRING the data as required. Alternatively there is a "Lines" property that is an array of the lines. The following code example might prove useful :           *****> Access each line in the MultiLine TextBox           *****> and add it to a ListBox                         perform varying ls-str

Problem: Receiving message "ASLM Semaphore failure" when trying to run an application deployed using Net Express 4.0 Application Server when logged in with standard user priviliages. Resolution: This is actually a known issue when installing from the base release (or first release) of the Net Express Application Server. This version had a problem with setting the registry privileges correctly. This has been fixed.  Simply update the current version of Application Server using the latest build on the Micro Focus SupportLine web site: http://supportline.microfocus.com/websync/aps40.asp - (as of 6th September 2005) the file to be  downloaded and applied is APS06A40.EXE. This will install the latest build of the Application Server and allow users to run applications when logged in with standard user privilages. Old KB# 5309

Problem: Method to trap COM Errors without the black console box popping up Resolution: Code/logic a registered COM Exception Handler: The exception handler does not automatically terminate but allows users to determine the best action. In many cases this would be to terminate (ie STOP RUN). However, users can decide on the correct course of action for themselves. An Example of this is:-       $set ooctrl( P)        program-id. ADSIDemo.       ******************************************************************       *       *    Author  - David Sands (Micro Focus Technical Support)       *       *    Date    - December 2003       *  &n

Problem: Can MFSORT be used outside of Net Express? Resolution: MFSORT is part of Micro Focus' development and application server products.  It works on Windows, Linux and UNIX. Old KB# 5305

Problem: How to pass a linker option like /DELAYLOAD through CBLLINK? Resolution: Unfortunately, CBLLINK cannot pass options to Microsoft's LINK.EXE. The alternative is to specify options for the Microsoft linker LINK.EXE as an environment variable, e.g. set LINK=/DELAYLOAD:MyDLL.dll Microsoft's Linker options can be found here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vccore/html/_core_linker_reference.asp and how to set those options here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vccore/html/_core_set_linker_options.asp Old KB# 5270

Problem: We are writing an output file that is a Record Sequential data file. We need to convert it to a Line Sequential file. Can this be doen from a Cobol program? Resolution: Yes. Reference the following example:           Identification Division.        Program-Id.  LORINCE.       * Converts Record Sequential to Line Sequential       * via  PRINTER  keyword in ASSIGN clause        Environment Division.        Input-Output Section.        File-Control.            Select Out1  Assign to Printer 'RS2LS.Dat'.       *    Select Out1  Assign to &#

Problem: Does Micro Focus COBOL have an option to omit columns 1-6? (used for sequence#s in punched card days) i.e. begin COBOL text in column 1 (vs column 7) Resolution: The Sourceformat compiler directive determines the source program record layout. There are two alternatives: Sorceformat"Fixed" (the default); Sourceformat"Free" The "Fixed" format is the traditional "punched card" layout. columns 1-6, sequence number' column 7, indicator area, comments (*), continuation (-), Debugging (D), compiler directives                            and conditional compilation ($) columns 8-11, Area A, Division, Section and paragraph names columns 12-72 Area B, procedural statements columns 73-80, identification field (ignored by the compiler) The "Free&quot