Rocket® COBOL

[Migrated content. Thread originally posted on 01 November 2011]Using the same syntax as the sample in the manual. However when I go to update, I get "The cursor is READ ONLY".Doing this to read the record. EXEC SQL DECLARE COBCUR1 CURSOR FOR SELECT C_FIRST_NAME, C_LAST_NAME, C_CITY FROM CUSTOMER WHERE C_LAST_NAME = KEY-PASSED FOR UPDATE END-EXEC. EXEC SQL OPEN COBCUR1 END-EXEC. EXEC SQL FETCH COBCUR1 INTO :C-FIRST-NAME, :C-LAST-NAME, :C-CITY END-EXECThen after user makes changes, I do the following. EXEC SQL UPDATE CUSTOMER SET C_FIRST_NAME = :C-FIRST-NAME, C_LAST_NAME = :C-LAST-NAME, C_CITY =

The purpose of this article is to provide the reader with an example of how to read the RM file system from a native COBOL program and have it display on a managed WinForm.  We will thus cover two topics in this article, accessing RM files from native code and calling a native module from managed code. For a review of creating WinForm project please see the Micro Focus documentation. We will concentrate on calling the native module and the configuration of accessing the RM file system. Let’s begin by looking at our WinForm. WinForm The WinForm will display the data being read from the RM file. The information being displayed is basic contact information from a client file and appears as follows:   We’ll display the basic contact information of Account number, name and address for each record in the file. One of the key components to enabling the RM file access is defining the environment and to accomplish that we need to set a runtime environment variable. Setting Environment

[Migrated content. Thread originally posted on 27 October 2011]Hi,in NetExpress Help there are informations abouthow to create table, alter table, and othersin EXEC SQL .... END-EXECBut in Visual Cobol dont have any informations about this?CláudioBrazil.

[Migrated content. Thread originally posted on 19 May 2011]Hello,My internet browser went down when downloading the 30-day trial version of Visual COBOL. When I tried again, I received an error "You have reached the maximum number of allowed downloads.". Is there any way where I could download it again?Thanks

[Migrated content. Thread originally posted on 25 October 2011]Hello,I want to execute a system command from a native app which I am migrating from RM/COBOL for Windows. This execution in particular looks like this in RM: CALL "C$GUICFG" USING "System window type=hidden " Z9. STRING 'CMD /C/S ECHO ' MENSA ' >> \\VPC\\OUT\\ET' DELIMITED SIZE INTO MANDATO. CALL "SYSTEM" USING MANDATO. CALL "C$GUICFG" USING "System window type=show " Z9. C$GUICFG was used in this case for hidding the new window. Do you know how to obtain the same behaviour in the Visual COBOL version?Regards

[Migrated content. Thread originally posted on 25 October 2011]Hello,I have found a problem checking out hexadecimal values in a string. This issue makes that my application goes crazy. Look at the program below. What do you expect to be displayed? For both cases, the program displays "wcar(x) is equal to h'03'". *$SET CALLFH("ACUFH") *$SET RETRYLOCK *$SET RM"ANSI" identification division. program-id. Program1. environment division. configuration section. data division. working-storage section. 01 wentrada pic x(80). 01 wcontrol redefines wentrada. 03 wcar pic x occurs 80. 01 wind pic 99. 01 z pic x. procedure division. entry-point section. main-entrance. move 1 to wind. move 3 to wcar(wind). add 1 to wind. move H"03" to wcar(wind).

[Migrated content. Thread originally posted on 18 October 2011]Hello,I am testing the lock behaviour on Visual COBOL .NET, using RM/COBOL indexed files, so I have written a small program that has two options: read a register and unlock it.For my purpouses, I found that LOCK MODE AUTOMATIC fits the bill, but I haven't found a way reproduce the normal behaviour in RM/COBOL when I try to access the same row from two diferent programs at the same time. In RM, when I try to do that, one of the programs (the last who is accessing) stays waiting until the row has been released. How can I reproduce this in Visual COBOL?I have tried with the EXTFH file, like follows:[XFH-DEFAULT]LOCKTYPE = 1Regards

