Rocket® COBOL

Hi, Using the example below is it possible to check the file / path exists and/or is available. 1) In order to produce an invoice I "import" a company logo to produce a pdf that gets printed. 2) the company logo is stored in the following location //192.168.123.456/Shared/Data/CompanyLogo.jpg However if the path or filename doesn't exist then the program seems to hang for 1 minute or 2 before carrying on. So my question is - is there a Cobol way to check the file or path exists first, which is hopefully quicker, before I try and attach it? Many thanks Neil.

I am new to Visual COBOL and I want to create a simple winform (managed COBOL) that will read an AcuCOBOL vision file located on a windows machine. Are there any small examples out there where I can see how to set up a program that will do this?   Thanks in advance#AcuCobol#VisualCOBOL

Hi, I would like to create a core dump, but it doesn't work. I set the core_on_error to 1 and in a second try to 2, but there is no cora dump after a divide by 0 in a cobol-program.What is to do to create a core dump?We are using Server Express. Regards, Michael      

Hello all, I'm using a MS Rich Textbox Control 6.0 and trying to handle the exiting from a subwindow with keypress event. All is ok (i detect the esc key and that) but when the subwindow is closed, the parent window turn crazy constantly detecting a event termination (96) and window get freezed.  I try two things: * Ef-Rtf-Ev-KeyPress.   call "C$GETEVENTDATA" using EVENT-CONTROL-HANDLE, 5aux   end-call   cancel "C$GETEVENTDATA"   if 5aux = Tec-Exit      destroy Screen1-Handle       perform Acu-Exit-Rtn    end-if    . In this case, the runtime ends beacuse the program reachs stop run line in the acubench generated prodecure acu-exit-rtn that normally don't get executed, but in this case yes: Acu-Exit-Rtn.   PERFORM Acu-Close-Files   PERFORM After-Program   EXIT PROGRAM   STOP RUN . When i do this:  *Ef-Rtf-Ev-KeyPres

PROBLEM: Customer has a native Dialog System application that displays a window on which an ActiveX control resides. This native application displays this Dialog System window and then calls a managed code .Net WinForm application that displays a Windows Form which also has an ActiveX control on it. When the program does this it gets the following exception:     Application Exception  A device attached to the system is not functioning. What is causing this to occur? RESOLUTION: Try setting the following environment variable in your computers environment MFOLECL_NO_THREAD_INIT=ON This is a problem that is caused by the Micro Focus native OLE support calling CoInitialize on a thread that it did not own, mainly the managed code thread.If this environment variable is set the OLE support will not try to initialize a thread that it does not own.

We are exporting data to Excel from Net Express 5.1, calling Excel in the way below:       $set ooctrl( P)       class-control.           MSExcel             is class "$OLE$Excel.Application".    :      *>   Create a new instance of Microsoft Excel           invoke MSExcel "new" returning ExcelObject Up till Windows 7 this has worked fine, in Windows 8 it don't work any longer.We receive error message from "cblxecwm" saying "Load error: file 'C:\\Program' not found This i probably because the registry CLSID for Excel in Win7 is: C:\\PROGRA~2\\MICROS~1\\Office12\\EXCEL.EXE /automation      ("short" path)While in Win8 it is: C:\\Program Files (x86)\\Microsoft Office\\Office12\\EXCEL.EX

hi all, is there any .net cobol code out there that will show me how to get the pc's regional / language settings that my application is running on? many thanks neil.

We are in a situation where we need to pass Java string values to a COBOL program using the implementation of javax.resource.cci.Interaction and trying to solve the problem with the string values returned in the javax.resource.cci.IndexedRecord, specified as the oRec (which is the third parameter) parameter to javax.resource.cci.Interaction.execute(InteractionSpec spec, Record iRec, Record oRec), gets garbled.  When passing a string value, it is wrapped in as new Pointer(string_value, "MS932") to match the encoding used in the COBOL environment, which is set to SJIS at OS level. This string is assigned to PIC X field within the COBOL program when  Interaction.execute is invoked.  As long as the value assigned to the PIC field is intact, meaning no string concatenation or whatsoever is performed, no gabling occurs. However, string concatenation is performed and the result is assigned back to the same field, characters such as ㎡ symbols returned in

RM/COBOL 12.08 News #RMCOBOL

