Rocket® COBOL

Hi :)I'm codding some test here, and, I see it's possible to use linq functions with VCobol, but, I don't know how to use that. http://i.imgur.com/4v79axn.png how I can use the select linq function, or, how I can make lambda expressions with Visual Cobol ?#VisualCOBOL

Hi I Need a public Method like this in C#:     public class WPFGridZeilen     {         public string GrSp01 { get; set; }         public string GrSp02 { get; set; }     } It's a public Class in a C# EXE File And with this i can get/set Data in a WPF DataGrid...  #PublicClassforaWPFDataGrid

Im reading an indexed file with visual cobol and displaying its data in a multiline textbox. The problem is that every field has a different size (not in the pic definition, but the "letters size"), and that completly disrupts the text formatting. See image below: What's the best solution for this problem?

Dear friends, I wonder if I can hide a tab control page in NetExpress Sincerely Rogerio Barbosa

Hi :) I have a code when I use the IS keyword, in C#, and I would be convert that code to Visual Cobol, how I can make this ? see the code: private static System.Boolean IsNumeric(System.Object Expression) { if (Expression == null || Expression is DateTime) return false; if (Expression is Int16 || Expression is Int32 || Expression is Int64 || Expression is Decimal || Expression is Single || Expression is Double || Expression is Boolean) return true; try { if (Expression is string) Double.Parse(Expression as string); else Double.Parse(Expression.ToString()); return true; } catch { } return false; } Thanks Alexandre Bencz

I am working with a dll where all the strings used in the funtion calls are defined as null terminated unicode strings.  I have never had to work with unicode before. Unicode seems to define each character as 2 bytes and my calls to the functions using standard PIC X fields don't seem to function properly. Any ideas on how I can make my PIC X fields unicode so that my function calls work properly?

Problem A VISION indexed file can no longer be updated due to error 98,01.READ statements on the file are still possible but WRITE or REWRITE operations cannot be executed. Resolution File status code 98 means:Indexed file corrupt. An internal error has been detected in the indexed file. The secondary error code 01 means:The file size listed in the file's header does not match the actual file size. The first thing to do to solve the problem is to rebuild the indexed file using the Vision File Utility (vutil on Linux/Unix platforms, vutil32.exe on Windows). To avoid this error returning in the future, caution should be taken in the way the COBOL source code accesses these files.For instance, it has been noted that a repeated occurrence of OPEN/CLOSE loops may cause the index file to become corrupt, mainly when other programs try to READ/WRITE the same file at the same time.In critical programs, a solution may be found in executing a single OPEN I-O at the start of the program a

Hi!I have a problem that seemingly occurs when calling Cobol from Java.Note that we still use Net Express 3.1 and the mfcobol.jar that comes with it.We have a Java application that acts as a server and calls procedural cobol to do the business logic.With every call to cobol, the memory usage of the process gets bigger and bigger.I checked the java heapdumps, but i couldn't find anything suspicious there.The called program is packaged in a dll and loaded with runtime.cobload().The dll is linked with options shared,dynamic and multi-threaded.All calls are done with runtime.cobcall_int(...) and the parameter types are always the same (an object array of one string and 2 StringBuffers).The Cobol program itself uses a thread-local-storage and calls several procedural sub-programs, all of which use working-storage sections.Does anyone have a clue of what is happening here or what i am missing?Do i have to use runtime.cobfinalize() on objects that i passed as parameters for the call?The stran

We have a screen that needs to be scrolled down/up to see the entire screen.  Is there any way that a image of the entire window can be taken?  W$BITMAP works for what is on the screen but not the entire window contents.  Any help or ideas would be appreciated.

I create an excel file with many workbooks (worksheets) inside but after 281th workbook i create the program returns me an error. The line i am facing the error is the following:            CREATE Application OF Excel HANDLE IN olExcel           MODIFY olExcel @SheetsInNewWorkbook= W-B9-SHEETS-COUNTERS           MODIFY olExcel Workbooks::Add() GIVING olWrkBk variables: 77 olExcel HANDLE OF APPLICATION. 77 olWrkBk HANDLE OF WORKBOOK. 77 olWrkSh HANDLE OF WORKSHEET.77 OLRANGE HANDLE OF RANGE. 01 W-B9-SHEETS-COUNTERS  PIC 9(9). Does anyone know why is that? Giorgos#Excel

Hi! As there is more and more different screen resolutions out there, we are experiencing that grid size is getting an increasing problem. Maybe we have a wrong, or slightly wrong, approach to calculating the size of the grid. We use today textsize-data from the font used (very often default font), but in same resolutions this is not correct. I would be very grateful if anyone could give some information on how they calculate the size of the grid, and maybe a short code sample. Regards Dagl

The following program doesn't seem to do anything. It compiles and runs, and in the debugger the IF conditions indicating an error are never TRUE. It just runs to completion, displays blanks, and writes no file. What am I missing? (ACUCOBOL version is 32-bit ACU 9.2.1 for Windows.) IDENTIFICATION DIVISION. PROGRAM-ID. IOTEST. DATA DIVISION. WORKING-STORAGE SECTION. 01 FILE-STATUS-GROUP. 03 FILE-STATUS PIC XX COMP-X. 03 REDEFINES FILE-STATUS. 05 FS-BYTE-1 PIC X. 05 FS-BYTE-2 PIC X COMP-X. 01 FILENAME PIC X(32) VALUE "test.txt". 01 ACCESS-MODE PIC X COMP-X VALUE 3. 01 DENY-MODE PIC X COMP-X VALUE 0. 01 FILE-HANDLE PIC X(4) COMP-X VALUE 0. 01 OFFSET PIC X(8) COMP-X VALUE 0. 01 WRITE-COUNT PIC X(4) COMP-X VALUE 32. 01 READ-COUNT PIC X(4) COMP-X VALUE 32. 01 GREETING PIC X(32)

