Rocket® COBOL

Hi all, I’m Dominique SACRE, Product Director for extend - ACUCOBOL-GT and RM/COBOL product lines. It is my greatest pleasure to welcome all of you joining us for this RM/COBOL Forum, a part of the Micro Focus COBOL forum. Please feel free to ask questions about any topic which is related to RM/COBOL line of products. We will do our very best to provide you with answers to your questions. Best regards, Dominique  

[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 29 May 2012]Lots of warning messages is generated in the servers application-log: System - Provider [ Name] Micro Focus COBOL - EventID 1 [ Qualifiers] 0 Level 3 Task 0 Keywords 0x80000000000000 - TimeCreated [ SystemTime] 2012-05-29T07:52:37.000000000Z EventRecordID 250546 Channel Application - EventData C:\\program\\app.EXE GetLastError() returned 34 What is the cause of error 34?The MS explanation:ERROR_WRONG_DISK 34 (0x22) The wrong diskette is in the drive. Insert %2 (Volume Serial Number: %3) into drive %1.Running on windows server 2008 with therminal-server

[Migrated content. Thread originally posted on 28 May 2012]Hello People,In a screen level program, where one calls another, we get the following error thrown. Please Select: Program : BXXXXXXXTask : [6127]Routine : READFDRVersion : R004-V001-P003 Maintenance Change/s ScreenMessage : READFDR does not support function type [538976288]Diag : No such file or directory : READFDR.c : 116Can someone tell me how to get this resolved.PS: My first post here. Apologies if I haven't furnished enough info. Please let me know what is required. I can provide accordingly. Thanks for your time and support.

[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 trying to access are String values in Java, and I do not know exactly how to do it. I am able to obtain the array

[Migrated content. Thread originally posted on 19 May 2012]hi all,is there anyone to help to convert that I've wrote C# codes (below) to acucobol ?Thanks. using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Data;using System.Xml;using System.IO;namespace dvzget{ class Program { static void Main() { Console.Clear(); DataSet myDoviz = new DataSet(); myDoviz.ReadXml("www.tcmb.gov.tr/.../today.xml"); string[] rowString = new string[myDoviz.Tables[1].Rows.Count]; int i = 0; foreach (DataRow dr in myDoviz.Tables[1].Rows) { rowString = dr.ItemArray.GetValue(11).ToString() ";"; rowString = dr.ItemArray.GetValue(1).ToString() ";"; rowString = dr.ItemArray.GetValue(4).ToString() ";"; rowString = dr.ItemArray.GetValue(5).ToString() ";";

[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 08 May 2012]Hello, we are using ServerExpress on Solaris and we intend to change to Linux. On Linux I have to use another ServerExpress Version. Is there anything else to change on Linux? Do you have any experiences with the change from Solaris to Linux?Michael

[Migrated content. Thread originally posted on 24 May 2012]on one of the system with server express installed when i run cob it is throwing error-ksh: cob: not found [No such file or directory] also the cobmodebut cob64 compiler in the same folder is working finei have checked my PATH varaible and other environment variabledont know why this is coming please help

[Migrated content. Thread originally posted on 25 May 2012]Hi,I’m trying to create a delimited text file using only selected fields from a database. The problem I have is that the fields I need to extract from the database and the fields in the file that I want to move them to can change. So for example, I may want to move DATABASE-FIELD-1 to TEMP-FIELD-1 but I don’t know that the content (or value) of DATABASE-FIELD-1 is DATE-OF-BIRTH, nor do I know that the content (or value) of TEMP-FIELD-1 is TEMP-DATE-FIELD-1.Is there a quicker way of finding out what the fields are without using IF statements to determine what each of the fields are? In other words, can I use the contents of a variable as a variable?Any help would be very much appreciated.

[Migrated content. Thread originally posted on 25 May 2012]Hello,I am running Microfocus NetExpress COBOL program on LINUX in a batch mode. I execute a SQL query fronm the COBOL program. What I would like is when my query ends up in error, I would like to log an error in a log file, with the query that has just run. Is there a runtime variable that exists where the last executed query is stored? It would make my life easier cause I would then be able to log exactly the correct query without having to "restring" it in my COBOL program.I use an Oracle database.Thanks,Sophie

[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 23 May 2012]Hello,I am running Microfocus COBOL program on LINUX in a batch mode. What I would like is when my query ends up in error, I would like to log an error in a log file, with the query that has just run. Is there a runtime variable that exists where the last executed query is stored?I use an Oracle database.Thanks,Sophie

[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 does this code fail to work in VisCOBOL??

[Migrated content. Thread originally posted on 03 May 2012]C$XML is new for me so I have the next value that must in the xml file. How to do that, with ADD-ATTRIBUTE, but is not going right.xmlns="urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"xsi:schemaLocation="urn:iso:std:iso:20022:tech:xsd:pain.008.001.02 [LOCATION] pain.008.001.02.xsd">Thanks in advance.

[Migrated content. Thread originally posted on 15 May 2012]Hi! I am having an issue retrieving a time field from my SQL table into my COBOL program.It is defined as a time(7) in my SQL table, so I defined it in COBOL as PIC 9(06)V9999999.When I perform my get statement, I am receiving a 2002 error which means the field is not formatted correctly.How should it be formatted correctly so I can get that field back into my program?

[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 stating that 'Could not find method OK with this signature'. Have looked all over the msdn stuff and it says that OK at the end should work. What

[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.          03 url                          pic x(100).    &nbsp

[Migrated content. Thread originally posted on 15 May 2012]Hi I'm an old Mainframe Cobol programmer. Where can I get basic information like how to compile a HP Unix Microfocus cobol program? I don't even know what the compiler is called.

[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 11 May 2012]HiI get a 30,04 error occasionally on a UNIX systm. Looking in errno.h it says#define EINTR 4 /* interrupted system call */This time it looks like it happened when it was reading a record.Any ideas?Thanks