Rocket® COBOL

Hi, I have code that reads 1000 sql records and outputs the data to a datagrid. Normally the program looks like its "hung" until the sql code has finished. However I found the "DoEvents" function which I added, after each record has been returned, as follows:- invoke type "System.Windows.Forms.Application"::"DoEvents"() This works and looks a lot better but it has really slowed down the program. So I then found the following VB code but have no idea how to convert to Cobol code, can any one pls advise. Private Declare Function GetInputState Lib "user32" () As Integer Private Sub btnGetInputState_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetInputState.Click ' 'This loop uses the GetInputState() Api call to check if any 'messages needs to be processed and decides whether or not to 'execute the DoEvents() method. Your application will NOT appear to 'be frozen while the code is runnin

Having build several Visual COBOL executables I want to deploy them onto peoples desktops. Rather than have a bog standard 'window' icon on my desktop I'd like to have them as small icons we've got artwork & images for. How do I build the executable so that these 'images' can be seen as the desktop icon rather than the 'window' icon?  

We are using 8.1.3 with no plans to upgrade anytime soon. We are needing to access some web services (using soap/XML).  A solution that works for both UNIX and windows environments would be best, but a windows only solution could work ok too. Does anyone have any suggestions for an easy, cheap solution to access web services from ACU 8.1.3? Where to start looking, or some sample code to share would be great. Thanks

We are getting ready to upgrade to Extend 9.1.2.1 from 9.0.1.Does anyone know of a way to get around the initial administrator requirement for installing the thin client on Windows 7 machines?  We have a custom installer that asks for and gets that permission, but if all the user gets is "auto update failed" because of the missing permissions, my phone is going to be ringing off the hook.  Currently the only way "around" it is to run acuthin as administrator.I am going to change the failed auto update message to hopefully head some of them off, but allowing the install to happen would be the best.

Hi, I use Net Express 5.1 under Windows Server 2008. I know Net Express has the functions upper-case and lower-case. My question is: Is there a Function or Module that converts String Fields into upper AND lowercase? For example: I would like to convert "JAN HENRIËT" into "Jan Henriët" or "RICK VAN DER BERG" into "Rick van der Berg" Thanx  

