Skip to main content

Rocket® COBOL

Browse all forums dedicated to the Rocket® COBOL product family.

10000+ Discussions
Anonymous
 Rocket® ACUCOBOL®
AcuGTClass - error in .Initialize()

[Migrated content. Thread originally posted on 14 March 2012]Hello!We have for a time used AcuGTClass to call one of our Cobol program from C#. This is working, and is in use at customers place. I have also had it up and running earlier.Since last time, I have reformatted my machine, from Windows Vista 32-bit to Windows 7 64-bit.We have also changed AcuCobol, now we run on version 9.1.0. Earlier I ran on 8.1.3.Creating the class (m_acuCobol = new AcuGTClass();) runs correct. No error, and it reflects the path to the runtime / AcuGt.exe from GENESIS_HOME (I guess).But when executing the initialization (int result = m_acuCobol.Initialize(ref initParamsObject); ) it returns the error code -2147023170.initParamsObject holds the parameters to the start, and is:"-c C:\\temp\\POS\\acuconfPOS.txt -y PosToVc"I have checked that AcuGt.exe is in fact in the folder that is reflected in the class. I have checked that the config file really is in the folder specified in "initParamsObj

122
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
Anonymous
 Rocket® Net Express/Server Express
OpenEsql question - selecting Date element of timestamp column

