Rocket® 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

I am trying obtain the location for the coordinates of my windows form in the program so that I may pass these coordinates to the next form. I want to be able to show a form in the same position as my previous form.  Doing this in C# is something like public System.Drawing.Point Location { get; set; }. But I simply do not know that the commands are in Visual Cobol. Thanks in advance for your help.

I have an old unmanaged/native application where I need to print a jpg image of a signature.   Is there a way to print the image in native code?

read more at Micro Focus Visual COBOL supports digital banking strategy and delivers 65% faster time-to-market   DIE SOFTWARE customer success! ... #CaseStudy#COBOL#VisualCOBOL

Does anybody know how to update the versions of your licensed products in your Product Profile in SupportLine?  We are running v4 but our Product Profile still says 2.3.

Hi,I'm running VC 4.0 with the latest patch and Eclipse 4.8 and have issues compiling/building the COBOL JVM project relating to copybook includes within the managed COBOL& wrapper classes which was converted from Native.If I create a new COBOL JVM project and select - import/import/File System and select the svn project to import into my workspace within Eclipse this physically copies all the relevant files and I can compile & build successfully.However if I select Advanced/Create links in workspace from the import wizard I get compile errors and build issues.I keep the create link locations to the default environment variable 'PROJECT_LOC' and all looks okay as the jvm packages/managed code is imported but I get 'COBCH0008S Unknown copybook' errors with the COPY statement even after I have assigned the copybook package within project properties.If I re-import the copybooks it seems to fix the issue, however it reappears after closing & opening Eclipse.