Rocket® COBOL

Animating our application program (using Net Express) we get this message: 173     Called program file not found in drive/directory - openXX   Running this application without animator this error does not occur. Question: is "openXX" part of Net Express? What can we do to correct this error?Thanks   

Hi, Currently our application is running on one server and a cold standby. All in Suse linux Anyone has experience with clustering visual cobol applications?   To be more concrete : I'm looking at multiple servers (at least 3) to be put in a multi-active cluster with shared filesystem (like ocfs or veritas). The cobol applications should then use the same shared filesystem for read write datafile manipulations. Some sort of load balancer in front of the applications. thanks.#COBOL#multi

Really I am aiming this question to Shaun at Cisco Software Limited. Like yourselves, we successfully used a version of winbmail to send binary attachments, mainly PDF files as emails linking to customers email servers using SMTP, and C$SOCKET. However, now we have a problem that receiving such emails into some email systems, e.g. GMail, the PDF files are supposedly corrupt. We as a company use GMail, but relay the files into Outlook. Within Outlook the files are fine. I have been looking at the code of program "csndml" and have noticed that some of the details passed are different to ours as follows: We send HELO, whereas your program sends EHLO. Could this be the reason why we are having issues? We do not send the following at all: INITIALIZE WRK-DATA-RECORD MOVE 1 TO BYTES-TO-SEND. STRING "X-Mailer: csndml - Sysco Software 01/08/2007" CRLF "Mime-Version: 1.0" CRLF DELIMITED BY SIZE INTO WRK-DATA-RECORD WITH POINTER BYTES-TO-SEND END-STRING PERFORM SEND-

Dear Sir, When we usin the RMMFDataMigration Project from Example of Visual Cobol for Visual Studio we get tweo ERRORs . Error 1 * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\HelpWin.g.cbl * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\MigrationForm.g.cbl * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\AboutWin.g.cbl * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\App.g.cbl * Compiling C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\obj\\Debug\\RMMFDataMigration_Content.g.cbl * Generating RMMFDataMigration.AboutWin * Generating RMMFDataMigration.App * Generating RMMFDataMigration.HelpWin * Generating CvnDelegate C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\MigrationForm.xaml.cbl (537,91-113) : error COBCH1713 : 'type System.IO.Path' has no visible static method 'DirectorySeparatorChar' with 0 parameter(s) C:\\MByB\\DESCARGAS\\rm2mf\\RMMFDataMigration\\MigrationForm.xaml.cbl

Hi, I know it is possible to access RM/COBOL indexed files from a Visual COBOL Console app and that this app can be called by a Managed VC app. But is it possible to use RM/COBOL indexed files directly from Managed code? If not, are you planning to add that support? It is crucial to move apps into Visual COBOL. Regards#RMCOBOLfiles#VisualCobolManaged

