Rocket® COBOL

A great number of our programs we're currently converting from our old DIALOG system contain simple calls to a dialog panel in order to show progress of the application by way of employees processed, name of employee being processed etc etc. The programs that contain these 'snippit calls' to dialog are large and are doing the bulk of the processing. To this end we want to keep these as 'legacy programs' and make calls to them from the .net screen programs wherever possible. As such these 'legacy' programs are compiled into the solutions as class library programs but with all the code being 'old' as in using perform statements as opposed to invoke etc. Is there a way of including call outs to a message box from within these 'legacy programs' using data passed to them in order to continue to show the data as it is processed as, at the moment, when I attempt to put code such as "invoke type System.Windows.Form.MessageBox(xxxx" within t

I have a VisCobol solution (SOL1) containing a main program (MP1) ( form) and another 'sub' program ( form) (SP1) which is contained within the SOL1 structure. MP1 opens various files etc and has the majority of the working-storage contained therein. On a 'call out' to SP1 I want SP1 to be able to 'see' file data and working storage variables already populated by MP1. Is there a way of doing this or must I continually pass linkage around between MP1 and SP1? SP1 would be a form which contains a list box showing employee data but the file is already open as part of MP1 code.

Same identical data file shows two different record lengths when accessed in Net Ex 3.1 vs. Visual COBOL.  See attached screen captures.  Have tried cleaning solution/project, reboot etc.  Currently seeing warning messages about Comp-5 redefinition.  I have another project in the solution with Comp-5 redef in the FD and I don't have an issue there.  Any idea why this would occur?   Select statement is as follows: SELECT CASE-DBF ASSIGN TO DYNAMIC LOCCASEDBF ORGANIZATION IS INDEXED ACCESS IS DYNAMIC LOCK MODE IS AUTOMATIC WITH LOCK ON RECORDS RECORD KEY IS AIRRS-CDB-KEY FILE STATUS IS FILE-STATUS.   Begin Net X Images Begin Visual COBOL Images #VisualStudio#netexpress#Comp-5#VisualCOBOL#Redefinition

Has anyone figured out the process to sort a listview (3 column) in Visual COBOL?#VisualCOBOL#ListView#VisualStudio

These links does not exist now. (community.microfocus.com/.../132_Running_JVM_COBOL_within_Apache_Tomcat)(community.microfocus.com/.../135_Tutorial_COBOL_JSP_Book_Application) Where may I get this information back TIA.#tomcatcobjvm

I have the following very simple statement (where the handle is correct) MODIFY hExcelWks Range("I:I")::NumberFormat("0.00") This is totally standard in many of my apps, and works in all of them, but I have received a .xls file from a user, where this simply has no effect. I have run through debug, and everything is happening as it should, except the MODIFY has no effect at all, the format of the column remains unchanged. The cells are not protected, as the change can be made manually in Excel, any ideas on what might have been done when this file was created? there seems to be some form of protection but I cant figure out what. The user has no idea, as it is created automatically by a payroll package, not the users themselves

I was wondering if anyone has had much luck using the WPRTUNITS-INCHES-ABS draw units.  I am currently working on a project that requires some printing on a pre-printed form.  I was originally using the WPRTUNITS-CELLS draw units, however, after printing on multiple printers I notices that my text was moving up or down on the page depending on the printer.  After reading documentation, the INCHES-ABS feature looked to be more consistent.  When I started trying to use the INCHES-ABS I noticed that I was not able to print within about half inch of the left margin.  When I tried this I get the error that I am not within the printable area.  I am trying to figure out if I am doing something incorrect or if this is just how it works.  When I use the CELLS option I am able to get within a 1/4 inch of the edge of the paper.  I have also tried the other "CELLS-ABS" and "CENTIMETERS-ABS" and have had the same result where once I g

[Migrated content. Thread originally posted on 19 April 2011]Hi,I'm converting old programs and developing new programs in acubench. I have the problem if the user has 2 monitors and drag the main menu to the second monitor and from there open another window, that window opens up on the primary window. Is it possible to have the new window to open up on the secondary monitor? With the 'old' programs which are converted to acucobol (not in acubench) it's no problem.

