Rocket® COBOL

I'm using the mFFH cobol facility to create a file trace in a managed cobol program.  It's working file, but when I run cobfhrepro3 to produce a report of the trace, the file name on the report is only 30 bytes.  I'm using a fully-qualified UNC path as the file name, and it's way more than 30 bytes. Is there a way to tell the trace facility or cobfhrepro3 to display more than 30 bytes of the file name? Just a bit of background...the program I'm tracing wasn't written by me, and was written in native cobol.  I converted it to managed cobol so we could use it in a WCF service.  After about 500 runs, the service crashed in the Micro Focus file handler.  I'm guessing that there is a file that is not being closed, so the system is running out of file handles.  Since the program uses a lot of files, I'm using the trace facility to try to match opens and closes. Any help would be much appreciated. Thanks!#trace

I know you can do this with invoke, list and add but can it be done with traditional cobol.  I want to create a list of class objects.  So I have a class that consists of student information These all have properties set. class-id TO_Students.       Working-Storage Section.               01  _studentname                     pic x(30)      private.               01  _studentid                       pic x(9)       private.               01  _studentmajor  &n

I'm currently trying to use VisualCobol for Eclipse for our legacy code base, in order to modernize our development tools. Up until now we develop in a text editor and compile our cobol-programs via shell script directly on the AIX target. Essentially the script executes the call of the precompiler and the cobol compiler separately. Depending on project conventions (basically naming of the sourcecode), the programm is compiled as standalone binary or as member of one of our shared object libaries. This approach of course requires different arguments to the compilers to achieve this goal. Now I have tried to create a similar behavior running in Eclipse but unfortunately failed with different approaches. What I like to achieve is that, when I start the compile of a single sourcecode in the IDE (via the option compile from the context menu of a cobol file in an remote cobol project), that my buildfile is executed instead of the project generated .cobolBuild. Manipulating the