[Migrated content. Thread originally posted on 18 October 2011]Net Express 5.1/Windows XP Pro SP3File status codes do not appear to be being returned.I'm using standard code lifted straight from MF examples:file-control.         select artist-file        ....           file-status ws-artist-file-status        ....working-storage section.01 ws-artist-file-status.   03 status-key-1             pic x.   03 status-key-2             pic x.   03 binary-status redefines status-key-2                               pic 99 comp-x.... 01 file-error-message.   03 filler                   pic x(24)      value "Error processing file : ". &nbsp

[Migrated content. Thread originally posted on 17 March 2011]I'm trying to install the 30 day trial of the Visual Cobol, and when it was finished downloading, I received an error message about the internet explorer, and then the dowload box dissapered. When I tried downloading it again, I now get this message "You have reached the maximum number of allowed downloads.". How the heck am I supposed to try this out if I can't even download it?

[Migrated content. Thread originally posted on 17 July 2009]I know in IE7 you could NOT force the print preview to 100% - it always defaulted to Shrink To Fit. Is this still a problem with IE8? I have a customer who loves the HTML reports were are creating but hates the tedious process of resizing, choosing to print, etc. Is there a way using Extend 8 to get around all this? At the very least, does anyone know a way to force 100% on the print preview using IE8?Thanks :)

[Migrated content. Thread originally posted on 17 October 2011]Hello,Is it possible to regenerate a .psf file that has been deleted? I have the .src .srn .wrk .evt .rpt .mnu .lks files. I am using version 7.2Thanks!

[Migrated content. Thread originally posted on 10 October 2011]Hello,I am trying to compile a cobol program and have noticed that all the comp variables are being converted to comp-5 . I dont know why is this happening ? This may be a reason when I get strange results when I make third party API calls. Please notice that I have even tried the MAKESYN "COMP-5" = "COMP" and even that does not help. I have also included part of the listing for one of the program with variable STARTLOG-DVS-STATUS-1. Many comp variables defined within copy books are redefined as comp-5 as well on compilation. My program is NOT an sql program and has no cobsql directives.Can any one tell me what causes the comp-5 generation and how can I stop it.The only directives I have set areMAKESYN "COMP-5" = "COMP"VERBOSESHOW-DIRSETTINGSCONFIRMOVERRIDE "USER" = "BS2000USER"COPYEXT"cbl,,cpy,pco"ANIMCONSTANT TESTMODE(0)LIST()DATAMAPXREFI have below par

[Migrated content. Thread originally posted on 25 November 2008]Hi,Hopefully this is a simple question.How do you programmatically disable a menu choice? Using Modify doesn't seem to work: "modify MI-XX, enabled = 0" gives me the following error message-Undefined data item: MI-XXTHanks

[Migrated content. Thread originally posted on 28 September 2011]Hello everybody,We are trying to move our data files to an sql database environment, but we are having problem to create the connection with the sql server database.Someone can giveme an example to do it, please?Thanks

[Migrated content. Thread originally posted on 12 July 2011]In my programs I am unable to create more than 1 cursor to be used at a time. Is there a way to create a SQL View from within the program? Use the view in a SELECT statment then delete the view from the database when I am finished with it?The view is needed to speed up processing. It will include a SUM(invoice_amt) as SUM_AMT GROUP BY INVOICE_NO. Then I would query the view to get all WHERE SUM_AMT <> 0.Ideas anyone?

[Migrated content. Thread originally posted on 11 October 2011]Using Net Express 5.1/Windows XP Pro SP3.I have a program in which I'm dynamically allocating memory to contain a variable length table.Calling "CBL-ALLOC_MEM" works fine - I am able to populate the table and display its contents, as required.When I try to 'free' the memory I get a "252 Memory corruption detected (addr=xxxxxxx type 30/4)".The program stops - as shown in Animator - on the 'call "CBL_FREE_MEM"' line as shown: call "CBL_FREE_MEM" *> crashes on this line - memory corrupted using by value memory-pointer returning status-code if not status-code = 0 move "Failed to release memory" to message-line perform display-message stop run end-if.

