Rocket® COBOL

Problem: Application von SX4.0 SP2 für  Server Unixware 7.1 Problem: Aufruf eines prozeduralen Cobol-Programms von JAVA über das JNI, nachgestellt an Hand des Testbeispiels calc_pi aus dem DEMO Verzeichnis PI des Net Express 4.0: Das Programm funktioniert unter Windows 2000 sowohl von der Kommandozeile als auch im Fenster. Das Programm wurde auf ein Unixware System portiert und dort mit dem Programm cobjrun in einer Terminalsession ausgeführt. Es funktioniert. Nun wurde die Klasse calc_pi innerhalb von Tomcat ausgeführt. Tomcat selbst wurde mt cobjrun gestartet. Es kommt die folgende Fehlermeldung: Exception in thread "main" java.lang.UnsatisfiedLinkError: no libcobjvm_unx_142 in java.library.path         at java.lang.ClassLoader.loadLibrary(ClassLoader.java:1517)         at java.lang.Runtime.loadLibrary0(Runtime.java:788)   

Problem: Web CGI Application. Resolution: Make DLLs of conversion objects (NMCNVRTI.obj, NMCNVRTO.obj). Use call-convention 0. Use set procedure-pointer-item to entry "dllname" to load DLLs and gain access to the internal entry points. special-names.       call-convention 0 is llnk. working-storage section. 77  NMCNVRTI-pointer      procedure-pointer. 77  NMCNVRTO-pointer    procedure-pointer. procedure division.       set NMCNVRTI-pointer to entry "NMCNVRTI"       set NMCNVRTO-pointer to entry "NMCNVRTO" Old KB# 3897

Problem: When compiling a .NET project, the following errors occur: Could not find method 'New' with this signature Could not find method 'xxxxxx' with this signature Resolution: Create a new .NET project using the same source code. Old KB# 3860

Problem: The national characters are not correct in my character based screens. Resolution: The reason for the characters not appearing correctly is that the application has the 'ANSI Input mode' option selected in Application build settings.  Unselect the 'ANSI Input mode' option  and retry your application. Old KB# 3844

Problem: Let's say you have such an error when you invoked a method of a COM component Exception 65537 not trapped by the class oleexceptionmanager. Description: "Server defined OLE exception" (80020009): Exception occurred. Hit T to terminate program. Hit any other key to continue. What does the number between () mean? Resolution: This error means  that, for any reasons, the COM server raised an exception: he number between () is the exception number (80020009) What does this number mean? follow this URL http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q186/0/63.asp&NoWebContent=1 and you'll see that, regards to the EXCEPTION pasted above ( as an example ) , the error means (80000009)    General access denied error. ... Old KB# 3841

Problem: Any directives or tips to help performance, not using cursors doing select into an array Resolution: Following made a significant improvement in performance: 1. move sql directives to sql program only (remove from project properties) 2. remove autocommit and thread=isolate add autofetch remaining directives were targetdb=mssqlserver ansi92entry esqlversion=3 Old KB# 3857

Problem: How can you compile at a Windows command prompt. Resolution: The COBOL compiler can be run using the COBOL.exe command and any linking (to EXE/DLL) can be performed using CBLLINK.exe utility. The "Net Express Command Prompt" which is in the Net Express folder on the start menu has the environment already setup for compilation. If you want to perform compilation at normal Window Command prompt you need to run:- "c:\\Program Files\\Micro Focus\\Net Express n.n\\base\\bin\\CREATENV.BAT"   (substituting your own path) before the compilation is carried out. Old KB# 3880

Problem: What are the methods ejbCreate  ejbRemove  ejbActivate  ejbPassivate and setSessionContext used for? Resolution: These are the defined methods for a session bean as described by the EJB specification, which you can get from http://java.sun.com. Old KB# 3851

Problem: How can I call DSNTIAR from an Oracle (Pro*COBOL) application to retrieve the error message from a SQL operation? Resolution: To aid migration from Mainframe DB2, Oracle provide support for DSNTIAR, to retrieve error message text. With parameters defined thus :        01  ERROR-MESSAGE.                02  ERROR-LEN   PIC S9(4)  COMP VALUE 240.                02  ERROR-TEXT  PIC X(240).        77  ERROR-TEXT-LEN      PIC S9(9)  COMP VALUE 240. call DSNTIAR with :        CALL 'DSNTIAR' USING SQLCA ERROR-MESSAGE ERROR-TEXT-LEN and ERROR-TEXT will be populated with the

