Rocket® COBOL

This article describes how to record in a trace file, which keys are hit by the user while the application is running. Problem: Is there a way to record in a file, the sequence of keys hit by the user while the application is running? Resolution: There is an ACUCOBOL-GT library routine called W$KEYBUF that can be used to record keystroke sequences. To activate keystroke sequence recording and save in a text file, simply run this code in your application: CALL "W$KEYBUF" USING 7, FILE-NAME To stop the recording, use this code: CALL "W$KEYBUF" USING 5 W$KEYBUF can also be used in Thin Client mode. The W$KEYBUF library routine is documented in the ACUCOBOL-GT Appendices manual, Appendix I. Incident Number: 2114758 Old KB# 14347

When running a UNIX script (for example acuxdcbs.sh) the user may encounter the “syntax error near unexpected token” error. Problem: When running a script in either a Linux or UNIX environment, the user may encounter the “syntax error near unexpected token” error. Example: $ acuxdbcs.sh -start /acucobol810/bin/acuxdbcs.sh: line 50: syntax error near unexpected token `' /acucobol810/bin/acuxdbcs.sh: line 50: `show_usage ()' Resolution: This is typically caused by editing the file on Windows, or if the file is transferred in binary mode rather than ASCII. Run the dos2unix command on the script and then rerun the script. Example. $dos2unix acuxdbcs.sh dos2unix: converting file acuxdbcs.sh to UNIX format ... Incident Number: 2277959 Old KB# 14294

When compiling the following program within the IDE, a 163 error differing from that generated from the command line results: $SET CHECKNUM IDENTIFICATION DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 N PIC 9(8) VALUE 0. 01 M PIC X(8) VALUE " ". PROCEDURE DIVISION. MOVE SPACE TO M. MOVE M to N. DISPLAY M. DISPLAY N. GOBACK. its error message is displayed as Object Code error : file 'a' error code: 163, pc=0, call=1, seg=0 163 Illegal character in numeric field (in D:\\anken2\\7800\\7848\\demo\\a.cbl, line 9) When the same program is built from the command line and run the message is: Object Code error : file 'a' error code: 163, pc=87, call=1, seg=0 163 Illegal character in numeric field Why is there a difference? Problem: When compiling the following program within the IDE, a 163 error differing from that generated from the command line results:       $SET CHECKNUM        IDE

Problem: The File Handler Configuration File correctly specifies FILEMAXSIZE=8 and IDXFORMAT=8, but 4 Gb files cannot be created. Even though the correct settings seem to be specified in the file handler configuration file, files of size 4 gig cannot be created. Resolution: In order to create indexed files of size 4 GB or larger, the settings in the file handler configuration file must be specified correctly.  These settings are: FILEMAXSIZE=8IDXFORMAT=8 Note: When modifying this file, take care to preserve the case and the spelling. By default the file handler configuration file is named "extfh.cfg" and the system expects to find this file in the current directory.  As an alternative, the full path location, and the name of the configuration file can be specified using the EXTFH environment variable. Within the File Handler Configuration File, tags within square brackets are used to indicate which data files are affected by which configuration setti

This article identifies different behaviours of "call system” between UNIX environments. Problem: The user program makes a call to system, for example: call “system” using “ls -la”On one system this works as expected, whereas on another it is necessary to add x“00” to the end of the command-line. For example: 01 WORK-COMMAND. 03 COMMAND PIC X(050) VALUE “ls -la”. 03 FILLER PIX X(002) VALUE X”00”.procedure division.CALL “SYSTEM” USING WORK-COMMAND.Why is this? Resolution: This behaviour depends on the case used in the CALL statement. call "system" (all lower-case) calls the OS system utility. This is platform specific, and may give unexpected terminal display results. When you are using the MF function CALL "SYSTEM" (upper-case) you must use x"00" to terminate the command. Incident Number: 2202924 Date: Name: Description of change: Date: Name: Description of change: Old KB# 14206

Fileshare server cannot be started. The error message is “A CCINAMPU listen call failed, please re-try with fewer active connections.” Problem: The Fileshare Server cannot be started. The following error message appears: FS148-I CCI return-code (function 07) = 00000009CCINAMPU-0030E A CCINAMPU listen call failed, please re-try with fewer active connections. This error occurs only when using the “named pipes” communication protocol, that is, ccinampu. The error does not occur when using the ccitcp communication protocol. Resolution: For named pipes protocol (-cm ccinampu), Fileshare will create a FIFO in /usr/spool/uucppublic/.CCI named .servername (where .servername is the name specified when starting Fileshare). It is necessary for the directory /usr/spool/uucppublic to exist. If this directory does not exist, the error will occur. Some UNIX or Linux machines do not include a directory named /usr/spool/uucppublic. If this directory does n

