Rocket® COBOL

Problem: CBL2XML, using fonction "convert COBOL to COBOL with XML syntax" generates a warning "Warning : The redefines clause is not supported by this version of the COBOL runtime..." when the COBOL COPYfile to be "converted" to XML contains REDEFINES clause(s) Resolution: ...Let's say you have such a COPY file:        01 LEV1-rec. 02 AnyData pic x(100). 02 AnyDataRed   pic x(100) redefines AnyData. ...AND you use CBL2XML to "convert COBOL to COBOL with XML syntax"       ie: generate an XML copy file describing the XML file ...YOU'LL GET THIS WARNING Micro Focus CBL2XML Version 1.0 Copyright (c) 1984-2005 Micro Focus International Ltd. Checking ...\\ACobolCopy.cpy for errors Micro Focus Net Express V4 Version 4.0.38 Copyright (C) 1984-2005 Micro Focus International Ltd. URN AXCGG/AA0/00000 * Checking complet

Problem: In .Net WinForms how can you append text to a multi line textbox control. Resolution: To do this you need to append text to the string and new hex ODOA (Carriage Return Line Feed) as the terminator for a line. The code required is something like:- 01 ws-newline pic x(2) value x"0d0a". set self::"textBox1"::"Text" to class-string::"Concat"(textbox1::"Text",ws-newline,"This is a another line.") You just need to concatenate the strings together. Old KB# 3801

Problem:   I am getting the following error message when using the CHAR function against a DB2 UDB 8.0 database when a host variable is used using ODBC interface. The error message I am getting is SQLCODE = -418 SQLERRM = The statement contains the use of parameter marker that is not valid Given below is a code snippet and compiler directives. EXEC SQL                                                      SELECT CHAR(DATE(:wsdate1),ISO)                       INTO :wsdate2                  &nb

Problem: If a user has created a .dat file from a Net Express application and then attempt to open\\update the file from a .NET Web Service, a 3/7 access denied error message returned from the service. Resolution: This is usually due to anm ASP.NET permissions issue, as the .dat file was created outside of .NET. To set the correct permsiisons on the file in order to allow the Web Service to update it, the following must be done: In explorer, bring up the properties for the data file, and select the security tab.   Click Add and type YOURMACHINENAME\\ASPNET (where YOURMACHINENAME is the name of your PC) then click Check Names. This should resolve to YOURMACHINENAME\\ASPNET. Now OK the dialogs and back at the Security tab, make sure ASPNET has full control over the file. You'll also need to do the same on the associated .idx file. Run the .NET Web Service and check that you can now update the file successfully. Old K

Problem: When the statement "EXEC SQL INCLUDE aFile END-EXEC" is used, ORACLE precompiler PROCOB looks for a file named 'Afile.cob' on the current directory AND, if not found on the current directory, looks for it on DIRECTORIES pointed by the environment variable INCLUDE. How to manage ORACLE precompiler PROCOB to find these files despite they don't have the cob extension? Resolution: Use the Micro Focus CP Preprocessor so COPYFILEs are "expanded" before ORACLE precompiler has to deal with them ( ie: since CP will have expand  COPYFILEs, procob won't have to look for them....) Sample Paste of Net Express directives of a Net Express project: %FILENAME COBIDY(%TARGETDIR) WB3 WB CSI ANIM EDITOR(MF2) ENSUITE(3) PREPLIST  LIST() osext"pco" copyext"cob,pco,cbl,cpy" p(cobsql) csqlt=ora8 makesyn end-c comp-5=yes   p(CP)  C S T W ENDP; Note that, since the Prep

Problem: How can I register JScript in ASP.Net using RegisterOnSubmitStatement in COBOL ? RegisterOnSubmit allows you to register client side JavaScript code from your COBOL running on the WebServer. Resolution: There is a demo attached to this. It adds some Java Script that gets triggered when a button is pressed. The code that registers script is:-        method-id. "Page_Load" is protected.        local-storage section.        01 clntscriptname       string.        01 clntscripttype       cType.        01 scriptman            cClientScriptManager.        01 scripttext      &n

Problem: This COBOL syntax uses the SPECIAL REGISTER TALLY: inspect Avariable tallying TALLY for all space TALLY SPECIAL REGISTER is usable ONLY WHEN Compiler directive OSVS or VSC2 is set Extract of Net Express on-line help using the keyword TALLY special register:   !!!!!!   OSVS or VSC2 have to be set *   TALLY 9(5) COMP *   The TALLY special register contains information produced by the EXAMINE...TALLYING statement. *   It is valid as a data-name in a Procedure Division statement wherever an elementary data item can be referenced. Resolution:       *SET VSC2       $SET OSVS        IDENTIFICATION DIVISION.        PROGRAM-ID. TESTtally.        ENVIRONMENT DIVISION.        DATA DI

