Rocket® COBOL

[Migrated content. Thread originally posted on 10 November 2010]I hope i will find somebody that is kind enought to translate in cobol that codeThank you!En VBS l'utilisation de la fonction Create_Object s'impose : Dim oSkype 'As Skype 'L'objet public Sypeinit_Skype'Appel par exemple de la fen?tre profil de l'utilisateur connect? sur Skype :oSkype.Client.OpenDialog ("PROFILE")------------------------------------'' Init_Skype :' Fonction d'initialisation Skype permet de lancer le client skype' si celui-ci ne l'est pas et effectue la "connection" du projet ? l'API Skype.'--------------------------------------------------'Sub init_Skype() Set oSkype = WScript.CreateObject("Skype4COM.Skype",") If Not oSkype.Client.IsRunning Then oSkype.Client.Start End If While Not oSkype.Client.IsRunning DoEvents 'Attente d?marrage client Skype WendEnd SubEn VBS (code simplifi? en con

[Migrated content. Thread originally posted on 06 August 2010]Hello,I'm looking for a Extend 8.x customer for an reliable, up-to-date, scheduling product that can replace his own schedule/calender that he wrote using a grid control.We looked at MindFusion scheduling in .NET, functionalities look very nice, but the client prefers an ActiveX control as they have extensive knowledge working with ActiveX controls.Does anyone have experience with a good external scheduling/calender that is "easy" to incorporate in Cobol?Best regards,Pete

[Migrated content. Thread originally posted on 10 June 2010]Hi, I'm experiencing a very strange issue. Background:Windows 2003 Server, MSSQL Server 2005, XODBC 8.1.0, AIX 5.3Issue/Error:OLE DB provider "MSDASQL" for linked server "(null)" returned message "[TOD][ODBC][GENESIS](pos: 133 '...A_SELECT='Y'^Y'') - syntax error". Currently, I'm only running 2 SQL statements. If I run statement 'A' first, then run 'B', 'B' will fail with this error. If I run 'B' first, it runs fine, and 'A' will run fine.If after 'B' fails, I wait for a couple of minutes, 'B' will run fine (by itself). I'm running these from SQL Enterprise Manager. The two Selects are shown below in the the order where the second one always gets the error message:SELECT a.* from OPENROWSET('MSDASQL', 'DSN=BSFUNIXk','select comnum, comnum_sub, comheading, comheading_subfrom ROOT.comheadfl

[Migrated content. Thread originally posted on 21 September 2010]We are ISV, and we have reported an incident for support. This is the incident description,is there any company which has similar issue? Our application is web based "cgi" program.Now we use vision file system and acuCOBOL8.11.We try to use acu4GL and MSSQL 2008R2 Express to replace the vision file system.We find the "Open" file really expensive in time-consuming.We use "SQL SERVER Profiler" to trace the "OPEN" operation.We see two lines is the major time-consuming sections. please see the attachments "screenshot1" and "screenshot2".The first entry(screenshot1) we solved by adding missing procedure "sp_AcuInit".But the second entry(screenshot2), we could NOT understand why it takes that long time(duration time = 529 milliseconds). In the attachments, "openafile.bmp" shows the testing code only does an open operation and printing log file.&quot

[Migrated content. Thread originally posted on 28 July 2010]One of our users is getting an error message telling them to upgrade their browser to microsoft 5.5 or better when they go to print. We are using acuthin 8.0. The user is runing XP. Has anyone seen this error. We had it early on in our development but I can't find the fix or the reason for the error.Thanks

[Migrated content. Thread originally posted on 15 June 2010]Hello everyone,I am testing the sample program from AcuCobol. I have an error while compiling the JavaCallingCobol.java. It complains package com.acucorp.acucobolgt doesn't not exist. What did I do wrong here or where can I locate this file?import java.io.*;import java.util.*;import java.util.logging.*;import com.acucorp.acucobolgt.*; /** * JavaCallingCobol sample Java program * */public class JavaCallingCobol { private static Logger _log; public JavaCallingCobol() { super(); }Thanks,Luan Tran

