Rocket® COBOL

Hi, I have been using Microfocus NetExpress v3.10 for some time, and did some code in GUI-based (using GS) application with winAPI codes as follows; environment division.special-names.  call-convention 74 is winAPI. But lately I am coding with COM using "Add Class" wizard under MTS (Microsoft Transaction Server). From the given code (under wizard), where am I going to insert the above code?? The given code (from wizard) is listed below as follows; $set ooctrl( p)*>----------------------------------------------------------- *> Class description *>----------------------------------------------------------- class-id. newClass inherits from olebase. object section. class-control. newClass is class "newclass" *> OCWIZARD - start list of classes objectcontext is class "objectcontext" olebase is class "olebase" oleSafeArray is class "olesafea" oleVariant is class "olevar". *> OCWIZARD - end list of classes *>---USER-CODE. Add any additional class names below. *>---

Problem: How do I install the  Security AddPack for Server Express and Server for COBOL on Unix/Linux Resolution: Unlike Wrap Packs for Server Express or Server for COBOL, the Security AddPack is not a full version of the product. The Security AddPack has as a prerequisite, the matching version of Server Express or Server for COBOL. For Server Express/Server for COBOL Wrap Pack 10, the matching Security Add Pack version is sxsecuritypack51.11_00_dev.tar.encr. 1. Ensure that Server Express/Server for COBOL is installed on the machine where you are installing this AddPack. 2. As root, with COBDIR set to the installation location of the Server Express/Server for COBOL, execute the file. You will now have a tar file containing the AddPack. 3. Extract the AddPack, using the command: tar xvf <filename>. A directory such as Securitypack51.11_00_dev will be created. 4. Make the install file executable. 5. Install the AddPack, by executing the installation script, using t

Does Acucobol support Dynamic SQL. If so is there an example anywhere on the site that I can look at?

I have a client that is get an unhandled exception 'Method in found Int32 MicroFocus.COBOL.Program.Helper.CompareStrigFig (system.string System.string)' .  I can not get the same error on my development machine.  Do I have a runtime mismatch or is there another error. Thanks

I'm unable to add an existing form to my project (Windows Form) that I previously exclude? The form appears in the project - but it is only the code and not the GUI part? Any suggestions much appreciated

Interested in learning OO COBOL?  Don't miss this free Visual COBOL Webinar Series starting September 25th. Learn more here -> online.microfocus.com/OOPWebinarSeries Register today!

I am using Visual Cobol 2.2 -1  and Visual studio 2012Problem :How to set a particular datagridview cell active within handling a Datagridview event.The datagridview is NOT BOUND to a dataset.The Windows forms app contains several controls, one of which is the Datagridview.The Datagridview consists of 5 cols in this case.Loading the grid and validatiing / editing / redisplaying values entered  is working fine.When the user enters data in the first column (or any other column of course) of a row , the program is using the'CellEndEdit' event-method to test some values of several columns and process accordingly.----------------------------------  code begin ---------------------------------------------------*>*> Method to test what to do *> dg-view is the name of the datagrid                      method-id dg-view_CellEndEdit final private.    &nbsp

Problem: When ACUCOBOL-GT runtime finishes its job on a Linux/UNIX box, the displayed area is cleaned and the latest input-output data are removed from the monitor. Old runtimes used to keep these data in sight, even after the STOP RUN was executed. Resolution: This behavior changed in release 7.0.0 to fix a leak in earlier runtimes. After this fix was introduced, when runcbl shuts down it destroys all the canvases associated with the COBOL program. It does this in order to correctly manage the related memory. When a canvas is destroyed, that canvas is erased. If the COBOL program just uses ANSI style ACCEPT and DISPLAY (and treating the terminal like a teletypewriter), then doing the work to not initialize the terminal manager will solve the problem. That means compiling with -Ca, running with -b and not using ACUCOBOL-GT extensions to the DISPLAY verb. Note that positioning information is considered an ACU extension, so the previous workaround will not work. i.e.: this line is ANSI s