Problem: Return code -2108 on a prepare statement (dynamic sql using Oracle 10g) ORA-02108 PCC: invalid descriptor passed to run-time library Cause: This internal error typically indicates a memory-related error. Action: Check the program for memory-related errors, such as invalid pointers or array-bounds violations. Resolution: Was passing the sql statement in a group level item setting the 49 level for length and data part. Changed the prepare to only pass the data part and that resolved the error. For dynamic sql and oracle either use a host variable using the varying clause where you set the data and length or use a pic x(nn). 49 levels are not valid for Oracle. Old KB# 3789

Problem: Used the ODBC data source administrator (via the control panel) to add a user DSN, then clicked on the "test connect" button and the following error occurred:      specified driver could not be loaded due to system error 1157 Resolution: The common causes for this type of error is 1) Don't have the necessary ODBC drivers installed 2) The appropriate DBMS client software is not installed. 3) System Path is not set correctly. Check the above causes and see if it helps resolve this problem.  If the problem still exists then contact Micro Focus SupportLine.  Check our website (http://www.microfocus.com) for SupportLine contact numbers (http://www.microfocus.com/AboutMicroFocus/contact/supportlinebycountry.asp) Old KB# 3815

Problem: Release 4.0: The following COBOL code gets compiled without any ERROR - PERFORM PERFORM Paragraph-Name - IF Field NOT = TO SPACE The compiled code runs without any error and there is currently not really a issue with the execution. However, the customer is developing for the Mainframe (Bull GCOS7) and when the coding is brought back to the Mainframe the compiler does not allow to compile the above lines as they are not valid COBOL code. Can this be addressed in a future fixpack ? Resolution: No, it seems there are bugs while compiling this under Net Express 4.0, but 1) nested PERFORMs are allowed. 2)" = TO" is a peculiarity of the OSVS mainframe, so Micro Focus allow it too. Look up 'Relation Condition' in the Net Express COBOL language documentation: > OSVS: Note that " = TO", "> THAN" and "< THAN" are accepted. < Old KB# 3833

Problem: When you have a 'read only' field and you jump from one field to the next within your program, the cursor will still jump into this 'read only' field as well and not to the next field. Is it possible to jump over the read only field straight to the next read/write field? Resolution: This behaviour is as expected. It's part of the Windows functionality. Even thought you cannot change data in a 'read only' field, you still might want to be able to copy the data inside and therefore you need to be able to got in this field for copy purposes. If you really would like to jump over this field to the next read/write field, you need to change this to for example a 'read only' display field. That way it will only 'display' the contents. However you won't have a box/frame so you might want to draw it around yourself. Old KB# 3765

Problem: How can you run animserv and animserv_t on a specific port, rather than using the default? Resolution: Use the syntax animservXX port=xxxxx or animservXX_t port=xxxxx(where XX is either 64 or 32) N.B. do not use ports from 0-1023. This are privileged ports only accessible by root.Old KB# 3704

Problem: All of the features of FSVIEW are available to you as a command line utility. The commands you specify on the command line define the operation to be carried out by FSVIEW. Information is returned as a scrolling screen output Resolution: In order to get dynamic file tracing for fileshare running in background, you should start fileshare with tracing and then switch it off To get a trace to file from Fileshare, you need to start fs with the options -tr f e.g. fs -s glen -sc -tr f -pf glen.pf will start a server called glen, using password file glen.pf, trace to a file and run synchrounously. To enable and disable fileshare tracing using FSVIEW use admin logon FSVIEW MFTEST server set GLEN trace toggle exit This will produce a text file fsscreen.lst in the fs start directory To get a filehandler trace for fileshare us fsview command as follows admin logon FSVIEW MFTEST server set GLEN xfhtrace toggle

Problem: Running cob, cobrun or similar on SCO Unix 5 you get a message of the type: Dynamic Linker : /cobol/bin/rts32_t  can't set protections on segment of length 0*602 at 0*804800 Resolution: This error occurs if you are trying to run the Server Express product in SCO Openserver 5. Server Express is not available for this platform. Please see http://supportline.microfocus.com/productreleaselevels/unix.asp for available products. Currently (Server Express 4.0 SP2 & Server Express 5.0) can only run on SCO UnixWare 7.1.3/7.1.4/Open Server 6.0. Old KB# 3678

Problem: I am trying to animate a process on another machine, using dynamic attachment, but it says I don't have permission to access the application.  I am using the same user ID on both machines - why is it not working? Resolution: The user ID was the same on both machines, but the group ID was different.  Changing the group ID solved the problem. Old KB# 3677

Problem: Installing ServerExpress on SuSE SLES Resolution: If you are want to install ServerExpress on a SuSE SLES you need to install the gcc package before ServerExpress. gcc is not a package in the SuSE Standard installation and must be choosen separately. Old KB# 3705

Problem: Release 4.0: A customer upgraded from OCDS to Server Express 4.0 SP2 and run into problems with cobtidy and cobexit. Running a c program calling Cobol programs and doing cobtidy before the exit(0) of the C program results in hanging. The problem is that the C program is hanging just after the cobtidy() and waiting forever.Having tried cobexit() instead of normal C exit and removed cobtidy, this time it hangs with cobexit()! Resolution: Solution is to compile with -t for multi threaded. OCDS and Server Express are not the same products and multi threaded (-t) is one of them. With Server Express you have to specifically include this in the compile command. Old KB# 3698

