Rocket® COBOL

Work on a enterprise modified version of SLES11.4 (64-bit with enough 32-bit 'stuff' to allow 32-bit applications to run).  Am trying to upgrade the Oracle client from 11c to 12g.  The application is a 32-bit application.  I have the 32-bit Oracle client software installed.   When I run the makefile provided by the vendor to build the custom RTE, the process dies with an error stating that 'fstat' is a hidden object.  The system has the proper libc.so file to make 'fstat' (and a bunch of other stuff) visable.After using strace, I have noticed that 'make' is trying to use the 64-bit linker.  I don't know if this is the source of the problem, or a result of the real problem.   All efforts to force 'make' to use the 32-bit linker result in 'cob' blowing up with an 'invalid option' error (the invalid option is -m from -m32).If Blair McDonald  (@Blair) is available, he would know wh

In a managed COBOL program, I am using DateTime to insert time stamps, but I don't want the time format of HH:MM:SS AM; I want it in military time format with no AM or PM.  I have not been able to find out how to do this on the site.#datetime24hoursmilitarytime

I have declared in the working storage of my Windows form a numeric variable as follows:01 tmp-Num pic 9(10) I am trying to move the text from a text control to a numeric field variable a follows:   Set tmp-Num  to txt_CLNT-NAME-SELECT::Text. But I received a “cannot implicitly convert string to binary-doubled unsigned”. I type a 10 numeric digit in the txt_CLNT-NAME-SELECT but my form, it seems, is defining it as alphabetic characters. I only want numeric fields to be typed into the  txt_CLNT-NAME-SELECT::Text because I need to do calculation with it.

When I add an icon to a form in managed cobol. I'm getting a MissingManifestResourceException exception. It said 'Could not find any resources appropriate for the specified culture or the neutral culture. Make sure "AppForm.resources" was correctly embedded or linked into assemblies required are loadable and fully signed.'. Not sure how to embed or link the icon resource into the assemblies and make it loadable. Can someone help? Thanks! Sammy

I currently have the following array declared in my Windows Formclass-id TPS000.TPS0010DForm is partial                inherits type System.Windows.Forms.Form.       working-storage section.       01 multi-line string property occurs 12. The index for this array starts as (0) as follows:     (0) = 1st Element      (1) = 2nd Element      (2) = 3rd ElementEtc………Is there any way of forcing the index to start at 1 so that the elements are stored as follows:     (1) = 1st Element     (2) = 2nd Element     (3)= 3rd ElementEtc…Initializing the first index to 1 will make my program easier to code and to debug later on.

HiI have a customer that have 100 printer and it is very long to load the first that the runtime load the printer (30 sec) his there a way to load only the printer that the user need?I hope someone have a solution!Thank you  

Hi,I have completed a proof of concept task involving building Procedural COBOL as managed code and creating a COBOLjvm wrapper that binds/unbinds the DB connection and calls the now managed procedural COBOL.Having completed a Java test harness to call the wrapper successfully I now want to integrate the wrapper into our Java application and use the RunUnit class as it's a multi-user application deployed on a application server.Looking at the documentation and forum postings it seems you use either add/getInstance or call methods of RunUnit. The docs mainly refer to using SmartLinkage so any tips to the recommended approach when using a wrapper class would be much appreciated. I had thought of adding the wrapper to the RunUnit.  

 read more at microfocus Visual COBOL | Micro Focus   Visual COBOL bietet Ihnen unabhängig davon, ob Sie sich für Visual Studio oder Eclipse entscheiden, COBOL-Entwicklungs- und Integrationstools, die Ihr Entwicklungsteam beim Bereitstellen neuer Funktionen unterstützen....   Visual COBOL | Micro Focus   Visual COBOL fornisce strumenti di sviluppo e integrazione COBOL con Visual Studio o Eclipse, che aiutano i team di sviluppo delle applicazioni a distribuire nuove funzionalità....   Visual COBOL | Micro Focus   Visual COBOL proporciona herramientas de desarrollo e integración COBOL en la plataforma Visual Studio o Eclipse de su elección que ayudan a los equipos de AppDev a entregar nuevas funciones....   Visual COBOL | Micro Focus   Visual COBOL® предоставляет инструменты разработки и интеграции COBOL (Visual Studio или Eclipse — на ваш выбор), которые помогают командам разработчиков приложений предлагать новые функциональные возмо

