Rocket® COBOL

Hello, I am trying to display the value of a data item in a textbox in a managed COBOL program. The variable is defined   01 DecimalValue PIC S9(5)V99 and contains the value 99.00. When I put that value into a textbox   set textBox1::Text to DecimalValue::ToString() it displays as 9900. I tried   set textBox1::Text to DecimalValue::ToString("N2") to get two decimal places but that just turned it into 9900.00. Now I am a C# developer and know little about COBOL but I think I know why this is happening; the V is a virtual decimal point and not really there at all. I assume in a native COBOL language like AcuCOBOL the V gets replaced with a "." when the value is displayed but in .NET this doesn't take place and the value is always seen as 9900. Then the ToString("N2") method adds a ".00" to it. This is, of course, not what I want. So my question is how to get the value into the textbox formatted the way the pic clause is defined? If I assign the value to a .NET Double

We are trying to certify our app with the 9.2.4 web thin client plug-in and IE11. When our app starts we start an IE session with the <OBJECT> tag as described in the Internet Programming documentation. For earlier versions of IE, we then shutdown the IE and ActiveX/cobol session at the same time using a button in our application (with some VB6 code) but we are now reviewing the shutdown process with the new runtime and IE11 due to some issues unique to IE11. Microfocus advise that they have no sample code and that there is no easy way within ACUCOBOL-GT to exit IE and the COBOL program but suggested trying an exit procedure such as the CBL-EXIT-PROC library routine. Has anybody been able to successfully achieve a graceful shutdown of IE and Active X/cobol program (at the same time) using cobol and if so can you share what you have done? #ACUCOBOL9.2.4#ActiveX#IE

In the Samples supplied with Visual Cobol you find examples on how to call (native) Cobol code from C#. But, what about the other way 'round? Calling C# from Cobol? Enter this as a search and you find nothing. Maybe this will be of help to those of you, who are not aquainted to mixed language "calls". Looking into the Web you find thousands of examples of C# coding. Samples regarding XML, LINQ and whatsoever (see CodeProject i.e.). You can easily integrate these into your managed Cobol applications. All you need to do is set "using System.Runtime.InteropServices" in the C# code added to your solution. Of course the methods need to be public like: namespace myClass public class Class_myClass public string[] DoSomething() // the method. string arrays are an easy way to define return values // define the string array to return values string[] lst = new string[10]; // here 10 values // write the code and then return the values  lst[0] = value1.ToString; l

[Migrated content. Thread originally posted on 14 February 2011]Hi,i'm testing Visual Cobol with Eclipse and want to make an xml file.When i use organization is xml, eclipse gives me a compilation error.Documentation is here :community.microfocus.com/.../7252_XML_Syntax__SELECT_ClauseBest regards,Renzo

Problem: Is there an example of creating a simple web service that combines using Visual COBOL for Eclipse and Visual COBOL Development Hub? Resolution: Attached is a tutorial that will demonstrate how a simple COBOL program can be used to generate a web service running on a remote Linux or Unix system using Visual COBOL Eclipse 2.2 update 2 on Windows and Visual COBOL Development Hub 2.2 update 2 (DevHub) on RedHat. Visual COBOL Web Services Tutorial for Eclipse Remote.pdf

Problem: Is there a simple example of creating a web service using Visual COBOL for Windows Eclipse? Resolution: This tutorial will demonstrate how a simple COBOL program can be used to generate a web service using the Visual COBOL for Eclipse 2.2 Update 2 product for Windows. Visual COBOL Web Services Tutorial for Windows Eclipse.pdf

Problem: Is there a simple example of creating web services using Visual COBOL for Visual Studio? Resolution: Attached is a tutorial that will demonstrate how a simple COBOL program can be used to generate a web service using the Visual COBOL for Visual Studio 2.2 Update 2 product.   Visual COBOL Web Services Tutorial for Visual Studio.pdf.

Let me start by saying that I'm very, very new to Visual COBOL.  I have been programming primarily in Visual Basic since version 3 (now VB 2013).  I have written many applications through the years for work, friends, and for myself. I have downloaded the Visual COBOL v.2.2 Personal Edition from Micro Focus in attempts to learn from and to possibly help my coworker who is having a lot of trouble trying to learn Visual COBOL (purchased version).  I would like to know how to take the following code (Visual Basic) from one of my classes in one of my projects and write it in Visual COBOL (again, personal edition): Imports System.Data.SqlClientImports SystemImports System.IOImports System.CollectionsPublic Class LocalSQLDB    Public Shared Function GetConnection() As SqlConnection        Dim myConnStr As String = ""        myConnStr = "Data Source=localhost\\SQLEXPRESS;Initial Catalog=MyDatab

