Rocket® COBOL

I am using Visual Studio 2010 Professional and Visual Cobol version 2.0.    For some reason when I compile a native Cobol program that has errors in it, I do not receive the actual error messages in the 'build' output box.     It simply tells me: ERROR: (1) Cannot open file : obj\\x86\\Debug\\SEARCHFH.objERROR: (6) No public symbols found. No object file generatedDone building project "reports.cblproj" -- FAILED. If I compile the same program from the command line using the same Cobol directives it will actually tell me:   ..\\int\\searchfh.CBL,..\\int\\searchfh.CBL(188,15,8) : error 301 : Unrecognized verb..\\int\\searchfh.CBL,..\\int\\searchfh.CBL(127,60,53) : error 348 : Procedure name 100-EXIT undeclared, line 879 (first usage)ERROR: (1) Cannot open file : c:\\compile\\dll\\searchfh.objERROR: (6) No public symbols found. No object file generated Does anyone know what is suppressing the error messages in Visual Studio?   Kinda hard to debug in the

Does anyone know a simple way to get the ip address of the server in myprog.acu when it's run via acuthin.exe. I know it's on the command line (acuthin.exe SERVER-IP myprog) so there must be some environment variable or some internal function call I can use to get it.  I want to use it make another C$RUN acuthin.exe call to another thin client alias.

Can an If statement in Dialog system recognize a blank field?  I have tried to code for it, but it doesn't seem to recognize the value. For example, I've tried these variations, and DO-SOMETHING is not done, it just goes to the next line.  IF= EFTOPTOUT ' ' DO-SOMETHING IF= EFTOPTOUT " " DO-SOMETHING IF= EFTOPTOUT '  ' DO-SOMETHING IF= EFTOPTOUT "  " DO-SOMETHING IF= EFTOPTOUT '              ' DO-SOMETHING  (actual length of EFTOPTOUT) IF= EFTOPTOUT "             " DO-SOMETHING (actual length of EFTOPTOUT)

How can I see the animating of call programs in Visual Cobol like  I can see in Mainframe Express ???

Problem: Customer is using Visual COBOL for Visual Studio 2010 2.1 and is using the Find option to search for the string "CUST". He has the following data items defined in his program: 01 CUST                     PIC X(30).01 CUST-CONTACT  PIC X(30).01 CUST-COMPANY PIC X(30). He is using the match whole word option and was expecting it to return only the references to CUST and not to the other data items with CUST as part of the name.Is there a way of returning only references to the actual CUST data item? Resolution: This is a problem because the word search in Visual Studio knows nothing about COBOL identifiers and that the hyphen is treated as a word separator and not as part of the identifier for the search. You can get the desired result by checking the Use box at the bottom of the dialog and selecting Regular Expressions and then using the search: CUST~(-)

Problem: Customer has an application developed in Visual COBOL 2.1 for Visual Studio 2010. This application has a native program which calls a .NET managed .dll using COM Interop. The project for the .NET managed .dll has the option Register for COM Interop checked so that the .dll will automatically be registered for use as a COM server when the project is built. When the customer deploys this application to a computer on which COBOL Server 2.1 is installed the call from native program to managed fails. Why? Resolution: As this program is created as a COM Server it needs to be registered on the production computer. When you use Visual Studio in development the IDE will automatically register the .dll with COM when you check the COM Interop property but this is only on the development computer. In production you need to run the regasm.exe utility which is part of the .NET Framework. You need to run the correct version for the .NET Framework your application is targeting. regasm also as

Problem: Customer has a Visual COBOL 2.1 solution that contains many different projects. The programs within these projects make calls to subprograms that reside in different projects so references are added to the calling programs projects that point to the .dlls output from other projects by doing a direct link to the .dll file itself. When Visual COBOL is started the solution will be successfully on the first attempt. Subsequent attempts will fail with a Visual Studio error that the .dll to be built cannot be copied because it is locked by another process. What is causing this error? Resolution: This error occurs because direct references to the .dlls of other projects are being used.When you add references directly to the .dll instead of to the project itself the build process does not know in what order it should build these files so the .dlls end up getting locked in some cases. This problem can be resolved by using project references instead of adding references using the B

Problem: Customer has a Windows Presentation Foundation (WPF) application written in Visual COBOL that displays a main form and then depending on options selected will display various other forms. When a new form is displayed they would like to make the main form invisible so that the user cannot click on it and it is not covering up the other icons on the desktop. When the sub forms exit they would like control to return to the main form and make it visible once again. How can this be accomplished? Resolution: This can be accomplished by using the Visibility property of the main form. Please download the example .zip file and unzip it to your C:\\ drive. Here is the source code for the main form program and the sub form program:        class-id invisibleformWPF.Window1 is partial                  inherits type System.Windows.Window.       working-stora

