Rocket® COBOL

Problem: A program which uses C$REGEXP to locate records, and works in version 9.1.2.1, fails to find a match after upgrading to version 9.2.5. Solution: In version 9.2 an enhancement was made to C$REGEXP in order to facilitate searching for multiple occurrences of a match.  The MATCH-START parameter is now both an input and output parameter.  Refer to the documentation here: http://documentation.microfocus.com/help/topic/com.microfocus.eclipse.infocenter.extendACUSuite/BKPPPPLIBRS079.html?cp=5_0_1_4_8_0_46  Prior to the change MATCH-START was only an output parameter and the program initialized it to 9999 which was fine then. The value returned from the routine indicated the starting position of the match.  With the new functionality the program passes 9999 to the C$REGEXP routine as the location to begin searching.  This is well after the item that matches so the routine returns zero indicating no match was found.  The solution in this case is to initial

I am new to MS Visual Studio 2017 and to Micro Focus and its COBOL.  I down loaded both but now what is step 3?  I do see I can choose C# and Visual Basic.  But COBOL does not come up as an option. File/New/Project and in the NEW PROJECT window on the left panel under Templates there is no COBOL

I am connecting to MSSQL 2012 from a managed console program using OpenESQL and ADO. I need to completely replace the data in several tables from some data files. I wrote a proof-of-concept that connected, truncated, read-and-inserted, committed and disconnected. It worked great. But in our production environment I need to minimize the volume of the database log files by temporarily shifting db RECOVERY from FULL to SIMPLE, and then shift it back after the loading is done. My "EXEC SQL ALTER DATABASE NEAS SET RECOVERY SIMPLE END-EXEC" statement returns with SQLCODE -226, SQLSTATE IM999 and MFSQLMESSAGETEXT "ALTER DATABASE statement not allowed within multi-statement transaction." Can anyone shed some light on this? VC 2.3.2 for VS 2013 on Windows 7.

Hello. I have a question about how to get the HTTP header into a COBOL program (which is a Webservice). It is possible to do that? If yes, where can I found information about this? I have an example of how to get SOAP header (via User Exits), but it is not clear of all and it haven't any information about HTTP header. I am working with Visual COBOL v2.3 Eclipse for Linux and Enterprise Server.   Thank you in advance.#SOAP#Web#VisualCOBOL#webservice#EnterpriseServer#http-header#webservice#HTTP#Header

Oi, Este é um exemplo de como você pode descobrir se um determinado processo está ou não em execução. Abraços, Coral Hi This is a demo to show how you can know if a specific process is being executed or not. Best regards, Coral Visual COBOL for Visual Studio - WPF - How to know Processes in Execution Veja também minhas publicações anteriores: Check also my previous posts: Visual COBOL for Visual Studio - WPF - DataGridView with Popup Visual COBOL for Visual Studio - WPF - DataGridView Visual COBOL for Visual Studio - WPF - DataPicker Visual COBOL for Visual Studio - WPF - Listview Visual COBOL for Visual Studio - WPF - Listview With Popup Visual COBOL for Visual Studio - WPF - Keypressed Preview Visual COBOL for Visual Studio - WPF - Calling Classes Visual COBOL for Visual Studio - WPF - Autoskip Visual COBOL for Visual Studio - WPF - Changing Foreground and Background Colors Visual COBOL for Visual Studio - WFA - Working with CheckBox in DataGridView Visual COBOL for Visual Studio - A

Problem: AcuXDBC may return the following error when queries are attempting to sort a large number of records: "internal ZEXMAIN error : sort buffer overflow". Resolution: AcuXDBC provides a range of administrative options to set wider values, when the defaults are not sufficient. Using the asql tool (.bat or .sh), execute the following command-line: C:\\>asqlSQL (/? for help) ==>SET OPTION SORTPAGES T M where T = Total number of sort pages (disk memory) and M = Memory sort pages. The defaults are 10000 and 1000.  For instance: C:\\>asqlSQL (/? for help) ==>SET OPTION SORTPAGES 500000 200000; This setting is temporary and should be run everytime the asql tool is started. To have a permanent setting, store the SET OPTION lines in a configuration file, such as acuxdbcOptions.cfgThen set a new environment variable GENESIS_INITSQL to let AcuXDBC finding this file. For example: Edit a file called c:\\etc\\acuxdbcOptions.cfg Add the lines to this file u

Problem: ACUCOBOL-GT runtime 64-bit triggers a Memory Access Violation working with a .Net assembly. Resolution: Since the runtime in use is 64-bit, the .Net assembly has to be built for "Any CPU" or "x64".(the latter solution is preferred) Then, verify that the 64-bit version of Marshal.exe is registered on the client machine where the .Net assembly is executed. Start a DOS prompt "as Administrator". Make sure the 32-bit and 64-bit Marshal.exe are unregistered first: "C:\\Program Files (x86)\\Micro Focus\\extend 10.1.0\\AcuGT\\bin\\marshal.exe" /UnregServer "C:\\Program Files\\Micro Focus\\extend 10.1.0\\AcuGT\\bin\\marshal.exe" /UnregServer Register the 64-bit Marshal: "C:\\Program Files\\Micro Focus\\extend 10.1.0\\AcuGT\\bin\\marshal.exe" /RegServer - Run the 64-bit runtime again: "C:\\Program Files\\Micro Focus\\extend 10.1.0\\AcuGT\\bin\\wrun32.exe" program Please note that it's not possible to have&nb