[Migrated content. Thread originally posted on 15 March 2012]Hi, i want to select just the date element of a timestamp columm. Does anyone knowwhat the common syntax / odbc escape sequence is (if there is any) that would enable me to use a single statementthat would work for both Sqlserver & Oracle without having to resort to the type of statement shown below ? Does anyone know if there is a webpage/document anywhere that lists techniques for making embedded sql more database agnostic ?:- IF SQLSERVER EXEC SQL SELECT CONVERT(CHAR(8),NAMEDATE,112) INTO :H-DATETIME FROM NCHARDATA WHERE NAMEVAL = :H0286-NAME END-EXECELSE EXEC SQL SELECT TO_CHAR(NAMEDATE,'YYYYMMDD') INTO :H-DATETIME FROM NCHARDATA WHERE NAMEVAL = :H0286-NAME END-EXECEND-IFAny advice would be much appreciated, thanks (i'm using Netexpress 5.104.0083)

141
Chris Glazier
Anonymous
 Rocket® Net Express/Server Express
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Net Express/Server Express
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Net Express/Server Express
CGI - Problem

[Migrated content. Thread originally posted on 05 March 2012] Program:000010 IDENTIFICATION DIVISION.000020 PROGRAM-ID. TESTE1.000030000040 ENVIRONMENT DIVISION.000050000060 DATA DIVISION.000070000080 PROCEDURE DIVISION.000090 PARA-1.000100 DISPLAY "Content-Type: text/html ".000110 DISPLAY "".000120 DISPLAY "".000130 DISPLAY "<html><body><h3>Teste Cobol-CGI</h3></body></html>".000140 STOP RUN.This program when called via CGI generates the following error:Erro interno do Servidor!O servidor encontrou um erro interno e não pode completar sua requisição.Mensagem de Erro:Premature end of script headers: TESTE1.EXESe você acredita ter encontrado um problema no servidor, por favor entre em contato com o webmaster.Error 500localhost03/05/12 15:52:51Apache/2.2.21 (Win32) PHP/5.3.9 As I compiled the program:The same program compiled with openCobol does not generate the error.Can anyone help me

2010
Dominique Sacre
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Net Express/Server Express
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
Visual Cobol Memory Issues

[Migrated content. Thread originally posted on 15 March 2012]Hi All,When running my visual cobol project in a live environment noticed the memory allocation just goes up and up and up.So came across :-msdn.microsoft.com/.../xe0c2357.aspxWhich I have turned into the following cobol code:- 01 ls-count1 binary-double. 01 ls-count2 binary-double. 01 ls-boo condition-value value true. set ls-boo to false invoke type "System.GC"::"GetTotalMemory"(ls-boo) returning ls-count1 invoke type "System.GC"::"Collect"() set ls-boo to true invoke type "System.GC"::"GetTotalMemory"(ls-boo) returning ls-count2So my question is "Am I ok to put this into the Closing event of every form in my project"?If any one could pls advise.Many thanksNeil.

153
Dominique Sacre
Chris Glazier
Chris GlazierModerator
 Rocket® Visual COBOL®
Visual COBOL ASP.NET Shopping Cart Demonstration

Attachment: MFShopCartVC.zipAttachment: MFShopCartVCReadme.pdf  Overview: The original application that was used as the model for this demonstration was the ASP.NET Commerce Starter Kit (CSVS) demo from Microsoft. The original version was written in C# and has been rewritten here using the Visual COBOL language. Some of the original Web Forms, images and SQL Server Stored Procedures have been retained or modified for use within this version of the application. This demo provides an inside look at how a relatively simple Internet shopping cart web site can be developed using the features available within the Visual COBOL product. The demo consists of an ASP.NET web application named MFShopCartVC which is a functioning real-world web site. With Visual COBOL and Visual Studio 2010 you can develop and test your Web Applications under an internal File System Web Server which allows your web application to reside in any directory on your hard disk, without any IIS intervention. This d

232
Chris Glazier
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Net Express/Server Express
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
Acuthin timeout on PC's running Windows XP.

[Migrated content. Thread originally posted on 14 February 2012]Hi I have been asked if any one has had an issue with acuthin disconnecting for no apparent reason on windows XP SP3.Senario isUser logged in via Acuthin client/Acuconnect (8.1.0) to a IBM system running AIX 6.1. Users works fine for any number of hours, leaves Acuthin logged in and goes to lunch, comes back and clicks the mouse to start work again on the Acuthin screen and the process just disappears.Have got TC_CHECK_ALIVE_INTERVAL set to 32767 and TC_SERVER_TIMEOUT at 300.Have to kill of the process on the IBM system.I have this problem with about 3 customers sites but have hundreds more who don't have this issue and not all the users at these sites have the problem.I have exhausted all other avenues that i can think of on the PC's themselves.Any suggestions would be gatefully appreciated.Mark ChambersTechnical Consultant.

173
Dominique Sacre
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Net Express/Server Express
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Net Express/Server Express
COBOL, DB2, Stored Procedures and Result-Set-Locator

[Migrated content. Thread originally posted on 06 April 2011] Hi, I am a little new to all this and was hoping someone could point me the right directionI have a MF Cobol program (on AIX) that calls a DB2 (v9.5) SQL Stored Procedure. I am trying to use a result-set-locator to store the results from the call to a Stored Procedure.My problem is that I cannot compile the Cobol program.I get the error:* Micro Focus SQL External Compiler Module for IBM DB2 UDB* Version 4.0.05 (C) copyright 1997-2008 Micro Focus (IP) Ltd. END-EXEC.* 801-S***** ( 0)**** External Compiler Module message** DB0100 SQL4911N The host variable data type is not valid.cob64: error(s) in compilation: tresloc.covThe line it fails on is:EXEC SQL ASSOCIATE RESULT SET LOCATOR (:LOC) WITH PROCEDURE TRESLOCEND-EXEC.:LOC is defined in the working-storage as follows:EXEC SQL BEGIN DECLARE SECTION END-EXEC.01 LOC USAGE IS SQL TYPE IS RESULT-SET-LOCATOR VARYING.EXEC SQL END DECLARE SECTION END-EXEC.Is this just something where

204
Dominique Sacre
Anonymous
 Rocket® Visual COBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Net Express/Server Express
MFASDB has vanished

[Migrated content. Thread originally posted on 06 March 2012]While trying to upgrade Net Express 5.0: - download wrap pack 5 - tried to install wrap pack 5 - install goes on for hours, never completes (Aborted) - download wrap pack 3 - install wrap pack 3 with sucess but on the Control Panel - Add Remove Programs and on Help - About, shows wrap pack 5 installed - removed wrap pack 3 - Net Express does not start anymore - repair Net Express on "Add Remove Programs" - program opens and runs with sucess, but folder msalmf does not exist anymore, apptrack does not run because of folder absence - recreated folder, run apptrack shows no license installed - selected option 3 to install licensehowever apptrack asks me for two items:1 - Enter serial number part of license keythis one have for Net Express 5.02 - Enter license number part of license keythis one i have for Server 5.0Also have revoke and response keys but no license number for Net Express 5.0.What i'm missing here?

154
Dominique Sacre
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
m$free behaviour

[Migrated content. Thread originally posted on 05 March 2012]Hello, i'd like to comprehend the m$free behaviour in runtime >= 9 and in previous runtime versions. In our company we use it intensively and i noticed that when a significant amount of memory is allocated, say 60Mb, (not necessary contiguous, i.e. not to the same pointer), then the m$free doesn't free it when called.Quoting the doc:This memory is returned to the pool of memory available for use by the runtime. On most operating systems, this memory is still associated with the runtime's process, so it cannot be used by any other processesOk, following the doc i would expect the following behaviour (i observed the memory usage with the Windows 7 task manager):1. Allocate a series of data structures --> wrun32 is 60Mb2. deallocate all structures with m$free --> wrun32 is still 60Mb as the memory is usable only from the current process3. Reallocate the same series of data structures --> wrun32 is still 6

146
Dominique Sacre
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
AcuBench LInkage questions

[Migrated content. Thread originally posted on 02 March 2012]We would like to link a 'copy book' to all our linkage sections in our projects that can be dynamic in the fact that we can update the 'copy book' and it would update in all projects. We have tried to use the LINK option on the Linkage screen (right click and link)...it does add the 'copy book' to the project but it is a static copy. If the 'copy book' is updated an the project is pulled back up the changes are not shown. To make the changes appear we have to use the Reload option on the right click menu on the linked file. I did notice in the .lks files the 'copy book' is shown as COPY 'copy book' but the project in bench does not update???Is there anything in AcuBench that will do this function automatically so we do not have to go into each project and reload the file?Any other ideas would be appreciated also.

92
Kim Hendriksen
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
Show more activity

Recent badge winners: Your name could be next!

Explore all badges
Terms & ConditionsAccessibility statement