[Migrated content. Thread originally posted on 03 December 2010]Is there some control, a grid or something else like a grid, that can scroll 1 character at a time instead of snapping to each column in the grid? I have a grid with 2 columns in it and I can't physically display all of the first column on the screen I have so when you use the scroll bar it scrolls over to the next column and you always miss a little bit of data. So is there some setting that will let you scroll smoothly and partway through a column instead of 'snapping' each column to the left edge as you scroll?Maybe a list-box or a Tree-view could accomplish what I am after, anyone have any ideas?

[Migrated content. Thread originally posted on 22 July 2010]We have a couple of screens where we use the Msg-Validate EVENT on an entry field. The screen also has a button that the user can click to 'save' the information.In the validate event we check for valid data (I assume this is what it is for), and if the data is invalid then we give the user a message and do the following to keep the cursor in the field.SET EVENT-ACTION TO EVENT-ACTION-CONTINUE. Now the problem arises under thin client when the network is slightly slower than normal (it appears this is when it happens most anyhow). The user may have entered invalid data but instead of tabbing out of the field, they click on the save button and what seems to happen is the cmd-clicked event fires BEFORE the Msg-Validate EVENT and a mess of problems arise.Has anyone come across this before or have any idea how to circumvent or better handle this situation?

[Migrated content. Thread originally posted on 19 May 2010]Can anyone explain how the "accept from input status" statement works and what is about?I am working on some legacy ACU code, and 2 buttons that are defined pretty much the same generate a "0" in one case and a "1" in the other when Enter is pressed on the button.This button definition generates a "1" when "Enter" is pressed on the button: display push-button, title "&Update", line 20.30, position 49.0, size 11, font ha-small-font, id id-update-button, handle ha-update-button, self-act, termination-value = z-fupdate,This button definition generates a "0" when "Enter" is pressed on the button:display push-button, title "&Stop", line 24.4, position 73.1, font ha-small-font, self-act, termination-value = z-fend.I would like to

[Migrated content. Thread originally posted on 07 April 2010]Is it possible to have a control (like button, check box) in the Grid Cell in AcuCOBOL GT. Please share your ideas if we have any ways to do it.--Mano

[Migrated content. Thread originally posted on 07 February 2010]I am using the wrunnet version 8.10 and in an attempt to make a second call to the same program I am receiving"Attempted to read or write protected memory. This is often an indication that other memory is corrupt."I compiled the acu program using the --netdll:2.0 option and incorporated the generated dll's into the program successfully, running in .NET 3.5 SP1 on Windows 7.I have tried calling the .UnloadProgram and CancelProgram methods on the Cobol virtual machine unsuccessfully.This seems to be an issue with the screen/window components that are being used within the cobol program. Is there something that needs to be done in the cobol program to terminate the call?Also, the cobol gui window never closes after the GOBACK line in the cobol program, so I am assuming that the runtime is still holding resources?thanks for any help...

[Migrated content. Thread originally posted on 06 May 2010]Hello,When I use the next include line EXEC SQL INCLUDE "..\\COP\\E03-COP" END-EXEC.the precompiler gives the next error..\\COP\\E03-COP, line 1: parse error at 01 E03When i look in the asq-file i see the next result *(( PREPROC ACUSQL FILE "..\\COP\\E03-COP" )) *(( PREPROC ACUSQL INCLUDE BEGIN "..\\COP\\E03-COP" )) 01 E03 *(( PREPROC ACUSQL LINE BEGIN 1 ))-REC.The copy-member starts with 01 E03-REC. 03 E03-KEY. 05 E03-KLANTNUMMER PIC 9(0009). 1 9 1Does anybody know a solution for this problem. I have this problem for all copy-members which use E99-etcetera. When I use EA99-etcetera it doesn't ahppen. I'am converting a vision-file environment to a sql-server environment and i don't want to rename all my E99-files to something else because we use this very often in batch-programs, etcetera.T

