Rocket® COBOL

Problem: How do I compensate for different printer's printable area's? Resolution: See attached example (POffset.zip) Attachments: POffset.zip Old KB# 6128

Problem: Dialog System Error 3, 52, 55 on RETC. Error 4/007 on a read. Resolution: This error occurs as a result of application processing which causes a change of directory for the current process. Unless Control bit 3 is set (DS-NO-NAME-INFO) then each RETC will result in the screenset being reloaded to retrieve the name details for the currently active object when the RETC occurs. If the screenset is not on COBDIR or the full screenset file path name is not specified, then the file open will fail as a result of the change in directory. This subsequently causes the file read fail 47. Old KB# 6565

Problem: This is a result of using the wrong program for the List View. Resolution: Make sure the assosiated program for the List View is actually the generated program for it.  Just verify the properties of the List View control from the screenset to know the exact program name. Old KB# 6552

Problem: How can I prevent or terminate disconnected WOW Thin Client Server process? Resolution: Use the Server configuration option under the [ServerConfig] section of the Server rpcplus.ini file: InactiveLimit This option specifies the maximum amount of time a server will wait for an already connected client to make another remote program call. Also, try UseKeepAlive, also in the [ServerConfig] section of the Server rpcplus.ini file. This option checks for connection terminations at the TCP/IP level. For it to work, the TCP/IP parameters KeepAliveTime and KeepAliveInterval must be set in the Windows system registry or the UNIX/Linux kernel. The Windows default is 2 hours. If you want to set a shorter time period, use regedit and go to: HKLM\\System\\CurrentControlSet\\Services\\Tcpip\\Parameters Add two DWORD Parameters named "KeepAliveTime" and "KeepAliveInterval". The values depend on what time you'd like. For example: if you use 600000 (ms

Problem: The use of 3D objects (radio buttons etc.) in Dialog System 2.5 and later has caused confusion with some of our Customers. This article documents how the 3D support in Panels 2 works and what code is required in your Micro Focus COBOL/Dialog System applications. We will be looking at the following Micro Focus products: Workbench/Object COBOL 3.4 (16 bit). Dialog System 2.5 (16 bit). Workbench/Object COBOL 4.0 (32 bit). Dialog System 2.5 (32 bit). Net Express 2.0 with Dialog System 3.0 (32 bit). Resolution: The following notes are split by operating system and then by Micro Focus product. The information is presented in the form of bulleted items so that it can be used as a checklist in the event of problems. [General Points of Interest] Panels 2 (16 bit) uses a DLL written by Microsoft called CTL3DV2.DLL or CTL3D.DLL. These are available from the Microsoft web site. There is also a 32 bit DLL available from Microsoft called CTL3D32.DLL. 32 bit

Problem: What is the correct way to configure/debug WOW Thin Client on a UNIX system? Resolution: First, make sure that you are using the version of WOW Thin Client on the Windows system that matches the version of the runtime. You cannot mix versions. Next, make sure you are using a Runtime Plus version or Development version of the runtime on the UNIX/Linux system. The Runtime Plus and Development versions support Thin Client, while the regular Runtime does not. If unsure, contact Support and give us the serial number; we can check for you. For normal execution: 1. Make sure the rpcstart script has execute permissions. For this example, it is located in the /usr/rmcobol directory and should look like this: #!/bin/sh # TERM=dumb; export TERM RM_LOAD_WOW_CLIENT=yes; export RM_LOAD_WOW_CLIENT cd /usr/rmcobol && runcobol ./helowrld.cob k (You can locate the rpcstart script anywhere, but make sure the rpcplus.ini file is in the same directory, and have the script change to th

Problem: Fileshare is performing about 10 times slower on Net Express 4.0 than on Net Express 3.0. Resolution: The reason why Fileshare is slower in performance is while running with asynchronous comms, the process gets dropped by CCI, if no messages are waiting.  The fix for this is to switch the comms to synchronous using the /sc option in FS but that requires a password file to be used. When you are using synchronous comms, it is quite tricky to shutdown the FS server, because it can take quite a while to respond to the screen.  If the FS server is idle, then it will only be checking the keyboard once every two minutes ( by default ) and so a user hitting escape will likely not get the response from it, that he expects. In the product is an API FSMGR, which provides ways of controlling FS remotely but there is no program provided.  You have to create your own or use something like the FSVIEW addpack. The solution to the per