Problem Trying to compile a COBOL program using OpenESQL on AIX 6.1 gives an error: <<OpenESQL Error: Unable to load ODBC Driver/Driver Manager. Ensure that your database environment is set correctly>> The ODBC driver manager is unixODBC Resolution Current versions of the products, Server Express/Net Express 5.1 WrapPack 8, Studio Enterprise Edition 6.0 SP2 WS2, Visual COBOL 2.1 Update 1 and Enterprise Developer 2.1 Update 1 are all tested using unixODBC 2.3.0.  For unixODBC on AIX all of the products will search for  libodbcinst.a(libodbcinst.so.1) and libodbc.a(libodbc.so.1).  If these shared objects cannot be found in unixODBC archive files then you will get the error described above. First thing to check is that the unixODBC lib directory is included in the LIBPATH.  If this is okay then check the members of the archive files. If this shows anything other than libodbc.so.1 you will need to extract the file, rename it and put the new file into the arc

I was wondering if a program that is made resident by including the RESIDENT clause in the PROGRAM-ID paragraph will remain in memory after it exits using an EXIT PROGRAM.  If not, can I exit from the program and remove it from memory?  I need to shield a program from a CANCEL ALL in a called program. I have a BIS service program calling another program that is calling a final program that has a CANCEL ALL in it that is resetting the XML object in the initial service program.  This is pretty highly undesirable as BIS core dumps and dies when trying to do an XML EXPORT FILE.  

Problem: Does WIN$VERSION return client or server information in Thin Client mode? Is it possible to check both information (i.e. with a @[display]: prefix?) Resolution: WIN$VERSION checks the Windows version of the client in Thin Client mode. There is no way to get the server version currently.

Hi All, I need to implement 2PC (Two Phase Commit)  with Micro Focus Server Express. Any one have some experience...??? Many Thanks, PJM

I have Vis CBL P/Edit with VS2012 on Win/8.1 All is well but I want to be able to write a file with simple formatting and colours, e.g. a Word doc I am sure it can be done but I haven't been able to find it in the documentation Can anyone please point me to the documentation to read for this? And/or a sample program? TIA

Problem: A program that is working with ACUCOBOL-GT runtime, using XML EXTENSIONS and RMNET, may return the following message: Error: 39[0] - symbol table not present in COBOL object Resolution: To work correctly with XML EXTENSIONS and RMNet in ACUCOBOL-GT, a COBOL program must be compiled with the following options: -ZeThis option adds XML symbol table information to the COBOL object for use by XML Extensions.Programs using XML Extensions must be compiled with the -Ze option. Add the -Ze compiler option to the compile command to include the XML symbol table information in the compiled COBOL object. -CrThis option sets the compiler to its RM COBOL compatibility mode. In this mode, it accepts features of RM COBOL that are not otherwise accepted. Support Incident number: 2666802#XML

Problem: The Visual COBOL setup aborts while it is installing MS Visual Studio 2012 Shell, and the MSI log file (dd_vs_isoshell_<date/timestamp>.log) reports an issue with the installation of MS .NET Framework 4.5. Resolution: MS .NET Framework 4.5 is a requirement to install MS Visual Studio 2012, and the details of the problem are reported in the MSI log file. According to the  log file, here is the command that it is trying to execute: [...] Applying execute package: netfxfullweb, action: Install, path: C:\\ProgramData\\Package Cache\\C22163DDD7881C5E3B73E3B3CFB926A66ACAC7FE\\packages\\dotNetFramework\\dotNetFx45_Full_setup.exe, arguments: '"C:\\ProgramData\\Package Cache\\C22163DDD7881C5E3B73E3B3CFB926A66ACAC7FE\\packages\\dotNetFramework\\dotNetFx45_Full_setup.exe" /q /norestart /KeepAUPaused /ChainingPackage "" ' And the command fails with the following errors: [...] Error 0x800c0005: Process returned error: 0x800c0005[...] Error 0x800c

I would like to know license expiry date of installed Server Express 5.0. I got output from apptrack as follows Installed Application Server licenses:----------------------------------------------------------00001/apps/ServerExpressVersion        of Server for COBOLLicense users: Unlimited    CPUs: 001Duration: Unlimited         Server As per one article in microfocus community           Duration means  Duration: Unlimited Note: Unlimited rather than an expiration date indicates this is a purchased license, not a temporary evaluation key or an emergency issue from SupportLine.  So how to know actual expiry date of existing license? Thanks in advance

Hi all, I am using the CDO library in order to create and send a mail with an attachment. After mail is sent, program deletes or moves the attachment file to another folder. My program works well (message is sent) except the following: wrun32.exe keeps the attachment file locked and the program can't delete it or move it to another folder. Although I am doing all the necessary DESTROY statements, the attachment file is actualy deleted or moved only when wrun32.exe terminates. Is there any other way for creating and sending e-mail messages (except using an outlook object) ? Thanks  

