Rocket® COBOL

Problem: In the  Dialog System Character Mode Guide, Chapter 3 Sample Session in Character Mode is an instruction to copy the source file TEST1.cbl from $COBDIR/demo into one of your work directories, and cd into that directory.  However TEST1.cbl does not exist! Resolution: This is an error in the documentation.  TEST1.cbl is created as part of the sample session and the source lies further down in the section "Writing a Related Program". It should be noted that the example code contains the following case errors: 1.  ds-cntrl.mf should be DS-CNTRL.MF 2.  test1.cpb should be TEST1.CPB 3.  move "test1" to ds-set-name needs to be move "TEST1" to ds-set-name For convenience, test.cbl is attached to this article Attachments: test1.cbl Old KB# 2905

Problem: Upon execution of the query      SELECT * FROM PUBLIC.DESC the following error was returned      "(pos: 78 '...from PUBLIC.^DESC')" Resolution: The error indicates that the syntax error begins at the location of the '^' symbol. In this case, the table name "DESC" is a reserved word in most database systems, thus it is not allowed as a user defined table name.  Renaming the table to a non-reserved word should avoid this error. Old KB# 2850

Problem: Unable to apply WebSync 5 to an installed version of Net Express 5.0 Server. Resolution: When applying WebSync 5 via the batch file you may see the following messages: C:\\>Install_SRP3250050025.bat Please wait...this may take several minutes to complete. We strongly recommend you backup your Enterprise Server settings before continuing... Press any key to continue . . . Installing WrapPack #005... Server 5.0 WrapPack #005 has not been installed. Please contact Micro Focus SupportLine. Press any key to continue . . . The solution in this scenario is: 1) Backup your Enterprise Server settings/environment (should you have any). 2) Uninstall Server via Add/Remove Programs from within the Windows Control Panel. 3) Download CD-SV50-MF001.zip from the Micro Focus SupportLine web site. 4) Extract the contents of this zip into a directory of your choice, ensuring that you preserve the directory structure. For example, use the command: un

Problem: Is there a way to make AcuXDBC recognize files containing hyphens in the name? Resolution: This is possible.  It is necessary to add the XFD to the System Catalog using the original name of the file instead the name of the XFD, that means to use the hyphen instead the underscore.   As an example if a file is named my-file.dat and the XFD is named my_file.xfd, the way to add this file to the System Catalog is to place the data and XFD files in the appropriate directories, then use the addfile procedure (.bat or .sh) as follows: addfile my-file or, if you have multiple files and want to include them all in one go, create a text file that has the list of the files (e.g.: file_list) and issue the following command: addfile -f file_list Old KB# 2853

Problem: Is it possible to change the default font used within a screenset at runtime? Resolution: There is no real way to globally alter the font within a screenset retrospectively.  We do provide the font side file functionality where font styles are associated with fonts.  These can be dynamically altered a run time.  However, you would need to go back and add the styles to each screenset. One thing you could try (and this is still a manual process) is to export each screenset to an IMP file and edit this. For example, most objects will be associated with the {Default-Font} style in the screenset.  In the export file below we have altered this to be "Times New Roman" and ensured each object picks up this style (StyleName).  You should find that most of your objects in the screensets have this by default i.e. the editing will be minimal. Form TEST1    Screenset Details  &nb

Problem: How to convert Elink repository from a ELMasterRepository to an ELRepository? Resolution: When converting from an ELMasterRepository to a ELRepository a few manual steps are required to remove the project management settings and prepare the database for shared, uncontrolled use. Remove the Project Management tables and stored procedures Open the http://localhost/stdocs -> Project Manager Click on the i information help icon On the window that appears, scroll down and click on the EnterpriseLink Project Manager Administrators Guide Scroll down and click on Remove Project Manager under the appropriate database type Reset the Check-in/Check-out settings on the pages Open up http://localhost/stadmin/query.html Set the Server to ELMasterRepository Clear the User and Password field if operating under a trusted connection or supply a database administrator or password field In the Query field enter the following and click OK:  

Problem: Using the asql prompt or odbcsql prompt the query entered is not executed.  After pressing 'Enter' the prompt returns but the query is not executed. Resolution: All queries must be terminated by a semi-colon (;). Old KB# 2857

Problem: Is it possibile to modify list box property UNSORTED, to have a sorted list box? Resolution: Once the listbox style is set to UNSORTED it cannot be reset to the default sorted style. You must destroy the UNSORTED listbox and then rebuild it with the default style. Or you could define two identical listboxes in the same space, give one of them the UNSORTED style, and add items to both. Then using the VISIBLE property, reveal whichever you want the user to see. Old KB# 2772

