Rocket® COBOL

Hi, CALL WINAPI "MessageBoxA", gets windows "114 Attempt to access item beyond bounds of memory:" when I CHAIN to prog below but works if I CALL the prog. I want to chain to it when a db error occurs so that all resources are freed (file locks etc) even if user doesn't close my pop up box. I'm running within Visual studio i.e. in development environment. I'm using Visual COBOL / Windows 10. Thanks, Linden   environment division. special-names. call-convention 74 is winapi. data division. working-storage section. 01 retCode pic x(4) comp-5 value zero. 01 msgCaption pic x(255) value z"TNL Advertising Management System Error Report". 01 uType pic x(4) comp-5 value 273. *> 305. 01 msgText pic x(1000). 01 username pic x(100). linkage section. 01 callersMsgText pic x(1000). procedure division using callersMsgText. *> IF HERE THIS PROG HAS BEEN CHAINED TO, NOT CALLED, SO *> THAT RESOURCES HELD BY CALLING PROG ARE RE

 Hi We have a windows forms payroll application, which uses classes and called programs (migrated from Net Express and all compiled as managed code), and using .idx data files.  We are using VC 2.3 and Visual Studio Community 2015. We will soon have to start uploading XML files with employee information to an Irish government website, which will send XML files back as responses.  The XML files all have accompanying .xsd schema files.  The XML files could contain information for 1 employee, or a few thousand employees, so they could be bytes or mb in size.  Initially, we will be doing this manually by logging onto the website and manually selecting the file that has been created by our application.  We will get an XML file back and this will be processed into our application.  At a later date we have the option to automate the process into our application by integrating with the site's web services using SOAP.  These web services are defined i

We are needing to pass an APP API KEY as part of a webpage call for security reasons.  In our current setup we simply have all parameters needed in the URL to handle this.  The vendor has decided that an APP API KEY must be passed as a html header and not part of the URL.  Has anyone had experience in using the browser and passing a key in this manner along with the URL?   Thanks as always for any help.

With c$socket and 'ags-create-server' I have now created a simple server for receiving web server messages. However, they expected from us to work with ssl. c$socket was a simple way that made a web server unnecessary on our side. Does anyone have experience with a simple similar ssl server solution, without running a 'real' web server.

Can you do programming in visual cobol .net using await and Task operators? I have a very simple method below and wish to use async, Task and await operators.  Is this possible in a windows form application?   method-id CreateUser(username as string) returning a as type Task[condition-value] async end method.#VisualCOBOL

We run Server Express on Solaris 11.3 (sparc) and the process we follow to install Server express on each system is as follows: Step1: # tar -xvf V75535-01.tar Step2 : # export COBDIR=`pwd` Step3: # sh ./install             <- This install script invokes an interactive session where we answer a bunch of yes & no questions.. Step4: # cd /products/mf/mflmf-svrexp-5.1-wp11-64bit/ Step5: # sh ./mflmcmd <- This license script also invokes an interactive session where we enter the Serial/License numbers. Step6: # cd $COBDIR/aslmfStep7: # ./apptrack <- This "verify" program also invokes an interactive session where we enter new password and look at the installed licenses.We are in the process of automating a lot of the components of our system builds.Most of which has already been automated as part of the system build. However, Server Express installation on each build is still being done manually. As you can see, step3/step5 and step6 are

hi I' have program that run with cobol server 4.0, compiled with Enterpsie developer 4.0 for eclipse, on windows 2012 and give this error: SQLCODE: 00000001                                     SQLSTATE: 01004                                        SQL MESSAGE TEXT: String data - right truncation[32]   EXPANDED TEXT: String data - right truncation[32]        in odbc trace i have found thos print: ) d88-1b74 EXIT SQLDriverConnectW with return code 1 (SQL_SUCCESS_WITH_INFO) HDBC 0x0077E868 HWND 0x00010010 WCHAR * 0x74421F7C [ -3] "******\\ 0" SWORD -3 WCHAR * 0x7

In a .net visual cobol windows form, can a global variable be declared in working storage that references self::? Working-storage section. 01 s as new self. Method. invoke s::GetNumbers().   I know you can use declare x = new self in the method itself, but can you declare a global variable that represents self?