I am getting a file error status 39 when opening an indexed file.I need to rebuild the file. Where do I get Rebuild.exe?Many thanksShirley

Hi,We are trying to use OpenESQL with an Oracle ODBC 32-bit DSN in our managed code.Connecting to the ODBC DSN is working fine in both Visual Studio Server Explorer and ODBC Data Source Administrator (32-bit).   However, I am not able to get it working with my managed Cobol program.What are the steps that need to be done in order  to use OpenESQL for an Oracle ODBC DSN connection?We have been using ProCobol in native code and just started to explore managed code using Winforms. Thanks!

I'm not sure whether this should be posted here as it's hardware related. Anyway, I've been experimenting with the use of function keys in native COBOL using examples in MF documentation. However the keys are not recognised by the program. When I input one of the defined keys I get the message: "That keystroke has no meaning here".I'm using a Dell XPS 15 which has dual-function F keys, and choosing whether to use F Keys as function keys (F1 ... F12) or for their alternative use is decided by holding down a special key on the keyboard. Now this has not worked - I've been into the BIOS and tried the alternatives to try and get it working but to no avail. As I say, it's probably a hardware problem but I wondered if MF had come across this problem and, if so, whether a solution was found.For info the example I have used is shown in https://supportline.microfocus.com/documentation/books/nx30books/ciadis.htm and section 2.6.5.1.Thanks for any feedback.

I am trying to specify the X and Y coordinates on my form and though I realize I can do this on the form’s property’s window, I would like to be able to do this in the program. I have the following code when the form loads:       method-id Form1_Load final private.       procedure division using by value sender as object e as type System.EventArgs.          set self::Location::X to '690'.         set self::Location::Y to '255'.        end method. This does not appear to work and I do not know why. The X and Y coordinates get reverted to some kind of default value. And this happens even if I specify the coordinates in the property’s window.  

Is there a way to display a form for about 5 seconds and then return to the program? What I am basically trying to do is to display a background form and then display another form on top of it (I do not wish to hide the background form until the user triggers an event on the second form). I therefore want to invoke the second from within my background form without closing or hiding the background form. I did this once with a Visual Basic form as follows:System.Threading.Thread.CurrentThread.Sleep(5000) But I do not know if there is anything remotely similar in Managed COBOL.

 read more at brighttalk Live Webinar: Visual COBOL 5.0 - DevOps & API-Entwicklung in der Cloud   Die neue Visual COBOL Version 5.0 ist da. In diesem Webinar stellen wir Ihnen die wichtigsten neuen Funktionen vor und zeigen Ihnen, wie Sie DevOps und API-Entwicklung in der Cloud optimal nutzen können. Die Highlights: • Integration des Anwendungsanal......   #APIEntwicklung#Webinars#VisualCOBOL#COBOL

Some weird behaviour which I cannot fathom.Given a simple program: identification division. program-id. environment division. configuration section. data division. working-storage section. 01 function-key-pressed pic 9(4). procedure division. stop run. end program. As typed in Notepad, all full stops appear. When I input to VC2019, by cut/paste from Notepad, the full stops are not reflected and I get errors - COBCH0143 Unknown IDENTIFICATION DIVISION paragraph .Strangely if I then cut/paste the code from VC to Notepad the full stops are there. Very strange