Problem: Customer has a .NET managed code application running under Visual COBOL 2.1 for Visual Studio 2010. At some points When debugging the application and an EXIT PROGRAM statement is encountered it appears to be ignored and the program just continues to run without exiting. Why is this occurring? Resolution: It has been determined that this is a bug in the compiler. In some cases when an EXIT PROGRAM statement is in a paragraph by itself the compiler would generate incorrect code which caused the statement to be ignored. This has been fixed in Visual COBOL 2.1 Update 1 hotfix 3. As a workaround you could also add a CONTINUE statement to the paragraph prior to the EXIT PROGRAM and then the problem does not occur.  

Problem: Customer has an ASP.NET Web Application developed in Visual COBOL 2.1 for Visual Studio 2010. This is running on a Windows 7 64-bit computer. It runs fine when the debugging tab is set to ues the Visual Studio Development Web Server. Customer changed the debugging tab to Use Local IIS Web Server instead and now it reports the following error: Could not load file or assembly 'progname' or one of its dependencies. An attempt was made to load a program with an incorrect format. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.BadImageFormatException: Could not load file or assembly 'progname' or one of its dependencies. What is causing this? Resolution: The problem can occur because you have built your web application as x86 (32-bit) and you are running this on a 64-bit operating system. The

Problem: Customer has a Dialog System application that he is converting from Net Express 5.1 to Visual COBOL 2.1. In order to provide support for Dialog System in development the Compatibility Addpack was downloaded from the supportline Product Updates site and installed on the development computer. What needs to be done to get this same Dialog System support in production when using the COBOL Server 2.1 product? Resolution: The same Compatibility Addpack module that you installed on your development computer also needs to be installed against the COBOL Server 2.1 product on your production computer. It will install into either environment.

Problem: Does Visual COBOL support CICS and JCL?   Resolution: The Visual COBOL product line is used for developing distributed applications for Windows/Unix that do NOT use CICS or JCL. The product that does support CICS and is used for migrating from mainframe platforms is the Enterprise Developer product which is available for both Visual Studio and Eclipse IDEs. Enterprise Developer is actually a superset of the Visual COBOL product as it includes Visual COBOL as a base as well as additional project templates and tools to support mainframe compatibility. If you are looking to move a CICS application you should be looking at the Enterprise Developer product.

Problem: Customer is using Visual COBOL 2.1 and has installed the Visual Studio 2010 Shell IDE that is provided with Visual COBOL. When his program calls "CBL_DEBUGBREAK" it should launch the Visual Studio IDE for debugging but it is failing to launch. What is the problem? Resolution: This is a known issue that occurs when using the Visual Studio 2010 Shell on a 64-bit Windows system.Microsoft did not package the required JIT Debugging executables in the Shell version of Visual Studio 2010 when installed on a 64-bit system. This problem does not occur on a 32-bit Windows system or if a Visual Studio 2010 Professional or higher product is being used. It also does not occur with the Visual Studio 2012 Shell. So customer has options of installing Visual COBOL for Visual Studio 2012 or to upgrade their Visual Studio 2010 product to Professional or higher.    

Problem: Avira Antivirus Premium 2013 software reports two instances of a virus in Visual COBOL 2.1 Update 1 download. message reported is:       "detected a tr/crypt.xpkct.tn virus and dll is prexml.dll, mfhcolib.dll and htmlpp.pol" Resolution: This virus detection software is picking up these files as a false positive. We have scanned the files using Symantec Endpoint Protection and nothing is detected.   The files have also been uploaded to www.virustotal.com which scans against multiple virus scanning engines. Two scanning engines picked up a possible issue: Looking at the description issue for the threat it looks like this is a generic threat that just looks for certain characteristics:   http://www.avira.com/en/support-threats-summary/tid/3488/tlang/en There is no actual virus in these files and the detection should be ignored.  

Problem: When Visual Studio starts the splash screen displays a Licensed to user name and Company which is incorrect.This information is also displayed in the Visual Studio Help-->About Visual Studio dialog. Is there a way that this information can be changed: Resolution: You can follow the workaround below to change the User and Registered Organization information.Make sure that Visual Studio is closed.Start a Windows command prompt and enter the command:         regedit to start the Windows Regsitry Editor On a x86 bit (32 bit OS) Windows 32 Bit navigate to and change the information at the following key locations:HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\VisualStudio\\10.0\\Registration\\UserName HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\RegisteredOrganization On a x64 bit (64 bit OS) Windows 64 navigate to and change the information at the following locations: HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\Microsoft\\Visua

