Rocket® COBOL

Problem: How can I scroll a WOW form? Resolution: Out of the box, WOW does not provide a scrolling functionality. However, it does provide all the pieces needed to implement.   (Visual Basic also doesn’t provide this type of scrolling support but with some programming you can add the desired functionality.) Here's how: 1. Set the form’s AllowFilterEvents property to false. 2. Add a container control to the form (the example program included uses the free Innovasys FramePlus control, as it allows the frame to be set to none, making it transparent to the user - see attached). 3. Place all the other controls inside the container control. 4. Add code to set the container control's size and position when the form is created.  This allows you to define the scrollable ‘viewport’. 5. Add code in the form’s EVENTSEXTENSION section to trap the WM-VSCROLL and/or WM-HSCROLL events (messages). 6. Add code to handle the scro

Problem: How can I diagnose a 30, 22 error on InfoExpress on a UNIX/Linux system? Resolution: The full error message is: COBOL I/O error 30, UNIX error 22 On UNIX/Linux systems, this is defined as: #define EINVAL 22 /* Invalid argument */ It means that a system call was made from InfoExpress using an arguement that makes no sense. This problem has been reported on two known occassions, in both instances, the problem was due to a misconfigured hosts file, on the line with loopback address. In particular, this line should always look exactly like this: 127.0.0.1       localhost You should examine this file on both the client and the server system.      Old KB# 4701

Problem: An application with a splash screen will need to pause to allow the users to see the splash screen. Resolution: In the splash screen's WINDOW-CREATED event, a TIMEOUT function can be used to pause for certain time. The syntas is as follows: TIMEOUT time procedure-name where time is in 1/100th of a second where procedure-name will be executed after reaching the amount of time Example: WINDOW-CREATED             TIMEOUT 1000 TERMINATE-WIN      TERMINATE-WIN             TERMINATE *This procedure times out for 10 seconds and terminates the window Old KB# 5010

Problem: How to create an icon side file for Dialog System's screensets? Resolution: 1. Open a text editor (e.g. Notepad) 2. Add a line for each icon with the following format:             unique-number ICON icon-name.ICO             e.g. 200 ICON Bank.ICO 3. Save the file with RC extension 4. Start a Net Express Command Prompt 5. Change directory (CD) to the location of the RC file 6. Compile the resource file as follows:             RC -R TheRCfileName.RC<enter> 7. Link the resource file as follows:             LINK -MACHINE:I386 -DLL -NOENTRY TheRCfileName.RES<enter> 8. Edit the ICN file 9. Add [win-icons] if it is not there yet 10. Add the icons below [win-icons] as follows:   

Problem: How to disable the ListView column headers to sort when the user clicks on them? By default, ListView sorts the rows when its column headers are clicked on. Resolution: You can simply invoke the NoSortHeader method before the List View control gets created. In case you are not sure where to insert this, just follow the steps below: 1. Edit the List View control program 2. Look for "Create-Entry-Point Section" (you will note a comment few lines below, which says "Create the control, nothing will be painted until the class library system event loop is resumed" 3. Insert INVOKE aControl "NoSortHeader" before INVOKE aControl "create" Old KB# 5021

Problem: A web application is failing with RTS 114 on ACCCGI.INT, and this is occuring with Application Server for Net Express 4.0. Resolution: This has been fixed since Service Pack for Application Server version 4.0.006 (APS06A40.EXE). Old KB# 5004

Problem: This error is reported when installing Net Express Application Server. Resolution: Before installing the Net Express .NET Application Server, you need to have the Microsoft .NET Framework installed on the machine. The Net Express Application Server installation procedure calls the GACUTIL command that is part of the .NET framework to enable the roll out of the .NET runtime files. The error message equates to the Application Server setup not finding the .NET Framework, and therefore unable to use the GACUTIL utility. Installing the Microsoft .NET Framework before installing the Net Express Application Server should clear these errors. Old KB# 5003

Created On:  29 June 2012 Problem: How do I scan a comma-separated record (CSV)? Resolution: See the attached file if you have someone supplying data in a comma-separated (CSV) file.  Note that this code provides the skeleton of scanning comma-delimited records, including detecting fields that are enclosed in quotation marks (").  Subsequent conversion of numeric values, embedded quotation marks, and other anomolies you might find in 'real life' are not addressed. Attachments CSV Example.txt Old KB# 4696

Problem: What does a 93, 02 error mean when running recover1? Resolution: When running recover1, seeing a 93,02 error means that another user has the file open.  You can copy the file to another name or location and then run recover1 on the copy, but you cannot run recover1 while it is being used by another program. Old KB# 4670

Problem: To whom should I direct questions about Cobol-RPC? Resolution: While Liant does support Cobol-RPC that is purchased through us, England Technical Services (ETS) provides direct support for the product/versions purchased from them, or through their distributors. Old KB# 4671

Problem: How can I fix a slowly query problem on Linux ES4 (CentOS 4)? Resolution: There is a known problem with version 11 (and previous versions).  However, there is a service pack available on ftp.liant.com.   Here are the instructions to install it: 1) ftp ftp.liant.com 2) Login with anonymous, using your email address as the password. 3) cd pub/rel/outgoing 4) binary 5) get reldbsrv1100SP2LNX.zip 6) bye 7) Unzip reldbsrv1100SP2LNX.zip.  The password is '30Nov07'.  Extract the contained file reldbsrv1100SP2LNX.tar. 8) Binary ftp reldbsrv1100SP2LNX.tar to the RelRM11.00 on the machine running the Data Server. 9) Login as root to the machine running the Data Server. 10) Change directory to the RelRM11.00 directory. 11) mkdir save 12) mv reldbsrv save 13) mv reldbsrv.rm save 14) mv relfm_rm.o save 15) tar xvf reldbsrv1100SP2LNX.tar 16) ln reldbsrv.rm reldbsrv 17) ./STOP 18) If the Dat