Good day,Update 4.0.268 does not allow generating clients from WSDL. In the version 4.0 does not generate error attach screens captures and error   "Micro Focus Interface Mapping Toolkit v4.0.00259 Copyright (C) Micro Focus 1984-2018. All rights reserved. An exception occurred! Type:RuntimeException, Message:The primary document entity could not be opened. Id=C:\\Users\\Usuario\\OneDrive/ConsultaEstado.!!1 The generation of the COBOL client from WSDL failed. Micro Focus Interface Mapping Toolkit v4.0.00259 Copyright (C) Micro Focus 1984-2018. All rights reserved. An exception occurred! Type:RuntimeException, Message:The primary document entity could not be opened. Id=C:\\Users\\Usuario\\OneDrive/ConsultaEstado.!!1 The generation of the COBOL client from WSDL failed."      

Who has this Problem and have been able to find a solution? Loading in DS is not a Problem, but when starting the program and loading the screenset i become the following window with a error Messages:   DSRUN error 28,0,0 Incorrect Dialog System vocabulary Information is stored in the screenset. Make shure you have generated a vocabulary copybook for this screenset.   I works since many years and this is the first time and i don't find a solution. I have exported the screenset and imported in a new screenset without Errors. Who can help?

This thread is to support any Q&A coming from the #COBOLrocks TechCasts. If you have any questions, please post them as a reply to this thread, or tweet them to @MicroFocus using the hashtag #COBOLasks and a member of the community, or the technical team here at Micro Focus will get back to you.  --- What is it? A new series of six on-demand technical webcasts specifically for developers. Every 30-minute TechCast is expert-led and packed with new tips and tricks that add value to everything you do with COBOL. What are the topics? Introducing Visual COBOL Upgrading from Net Express to Visual COBOL for Visual Studio Upgrading from Server Express to Visual COBOL for Eclipse Modernizing the COBOL UI experience From COBOL to a relational database - ISAM to RDBMS Fundamentals of Visual COBOL & .NET Register now www.microfocus.com/.../index.aspx Does it rock? It sure does. Your COBOL application can do way more than it currently does. Here is where the fun begins. #c

Problem: Crystal Reports has an COM Automation interface RDC that allows you to produce reports programatically in your application. It is possible to utilise this interface from COBOL. Resolution: Attached to this article is an example showing how you can call the RDC Interface. The example is based on a sample report that is provided when Crystal is installed. You may need to amend the location of this in the example code. Attachments: democobolrdc.zip Old KB# 1401

