Rocket® COBOL

I'd like to animate a cobol program and stop animation on a field value change - i think the documentation says to do a breakpoint until - but I don't see how to set this up while animating... the field value into the program is "2000089" - it would change to some other value like "200089.0000" if it's thru the 'B'reak - that sub menu shows me set, unset, cancel-all, examine, if, do, on-count, zoom not sure where/how to find until anyone know how to do  

Does any one have experience with printing from CGI in IIS7? We are attempting to print using -Q \\\\user\\printer;DIRECT=ON but the print job ignores this and goes to a printer of it's choosing. (Not necessarily the Windows default printer on the iis machine.) WIN$PRINT will not show the installed printers. WINPRINT-SUPPORTED returns a 1. Ant help would be greatly appreciated. Thanks,Steve#CGIIIS7WINPRINTER

Hi, Can anyone tell me the appropriate cobol picture clause to use on a host variable to access a VARCHAR(MAX) column please ? Currently we have this defined as PIC X(32000) but when interrogating the esql statement generated in Sql profiler this appears to get converted into a TEXT data type which leads to an SQL error as we wish to use RTRIM. We need to be moving away from using TEXT data types as Microsoft are indicating they intend to withdraw support. Any advice would be much, appreciated. Thanks

Hi, I have some trouble when i try to "debug" an application in Visual COBOL.  I looked in the documentation but I havn't found a solution. When I run my application, I give it a buffer of several thousand character, i run it on java like this : Reference ref = new Reference(); ref.bytes = "000A003 [....] 030303030".getBytes(); MyProgram program = new MyProgram(); program.MyProgram(ref); But now, i want to debug my Cobol using Visual Cobol, but i don't know how to pass this buffer to my program. How can i do it ? Thanks, Regards#buffer#VisualCOBOL#debug

The build of project ACU2MFDataMigration gives me an Unkown build error; Object reference not set to an instance of an object, line 269 in file Microsoft.WinFX.targets. I use VS 2012 en VC 2.1 on windows 7 and VS is very new for me. Who will and/or can explain to me what is wrong.

Hello, Can someone help me translating this VB code? Private Sub Form1_Load(ByVal sender As System.Object, _                         ByVal e As System.EventArgs) Handles MyBase.Load     ' Create the list to use as the custom source.     Dim MySource As New AutoCompleteStringCollection()     MySource.AddRange(New String() _                         { _                             "January", _                             "February

We have been succesfully porting our legacy app to the Thin Client but now need to replicate a lot of our reports. AcyBench is horrible when it comes to report writing. Is there an alternative for this? A large amount of our reports are written in troff but I am looking to have more reports that are written through the app and would be made availabel to the thin client user instead of having it done through the server.

I need write a program can use tapi32.dll. I use acucobol compiler. my problem is understand how transform code in cobol. I call Tapi32.dll. :          SET ENVIRONMENT "DLL_CONVENTION" TO "1" :          CALL "TapI32.dll" :                ON EXCEPTION :                   DISPLAY MESSAGE BOX :                   "Message: Tapi32.dll not found" :                   SET ENVIRONMENT "DLL_CONVENTION" TO "0" :          END-CALL. and now i had to call for example "lineInitialize" function ex. LONG lineInitialize(  LPHLINEAPP lphLineApp,  HINSTANCE hInstance,  LINECALLBACK lpfnCallback,  LPCWSTR lpszAppName,  LPDWORD lpdwNumDevs ); Anyone can help me?

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