Rocket® COBOL

[Migrated content. Thread originally posted on 04 February 2011]In Visual COBOL R3:Setting a value$ilusing "System.Web"$ilusing "System"01 myString String.......set myString to textBox1::Textset Self::Session::Item("VarKey1") to myStringRetrieving a Value:$ilusing "System.Web"$ilusing "System"01 myString String.......try    set myString to Self::Session::Item("VarKey1")catch    set LabelStatus::Text to exception-object::Message end-tryNOTE: The Visual COBOL R3 example makes use of a built in exception-object that is automatically generated to catch an exception in a Try-Catch block.In NetExpress for .NET:Setting a Value$ilusing "System.Web"$ilusing "System"01 myString String.......set myString to textBox1::"Text"set Self::"Session"::"Item"("VarKey1") to myString Retrieving a Value:$ilusing "System.Web"$ilusing "System"01 myStri

Original Question: VISUAL COBOL, .NET and Microsoft Office combined is a great opportunity for a little CRM by Cheesle [Migrated content. Thread originally posted on 04 January 2011] Considering that most COBOL apps store customer contact information one way or another, there should be nice opportunities for some CRM tooling, especially when we know how easy it is to interact with Microsoft Office using dot net in VISUAL COBOL.How about using Microsoft Word in conjunction with your customer database to mail a promo? All automatic of course To use the following source example;* Make sure you have a C drive, and write access to the root of it. Otherwise change all filenames in the source to your preferred destination.* Make sure you have Microsoft Office installed.* Start up Visual COBOL.* Select File | New | Project.* Choose COBOL, Managed, Console Application.* Enter name, Location and Solution name as desired or use the suggested values.* Click Ok.* You should now have gotten the sour

Original Question: How to set and retrieve a session variable for a current Web Form in ASP.NET - A simple example by MichaelB [Migrated content. Thread originally posted on 04 February 2011] In Visual COBOL R3:Setting a value$ilusing "System.Web"$ilusing "System"01 myString String.......set myString to textBox1::Textset Self::Session::Item("VarKey1") to myStringRetrieving a Value:$ilusing "System.Web"$ilusing "System"01 myString String.......try    set myString to Self::Session::Item("VarKey1")catch    set LabelStatus::Text to exception-object::Message end-tryNOTE: The Visual COBOL R3 example makes use of a built in exception-object that is automatically generated to catch an exception in a Try-Catch block.In NetExpress for .NET:Setting a Value$ilusing "System.Web"$ilusing "System"01 myString String.......set myString to textBox1::"Text"set Self::"Session"::"Item"("VarKey1") to myString Retrieving a Value:$ilusing "System.Web"$ilusing "System"01 myString String.01

Original Question: C#/Java COBOL interop made easy with SmartLinkage - please give us your feedback by Paula Willis [Migrated content. Thread originally posted on 19 September 2011] COBOL has one of the most extensive type systems of any programming language. Other languages only support a subset of the types COBOL has to offer, which has made it difficult to access data in existing COBOL applications, without code changes or writing wrapper classes.SmartLinkage is a feature that was added in Visual COBOL R4 as a “Technology Preview”, to offer an instant solution.This makes COBOL linkage data access easy from other managed languages, such as C#, Java, VB, COBOL. We’d like your feedback to help us define the way forward. What would you like to see in terms of usability and functionality?SmartLinkage - what does it do? Prior to R4, if you wanted to call a COBOL program from another language, you had to create wrapper functions to convert the COBOL data items to managed types. SmartLinkag

[Migrated content. Thread originally posted on 13 October 2011]The third article – on COBOL “standing the test of time” is on the blog, and will go into next month’s In Focus, which you can find here...http://blog.microfocus.com/cobol-standing-the-test-of-time/1254/

[Migrated content. Thread originally posted on 26 October 2011]Hello, I have found a sticky problem working with Visual COBOL R4, regarding the ACCEPT behavior. When we usually execute an ACCEPT with UPDATE, we see the field contents while editing, but we are not able to see them when we are working with Visual COBOL.I have tried 'Adis Configuration Utility' in order to change that configuration but, unfortunately, with no results at all.Could you please give any clues to deal with this problem?Thank you

[Migrated content. Thread originally posted on 16 December 2011]A maintenance update to Visual COBOL R4 is now available.Further information on the release is available here.

[Migrated content. Thread originally posted on 19 January 2012]The Visual COBOL webinar series will be starting next week (Thursday 26th January 2012), with 'understanding the basics'.Highlights include:* Understand more about Visual COBOL* Discover the upgrade path to Visual COBOL* Engage with the product team* Be in with a chance to win Amazon prizesRead the blog for more information and register to attend.