At workspace level there is an option "Enable indexer" When this option is on. When you add many programs to a Cobol (local or remote) project, the indexation starts in background. You can't compile a program during the indexation. The indexation may take hours (depending number of programs and number of copys used), so before to compile you have time to drink a pint of single malt ! What is the real usage of the index ? What is the impact if the indexer is off : When I compile a single program is a local project ? When I compile a single program in a remote project ? When I start a project build ? What is the impact if the indexer is off For the local debug ? For the remote debug ? TIA#indexer

Im trying to convert a textbox information to decimal like the following: 01 FIELD PIC 9(10) ... SET FIELD TO TYPE System.Convert::ToDecimal(self::textbox1::Text) The problem is that the textbox contains a mask, and the function tries to convert "(XX)XXXX-XXXX" to numeric, and fails. Is there a way to make the textbox recieve only the typed information?

Hi :)IT's possible to read and write a sequential file in Visual Cobol .net ? Like in that sample ? ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT StudentFile ASSIGN TO "STUDENTS.DAT" ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD StudentFile. 01 StudentDetails. 02 StudentId PIC 9(7). 02 StudentName. 03 Surname PIC X(8). 03 Initials PIC XX. 02 DateOfBirth. 03 YOBirth PIC 9(4). 03 MOBirth PIC 9(2). 03 DOBirth PIC 9(2). 02 CourseCode PIC X(4). 02 Gender PIC XI get that sample in that link:http://www.csis.ul.ie/cobol/examples/SeqWrite/SEQWRITE.htm http://www.csis.ul.ie/cobol/examples/SeqRead/SEQREADno88.htm

I have several methods that I use in all of my forms and projects. I would like to place them in a library and access them from wherever I need them. Can you help me with the setup and syntax? I have done this in other languages I hope I can do it here as well.

Introduction Now that we have a SOAP Web service containing our Legacy COBOL application, the next question is, how can we access it from a client? This tutorial gives a possible client-side scenario of how to use JSP to present the server information. The tutorial uses client-side Web services code to connect to the Web service. The JSP side of the application is based on Visual COBOL 2.2 - JSP Web Services Tutorial and explains the JSP and servlet areas in depth. So this tutorial focuses mainly on the client Web services code and the layer which joins the two sides together. The different parts of the client are: 1.       A servlet which is used to receive the user requests using a Web browser. This uses JSP to present the HTML. 2.       Bridge code which takes the servlet request and transforms it into an object for the client-side SOAP request, receives the server response and passes it back to the servlet. 3. &nbsp

Hi! I have a Problem to Access / Read the Regestry via Windows API under Windows 7 64 Bit Under Windows 7 32 Bit there is no Problem... Here is the code that works under 32 Bit without Problems:            MOVE     SPACES                  TO     REG-KEY-ERGEBNIS.            MOVE     SPACES                  TO     KEY-AUFRUF.            STRING   REG-KEY-HAUPTKEY        DELIMITED BY "  "                     X"00"      &nbsp

TestClient1.zip

Hopefully I'll phrase these in an understandable way.  As generated code is non-sharable does this mean each thread in a multi threaded program will load its own copy of a .gnt? If a .gnt is regenerated whilst a program is running is there a recommended way for the program to pick this up and use the new version without stopping it. Can this be triggered from a thread which isn't using the .gnt? Thanks, Gary.

Problem: Using the AcuCOBOL debugger, the following popup message may appear when the debugged programs use threads:"Traced thread waiting for message - switching threads".Click here to see the preview of this popup. Resolution: To avoid this popup message to appear again, select the voice "Run all Threads" from the "Run" menu in the debugger window.Click here to see the preview of this voice of menu.

I need to trap the Event, when a Textfield is left. I.e. when I push a defined (e.g. List-) button, the field that had Focus causes a "Leave" Event occuring before the button pressed Event is detected. I need to suppress any Action on Leave, when not caused by Key Input (Tab or Return). Thanks in advance for any help. Regards Rainer

Problem: The following error occurs after supplying a valid Serial Number and License Key in Apptrack: You cannot have standard & transaction licenses installed together Resolution: You need to review the licenses that are already installed by pressing 1 from the main menu of Apptrack. This error usually occurs when you have previously installed a Developer License that is usually identified with a serial number, such as NXDEVAS5, WINDEVSERV50, etc. If this is the case, you will need to uninstall it, and then you will be able to install your permanent licenses. If the other serial number is not a Developer License, then you will need to contact your sales rep to determine, which serial number and license type you should use to run your applications.

In converting a system from DB2 to ODBC I have discovered (I think) that the previous SQL codes that were returned by DB2 are now different when using ODBC. For example I have just had a -19519 error. When I looked at it it was a 'cursor not open' error. The code currently looks for a -501 error. This may or may not be a major issue. The codes are all stored in a copy library so it may be easy(ish) to change:            78  WS-FILE-DBMWRONGCOLS            VALUE -117.           78  WS-FILE-DBMINDNOTFOUND          VALUE -204.           78  WS-FILE-DBMNAMENOTFOUND         VALUE -204.           78  WS-FILE-OUTOFRANGE  

I am working with winforms and in the file section I have a file that needs to be accessed from a static method.  I get the following error message on fields that are associated with that file...error code COBCH0969, Cannot access object data from a static method or field.    In order to fix these compile errors I put the keyword static on the FD of the file.  When I run the program in this way I get a runtime error of NullRefernceException -- object reference not set to an instance of an object.  Now I realize that I could make the method as public and my problems would go away, but I really don't want to have to do this.  How can I resolve this issue?  Thanks#VisualCOBOL