I am trying to set the ID for the fields in screen section instead of using the automatic assignment based on the placement. Some fields allow me to set the ID but other will cause compilation errors. Is it possible to set the ID for controls that do not have "ENTRY-FIELD" (See #41)       * #43           05 MS-AF-LAST-COST  ENTRY-FIELD, VALUE AF-LAST-COST,              BEFORE    PROCEDURE IS MARK-PLACE-LAST-COST              AFTER     PROCEDURE IS CHECK-LAST-COST              EXCEPTION PROCEDURE IS CHECK-FUNCTION-KEYS              LINE 13   POSITION  70 NO-BOX, RIGHT    &nb

Hi! I'm having some problems with my database connection. I'm using Visual COBOL v4.0 (with Visual Studio 2017) and my database is Informix 3.5. I'm using Micro Focus ADO.NET Connection Editor to create an ADO.NET Data Source, with OpenESQL as ESQL Preprocessor. The ESQL connection statement from my COBOL program is: connect to "CobolInformix" (obviously "CobolInformix" is the already configured DSN). It works flawlessly until I am working on "standard" databases, allowing program to receive and write data.But when I try to get data from databases with specific connection settings (such as db_locale=en_us.1252 or unicode=true), I got an error ("Illegal use of host variables") because I can't set that properties. In another application, I'm using C# to access to the same database with a connection string similar to this: Ifxoledbc.2;Data Source=myDatabase@myServer;Persist Security Info=False;User ID=user;Password=*****;Pooling=false;db_locale=en_us.1252;client_local

Files that are not indexed in our shop are usually LINE SEQUENTIAL and it is never necessary to look for x'0a' or x'0d'.  When reading files without these characters from other sources, we have read them as SEQUENTIAL when we were sure of the record length. My question concerns a file with fixed length records except there is a short header in front of the first record.  Is there a way to specify how many characters to read outside of the record layout?  I got past this problem by defining a one character file so I could get past the header separately from the records where I performed a read in a loop to create the record in working storage.  It worked, but is there a better way to tackle this? Thanks in advance.

Hi, how to convert this code C# to Visual Cobol?string FromNumber = "9999999999999"; string password = "xxxxx";string nickName = "xxxxx";WhatsApp wap = new WhatsApp(FromNumber, password, nickName, false, false); wap.OnConnectSuccess = () => {   MessageBox.Show("Connected to whatsapp SuccessFully...");    wap.OnLoginSuccess = (PhoneNumber, data) =>   {     MessageBox.Show("Enterned");     wap.SendMessage(Phnumber, message);     MessageBox.Show("Message Sent Successfully...");    };   wap.OnLoginFailed = (data) =>  {    MessageBox.Show(data);   MessageBox.Show("Yes Failed login : {0}", data);   };   wap.Login();}; wap.OnConnectFailed = (ex) => { MessageBox.Show("Conncetion Failure"); }; wap.Connect();   Visual Cobol 2.3Visual Stúdio Community 2015

Hello, wir are using RM-Cobol with wow designer and have purchased FlexGrid by ComponentOne and have the following problem with it: while moving mouse over the rows, the rows roll up or down. Who has encountered this problem and can help me? Thanks in advance Suzana#RMCOBOL

Hello,I develop some programs that could be used either under Windows (in graphical mode) or under Linux (in character screen mode or graphical mode depending on how the user is connected to the server). I use the following setting  KEYSTROKE Edit=Down kdKEYSTROKE Edit=Up ku to configure a different behavior for arrow keys Up and Down (compare to TAB and SHIFT-TAB) This works fine with Graphical mode (Windows or Linux) but doesn't work in Character screen mode.  I have reproduced this issue with the sample program  custrpt.cbl. If you execute it with wrun32.exe and the configuration above, it is Ok. But if you execute it with crun32.exe (to be in character screen), arrow keys Up and Down are no more working. Do you have any idea ? Thanks by advance for your help.  Jean-Luc      

Greeetings. When I try to execute the .exe files, I've just downloaded, following the instructions from the email MF sent me, they  say that I do not have the MF installed, I am running windows 10. Please, any suggestion? PS, next is the log I tried to unload, it appears to be an image, or photo though. Micro_5F00_Focus_5F00_Visual_5F00_COBOL_5F00_for_5F00_Visual_5F00_Studio_5F00_2017_5F00_20181128150317.logs?

I have my development machine (Windows Server 2012, Net Express 5.1) and second machine (also Windows Server 2012) with product which I am developing installed. Please is there any possibility to setup remote debug between these two servers? Thanks for any help.#debugging#cobolnetexpress

Please help with the following file read that runs when using our old compiler but falls over opening the file with the Visual COBOL error -> MicroFocus.COBOL.Program.COBOLFileHandlingException: ''c:\\data\\MCDFCTL' : 9/043 (ANS74)%d      error message text not found '       IDENTIFICATION DIVISION.       PROGRAM-ID. program1.       ENVIRONMENT DIVISION.       INPUT-OUTPUT SECTION.       FILE-CONTROL.            SELECT  CONTROL-FILE                    ASSIGN  TO      "c:\\data\\MCDFCTL"              ACCESS MODE       &nb

These sequences work very well, but insert the Picture at A1        *>   Get the collection of WorkBooks           invoke ExcelObject "getWorkBooks"               returning WorkBooksCollection       *>   Add a new WorkBook to the collection           invoke WorkBooksCollection "Add"               returning WorkBook           invoke ExcelObject "getActiveSheet" returning Activesheet           invoke Activesheet "getPictures" returning Pictures           invoke Pictures "Insert&quo

Sometimes when I build my visual cobol win form project I will get a compile error I-O error:  IDY file.  I then have to close visual studio, go to the debug folder of the project and delete the files within in.  I restart visual studio, open the project and compile is successful.  Does anyone know why this randomly happens or what can be done to fix the problem?   Thanks.

Is it possible to open multiple pdf files in the browser control? Something like  MODIFY BROWSER-1 VALUE = pdf1; pdf2.

Olá, estou precisando de um exemplo para Visual Cobol 4 que faça uso de fileshare, nunca utilizei alguem tem um exemplo. E o que é necessário para sua execução? Obrigado.   Hello, I need an example for Visual Cobol 4 that makes use of fileshare, never used someone has an example. And what is necessary for its execution? Thank you.

public class Person { private string Name; private string FirstName; public Person(string name, string firstname) => (Name, FirstName) = (name, firstname);List<Person> listofPersons = new List<Person>(); listofPersons.AddRange(new List<Person> { new Person("John1", "Doe" ), new Person("John2", "Doe" ), new Person("John3", "Doe" ), });

Dear Admin,Currently I meet this error in my local cobol env, any suggestion on it? Very appreciated with your help,thanks!honey:/var/cics_regions/TEST/bin # cob -u GSYSTIME.cbl -C DATA-CONTEXT -C CALL-RECOVERYcob32: Compilation and code generation of COBOL not supported in this product. #I am using Micro Focus Visual Cobol 3.0 on 64bit x86 Linux SUSE12sp3 #It says that: "cob32: Compilation and code generation of COBOL not supported in this product",while the cob32 is already under directory /opt/microfocus/VisualCOBOL/bin honey:/opt/microfocus/VisualCOBOL/bin # ls -lrt|grep cob32-r-xr-xr-x 1 root root   80228 Jun  8  2017 cob32#I have already done these COBOL env variable settings.honey:~ # echo $PATH/sbin:/usr/sbin:/usr/local/sbin:/root/bin:/usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games:/opt/ibm/cics/bin:/root/bin:/opt/microfocus/VisualCOBOL/bin:/root/bin:/opt/ibm/cicstg/jvm180/binhoney:~ # echo $COBDIR/opt/microfocus/VisualCOBOLhoney:~ # echo $LD_LIBRARY_PA

Created On:  03 December 2012 Problem: Trying to call the dll’s from within a cobol program does not work even when setting the DLL_CONVENTION configuration variable.  The DLL itself appears to be loaded but when trying to access the method fails. Resolution: The only way to load these DLL's now is to pre-load them as calling them from a program does not work. To preload for example: - wrun32 -y xmlif.dll -y rmnet.dll Old KB# 36651#RMNet#xml-extension#COBOL

Hi there,I am trialling Visual Cobol and because I don't have the manuals would like to know if somebody can help convert the following bits of legacy code which are throwing up "unknown type *OLE" errors.Many thanks,Greg. 000350 ENVIRONMENT DIVISION.000360 CONFIGURATION SECTION.000410 SPECIAL-NAMES.000420                 ENVIRONMENT-NAME   IS NT-ENV-NAME000430                 ENVIRONMENT-VALUE  IS NT-ENV-VALUE000440                 CONSOLE IS CONS-1.000450 REPOSITORY.000460                 CLASS OLE AS '*OLE'.... 001220       MOVE  '0'         &nbs

I have read mixed reviews about using the report writer.  Does anyone have any pros and cons they would like to share?  To me, it seems very easy to use when you wish to generate reports instead of having a lot of working-storage section items for filler, headers, footers, etc.  Should the report writer be used for all generated reports?

Is there any way to display a Dialog screen and have it return to the Visual COBOL program without the user having to click anything on the screen? What I am trying to do is display information regarding what my program is doing on the screen for the user to see but I do not want to stop my program from running ( I do not want to interrupt program's run time). Usually, when a Dialog screen displays, it stops the program and waits for user input (it waits for an event triggered by a button on the screen). I am trying to display a screen and have it return to the program without the user having to click on an object on the screen. I have tried the following: ******************************** SCREENSET-INITIALIZED MOVE-OBJECT-HANDLE CLNTPROS DSMOVSZ-HANDLE-COUNT(1) MOVE "mova" DSMOVSZ-FUNCTION(1) CALLOUT "dsmovsz" 0 DSMOVSZ-PARAMETER-BLOCK IF= RETC-FLAG 1 DISPLAY-AND-RETURN DISPLAY-AND-RETURN      RETC ********************************* This code exe

Good day everyone,I was wondering if there were any tweaks that I could enter into the AcuServer config file to improve performance? We're running AcuServer for a customer who's having error problems with the standard 32-Bit runtime and we decided to go down the path of AcuServer to see if it eliminates the errors without worrying about SMB and opportunistic Locking. The problem with AcuServer is that it runs much slower than the runtime.  AcuServer is running on Windows 2012 Server where the data files reside. The shortcuts are running on Citrix clients. Any tips would be appreciated. Cheers, Rafael..#AcuServer

  Problem: After Windows 10  major update the Net Express 5.1 license is corrupted.     Starting Net Express loads the Micro Focus License management System, which shows the License Status as: “Your Net Express license has been corrupted”. Resolution: Some Windows 10 major feature updates delete a number of registry keys that are used by the Net Express license management system. These registry keys are used when checking for a license and if they are not found the License Manager process will fail to function correctly.  This will happen when starting Net Express and when starting the License Management System. Registry keys that may be deleted are:HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\{D50D8764-ECB7-4b58-8568-8AF1403B76F1}HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\{D50D8764-ECB7-4b58-8568-8AF1403B76F2}Resolution option

We are migrating from Server Express 5.1 to Visual COBOL 3.0.  I am trying to get a very basic COBJVM example to debug.   The environment is   Visual COBOL for express 3.0 on windows 10 Visual COBOL devhub 3.0 on SLES 12.   I have created a new remote COBOL project with Java Byte Code target.   I have created and compiled a very simple COBOL program   (See end of this post)   The program compiles fine, and I can run it by going over to Linux and running cobjrun, but when I try to debug it in eclipse I get the following error                    Could not launch remote project.  Check that the remote server settings are not empty.    the remote server setting is definitely not empty, it shows the correct server.   ----- program ----          program-id. ap02 as "ap02".       data division.       working-storage section