I have a Windows form with 12 label controls which I want to populate with information I have stored in an Array.  What I have currently is the following:        method-id TPS0010DForm_Load final private.       procedure division using by value sender as object e as type System.EventArgs.                              set lbl1::Text to LineArray(1)          set lbl2::Text to LineArray(2)          set lbl3::Text to LineArray(3)          goback.       end method. I suspect that a better way to do this would be roughly as follows:       method-id TPS0010DForm_Load final private.  &n

 read more at microfocus Tech Tips: Projecting COBOL into the future (pun intended)   Introduction: Using Projects To make the most of Micro Focus Visual COBOL and Enterprise Developer, developers are recommended to move towards a project based build system. Over the years I have spoken to a number of people who have kept their existing......   #AMC#SupportTips/SupportTips/KnowledgeDocs#Applicationmodernization#SupportTips/KnowledgeDocs#SupportTip#COBOL

I have Program A that calls Form1 (which will only display one table entry).  User puts in a search key, presses Search key, and the data is passed to Program B, which looks up the entry and returns that to Form 1.User may then press List button.  Control goes to Program B, which will then call Program C.  Program C reads through the database and fills an array with appropriate records, then attempts to invoke Form2 (list screen using data grid view).  However, it stops at  'invoke Form2 "NEW" returning anotherInstance' (I have to stop debug to end program).  Form1 remains where it is, and Form 2 never displays.  Not sure how to fix this...Program A -> Form1Form1 -> user presses Search button -> ProgramBProgramB gets data, returns it to Form1Form1 -> User presses History buttonto get list of all records with the record key -> ProgramBProgramB -> ProgramC builds array with data and invokes Form2Program

In Visual COBOL for eclipse we are facing the below issueIF (Variable-1 < 0) OR(Variable-2 < 0) OR(Variable-3 < 0)GO TO 500-FINALIZE.The PIC clause and value for the 3 variables are as below.Variable-1 (S9(005)V99)- 0000000 Variable-2 (S9(005)V99)- 0000000 Variable-3 (S9(005)V9(6)) - 00000000000 The above condition is set to true but actually, it is not.When we try SIGN-FIXUP compiler option it is working fine. Whether any other alternate solution is there for this issue?   

Silly question really but I can't find a way to add a watch point i.e. see contents of a variable in VC PE. I used to be able to do this in VC PE 2017 but, unless I'm missing something obvious, I'm at a a loss with VC 2019.Thanks

I am running visual cobol for eclipse 4.7 . When compiling programs with directories for example P1L/S25/A950/EXTRACT.cbl   --> the build  is successfully done but the building object does not keep the same directory name as the source and is  put in the the build library with the name EXTRACT   in stead of the whole directory name P1L/S25/A950/EXTRACT . Does anybody knows how to solve this issue?

Please see logfile

I've just installed VS 2019 Community Edition and, of course, my current version of Visual COBOL PE will not work with this VS version. When will a VS 2019-capable version of VC PE be available?Thanks

I am trying to pass a parameters from a Windows Form program to a regular program. For example. I have a TestForm.cbl which pertains to a form and looks roughly as follows in the solution explorer:TestForm.cb      TestForm.resx       TestForm.Designer.cbl This form is invoked by a regular program (program named is tps000.cbl) as follows:           set TestForm to new TPSSTART.TestForm()           invoke type System.Windows.Forms.Application::EnableVisualStyles()           invoke Testform::ShowDialog.  After the form is displayed, I want to be able to return a parameter or parameters back to tps000.cbl after the user has clicked on event/object on the form. For example, in the TestForm.cbl I have the following code:method-id TestForm_FormClosing final private.procedure division using by val

 read more at microfocus Tech Tips: Debugging COBOL code in Visual Studio - Breakpoints and Watchpoints   Introduction An important part of the software development and maintenance process involves debugging code to fix problems or develop new functionality. Setting breakpoints and querying and modifying data items are key features of the debugging environ......   #SupportTips/KnowledgeDocs#breakpoint#SupportTip#SupportTips/SupportTips/KnowledgeDocs#VisualStudio#watchpoint#COBOL