Rocket® Visual COBOL®

Hi, I need to be able to "trap" a mouse click event on a DataGrid and I have found the following VB code:- Private Sub DGV_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvMyDatagrid.MouseClick If sender.HitTest(e.X, e.Y).Type = DataGridViewHitTestType.RowHeader Then    sender.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2    sender.EndEdit() Else    sender.EditMode = DataGridViewEditMode.EditOnEnter End If End Sub Or if you prefer the following C# Code:- private void dataGridView1_MouseClick( object sender, MouseEventArgs e ) { DataGridView.HitTestInfo hitInfo = this.dataGridView1.HitTest(e.X, e.Y); if( hitInfo.Type == DataGridViewHitTestType.RowHeader ) {    this.dataGridView1.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2;    this.dataGridView1.EndEdit(); } else {  this.dataGridView1.EditMode = DataGridViewEditMode.EditOnEnter; }} Which I have converted

I want to color my tabpages using gradient colors. I got this example in Visual Basic:Public Class Form1    Dim a As Integer    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load        SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.DoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True)    End Sub    Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint        Dim formGraphics As Graphics = e.Graphics        Dim GD As Drawing2D.LinearGradientBrush        If a = 1 Then            GD = New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(Width, Height), Color.White, Color.FromArgb(0, 0, 222))        ElseIf a = 2 Then            GD = New Drawing2D.LinearGradientBrush(New Poi

I use Visual COBOL for Visual Studio 2010, my problem is when I have two cobol programs the first calls the second but when the first program calls the second appears on the screen: Load error : file 'IncCl' error code : 173, pc-0, call=1, seg=0 173  Called program file not found in drive/directory  Please, I need one solution very fast, can anyone help me?  (One image to show the error are attached)

My company currently uses Net Express 3.1 and will be migrating to Visual COBOL within the next several months.  We use the SPZERO compiler directive on majority of the programs we migrated off the mainframe several years ago.  This is due to having spaces in numeric fields on the old mainframe data files.  At the time of migration, it was better to use SPZERO than to modify the files/programs.  I read in the Visual COBOL documentation that SPZERO has been deprecated and is not supported in Visual COBOL.  Is there an alternate way to accomplish the same behavior as SPZERO in Visual COBOL? Thanks,Ben#VisualCOBOLautoscalemodescreenresolution#COBOL#netexpress

Dear forum members, With my AcuCorp AcuCobolGT runtime (v7, v8 and v9) I create email messages with attachments. These go directly to Outlook (through a generated outlook.def) and to bypass the warnings of Outlook I use a product called “Redemption”. My question is the following, when I would switch to Visual Cobol (managed and / or unmanaged) is it necessary to still keep using Redemption, to not get the warning from Outlook, or can I just create and send emails from Cobol  through Outlook without getting the warning window?

Hi, I'm new to Visual Cobol (I have Version 2.1 Upgrade with Visual Studio 2012 running in Windows 8). In Net Express I used an OO program to call registered COM objects. Using VC (Form Designer) I have made references to these objects: They are described as Interop.ObjectName, Type ActiveX. But, I haven't found any explanation or instructions on how to code  these objects and call their entry points. I'd appreciate some help on the subject.

When I try to run my application I'm getting a 173 error on DSGRUN.  Where can I find the documentation for deploying Dialog System runtime for Visual Cobol?

The problem about create coverage report. I have a error when I create coverage report again after the source of program has been modified.The error is [TC041E Matching source file not found.Program MUSJ2401. NOTE no source code available].But the MUSJ2401.idy is in the current path which is I run the [cobtcreport tcresult.tcz].And I can create thereport at the first time.When I modified the source and create the report again,the error has occured.The .idy file copy from the same path.The default.tcf is[RESULT /home/admin/workspace/A20130501/unittest/coverage/tcresult.tcz]. Who can tell me why? My operation flow is [compile COBOL program]-[compile JVM COBOL program for test]-[run the JVM COBOL]-[create report](OK)-[modified COBOL program]-[compile COBOL program]-[compile JVM COBOL program for test]--[run the JVM COBOL]-[create report](error has occured) The screen copy[admin@rhcs32 coverage]$ lltotal 1692-rw-rw-r--. 1 admin admin 1434 May 7 16:05 default.tcf-rw-rw-r--. 1 admin admin 27

We have a hybrid application that runs both native and managed functions from a native menu.  The first program run is managed.  I want to start a message loop in this program then show each managed form with the Form::Show() method.  When I execute Application..Run(ApplicationContext) in the debugger the output window displays "Step into: Stepping over non-user code 'System.Windows.Forms.Application.ThreadContext.ThreadContext'" and it just hangs. This is my code:  class-id. Mgload as "Mgload.Mgload".       method-id Startup static attribute STAThread()       local-storage section.           01 context type MgLoad.MyApplicationContext.       procedure division.           set context to new type MgLoad.MyApplicationContext         &nbs

hi all, Is there a way to let know MF plugin (enterprise Developer for Eclipse, actually) taht files w/out extensions are INCLUDE files, and they should be treated as copybooks. Ive tried to add type (eclipse eindows->preferences->general->content types-> text->microfocus project types-> cobol copy book) but it doesnt allow.. Thanks in advance, Alex#eclipseMFcobolcontenttypewithoutextension

I called a native COBOL program in a junit JVM COBOL.(CALL "SS2401" USING SS2401-IN)But when I run the JVM COBOL in the command line,there is a error.[Called program file not found in drive/directory (173)]I already set the path of native COBOL up in the $COBPATH,$PATH and $CLASSPATH and runned the cobsetenv script to set up my environment.And in the path of native COBOL's folder ,there are SS2401.so and SS2401.o files. Thanks! **********************************************************************[root@rhcs32 bin]# java org.junit.runner.JUnitCore junit.SS2401_testJUnit version 4.8.2.E.ETime: 0.157There were 2 failures:1) test1(junit.SS2401_test)com.microfocus.cobol.program.COBOLProgramNotFound: Called program file not found in drive/directory (173) [SS2401] at com.microfocus.cobol.program.Control.callReturningObject(Unknown Source) at com.microfocus.cobol.program.Control.call(Unknown Source) at junit.SS2401_test.test1(SS2401_test.cbl:153) at sun.reflect.NativeMethodAccessorImpl.invoke0

Build JVM COBOL by ant I had a problem when I build a JVM COBOL(JUnit test) by ant(ant -lib $COBDIR/lib/mfant.jar -f .cobolBuild).**************************************************** [cobol] [cobol] Compiling SUSJ2401_test.cbl... [cobol] ** COBCH1561S JVM support not found: Possibly the type info helper classes were not on the classpath : /home/admin/workspace/Test_RXSub/src/junit/SUSJ2401_test.cbl(0,1,0) [cobol] cob32: error(s) in compilation: /home/admin/workspace/Test_RXSub/src/junit/SUSJ2401_test.cbl [cobol] Compilation complete with 1 errors, 0 warnings, 0 notices and an exit code of 16*****************************************************I set the CLASSPATH up in the environment(RHEL6.1) and the script(.cobolBuild). But the build still failed.Have I missed anything? Thank you! environmentexport CLASSPATH=.:/usr/java/jdk1.6.0_29/jre/lib/resources.jar:/usr/java/jdk1.6.0_29/jre/lib/rt.jar:/usr/java/jdk1.6.0_29/jre/lib/jsse.jar:/usr/java/jdk1.6.0_29/jre/lib/jce.jar:/usr/java/jdk1.6.0

Dear Experts, I'm writing this letter in order to enquiry about if Visual COBOL 2.1 for Eclipse on Windows provide CICS support. The COBOL applications used to run on IBM AIX TX Series. I would be most appreciative of any information you could give me in this regard. Best regards, Shulian Yang.

Build Pro*COBOL project by an Ant script in RedHat Linux 6.1 I uses an Ant script(.cobolBuild)to build my Pro*COBOL projects in RedHat Linux6.1(32bit). And when I build it in command line mode ,a problem [[cobollink] ld: /usr/lib/gcc/x86_64-redhat-linux/4.1.1/32/crtbegin.o: No such file: No such file or directory]had occurred.In my environment the gcc's path is [/usr/lib/gcc/i686-redhat-linux/4.4.4].How can I change the path from [/usr/lib/gcc/x86_64-redhat-linux/4.1.1/32/] to [/usr/lib/gcc/i686-redhat-linux/4.4.4]? OS:RedHat Enterpise Linux V6 UPDATE1 IDE:Visual COBOL for RedHat 2.1 Thank you. Build Log:[admin@rhcs32 SampleMain]$ ant -lib $COBDIR/lib/mfant.jar -f .cobolBuildBuildfile: .cobolBuild [taskdef] Could not load definitions from resource net/sf/antcontrib/antlib.xml. It could not be found. os.init: os.init.windows: os.init.unix: init: init.New_Configuration: init.all.configurations: cobolbuild: [taskdef] Could not load definitions from resource net/sf/antcontrib/antlib.xml. I

I wrote a COBOL program（use Oracle DB) by visual COBOL2.1.I can run it with the following directives.(p(cobsql) CSQLT=ORACLE8 MAKESYN VERBOSE KEEPCBL END-C p(cp) ENDP LITLINK). Then I want see the test coverage.So I add the keyword "TESTCOVER" to the directives.(p(cobsql) CSQLT=ORACLE8 MAKESYN VERBOSE KEEPCBL END-C p(cp) ENDP LITLINK TESTCOVER ). But it didn't work.Some errors had happend.If I wirte the directive like this ( p(cobsql) CSQLT=ORACLE8 MAKESYN VERBOSE KEEPCBL END-C p(cp) ENDP TESTCOVER ),then the coverage is ok and the DB connection is failed.#COBOL#VisualCOBOL#Eclipse