[Migrated content. Thread originally posted on 20 February 2012]We have created two new Upgrade Guides will be of interest to you if you are upgrading (or thinking of upgrading) to Visual COBOL from an older Micro Focus COBOL development system. The Upgrade Guides, one for upgrading to Visual COBOL for Eclipse and another for Visual COBOL for Visual Studio, highlight the differences between the old and new products, offer solutions on how to keep your applications working in the same way as before, and introduce the new concepts and features of the Integrated Development Environment.The Upgrade Guides are available from the Product Documentation page on the Micro Focus web site. To access them:1. Go to http://supportline.microfocus.com/productdoc.aspx.2. In the three drop-down lists, select Micro Focus Developer - COBOL and Software Developer Tools > Visual COBOL 2010 > R4 Update 2.3. In the Upgrade Guides section, click the PDF icon for the guide you are interested in.We expect

[Migrated content. Thread originally posted on 07 June 2012]The fourth webinar in the Visual COBOL webinar series, A developer's perspective - Windows & .NET, is now open for registration.WhenThursday June 21 2012 8:00 PDT / 11:00 EDT / 16:00 BST / 17:00 CESTFind out more information and register to attend

How can you add an Excel graph to a DS form to be able to change the values and for the graph to be updated automatically I think there is an option with OLE2 controls but I am not sure how to update the values. Another option would be to use ACTIVEX (I think) Thank You

The important factor is the Excel document is shared. We have inserted data into non-shared docs by defining a range of cells (A:LastCol) and using an insert method including 'movedown' parameter so the effect is to insert a row. The shared document is not allowing this method. We are struggling to find the syntax that equates to 'Insert a row'. e.g. Tied the following (one at a time!):            MODIFY hndWrkSh Range(WS-CELL-RANGE)::Insert(-4121)            MODIFY hndWrkSh Range(ws-row)::Insert(xlPatternDown)            MODIFY hndWrkSh Range("A5:A5")::Insert(xlInsertEntireRows) Can anyone help? David#InsertRowExcelShared

Hi all, I working on project in Net Express 5.0 where I need to work with a data base created with IBM DB2 (v 9.7) . Does any one know how to set up a new project and connect a data base created with DB2 step by step ? Thanks a lot !

Hi All, is there any way to call a function from a .net DLL with a cobol program? We use Net Express version 3.0 and Visual Studio 2010. Thanks for helping me.Bischof#.netdllcobol

Thanks to all those that attended the fourth webinar in the Visual COBOL webinar series. Here is the transcript from the question and answer session at the end of the webinar. I will share the recording of the webinar as soon as it is available. Q. Which book would you advise to start with .NET (and I can buy it on Amazon.com)? A. Though we haven’t read it here at Micro Focus, we have recommended ‘Sams Teach Yourself Visual Basic 2010 in 24 Hours Complete Starter Kit’. This could be good to get you up to speed with OO programming in C# - Beginning C# Object-Oriented Programming. Q: Is there a conversion option from GS Dialog system to a WPF application to expedite the adoption of Visual Cobol?  A: There isn't a conversion tool, today; however, there are some new product features to help. First of all, Dialog Systems applications can be compiled and debugged inside Visual Studio 2010 using Visual COBOL; Secondly, depending upon the complexity of your Dialog Systems application, yo

Users run on a terminal server. I have run cblcored from different users and see that they set the same entry under HKLM namly 2 for the key core_on_error. No dumpfile exept mfdebug.log is created - no cblcore. No other occurance of the key core_on_error can be found in the entire registry#terminal-server#Dump#cblcore

Hello, I have installed Visual COBOL R4 for Eclipse on my machine. I've created a COBOL JCM Project with a cobol source and its clause copy. When compiled eclipse returns the message "COBCH1552..."  the error is supposed been at the last line of the source code. At this line there is the EXIT of the last paragraphe. There is nothing particular. I didn't find anything about this error on the web and the online documentation of Visual COBOL. here is the options of compilation that i've used in the project. The source code is a bit ancient. SHOW-DIRPARAMCOUNTCHECKANS85SWITCH-TYPE"2"REMOVE"TRACE"REMOVE"LAST"REMOVE"WAIT"REMOVE"CYCLE"REMOVE"SUPER"REMOVE"PRINTER" REMOVE"EOS"REMOVE"AS"REMOVE"UNDERLINE"REMOVE"DISK"REMOVE"ID"REMOVE"SCREEN"TRACECOMP-6"2"ADDRSV"COMP-6"COPYLISTLIST()OBJASSIGN"EXTERNAL"INDD"SYSIN"OUTDD"REPORT"INTLEVEL"4"NOQUERYCOPYEXT"CPY,cpy"DATAMAPPERFORM-TYPE"ENTCOBOL" Thanks.#COBCH1552