Problem: Tabbing from a numeric entry field that is supposed to become zeros if blanks get reset to blanks only when the application is run outside Net Express. This seems also to occur only on Windows 2000, not on Windows NT or XP. If the application is run within Net Express, the zeros remain in those fields. However, the zeros become blanks once it is run outside Net Express or in an Application Server environment. Resolution: A part of this problem is down to the code. For example, in the window dialog there is a GAINED-FOCUS event that would cause a REFRESH-OBJECT command for a list box. As this event is in the window dialog and does not exist in any of the object dialogs, this event will be called any time the window or any of its objects get the focus. This means that the event is called more than needed causing the problem with the numeric entry field to become blanks even if it should remain zeros. The other part of the problem is related to entry field

Problem: What are High-Values and Low-Values? Resolution: COBOL programmers sometimes use the figurative constants HIGH-VALUES and LOW-VALUES as if these constants will have a numeric meaning when moved to or compared with a numeric data item. Unfortunately, this intuitive understanding conflicts with the definition given by COBOL. Worse yet, COBOL explicitly allows the combination of alphanumeric and numeric data in MOVE statements and relation conditions. Therefore, past RM/COBOL compilers have not diagnosed programming problems that may result. Modern versions of the RM/COBOL compiler will warn you when HIGH-VALUES or LOW-VALUES are moved to a numeric data item and the result is not well defined. The following paragraphs help clarify the actual meaning of HIGH-VALUES and LOW-VALUES. HIGH-VALUES and LOW-VALUES are defined in COBOL as always being alphanumeric. This contrasts with the figurative constant ZEROES, which is numeric when associated with a numeric data item a

Problem: Does Micro Focus have an OFX server? Resolution: Micro Focus has no direct support for OFX within its products.  However, it may be possible to integrate with this technology via XML, web services etc. You can find out more information on the Open Financial Exchange specification (OFX) at: http://www.ofx.net/ofx/pressget.asp?id=44 Old KB# 5801

Problem: Data entry field should display as blank until a new value is keyed into field. Resolution: This is an ADIS configuration option that can be set up with ADISCF and saved in a modified ADISCTRL file. Since you are migrating from an older version of Micro Focs COBOL to the current version, search the system where the older version is installed for an ADISCTRL file and copy it to the new system. The ADISCTRL file should be in the folder where the application programs are executing.                                                                                 

Problem: Release 4.0: Using the XML GENERATE statement from IBM mainframe COBOL in Net Express. Resolution: Use Net Express 4.0 with the WrapPack all06n40 or later. Old KB# 5806

Problem: If you have applied IBM FixPak 10 to DB2 UDB V8.1 / V8.2, a SYSIBM:CLI:-805 error trying to access SYSIBM.SQLTABLES may occur when attempting to connect to the DB2 database to retrieve the list of tables from within the ESQL Assistant. Resolution: Per the IBM FixPak Readme for FP 10, you will need to manually re-bind to the database. See the IBM Support Alert at http://www-1.ibm.com/support/docview.wss?rs=71&context=SSEPGG&dc=D600&uid=swg21215626&loc=en_US&cs=UTF-8&lang=en for information on how to solve this. As documented in the IBM FixPak Readme file for DB2 Version 8.1 FixPak 10, you will need to bind the db2schema.bnd file against each database, as follows: At a command prompt: db2 terminate db2 connect to <database-name> db2 bind <path>/db2schema.bnd blocking all grant public sqlerror continue db2 terminate ...where <database-name> represents the name of a database to which the utilities sh

Problem: Das Modify Data Tag (MDT) soll als Eigenschaft eines Feldes im Editor gesetzt werden. Kann üblicherweise bereits für ein BMS Feld eingestellt werden, nicht erst im SEND MAP Aufruf. Wo ist der Schalter im Net Express BMS Editor ? Resolution: Das MDT Bit wird  durch den Schalter FSET in den Feldattributen gesetzt (Field Properties / General). Old KB# 5790