Problem: Product:  Application Server for Net Express / Server for COBOL An 'C' application calling COBOL returns the following error:          cannot fiind Cblrtss.dll   Resolution: Set the PATH and COBDIR environment variables to point to the Application Server or Server for COBOL product: Set Path=drive:\\path\\ApplicationServerFolder;%PATH% Set Cobdir=drive:\\path\\ApplicationServerFolder; Old KB# 3877

Problem: "File or assembly name MicroFocus.COBOL.Runtime, or one of its dependencies, was not found." The "all06n40.exe" WrapPack had been applied to the Net EXpress 4.0 development system used to create the application programs being executed. Resolution: The "aps08a40.exe" Service Pack for Net Express 4.0 Application Server and the "SRN89N40.EXE" Service Pack for Net Express with .NET Applicaition server had not been applied to the base installations of Net Express 4.0 Application Server and Net Express with .NET Application Server. Applying the Service Packs "aps08a40.exe" and "SRN89N40.EXE" to the Application Server installations on the server eliminated ther error. Old KB# 3905

Problem: If you have a project with for example 3 forms in it:- 1)       frmMain 2)       frmFirst 3)       frmSecond When you run the project it loads frmMain which have the property IsMdiContainer set to true. frmFirst is running as a child of frmMain. From a button on frmFirst how can I start off frmSecond and have that as a Child of frmMain in the MDIContainer. Resolution: You can use code such as:- set ls-frmSecond to cfrmSecond::"New"() set ls-frmSecond::"MdiParent" to self::"MdiParent" invoke ls-frmSecond::"Show"() to do this. You set the parent to the parent of the current form which in this case is frmFirst. Old KB# 3882

Problem: The method to create a global temporary table under SQL Server. Resolution: With SQL Server, a global temporary table needs to be prefixed with ## . This statement will create a global temporary table ##tmptable            EXEC SQL Create table ##tmptable (col1 char(10) , col2 varchar(30))            END-EXEC Old KB# 3876

Problem: Trouble sorting a very large file sequential. For example, In the xfh-default: [XFH-DEFAULT] FILEMAXSIZE=8 This file is non-fileshare and is defined as a line sequential.  The sort always abends at the same record number no matter how much free space is available. Is it necessary to specify any sortwrk parms or does sortwrk take the xfh-default? Are there any limits to the number of input records or sizes when it comes to sort?    Resolution: 1)  gigs free doesn't mean its good free space - First  check a defrag analysis and defrag if needed; 2)  check where temp and tmp are pointing to and make sure this area is not Restricted to a  certain size (e.g. its pointing to c:  and all the free space is on d:); 3)  Rule of thumb has always been that the temporary space required to sort a file is 2.5 times the size of the file.  So if the file is 25 GB

Problem: In the .Net DataGridView control how can you clear all elements in the Grid ? The datagrid view allows you to display a grid show many items of Information. In COBOL how can you clear out all items from the grid. Resolution: The "Items" property of the Grid Control contains a collection of the rows in the grid. You can use:-            invoke dataGridView1::"Rows"::"Clear" to empty out the grid control. Old KB# 3893

Problem: The easiest is to use a BITMAP as a background, having previously used the MS Api SetBkMode with the TRANSPARENT option... see MF KB 21852 http://supportline.microfocus.com/mf_kb_display.asp?kbnumber=21852... Another way is to use the Microsoft API Rectangle as done in the demo attached to this KB Resolution: The easiest is to use a BITMAP as a background, having previously use the MS Api SetBkMode with the TRANSPARENT option... see MF KB 21852 http://supportline.microfocus.com/mf_kb_display.asp?kbnumber=21852... Another way is to use the Microsoft API Rectangle as done in the demo attached to this KB http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/fillshap_6kth.asp Rectangle The Rectangle function draws a rectangle. The rectangle is outlined by using the current pen and filled by using the current brush. BOOL Rectangle(   HDC hdc,         // handle to DC

Problem: Running a Cobol application on a Windows 2000 machine fails with an error that says it was not able to find SHELL.DLL Resolution: Make sure to apply Service Pack 4 (SP4) on Windows 2000. Prior to SP4, SHELL.DLL was placed in c:\\winnt\\system32\\dllcache, and it is not in the PATH environment variable. This DLL on the other hand is in c:\\winnt\\system32 with SP4, which is also in the system path. Old KB# 3840