Hi, Ive got the VC code below that I need to work in NetExpress which I presume will use x"91" can anyone advise how I need to code it? The program EscapeSequence is written in C# or C declare pDC as type System.IntPtr = e::Graphics::GetHdc set ws-string to w-st-unlock-settings set escape-string-length to size of ws-string::TrimEnd(" ") invoke type EscapeSequence.ClassCode::Print(pDC, xstart, ystart, ws-string, escape-string-length, w-align, ws-drawcolor, x-size1, xrotate, escape-font-style, escape-font-name); invoke e::Graphics::ReleaseHdc(pDC)   Convert using :- call x"91" using ????

Problem: The ACUCOBOL-GT application is accessing the runtime over a mapped drive. If the program is left running idle for approximately 30 minutes, when the user tries to reactivate it again the runtime would crash. In the Process Mononitor log, a network error was tracked with reference to the runtime. Resolution: The first advice in cases like this is to avoid the use of mapped shared drives. If it's impossible to spare this architecture, some registry settings may improve the situation.(see other articles in the Extend and ACUCOBOL Community about Opportunistic Lock) If the Operating System is Windows 10, users should be aware that Microsoft has added additional security to using mapped drives. Doing some researches, it's easy to find articles like the following which may explain the situation and implement a solution: Windows 10 losing mapped driveshttp://bit.ly/2fQyS6a "It appears this issue has actually been around since Windows 8 and is caused by Group Policy drives w

Oi, Este é um exemplo de como você pode trabalhar com um DataGridView recebendo valores de um Popup em WPF. Abraços, Coral Hi This is a demo to show how you can work with DataGridView receiving parameters from a Popup dialog using WPF. Best regards, Coral Download Demo Veja também minhas publicações anteriores: Check also my previous posts: Visual COBOL for Visual Studio - WPF - DataGridView Visual COBOL for Visual Studio - WPF - DataPicker Visual COBOL for Visual Studio - WPF - Listview Visual COBOL for Visual Studio - WPF - Listview With Popup Visual COBOL for Visual Studio - WPF - Keypressed Preview Visual COBOL for Visual Studio - WPF - Calling Classes Visual COBOL for Visual Studio - WPF - Autoskip Visual COBOL for Visual Studio - WPF - Changing Foreground and Background Colors Visual COBOL for Visual Studio - WFA - Working with CheckBox in DataGridView Visual COBOL for Visual Studio - Asp.Net - Cursor Visual COBOL for Visual Studio - WFA - Cursor Visual COBOL for Visual Studio -

I was very excited to learn .net Cobol using Visual Studio until I got the error message about the source limit.  I am using the PE for learning purposes only.  Is there a workaround or how much is it to purchase a version that I can continue my learning.

Problem: The COBOL application includes a browser control to display a certain web page.  When the application is executed from AcuToWeb the web page does not display. The browser is blank. Solution: There are two conditions for a web page to display in the browser control when running under AcuToWeb. 1. The browser must use the complete URL. Entering "microfocus.com" won't work, but entering "https://www.microfocus.com" displays the page. 2. AcuToWeb executes COBOL programs in a frame, consequently the web page must be able to run in a frame. For example these common web pages do not run in a frame: https://www.google.com  https://www.amazon.com  But this one does: https://www.microfocus.com Note that the exact behavior varies. Internet Explorer provides an error message that the content cannot be displayed in a frame, and provides a link to open it in a new window.  Chrome and Firefox simply display nothing.

Problem: The COBOL program can have parameters passed to it as allowed by the CHAINING phrase: PROCEDURE DIVISION CHAINING PARAM1 PARAM2 Those parameters are passed in the Runtime command line like this: wrun32 myprogram ABC 123 Which passes “ABC” and “123” for param1 and param2 respectively. With Thin Client that is done similarly in the acuthin command: acuthin server:port myalias ABC 123 How is this accomplished in the URL generated for AcuToWeb? Solution: The "&aliasArgs=" option may be added to the AcuToWeb URL to pass parameters to the COBOL program.  For example AcuToWeb may generate this URL for the above program: http://localhost:3000?hostgw=localhost&portgw=8009&alias=myalias To send the ABC 123 parameters use: http://localhost:3000?hostgw=localhost&portgw=8009&alias=myalias&aliasArgs=ABC 123 (Note that you can separate multiple parameters with , or a space which the browser will convert to .)&nbs

Yesterday, Micro Focus announced the release of its developer preview for Visual COBOL for Visual Studio 2017.  An except from our press release is provided below along with links to the product page and how to get your own personal copy. This developer preview is your opportunity to try out the latest features of Visual Studio alongside Visual COBOL.  GA support for Visual COBOL for Visual Studio 2017 will be available this summer.  More on that launch date very soon. Enjoy your product trial of Visual COBOL for Visual Studio 2017. -Ed ____________________________________________________________________________________________________________________________________ On April 4th, Micro Focus announced its Visual COBOL solution now supports Microsoft Visual Studio 2017. For over 50 years, the enterprise has continued to rely on COBOL applications to drive competitive advantage and deliver critical business services. As the pace of business change accelerates, fueled by

