Rocket® COBOL

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

 read more at microfocus Tech Tips: Debugging COBOL code in Visual Studio – Data Items   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/SupportTips/KnowledgeDocs#SupportTips/KnowledgeDocs#COBOL#VisualStudio#breakpoints#debuggingcode#SupportTip

Advanced - Visual COBOL customer video - YouTube   COBOL deployment using Docker enables optimized server infrastructure, rapid time-to-market, and DevOps practices for Advanced.   Case study for Advanced: https://www.microfocus.com/en-us/case-study/advanced #CaseStudy

I am creating this safearray (for pass to COM object): move VT-BSTR to w-vartype move 1 to w-dimension compute w-y = a-x * 2 move w-y to cElements of w-saBound(1) move 0 to llBound of w-saBound(1) invoke OLESafeArray "new" using by value w-vartype w-dimension by reference w-saBound(1) returning w-accArray end-invoke move a-x to cElements of w-saBound(1) invoke OLESafeArray "new" using by value w-vartype w-dimension by reference w-saBound(1) returning w-modArray end-invoke initialize w-x perform varying w-Index from 0 by 1 until w-Index >= w-y add 1 to w-x move n'aaa' to acc-bank-acc-num invoke w-accArray "putString" using by reference w-Index by value 68

Hello-I support a payroll application that I need to make AcuToWeb compatible. It mostly is, but it currently uses the ActiveX control DtPicker for date entry. I have looked at the DATE-ENTRY control, and it does not suit our requirements because it will not support blank dates. Blank dates are essential to my application which includes many optional dates for termination date, leave start/leave end dates, deduction cutoff dates, ACH pre-notification dates.etc. We have to allow those dates to be 0 (blank).Has anyone else faced this problem, and if so how did you address it?Thanks for any suggestions.

PROBLEM If AcuToWeb is running with SSL enabled then AcuToWeb Desktop will not attach to the program when running in the Firefox browser.   RESOLUTION This is caused by a configuration option in Firefox that locks down web sockets when visiting a secure https:// URL To allow the connection between the program running in the Firefox browser and AcuToWeb Desktop, navigate to the following address in the Firefox browsers address bar: about:config   In the search bar of that page (not the browsers address bar) search for the following setting: network.websocket.allowInsecureFromHTTPS   Right click on this setting and click ‘Toggle’. The value should now be ‘True’ Now when visiting the AcuToWeb connection setup screen after starting AcuToWeb Desktop, it will attach correctly and be waiting for the program to start.   #TipfromSupport#HowTo

We recently moved from MF COBOL to Visual COBOL(Eclipse). When we were doing testing between MF COBOL and Visual COBOL we identified few differences in the extracts which are generated. In numeric variables the trailing zeros are missing in visual coboleg:MF COBOL: 9848300Visual COBOL: 98483Whether i need to change any compiler option, so that this issue will be solved?

Hi all,Hope you are having a good summer.I'm still a newbie when it comes to COM objects in Visual Cobol but I was hoping someone might be able to help me with calling PDFCreator.  I am unsure if I am adding it correctly as a Reference but the program code isn't giving any error.  Various .Net messages are popping up when I run the code, which hint at being unable to find PDFCreator or, more specifically, its various .dlls.  I have the ComWrapper in the class-id section plus some entries in $set -- maybe they aren't right though. I'm honestly all at sea as to how to get it to work. I can't seem to log in to the forum via any browser at work (but can view posts) so am using my home PC to post this message.  I'll try write more specific details tomorrow evening but if anyone has used PDFCreator from Visual Cobol before I'd appreciate if you could help.  Thank you!John

I am getting an error in Relativity:−4123Catalog invalid; item has a duplicate  presentation sequence value sequenceThe database catalog is invalid. Two items in the catalog have the same presentation sequence value. Item presentation sequence values are expected to be unique.What does this mean?  There is no explanation in the Help documents in the Relativity Designer except for the message above.

I have this data type01 aCharArray object reference.It's VT-BSTR. How to pass it to standard PIC X(n) variable?#nativecobol