Rocket® COBOL

Problem: Can an empty idx file be used for rebuilding a C-ISAM file with a new key structure instead of specifying every key on the rebuild command line with the -k option? Creating a new idx file, copying it to the data file, and rebuilding the C-ISAM data file by one of the following commands o          rebuild infile o          rebuild infile, outfile result in a message like "records read = 0" Resolution: The Micro Focus C-ISAM file handler will by default use the logical end of file marker obtained from the index file header to determine the maximum number of records to process in the data file. If the index file is corrupted or a mismatching index file is overlaid for a given data file, using Rebuild with default behaviour will not recover all the records in the data file but only those specified by the logical end of file marker. Rebuild now contains functio

Problem: Dialog System - How are multiple lines of data items highlighted in a List Box control? Resolution: Set the Selection Type to control how the list items are selected at run time. Select Single so that only a single list item can be selected in the list box. Select Multiple so that more than one item can be selected in the list box. The user must click the mouse over each item in turn. Select Extended so that more than one item can be selected in the list box. The user must click the mouse and drag it over the items to be selected. The GET-LIST-ITEM-STATE function can then be used to determine which items have been selected. Old KB# 1577

Problem: My application must create a large file. I define the File Handler configuration file with the FILEMAXSIZE option that is validated to 8 . All times the file status 9/194 is displayed Resolution: The line of the File Handler configuration file  [XFH-DEFAULT]  must be write without space between  'T' and ']' . If this line is written    [XFH-DEFAULT<space>]   the following options are not validated . Old KB# 2031#netexpress#ServerExpress#AcuCobol#RMCOBOL#COBOL

Problem: Net Express 5.0 has a .NET support for Microsoft Visual Studio 2005, but is it also supported in Microsoft Visual Studio 2008? Resolution: Net Express 5.0 is only supported with Microsoft Visual Studio 2005. It is however planned that Net Express 5.1 will be supported with Microsoft Visual Studio 2008. Old KB# 1555

Problem: This message is displayed under AIX 5.2 at the compilation that is made with a makefile Resolution: This message is displayed because the value of the environment variable LIBPATH is not passed to the make command by operating system . The temporary solution is to insert before the cob command the line : <TAB>LIBPATH=$COBDIR/lib;export LIBPATH;\\ example : all :           cob -x  prog.cbl is replaced by : all : LIBPATH=$COBDIR/lib;export LIBPATH;\\ cob -x  prog.cbl Old KB# 2020

Problem: Application is getting a "77 Internal ISAM module error" when trying to read a mainframe file from a Net Express program. Resolution: The problem is that the ISAM file was brought down directly from the mainframe without conversion and tried to read it with a mainframe program which was recompiled under Net Express. It is necessary to first convert the file to a sequential file in ASCII format on the mainframe and then use the Data File converter to create a Micro focus readable file format. Old KB# 1539#RMCOBOL#netexpress#ServerExpress#AcuCobol#COBOL