I've reported this issue to Microfocus Supportline: After selecting a folder using "c$opensavebox" the runtime crashes without any error message.There are no errors when selecting a file.Up to and including version 10.0.1 this has worked. Does anyone know this problem? dkl#extend32-bitRuntime#runtimeerror

WHY  this instruction doesn't work or is ignored?CALL "SYSTEM" USING "RMDIR /S  /Q f:\\backup\\domingo".

Hello, I have a Windows Server 2008 where are all my VSAM files created with NetExpress 3.11.Clients access this server through Remote Desktop Connection.It turns out that I am sporadically losing certain records.The strange thing is that in the application the record was recorded, the file status returned ok and the record does not appear in the file.Should I make some configuration in Windows Server 2008 so this does not happen?  Best regards Rogerio Barbosa

Is there an equivalent in .net Cobol to C#'s string interpolation?  For example: int cats = 100; int dogs = 2; string animals = $"cats = {cats} and dogs = {dogs}"; I know that I can use string::format but was wondering if string interpolation exists.

Hi All, I'm trying to figure out how one determines the Windows task-bar location. I found that using an ACCEPT statement (like the one below), one can gather information about the user's desktop and determine whether the task-bar is vertical or horizontal. ACCEPT Terminal-Abilities FROM Terminal-Info It seems that this can be done by subtracting USABLE-SCREEN-WIDTH from PHYSICAL-SCREEN-WIDTH and if the result is greater than zero, then that means the task-bar is in a vertical position.   A similar test can be done with USABLE-SCREEN-HEIGHT and PHYSICAL-SCREEN-HEIGHT. But I'm having difficulty in determining what information is available to determine whether the task-bar is on the left or the right, and whether it's on the top or the bottom from the Terminal-Abilities information. How does one typically determine the position of the task bar on the client workstation using COBOL? Thanks, Luis  

We are using version 6.10 That's in accept screen field

Can someone convert this for me?  When I convert this and try to use it, my var exception is always null and it shouldn't be as I am purposefully causing an exception to test this out.  When it encounters the while statement (perform until in .net Cobol) it will bypass the sb.appendline as exception is always null.   public static class ExceptionExtension { public static string ToFullBlownString(this System.Exception e, int level = int.MaxValue) { var sb = new StringBuilder(); var exception = e; var counter = 1; while (exception != null && counter <= level) { sb.AppendLine($"{counter}-> Level: {counter}"); sb.AppendLine($"{counter}-> Message: {exception.Message}"); sb.AppendLine($"{counter}-> Source: {exception.Source}"); sb.A

We are still not having any luck printing using acucobol 10.1.0.  We have gotten a new printer and downloaded the latest release/patch for 10.01.00.  I still cannot print anything from acucobol 10.1.  I have written a sample program calling win$print and I'm getting very different data into the winprint-buffer when selecting the same printer from 10.1 and 9.2.  I can print when running 9.2.4, but get file error 30,00 when trying to print using 10.1.0 (-p SPOOLER-DIRECT) and selecting the printer from a dropdown box.  I have a samples file of the winprint-buffer from version 10.01.00 and 09.02.04 as well as a sample program to produce the files.  I am at a loss as to what to do next.  Does anyone you have any other ideas for me?

Environment: VS2015, VC2.3, Win 10, MySQL 5.7, character set UTF8 (default) Hi, I'm getting an exec sql error inserting extended ascii into a mysql varchar field: "[MySQL][ODBC 5.3(w) Driver][mysqld-5.7.12-log]Incorrect string value: '\\xA3150 o...' for column 'linage_rec_text' at row 1" I can type £ into the field directly in MySQL workbench but get the error via exec sql. What's the correct way to handle this? I need to store extended ascii characters from MF Dialog system text input fields. My (host) field is defined as pic x(n). ODBC DRIVER: I'm using 32 bit MySQL ODBC 5.3 unicode driver - should I be using the ANSI driver instead? Any help much appreciated. Linden                                                                         

I'm reading a .csv file in COBOL and writing a fixed-length .txt file.   I want all the dates in the .txt file to be YYYYMMDD format. The .csv has numerous dates, all formatted as month/day/year.  I've tried UNSTRING, which works when mm and dd are both two digits (e.g.,12/17/1996) but it doesn't work with 1-digit months or days, like 1/17/1996 or 12/7/1996. I could struggle through a character-handling routine, but I'm hoping somebody out there has an easier solution.   My Micro Focus product specs are as follows. Microsoft Visual Studio 2010Version 10.0.40219.1 SP1RelMicrosoft .NET FrameworkVersion 4.6.01586 SP1Rel Installed Version: IDE Standard Microsoft Visual Web Developer 2010 01011-532-2002361-70367Microsoft Visual Web Developer 2010

 What would the .net Cobol equivalent to this C# code be? public NewUser User { get; set; } = new NewUser();