Problem: Using Thin Client is there a way to cause the runtime on the server to exit when the network connection is lost? When this happens orphan runtimes are left and hold 1 license seat that is not released until the runtime is killed. Resolution: In some circumstances, in a Thin Client environment, the client can be unexpectedly disconnected from the server.  In order to capture this event, the TC_QUIT_MODE server runtime configuration variable was introduced. TC_QUIT_MODE passes a numeric value to stdout when a client PC is unexpectedly disconnected.  This information can then be used by the operating system to perform any needed additional tasks. Here is how it is implemented:        IDENTIFICATION DIVISION.        PROGRAM-ID. CLIENT-DISCONNECT.        REMARKS.    This program demonstrates TC_QUIT_MODE

Problem: Executing a GUI application using a manifest file causes the windows and controls to display with the Windows XP style but the tab controls look bad.  Specifically, the background of labels, radio-buttons and check-boxes doesn't match the tab color. Resolution: The problem is that with XP style the tab is not the same as the window's background color, is not a solid color but graduated (lighter at the top, darker at the bottom) and labels, radio-buttons and check-boxes take their background color from the main window.  The result is an unattractive tab presentation. Setting the transparent property fixes the problem for labels but radio-buttons and check-boxes don't have a transparent property. If one can't avoid placing radio-buttons and check-boxes on tabs a workaround is to place a frame on each tab page and set the frame color and fill to be the same as the main window. The attached program, tabm

Problem: Pprogram has a push-button with a long title to display on two lines but nothing makes it look right.  Embedding the carriage-return in the title it still comes out on one line. Resolution: Define a working-storage item containing the title and use that working-storage name in the push-button's title property.  Make sure to set the multiline property of the push-button. For example, use this working-storage description: 01 ButtonTitle.     05 LINE1 pic x(5) value "line1".     05 LF pic x(2) value x"0D0A".     05 LINE2 pic x(5) value "line2". Then a screen-section description of the push-button:     03 Push-Button,          COL 4, LINE 4, LINES 4 CELLS, SIZE 7 CELLS,          MULTILINE, TITLE ButtonTitle.

Problem: Is there a way to see what version of an ACUCOBOL-GT object is when cblutil is not available? Resolution: If the Unix operating system being used has a magic file then it is possible to add an entry to display the version of the ACUCOBOL-GT object. First locate the magic file ie. $whereis magic $magic: /usr/share/magic.mgc /usr/share/magic /usr/share/magic.mime /usr/share/magic.save /usr/share/man/man5/magic.5.gz In this instance the /usr/share/magic file would be edited to include the following code. # Magic numbers for ACUCOBOL-GT object file #0   string      \\020\\022\\024\\040    ACUCOBOL-GT object file data 0       belong          &nbsp ; 0x10121420      ACUCOBOL-GT >4      beshort     

Problem: Is there a way of testing AcuXDBC's connection with AcuXDBC Server without using a 3rd party application? Resolution: This is possible.  On the client machine open a command prompt and navigate to the AcuGT\\bin directory.  Type: odbcsql.bat -d "DSN-NAME" where DSN-NAME is the name specified for the dsn in the Data Source Administrator. This directly queries AcuXDBC Server that the DSN-NAME points to.  Assuming that the sample data was used during the creation of the system catalog, at the odbcsql prompt type in a query to the database: select * from pets; This should return all of the rows from the sample pets table. Old KB# 2835

Problem: When using the version 8.x AcuSQL precompiler a syntax error is generated that did not occur in earlier versions when the embedded SQL code uses the "COALESCE" function. An example of this code:            exec sql                select                  coalesce(c_info,'')                  into :the-c-info                  from customer                 where c_number = :c-number            end-exec.     

Problem: Is there a way to create a socks level trace when using Acurcl? Resolution: Instructions for performing a socket level trace with Acurcl. On the client side: Depending on how the application is started, add "-t7" to the command line that invokes acuthin;  Ex.      Acuthin.exe -t7 <server-name> <alias-name> This will produce two files on the client.  The first is called "displog" that contains tracing information specific to when controls are created, modified or destroyed, the second is a socket level communication trace named "socks<pid#>.trc". These files will be created in either the current directory, the location specified in the "start in" property of the icon or on the desktop. On the server side kill Acuconnect and restart it adding "-t 16535" at the end of the command string.  Ex.     &nbs