I want to deploy an application on an end-users computer.  The end-users are farmers not IT people.  This product is not installed in a corporate environment.  They are also in rual areas so they don't always have access to the internet.  They also don't know anything about MIcro Focus Cobol.  My question is can we bundle licensing into our installation so the end user doesn't have to install the Micro Focus license manager before they can install our product. #VisualCOBOL

Hello, I would like to be able to use a TextBox/Entry-Field with autocomplete like Google. So when you start typing a list box appears with suggestions. Does anyone know how to get this done. I tried using .NET but cannot get it to work Andre,

Hi I have this error details whenever I try to add ADO.NET Data Source, the message box says it's an unhanded exception here is the details: See the end of this message for details on invoking just-in-time (JIT) debugging instead of this dialog box. ************** Exception Text **************System.IndexOutOfRangeException: Index was outside the bounds of the array. at ConnEditorLib.DataAccess.SaveUserInfo() at ConnEditorLib.DataAccess.RemoveHashUserId(String newUser) at CustomConnEditor.CustomConnEditor.tbID_Leave(Object sender, EventArgs e) at System.Windows.Forms.Control.OnLeave(EventArgs e) at System.Windows.Forms.Control.NotifyLeave() at System.Windows.Forms.ContainerControl.UpdateFocusedControl() ************** Loaded Assemblies **************mscorlib Assembly Version: 4.0.0.0 Win32 Version: 4.0.30319.18033 built by: FX45RTMGDR CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll----------------------------------------mfconnectioneditor Assembly

Problem:During runtime you get Stack Overflow errors when Cobol DLLs are called. As the levels of inheritance grow up to a specific level everything runs fine, but when you move a step down in the inheritance level you get a stack overflow error. Solution: The usual cause of this kind of exception is that there is not enough stack space, and this is one of those cases.  The default stack size for a Windows executable is only 1Mb. To increase the stack size there are a couple of options here ... 1) Build the top-level code to an exe, and include a larger stack size e.g. set link=/stack:2000000 cbllink cobclient.cbl 2) Use editbin (in a VS command prompt) on the MF run trigger, to increase its stack size e.g. editbin /stack:2000000 run.exe The issue will not appear with INT code since in that case local storage is dynamically allocated from the Windows heap rather than from the system stack.#stackoverflow

Hello, I'm relatively new to the world of AcuCOBOL. I'm working on multi-thread programs (on Windows machine) and I was not able to understand the resulting behavior. So I have a couple of questions. Does the runtime really create different system-threads for every COBOL-threads calls ? If I have a cpu-intensive thread, does the runtime give in any case some resources to the other threads or I need to slow-down the first one (i.e. adding explicit sleep instructions) ? Thanks#cobolthread

Hi, I have wasted the whole day trying to access oracle database from managed COBOL the problem is the following: I created a new ADO Connection using the editor and I called it "adc" then I used it as the :SVR parameter as in samples I run the code and i return the SQLERRMC which tells me "Connection name not found." the most weird thing is that I use the following credentials as the :USR parameter which is "autodealer/cobol" when I change them to "autodealer\\cobol" i get that message but in the first case I get SPACES!!!            I hope someone answers me very soon. Best regards#SQL#COBOL

   Hi, we are migrating Cobol-Programs from BS2000 to MF ServerExpress on Solaris.  The MF Compiler throws this error message:  “COBOL word contains 31 characters.”  The “BS2000-OFFLOAD”-Dialect is set for the compiler. If this parameter is not set, the error doesn’t occur.The “BS2000-OFFLOAD”-Dialect includes a lot of other parameters (see below). Which of these parameters controls the length of the COBOL-words?   BS2000-OFFLOAD DIALECT setting If you set DIALECT"BS2000-OFFLOAD", the following Compiler directives are set:   ALIGN"8"ALPHASTART"1"ALTERNOANS85ARITHMETIC"MF"ASSIGN"EXTERNAL"BS2000-OFFLOADCALLFHCALLSORT"EXTSM"CANCELLBRCHARSET"ASCII"CHECKDIV"ANSI"NOCOMS85COMP5-BYTE-ORDER"NATIVE"COPYEXT"cbl,CPY,"NOCOPYLBRCURRENT-DATE"MMDDYY"NODBCHECKNODBCSNODBCSSOSINODBSPACEDE-EDIT"2"DEFAULTBYTE&quo