Problem: Net Express 5.1 installation appears to be completed without any errors, but License Management System does not list any product. For this reason, it is not possible to: generate a Request Key to exchange with a Response Key apply Update (formerly known as WrapPack) Here is the error message when one tries to apply Net Express 5.1 Update 4: This upgrade can only be applied to Net Express 5.1 version 5.100.0157, 5.101.0074, 5.102.0118 or 5.103.0042. Please uninstall your existing version and rerun setup. Resolution: Attempting to install Net Express 5.1 (base version 5.100.0157 that comes with the media) on Windows 7 or Windows Server 2008 R2 may fail or appear completed without any errors. In either way, a key in the registry became corrupt, and it cannot be removed through the normal uninstallation process. After the above attempt, installing Net Express 5.1 Update 1 or Net Express 5.1 Update 6 (both full product) may appear to be completed successfully, but the Licen

I want to bind each control on my Windows Form to a property in a a class.  Is this possible ? In C#, I can select a TextBox, expand its DataBindings node in the Properties window, click the arrow next to the Text property, then click on the "Add Project Data Source" link.  This link does not appear in Visual COBOL.  Even if the link did appear, I'm not even sure if I can use my class.  On the "Choose data source type" window, you can select "Object" but this doesn't seem to be what I am looking for. I know how to do this in WPF using the download from this link: community.microfocus.com/.../19748.automatically-refresh-a-bound-wpf-control-when-values-of-bound-object-are-updated.aspx Can I do something like this with a Windows Form ? #VisualCOBOL

Problem: Although users with Super Users privileges have no problem to install Net Express 5.1, they are unable to apply any WrapPack and get the following error message:"Windows Install error 1605" Resolution: Installing Net Express and its WrapPacks (or Updates) requires Administrators or Super Users privileges, but a corporation may put a system policy in place to prevent users from installing or applying software update. Windows Install error 1605 actually means "This installation is forbidden by system policy" In the system policy, there is an option to prevent non-administrator accounts from applying software updates. It is called Prohibit non-administrators from applying vendor-signed updates. Since Super Users are non-administrators, they may be able to install software, but not to apply updates. The users will then need to request their IT group to disable the option temporarily or have someone with administrator's privileges to apply the WrapPack on th

A customer wants to migrate a large computer system developed in " ACUCOBOL v7 " to " GeneXus " , what are the arguments for NOT do ? .#GeneXus

Object-oriented (OO) concepts are fundamental to both .NET and the Java Virtual Machine. If you’re considering deploying COBOL applications onto either platform, you’ll need to have a grounding in OO skills to take full advantage of what these platforms can provide. We have produced a guide (available here) that provides an introduction to OO concepts for procedural COBOL developers. We plan to build upon the material, so your feedback on the existing material and the new topics you’d like added is most welcome. Regards, The Micro Focus Documentation Team

Hi, we need a grid with 2 lines of col-headings (no problem with NUM-COL-HEADINGS) but the cells of the first line should span over 3 cols of the second and all other lines of the grid. Is this possible ? If so, please tell us how. If not, how would you solve this problem ?

I am creating a Line Sequential File, for the State of Illinois, and they are saying my file contains "an extra line".  My program opens the file as output, writes the records, and then closes the file. When I look at the file, it looks to me as if the program is adding an extra carriage return at the end of the file.  How do I get rid of that, OR not write it at all? Anyone have any suggestions?

Hello, I am new to the Visual (Cobol) / WPF World (coming from ACU-Cobol). I tried to find a Sample that demonstrates how to fill a WPF DataGrid (NOT DataGridView!!) from a file. I tested 2 different ways to populate the DG but None of them worked - here are them: 1. - read a file called "VER01" (employees)- filling a list with the Name, shortname and the number- read next entry of file - filling list ...- set the list (LISTBOX) to ItemsSource of Datagrid (LB1)- DataGrid is empty although the List is filled correctly Code 2. - read file called "VER01" (employees) - fill a Single-line-Array (LB1X) with entries from VER01 and - directly try to add this line to the DataGrit (Invoke LB1::Items::Add(LB1X)- The DataGrid is populatetd with the correct number of rows (concerning to the entries in the file) but the DataGrid has no content Code I really tried to find samles/help in the documentation, Forums, wikis, Google but could not find something that helps ... can a