Rocket® Visual COBOL®

[Migrated content. Thread originally posted on 07 June 2012]Hi All,I'm trying to call the EXTFH opcode 0xFA06 to retrieve file information but my program abort with code 9/-95.What does this code mean?Is there, somewhere, a list of all status code? Thanks in advance.Fly.

[Migrated content. Thread originally posted on 11 June 2012]Hi alllet's compare VB.net codes with Visual COBOL(managed or not) codes. Anyone to convert VB.net codes (below)? Thanks in advance. Imports SystemImports System.TextImports System.IOImports System.Net.MailModule Module1 Dim mail As System.Net.Mail.MailMessage Dim wshost As String = Nothing Dim wsport As String = Nothing Dim wssender As String = Nothing Dim wspassword As String = Nothing Dim wsrecipient As String = Nothing Dim wssubject As String = Nothing Dim wsbody As String = Nothing Dim wsfile As String = Nothing Dim wiport As Integer Dim StreamEncoding As Encoding Dim txtline As String = Nothing Dim txtline2() As String = Nothing Dim flag As Integer Public Sub Main() '

[Migrated content. Thread originally posted on 02 June 2012]Good Afternoon,I am having a problem creating a Tab Delimited ASCII file. Here is an example:I write the following ASCII record:01 MEI-VT-LUCI-HEADER. 03 FILLER PIC X(06) VALUE "TICKET". 03 FILLER PIC X(01) VALUE X"09". 03 FILLER PIC X(01) VALUE "A". 03 FILLER PIC X(01) VALUE X"09". 03 FILLER PIC X(01) VALUE "B".The hex values should be:54 49 43 4B 45 54 09 41 09 42 0D 0AHowever when I look at the hex values in my resulting ASCII file it looks like:54 49 43 4B 45 54 00 09 41 00 09 42 0D 0AFor some reason the system puts a X"0

[Migrated content. Thread originally posted on 29 May 2012]The opcodes is: FhOp-Read-Random-Kept-Lock value x'DB'. FhOp-Read-Random-Lock value x'DA'. FhOp-Read-Random-No-Lock value x'8E'. FhOp-Read-Random value x'F6'.But the statement READ SOME-FILE IGNORE LOCK is not the same as FhOp-Read-Random-No-Lock.Actually FhOp-Read-Random-No-Lock and FhOp-Read-Random behaves same.What do I need to specify to ignore that the record is locked and aquiring the content?Does that also work with:CALL "EXTFH" USING FILE-HANDLER-FUNCTION FCD.

[Migrated content. Thread originally posted on 14 May 2012]The third webinar in the Visual COBOL webinar series, Getting Started with Eclipse, is now open for registration.WhenThursday May 24 2012 8:00 PDT / 11:00 EDT / 16:00 BST / 17:00 CESTFind out more information and register to attend