Problem: If a call is being made to a DLL created by the project, occasionally an error may occur when trying to do the call. This can be caused by improper build settings when adding the DLL and associated .cbl files to the project, or possibly due to using a project created with an older version of Net Express. For other issues with 173 errors, please be sure your PATH environment variable is set to point to the location of the .DLL or .EXE in question. You may refer to (http://supportline.microfocus.com/mf_kb_display.asp?kbnumber=25598) Resolution: The problem can be solved by removing the .DLL from the project tree, and re-adding the files using appropriate settings for the project. 1) Right-click on the problem .DLL in the Project Window. 2) Select "Remove from build type" 3) Be sure the first box "This file has build dependencies" is checked, and click Delete. 4) Now drag the source file from right half of the project window, to

Problem: Here is an example of the error message from Oracle PROCOB when a JOIN is used: ----- Error at line 566, column 38 in file lb010dallas.cbl                 FROM RECEIVABLE LEFT JOIN LEGALDTL .....................................1 PCB-S-00400, Encountered the symbol "JOIN" when expecting one of the following:    , START END-EXEC CONNECT GROUP HAVING INTERSECT MINUS ORDER    WHERE WITH FOR UNION ----- Running the same syntax from Oracle SQL Developer works. Resolution: The precompilers in Oracle are outdated with INNER and OUTER JOIN's. They only precompile the old syntax, so the code will have to be modified. Here's an example of how to change the syntax: The syntax for JOIN's in Oracle is a little different when compiling with current versions of Oracle preprocessor. So change the JOIN's as follows: T

Problem: When installing an agent on a machine using the Discovery Wizard in Microsoft's System Center Operations Manager (SCOM) problems may occur due to network settings. One such error is: The MOM Server failed to open service control manager on computer machinename.domainname. Therefore, the MOM Server cannot complete configuration of agent on the computer. Operation: Agent Install Install account: SCOM_server Error Code: 800706BA Error Description: The RPC server is unavailable. Resolution: The first step is to ensure that the system running the Discovery Wizard can ping the target system using the fully qualified machine name, i.e. machinename.domainname.  If it cannot then the network settings on the client should be checked. On the target system for the agent go to the Advanced TCP/IP Settings, DNS tab of the appropriate connection and ensure that the domain name is entered correctly in the to the "DNS suffi

Problem: TC040E Missing idy file no source available message is produced when running tcreport on the tcresult.tcz file from a test run. The IDY and CBL are resident in the same directory. Resolution: This issue was caused by product versioning. The report from a Net Express V5 compiled application was being formatted with the tcreport tool from Net Express V4. Using the the tcreport tool from V5 resolved the problem. Old KB# 1440

Problem: How to accept and convert characters to uppercase from an ADIS screen? Resolution: To convert characters accepted to uppercase Use the following call:    call x"af" using adis-function     adis-parameter where:    01  adis-function        pic x comp-x value 1.    01  adis-parameter       03  bitpair-setting  pic x comp-x value 1.       03  bitpair-section  pic x value "2".       03  bitpair-index    pic x comp-x value 85.       03  bitpair-count    pic x comp-x value 1. Note: The above is documented in "Chapter 2: Enhanced ACCEPT/DISPLAY Syntax". Old KB

Problem: Workbench has the feature to number the each line in a source code. Does Net Express have this feature? Resolution: There is a feature in the Net Express editor that numbers each line of a source code by placing the line number from column 73. This is done by right-clicking anywhere in the source code and click on "Renumber". To remove the line numbers, you can simply right-click anywhere in the source code and click on "Unnumber" this time. Old KB# 1527

Problem: SQL 0440N No authorized routine name "STRIP" of type "FUNCTION" having compatible arguments was found. SQLSTATE=42884 Resolution: The DB2 strip function is available in DB2 9.1 but not in db2 8.X Old KB# 1452

Problem: Will an application built for the the .Net Framework V2 using Visual Studio 2005 run successfully on .Net 3.0. Resolution: This will work unchanged. Microsoft have not changed the Common Langauge Runtime (CLR) from .Net 2.0. It is still v2.0.50727. The .Net 3.0 functionality has been as libraries that exist on top of the CLR V2. As such your application will run correctly on machine with .Net V3 installed. Old KB# 1411

Problem: In a COBOL Application can you add an icon to the Windows system tray. Resolution: Attached is an  example that shows how you can add an icon to the Windows System Tray  and trap mouse events on it. The demo works by creating a Hidden window to receive the mouse button events on the icon. The hidden window is a custom class that intercepts the Windows messages by overriding the "windowProc" method. Attachments: SysTraySBar.zip Old KB# 1442

Problem: How can you insert text into the current cursor position of the RichText Edit control. Resolution: You can use the "replaceSelection" method to achieve this. The selection will be the current cursor position. Attached is an exmaple project that shows how you can use the replaceSelection method to insert text at a specific position in a richtext edit control. Attachments: rtf.zip Old KB# 1435

Problem: The "Find in Files" option within the IDE does not always work when running Net Express 5.0 on Windows Vista. Resolution: This is a known issue related to changes that Microsoft introduced in Windows Vista.  Micro Focus is working on addressing the issue and it is hoped that this will be done in Net Express 5.1. In the mean time, we suggest you set the "Windows XP SP2" compatibility property against the MFNETX.EXE program in the Net Express\\Base\\BIN folder. Old KB# 1525

Problem: When a DLL is loaded with SET PROCEDURE-POINTER, the DLL is in use. Therefore, it is not possible to delete or replace the DLL. It only gets released once the program stops running. Resolution: Use the CANCEL statement to cancel each entry point or function that have been called in the DLL before cancelling the DLL itself. Cancelling the DLL only will not release the DLL. See the example below: SET mypointer TO ENTRY "mydll" *> mydll is in use CALL callconvention "myfunction1" using parm1, parm2, ... CALL callconvention "myfunction2" using parm3, parm4, ... ... CANCEL "myfunction1" CANCEL "myfunction2" CANCEL "mydll" *> from this point, it is possible to delete or replace mydll ... Old KB# 1523

Problem: Any non-local location is considered as not trusted location by Microsoft Visual .NET Framework. Resolution: Microsoft explains how to make a location as a trusted location at the following link: http://msdn2.microsoft.com/en-us/library/bs2bkwxc(VS.80).aspx Old KB# 1448

Problem: The following code causes the second print line to overlay the first:        select pfile assign printer            organization line sequential.        fd  pfile.        01  pf-record                   pic x(60).        working-storage section.        01  report-line1                pic x(60) value            "Report Line 1".        01  report-line2          &nb

Problem: Will ADIS support be pulled from NX 5.0? Resolution: No, the character-based ADIS user interface will not be pulled from NX 5.0. It is fully retained and supported in both NetExpress 5.0 and 5.1 (even though .NET & web services are not designed for, or compatible with purely character-based applications). Old KB# 1460

Problem: Why didn't the ".mod" modules go to the Debug folder with the ".gnt" modules? Why did the ".mod" modules get mixed in with every other application member under the Project folder? Is there a way to configure the Build process so that all the ".mod" modules, and any other needed CICS modules, are kept together in a single folder that can be deployed to another server? Resolution: go under project -- build settings and when this opens highlight a bms name, more tabs will appear and you want to go to the bms general tab in the white entry box available labeled " Additional directives" put this: /BINARY=C:\\directoryname\\DEBUG\\ place the drive:\\directoryname\\subdirectory\\ **  make sure you place an ending backslash If you want the the copybooks the bms creates, to go to a special directory here is the copybook directive example. /binary=C:\\MODDIR\\ /Cobol=C

Problem: How do you get the record length when access a variable length Indexed file ? When accessing an Indexed file how can you find our the actual record length of the record that has just been read. The file may contain multiple record types of variable length. Resolution: To get the current record length you need to add a DEPENDING ON clause to an FD defintion:-        FD  TESTFILE            RECORD IS VARYING IN SIZE FROM 40 TO 32000            DEPENDING ON WS-REC-LEN. If access a file using EXTFH calls directly then the record length is returned in fcd-current-rec-len on exit from a READ op call. Old KB# 1514#RMCOBOL#COBOL#netexpress#ServerExpress#AcuCobol

Problem: The following error occurs when starting Form Designer or opening a HTML form in Net Express: "Form Designer requires Microsoft Internet Explorer 4.01 or greater..." This error may occur even if IE 4.01 or greater is installed. Resolution: This error occurs when Microsoft Internet Explorer (IE) is not the default web browser. Form Designer in Net Express requires IE to be the default web browser, as it is using IE's controls. IE can be made the default by going to the IE's options (Tools | Internet Options), clicking on the Programs tab, and click on the "Make default" button. Old KB# 1515

Problem: RTS166 Erorr when using an Iterator on a Dictionary Object When using the DO method on a Dictionary collection it results in a RTS 166 Recursive Call Error. Resolution: This is due to the callback method being used with an alternate ENTRY point in the program. When the iterator calls the entry point it detects a recursive call and terminates with an RTS 166 error. To use Iterators with an entry point you must have a "local-storage section" in the program. It does not need any data. It just enables the program to be called recursively. Old KB# 1434