Rocket® COBOL

[Migrated content. Thread originally posted on 25 November 2010]Does anyone know of a way (active-x, etc) of displaying expanding/collapsing columns on the screen in a way similar to Excel? For example I want a chart of accounts displayed with the control accounts and 12 months of balances on each row, then if you expand, show each sub-account with 12 months of balances related to the parent control account.

[Migrated content. Thread originally posted on 18 October 2010]I was reading around in the forum and found some mention of Masked Entry Fields (Microsoft ActiveX component that is on the bench install dvd??) but I can't find this on the install disks we have.I have attempted to use the Additional Properties and/or the Format Picture. I have found various success in displaying the information as I wanted but in the end when a user goes back to edit what was in the field it is strange.For an example think of Social Security Numbers Entry Field:1. Value is PIC 9(09)2. Format Picture is 999B99B99993. Additional Properties is "blank when zeros"Anyone else have success doing this type of display one way and save another without using Before and After procedures to manipulate the data by hand?Thanks

[Migrated content. Thread originally posted on 22 June 2010]Hello,I have a paged list-box on a small amount of data (200 or so records). We use the paged version to allow our users the ability to type in the code they're looking for and narrow down the list.The problem I am having is after the first letter is typed (the event fires and the list is moved to that letter), no other letters typed fire an event. I have logging and can see the event being fired on the first letter, but nothing else gets fired.Is there something I am missing? My list box is declared like this: 03 list-1, list-box using list-data, paged, 3-d NOTIFY-DBLCLICK line 3, col 1, size 40, lines page-size, upper, data-columns = ( 1, 7) display-columns = ( 1, 9).Thanks.

[Migrated content. Thread originally posted on 16 November 2010]Does anyone know of any tools/utilities that can be used to determine how much bandwidth an Acucobol application uses when connected to the a user's PC via acuthin? I have a potential customer who needs this information to specify the VPN link to our site. Thanks

[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 27 August 2010]I define the MY-DATE as below in my xfd file, and I create the table in SSE2008 $XFD USE GROUP, DATE=YYYYMMDD05 MY-DATE.10 MY-YYYY PIC 9(4).10 MY-MM PIC 9(2).10 MY-DD PIC 9(2). and I give it value "2010-08-27"I would like to see them stored in SSE2008 as"2010-08-27" or say I would like to create this field as "Date" rather than "Datetime". But actually I got this value "2010-04-26 00:00:00.000" How could I solve this issue? Any ideas? I guess I should use some special parameter in this line, but I didn't see any hint on acu811 hepl document.$XFD USE GROUP, DATE=YYYYMMDD Thanks.

[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 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 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 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 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 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 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 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 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 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 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 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.