Problem: A customer has migrated to Server Express SuSE SLES 9 X86_64 from OCDS and is re-linking their application.  They receive the following error regarding a file BS.o cob32: error reading: BS.o Resolution: This is a portability issue and actually related to more than just the one object file.  The first file to be processed threw the error.   On examination, the object origin was from a different chipset; MIPS ELF not INTEL ELF. # cob -xve "" -o myrts BS.o cob32 -C nolist -xve  -o myrts BS.o cob32: error reading: BS.o # file BS.o BS.o: ELF 32-bit MSB MIPS-I relocatable, MIPS, version 1 (SYSV), not stripped Using the locking demo: # file stockioa.o stockioa.o: ELF 32-bit LSB relocatable, Intel 80386, version 1 (SYSV), not stripped # cob -xve "" -o myrts stockioa.o cob32 -C nolist -xve  -o myrts stockioa.o Entry points defined in module: stockioa.o  &

Problem: Is it possible to have text appear horizontally on the left or right sided tabs? Resolution: Unfortunately it is not possible to have a 'literal text' horizontally in the tabs, not only in Dialog System but also in Panels2 API. In the past one could do this with OS/2 but then the tabs appeared to be rather big. The only way to do this is to create a bitmap with a horizontal text and place this on the tab, instead of a 'literal text'. Old KB# 3766

Problem: =========================================== Mono-Threaded COBOL Socket client & server. =========================================== related KB: Multi-Threaded COBOL socket's server & MonoThreaded COBOL client. http://supportline.microfocus.com/mf_kb_display.asp?kbnumber=23143 Resolution: =========================================== Mono-Threaded COBOL Socket client & server. =========================================== The program server.cbl  is the socket's server ( written in COBOL ) The program client.cbl  is the socket's client ( written in COBOL ). This sample was mainly tested on AIX 5.2.0.0 with Server Express 4.0 SP2 32bits. To Compile and link the sample ============================== To compile and link  server.cbl & client.cbl, launch cl.sh cl.sh:  cob -xag server.cbl cob -xag client.cbl To run the sample ================= To run the sa

Problem: Receive the following error message An error was detected while installing c:\\windows\\MFUnweb.exe The installer will attempt to undo any changes it has made to your system. Resolution: When looking at the log produced by the websync install in the temp directory it was discovered that the customer was attempting to run the the wrappack from a network drive when the directory containing the wrappack started with a $. The WebSync technology doesn't allow $ in network locations.  Placing the WrapPack in a standard location on their network and not a hidden one or copying it locally will resolve the problem. Old KB# 3521

Problem: I can't use REMOTE DEBUGGING when the operating system of the remote machine is SuSE 9 . A error message about the rm command is displayed Resolution: It is necessary to modify the file $COBDIR/bin/cobrps . The command who am i  must be modified to whoami The cobrps file must be : : #------------------------------------------------------------------------------- # @(#)cobrps   1.0 # # $Revision:   1.3  $ # $Date:   29 Jul 1999 15:59:10  $ # $Author:   RHS  $ # # Remote process list #  Output: <processid><tab><other information><newline> # # N.B. #   This script must not make ANY assumptions about the environment in which it #   executes: in particular, it must not assume that COBDIR, PATH, LIBPATH, #   LD_LIBRARY_PATH, etc., are set. #-------------

Problem: This sample demonstrates file status code handling of CBL_ file handling routines Resolution: INTRODUCTION ========== This is a subroutine which converts the nonzero return  codes from CBl_ file handling routines to ANSI file  status strings of the form "9/xxx", where "xxx" is a  number documented in the Error Messages manual as a file  status. If the input value is not a valid file status, the string "Unk! " is returned.  A normal completion is X'0000', which is not a file status in the internal format expected and thus will return as "Unk! ".  Please refer  to KnowledgeBase item 21106. SOURCE FILES: ========= Program Files     Description ----------------     ----------------------------------------------------------- rc2fstat.cbl        

Problem: Server Express includes example COBOL programs in the XML tutorial, as described in the documentation.  When a person follows the directions in the tutorial, program "customerdbxml.cbl" may not compile.  A long list of compiler errors may appear, where the first error is actually the cause of the rest.  The first error message might be either: 17 working-storage section. * 803-S*******************                                                   ** **    Integrated preprocessor message **    Bad format of COPY statement - COPY ignored Or:     13 fd customer-file. *  12-S**************** 

Problem: Changing Dialog System application screensets to properly show the Visual Style layout on Windows XP. The Adobe Acrobat file and .zip file attached to this document contain the full Knowledge Base document containing the explanatory screen prints and the example application to show how to accomplish the modernization.  Please download them to view the full information. Resolution: For the past 10 years, GUI Dialog System screensets have looked more or less like the following screen shot: This screen shot was made on a Windows XP PC using the classic layout. Switching the XP operating system to the new XP style layout without any change in the Dialog System screenset will result in: which may look like XP on the first view. But only the title bar has got an XP style layout.  The rest of the features are still the classic style. This article describes how to get a full Visual Style layout on windows XP f