Hi, I would like to know whether it is possible to write a COBOL function that returns a true or false value so that one can write:     if myfunc() then <true-branch> else <false-branch> end-if. I can write functions that return values "t" or "f" (or 1/0, or "TRUE"/"FALSE", or whatever) and then write:     if myfunc() = "t" then <true-branch> else <false-branch> end-if. That "= ""t""" seems like something I should not have to do. I read somewhere abouit using PIC 1, where B"1" is true and B"0" is false. I wrote a function using that but the callers do not compile. To expand that:     function-id. myfunc prototype.     linkage section.     01  l-result pic 1.     procedure division returning l-result.     end function myfunc.     ...     if myfunc() then     ... I see a compiler error on the ')' of the function

When our customer migrate our application Acu 32 bit from W2008 to W2012, they note extreme slowness.  They  report us: "if we try to use a single processor instead of one multiple performance improves". This occurs with all 32-bit runtime (8.1.2, 9.0.1, 9.1.0, 9.2.1, 9.2.4) Has anyone had these problems? #runtime#windows2012#ACU

Has anyone ever used W$PROGRESSDIALOG to track C$COPY or are there any examples of how this is used?  In my test program, regardless of how long the C$COPY takes, the progress bar does not open until the copy finishes. At that point it opens, progress goes from 0 to 100% and then it closes.  From reading the documentation it seemed that setting WPROGRESSDIALOG-C-COPY before I begin the copy would mean there is no need to use WPROGRESSDIALOG-SET-PROGRESS. I've also tested with a call to WPROGRESSDIALOG-RESET-TIMER before the copy but there is no change.  Below is the code I am currently using. * Load-To-Server. perform Progress-Setup. call "C$COPY" using src-file-name(1:src-fn-sz)     temp-import-name     giving fileops-status end-call. perform Progress-Destroy. . * Progress-Setup. | create progressdialog call "w$progressdialog" using WPROGRESSDIALOG-CREATE, "title" "message during cancel&quot

Hola a todos! uso Acucobol. pero ultimamente con las plataformas de windows 8.1 y Server 2012 he notado que la lectura secuencia de archivos VISIO es muy lenta tanto que el usuario se desespera en la operación. ALGUIEN TIENE UNA SOLUCIÓN PARA ESTO? #slowacucobolserver2012windows8.1

We develop with AcuBench and run our applications from a UNIX platform using Thin-Client.  We have tried everything we can find in attempt to get a new Icon to appear for our application (putting ICON variable in Config, Setting ICON in Properties of screen, etc)...the default Acu icon is all that will ever appear?!? Does anyone have ideas of how to make this work? Attached is the icon file we are attempting to use.

Hello, I'm developing in an application installed in a Windows 2003 server. The users connect to the application with mapped drives from their Windows pc's. The trouble occurs when two or more users access simultaneously to the same vision file. The first one, can runs the whole file in about 2 seconds, but the second one runs the file in about 1 minute. I'm using 8.1.3.1 version and executing cobol programs with wrun32.exe The mapped drive seems to work fine, i can open the folder, copy files and open them with no retard. How can I solve this? #extend#Windows#COBOL

Problem: By default, RM/COBOL implements a pessimistic record locking mechanism.  This type of locking allows a user process to lock a record, indefinitely, during an update.  This can cause issues if another user process is waiting on the record lock. Resolution: In Unix environments, the RM/COBOL subprogram library, C$OSLockInfo, can be used to obtain the process ID of the process that has a file locked, however, on Windows, RM/COBOL does not provide any built-in mechanism for obtaining the file lock information. In order to determine the user name of a locked file, you will have to implement some external method. Below are several suggestions on how to accomplish this task: 1. Micro Focus provides a product named RM/InfoExpress that is server/client RM/COBOL file manager. If you route all of your I/O through RM/InfoExpress, then, you could use the RM/InfoExpress Server Display utility to determine what user has which files open. This is the only method that we will s

Problem: RM/InfoExpress can be used to create new COBOL indexed files.  For that purpose, RM/InfoExpress can be configured to create new files using a specific user id with specific file permissions. Resolution: In order to get the InfoExpress server to create files with the correct permissions, you will need to execute the InfoExpress server from a shell script that sets the correct umask. This should allow you to control the shell that the InfoExpress server is created in. This will give you control over the permissions of files created using InfoExpress.UNIX-like operating system, have the function, "umask", which can be used to change the default permissions for newly created files for any user.For more information regarding umask, please consult the man pages for your operating system.