When using a WSDL to generate a Web Client, an error is shown "Error: Cannot find type information" Problem: When accessing Services > Generate Client > using WSDL , the following error is received: Error: Cannot find type information for:'optInStatus' of'CPNI' of'accountSummary' of'GetAccountSummaryReturn 'The header of the WSDL being used:<?xml version="1.0" encoding="UTF-8"?><wsdl:definitions targetNamespace="http://simulation.testspace.com/omnia" xmlns:apachesoap="http://xml.apache.org/xml-soap" xmlns:impl="http://simulation.testspace.com/omnia" xmlns:intf="http://simulation.testspace.com/omnia" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/"xmlns:xsd="http://www.w3.org/2001/XMLSchema"><!--WS

This article explains how to bind a compiled application with a DB2 collection ID of greater than eight characters without truncating the collection ID. Problem: Bind fails for a compiled application, and the collection ID truncates at eight characters. For example: SQL0061W The binder is in progress. SQL30104N Error in BIND or PRECOMPILE option "LANGLEVEL " with value "". SQLSTATE=56095 SQL0082C An error has occurred which has terminated processing.SQL0092N No package was created because of previous errors. SQL0091N Binding was ended with "3" errors and "0" warnings. Resolution: Compile and bind your application as follows: At a UNIX command prompt, enter the following to compile the application using the DB2(UDB-VERSION) compiler directive: DB2(UDB-VERSION=version) Where version is one of the following: Version Description V8 DB2 version 8.x V9 DB2 version 9.1 V95 DB2 version 9.5

*1041-E Data item has zero size, or group not yet completed. Value of 0 assumed. * 27-S Number too large Rebuild complete with errors 01 ADDR. 05 ADDRS. 10 ADDR-LINE PIC X(20) OCCURS 6 INDEXED ADDR-IDX. 78 FIND-STRT VALUE LENGTH OF ADDR-LINE. 78 FIND-LEN VALUE LENGTH OF ADDRS - LENGTH OF ADDR-LINE. 01 ANOTHER-RECORD. Problem: *1041-E Data item has zero size, or group not yet completed. Value of 0 assumed. *  27-S Number too large Rebuild complete with errors 01 ADDR.    05  ADDRS.      10  ADDR-LINE       PIC X(20) OCCURS 6 INDEXED ADDR-IDX. 78 FIND-STRT         VALUE LENGTH OF ADDR-LINE. 78 FIND-LEN  VALUE LENGTH OF ADDRS - LENGTH OF ADDR-LINE. 01 ANOTHER-RECORD. Resolution: The 1041-E Data item has zero size, or group item is not yet completed, value of 0 assumed, and the 27-S Number too large error a

Vutil –unload encounters a 2 gigabyte limit Problem: The Vutil –unload process on a Vision index file executes until the output file hits approximately 2 GB. As an example, here is the output when this occurs: # ls -l CFSDATA* -rwxrwxrwx 1 root system 1436363264 Dec 23 10:16 CFSDATA -rwxrwxrwx 1 root system 826272256 Dec 23 10:16 CFSDATA.vix # # vutil -unload CFSDATA unCFS Record size = 2000 Unloading CFSDATA... unCFS: write error # # ls -l unCFS -rw-r--r-- 1 root system 2147483647 Dec 23 10:15 unCFS # Resolution: On operating systems that support line sequential files greater than 2 GB, setting “USE_LARGE_FILE_API” to “1” resolves the issue. Note that this must be set in the environment, since Vutil does not use a configuration file. Incident Number: 2262370 Old KB# 14205

This article explains what you can do when you get this error. Problem: When compiling to ".exe" and attempting to link the new Database Connector EXTFH module, ACUFH.dll, this error is seen: unresolved external symbol _ACUFH. Resolution: The initial release of Database Connectors did not come with a way to link to the ACUFH.dll. Future versions will include ACUFH.lib, the import library for ACUFH.dll, allowing COBOL programs to be linked. In the meantime, use "int" or "gnt" level code for execution. It is also possible to create your own ACUFH.lib by creating a dummy ACUFH.dll with Visual Studio and having a single export (ACUFH). Incident Number: 2279117 Old KB# 14286

This KB article demonstrates how to replace trailing spaces in an alphanumeric variable with low-values or other characters. Problem: You have an alphanumeric variable with trailing spaces and you want to change them to low-values or to another character. Resolution: Simply use the following syntax from the INSPECT verb: INSPECT WS-ITEM REPLACING TRAILING SPACES BY LOW-VALUES. Old KB# 14260