Hello, When we set XML-CODE to -1 (to handle functionnal parsing error) in the procedure calld by XML PARSE, the program fail with error : 114     Attempt to access item beyond bounds of memory (Signal 11). Traces show that it is the instruction 'XML PARSE' which cause the error. Do you have any idea of what can cause this error ? We are using : version @(#)cob.c       5.1.1.0PRN=R9CAO/AAG:9n.K4.51.04PTI=WrapPack 3PTI=ES   Regards, Raphaël RABU

Hi, I am facing a problem with SQLCODE = -1054 and I am stuck!! can anyone tell me what does it mean ?? If there is a table for SQLCODE error descriptions I will be thankful  Regards#SQL#COBOL

Developing COBOL applications has, until now, been largely constrained to the desktop environment. Over the summer, we set out to change the limitations of developing COBOL applications on the desktop environment, with a team of interns from Southampton and Cambridge Universities. The result was a prototype which supports a number of great features like: Error marking –the server will warn you about any syntax errors when you are editing code Code formatting – your code will be automatically formatted to make it cleaner and easier to read Syntax highlighting – variable syntax highlighting is available for a range of dialects Copybook support – allows you to open copybooks side by side or in a new window Read more in the blog:http://blog.microfocus.com/news/try-your-hand-at-editing-cobol-in-the-browser/2271/ Or try it out here: http://orion.microfocus.com #COBOLOrion

Which is the best configuration for Index files? Thanks #COBOL#linuxcobol

See for more details: community.microfocus.com/.../cobol-conference.aspx #VisualCOBOL

The MSDN C# example looks like this: using System;using System.Threading;public class Example{    public static void Main()    {        // Queue the task.        ThreadPool.QueueUserWorkItem(new WaitCallback(ThreadProc));        Console.WriteLine("Main thread does some work, then sleeps.");        // If you comment out the Sleep, the main thread exits before         // the thread pool task runs.  The thread pool uses background         // threads, which do not keep the application running.  (This         // is a simple example of a race condition.)        Thread.Sleep(1000);        Console.WriteLine("Main thread exits.");  &nbs

Good Morning, We are currently working with RM/COBOL accessing with RM/InfoExpress to a UNIX server data, anyone know how to connect from the visual cobol to files residing on Unix. I appreciate any help you can give me. Thank you.

Problem: It is easy to fully path to a file or files in the SELECT statement however this doesn't allow the root directory path to be changed at runtime without rewriting the application. Resolution: By using the RUNPATH environment variable and the RUN-FILES-ATTR EXPANDED-PATH-SEARCH configuration option allows for a more flexible solution.   For example, if you wanted to open the following files : /home/trpos/2012/FILE.DAT /home/trpos/2013/FILE.DAT Instead of fully pathing to them in the SELECT statement like this : SELECT DOSYA ASSIGN TO RANDOM "/home/trpos/2012/FILE.DAT" SELECT DOSYB ASSIGN TO RANDOM "/home/trpos/2013/FILE.DAT" You could assign them like this : SELECT DOSYA ASSIGN TO RANDOM "2012/FILE.DAT" SELECT DOSYB ASSIGN TO RANDOM "2013/FILE.DAT" NB:  Note the lack of a leading / Then set the RUNPATH environment variable to : /home/trpos This instructs the runtime to start it's file search path in the /home/

Created On:  04/27/2012 Problem: Customer seeing 'ERROR reading resource file' when installing AD/LDS on a new PC install.c:\\ADLDS>es-ldap-setupes-ldap-setup: Initial LDAP security setup for Enterprise ServerVersion 1.2.6Copyright 2006-2008 Micro Focus (IP) Limited.  All rights reserved.Run "es-ldap-setup /?" for usage information.Press any key to continue . . . Enter the information for the ADAM administrative user.This user account will be automatically created if necessary.Enter "-" to use your current logon credentials.Enter LDAP user name: -Enter LDAP partition DN [CN=Micro Focus,CN=Program Data,DC=local]:Enter LDAP host:port [localhost:389]:*** Checking password operations state...ERROR reading resource file. Exiting. *** Enabling password operations over unencrypted connections...Press any key to continue . . .ERROR reading resource file. Exiting. *** Importing ES user class definitions...Press any key to continue . . . (setup) mfds -l "DC=X" 1 mfds-schema.