I'd like to submit some articles for the Wiki but the Wiki pages on the site seem to be gone? My questions are: - Have they gone for good? - How would I go about submitting articles for the Wiki?

Problem In Visual COBOL 2.1 Hotfix 2 a new OpenESQL directive called sql(date=external) was added to allow for the date format to use when accessing an Oracle database to be set using the environment variable NLS_DATE_FORMAT. This was working fine in Hotfix 2 but after upgrading to Visual COBOL 2.1 Update 1 this no longer appears to be recognized and the following error occurs: COBCH0801 : Compiler directive SQL(DATE = EXTERNAL) is invalid or badly sequenced - all SQL statements ignored. What happened? Resolution Development has added a new directive called sql(OPTION=PROCOB) which needs to be set if the DATE=EXTERNAL directive is to be used. Actually when setting OPTION=PROCOB on it will automatically set the DATE=EXTERNAL behavior on so the DATE=EXTERNAL is no longer required.  

Problem Customer is moving from Net Express 5.1 native code to Visual COBOL 2.1 managed .NET code and they need to know what database driver should they use in order to access their SQL Server database. Resolution: In Visual COBOL you can create three types of applications each as 32-bit or 64-bit. 1. Native code, which includes int/.gnt and native Windows .EXE/.DLL formats or native Unix/Linuz executables and .so files. 2. Managed code .NET on Windows, .EXE/.DLL assemblies which run under the .NET Framework Common Language Runtime system. 3. Managed code JVM on Windows or Unix/Linux, generates Java .class files that will run under the Java Virtual Machine platform. The type of database driver that you use depends upon the type of executable you are running. Native Code = ODBC DriversManaged .NET = ADO ProvidersManaged JVM = JDBC Drivers These are not interchangable so if you are moving from Native code under Net Express to managed .NET code under Visual COBOL then you must change

