Rocket® COBOL

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();

Hello First to all, I must say: I´d never used OCX.    Now I´m fighting to add to my system a requirement wich let me offer a solution to a client. This requirement is : To update the status and location of some particular medicines (oncologic, VIH, etc)  in a web service ensuring the trazability by the serial number included in this medicines by a data matrix code. The web service comes from an organism called ANMAT (http://www.anmat.gov.ar/trazabilidad.asp)  who rules this, so, to sell or move a one of this medicines the client (Hospital, Pharmacy, Provider, etc) must update the status in.   I'm no prepared to create it from the beginning, so I found some supports who offers me an interface (with a cost I could pay) which work with an OCX to do this task and obtain a transaction number. They send me this example in VB to try to understand how it work:   Dim TrazaMed As Object, ok As Variant ' Create the interface COM Set TrazaMed = C

 I was wondering if there is any advantage over one of these .net methods versus the other.  In the second one, I modeled it after a C# method using .net Cobol syntax of course.  They both function the same, but wanted an opinion if one was better than the other in regards to best practices.   First Method. method-id IsStrongPassword public.local-storage section.01 cond-value condition-value.procedure division using by value tro as type TO_NewUser, t as type TextBox returning strongPassword as type Boolean.set cond-value = type Regex::IsMatch(tro::Password, type HospitalManagementSoftware.Properties.Settings::Default::pword). evaluate cond-value when false invoke type MessageBox::Show("Please enter a stronger password.", #Title) invoke t::SelectAll() when other set strongPassword to true end-evaluateend method.   Second Method. method-id IsStrongPassword(tro as type TO_NewUser, t as type TextBox) returning strongPassword as type Boolean public.local-

Hi, please I have this construction: from main program I called program p1 in program p1 is this: ON 1 do something ELSE do something then quit to main program then again enter to p1 program in p1 is only ELSE part done is there any way how to reset ON status? thanks#cobolnetexpress

[Migrated content. Thread originally posted on 16 May 2011]Hi, i write an xml using the c$xml API encoding it in "UTF-8".call "c$xml" using CXML-NEW-PARSER             giving wh-descr-parser.if we-runtime-major-version >= 8   call "C$XML" using CXML-SET-ENCODING                      wh-descr-parser                      "UTF-8"    end-if.It happens that when i write in it some accented character like "à", the final xml results in an invalid format and parsing it with "C$XML" CXML-PARSE-FILE returns CXML-PARSE-ERROR. Also, it is not possible to open the xml with a browser (chrome or firefox) as it says that the xml has a wrong format.i write the accented character with the followingcall "c$xml" using CXML-ADD-CHILD          &nbsp

I need the Cobol Server 2.3.2 (cs_232.exe) but when I sign in to support for the download, it is no where to be found. What am I missing?

Problem: Issuing the following command: acuthin.exe serverIP AcuToWebAlias returns the following error: "Connection failed. Unknown error." Where: AcuToWebAlias is an alias that runs correctly with AcuToWeb Resolution: Check if the license for AcuConnect Thin Client is installed and activated. AcuRCL service can be turned on just having an AcuToWeb license active: acurcl.wlcBut to use acuthin, an acurcl.alc file is necessary. We are working to include a specific error message for this situation, but that is not going to be available in the Acu 10.1.0. We plan to add this to a future release of the Acu product. Support Incident: 2990847

Hello, attached is a sample program designed in Acubench to help illustrate. What I'm trying to do is dynamically create a series of controls, and as the controls get created past the physical bottom of the screen, I'd like to add scroll to the window, so as to keep the window the same size, but allow for the user to scroll through the controls. How do I get my window to scroll as I'm creating these controls? Thanks Dave STRDOSE.zip

I need the Cobol Server 2.3.2 (cs_232.exe) but when I sign in to support for the download, it is no where to be found.  What am I missing?

Hi, please I have this code: 05 w-string1 pic x(500).05 w-x pic s9(04) comp. ... call "SYSTEM" using w-string1(1:w-x) where in w-string1 is 'bpsXmlConverter bpsdata\\SXJNMP-PK1_2017032715521837.DAT utf-8' but in bpsXmlConverter program (it's .NET utility), when I check, how I was called it's: bpsXmlConverter bpsdata\\SXJNMP-PK1_2017032715521837.DAT utf-8 270320174 When I debugging, just before CALL "SYSTEM" value in w-string1 is OK. And when I run bpsXmlConverter just alone, it's also OK. Please can you help me, from where this strange number parameter comes?#cobolnetexpress

Basically the problem is this   working-storage. 01 data1 pic x(25). 01 data2 pic x(25). procedure division. The current values of data1 and data2 data1 = "A                                   "  data2 = "   some old data left over"   In Micro focus COBOL when I do the following statement move data1 to data2    data2 ends up equaling  data2 = "A                                   " Which is ideally what I want to happen   However when I move the code and compile it in OPEN VMS which uses VAX Cobol when I do the same statement I end up with data2 ends up equaling  data2 = "A   some old data left over"   So it appears that Micro focus Cobol clears the old data automatically out of data2 with a move statement and vax cobol ends up

Hi,   I installed Micro Focus Net Express recently. And after installing I made sure to set all the paths and environments. Now when I am trying to compile one cobol-db2 program, I am getting a system error "SQL5005C  System Error". * 801-S ( 0)** External Compiler Module message** DB0100 SQL5005C System Error.COBDB0100S SQL5005C System Error.Rebuild complete with errors I tried to resolve a lot but unable to resolve the issue. Is there anyone can help me on resolving the issue.