Hello. I'm trying to write variable length records to a SEQUENTIAL file. I don't want the trailing spaces to be removed. I add on two chars at the end of each record type and populate them with CRLF. My results are not what I expected. The output file appears to have binary characters and the rows are not the length of the value in WS-RECORD-LENGTH. My FD statement is:   FD MY-FILE          RECORDING MODE IS V          RECORD IS VARYING IN SIZE FROM 191 TO 370 CHARACTERS DEPENDING ON WS-RECORD-SIZE.    01 MY-RECORD.          05  MY-DATA     PIC X(370) In Working Storage 01 WS-TYPE1.                         (record length191)      05      05 WS-CRLF1   PIC X(2). 01 WS-TYPE2.                        (record length 3

Hello everyone, I am facing a problem executing a COBOL program as java on a remote unix machine. I think I am missing a piece of information to properly set/execute my Hello World program. I am using VisualCOBOL 2.1 with eclipse. I have created 2 projects, one local and the other one remote (HP-UX). On the local project (New->Cobol  JVM project), I have been able to New->Cobol Program, add a display call in the procedure division and executing the program. On the remote project (New->Cobol Remote Project) I have added New->Cobol Program and added my display call in the procedure division. Meanwhile, attempting to execute my program generated the following error: An internal error occurred during: "Launching HWJVM". java.lang.NullPointerException When I look at the Run Configuration, I can see that my local project will execute as a "COBOL Application" while my remote one as a "Java Application". There might be someting missing in my settings. Any idea? Is there a way

Hi, I debugg a COBOL-Prog. with the animator. When the execution arrives a DISPLAY-Command, the program run stopped. I work with LINUX and ServerExpress. What's wrong?   Michael  

I posted a while ago about passing information between programs so that a 'Status Strip' could be updated on a form showing the file data processing in real time. You kindly solved my problem. A new problem has arisen when I want to use a 2nd program utilising the 'same' code as as what was in the 1st program by way of the idisplayStatus interface method. When 2 programs with similar 'interface' methods are part of my main form references I get an error at runtime which says 'Method not Found 'Int32 ProgramX(idisplayStatus)' where ProgramX is the first of my programs utilizing the interface. Removing the 2nd program from my references solves the problem of running ProgramX and it runs through fine but I need to process two programs processing data in order for my job to work properly. Can you assist in a resolution to this please?

Hi, I have a unmanaged cobol dll compiled in Fujitsu Net Cobol. I have written a proxy wrapper OO cobol class in Microfocus Net Express 5.1 to call that unmanaged dll. There is no compilation error. But during runtime it is throwing an error that unable to load the specific dll. My question is that is it possible to call a Fujitsu Net Cobol unmanaged dll from Net Express OO cobol wrapper class. Will be highly obliged for quick reply as I am doing a POC on a trail version. Thanks in advance.#.netdllcobol#VisualCOBOL#netexpress#vb.net#.net

I need a little program example for use of C$JAVA call. Is anyone here in this forum?#CJAVA

We have a VB .net GUI front end and a back end in NetExpress COBOL. I am trying to call the NetExpress COBOL executables from the VB, which  worked in the past.  However, the setddldirectory is pointing to C:\\MPIUADEV\\MPIUA\\DEV\\visualcobol\\bin and it should be using the path where the NetExpress code is.  I don't know how it got changed and/or how to change it back to point to the correct directory,  SetDllDirectory()        If NativeMethods.SetDllDirectory(CobolDirectory) Then            NativeMethods.RMVBEBTCH(batchLinkage)        Else            Throw New EbixException("Unable to set COBOL Directory.")        End If        Return batchLinkage    End Function  Public Shared Sub SetDllDirectory

Hello, I'm getting a file error: Field ITEM-DEL-LINK-UPC causes duplicate database data This error is due to my using the -Fx option when compiling the program that uses this file, and is due to a key existing inside of another key. My question is, is there an easy way to resolve this issue? We have clients running this software that have data already in this file, and we'd like to avoid a file conversion if at all possible. The FD and Select are as follows:        SELECT OPTIONAL ITEM-DEL-FILE           ASSIGN       TO RANDOM "./inv/itemdelete"           WITH COMPRESSION            COMPRESSION CONTROL VALUE  70           ORGANIZATION IS INDEXED           ACCESS MODE  IS

Hello, I'm new to the community and need help. Microfocus cobol'm working under UNIX operating system AIX Version 5 system is multi-user information, the connection to the server is via telnet, the problem I have is with the indexed files will be shared when removed error, as I make the system the archive management handled correctly? I tried to use the command to set the fileshare fs but I think I'm comentiendo an error. I appreciate the collaboration .... thanks

Running Visual COBOL 2.1, Visual Studio 2010 SP1 I have a native COBOL link library project consisting of a single resource file (EMAILRES.RC).  I believe this was taken from a Micro Focus email demo.  When I build the project I get this error: LINK : fatal error LNK1123:  failure during conversion to COFF: file invalid or corrupt From what I find on Visual Studio forums this was fixed by Service Pack 1 which is already installed.  Someone recommended reinstalling SP 1.  Any thoughts on this? I noticed that EMAILRES.RES was put into obj\\x86\\debug so it must be a problem with linking.  By the way, if an INT/GNT project build finds a .RES file in obj\\x86\\debug you get the same "failed to find file" error as you get when there's an .OBJ file in that directory.#VisualCOBOLautoscalemodescreenresolution

Probably a  very simple question, but this is the first time I am trying to generate .Net assemblies or dlls. I use ccbl32 --netexe 2.0 nettest.cbl and the compile goes through with no errors, bur I only get a .acu file, I do not get a .exe file if I use ccbl32 --netdll 2.0 nettest.cbl  once again compiles with no errors and I get the .Netmodule and .acu files, but no .dll I am no doubt doing something dumb but I cant see what it is, any suggestions?

Is it possible to get the standard error codes when I$IO fails for some reason? By "standard error codes" i mean those raised by the standard functions write, read key, read next, open, close and so on. For example if try to rewrite a record  with I$IO (set rewrite-function to true in I$IO)  and the record key is not found i would like to get the error code "23", like with the "rewrite" statement, while F-ERRNO return "4" (E-MODE-CLASH in filesys.def). Does it exist a way to get the code i need?#error-codes#COBOL#IIO

I imported an NX project with 7 programs and no Dialog System screenset.  When I build the resulting solution I get this error: Could not copy the file "obj\\x86\\Debug\\AW100" because it was not found.  Microsoft.Common.Targets line 3364. We are running Visual Studio 2010 SP1 and Visual COBOL 2.1.  The project name is AW100 and includes a program named AW100.  It is an INT/GNT project.#VisualCOBOL

A new project requires that I use a web service from a batch client program run every few minutes to retrieve a list of items, and use the same web service from another program called on an ad hoc basis to update items as required. Note: this isn't my web service, it's one provided by an external company. Our environment is AIX. Is there anything that I can use that's as simple as the Netexpress example using the Microsoft SOAP toolkit [1] ? And is there a guide to client SOAP programs for dummies anywhere? [1] http://kb.microfocus.com/display/4/kb/article.aspx?aid=35996

In NX3.1 we had to link extsm.obj (in Build Settings>Link>Advanced) for this sort to work: sort sort-file on ascending key srt-endpoint   srt-cl-amt   srt-kb-amt  using tmp-file giving tmp-file.   In Visual COBOL, the sort blows up.  Do we need to add the extsm.obj into the settings somewhere or is there another answer? Please and Thank You. #extsm.obj#VisualCOBOL#COBOL#VisualStudio

I am starting a program with Acucobol 9.11 and .Net with a product called SonicMQ.  I would like to know if anybody out there have done any programs using "net assemblies.  I am battling to find out how to use stored objects and the documentation provided is not very helpful   I am a COBOL programmer so either way is a new experience - the programmers have said we can use soap.  Once again I would love some helpful documentation..

After the import, the imported project directives are listed in the Additional Directives box on the project properties screen.  We would also like to add USE"..\\MYDIRECTIVES.DIR"  to the list of additional directives.  Our Net Express projects don't always have the same directives but there are certain directives we've had to add to our Visual COBOL projects so they will build without errors (for example, REMOVE"OBJECT-REFERENCE") and we list these in MYDIRECTIVES.DIR.  Can we do this or will the compiler only use the directives in MYDIRECTIVES.DIR ? We are bringing about 350 projects from NX 5.1 to Visual COBOL and we want to maintain two sets or source, the original, unmodified NX source and the Visual COBOL source which we will modify.  In the import wizard, we specified a different directory (from the NX directory) for the Visual COBOL project but the source was not copied to it.  Also, each time we use the wizard it creates a solution along with the

You can read more and register here: http://online.microfocus.com/COBOLwebinar8C Highlights will include: How to access procedural COBOL from OO programs How to call COBOL from Java COBOL support for web application deployment When: Thursday October 25 2012 8:00 PDT / 11:00 EDT / 16:00 BST / 17:00 CEST#Java#netexpress#VisualCOBOL#ServerExpress#JVM

The directory hierarchy on the AIX machine that I am using has been set up with a development user containing a 'sources' and a 'copies' directory, with .cbl in one and .cpy in the other.Setting this up as a remote project in VC, I have created a symlink to the 'copies' directory in the 'sources' directory and mapped the project to the 'sources' directory. The copybook paths include the 'copies' directory, which is checked. The 'copies' directory shows up under the project, and if I go into it, I can load the copybooks into the editor.The copybook files are all named in lower case and the names are in quotes.If I "build project", all the copy statements fail "unknown copybook". However, if I open a program file in the editor and right-click on a copybook name and select "Open Copybook", the copybook opens in the editor.I can work round this by putting the copybooks into the 'sources' directory

Dear sir, I have the following problem : Compiling JVMWorldClass1.cbl...     [cobol] COBCH0829S Could not find method 'adoaseti' with this signature  : C:\\Users\\Pedro\\workspace\\HelloJVMworld\\src\\com\\microfocus\\example\\JVMWorldClass1.cbl(45,14,14)