[Migrated content. Thread originally posted on 23 March 2010]Estoy tratando de averiguar cómo crear un System Tray usando las API de Windows y no puedo entender la lógica en COBOL para saber cómo hacerlo. ¿Puede alguien tal vez me ayude con la conversión de este código en Visual Basic 1. 'user defined type required by Shell_NotifyIcon API call2. Public Type NOTIFYICONDATA3. cbSize As Long4. hwnd As Long5. uId As Long6. uFlags As Long7. uCallBackMessage As Long8. hIcon As Long9. szTip As String * 6410. End Type1. 'constants required by Shell_NotifyIcon API call:2. Public Const NIM_ADD = &H03. Public Const NIM_MODIFY = &H14. Public Const NIM_DELETE = &H25. Public Const NIF_MESSAGE = &H16. Public Const NIF_ICON = &H27. Public Const NIF_TIP = &H48. Public Const WM_MOUSEMOVE = &H2009. Public Const WM_LBUTTONDOWN = &am

[Migrated content. Thread originally posted on 18 January 2010]I have a routine that imports data from tab-delimited text files, or directly from Excel. I display a screen for the operator to enter the directory path and the filename to be loaded. On that screen I offer a "Browse" push-button. If the user clicks that button I execute a paragraph that CALLS "C$OPENSAVEBOX" so the operator can locate the file to be loaded.The "Browse" Button in the screen section looks like this: 05 push-button, line 1.75, col 60.0, LINES 1.25, size 9, title "&Browse", FONT IS small-font, NO-TAB, NO-AUTO-DEFAULT, ID IS spio-dir-browse-pb-fid, EVENT PROCEDURE IS SP-DIR-BROWSE-DATAPATH-LOGIC.The "C$OPENSAVEBOX" is called from the associated EVENT Procedure.SP-DIR-BROWSE-DATAPATH-LOGIC. IF EVENT-TYPE = CMD-GOTO AND EVENT-CONTROL-ID = spio-dir-browse-pb-fid PERFORM LOAD-NAME-WITH-GUI-OPEN-WINDOW SET EVENT-ACTION TO EVENT-ACTION-CON

[Migrated content. Thread originally posted on 04 February 2010]Hello,I try to connect with a database using acu4gl (8.1).Numeric fields in the database can contain NULL or higher values.When my program gives a value of 0 (zero) I get constraint errors.How do I define NULL fields in my XFD-file?Andre,

[Migrated content. Thread originally posted on 22 December 2009]Hi, To create a field in a report I've always the 3 options(collapse, preformatted and keep space).I've tested the three options but still I've two issues:1. When printing a field and even if the field contains no data and the print condition is set to don't print if the field has spaces, it's spaces is still kept in the report, (print condition = xyz not = ' ')2. If the printed field has some data and the rest of the field is empty, the empty spaces is also kept, means that the original spaces is also kept.3. Does the 'Collapse' means that the printed field will be expanded(collapsed) according to the received data or what?Any tips to avoid these two issues?Thanks

[Migrated content. Thread originally posted on 30 July 2009]Hello We have the following code embedded in a cobol program.We want the returned records to be returned sorted in either ascending or descending order depending on the variable ws-sort-flag. We get the following error message when we run it:"a constant expression was encountered in the Order By list, position 1"When we run the identical code in the SQL Managemant Console it works fine.Does anyone have any ideas or different code that might work?Thanks! EXEC SQL DECLARE ConvCode1 CURSOR FOR SELECT CST_RectCode, CST_RectFmma, CST_RectName, CST_RectLoc FROM tbl_Customer WITH (NOLOCK) WHERE CST_IDNUMBER = :WS-Handler-IDNumber ORDER BY C

[Migrated content. Thread originally posted on 15 October 2009]Hi,we have old character based programs that run under Linux and the users use a telnet program to log onto the linux server.Now some users want to log in with the telnet program putty.Putty seems to be very mighty but some functions don't work.I created a new section "putty" in my a_termcap and copied some function keys and display statements.The simple keys F1 - F8 work fine but for example the Alt F5 does not work at all.Has anybody experience with putty ?What TERM variable should I use ?And what keyboard settings in putty ?I would appreciate your help.Thanks in advance.Andreas