This article discusses a case where using the MULTIPLE verb and the binary math package could result in incorrect values. Problem: If a COBOL program used the GIVING clause of the MULTIPLY statement and the destination field contained more post-decimal digits than any of the source fields, it was possible for the compiler to generate code that resulted in incorrect values being returned by the multiplication operation when using the binary math package. For example: WORKING-STORAGE SECTION.01 WS-NUMERIC-FIELDS. 03 A PIC SV9(3). 03 B PIC S9(3). 03 C PIC S9(3)V9(11). PROCEDURE DIVISION.MOVE -0.123 TO A.MOVE 12 TO B.MOVE 12 TO C. MULTIPLY A BY B GIVING C. In this example, fields A and B are the source fields and contain three post-decimal digits each. Field C is the destination field and contains eleven post-decimal fields. After executing this example code, field C should contain -1.47600000000 but contains

Do the extend products work on multi-CPU machines taking advantage of the multiple CPUs or multiple cores in a CPU? Problem: Do the extend products work on multiple CPU machines? Or take advantage of multi-core CPUs? Resolution: The extend products do not take advantage of multiple CPUs or multi-core CPUs. Any processor or other load balancing assignment is handled by the Operating System on which the extend products are being executed. There are no plans to enhance the extend product line to implement this type of functionality. There have been no issues reported using the extend products on multiple CPU or multi-core CPU machine that are specific to operating in those environments. Old KB# 14231

This article explains why a table that should be loaded into syscat might not be available using AcuXDBC on a Linux operating system. Problem: A table is not available using AcuXDBC in a Linux environment. The .xfd file has been loaded, the FILE_PREFIX environment variable is correctly set, the Vision file is available, but AcuXDBC cannot see the table. Using asql.sh, this is the error: SQL (/? for help) ==> select count(*) from abcd;select count(*) from art***** ERROR: VISION: File 'abcd' does not exist Resolution: It's possible that the Vision file has an upper-case name, while the rest of the information (such as the table name inside the .xfd file) is lower-case. Check the name of the Vision file, or set this variable in the acuxdbc.cfg file: FILE_CASE UPPER # Values for File_Case are Default (case ignored), # Lower (filename converted to lower case), and# Upper (filename converted to upper case). Old KB# 14213

This article describes what to do when Vision files are created without permissions on Linux. Problem: Vision files are created with no permissions on a Linux server in a thin client environment. Files look like this: ---------- 1 user group 1024 Feb 10 16:49 filmografia.vix---------- 1 user group 2048 Feb 10 16:49 filmografia Resolution: Vision files created via thin client assume permissions depending on the UMASK value set inside the AcuAccess file. The default UMASK value is 002, which means that Vision files will be created in this manner: -rw-rw---- 1 user group 1024 Feb 10 16:49 filmografia.vix -rw-rw---- 1 user group 2048 Feb 10 16:49 filmografia If UMASK has been modified, persmissions will be set accordingly with the value provided. Setting UMASK to 777 causes files to be created with no permissions. Incident Number: 2266524 Old KB# 14285

This article discusses a case that causes a checker error and provides a method to work around the error. Problem: Compiling a program with the CREATEXFD compiler directive that uses the VAR_LENGTH XFD directive on a file description results in the following compiler error (once for each time the source includes the VAR_LENGTH directive): COBCH1508E Unknown XFD directive: '' : "test.cbl"(63,21) However, the section Using XFD Directives in your Database Connectors User's Guide states that VAR_LENGTH is a supported directive. Resolution: Install Net Express or Server Express 5.1 WS2 HF 4 or later when it becomes available. Until this version is available, however, you can use the following work-around: Change the underscore character in VAR_LENGTH to a hyphen: VAR-LENGTH. Incident Number: 2266175 Old KB# 14265

This article explains how to associate an ACUFH configuration file with a NetExpress project. Problem: Database Connectors uses an ACUFH configuration file; how can I associate this configuration file with my NetExpress project so that when the project runs, the ACUFH configuration file is picked up? Resolution: You can use the A_CONFIG environment variable to identify a personal ACUFH configuration file. For example: SET A_CONFIG=directory name\\file name. You can set this environment variable within the NetExpress IDE by following this process: Select Project > Properties. Click IDE. Add the environment variable A_CONFIG, and set its value to the location of your configuration file. Incident Number: 2259200 Old KB# 14283

