Rocket® COBOL

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.

Created On:  7th March 2012 Problem: How to use Visual Studio 2008 to debug a core dump produced by core_on_error. Resolution: Start Visual Studio 2008Click on 'create project' and select "Native" under Cobol Projects.Select the "Empty Project" template in the right-hand window and click 'ok'Open the project properties and click on the 'debug' tabSelect "Start External Program" and browse to the core dump file. (Note: next to the 'filename' window at the bottom, select to view 'All files' in order to be able to select a corefile (i.e. a non-executable file))click on 'Open'Select 'Debug' -> Start Debugging If there is a popup error window regarding build errors, select 'yes' (to continue with the last successful build) The debugger positions itself on the line of code that caused the coredump Old KB# 35616

Created On:  11th July 2012 Problem: Application uses cobol application on linux platform and database db2 for z/os on mainfarme. Cobol application communicates to database server with db2 connect. Application uses compile directive CHARSET=ASCII. There is a problem calling db2 if we use host-variables that contain the HIGH-VALUE character (X'FF'). This character is converted into EBCDIC character X('9F'). For examplesql BETWEEN from LOW-VALUE (x'00') and HIGH-VALUE (X'FF'),db2 z/os executes the BETWEEN from LOW-VALUE(X'00) and X'9F'.In EBCDIC the character X'9F' isn't the largest, and the BETWEEN result isn't correct. We have tried to set the same CODEPAGE from db2 client and db2 server, but we haven't tried to use the CHARSET=EBCDIC because we are using Server Express 5.1 WP 6 and need to use MFHCO - is MFHCO available Server Express 5.1 WP6 (since it doesn't support MTO)?The following error is seen:cob64: error(s) in compilation: sigt504.cobThis is on a 64 bit system Res

Created On:  11/7/2011 Problem: (NOTE: NX versions prior to 5.1 are not supported on Windows 7)Unable to revoke a license installed on Windows 7 using an unsupported License Management Utility.  License was previously installed on an OS that the non-Windows 7 compatible License Management Utility was installed on. Resolution: From the License Management utility, go to Start Menu > All Programs > Micro Focus Net Express X.X > Configuration > Right-click "License Management System" > Choose "Properties".  Under the Compatibility tab, check the box for "Run this Program in Compatibility Mode for:" and select the previous version of OS that you were running.  2513701 Old KB# 35180

Problem: Customer is using Visual COBOL for Visual Studio and needs to increase the stack size that is linked into a native .EXE. Is there a way to set this option other than by setting the LINK environment variable with the "/STACK:8000000" value? Resolution: Setting the LINK environment variable should also work under Visual COBOL for linking native .exes but you can additionally set the link directives in the project properties. Open the properties and look at the COBOL Link tab. Near the bottom there is a field called Additional Directives. You can pass directives to the linker by specifying the -wl option along with the directive. -wl"/STACK:8000000" For managed code we have a directive called -ILSTACKSIZE that allows you to do this.

Problem: Customer has a program that uses embedded SQL statements using the OpenESQL precompiler.This program compiles without errors under Net Express but when compiling under Visual COBOL as a native program it gets the following error:COBCH0801: Statement Incompatible with BEHAVIOR settingon the following statement:       EXEC SQL SET CONCURRENCY READ-ONLY END-EXECWhy is this occurring? Resolution: This error message occurs because the default settings of the SQL BEHAVIOR directive have changed in Visual COBOL.By default it is now set to BEHAVIOR=MAINFRAME if it is not specified.You can change this behavior back to the Net Express defaults as follows: Close Visual Studio and then in the C:\\Program Files\\Micro Focus\\Visual COBOL\\bin folder run the program esqlconfigw.exe. Click on the third option down which is for no change in behavior and then click the save button. Open up Visual Studio and try compiling again.The error message should now be

I have the below in a project: 77 SW-SHOW   USAGE IS UNSIGNED-INT  VALUE IS 5.01 OPEN-COMMAND.     05 FILLER           PIC  X(04)   VALUE IS "OPEN".     05 FILLER           PIC  X(01)   VALUE IS X"00". 01 WS-ADDRESS    PIC X(250) VALUE "http:\\\\www.google.com". -----------------------------------------------------------------------------            CALL "@[DISPLAY]:shell32.dll".           CALL "@[DISPLAY]:ShellExecuteA" USING                BY VALUE 0,                BY REFERENCE OPEN-COMMAND,&

Problem: Customer is using ACCEPT/DISPLAY statements in a Visual COBOL native program to perform screen I-O. The screen that they have defined is 80 characters by 30 lines.They are displaying data on line 25 and the character that should be displayed in column 79 is being dropped.   Why and how can this be fixed? Resolution: There are several positions on the screen to which error messages and indicators are displayed by the ACCEPT/DISPLAY screen handling module and by default these are set on row 25. You can configure these to display on a different line or column by using the ADISCF utility. Open up a Visual COBOL command prompt and do a cd to your project folder and enter the command: adiscf to start the accept/display configuration utility. Press F2-Alter Press F7 positions Change the locations to the desired ones and then press Enter to return to menu. Press Esc key to return to main menu and then press F4 to save. Press F3 to overwrite current configuration then press Enter

Problem: Customer has a native Visual COBOL application that is using an OPEN to a printer which is a USB printer under Windows.They are setting the configuration option set printer_redirection=TRUE in a cobconfig.cfg file and are setting the environment variable COBCONFIG_ to point to this file.The printer redirection is working correctly and the output from the WRITE statements is successfully be printed. The problem is that the report is supposed to be aligned in columns and these columns are not be aligned properly so they do not match up from row to row. It prints correctly when printing to a printer attached to the LPT1 port. Resolution: Notes: Printer alignment issues on a USB printer most likely have nothing to do with COBOL and have everything to do with what is set as the default font for the printer. If the default font is a proportional font then all characters are not the same width so depending on what characters you are printiing the columns will not line up correc

Problem: A problem was encountered opening indexed files after an application was upgraded from Net Express to Visual COBOL running native code. The SELECT statement was as follows: SELECT ‘filename’ (i.e. no extension specified). Also, INDEXNAMETYPE=2 was set in the file handler configuration file. As a result when opening a new version of a file in Net Express the file handler created an indexed file with the naming convention filename.dat and filename.idx. When testing Visual COBOL it seemed the Visual COBOL Native Runtime was ignoring this directive and was creating just the one file - filename.dat. Some files were temporary transaction files and these were to be removed using the DELETE FILE statement each time the program was run. But in Visual COBOL the .idx file was not deleted when the DELETE FILE statement was executed, and this caused a problem when opening the file later on.   Resolution: The reason this happened was because in Net Ex

Problem: acurcl 7.2 or 8.1 might not start anymore after extend® suite 9.1.2.1 has been installed on the same Windows server. The acurcl (or acuserver) service is created but it does not start.The Windows Event  Viewer reports the following error: Faulting application name: acurcl.exe, version: 7.2.2.0, time stamp: 0x462fed5bFaulting module name: MSVCR71.dll, version: 7.10.3052.4, time stamp: 0x3e561eacException code: 0xc0000005Fault offset: 0x00011da1Faulting process id: 0x14c8Faulting application start time: 0x01cdb77f8a7acc30Faulting application path: C:\\Acucorp\\Acucbl722\\AcuGT\\bin\\acurcl.exeFaulting module path: C:\\Acucorp\\Acucbl722\\AcuGT\\bin\\MSVCR71.dllReport Id: c90bdb71-2372-11e2-8f5d-005056c00008 Resolution: Starting acurcl 9.1 adds this registry entry: HKLM\\System\\CurrentControlSet\\Services\\Eventlog\\Application\\acurcl\\EventMessageFile which points to the 9.1 acme.dll file. Then acurcl of any previous version does not start because it tries

Hi All, I am working on Cobol Ver 5.1.4.0 , Linux  ( 2.6.18-194.el5 x86_64 x86_64 x86_64 GNU/Linux ). Program with following code was compiled successfully, but when execute command  'open output xml-stream',  the file-status value is set as "000000001- " .   Please if anyone can help me with the settings required, for this code to work. ********************** Code *********************        $set p(prexml)  o(dth1.cp) endp  noibmcomp       id division.       program-id. DTH1.       environment division.       input-output section.       file-control.        select xml-stream    assign to "$HOME/myxml.xml"             

I am trying to fill the variable W-SW-VAR1 but i get 0 (zero). Does anyone know why? MODIFY Sr10-MSC-1 DataGrid::RowLabelCount = 1 DataGrid::ColumnCount = 10 DataGrid::RowCount = 1 ChartType = VtChChartType2dPie MODIFY Sr10-MSC-1 Plot::SeriesCollection::Count() GIVING W-SW-VAR1.

Hello  I found there is “Find References” can be selected when I right clilck on a variable. But,the result is only the references in current program When I want to know the references in the project even in the workspace, how do i do Although,i can use Search.but it doesn't have good exactness i want the feature lilke reference in java ， once search，multi-results in multi-programs Please tell me, thank you