Rocket® COBOL

How easy or difficult is it to take advantage of modern COBOL? #VisualCOBOLUniverse2020

Did you convert COBOL to Java?#VisualCOBOLUniverse2020

Probably a Easy question.How do I stop this side screen coming up when I enter some code.       

My Microsoft Office froze up this morning, and I tried a cure that involved disabling all services except Microsoft and then restarting the computer.  It fixed my Office problem, but I fear it clobbered my Micro Focus COBOL.  (I've got Windows 10 pro).When I tried to start COBOL, I got "The Micro Focus CES daemon is not running."  But when I looked at my Programs and Features, I found four Micro Focus entries, but nothing about a CES daemon.See screenshots in the attached "Article.docx". Your help will be greatly appreciated  #CESdaemon

I am using Microsoft Visual Studio Community 2019 Version 16.7.3. I am able to "Step Into" "F11"  with no problem. But if I choose to "Add Watch" (see screen shot) on a variable, my environment freezes up. I have included a screen shot of my Debug Options. I really need this option in order to debug my program. Debug Options.PNG

Below are the relevant parts of a program for printing to my PC printer. I am running Windows 10 and Visual Studio. The program prints the "howdy" line, but if don't call  "PC_PRINTER_REDIRECTION_PROC"  the printer does not print "howdy"I thought the main purpose of the "PC_PRINTER_REDIRECTION_PROC" call was so you could get the printer handle and do things like set the font - have not seen anything saying that you have to do the call. What am I missing?I can comment out the call to set the font in "SetFont" and it still prints.------------------------------------------------------------------------------    Select PrintFile assign to printer            organization is line sequential            file status is file-status.    FD PrintFile.    01 PrintRec pic x(80). 

Hello,i wrote an dll (c )im calling this dll in this wayCALL "@[DISPLAY]:X:/xxx/xxx/xxxx/xxxx/xxxxxx.dll"MOVE ZEROES TO pValueMOVE ZEROES TO CPOINTCALL "@[DISPLAY]:function"USING BY REFERENCE pValueBY REFERENCE MyStringGIVING RETURN-CODEEND-CALLIm getting the right return code but the variables pValue and MyString are empty.

HiI need help creating a server program running under Xcentricity BIS that:- Receives a POST message from a client fx Postman.- Reads the header- Saves the body received to a file - og pass the body to a sub-program.- Call a sub-program that reads the body and creates a reply in a file- The server program reads the reply from the file and sends the data to the clientWe already have this program, using C$SOCKET – so we need another program doing the same with xbis.

I would like to get the items that the user has selected from a Lis tBox. I tried the following:move ListBox::SelectedItem::ToString to STR-ITEMThis code works well if the 'SelectionMode" property of the ListBox is set to 'One' but this however, constrains the user to only pick one item from the List Box. I have set the  'SelectionMode" property of the ListBox  to 'MultiSimple' in order to allow the user to pick more than one item. But setting this property sems to only return the first item selected when I use the code above. I tried retrieving  the index using the following code:move lst-GROUP-PROFL-TBL::SelectedIndex to THE-IDX-2.But this too returns only the first item that is selected in the list. What I basically need is to retrieve all the items that the user has selected in a list box either by their string text or by their index and then store them in a table. For example, if the user chooses items 'January' 'Februar

I have the following table declared in my WinForm 01 TABLE-NUM OCCURS 5 TIMES. How do I load TABLE-NUM into my ListBox?For example, my Table has the following :TABLE-NUM(1) = “1”TABLE-NUM(2) = “2”TABLE-NUM(3) = “3”TABLE-NUM(4) = “4”TABLE-NUM(5) = “5” I want my List Box to display the Table data from which the user can select an entry as follows:12345

  When setting your Display setting to above  100% Paged Grids and Paged Boxes were not being displayed properly.  Rows at the bottom were being cut off. Solution: Windows 10 has remedied this situation. Windows 10 automatically adjusts the font needed to render your display appropriately, even when you choose to set the DISPLAY above 100%. Tested using Windows 10 Enterprise Version 1903.     

Problem:   A program stops with fatal error: Error 115 Unexpected signal (Signal 4) on SUSE or Red Hat Linux running on s390 (i.e. z/390 or IBM 390) hardware, when the program is compiled to executable or .gnt or .so. Solution:   Modify the COBOL source code so invalid data is not used, including making sure data items are initialized before being used, or as an alternative, compile with the compiler directive SIGN-FIXUP   Consider this example program: 000001 program-id. cd1. 000002 environment division. 000003 configuration section. 000004 data division. 000005 000006 working-storage section. 000007 01 WS-CAS-ID PIC S9(8) COMP-3. 000008 01 WSH-HOLD. 000009 05 WSH-PREV-CASE-ID PIC S9(8) COMP-3. 000010 000011 procedure division. 000012 move 1 to WS-CAS-ID 000013 IF WS-CAS-ID = WSH-PREV-CASE-ID 000014 display "is equal" 000015 ELSE 000016 display "not equal" 000017 END-IF 000018 . 000019 000020 goback 0000

I have my application created in Visual COBOL 6.0 and trying to run into COBOL server 4.0. Both installations have different CBLRTSM.dll pointing to 6.0 and 4.0 respectively. While running an application getting below error "Dynamic binding error on runtime entry point _mfgmain2 in module mymodule.dll. An attempt was made to bind to a run time library for Visual COB0L version 4.0 but that library does not meet the necessary dynamic binding requirements. The dynamic binding for this module requires at least version 6.0 of Visual COBOL runtime library CBLRTSM.dll"  Kindly assist.

Technical expert Blair McDonald from Micro Focus provides an overview of the installation process for products associated with using COBOL inside Docker containers. Watch the full video here. #Videos

We're experimenting with Docker and deploying in images build artefacts created from Visual COBOL 5.0 for Eclipse for Windows.  We're using Git/Bitbucket for source code management and Nexus Pro to store build artefacts.  We use Bamboo for build and deploy.  I noticed some build outputs that we are including in Docker and storing in Nexus and wonder if they truly need to be deployed.  I would appreciate reading your opinions regarding the following file types:.lst file - who looks at listing these days?.obj -  if we always produce dlls/exes in our build,  do we need to deploy obj files?.idy - nice to have, but with 2000 COBOL programs, an expensive luxury? If we have all the branch source stored safely in Git, is it better to create debug files on demand as needed? obj.1.tlog - what is a tlog file and why do I care? Thanks!#.idy#COMPILER#Windows#Eclipse#docker#CompilerOptions#Build#.obj

Hi,In the past it was normal tu use > to redirect DISPLAYs to a file like runcobol myprogram > myoutput.txt, but this is not working anymore under Windows. Is it possible to redirect the output to a file on Windows like on Linux?Regards, 

I'm an old geezer, did a lot of COBOL in 70's and 80's. I'm now going through the sample programs and accompanying documentation in learncobol_visualstudio.zip I downloaded from microfocus.Is there an easy way to report errors I've found (in the documentation not the programs) to microfocus ? I'm about to say the heck with it.

We are trying to improve safety by adding encryption to communication between acuthin and acurcl in a linux environment.I have included two new lines in the runtime configuration file given in the acurcl.ini file:<Alias><rcl:Alias-Name>661der3</rcl:Alias-Name><rcl:Cobol-Program>/home/PGMG/A01LI.COB</rcl:Cobol-Program><rcl:Configuration-File>/home/D/XYZ/CONFIG.LINUXWIN</rcl:Configuration-File><rcl:Working-Directory>/home/D/XYZ</rcl:Working-Directory></Alias>The two lines added to CONFIG.LINUXWIN are:THIN_CLIENT_ENCRYPT  1EXCRYPTION_SEED  ABCDEFGIs it the right place? I read something about client.cfg, but we use different configuration files for each alias.How do I test that encryption is working? #encryption#Acuthin

Halfway through 30-day MF Cobol trial and late yesterday Sample Airport application stopped working and yielded error:Airport Console Application (incompatible) - Not installedAirport Link Library (incompatible) - Not installedI brought this project/solution into Visual Studio and have been running it fine for 15 days.Likewise, I built a simple Hello World Cobol application that was working fine and that too yielded an incompatible error message yesterday.   Please advise.

I'm tasked with migrating some custom NetX 5.1 native Cobol applications to Visual Cobol 3.0 using Eclipse IDE.When running an executable outside the IDE, I receive the following error:Load error: file <executable-path>\\cblviom.dllerror code: 164, pc=0, call=1, seg=0164 RRun-Time subprogram not found.I do have the system and account Path Environmental pointing to the both the \\bin and \\binn directories.I moved the cblviom.dll to the application directory to no avail.This is a 32-bit program with the project settings directives as: IDXFORMAT"3" ODOSLIDE

some knows what this means?I get it while debugging ...

When using the saveasfixedformat function to save an excel to pdf, it always gives an error when executing.How must it be defined for it to work?The parameters in Vb are**[Class: @_Worksheet] ExportAsFixedFormat* METHOD, 2493, @ExportAsFixedFormat,* "XlFixedFormatType" @Type, TYPE 3,* "VARIANT" @Filename, TYPE 12,* "VARIANT" @Quality, TYPE 12,* "VARIANT" @IncludeDocProperties, TYPE 12,* "VARIANT" @IgnorePrintAreas, TYPE 12,* "VARIANT" @From, TYPE 12,* "VARIANT" @To, TYPE 12,* "VARIANT" @OpenAfterPublish, TYPE 12,* "VARIANT" @FixedFormatExtClassPtr, TYPE 12* OPTIONAL 8 The parameters that I am using in acucobol are modify hexcelbook @ExportAsFixedFormat ("xlTypePDF","c:\\tmp\\test.pdf","xlQualityStandard")or modify hexcelbook @ExportAsFixedFormator (BY NAME @Type = "xlTypePDF" BY NAME @Filename = "C:/TMP/TEST.PDF")&nbsp

When I debug and add items to the Watchpoints Window no values show up under Value in the window.The condition functionality works though. If I add a condition and that condition is met, execution will stop. But I still can't see anything under Value.If I add a Watch Window I see the values just as you would expect.It seems this behaviour started in VC 6.

Microfocus Visual Cobol for Eclipse, destination Tomcat 7.0 on RHEL 6.10.I have tried the tutorial Visual Cobol as SOAP webservice (Book) and it works fine.I try now to have one of our Cobol to work and it does it partially:The program itself runs but into it I do a call to an external logging module which is in another directory.This external module is deployed as .so file and works if I use it from a standard Cobol test program (executable) on the server.I added the library path LD_LIBRARY_PATH at start of Tomcat and as JAVA_OPTS="-Djava.library.path=/data/mylibrary".If I do a CALL "coblog" USING... ON EXCEPTION ...return the LD-LIBRAY_PATH, this one seems correct but nevertheless, I get a return code " <faultstring>173 Called program file not found in drive/directory [coblog]</faultstring>".Can someone point me to where I should look for?#webservices#Linux#VisualCOBOL

I have an INT/GNT project in VC 6 (latest update) consisting of 78 cbl files. We all know that Visual Studio sometimes decides to make a rebuild even though it seems to the user that nothing has changed. And if you have a project with 78 files that will take about two minutes. But it is indeed strange that VS decides to make what seems to be a rebuild even if you make consecutive Runs.by pressing F10. Why is that?I would say that this started to happen in VC 6. I can't remember it happened in VC 5.If I set Build Action = None for all files except for the one I'm currently working with, the response is immediate, so that is one way to solve the problem.You may wonder why I include files that I'm not currently working with, but it is for easy access. I used to work the same way in Net Express and there you could decide if you wanted to recompile the whole project or not. There is of course a similar option in VS, but again, sometimes VS decides to make a rebuild whether you l