I'm having some trouble with .NET events either not firing, or not being caught by ACUCOBOL. I'm guessing it's something simple, but am stuck, and would appreciate any help. Environment: Windows 7 (64-bit) ACUCOBOL 9.2.1 (32-bit) .NET framework 4 (from which I'm using the 32-bit version for compatibility with ACUCOBOL) This example starts with the following files: acucobol.def (from the ACUCOBOL 9.2.1 samples for 32-bit Windows) acugui.def (also from the ACUCOBOL samples) DotNetBrowser.cbl (a COBOL program where the SCREEN SECTION contains a .NET control) MyWebBrowser.cs (a simple C# class derived from System.Windows.Forms.WebBrowser) test.html (an HTML5 document containing a few JavaScript functions) All of the above files are in the following directory: C:\\Windows\\Temp\\DotNetBrowser The COBOL code in DotNetBrowser.cbl is: identification division. program-id. Browser. *************************************************************** ENVIRONMENT DI

We are converting some GCOS (Bull) mainframe programs to work on a Microfocus platform. I have a lot of calls for this particular item. The variable is defined as pic x, and 0 is moved to it, Alphanumeric check. But in the mainframe code (in lots of places) this value is checked against zero (the word, numeric value). In microfocus COBOL this is false, but in GCOS it is true. If I change this: IF IN-STATUS NOT = ZERO GO TO 580-GET-OUT to this: IF IN-STATUS NOT = "0" GO TO 580-GET-OUT it works in Microfocus (probably for GCOS too, I didn't specifically check). The second statement is true in GCOS. Is there a setting for the program which will allow "0" to be checked against ZERO or 0?

what is the connection string to connect to a oracle database #odbCESQLconnectionstringdsn

It would make our life so much easier if we could inquire the tab-order value of a control.  If we can’t have that,  could you allow us to inquire the name of the control as a text field?  Either of these would be read-only of course.   The inquire would be a format 1 query:77  my-tab-order usage unsigned-short. 77 my-control-name pic x(30).INQUIRE { control-item } tab-order in my-tab-order.INQUIRE { control-item } name in my-control-name. Now the more difficult request.  Since you already have the control handles somewhere in the runtime’s memory, and the tab order in there too, allow me to inquire by the tab-order.  If that can be done then let’s take it one step further and allow me to modify controls using the tab-order instead of the handle. Here is an example of why either of these values would be useful…  Postal Codes aka Zip Codes.  If the tab-order were available:When a user enters the zip cod

I have this code working in VB.NET and I am migrating to VC2010. NET. Unfortunately I'm having trouble with this function. How would this code?     Sub Decrypt(ByVal Doc As XmlDocument, ByVal Alg As RSA, ByVal KeyName As String)        ' Check the arguments.          If KeyName Is Nothing Then            Throw New ArgumentNullException("KeyName")        End If        ' Create a new EncryptedXml object.        Dim exml As New EncryptedXml(Doc)        ' Add a key-name mapping.        ' This method can only decrypt documents        ' that present the specified key name.      &n

After showing the changed contents of a LISTBOX using REFRESH-OBJECT LB-MYLIST  I need to show that a certain row is the default value (selected item) To make this I use             SET-LIST-ITEM-STATE LB-MYLIST 1 1  After executing this statement the row appears in blue. This looks quite good and is what I need. But also the condition    ITEM-SELECTED    associated with the LB is activated. How can I avoid that, because ITEM-SELECTED (and ITEM-ACCEPTED) shall only be executed if the operator really selects an item with the mouse and not by the SET-LIST-ITEM Is using a different value than 1 in     SET-LIST-ITEM-STATE    a solution?  Which value must I use in order to only highligh the row? Thanks for any help.    Rolf#LISTBOXDIALOG-SYSTEM

Hello – we at Micro Focus are always interested in getting your feedback pertaining to new product enhancements.This is the first in a series of poll questions that we will be asking in order to gauge interest in certain proposed features to determine if you would find these features to be beneficial to your own application needs. Many thanks.[Poll]

Whether we can read/write excel from Netexpress?#cobolnetexpress#netexpress

I seem to be having an issue where controls and windows are not resizing when a user alters either the DPI scaling or the option that allows for making everything larger in Windows.  Is there something that I can do/detect/set ahead of time that allows for windows and controls to adjust properly which are created with the thin client?

I'm looking at the "Sample Web Browser Program" from the ACUCOBOL 9.2.2 "Programmer's Guide to the Internet". It compiles and works, but now I'd like to extend it with some event-driven interactions between JavaScript, VBScript, and COBOL. Assume the following HTML5 document:  <!DOCTYPE html> <html lang="en"> <head> <meta charset="utf-8"><title>HTML5 JavaScript VBScript Example</title><script type="text/vbscript"> Function vbFunction() document.write("vbFunction has been called") End Function </script> <script type="text/javascript"> function jsFunction() { document.write("jsFunction has been called") } </script> </head></body> </body></html> After the HTML5 page shown above has been loaded into the WEB-BROWSER control, is it possible for COBOL code to call the VBScript and JavaScript functions (vbFunction and jsFunction)? A C# example that shows how it might be

Another error: An exception of type 'MicroFocus.COBOL.COBOLRuntimeException' occurred in MicroFocus.COBOL.Runtime.dll but was not handled in user codeAdditional information: 198     Load failure [Program has an incompatible codepage dependency "ClassLibrary1.GET_ENVIRONMENT_VARIABLE" is using codepage Unicode (UTF-8) but the main program "ASP.logon_aspx" is using Western European (Windows) Please see documentation for more information.] I have opened LOGON.aspx in Visual Studio, selected Advanced Save Options in the File menu, and changed the character set to UTF-8. this was also done to all other cbl files in the solution. I also set the compiler directive SOURCE-ENCODING"UTF8" in the project. I am still getting the error on ASP.LOGON_aspx, which I am assuming is the generated aspx page. I am using the default asp.net server with Visual Studio 2010, if that helps.

I am creating a web application from files that I successfully created a web site with. I am creating new pages, and copying the bulk of the code to the web application. I am doing this because the pages are not successfully compiled because of the header information being different. I have gotten the code to compile in VS 2010 successfully, along with 3 assemblies. When I try to call one of the programs in the assemblies, I get an error: MicroFocus.COBOL.COBOLRuntimeException was unhandled by user code  HResult=-2146232832  Message=198     Load failure [Program not verifiable][Program "ClassLibrary1.GET_ENVIRONMENT_VARIABLE" is not verifiable, Initial Program "logon_aspx" is verifiable]  Source=MicroFocus.COBOL.Runtime  ErrorNumber=198  ErrorString=198     Load failure [Program not verifiable][Program "ClassLibrary1.GET_ENVIRONMENT_VARIABLE" is not verifiable, Initial Program "logon_as

Can this be used for cobol commands?  Example moving spaces to field.  Is so, can you please provide the syntax.  Here is what I have tried   move spaces to w-policy-num and here is the error that I get.....Error: Invalid expression (at 'spaces to w-policy-num') #VisualCOBOL

Hello All, I need you, i would like to say if Net Express 3.1 is certified on Windows server 2008? Thank you in advance

Does Server Express and Visual Cobol support Ingres Database on RHEL? What is the Pre-compiler to be used?

I am getting a compile error staing Invalid Function Name for INTERGER-OF-DATE and UPPER-CASE. They are valid according to the documentation. What is wrong with the code below? MOVE FUNCTION INTEGER-OF-DATE(WK-DATE-INTEGER)                          TO      WK-REPORT-ANIC-DATE-INTEGER. Move FUNCTION UPPER-CASE (PMLink-In-Payee-Name)                 To NPAY-NAMEThanks  

I have a class that inherits from an abstract class.  Inside of this class is an abstract method.  In the inherited class I want the abstract method to be private.  When I code override I get an error that says "COBCH0965: Overriding method must have visibility Public" and from my understanding of Visual Cobol is legitimate.  The question comes into play when I use the cobol keyword override it seems to build just fine.  Is this the intent?  Below is an example of the redefines code.       class-id Ufg.Life.Policy.PolicyAbstract abstract. method-id GetPlanCode abstract procedure division returning returningPlanCode as String. end method. *************** now for the class that inherits from the above class class-id Ufg.Life.Policy.InforcePolicy inherits type Ufg.Life.Policy.PolicyAbstract. method-id GetPlanCode redefine private procedure division returning returningPlanCode as String. end method.#VisualCOBOL

Attached is a simple class and a simple console application.  if you look at the TPMixed property it is a type String and the private variable that it points to is a String (doesnt' have Type in front of it).  What happens is when you try to set the property the value doesn't hold, in this case a null value is stored (default value for a string) instead of the value passed to the property.  If you run the attached console application you should see what I mean.   #VisualCOBOL

Hi guys, I made a sample project. NET using the datagridview object for to maintenance an isam file. I uploaded to my mailbox here in forum but I wanted put it in the area of files to download. How should I proceed? Link video: www.youtube.com/watch

Hello, I'm looking for some sample code about reading barcodes in format gs1-128 in a cobol program, but, at the moment i don't have anything. Anyone knows of some examples? Thanks afterwards#Barcode