Problem A customer has noticed that on a rather large indexed file, the performance seems to suffer when reading sequential through the entire file. Is there a way to increase the performance of indexed file I-O when doing sequential reads? Resolution: They might look into using the extfh.cfg option called NODESIZE.This controls the size of the index nodes that are used for a file when it is created. The larger the value, the more keys that can be stored into a single node and this can speed up sequential processing quite a bit. In a recent test when reading sequentially through an indexed file containing 8 million records, the following timings were achieved by setting the NODESIZE and recreating the file: NODESIZE     Timing1024                3 mins 55 secs4096                3 mins 03 secs16384   &nb

Problem Customer has an indexed file that has several alternate keys defined.They noticed that the performance of the file I-O seems to get worse as they add more keys. Is there anyway to improve this performance? Resolution: There is an extfh.cfg option called INDEXCOUNT that can help to improve performance when a large number of keys are defined for a file.For example, in a test where a file was being created with 8 million records the following results were found:2 alternate keys =   5 mins 48 secs3 alternate keys =   6 mins 19 secs4 alternate keys =   6 mins 29 secs5 alternate keys = 30 mins 08 secsSo the access time gets a little slower with each additional key until the file handler reaches a point where the performance suffers tremendously.The INDEXCOUNT option controls the number of index nodes that will be cached for the file.The default value in Visual COBOL is 32 but you can get better results when using a large number of alternate keys if