Problem: When using Net Express 5.1 to do a remote debugging session to a server computer running a COBOL application under IBM TX Series, the debugger does not attach to the animserv process. Setup as follows: On remote computer: 1. COBOL program has been compiled with $SET INITCALL"CBL_DEBUGBREAK" 2. start animserv port(51000) On local computer: 1. Net Express Animate settings set to debug remotely, name of server and port number 51000 specified. 2. Net Express Animate settings set to wait for animatable attachment. 3. Start Net Express Animate at and leave field blank so it attaches to animserv on remote computer. On remote computer: 1. Run the COBOL application under TX Series. When the program compiled with INITCALL"CBL_DEBUGBREAK" directive is encountered the message about "do you wish to debug?" appears on the server and the animserv process is being ignored. Why? Resolution: This is because TX Series is being run as a Windows service which is being

Problem: Is it possible to have multiple remote debugging sessions running simultaneously using Net Express 5.1 on the local computer and Server 5.1 running on the remote computer when applications to be debugged are running under control of IBM TX Series? Resolution: If you wish to have multiple remote debugging sessions running simultaneously then you need to call CBL_DEBUG_START in your application to be debugged and pass it a unique id. Although this call is not documented in Net Express, it is however supported. It is documented under Server Express and Visual COBOL. There is a problem with using this approach for debugging programs that run under the TX Series Windows service in that it will hang when the call to CBL_DEBUG_START is made. This has been fixed in Net Express 5.1 wrappack 8, hotfix 3. Use the following as an example of how to use CBL_DEBUG_START: On remote computer: 1. start animserv port(51000) On local computer: 1. Net Express Animate settings set to debug remotely

Hi, How can i sort programs&copybooks in COBOL Explorer & Navigation list&? I am missing sorting by Date & Source Control date. When using Java there is solution: in Java-preferences->members sort order, but cant find simmilar in Microfocus Enterprise Developer. Regards, Alex #COBOLEnterpriseDeveloperSortNavigationExplorer

Hi, I need to be able to "trap" a mouse click event on a DataGrid and I have found the following VB code:- Private Sub DGV_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvMyDatagrid.MouseClick If sender.HitTest(e.X, e.Y).Type = DataGridViewHitTestType.RowHeader Then    sender.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2    sender.EndEdit() Else    sender.EditMode = DataGridViewEditMode.EditOnEnter End If End Sub Or if you prefer the following C# Code:- private void dataGridView1_MouseClick( object sender, MouseEventArgs e ) { DataGridView.HitTestInfo hitInfo = this.dataGridView1.HitTest(e.X, e.Y); if( hitInfo.Type == DataGridViewHitTestType.RowHeader ) {    this.dataGridView1.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2;    this.dataGridView1.EndEdit(); } else {  this.dataGridView1.EditMode = DataGridViewEditMode.EditOnEnter; }} Which I have converted

i have i timestamp (1363161273) and i want to translate it to date. Does anyone know how?

Using both 8.0.0 and 9.1.2.1 of Extend, on Windows 7, 8 and XP - on 3 different computers, calls to C$XML suddenly stopped working this week; a call to C$XML causes the runtime to "hang".  What DLL is necessary for C$XML, or what else might cause this behaviour? Thanks Tony

I want to color my tabpages using gradient colors. I got this example in Visual Basic:Public Class Form1    Dim a As Integer    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load        SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.DoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True)    End Sub    Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint        Dim formGraphics As Graphics = e.Graphics        Dim GD As Drawing2D.LinearGradientBrush        If a = 1 Then            GD = New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(Width, Height), Color.White, Color.FromArgb(0, 0, 222))        ElseIf a = 2 Then            GD = New Drawing2D.LinearGradientBrush(New Poi

We are using on Acu 8.1.3, on Win 7, does anyone know if we are likely to have problems if we go to Win 8?

I use Visual COBOL for Visual Studio 2010, my problem is when I have two cobol programs the first calls the second but when the first program calls the second appears on the screen: Load error : file 'IncCl' error code : 173, pc-0, call=1, seg=0 173  Called program file not found in drive/directory  Please, I need one solution very fast, can anyone help me?  (One image to show the error are attached)

I encountered this problem enabling WIN32_NATIVECTLS on combo-box Combobox that expands upward I select an item and ... combobox disappear. When i push "tab" the combobox appears again. The problem occurs on Windows Server 2008,  Windows Server 2003, with runtime 9.0.1 e 9.1.2 (I didn't checked older runtime . . .) I solved with workaround: after nft-selchange I mage the combo invisible and after visible.            evaluate event-type                when ntf-selchange                    inquire cbox-pag, value in w-combo-pag                    move w-combo-pag(1:3) to w-codice-pag              &nbsp