Rocket® COBOL

Problem: A user cannot save a new page in Builder. Resolution: Seems that the memory that EnterpriseLink Builder was trying to access to save the page was unavailable.  Once the user was able to reboot his machine and open Builder and then try to save the page, it worked. Old KB# 5907#EnterpriseLink#Rumba

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: Why do I get an 47,01 error on an OPEN OUTPUT, and there are no READS? Resolution: Check to see if there is an UNLOCK in the statement. UNLOCK is not allowed in an OPEN OUTPUT. Old KB# 6115

Problem: How can I use redirected Input to a Cobol Program? Resolution: Please see the attached program acp.cbl as an example of a program which accepts redirected input. Unfortunately, it is not possible to redirect input in Windows.  Due to the nature of how Windows handles input, redirection is impossible.   You can redirect input with the UNIX(v10.01) and DOS(v6.10.02) versions of RM/COBOL, however.      Attachments: ACP.CBL Old KB# 6117

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: How can I compute Square Roots and Cubed Roots? Resolution: To find the square root of a number in RM/COBOL, use this statement: compute RESULT rounded = NUMBER ** 0.5 Use 0.33 for the cubed root. The "rounded" phrase is needed because the number 4 returns a root of 1.99..., only bigger numbers (9 and up) return the correct whole number for the root without rounding. The **  operator performs exponentiation when used with a whole number instead of a decimal.      Old KB# 6113

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: What causes Truncated Records? Resolution: If a program defines a record length that is less than the length of the records in the data file, the data will be truncated and no warning messages are generated. This is a feature of COBOL fixed length records. Record description entries need not describe the entire record. This could be useful, for example, to allow expansion of the record description without having to enter a filler in each record description. A RECORD Clause with CONTAINS n CHARACTERS can be used to define a fixed length record. For variable length records, a RECORD Clause can also define the minimum and maximum length of the records in the file. The record descriptions cannot be less than the minimum nor greater than the maximum record area, but equality is not required in either case. The compiler issues an error when a record shorter than the minimum record length is described for a file with variable length records.     

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: How do I do string manipulation in Cobol? Resolution: To move selected characters from one alphanumeric field to another, try using reference modification. For example, to get the 2nd through 4th characters of a PIC X(5) field into a PIC X(3) use the following: MOVE FIELD1(2:3) TO FIELD2. If FIELD1 contained 'ABCDE', this statement would put BCD in FIELD2.      Old KB# 6116

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: Receiving an error running MFSORT - error is SORT042U.   Cannot find MFSORT documentation that lists this message - is there a complete set of MFSORT error messages ? Resolution: Open Net Express Help and click the "Contents" tab. Then open these folders: Reference   File Handling     Sorting Files       Mfsort and click the "Error messages" document. The messages are grouped into 0001 through 0099 and 0100 through 0199. Your error is within the first group. SORT042U Memory allocation failure The mfsort utility was unable to allocate the required memory. Resolution: Try reducing the value of the SORTSPACE environment variable. See Also: Environment Variables SORTSPACE The amount of memory to be allocated to internal workspace for SORT operations. This can be specified in different formats: for example, you could specify 64M, 2G, and 10000

Problem: 1.  Program A calls program B. 2.  Program B opens a file, then returns control to program A. 3.  Program A calls program B again. 4.  Program B accesses the file, assuming it is still open from program A's prior call.  This causes an immediate "47" I/O declarative error. Apparently, working-storage variables in program B held state from the previous call but the FILE OPEN state did not - the file has reverted to a closed status without ever being explicitly closed.  Again this behavior is different from my 3.0 system.   Is this also a compiler directive or runtime setup issue? Resolution: The sub program was using  EXIT PROGRAM to return to the calling program which using RM directive will close all open files. Adding "ANSI" to the RM directive will allow the EXIT PROGRAM to keep files open. RM"ANSI" Old KB# 5814#AcuCobol#RMCOBOL#netex

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