[Migrated content. Thread originally posted on 07 August 2009]I am trying to execute a update statement against a MS-Sql server and rollback the transaction. The "Start Transaction" statement failing in the update-para with the message "CAN'T ISSUE SAVE TRANSACTION WHEN THERE IS NO ACTIVE TRANSACTION". Attached is the sample program which is using the routines given with the sql samples.

[Migrated content. Thread originally posted on 20 August 2009]I would like to create a COBOL program that can run in the background like a Deamon does on a UNIX machine. This program will not have any user interaction, it will be used exclusively to manipulate COBOL data files to create XML files. I have researched the runtime options and I am looking at the -b option, am I on the right track here? I would like for the program to start, run in the background, and control be returned to the os. The program will run indefinately.Thanks

[Migrated content. Thread originally posted on 22 October 2009]Folks,Any of you sucessfully using a source code control product with AcuBench?If so, then which oneAny helpful pointers/tipsHere's the deal.THere will be one centralised location for all projectsThe developers will have this duplicated on their own individual machinesWhat happens right now is that they go off manually ensureing that the code they have is the same as the serverThey check a file to ensure no one is currently modifiying that code.Then they do the changes locally before transferring the program (including .wrk, .psf, .evt etc) back to the server and updating the development document to say why.We used to use unix's SCCS on our old product - that worked very well.Thanks,Shaun

[Migrated content. Thread originally posted on 15 September 2009]It is nice that acu allows you to use the same control name and ID in a character screen as a graphical. However, when we do tab screens we try to emulate those tabs with physical character screens since there is no character tab control.The issue we get is that we can no longer use the same control name without getting generate errors. Changing all the control names forces additional coding that provides no real additional benefit.We have toyed with using frames and using lots of visible code but again we are left with lots of code that is useless. If we could use the same control name on the character screens we would not need any other additional code except that to run the additional character screens.As an example if I have 2 tabs for a customer program of address and taxes. I would have 2 character screens, one to handle address and the other for taxes. Since my graphical was 1 screen, the 2nd character screen

[Migrated content. Thread originally posted on 17 September 2009]I have this problem. This file (in attachment) is broken. Anyone have any idea?.

[Migrated content. Thread originally posted on 16 November 2009]I have created a C# assembly in order to test the reception of events from Cobol program. I have created the Cobol program with the "create" for assembly. I have created the DLL to receipt events with "NETDEFGEN" and "ILAMS.EXE" that I have found in the C:\\WINDOWS\\Microsoft.NET\\Framework\\v2.0.50727 folder.If the .NET assembly is compiled in .NET 3.5 version, my cobol program don't receipt events, the "event-type" always return 538976288 code. If the .NET assembly is compiled in .NET 2.0 version, my cobol program work correctly.This means that I must compile my assembly with .NET 2.0? Or exist a version of "ILAMS.EXE" for .NET 3.5?In the 8.0 Acucobol-GT manual I have found: "To execute NETDEFGEN, the samples, ?AcuToNet.dll?, and other items, you must have Microsoft .NET Development Framework Version 2.0. However, with NETDEFGEN, you can process Version 1.1 and

[Migrated content. Thread originally posted on 28 September 2009]Hi All,One of our main achilles heel is the lack of Unicode support in the 4GL product range when reading and writing multi-lingual data on a single English server. This post is to see if anyone has devised a solution to read and write multiple languages using the Acu4GL product range from a single server. It would also be great to hear if you have tried anything even if you decided it was not a functional/possible solution in the end e.g. translation tables, conversion routines etc.Our Environment:-We have multiple call centres globally accessing the same Application and database-These call centres can enter data in varied languages e.g Japanese, Hebrew, German, French, English etc-A single call centre can also take calls from multiple regions and hence enter multiple languages within the one application interfaceWhat we are trying to achieve:-Maintain the core application as the main processing tool reading/writing to