I have the following Method in a .def file used by an activex control:       * Open_document                 METHOD, 1610809472, @Open_document,                     "BSTR*" @strURL, TYPE 16392,                    "boolean*" @openEntireDoc, TYPE 16395                     OPTIONAL 2 The 2 parameters are optional. It works fine when I provide the first like this:            MODIFY HTML-handle @Open_document ("C:\\BOOK\\EZdata\\DataPackage.html"). The problem comes with the second parameter. It fails if I use a 1 or a

[Migrated content. Thread originally posted on 14 May 2012]I would like to know if anyone knows how to add a new tab to a active internet explorer. The current logic that we have in the system that does a system call to open a web page will open a new internet explorer each time. I would like to just add a tab to the current internet explorer instead.Thanks for any help.

Here is the transcript of the Q & A session from the recent Visual COBOL webinar: Deployment and licensing systems. Q: Can you apply hot fixes to merge module (like merge module)? A: When Micro Focus provides a hotfix we’ll include an updated merge module that you can embed in your own MSI. Q: Can we see a deployment using Eclipse? A: If deploying to Windows, then you can create an MSI but I don’t know if Eclipse has an extension to support MSI projects in the way Visual Studio does. We’ll look out for one and let you know but most of the MSI technologies provide command line tools that work can work outside of the IDE.If you’re deploying to Unix, it’s just a case of creating a script for your installer and the Micro Focus installer, here’s an example:    #!/bin/sh   current=`pwd`./setup_visualcobol_devhub_2.1_redhat_x86_64 –silent –IacceptEULA –installlocation=”/home/apps/mf/vc_cobol_21”mkdir –p /home/app/ivs/myapp2.0   cd /home/app/ivs/myap

I have an app which processes bank statements, which arrive every 5 minutes or so into a specified folder. Thus I need to check every 5 minutes whether new statements have arrived.I can think of a few ways of doing this, maybe using C$Sleep running as a thread and one or two others, but since this is the first time I am doing this, I dont want to waste time experimenting if someone out there has already come up with the best solution, I am sure some of the forum members have done this before, so would welcome you advice on the best method.

We have Lawson on Unix box that uses Server Express 5.1 for compiles.  We need to upgrade from wrap pack 3 to wrap pack 5 and I'm curious as to if this install is on top of the current install or if it requires a new install of the entire Server Express.  In the past I upgraded from 5.0 to 5.1 and that was a complete new install, but I have never done a wrap pack before.  Any additional install instructions is appreciated as the readme doesn't give me much other than telling me to create a new directory and running the install and following it from there.  It doesn't say anything about if I already have Server Express installed.  Also with the 5 to 5.1 we had to reenter the license keys - am I going to need to do that as well?

Hello All, I would like to run a program from windows command line and pass some arguments to it. What and where I should code inside a COBOL program in order to work with command line? I'm working with Microfocus Net Express 5.0 Thank you,

What's the difference between DEBUG and RELEASE configurations for managed code? Well, just like native code builds, under the RELEASE configuration, we don't add the ANIM directive. This means, no .idy or .pdb is produced but also, the compiler will perform optimizations specifically around use of numeric items defined at the 01 level. You may or may not see much of a difference in code size. If you want to use code dump debugging for release builds, you'll need to add the ANIM directive to your RELEASE configuration or select Compile for Debugging in the COBOL property page.#.net#HowTo-BestPractice#JVM#VisualCOBOL#optimize

Is there a way to force the grid control to be in data entry mode. What I'm trying to do is have the user enter data in one cell then go to next cell and enter data then the next etc. so basically being able to do data entry directly in the grid.   Thanks Alan

I'm new to the forum, so I hope I'm posting this properly.  All has been working for years, went on vacation, came back and now this. Looks like my server license file is okay on linux server side.  Can stop, start, view etc. no errors. However, the PC side gets the service not running messages.  Have shutdown both sides, still no good. Any suggestions?