Problem: What does C$OSLockInfo Subprogram do? Resolution: C$OSLockInfo returns the PID of the process that has the record locked when a lock request fails. It should be called immediately after a lock request fails. This subprogram is available only under UNIX; there is no Windows equivalent. Calling Sequence: CALL "C$OSLockinfo" USING processid processid is a four-byte, unsigned COMP-4 numeric item.      Old KB# 6123

Problem: How do you right-justify a numeric value? Resolution: If a numeric value is accepted in an alphanumeric field, (which is left- justified) and it needs to be right-justified, try the following code: 01 alpha-item pic x(10). 01 move-item redefines alpha-item pic z(10). 01 num-item pic 9(10). ...     accept alpha-item.     move move-item to num-item.     display num-item. This should cause num-item to be right-justified. A direct move won't work because we pad alphanumeric fields with trailing spaces, and these spaces don't get stripped.      Old KB# 6114

Problem: Why is my data not stored as a numeric? Resolution: If you have a group item, all members of the group are treated as alphanumeric, even those defined as a numeric field. For more information, see the Language Reference Manual, under Data Structures.      Old KB# 6120

Problem: Can symbolic characters be used in an unstring command? Resolution: Yes. See the UNSYMBOL.CBL example program attached. Attachments: UNSYMBOL.CBL Old KB# 6111

Problem: trying to use comp-6 directive and getting invalid command line error Resolution: An additional integer  of "1" or "2" is required comp-6"1"   or comp-6"2" Old KB# 5771

Problem: installing netx 3.1 on windows2000 - getting error not enough space on target directory when indeed there is more than enough space available Resolution: in this particular case - the fix was to do a regedit and delete the micro focus folder under hkey_local_machine **if there are no other micro focus products on machine if there are - only delete the net express folder Old KB# 5777

Problem: How can I get an error when a REDFINES source/target are different lengths? Resolution: This "error" would return an informational message from the checker and is not reported by default (as you have found).  If you want to see these errors then you will need to specify the WARNING"3" directive on your compilations. Old KB# 5734

Problem: Is it possible to use Telnet in a COBOL system on the .Net platform. Resolution: Neither COBOL or the .Net Framework (V1 or V2.0) has support for the Telnet protocol. There is however many 3rd party .Net libraries that provide support for Telnet on the .Net platform. Old KB# 5776

Problem: A COBOL program that is built with Oracle Procobol precompiler fails with an RTS114 Error on a SQL SELECT statement. Resolution: This error was caused by a mismatch of Oracle versions. Using the correct version of Oracle client software for the Oracle Server version resolved the problem. Old KB# 5747

Problem: Release 4.0: The knowledge base articles KB: 20942 and KB: 21122 refer to SupportLine Newsletter articles, which show how to use the Windows XP Visual Style controls. The latest version of the sample is now available on the Net Express Examples page. Resolution: The sample demonstrates how to create a Dialog System screenset, which uses the Themed Controls of the XP Visual Style: http://supportline.microfocus.com/examplesandutilities/nesamp.asp#DialogSystem Demo: VisualStyleDemo.zip ---- The method used by the newletter article http://www.microfocus.com/mfnewsletter/technicalarticles/20050701-002.asp mentioned in KB: 20942 shows a purple line in each entry field. The newsletter article http://www.microfocus.com/000/XP-style-21_tcm21-5782.pdf, mentioned in KB: 21122, shows that the NoBorder-method from the class library can be used to get rid of this line. The example VisualStyleDemo.zip from the examples page minimizes the number

Problem: The comp-3 arithmetic should only retain the result equal to the defined pick value not what it can hold.        WORKING-STORAGE SECTION.       *****************************************************************        01  PIC-S9X4-COMP-3         pic S9(4)   COMP-3  value 5001.        01  PIC-S9X9-COMP-3         pic S9(9)   COMP-3  value 5001.        01  WRK-S9X4-COMP-3         pic S9(4)   COMP-3  value 0.        01  WRK-S9X9-COMP-3         pic S9(9)   CO