This article describes how to set multiple values for Source Code Control options of the ACUCOBOL-GT compiler. Problem: Is it possible to use multiple patterns with –Si and –Sx compiler options? Resolution: To use multiple values, you can repeat the option: Ccbl32 –Si value1 –Si value2 –Si value3 program.cbl Or separate all the values with a semi colon: Ccbl32 –Si value1;value2;value3 program.cbl Incident Number: 2279382 Old KB# 14282

This articles describes how to remove the NO-TAB graphical control property. Problem: When a screen has several entry fields and the user needs to skip some fields. The program can set the 'NO-TAB' property on the desired fields using 'MODIFY' and it works properly. However, there is no way to reverse the 'NO-TAB' setting without exiting the screen. There is not an ON/OFF or TRUE/FALSE setting for the NO-TAB property. Resolution: The only way to remove the NO-TAB property from a control is to destroy the control and redisplay it without specifying the NO-TAB style. Also, if the purpose is to avoid stopping in an specific control, users can use the ENABLE property. Turning off this property will do the trick. This property can be turned on at runtime with the MODIFY verb. Incident Number: 2221196 Old KB# 14262

This article describes how to create an ACUCOBOL-GT program that attaches a Word document to an Outlook email. Problem: You want to learn how to send Outlook messages with ACUCOBOL-GT and/or you want to learn how to attach Word messages to an email. Resolution: To work with Outlook and Word, we are going to use our ActiveX interface. To do this we use the utility “axdfgen” to generate copy files describing the interface we can use to communicate with the ActiveX. We add them as copies in the Special-names section of the program. For example: SPECIAL-NAMES. COPY "word.def". COPY "outlook.def". If you need more information about creating these copy files, refer to ACUCOBOL-GT User Interface Programming Chapter 5, section 5.3 ActiveX. To use Word and Outlook you need to declare certain variables: 01 wordApp handle of Application of Word. 01 wordDoc handle of

This article describes how to modify AcuXDBC table ownership with the provided batch files. Problem: Some ODBC front-end applications have trouble with the "public.tablename" format that is the default for AcuXDBC when it adds table information to the system catalog.  Frequently, when using Microsoft Access for example, an application cannot interpret the owner.tablename syntax, so an application error results.  Removing the "public" owner from the table specification is necessary for the desktop application.The AcuXDBC manual (section 5.3.1) indicates to use the -o "<space>" option of the XDBCUTIL script.  An example of how to automate the process when using script, demo.bat is provided below. Resolution: Here is a quick way to use the batch files provided with the software to make this change. In the bin directory, locate addfile.bat and open it in a text editor. There are two lines, which need to be edit

This article explains how to force the unixODBC driver to write a trace file when a program uses AcuSQL runtime to access a database. Problem: To use an ODBC-compliant database (such as MySQL) on Linux, we need to configure unixODBC on the server. If you run into problems doing this, it is possible to create a unixODBC trace file by setting up odbcinst.ini in a manner like this: mysql@linux:/home/mysql$ more /usr/local/etc/odbcinst.iniySQL ODBC 3.51 Driver]Driver = /opt/mysql-connector-odbc-3.51.25r1093/driver/.libs/libmyodbc3.soSetup = /opt/mysql-connector-odbc-3.51.25-linux-x86-32bit/lib/libmyodbc3S.soUsageCount = 1 DBC]TraceFile = /tmp/odbc.traceTrace = yesUsageCount = 1 This generates an ODBC trace file and writes in it each ODBC operation performed with tools like "isql." There is a problem with this, however; operations performed through AcuSQL runtime do not generate and access this trace file.

Micro Focus Virtual Environment Support Statement for systems such as VMWare, Citrix, Microsoft Virtual Server. Problem: Micro Focus Virtual Environment Support Statement – for systems such as VMWare, Citrix and Microsoft Virtual Server. Resolution: Micro Focus has no explicit support in its products for a virtual environment. Micro Focus relies on a 100% emulation of the environment by the virtual software vendor. Micro Focus International plc has many customers worldwide successfully using its products in virtual environments. Micro Focus will support correctly licensed customers who run products on a supported environment, irrespective of whether or not they are running in virtual environments. Virtual environment suppliers support a set of certified Operating Systems and Hardware, and the customer and their virtual environment suppliers will be responsible for any interactions or issues that arise at the Hardware or Operating System layer as a result of their use of virtual e

Runtime fails to initialize properly. Problem: When trying to execute the 64-bit Windows runtime you would see the following error: The application failed to initialize properly (0xc0150002) Resolution: This is because atermmgr.dll is looking for a 32-bit version of comctl32.dll instead of the 64-bit version. You will need to extract the files in the attached zip archive and replace the existing files in the \\AcuGT\\bin directory Incident Number: 2259559 Old KB# 14204