Problem How do I restrict access to the Enterprise Server Web Administration Console? Solution Follow these steps to restrict the Enterprise Server Web Administration Console: In a web browser, enter the URL to open your Enterprise Server Web console. (For example: http://myserver.com:86) From the menu on the left, select Security Select the MF Directory Server tab Check the box next to Restrict administration access At the bottom of the page, click Apply You will receive a prompt, asking that you enter the current authentication details for the "SYSAD" account. This is the default account set up for securing the Enterprise Server Web Administration Console.  The prompt reads: "A change in administration … has been requested" Enter User ID that will secure the Console (the default user id is "SYSAD") Enter Password (the default password is also "SYSAD") If you wish, you can also change the default password for the SYSAD as you log in. To do

Hello Guys,  I would like any kind of documentation about FileShare. Someone have it ??? Not about the instalation and configuration but related with monitoring resources as "FileShare Server Monitor" (FSView) or "Fileshare Manager module" (fsmgr). I need follow the impact of the reads and puts (in another words, the performance of access) in the vsam files used in our sistem on the FileShare.  Anyone can help us with this dout ??? And more if exist one resource like this explanation, what will be and how works.  Thanks a lot. 

Problem: How can I increase the font size in ViewNow when debugging in Eclipse?   Solution: When using Visual COBOL for Eclipse to debug remote projects, the debugger launches xterm on the Unix machine to send the user interface to ViewNow. There is a way to pass options to xterm to control the appearance of the X window in ViewNow. In a Debug Configuration, go to the Environment tab, and define a new Environment variable COBTERMOPTS. Here is an example: Variable: COBTERMOPTS Value: "-font -adobe-*-*-r-*-*-20-*-*-*-*-*-*-* -bg white -fg blue" (without the quotes) The above is an example of specifying a font, background color and foreground color to xterm. This example has been tested on a RHEL 7.1 and SUSE 12 systems. You can first test outside of Eclipse to confirm that a given xterm option will work for you by specifying it as part of the xterm command. For example: export DISPLAY=XX.XX.XX.XX:Y   (replace XX.XX.XX.XX with IP Address of your machine running

I am attempting to incorporate VB6 DLL's into my Netexpress 5.1 Microfocus Cobol.  Is this even possible and how the heck do I go about it.  Very confused at the moment.  Thanks.#COBOL#NetExpress5.1

Issue: When using the “-U” option with the 4.0 Patch Update product, the base product is removed leaving no product files on the machine. Example Install Scenario: Customer has Micro Focus Development Hub 4.0 installed. They want to install Micro Focus Development Hub 4.0 Patch Update 1. They run “rpm –U visualcobol_devhub_4.0_patchupdate01_redhat_x86_64.rpm” This runs without error but once complete there are no product files on the machine. Code was added into the 4.0 RPM installer to remove any files left behind in the installer directory when the product was removed.  This was added to the post uninstall RPM section of the installer. When an upgrade is performed the base products post uninstall actions are triggered and so the tidy code is run, resulting in all the product files being removed. Fix: Code has now been added to the tidy script to ensure it only runs on a true uninstall and not during an upgrade. Affects: This issue affects upgrading from the following products.

Net Express 5.1 Connecting to IBM MQ using IBM MQ Client library. We have a couple of IBM MQ connections working ok, but a vendor now requires us to store the SSL certificate in the IBM MQ Keystore with a password. What I need to know is where in the IBM MQ structures (copy books) can I define the password for the Keystore. An example would be much appreciated.

Do MicroFocus have as download the examples from this book, so that we must not retype all code!   This will be perfect, when this is possible!   Thanks   cg

 Hello COBOL community,   I actually work on a project with this configuration: - Visual Studio 2017 - Visual Cobol 4.0 -SQL Server 2014 and SSMS 2017 - Native project   I actually have some programs with access to a database. I use a "Connect" statement with parameters such as "Trusted_Connection","Database","factory","server". My question is: is it possible to include all those parameters with the ADO connection assistant? I tried to configure one but when I use my exec sql statements, I have an SQLcode error. The goal is to epurate the code of the procedure division and have a COBOL-like program. Thank you for your answers and have a wonderful week.   Sebastien.#SQL#VisualCOBOL#Connect

Hello, Is there a Rest API (or shell commands) to manage regions in a Cobol Server ? For example, I would need to programmatically set the XA connector for a given region. Thanks in advance

Does some one have a API cobol program. I want to make a connection with Mailchimp or channable or Twinfield etc etc.        https://support.channable.com/hc/en-us/categories/115000528869-Marketplaces-Orders

Problem: Compiling a CGI program produces the following error: Server Express Embedded HTML PreprocessorVersion 5.1.0.2 Copyright (c) 1984-2008 Micro Focus (IP) Limited.*  645P         copy 'mic1999.html'.* 803-S*******************                                             (   0)****    Integrated preprocessor message**    HTML splitter error 002 Resolution: The HTML file being included in a COBOL Source cannot be marked with READ-ONLY attribute.  This is because if any line in the HTML file is too long to be processed by the checker, it will be modified by the HTML Splitter before feeding into the checker, therefore it has to be a writeable file. This will be add

Problem: Unable to install new licenses with version 4.0 as it is impossible to run the cesdamintool.sh.  It keeps showing the message: "incompatible java version, needs 1.5 or later." Even with java version 1.6 being installed, "Cesadmintool:  Java version 1.6.0_161 in the following location is incompatible." is displayed. Resolution: This is an incorrect message displayed by the installer because Java 1.7 is now the lowest version supported. Unfortunately the scripts logic was updated to detect the new version of java but the message displayed was not. So there is the need to update to Java 1.7, ideally 1.8 so it will include the latest security fixes etc. This is fixed in patch update 3 and later to correct this wrong message displayed.

Problem: If the /tmp directory is cleaned up, it will remove license related files which are by default created in the /tmp directory. Resolution: There are two types of file stored in /tmp by default. The socket file which is used to communicate between mfcesd and the COBOL apps. This file can be relocated by setting socketdir (e.g. socketdir=/var/microfocuslicensing/socket) in ces.ini (needs version 10000.2.02090 or later and the folder will need to be created with 666 permissions ).  NOTE: The file is abstract on Linux systems so there should be no issue.   The second type is the lock file (mfcesd.lock). This is used to prevent a second copy of mfcesd from running and to help identify the mfcesd process when stopping it vis stopmfesd.sh etc. This file being removed is less important, but you need to be aware this may cause issues with starting/stopping mfcesd.