Problem:   If the sub-program is called:        CALL "subprog" USING OMITTED OMITTED WS-VAR-3. The following error occurrs: Execution error : file 'subprog.int' error code: 203, pc=225, call=1, seg=0 203     CALL parameter not supplied How do I validate which parameter is omitted to avoid this error? Resolution: The 203 error is correct as you need to test for the presence of each parameter before attempting to modify it in the sub-program. This is done with the following code:       if <variable-name> is not omitted           move ... and so on. Old KB# 5818

Problem: 'Verify Server Settings' returned this error.    Resolution: Norton Internet Security was enabled on the PC and did not for some reason report that it was blocking access to this IP.   When this was resolved, publishing worked OK. Old KB# 5804

Problem: When attempting to install Net Express .NET the Visual Studio.Net prerequisite CD asks you to insert cd-1 and then hangs. Resolution: Ensure that you have at least 128MB of RAM on the machine you are installing to. Old KB# 5810

Problem: Unable to populate an empty Net Express project from CA Harvest. Resolution: This seems to be caused by an undocumated feature in CA Harvest prior to version 5.1.2.  Either upgrade to 5.1.2 or 7 of CA Harvest to correct the problem. Old KB# 5793

Problem: How can I use C$SCRD to Read the Display Screen? Resolution: An example source code file is attached. Attachments: SCRD.CBL Old KB# 6118

Problem: Moved from test to production server - now when client tries to start application it goes right to the ssdisconnect screen Resolution: If you are receiving an immediate ssdissconnect, it usually means it is not reaching the host designated in the project settings. Now that you have moved from test to production - check to see if the host name or IP number is correct - also very important the PORT number -  in the admin\\project  - edit project (application) in question Old KB# 5903#EnterpriseLink#Rumba

Problem: How do I use the RENAME subprogram call? Resolution: Please see the attached file RENAME-EXAMPLE.CBL Attachments: RENAME-EXAMPLE.CBL Old KB# 6125

Problem: Can i get rid of the some of the buttons of the keyboard that appears at the bottom of the page - that appears when you run the customized application. Resolution: In builder, highlight the page you are modifying and do a right click on properties. click on the Display tab, and uncheck the "include button bar" You will then have to place your own buttons on the page, to click on the buttons for each type of keyboard function that may go with the page. Make sure you do a save and flush the cache before running to see the new pages modified, if you dont see the new pages, restart the web service to clear all cache. Old KB# 5899#Rumba#EnterpriseLink

Problem: Is there  a way to delete screens/pages from the repository without having to delete them one by one in Builder ? Resolution: We now provide 2 utilities (batch files) to delete screens and pages. Documentation for command-line batch files to Delete Screens and/or Delete Pages has been added to the EL Wiki in www.enterpriselink.com -> Authors.    Once inside EL Wiki, do a search on "Delete Pages" or "Delete Screens".   Detailed information including the batch files themselves and their operation is given.   Please pay careful attention to the "Note" at the bottom of each entry. For Deleting Screens, the file, DeleteScreens.bat should be executed. It requires two parameters with an optional third parameter. The first parameter is the project-name.   The second parameter is either 1)  the name of a file containing a list of screens (one per line) to be del

Problem: Failed attempt at using Project Manager locked my project. How can I unlock them to use outside of Project Manager? Resolution: Solution without project manangement. Notes: You don't have to actually use the Master Repository at all. Assuming your ELRepository is locked Create a new DNS (mdb)     Administration-> Repository -> Add new DNS -> *.mdb     change the Data Source Name to ELRepositorynew     Choose a new mdb file in a new location Initialize     Administration -> Repository -> schema -> ELRepositorynew -> initialize            Migrate     Administration -> Projects -> migrate projects ->        sources is ELRepository  -> choose your project        destination is

Problem: Unable to debug C and COBOL programs at the same time -- why? Resolution: This is expected as you can only use on hard mode/low-level debugger at a time in Windows.  Both Visual Studio and Net Express use the low-level debugging support i.e. they conflict. Your options to get around this are: 1) Debug the C in Visual Studio and run the COBOL. 2) Run the C from Net Express (Animate Settings) and debug the COBOL. 3) Run the C from the command line and use CBL_DEBUGBREAK. Alternatively, you could switch to .NET where you can have the C and COBOL mixed together within Visual Studio as managed code. Old KB# 5823