Problem: When running a COBOL application under a local installation of Net Express Application Server you might get a Semaphore error and the application fails. Resolution: When running a COBOL application under a local installation of Application Server and the Application Server license database is also local, make sure that the ASLMFNET environment variable isn't set. This environment variable isn't required when running against a local database, only when running against a remote license database. Old KB# 3890

Problem: This oocurs when trying to do a call 'cbl_alloc_mem' The error returns - 173 module not found 'cbl_allo' The message on the 173 error displayed a  truncated name such as  cbl_allo Resolution: This error was encountered in a program that had a mixture of mainframe and pc coding and a  mainframe dialect was being used. If this occurs use the NOMAPNAME directive and this will stop the truncation of called program Old KB# 3906

Problem: Load error : file 'EXTSM'                                                        error code: 173, pc=0, call=1, seg=0 173     Called program file not found in drive/directory This error is due to the EXTSM object file not being linked to the executable. Resolution: To overcome this problem you need to link EXTSM.OBJ to the EXE.  This can be done  through the BUILD SETTINGS of the IDE in NetExpress or include it in CBLLINK on the command line. Specifying EXTSM.OBJ in this way, the executable should work correctly within and outside of the IDE. Attached is a small demo which might help the customer. Old KB# 390

Problem: User wants to accept parameters from the command-line Resolution: Note: The complete example is attached and available under the "Related" tab. INTRODUCTION ============ This example illustrates how you can acquire parameters coded at the command prompt by using the "COMMAND-LINE" function-name.                C:\\FOLDERNAME>CLPARMS.EXE MONTH-END<Enter> At the "C:\\FOLDERNAME>" prompt, the "CLPARMS>EXE" program name has been typed followed by the "MONTH-END" parameter. The "COMMAND-LINE" function-name can be used as the second operand of an accept statement to collect whatever has been typed following the program name at the command prompt.                 accept parameterValue from COMMAND-LINE The firs

Problem: Team Server/ Team System is a Microsoft tool that provides much wider services than just Source Resolution: We provide some support for the Source Control part of Team Server. In .NET we provide support for it in Studio 5. In Net Express 4.0 and Mainframe express 3.0 we provide support for what is called Microsoft Source Control Common Interface (MSSCCI).  This is sort of a standard that provides access to different Source Control systems.  Currently the only systems that we have validated MSSCCI with (for both, un-managed Net Express and MFE) are PVCS and SourceSafe. Currently there is a beta MSSCCI provider for VSTS SCCS but we haven't validated this yet. Please contact technical support for more up-to-date information. Old KB# 3889

Problem: When using the .Net Framework email classes in the System.Net.Mail namespace how can one attach a file to an email? Resolution: Use the System.Net.Mail.Attachment class to add a file attachment to an email. Some example code for this is:-        $set sourceformat"variable"        program-id. Program1 as "SMTP.Program1".        environment division.        configuration section.        repository.             class cMailMessage      as "System.Net.Mail.MailMessage"             class cMailAddress      as "System.Net.Mail.MailAddress"    &

Problem: Project is on a shared network drive.  When run, gets runtime error: System.TypeInitializationException was unhandled Resolution: Need to change the Permission Set for LocalIntranet_Zone code group: Open the .NET Framework Config Wizard: Control Panel > Admin Tools > Microsoft .NET Framework 2.0 Configuration On the Configuration Wizard, go to: My Computer > Runtime Security Policy > Machine > Code Groups > All_Code > LocalIntranet_Zone Right click on LocalIntranet_Zone and go to Properties On the Permission Set tab click the dropdown box and select FullTrust Click OK Old KB# 3854

Problem: How to convert to UTF-8 format in Cobol? Resolution: This documented in a Microsoft SQL article (Q232580):- Translate to and from UCS-2 or UTF-8 as appropriate within the application. Sample code for this type of conversion is located at the Unicode Consortium's site: <http://www.unicode.org/Public/PROGRAMS/CVTUTF> A high-level description of the algorithm to convert UCS-2 to UTF-8 can be found in the Internet Request For Comments document RFC2279. On Windows NT or Windows 2000, you may use the Win32 functions MultiByteToWideChar and WideCharToMultiByte to convert UTF-8 to and from UCS-2 by passing the constant CP_UTF8 (65001) as the first parameter to the functions. If you can live with a Win32 only solution the api calls will give you the easiest solution. Old KB# 3852