[Migrated content. Thread originally posted on 11 October 2011]Hi I have a CICS MAP taken from mainframe and compiled it on microfocus to genrate Copybook.The contents of Copybook genrated on mainframe and microfocus are same, however following came to my noticeon Mainframe : 03 FILLER .PIC X(04).ON Microfocus Net express : 03 FILLER .............PIC X(04). ( NOTE SPACE BETWEEN FILLER AND PIC) This copy book is used some where we compare the string , the sebsequent program fails as they are formatted differently. is there any way on netexpress i can have copybook formatted in same way as on microfocus.ThanksCheeta

[Migrated content. Thread originally posted on 06 May 2011]Will the posts/threads from the old Acucorp Cobol forum be moved here? While this new forum was getting started we still used the old forum to get answers.Thanks

[Migrated content. Thread originally posted on 29 September 2011]Net Express allows define in Working-storage section array with maximal size 256 Mbyte.What limitation has MF VC R4 in this case?Thanks.

[Migrated content. Thread originally posted on 31 January 2011]HiHas anyone experienced a problem with Forms with a Dialog border (Property "Border=Dialog") showing differently in Windows 7 to XP/Win2000/98 etc? The problem we are seeing is an additional 4-5 pixels appearing at the bottom and right hand side of the form - making the form appear unbalanced and poorly designed! The additional pixels do not show in the WOW designer, only at runtime. The following screenshots show a form (with a yellow background) and a Group control filling all the form in the designer. When run in Windows 7, the result is completely different to the Designer and other Windows versions. You will notice that the runtime appears to add a small border (1 pixel) around the form in XP too - but at least it is balanced!licensing.mardak.co.uk/.../wowdesigner.giflicensing.mardak.co.uk/.../xp.giflicensing.mardak.co.uk/.../win7aero.gifWe have, literally, hundreds of these forms throughout our system and t

[Migrated content. Thread originally posted on 23 September 2011]Running VC R4 for Eclipse under Windows XP.I have imported 270ish green-screen programs to a single project and compiled them successfully. However, on trying to run them, the first program enters and runs up till the point where it calls the second program, when it fails with an error 173. There is an .exe for the second program in the same directory as the first program's .exe. I have compiled with target type "All executable files" and in the run configuration I have set up COBPATH and COBIDY to point to the appropriate Configuration.bin directory. I have "Program is part of project build configuration" unchecked and nothing in the working directory, and the entry program in Main Program. I suspect that there's some environment variable I've overlooked. Could anyone point me in the right direction?

[Migrated content. Thread originally posted on 06 October 2011]Ok can some one pls advise if this scenario is possible?I am using Visual Cobol & Visual Studio 2010.Can I create a Winform Visual Cobol project that can call a Visual Studio VB 2010 project with a call parameter and then return a different value which I can capture in the Visual Cobol project?ThanksNeil.

[Migrated content. Thread originally posted on 12 August 2011]Hi All,Just checking with Micro Focus is there any support for creating a WPF Browser Application in Visual Cobol, which I can then create COBOL code behind the various events?I can create a WPF Browser Application in the Visual Basic Installed templates but doesnt seem to be available in the COBOL templates.Many thanksNeil.

[Migrated content. Thread originally posted on 04 October 2011]Can a screen designed in VB dot net be used by MicroFocus Cobol? If so, how?Thanks.

[Migrated content. Thread originally posted on 05 October 2011]Currently we (Centric IT Solutions, division HR & Payroll Solutions in Amsterdam) use NetExpress 4.0. NetExpress 4.0 will not run on a Windows 7 machine (64 bits) as I heard. And shortly all our machines will be Win7-64 bits. So now we want to use NetExpress 5.1, as this version of NetExpress will run on Win7.Is NetExpress 5.1 backwards fully compatible with projects and files made in NetExpress 4.0?How do we get NetExpress 5.1? Who do we have to contact at MicroFocus to get NetExpress 5.1?What are the costs of this upgrade?We have five licences.