Rocket® COBOL

[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

[Migrated content. Thread originally posted on 02 May 2012]hi friends , While debugging a cobol program when i am doing /4 on a variable to monitor its value it is showing me the error only one screen in Use I am new to cobol World .Please tell me if need to do some environment setting.I am working on server express 5.1 and rhel os.

[Migrated content. Thread originally posted on 07 May 2012]I'm only able to connect to my Oracle database via:-Going control panel -> administrative tools -> ODBC data source manager; creating a DSN for Oracle XE-Putting he following in the program: exec sql CONNECT WITH PROMPT end-exec-Once the program's running, a prompt appears; I select the aforementioned DSN.-Then a prompt corresponding to that DSN appears; I type service name, user name, password.Are there simpler ways for this? Something akin to a connection string? My main hope is to be able to skip the prompt for DSN and its creation, and maybe the prompt asking for password. I.e. ideally as soon as the program's running it connects right away with no need for user input.

[Migrated content. Thread originally posted on 04 May 2012] Hi,I have an old NetExpress v3.10 and wanted to use Eclipse as my EDI... is this possible? Say you Microfocus designed a plugin for it and it is generic downloadable.

[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 25 April 2012]Hi,Our MF cobol code exes and dlls are running (backend services) in windows 2003 R2 server. Its been 6 years and there are no changes made to it. When we try to set up a new environment in a different windows 2003 R2 server, it is failing with signal 11 (error name is mentioned in the subject) after processing few policies. Can anyone provide the right way to approach this problem? Is it anything access related issue?It is working fine, if we do the same set up in XP desktop machines.What is this SQLSVR32? Is it a dll or method? I am unable to find any dlls with this name instead there are versions of SQLSRV32.dlls are present in the machine.I don't know on which version of MF cobol, the exes/dlls are built. If there is any way to identify, please let me know that too.Thanks in advanceAnton

[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 24 January 2012]I'm installing Net Express 5.1 on a Windows 2008 box.So, it's saying that Visual Studio 2008 is required to install Net Express.Well, unfortunately it does not appear Visual Studio 2008 is a download. I've tried the Express version and that doesn't work. Visual Studio 2010 also doesn't work.Can anyone provide any guidance for which specific version of Visual Studio that works with NetExpress 5.1?Thank you in advance,-R

[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 'vertex' and my class is named 'Vertex'. I wrote this class using NetBeans, under Windows, and copied the JAR file to the AIX server. The COBOL program has been written without using Eclipse, too.The lines below belong to this program:      $set ooc

[Migrated content. Thread originally posted on 24 April 2012]Hi,Our MF cobol code exes and dlls are running (backend services) in windows 2003 R2 server. Its been 6 years and there are no changes made to it. When we try to set up a new environment in a different windows 2003 R2 server, it is failing with signal 11 (error name is mentioned in the subject) after processing few policies. Can anyone provide the right way to approach this problem? Is it anything access related issue?It is working fine, if we do the same set up in XP desktop machines.What is this SQLSVR32? Is it a dll or method? I am unable to find any dlls with this name instead there are versions of SQLSRV32.dlls are present in the machine.I don't know on which version of MF cobol, the exes/dlls are built. If there is any way to identify, please let me know that too.Thanks in advanceAnton

[Migrated content. Thread originally posted on 16 April 2012]Hi!We are trying to consume a webservice that use SSL. We use RMnet for this, but we get "Unsupported protocol". Probably, the reason is that we does not provide the certificate, or we cannot set it off.Somewhere, I found there should be a possibility to set the verification off. Using a function "NetSSLVerifyPeer". But there was no documentation of the use of the function, and I have not been able to find the documentation refered to. Can anyone give me a example of the use of this?Generally speaking, can anyone give me a example/description of how to communicate wiht such webservices using RMnet?RegardsDagl

[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).                            *> Error here           

[Migrated content. Thread originally posted on 23 April 2012]Hi,When I try to open NET Express, I am getting below mesages: No License code is available for feature MTOD development on 127.0.0.1 (NET Express 6.0) get LicenseIf you are unsure how to proceed, you should contact your support representative.It seems, my temparary license is expired, is there any way to get the license extenstion, please advise.Regards,Murali.

[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