We are upgrading from 9.0.1 to 9.1.1.  The automatic update process was going very well, and then, for some reason, the transfer rates hit the floor.  At the moment this is on our LAN and the transfer rate is probably at 56k speeds at best.  Regular file transfers seem to be going at pretty normal speeds. Acurcl is running on AIX 5.3L, and I tested the transfer speeds on a couple of computers with both Windows XP and 7 and at different points on the network with each getting the same results. Any ideas?

I am able to access COBOL copybook variables from C# using the ilsmartlinkage compiler directive as long as there is only one cbl in the referenced project. However, if I add an additional cbl to the referenced project I get a compiler error and have to add an additional compiler directive of ilsmartnest to get it to compile without error. Once I do that I cannot get access to the copybook variables from C#. What am I doing wrong or what do I need to do additionally? Below is my sample code: using System;using System.Collections.Generic;using System.Linq;using System.Text; namespace SandboxClassC{    class Sandbox    {        static void Main(string[] args)        {            CobolModule01 clientRecLinkage = new CobolModule01();            ClientRecord clientRec = new Clien

Using the demo you provided in another post (PrintTextVC.sln), I am able to pass the report location etc. to my printing pgm and successfully print the file.  The issue I have is that the StreamReader doesn't honor the page breaks in the file.  Is it possible to evaluate the lines being read and if I see 'Page:' for example, force it to advance a page? #VisualCOBOL#VisualStudio#StreamReader

I have converted most of our NetExpress Cobol to unmanaged code under .Net. (compiling with MicroFocus Visual Cobol 2.0).  I’m using a VB front end (Infinity launch pad) which  points to the directory where these dlls are. I’ve been testing using one entry point, however we have 10 entry points (.exes), and I’m not sure how to make this work in .Net.#multipleentrypoints#unmanagedcode

Hi, Our AcuCobol system interfaces with Mq Series successfully and we utilise calls such as MQCONN, MQOPEN and MQGET which are well documented and work well. For the first time I am trying to use the MQINQ call but can't find an example in the documentation or anywhere else. Can anyone give an example of this call being called using AcuCobol?  What I'm really interested in is for what parameters I need to use 'BY REFERENCE' and which ones I need to use 'BY VALUE'.#MQINQ

Hi, i have 2 files runcobol.cfg but i don't know. which is better for me? more runcobol.cfg RUN-INDEX-FILES USE-LARGE-FILE-LOCK-LIMIT=YES RUN-FILES-ATTR LARGE-FILE-LOCK-LIMIT=1048576 RUN-INDEX-FILES DEFAULT-FILE-VERSION-NUMBER=4 RUN-SEQ-FILES USE-LARGE-FILE-LOCK-LIMIT=YES RUN-REL-FILES USE-LARGE-FILE-LOCK-LIMIT=YES more runcobolm.cfg  RUN-INDEX-FILES USE-LARGE-FILE-LOCK-LIMIT=YES RUN-INDEX-FILES DEFAULT-FILE-VERSION-NUMBER=4 RUN-INDEX-FILES FORCE-DISK=yes RUN-INDEX-FILES FORCE-INDEX=yes RUN-FILES-ATTR LARGE-FILE-LOCK-LIMIT=1048576 RUN-SEQ-FILES USE-LARGE-FILE-LOCK-LIMIT=YES RUN-REL-FILES USE-LARGE-FILE-LOCK-LIMIT=YES

I have converted most of our NetExpress Cobol to unmanaged code under .Net.  In our Infinity launch pad, I've changed options so that the COBOL directory under system defaults points at where these dlls are.  However, when I click on icons, I get "The procedure entry point _mFerr3 could not be located in the dynamic link library cblrtsm.dll."  The title of the message box says "mospvbin.exe - Entry Point not found"  Msopbbin.exe does exist in the directory.  #netexpress#_mFerr3#VisualCOBOL#cblrtsm.dll#entrypoint

I have one form (VCSite) that calls another (VCPrint).  VCPrint simply prints a text file.  I need to pass the filename to be printed from VCSite to VCPrint as the filename changes based upon the user.  What is the best way to do this? #VisualCOBOL#VisualStudio