Problem: How can I read/write from/to a UNIX named pipe? Resolution: See the attached source code examples. Old KB# 4682

Problem: How can I calculate the number of usage counts used for Relativity Data Server? Resolution: The connect.log created in the installation directorty contains info about the connections made to the Data Server. By far the easiest way is to use the 2 attached python scripts.  These will analyse the connect.log and calculate the number of license counts (usages) used and the actual individual users (plus machine name and IP address). To run.... 1.  Grab Python from the web and install. 2.  Run either script passing the connect.log  as the first parameter, i.e. c:\\connusers.py connect.log 3.  Sit back and enjoy the show!      Old KB# 4647

Problem: Will Relativity Data Server work with an MF Application server? Resolution: No, the MF Application Server does not supply the necessary files to relink the Relativity Data Server. You must have a MF Development system to do the relinking. Due to licensing issues RM must be able to relink the Relativity Data Server with the customer's MF development system.      Old KB# 4648

Problem: How do I convert Gregorian to Julian dates (and vice versa)? Resolution: See the attached source code example. Attachments: julian.cbl Old KB# 4681

Problem: Do you have an example for Instant SQL? Resolution: Yes, SQLDEMO2.CBL, attached. Attachments: SqlDemo2.zip Old KB# 4642

Problem: Is there an example on how to use C$MemoryAllocate? Resolution: Yes. Please see attached. Attachments: build-data-items.cbl Old KB# 4693

Problem: Why doesn't licverifyall on Unixware work with my v8 license? Resolution: If you get the error message: "The platform in the license does not match the platform of the product." It is because with the version 10 release, we replaced the Unixware platform code (60) with the same code as is being used for SCO OpenServer 6 (67) and the version of licverifyall on the website reflects this. Use the version of licverifyall from our v9 release instead (attached).      Attachments: V9Unixware-licverifyall.zip Old KB# 4676

Problem: How can I turn off the NoFiltOptfilter for a catalog when using a UNIX Data Server? Resolution: Place the following option in the odbc.ini file that's in the Relativity Data Server home directory, in the section for the DSN involved: NoFiltOpt=1 This should turn off the "push down" filter for that DSN, and allow all the rows to be returned by the query. If that doesn't solve the problem, then we can take a look at an ODBC trace to see what the might be causing it.      Old KB# 4655

Problem: How can I turn off the NoJoinOpt filter for a catalog when using the Data Manager? Resolution: Sometimes, the Relativity Data Manager's optimization filters do not work properly for Joins. This results in less efficient joins and poor performance. The following instructions will turn off the Join Optimization. First, backup your registry settings, then follow these steps: 1) On the Data Manager system, start the registry editor, regedt32. 2) Navigate to: HKEY_LOCAL_MACHINE\\Software\\ODBC\\ODBC.INI\\dsn where dsn is the name of the data source for the catalog. This will make the change only on the specific data source desired. 3) Create a new string "NoJoinOpt" and give it the value of "1".   Now re-create the scenario where the problem occurs, and check the results.      Old KB# 4654

Problem: Why does runcobol hang with ssh on AIX? Resolution: It may be a "bug" in OpenSSH. Please see the lenthy discussion here: http://bugzilla.mindrot.org/show_bug.cgi?id=1102 Try applying the patch (http://bugzilla.mindrot.org/attachment.cgi?id=1002&action=view) mentioned in the bug and see if the problem is resolved.      Old KB# 4692

Problem: How can I pass environment variables to the COBOL runtime? Resolution: See the attached source code example. Attachments: cpass.cbl Old KB# 4639

Problem: How can I create an auto-erase ACCEPT? Resolution: Some user interface specifications require that a field with a default value be accepted 'as displayed' if the Enter key is pressed. If, however, the user starts typing in the field, the rightmost characters should be erased automatically, eliminating the need for the user to press repeatedly  the space bar to erase to rightmost characters of the displayed default value. The attached zip file contains a subprogram, display-autoerase, which implements this behavior.      Attachments: autoerase.zip Old KB# 4695

Problem: How do I convert an ASCII data file to EBCDIC characters? Resolution: See the attached source code example. Attachments: ebcasc.cbl Old KB# 4679

Problem: How can I show the cardinality of a table using ODBCtest? Resolution: Bring up ODBCtest and do a FULL CONNECT using the DSN of the Relatiivty catalog. Enter userID and password, if they exist. From the menu bar use Catalog->SQLStatistics and enter the TableName information, and set Unique=SQL_INDEX_ALL=1  (1.0). After the SQLStatistics displays succesfully, select Results->GetDataAll from the menu bar to get something like this: Get Data All: "TABLE_QUALIFIER", "TABLE_OWNER", "TABLE_NAME", "NON_UNIQUE", "INDEX_QUALIFIER", "INDEX_NAME", "TYPE", "SEQ_IN_INDEX", "COLUMN_NAME", "COLLATION", "CARDINALITY", "PAGES", "FILTER_CONDITION" plus the values. See also: RelClientTest      Old KB# 4650