Hi, I am trying to compile to 64 bit mode using directive(P64) on 32 bit machine using Micro focus Net Express 5.1 from the command line. While compiling I am facing the error "06-R Read failure on input file. Not intermediate code or wrong version". Can anyone help with this issue or tell what might be problem, please? Command used to compile - COBOL c:\\sample\\pgm1.cbl /DIRECTIVES"C:\\sample\\COBOL.DIR" FYI - C:\\Users\\username\\Documents\\Micro Focus\\Net Express 5.1\\WORKAREA>COBOL c:\\sample\\pgm1.cbl /DIRECTIVES"C:\\sample\\COBOL.DIR"Micro Focus Net Express V5Version 5.104.0083 Copyright (C) 1984-2009 Micro Focus (IP) Limited.URN AXCGG/AA0/00000Object file-name [PGM1.GNT]:Source listing   [C:\\SAMPLE\\PGM1.LST]:Object listing   [NUL]:* Accepted - GNT(.\\)* Accepted - OBJ(.\\)* Accepted - DIRECTIVES"C:\\Sample\\COBOL.DIR"* Accepted - APOST* Accepted - P64* Compiling c:\\sample\\pgm1.cbl* Checking complete with no errors - starting code generation* 006-R Re

[Migrated content. Thread originally posted on 29 May 2012]We have a fairly complex COBOL routine to perform business logic that we want to call from JAVA. The COBOL routine uses 3 parameter blocks which are defined as COBOL group item records. Some of these parameter blocks have multiple definitions (the one to use depends on what function is being requested). We have successfully created MF COBOL "Custom Record Interface" objects for one definition of each of the 3 parameter blocks and we have successfully called and passed this info into and out of our COBOL routine from JAVA. Thus far, each "custom record" has only had to describe COBOL elementary group items. However, to complete the set of interfaces, we need to be able to handle COBOL record definitions that include an array (OCCURS). The "custom record" documentation and other "calling COBOL from JAVA" documentation does not give examples or suggestions on how to handle these more complex

Hello, I am newbie on this forum and not speaking/writing well english, so don't hesitate to ask me more information if my text is not clear... I try to start fault finder using CBL_FFND_REPORT routine in my main cobol program inside an error procedure installed with CBL_ERROR_PROC, so that i can produce a report in case of system error (like error 114 or 173). Could you please expain me how to set the value of rtserr argument ? Is there any way to get de rts error code that launch the error procedure installed with CBL_ERROR_PROC ? Regards, Raphaël RABU.#fault_finder

Hi all Currently i compile my code using below option "CBLLINK SOURCE.CBL -D -RS " from Micro Focus Command Prompt directives are picked from cobol.dir placed in folder (Directory ) to get dll's. All goes well till here. I am facing an issue Runtime Error 119 on extsm. This occus on the second dll in an application that attempts to perform a sort. When i read documentation it says to avoid this do not to link system programs when building DLL's. i am unable to find an apt option to compile without linking system programs using cblink Thanks Cheeta#extsm

I started using a simple listbox but the data was never formatted correctly.  So I tried the List View control and this looks better.  I need two columns to hold the data.  Here is my code: method-id PopulateListbox final private. local-storage section. 01 SiteList.    05 SiteListDesc  pic x(40) value spaces.    05 Filler        pic x(2)  value spaces.    05 SiteListNum   pic x(4)  value spaces. procedure division.     if ds-return = spaces        invoke lbxSites::BeginUpdate        invoke listView1::BeginUpdate        perform varying idx from 1 by 1 until idx > 99            if lb-siteentry(idx) > spaces                move LB-SITEENTRY-DESC(idx) to SiteL

when specifying dump-file there is several options:1 The run-time system produces a core file when any exception is received that would normally produce a core file on the host system; for example, a run-time system error COBRT114, and so on.2 The run-time system produces a core file when any run-time system error occurs. After writing out the core file the process terminates immediately.3 The run-time system produces a snap shot core file when any run-time system error occurs. After writing out the core file the process continues as normal; for example, to display an RTS error message. 1 will rts continue or stop?2 I saw a note that this can corrupt files, any more info on this? This is default value with cblcored when choose dump-file with prompt3 difference between snapshot core and core (2 or 1)?#coredump

I am getting the above error with Visual COBOL 2.0 that I didn't get with Visual COBOL R4. What am I missing? Here's the line of code: invoke cmd::Parameters::AddWithValue("@comm_term_vesting_pct", Convert::ToDecimal(comm-term-vesting-pct)) where comm-term-vesting-pct is defined as Pic 9(9)V9(2) COMP-3. The error occurs whenever I try to convert to anything other than an interger or string. #VisualCOBOL

I can't find a way to make it possible to set the cursor-position in a multiline edit-box. Is there anybody who knows how to do that?