I have several MicroFocus COBOL programs that use IBM MQ Series calls.  When they are linked to run on an MQ Series server, by including MQMCB32.LIB on the CBLLINK command, the link completes successfully with no errors.  When the programs are linked this way they run fine on an MQ Series server.  Now I need to link them to run on an MQ Series Client.  To run on an MQ Series Client they need to be linked with the MQICCB32.LIB library instead of with MQMCB32.LIB.  When I run CBLLINK to link the programs with MQICCB32.LIB the link fails with error "LNK1106: invalid file or disk full: cannot seek to 0x4828bdb6".  There is 2 GB free space on the drive where the compile is running. so I don't think it's a space problem.  These programs also include Oracle database calls, so SQLLIB18.LIB is also included on the CBLLINK command.  I saw the article that says you can't include other 3rd party libraries along with the MQ Library, but when I

I would like to use Visual COBOL 2012 Personal Edition with Visual Studio 2013. So far, I haven't seen an installer for Visual Studio 2013. I was just wondering whether there is any harm in installing VCPE 2012.#VisualStudio2013#Installation#VisualCOBOL2012

Problem: When opening a solution in Visual COBOL for Visual Studio, the project may fail to load and the error message in Solution Explorer is "The project requires user input. Reload the project for more information". Resolution: When the solution project is located on a network drive, you may get this error. Right-click the project in Solution Explorer and select 'Reload Project', A dialog appears warning about an untrusted location. Click OK and the solution project is loaded successfully. SI2819793

Problem: Usually in a COBOL program we define the host variable as COMP to map directly onto the INT DB2 data type. When a variable is defined as COMP in the linkage section of a COBOL DB2 stored procedure for LUW, and you try to pass a numeric value to this variable from a COBOL program, you may get a value different from what you have passed. Resolution: DB2 is passing in the data to the stored procedure as little-endian on an Intel system. Defining the variable as COMP-5 in the linkage section of the COBOL DB2 stored procedure program solves the problem. See attachment for an example of a COBOL DB2 stored procedure and a COBOL program that calls it. SI2807407 db2sp.zip

Problem: In a COBOL Cobsql Oracle program, the following SELECT statement compiles OK but when run gets an ORA-01007: variable not in select list error.        WORKING-STORAGE SECTION.            10 VARCHAR-DATA. 49 VARCHAR-DATA-LEN  PIC S9(4) USAGE COMP. 49 VARCHAR-DATA-TEXT  PIC X(100).        PROCEDURE DIVISION.                  SELECT  VARCHAR                  INTO    :VARCHAR-DATA                                         FROM  XXX      

Problem: When using CALL "SYSTEM" USING command-line to execute a COBOL program and pass parameter to the program, the received parameter in ACCEPT passed-parms FROM COMMAND-LINE in the called program may contain extra values that are appended to the end of the string being passed. In the example below, you may get 'A B C ABC' in PASSED-PARMS, instead of 'A B C'. Calling program:        WORKING-STORAGE SECTION.        01  WS-COMMAND-LINE.            05  WS-CALLED-PROG                PIC X(08) VALUE 'PROGNAME' .            05  WS-SPACE-DELIMITER         PIC X(01) VALUE SPACE.            05  WS-P

I’m currently working on a project for my manager where we need to interact with a JSON system.  I’m looking for a way to convert JSON into XML in order to process responses using a RM/Cobol application using XML-Extensions.  After speaking with Steve Jolivet with Microfocus, a google search returned “Converting JSON to XML using XSLT 1.0” (link “www.tek-tips.com/viewthread.cfm written by Tom Morrison.  I copied Tom's two XSLT examples (json2xml_step1.xsl and json2xml_step2.xsl) into Stylus Studio X14 Professional.  I wanted to run the stylesheets over my existing JSON response in order to see the results. However, Stylus Studio complains about several things within json2xml_step1.xsl and I’m not strong enough in XSLT to determine what it's complaining about in some cases.  Can anyone provide some insight, please?#RMCOBOL#XMLExtensions#ConvertJSONtoXML

[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 source file (Program1.cbl) editor.* To the right, you should have the Solution Explorer. If not, open it from the menu (V

In my very basic solution under Visual COBOL Personal Edition 2.2, I am getting the below error message when I try to view my form's design: To prevent possible data loss before loading the designer, the following errors must be resolved:The variable 'WCLRRTS' is either undeclared or was never assigned. I have did a find on my entire project and can find NO reference to this variable at all.  If I chose to ignore it, it always eventually shows back up.  My Visual Studio 2010 Professional is working fine as I use it almost daily as a programmer for my employer.  This is the strangest thing I've ever seen.  Prior to this, I got this error when I added another form and then deleted it from the project / solution.  I ended up deleting that project off of my hard drive and starting all over again.  Now I'm back to this error once more.  What is this in reference to?  I did not create it as far as I know.  Perhaps some process in the background c