[Migrated content. Thread originally posted on 17 May 2012]Hello,I am trying to obtain the values of an array from a Java program, using a Visual COBOL program, this way (this has been taken from the example 'Using the JArray Class"):       01 arrayElement    pointer.                   invoke wsTable "getElement" using                                   by value CDims                                   by reference Dims                                   by reference arrayElementThe problem is that the values I am tryin

[Migrated content. Thread originally posted on 16 April 2012]Can anyone recommend a good piece of reading material for assisting in converting our current GUI Dialog (circa 1999) into Visual COBOL Winforms?I'd just really like to get rid of the screens and build afresh if possible but am a beginner when it comes to the .NET protocols & stuff!

[Migrated content. Thread originally posted on 04 May 2012]The error code "COBCH1202 COBCH1202 Original item is larger than redefinition (size1 > size2)" belongs to server express 5.1. Can you please let us know more details on this error.

[Migrated content. Thread originally posted on 24 May 2012]Hello,I am trying to play with NetExpress 5.1 with C#.I installed NetExpress 5.1 (evalutaion) after VS 2008 Shell Redistribution.The MF packages are in C:\\Program Files\\Micro Focus\\Net Express 5.1\\PACKAGES\\PublicAssembliesI try some example found in CobolanddotNetprojects from MF resources.I can compile the code without error but when I try to run a program (circleUI for example), receive an error message : Could not load file or assembly 'MicroFocus.COBOL.Runtime'.I declare the resources in the C# project, the cobol dll is also there.Do you have any idea why I have this error ? I thank you.Alain

[Migrated content. Thread originally posted on 21 May 2012]In NET EXPRESS code we have code that reads as: SET MPR-POINTER TO ENTRY "MPR.DLL". IF MPR-POINTER = NULLS MOVE "** UNKNOWN **" TO WS-OPERATOR.(where MPR-POINTER defined as 01 PROCEDURE-POINTER)This works and when run ALWAYS returns a value into MPR-POINTER.In VisCOBOL code reads as: SET MPR-POINTER TO ENTRY "MPR.DLL". IF MPR-POINTER = NULLS MOVE "** UNKNOWN **" TO WS-OPERATOR.(where MPR-POINTER defined as 01 PROCEDURE-POINTER)This DOES NOT work and the value returned to MPR-POINTER = NULL.As mpr.dll is in C:\\Windows\\System32 directory and is correctly pathed in the Viscobol setup (as seen by typing PATH in the VisCOBOL command Prompt Dos BOX) then why do

[Migrated content. Thread originally posted on 16 May 2012]We were using Procob18 and now moved to Procob Oracle 11 compiler. For both Server Express and Visual Cobol for Eclipse on Linux the precompiler is adding an empty line with a just a dot in it. It doesn't always happen and we don't know exaclty when. We suspect it happens when an IF clause is ended by a dot and not by an END-IF.Has anybody encountered this problem? any idea for a solution?Thanks

[Migrated content. Thread originally posted on 16 May 2012]In adding other dialogs to my initial form group for questions & things I have code in my main form that reads as follows... * The DELETE button gets pressed. *////////////////////////////////////////////////////////////////////////////// method-id DelButton_Click final private. local-storage section. 01 Result type DialogResult. 01 MessageDialog type BankSetup.ConfirmMessage. procedure division using by value sender as object e as type System.EventArgs. set MessageDialog to new BankSetup.ConfirmMessage invoke MessageDialog::ShowDialog() RETURNING ResultMy question is how do I check the value of RESULT?Have tried...if MessageDialog::DialogResult = Result::OK but I get an error s

[Migrated content. Thread originally posted on 11 May 2012]The following code doesn't seem to display my listbox contents after performing it. What am I missing? method-id LBox_Button_Click final private. local-storage section. 01 my-listbox type System.Windows.Forms.ListBox. 01 companyName type String. procedure division using by value sender as object e as type System.EventArgs. set my-listbox to new System.Windows.Forms.ListBox invoke my-listbox::BeginUpdate move "Fred" to companyName invoke my-listbox::Items::Add(companyName) invoke my-listbox::EndUpdate end method.

[Migrated content. Thread originally posted on 21 December 2011]Hello,I have this program that works correctly in RM/COBOL. It generates an XML document with the XML extensions libraries.       IDENTIFICATION DIVISION.       PROGRAM-ID. PROVAXML2.       AUTHOR. mossa.       DATE-WRITTEN. 20080304.      *       ENVIRONMENT DIVISION.       CONFIGURATION SECTION.       SOURCE-COMPUTER. LEVEL-6.       OBJECT-COMPUTER. LEVEL-6.       SPECIAL-NAMES.           DECIMAL-POINT COMMA.       DATA DIVISION.       WORKING-STORAGE SECTION.       01 VAR-PROGRAMA.    &nbs

[Migrated content. Thread originally posted on 14 May 2012]Is there a property I can set on a Winform to allow for immediate tabbing to the next field once the field I'm completing becomes full.I'm attempting to program a bank sort code fill with 3 fields (each of size 2) which I want to 'bounce' from field to field once I've completed each field of 2 characters without the user having to press the tab key themselves. I've looked in the properties box and on the msdn material but nothing is apparent??

[Migrated content. Thread originally posted on 27 April 2012]1. How do you pass in linkage-section data items when running in the DEBUG perspective?2. Can you explicitly point to VSAM files for testing in DEBUG perspective? I'm trying it like this but it's not working, I get file status 9/45 on OPEN... SELECT MY-VSAM-FILE ASSIGN TO "C:\\Development Projects\\TestFiles\\MYVSAM.dat" ORGANIZATION IS INDEXED ACCESS IS DYNAMIC FILE STATUS IS MYVSAM-BYTES RECORD KEY IS MYVSAM-KEY-X.3. Is there a setting that lets you have a different extension other than .cbl?We have many named *.CL2, but when you bring them into the Eclipse editor it doesn't do syntax checking unless they are rename to *.cbl.

[Migrated content. Thread originally posted on 02 May 2012]I am getting a warning for every working storage definition with a VALUE clause saying that VALUE can only be used with the INITIALIZE statement. My source format is Fixed. Is there a way to resolve this warning? I have some legacy code that uses the VALUE clause extensively and will cause a lot of recoding to put the initial values in the variable fields. Most of the values are not spaces or zero. Below is an example: 05 NAV-SEC-INFO. 10 FILLER PIC X(05) VALUE ' '. 10 FILLER PIC X(15) VALUE '044044044044044'. 10 FILLER PIC X(02) VALUE ' '. 10 FILLER PIC X(11) VALUE ' LXXO001 '. 10 FILLER PIC X(35) VALUE 'Online Update '.

[Migrated content. Thread originally posted on 18 April 2012]Hello,I am trying to invoke a Java class from Visual COBOL, following these lines:Declaring Java ClassesBut I am not able to do it. This is the error that appears:Load error : file '$java$vertex.Vertex'                                         error code: 198, pc=0, call=1, seg=0                                            198     Load failure Java by itself is running well.The Java module is defined inside the package

[Migrated content. Thread originally posted on 24 April 2012]Hi ((:I'm trying to write a program, but the compiler give me an error in following line of code, and I do not know why :X       class-id assembler public.              01 CurrentNdx binary-long.       01 AsLength binary-short unsigned.       01 IsEnd condition-value.       01 ExecutionAddress binary-short unsigned.              method-id Main static.       01 LabelTable type System.Collections.Hashtable.       procedure division using by value Args as string occurs any.              set LabelTable to new System.Collections.Hashtable(50).        &n

[Migrated content. Thread originally posted on 18 April 2012]How would I go about storing variables and/or methods that can be accessed from any Form in the project? Coming from vb.net, I'm used to modules and am not sure what to do without them.Alternately, is there a way a child Form can access its parent Form's user-defined properties and controls? So far I can only access and alter properties such as Self::Owner::Width, but no luck with the ones I created myself. For another vb analogy, that could be done using CType, so an equivalent might help if I knew of one. Thanks in advance

[Migrated content. Thread originally posted on 17 April 2012]I define a string variable,01 name         string.Then, how can I assign it the user input via the Console class' ReadLine method?invoke type Console::ReadLine(pName)set pName to Console::Readline()Neither goes by without compiling errors, despite ReadLine's definition. I must admit lack of knowledge on oo, but the other methods from Console seem to work just fine.On this regard, is there anywhere I can read descriptions for the different default classes and their methods?

[Migrated content. Thread originally posted on 11 April 2012]Hi ((:I wonder, how can I do to print text using .netsomething like this: www.c-sharpcorner.com/.../printfile.aspxBut of course, in Cobol.net ((:Thanks ((:

[Migrated content. Thread originally posted on 13 April 2012]Cloud-based services is taking over. How does NE/Visual Cobol meet this new future?1 Cloud-based development on Azure with IDE?2 deployment on Azure of production app?

[Migrated content. Thread originally posted on 28 March 2012]Hi all:I downloaded a trial copy of Visual COBOL 2010 R4 for Eclipse update 2.When I try to install in my CentOS 6.2 server the installer shows the message below:--begin-- -=-==================================================================-=- Micro Focus Visual COBOL R4 - Installer www.microfocus.com ./setup_viscobolr4_deveclipse_update2: - WARNING - The installer is being run on an unsupported platform. See System Requirements on product support site for platform details. You platform has been detected as :- Linuxx86_64--end--I already read the System Requirements and CentOS is NOT a supported platform.Is there any option in installer to skip the platform test?ThanksHudson

[Migrated content. Thread originally posted on 21 March 2012]Hi all, just a reminder that the next Visual COBOL webinar will be held tomorrow.More details and how to register here, Hope to see you there.Thursday March 22 20128:00 PST/11:00 EST/16:00 GMT/17:00 CET