Rocket® COBOL

Hi,   How can I do this in COBOL ? List  testList = new List(){"jack","henry","lisa","sandy"};   Best Regards#COBOL

Hi, Is there a way I can add prefix to a record and it's correspondent items when I copy the copybook into the working storage section ? Best Regards

Hi, i remember this error from a year ago, during test of MF cobol for Eclipse. I tried to find solution today, no luck with google, our forum or KB. So there it is, Use case; ****cobol code: FILE-CONTROL. SELECT DDEING ASSIGN TO AEING. *was UT-S-DDEING SELECT DDBERKA ASSIGN TO ABERKA. *was UT-S-DDBERKA ***** ***** DATA DIVISION. FILE SECTION. * FD DDEING RECORDING MODE F LABEL RECORD STANDARD BLOCK 0 RECORDS. 01 DDEING-REC. 05 DDEING-ELEM PIC X(2). 05 DDEING-REST PIC X(498). FD DDBERKA RECORDING MODE F BLOCK 0 RECORDS. ... OPEN INPUT DDEING                   <-- error 13 file not found OPEN OUTPUT DDBERKA I have following additional directives(error occures also without additional directives) ; DIALECT(ENTCOBOL) INITCALL"ORASQL8" ASSIGN "EXTERNAL" copyext"cpy" hostarithmetic PERFORM-TYPE"OSVS" signfixup IDXFORMAT(8) nolist and following env. var.; AEING ->  "G:\\Entwicklung\\mfes\\TPO\\Data\\LEM\\TS64004.QUACON.DDZMV.DAT"

We used to get this issue but now it came back. I have users that get an Upgrade to IE 5 or higher when they try to print from our Thin Client app. I copied the latest AcuBenchPrint.dll ot the correct directory on their pc but that still doesn't work. Anyone have a fix for this?

In the CICS API for Visual COBOL, the ROUTE call isn't supported. Does Micro Focus have a recommended work around?

Problem: Paged grids may not work correctly anymore with Thin Client 9.1.2.1.Usually, these grids are loaded using the following syntax: MODIFY grid-handle, ACTION = ACTION-FIRST-PAGE Starting with release 9.1.2.1, runtime does not enter automatically in the Event section and the grid is shown as empty. Resolution: Add the following environment variable in the runtime configuration file (cblconfi): ECN_2425 FALSE By default, ECN-2425 is enabled. This ECN refers to an enhancement developed to give a performance improvement to the Paged Grid control.  When you disable this ECN you no longer get the performance improvements (although slightly noticeable with the latest releases of ACU runtime) and the ACTION-FIRST-PAGE event is managed correctly.#9.1.2.1#Pagedgrid#Acuthin

Problem: Invalid or missing parameter to "M$ALLOC" COBOL error at 000021 in XZ_MOP Resolution: XZ_MOP is a module of XZOOM, a third-party tool once provided to ACU customers to open and review Vision files. Since this is a very old tool it is no longer supported. A possible workaround to fix the reported COBOL error is to recompile the whole tool using one of the latest versions of the compiler: 8.1.3.1 or 9.1.2.1. This of course requires the possibility to have the COBOL source code of the tool itself. Since this tool is quite old, it may be that it was originally compiled with old versions and/or with even older retro-compatibility options. I.e.: release 6.2 and "-z52 -Dv=32". The solution usually is to recompile XZOOM with recent compilers, removing the -zNN -cNN compiler options. Another reason that may cause COBOL errors at run time is the bit version of the compiled objects. In the previous example, the compiled objects were compliant with 32-bit servers, but not with 64-bit

PROBLEM Using CBL_COPY_FILE returning status-code. 0 = successful non-0 = not successful Is there a way to interpret the value of status-code to determine the reason for the failure similar to the file status and extended file status? RESOLUTION Actually, the value returned for status-code if used or in the RETURN-CODE special register is a file status code. You can check the success of the call by examining RETURN-CODE. Interpreting the return code as a file status code If any of the routines CBL_CHECK_FILE_EXIST CBL_COPY_FILE CBL_CREATE_FILE CBL_DELETE_FILE CBL_OPEN_FILE CBL_READ_FILE CBL_RENAME_FILE CBL_WRITE_FILE CBL_CHANGE_DIR CBL_CREATE_DIR CBL_DELETE_DIR CBL_READ_DIR fails, the RETURN-CODE register contains a file status value indicating the failure. This file status is always the standard ANSI'74 file status value. If no ANSI'74 file status is defined for the error, an extended file status is returned (9/nnn where nnn is the run-time system error number). You should, th

I set up to use Team Foundation Service, which is Microsoft's cloud based version of Team Foundation Server.  I've set up a build definition that does a build when I check in program changes but it always gives this error: The imported project "C:\\Program Files (x86)\\MSBuild\\Micro Focus\\Visual COBOL\\v1.0\\MicroFocus.COBOL.targets" was not found.  Confirm that the path in the <Import> declaration is correct, and that the file exists on disk. All Visual COBOL project files have this line:  <Import Project="$(MSBuildExtensionsPath)\\Micro Focus\\Visual COBOL\\v1.0\\MicroFocus.COBOL.targets" /> Team Foundation Service Build is still in preview which means Microsoft is still making improvements to it.  Has anyone successfully used it?  How would we go about getting Microsoft to add support for Visual COBOL ? Is Team Foundation Server a better choice at this time ?#VisualCOBOL

Hi, I am using Managed COBOL on .NET and I fetch a list of customers from the Oracle Database and then add them to a list of type List[Customer] the problem is at the debug everything is okay and the list is 100% filled with the right objects with the right values and when it's returned to be set to another list on the other also managed project - I've separated the business logic from the desktop view in two projects- the result is having the list filled with the object of the last entry of the list that was originally fetched for example if the list has the values  1 2 3 4 the result of returning the list is  4 4 4 4 and I repeat at debug time every thing is okay at the business logic project!! could anyone please tell me what's going on ?? Best Regards#COBOL

This article describes Java constructor throwing exception issue when calling Java from OO COBOL. Problem: Before the delivery of Net Express 5.1 Websync2, it was not possible for an OO COBOL program to consume a Java class's constructor that throws an exception. This has been fixed in Net Express 5.1 Websync2. The COBOL Code which creates an instance of JAVA class SimpleClass appears below. It is also attached to this article. ExceptionCatcher.cbl $set ooctrl ( p-f) program-id. ExceptionCatcher. class-control. SimpleClass is class "$JAVA$SimpleClass" EntryCallback is class "entrycll" JavaExceptionManager is class "javaexpt" ExceptionManager is class "exptnmgr" javasup is class "javasup" . working-storage section.& procedure division. *>---Set up Exception handler invoke EntryCallback "new

Hi, Is there a way that I can upgrade my current Visual COBOL PE for VS2010 to PE for VS2012 ? Best Regards#VisualCOBOL

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