Rocket® COBOL

I'm starting the progress of migrating RM Cobol (Linux) to RM Cobol/Visual Cobol(Linux) with Eclipse (Windows) The problem I've encountered is if the Cobol Code has the "ASSIGN TO PRINTER" clause the program in RM/VC redirects the report to a file called "LPT1", which I know is a throwback to the older Parallel printers. Normally "ASSIGN TO PRINTER" just directs the report to the file name specified before the ASSIGN clause, which we could handle via redirection in Linux. That doesn't appear to work with RM/VC. I've even tried using "ASSIGN" to a file, but the file only had 6 of the 80 lines the report should've had. I should mention that the LPT1 is the complete report, but I really need to control where this file is created and what it is called. Any Ideas? #VisualCOBOL#Printer#redirection#rm#Assign#Eclipse#COBOL

I am having troubles trying to implement a call to a Java program using "C$JAVA".  Here is my Java code: public class TestClass { // Main public static void main(String arg1) { System.out.println("test"); System.out.println( "TestClass: main command line argument 1: " arg1 ); } public void testMethod(String arg1) { System.out.println("test"); System.out.println( "testClass: testMethod argument 1: " arg1 ); } } When I try calling the main I get a return of -1 (Invalid Arg): CALL "C$JAVA" USING CJAVA-CALLJAVAMAIN, "TestClass", "String1" GIVING STATUS-VAL. When I try calling the testMethod I get a return of -3 (Class not found): CALL "C$JAVA" USING CJAVA-CALLSTATIC, "TestClass", "testMethod", "(X)V", "String1" GIVING STATUS-VAL. Can anyone help me out with this?  I've also tried taking out the argument to Main but still get the -1 error. Thanks!#CJAVA

Hi, We want to share a Cobol Structure between our Cobol program and a new Java Program. The Cobol program will call the Java program. We have succeeded running simple examples exchanging simple data type beteen Cobol and Java. We have failed so far with the CustomRecord data type. Here is our Java CustomRecord class: import com.microfocus.cobol.lang.*; public class TPrestInter implements CustomRecord, java.io.Serializable { private static final long serialVersionUID = 827363353239593196L;private long noEmployeur; public Object[] getParameters(){return new ParameterList().add(getNoEmployeur().toString().getBypes()).getArguments();} public void setParameters(Object[] params) {Byte[] byteNumeroEmployeur = (byte[]) params[0]);setNoEmployeur (Integer.parseInt(new String(byteNumeroEmployeur));} public Long getNoEmployeur() {return this.noEmployeur;} public void setNoEmployeur(Long noEmployeur) {this.noEmployeur = noEmployeur;}} Here is the Java class That generates custom record objects pub

i have a program written in rm/cobol that i am trying to compile using visual cobol.  i am have set the proper dialect and its compiling successfully.  the problem i am facing is on the windowing system.  my current program calls rmputil to create the windows and dialogs.  since that is a compiled library that comes with rm/cobol (runpanel.cob, rmputil.cob, what are my options now?  is there source code available so i can recompile those? or i have to rewrite all my code? and what is available in visual cobol so i can do the migration easily? Thanks Ali

I want to send a message to a thread to close and am attempting to use the CBL_THREAD_IDDATA_ALLOC and CBL_THREAD_IDDATA_GET routines. I am am getting an exception error when calling CBL_THREAD_IDDATA_GET after creating the and the intellisense is saying there is no routine with this signature. I was going by the example from the documentation. I then created a new project using the example exactly as written and I get the same error. Is there a bug in this approach?

Hi, Can any one advise how to convert the following VB code to Cobol pls. Its for a fingerpint reader. Imports System.ThreadingImports System.IOImports DPUruNetImports System.DrawingImports System.Drawing.ImagingImports System.Text Public Class Verify Private _readers As ReaderCollection Private _reader As Reader Private _readerResult As Constants.ResultCode Private FmdToVerify As List(Of Fmd) = New List(Of Fmd) Private reset As Boolean = False Private nThread As Thread Private enrolledFmdStr As String Public strsplit() As String Public callsw As String Public callsw1 As String Public callOutputFileName As String Private Function CaptureAndExtractFMD() As String Dim capResult As CaptureResult Dim vResult As IdentifyResult = Nothing While Not reset Dim result As Constants.ResultCode = _reader.GetStatus() If _reader.Status.Status = Constants.ReaderStatuses.DP_STATUS_BUSY Then Thread.Sleep(50) Continue While End If If _reader.Status.Status = Constants.ReaderStatuses.DP_STATUS_READY The

Problem When connecting to products like the Relativity Designer tool, a login box is displayed. Is it possible to setup a Relativity Data Source so that it automatically logs in and does not display the logon box? Resolution With a number of other Open Database Connectivity (ODBC) drivers (e.g. Oracle and SQL Server), it is possible when configuring your Data Source Name (DSN), to include login information. This means that users are not prompted for login details when an application uses the DSN to connect to the data source. When setting up a Relativity DSN, it is not possible to enter login details. With some applications it is possible to configure default login details, but Relativity Designer does not provide this functionality. This means that even if a Relativity data source is configured without security, the logon box will always be displayed. A user name and password may not be required, but the logon box does need to be confirmed. Incident 2693018#Relativity#ODBC#Relativit

Problem Can files be built so that that the maximum file size is limited to 2Gb or 512Gb? Can this be done inside and outside of InfoExpress? Resolution By default, RM/Cobol files are limited to 2Gb, by setting a runtime configurable USE-LARGE-FILE-LOCK-LIMIT=YES, it is possible to increase the file size limit up to 512Gb. This needs to be set as the run unit is started. The attached demo, Create_Large_Files.zip shows a file that is created with the standard limit and then recreates the file with the 512Gb limit. The configuration option can also be used when the file is under Info Express control and is set as the client run unit is started. The runtime configurable shown above is only used when the file is created. Once a file has been created with the 2Gb it has to be rebuilt to apply the new limit. Refer to the following wiki for more information about extending a file beyond the 2Gb limit: http://community.microfocus.com/microfocus/cobol/rm_cobol/w/knowledge_base/23931.c

Currently, we have shifted from Net Express 4.0 to Net Express 5.1 (Windows 7). In PC, using microfocus net express 5.1 in windows 7 we compiled all our project sources and all sources compiled without any errors. But while i try to debug the program, then i got an error from one program '153 Subscript out of range  (in ..\\cobol_src\\abc.cbl, line 932)'. But this error not occured while we debug through the program in Microfocus netexpress in 4.0 and we are not interested to change the programs because it is running in production(mainframe) without any errors for years. For example, say program, abc.cbl I am using the first line in the pgm as process nossrangeand my Net Express 5.1 listing is as shown below in the attachment, * Micro Focus Net Express            V5.1 revision 000 21-Mar-14 08:13 Page   3* ..\\cobol_src\\abc.cbl*         &n

I have a large screen divided into tabs.  Because I reached the limit on number of controls, I've separated the controls for each tab into separate screens and when the tab is displayed I display the appropriate screen on the tab.   Some tabs have multi-column list boxes.  The first time I bring up a record (any record), then click on a tab with a list box, the contents of the list box don't show.  Data for other types of controls shows, just the list boxes are blank.  If I bring up a second record, then the list box contents display and continue to display for every other record I bring up.  However, if I now click to a different tab that also has a list box, the data in that list box doesn't show until I bring up another record.  In other words, the first time a list box is displayed its contents do not show.  Once I display the tab/screen with the list box on it and then move to another record, the list box contents display. I am o

In a program (Netexpress 5.1) that writes directly to a printer via LPT1 I change the fontsize via PCL5 strings  to a heigh of 8 LPI  and a pitch of 10 CPI. How can I have the same height and pitch  using PC_Printer routines? As far as I see it is only posible to select the Font-Size, one value.  Using Lucida Console with Font-Size 12  is 10 CPI and 6 LPI .    Font-Size 10 reduces both:  12 CPI and 7.2 LPI  Is there a way to select heigh and pitch separately using PC_Printer routines for the printing itself, draw boxes, etc. .  Or is there any fixed Font with that combination of height and pitch? How can I send PCL strings to the printer using PC_Printer Can I mix the  PRINTRAW  system using  Windows SDK  Printing and Spooling functions to print a document  mixed with the PC_PRINT  or must I selecto one or the other method? Thanks for any help.

We want to send emails from an Acucobol version 6.2 program using various email protocols We have successfully been able to send emails using the ActiveX control autogen for Outlook.  We have also used the sample program WINBMAIL which uses C$SOCKET to send emails from Yahoo and  MIcrosoft email applications (Live, Outlook, Hotmail, MSN).  However we have not been able to successfully send emails using this version of WINBMAIL with Gmail even after installing STUNNEL. Our clients use many different email protocols for sending emails and Outlook is not a built-in feature in Windows7.  We do not want to force our customers to install it or have Outlook as their default email client. Is there a newer version of WINBMAIL that supports the newer email protocols?  Is there a sample program using an ActiveX autogen for Thunderbird? Old posts on this forum indicate that there is a product from Marshallsoft that can be purchased to send emails.  We d

Is there a way to provide a default parameter in Visual Cobol like you can in C#? public void MyString(String passedString = " ")#VisualCOBOL#TranslatefomCtovisualcobol

We're currently trying to convert our ISAM files to a database solution using SQL server. We've been able to succesfully connect and use SQL during our system test phase, with fewer than five users. But in the production test environment we encountered severe performance issues, as soon as at least fifteen users were using our application simultaneously. Has anyone had similar experiences? Could there be something missing, which needs to be configured a certain way (ODBC driver, cobol code produced by Net Express, SQL Server, etc)? What about server-specific things we need to consider? Our setup is:Apache server, 32-bitNet Express 5.1Windows 2008, 64-bitSQL Server 2008ODBC-driver Native Client 11.0, 32-bit Thanks for your help, Raffi

I have created a thread using the CBL_CREATE_THREAD routine. However, when I attempt to kill the thread using CBL_THREAD_KILL it does not kill the thread. The thread remains running. My thread is defined as follows 01  THREAD-StatusBar-Routine  USAGE IS THREAD-POINTER. and my call statement is         CALL "CBL_THREAD_KILL" USING BY VALUE THREAD-StatusBar-Routine            Move Return-Code To Thread-Return-Code.The return code I get is 1009 Invalid parameter passed into a multi-threading library routine. A parameter has been detected that is not within the valid range, or that is inconsistent with the library routine. Also in visual studio intellisense it says can not find method CBL_THREAD_KILL with this signature. Will create dynamic call.What am I doing wrong? Thanks  

How can I delete objects I can't 'see' on the screens?  For example, I created a listbox for a dialog box, was editing it via group properties, and then, after clicking ok and saving it, it disappeared from the dialog box.  However, when I go back to recreate it (say LB-REVPAY as the name), it says it already exists!  Sure enough, when I export the screen and dialog, there it is!  How can I get rid of it - or short of that - get it back on the dialog screen?  Obviously can't do it by clicking object and listbox - it just wants to create a new one then!Thanks.#disappearinglistboxes#deletingobjects

Hi!  I have an application running on a Windows Server 2012.  One of the users logs in remotely and is trying to print reports.  Most of all the reports print 132 columns.  They are running V12.07.  In the past I set the raw mode in rmconfig and that would work.  Now it doesn't even print.  Any suggestions?

Is there a way to write custom intrinsic functions?  Currently, the list includes items like LENGTH, ABS, LOWER-CASE, UPPER-CASE, and so on.  Can I add additional ones to this list, or should I continue to use stuff like C$SYSTEM and pipe files?  Specifically, I would love to add some string searching and manipulation functions.

I see in the documentation that a property ITEM-COLOR is available for tree-view controls. I have tested this, as I want to show the user that something is wrong with some of the data in the tree-veiw control. Therefore, I need to mark some nodes in the tree view control with red text color. This works at first glance, the text really appears as red on the nodes I want to be red. But; the outcome of the added node is not a real pointer to the node. It always gives "1" - one as pointer. Therefore, I am not able to track the correct node in event-handling, and I cannot get the hidden-data for the node. Thus again means that my program does not find the information that the node is representing, and showing to user. This statement: modify tr-melding parent = ws-parentId                                item-to-add = ws-fieldName                    &nbsp

Problem: There are a large number of errors in the error log after indexing of Eclipse help has completed. Not all of them are shown, as they are all basically the same error: !ENTRY org.eclipse.help.base 4 0 2014-03-18 15:51:59.938 !MESSAGE An error occured while pre-processing help XHTML document "/com.microfocus.eclipse.help.ed.windows/html/HRERRHSERRLA.html" for search indexing !STACK 0 org.xml.sax.SAXParseException; lineNumber: 1; columnNumber: 1; JAXP00010001: The parser has encountered more than "64000" entity expansions in this document; this is the limit imposed by the JDK.  at com.sun.org.apache.xerces.internal.parsers.DOMParser.parse(Unknown Source)  at com.sun.org.apache.xerces.internal.jaxp.DocumentBuilderImpl.parse(Unknown Source)  at org.eclipse.help.internal.dynamic.DocumentReader.read(DocumentReader.java:56)  at org.eclipse.help.internal.dynamic.XMLProcessor.process(XMLProcessor.java:49)  at org.eclipse.help.intern

Problem: A treeview can be expanded fully by pressing he multiplication ( * ) key on the numeric keypad.  When the keyboard has no numeric keypad, such as in many laptops, there is no multiplication key.  The asterisk (shift 8) is ignored.  How can the user fully expand the tree when no keypad exists? Resolution: On most modern laptops there is a numeric keypad simulated by pressing the function ( Fn ) key.  Pressing Fn then P produces the multiplication sign and activates the full tree expansion.  If the laptop has no such numeric keypad then there is no shortcut for fully expanding the treeview.  In that case the application must be programmed to fully expand the treeview for a certain keystroke.  There may also be third-party ActiveX or .Net treeview controls that have other options for fully expanding it.

Problem: Need a simple way to embed a file in a Vision data file. Resolution: The byte-stream library routines (cbl_*_file) provide an easy way to embed files into a Vision data file. Here are the basic steps: 1. cbl_open_file: Open the file. 2. cbl_read_file: Get the file information by using a special flag. 3. cbl_read_file: Read the file into working-storage. That's it! Now simply write the data into the Vision file. Attached is a sample program, imagetest.cbl, demonstrating how to embed an image file in a Vision file using this method.  Extracting the file from the Vision file is equally simple and is also demonstrated in the sample program.  Details of the various byte-stream routine parameters are noted in the source.  You will also find those details in the documentation for those routines.imagetest.zip

Problem: AcuXDBC 64-bit driver was installed because the PC is 64-bit.  However, when using Microsoft Excel the DSN which was set up is not listed. Resolution: While the PC hardware is 64-bit and the operating system is 64-bit, the Microsoft Office installed on it was the 32-bit version. Installing the 32-bit AcuXDBC driver will resolve the problem. The determination of whether to install 32-bit or 64-bit is based on the bitness of the application which will be accessing the AcuXDBC driver, and NOT on the bitness of the operating system.  A 64-bit operating system can host 64-bit or 32-bit applications. So first determine the bitness of the front-end application which will be used, then install that version of AcuXDBC.

Hi! After some Windows Updates the comand "CBL_DEBUGBREAK" is not more working!?Nex Epress 5.1, lastest FixesWindows 7, 64 BitThe Debugger will not come up if the Compiler find the comand...What is wrong?Regestry Key? Best RegardsBernd#CBL_DEBUGBREAKNetExpress

Question: The size of the logging files are quite large. Is there a method to reduce these? Answer: One UNIX/Linux you can change the value of the LSERVOPTS variable called in the startlserv.sh script in /var/microfocuslicensing. The default value is LSERVOPTS="-s /var/microfocuslicensing/bin/lservrc.net -l /var/microfocuslicensi ng/logs/lserv.log -z 10m" where 10m would permit a 10 Megabyte file to be generated. You can change the value to something lower such as 2k for 2 kilobytes.  After change the value in the script, please restart the license services.