Rocket® COBOL

When upgrading to Windows 10, is it necessary to get a revoke key? Will there be a Visual Cobol Version for Visual Studio 2015 available?

We've recently run into a problem with combo boxes and mixed case data that I am looking for some clarification on.  Regardless of how we have the "Unsorted" property set (TRUE or FALSE), modifying the combo box for a given value always goes to the first matching value independent of the items case.  We have a scenario in a live system where the following 2 items are in a combo box. "aa" and "AA". When modifying the combo box with either "aa" or "AA", the end result is the item that is shown as being selected, is whichever one is sorted in the combo box first. I've written a small Acubench program for the following example and attached to this post. Example: I have 2 combo boxes with the following values loaded in this exact order.  "A1 3", "B1 2", "C1 1", "a1 4", "b1 1", "c1 2".  The first has the property of Unsorted (false), the second Unsorted (true). Here is the output based on the unsorted flag Unsorted (false) - (So in effect sorted) Unsorted (true) - (So

We understand that support for Windows 10 will not be available until the next RM/COBOL release. In the meantime, we have customers that may not heed our advice to wait before upgrading to Windows 10, and inevitably new machines with Windows 10 will be purchased. So, in our testing of the Windows 10 upgrade, we were happy to notice that BIS continued to work after the upgrade.  Then as an additional test, we uninstalled BIS and attempted to reinstall.  The attached screenshot shows the result. Is there a possibility of a workaround so that we can deal with Windows 10 before the next RM/COBOL release? Tom MorrisonHill Country Software and Support#XBISWindows10#BIS

I have been trying for 7 months to connect to an Access DB with no luck. No matter what I do I always get the same message. When I set it up in ODBC Data source admin. and test the connection everything is good. (Test completed successfully.) Then when I try in OpenESQL to connect I get this. What the Hell am I doing WRONG?????#SQL#databases

How do I call an exe for example notepad.exe or even exe done in NetExpress am with Visual COBOL 2.2, thank you.

It appears that in the following managed console program, if there is no run-time exception, "swallows" up the tail end of the program if the End-Try is missing.  There appear to be no warnings, etc., when the program is compiled.    $set checkdiv"ENTCOBOL".     program-id. Program1 as "cblTestTryCatch1.Program1".    * You can use the CHECKDIV"ENTCOBOL" directive so that you get an division by zero error returned.    * Adding an ON SIZE ERROR would also allow you to handle the error in your code.    * The $set directive shown above accomplishes this.     data division.     working-storage section.     01 Junk Pic X.     01 A Pic 9 value 1.     01 B Pic 9 value 1.     01 C Pic 9 value 2.     procedure division.         Declare Exception1 as type

In the past I have integrated C & C routines with the AcuGT runtime by simply creating a DLL and calling the routines.  Now I need to integrate some C# .NET code.  Clearly it's a whole new world. I have read the relevant parts of the manual and have had some help from MF tech support, but some questions remain.   1. If my method returns an Int32, how is that accessible in the Cobol program?  Does RETURN-CODE reflect it? 2. The example program implies Cobol can pass a .NET System.String to a method (BTW it would be really helpful to see the .NET code that corresponds to this example).  Is this true - can I pass a Cobol string to a .NET method as a System.String object?  How exactly is that done? 3. Closely related question: How can the .NET method return a string?  If I pass a System.String per #2, could the .NET method modify and return it? (seems unlikely because a .NET System.String is immutable). 4. The main thing my methods need to do is par

Problem: I would like to use a vt220 emulation with some full screens with 132 columns and others full screens with 80 columns. Resolution: It is necessary to use the Micro Focus function cobtermmmode. And also the compiled terminfo files must be right. If the parameter of cobtermmode is validated to 1 the size of the screen is 25*132 If the parameter of cobtermmode is validated to 0 the size of the screen is 25*80 An example is attached .   Attachments: 25441.tar Old KB# 2333

The following C# console program, when translated to the following Visual COBOL equivalent, produces different results - apparently the tab (the \\t escape sequence) is not recognized in the COBOL version of the program (???). C# : using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; namespace csConTest1 {     class Program          {         static void Main(string[] args)                  {              Console.WriteLine("\\t{0}\\t{1}\\t{2}",                                "1", "2", "three");   &nbsp

Hi All, Trying to display a screen section with a Master table and then hide it,  and then display a screen section with a Detail table. I understand you use call "CBL_SCR_SAVE"  to save the screen. Do you then Destroy in order to hide it? Would the order be: SAVE MASTER SCREEN DESTROY MASTER SCREEN DISPLAY DETAIL SCREEN DESTROY DETAIL SCREEN RESTORE MASTER SCREEN Best, Peter Best #savescreensection#CBL_SCR_SAVE

Hi, Looking for an example on using DISPLAY WINDOW where data list is displayed, the user picks a line and that information is passed back to the main program. Thanks. -Peter#Console#DISPLAYWINDOW

Hi, I'm looking for an example that shows the best way to do a popup list that allows the user to choose  a detail(slave) record that they can then edit. I'm writing small program that allows a user to create a manifest in a master table and then the user can add items to the manifest in a detail/slave table. Is there a recommended way of doing this?  Would you know of a good example that you could refer me to? Thanks. Any help is greatly appreciated. Best, Peter#master-slavetable#window#popuplist#FONTACCEPTDISPLAY#ACUCOBOL9.2.4

We use C$OSLockInfo rutine to know which process is blocking one register file; the rutine returns the PID. It works OK with RM files format, but when we use it with MF files format, the rutine returns all 0. Should we use the rutine in a diferent way when we use it with MF format files? Maybe we have to use another tool to get this information? Thank you

Hello all, Is there a Visual COBOL equivalent to the C# "Using" statement? ... as shown In the following C# example, the "Using" statement (not the "Using" directive)... (as in the statement that says "Using (OleDbConnection..." ? ................................................................. using System; using System.Data; using System.Data.OleDb; class Program {     static void Main()     {         // The connection string assumes that the Access         // Northwind.mdb is located in the c:\\Data folder.         // string connectionString =         // "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="         // "c:\\\\Data\\\\Northwind.mdb;User Id=admin;Password=;";         // Provide

   Good morning. I'm working with microsoft visual studio 2010 version 10.0.40219 . I am trying to call the function " CALLRB " but it does the following error " 12336 " . syntax follows : class-id rebuild.Form1 is partial inherits type System.Windows.Forms.Form. $set idxformat"8" working-storage section. 01 parameters pic x(600). 01 Wstatus pic xx comp-x. 01 wdata. 03 ano pic 9(02). 03 mes pic 9(02). 03 dia pic 9(02). 01 whorario. 03 hh pic 9(02). 03 mm pic 9(02). 03 ss pic 9(02). method-id NEW. procedure division. invoke self::InitializeComponent goback. end method. method-id pbprocessar_Click final private. procedure division using by value sender as object e as type System.EventArgs. * faz rebuild do arquivo idx move "C:\\temp\\teste.dat,C:\\temp\\teste2.dat" to parameters call "CALLRB" using parameters , Wstatus end-call if Wstatus = zeros then * mensagem para usuario invoke type MessageBox::Show("R

Hi, Anyone interested in tutoring a newbie in AcuCobol in text based programming? Looking for one hour a week of tutoring . Best, Peter #tutoring#AcuCobol

\\Documents\\Micro Focus\\Visual COBOL\\Samples\\Convert_ACU_and_RM_Files_to_MF\\rm2mf\\Readme.xml says "This utility converts an RM/COBOL indexed file or directory of files to Micro Focus indexed files. The RMMFDataMigration.exe and RM2MFconvert.dll executables can be used as delivered, or the source can be modified and rebuilt as desired." I got the solution to compile and convert a file, but I'm having trouble finding the source. Where is the source for RM2MFconvert.dll and inxconvert.cob?

Hi Chris, The objective is to Consume the WCF Created in .NET 4.5 in Visual COBOL.(In Native Code VIA Managed Code) To Do this I have followed following Steps: 1. Created an Managed Project in Visual COBOL, Added the Service Reference of .NET WCF.  2. Selected the Property of Managed project as "Register for COM Interop". I am getting couple of Warning for the same. (Type Library exporter warning Generic Code may not exported to COM.) 3. Created an managed program to create an object of WCF Client Class and call the WCF methods. 3. Created an Native Project and added a Native Program. 4. Provide the Class Control section to point to the OLE object created by Managed Project. 5. Tried to Invoke the Managed Program of Managed Project from Native Program. I am able to reach to the Managed Program (getting a display from there) But when managed program tries to call the WCF method , I am getting following error " Could not find the default endpoint element that referenc

Hi, Does any one have a Visual Cobol example of how to read a text file one character at a time using the System.IO.FileStream method so I can display the data in a TextBox ? Thanks in advance for any assistance. Kind regards Neil.

with the  call 'PC_PRINTER_DEFAULT_PROPERTIES' it is possible to select quite a lot of properties.   Is it also possible to call this Routine  after opening the Printer, when we know which Printer he selected?? I see it very usefull to give the Operator the possibility to select p-copies, papersize, p-Duplex, etc.  but all depending on the selected Printer. That means if he selects example  plain generic text Printer there is no sense to select Quality, Color, etc. thanks Rolf

Hi Guys, We have recently procured Acu 9.2.5 extend. Since it comes with a feature of creating Web Service, we are planning to create. Now, this our first time, creating a web service. We would really appreciate if someone can help us with a step by step approach to create web service via Acu 9.2.5.

Again with my custom control in .NET ... well the event are fired and catched from my "event procedure" and all is wrapped from an accept screen.. ShowGrid. modify net-grid "@ShowGrid"(). set exit-now to false. perform until Exit-Pushed accept screen-1 on exception perform Acu-Screen1-Evaluate-Func end-accept end-perform. . But the problem is when I need to close the form from the .NET event procedure. How to break the accept and go to exception handling? I've tried to call the exit program but from an event procedure is ignored. The manual say to force EVENT-ACTION-FAIL to EVENT-ACTION variable but don't work. Any suggestion? Thanks Andrea#.net

[Migrated content. Thread originally posted on 20 February 2012]Using embedded SQL statements in a COBOL program is a fairly common thing to do but even if you've been doing this for a while, it's not always clear what options are available. Here's a quick summary of what you can do and when you need to opt for one approach over another.Generally speaking, there are 2 approaches to accessing a database from a COBOL program that contains embedded SQL statements:1. Use the Database vendor’s pre-compiler. The pre-compiler takes as input the COBOL source file and outputs another file that is compiled by the Micro Focus COBOL compiler.2. Use Micro Focus OpenESQL technology. There are some upsides and drawbacks to using the a pre-compiler:1. The pre-compiler can offer extra performance over OpenESQL but this is generally negligible. 2. The pre-compiler allows you to access non-standard DB-specific extensions.3. Compilation is a two stage process. Pre-comp

Hi, I'm looking for an example that shows the best way to do a popup list that allows the user to choose  a detail(slave) record that they can then edit. I'm writing small program that allows a user to create a manifest in a master table and then the user can add items to the manifest in a detail/slave table. Is there a recommended way of doing this?  Would you know of a good example that you could refer me to? Thanks. Any help is greatly appreciated. Best, Peter #master-slave#popup

Good morning,I'm new to the forum, a query because the method does not appear MessageBoxResult?Any doubt I am to order.regards, Oscar Velasquez G.Panama