Problem: C$SOCKET with AGS-WRITE works with the Microsoft FTP Service but not when used with Serv-U FTP Server v6.4 for WinSock. The problem is in the command-string, as you can see in the example below, it describes that the string should end with the line feed character x"0A". Example coding: - if parse-command-code = "220"    initialize unix-send-command    move 1 to unix-send-cmd-length    string "USER " delimited by size              unix-username delimited by spaces              x"0A" delimited by size              into unix-send-command with pointer              unix-send-cmd-length    subtract 1 from unix-send-cm

Problem: An application running on Linux attempts to open a large binary sequential file (> 3GB) and receives a file status 30,27. Resolution: An error 30 indicates the issue is on the operating system side.  The secondary error 27 indicates the file is too large, as defined in the errno.h file for the system (/usr/include/asm/errno.h in this particular case): #define EFBIG           27      /* File too large */ The standard file API has a limit of 2 GB. The solution is to add "USE_LARGE_FILE_API ON" to the Runtime configuration file or set it in the environment. Old KB# 2776

Problem: Running acuserve and attempt to kill with     acuserve -kill -nf (port number) The following message appears: Socket error: 10102 Resolution: There is typically an issue with the host name on the server.  Open the host file in etc directory ie more /etc/hosts and verify that the information is correct. Alternatively specify which hostname/IP Address that the acurcl daemon should listen on by setting the AcuConnect configuration variables SERVER_IP and/or SERVER_NAME. For further information about them see the AcuConnect documentation. It is also possible to specify which hostname the -info or -kill command should be sent to by specifying the hostname on the command line.  For example: acurcl -info {servername} acurcl -kill {servername} Old KB# 2804

Created On:  1 July 2011 Problem: Which versions of Microsoft SQL Server are compatible with versions of Acu4GL? Resolution: Acu4GL Versions SQL Server 6.x , 7.x 2000 7.x, 8.x, 9.x 2005 8.x, 9.x 2008 9.x 2008 R2 Old KB# 2828

Problem: When executing a "vutil -load" command  to load a sequential file into a Vision file, any records which would create a duplicate key condition are put into a file named filename.rej (Users Guide 3.3.10) What format is the filename.rej created in and how can the records be loaded into a Vision file? Resolution: The filename.rej file that contains the duplicate key records is in sequential file format and may be loaded into a similar empty vision file. Old KB# 2792

Problem: Does C$FILEINFO support the @[DISPLAY] syntax to retrieve information from a file residing on the client machine? Resolution: This functionality is implemented in version 8.0.0.  Earlier versions do not support the @[DISPLAY] syntax for C$FILEINFO library routine. For earlier versions there is a workaround involving calls to Windows API functions in MSVCRT.DLL and KERNEL32.DLL to get the desired information. The attached COBOL programs, TESTIT.CBL and TCFILEINFO.CBL, are an example of how to implement the functionality with Thin Client versions 7.x and earlier. Please note the sample programs are provided "as is".  They may be freely modified and distributed, but have no warranty of functionality or support. Attachments: TESTIT.CBL Old KB# 2811

Problem: A C# program using ADO.NET to connect to Vision ISAM data through AcuODBC executed the following SQL statement: SELECT MY_FIRST FROM MEMBER WHERE MEMBER.MY_CLUB=481 AND MEMBER.MY_NUMB='D148687     ' This resulted in the following error: System.Data.Odbc.OdbcException: ERROR [S0000] [AcuCorp, Inc.][AcuODBC Driver]Invalid operand for operator: = Resolution: Although the COBOL FD has both MY_CLUB and MY_NUMB defined as PIC 9(3), they have to be passed as string data types  instead of numeric values from the C# program to avoid the error. Old KB# 2817

Problem: Attempting to link a table with Microsoft Access or Excel fails with the error: ODBC--call failed.  [TOD][ODBC][GENESIS]WORM: Cannot open 'GENESIS_XCOLUMNS',Too many open files (#-3) Resolution: The problem can be fixed by setting MAX_FILES to a higher number in the AcuXDBC configuration file.  The system catalog is a set of Vision files and each open can use up to 16 files. The default is 32, so opening up 2 DSNs causes the MAX_FILES default setting to be exceeded resulting in the error. Old KB# 2843

Problem: With a "read/write" license for ODBC Server (as opposed to "read-only"), running a query results in 'Vision Mode Clash" error dialog. Resolution: In addition to installing the license, the DSN must be "Read/Write", not "Read Only". Note that this applies to both AcuODBC and AcuODBC Server. Old KB# 2814

Problem: Invalid cursor state message after performing FETCH after 2nd OPEN statement.  Can the cursor be reopened? Resolution: To perform additional FETCH operations, the cursor must first be closed and then prepared again. Old KB# 2823