Problem Customer is running a large batch process that performs a lot of file I-O on indexed files and they would like to know if there is an option available that would help to speed up the performance when reading these files. Resolution: They might want to look at using sharing modes for their file processing.Sharing modes inform the file handler how others will be accessing the files while the current process is accessing the files. The default is that the file handler assumes that files open for input or i-o will be sharable by all other processes. This means that the file handler has to be constanly checking to ensure that the file has not been updated by someone else since the last time it was read and this can be time consuming.This is true even on a standalone single-user system where the file is not being shared. By setting a sharing mode to allow no other then this will give you exclusive access to the file and the file handler will know that the file will not be changed by

Problem Does anyone have an example of sending an e-mail including an attachment using Microsoft Outlook by using a managed code .NET program? Resolution: Here is an example:      $set ilusing"System.Net.Mail"      $set ilusing"System.Net"           $set ilusing"Microsoft.Office.Interop.Outlook"       program-id. Program1 as "testemail.Program1".       data division.       working-storage section.       01 oApp type Microsoft.Office.Interop.Outlook.ApplicationClass.       01 omsg type Microsoft.Office.Interop.Outlook.MailItem.       01 oAttach type Microsoft.Office.Interop.Outlook.Attachment.       01 oRecips type Microsoft.Office.Interop.Outlook.Recipients.       01 oRec

Hi, I have a question regarding Visual COBOL support under AIX.Does Visual COBOL run under IBM AIX 5.3? Thank you.Best regards, Shulian Yang.

Hi, I display images on a windows form using the following code:- set picView::"Image" to type "System.Drawing.Image"::"FromFile"(ws-string) However if this form is repeatedly loaded displaying different images the pc memory goes up and up until eventually i see an out of memory error. So found this:- http://msdn.microsoft.com/en-us/library/system.drawing.image.dispose(v=vs.90).aspx Which I assume gets converted into cobol code as follows:- invoke self::"Dispose"() Which I put straight after the "set picView::"Image" to type "System.Drawing.Image"::"FromFile"(ws-string)" line. Is that correct and will it have any other effect? Kind regards Neil.

Problem Unable to execute JAVA class or a COBOL JVM class on a UNIX machine.  Resolution This simple example demonstrates how well Visual COBOL and JAVA can integrate. It covers the core subjects of CLASSPATH, PACKAGES, BUILDING JAR files and executing programs. This will show you how to do this by using three programs on a test stub that invokes a JAVA program and a COBOL JVM program. This will also use some jar files created on a windows machine as well to show that the jar files are portable which is as they should be. For all programs and scripts needed for this example, click the link and save as < jar-002.tar > Setup build and run example mkdir test cd test # mv jar into test or point to were you downloaded the file. tar -xvf jar-002.tar cd jar ls setup.sh unixbld unixjar winjar You will need to change setup.sh to point to your java version and your Visual COBOL version. setup.sh # # set up java version # #JAVA_HOME=/usr/java/jdk1.7.0_03 #export JAVA_HOM