Rocket® COBOL

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

[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 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 08 June 2009]Hello Has anyone called a SQL Server Stored Procedure that runs a DTS Package from Acucobol? The code in the Stored Proc is as follows: EXEC master..xp_cmdshell 'dtsrun /S SQLFMMA /N DTS_BOHActionsMK /U PDI /P /L \\\\mplsfp01\\cobol\\data-lib\\logfile.txt',no_outputIt runs fine from Query Analyzer, but from the program I get a status code of "-1 General Error"Thanks

[Migrated content. Thread originally posted on 23 April 2009]Hello,We recently converted to IE7 and now the print previews in our programs are virtually unusable. At 100% size the words are too small to read and at 200% size half the print line is off the page. Has anyone else had trouble with IE7?Thanks

[Migrated content. Thread originally posted on 20 March 2009]Hello,I work for a company which uses AcuCobol to call a number of .NET 1.1 DLLs via Interfaces made accessible from the COM. The interfaces work great, but due to the growing age of .NET 1.1 I have started to look at moving these interfaces to .NET 2.0Before I even started rewriting the interfaces, I decided to do some tests to verify that I could make calls to a .NET 2.0 DLL whose interface is exposed to the COM. I wrote a simple interface with one method which simply displays a MessageBox with a greeting. I compiled the DLL, registered it with the COM (using .NET 2.0's regasm), and then used AxDefGen to generate a .def file. I then wrote a simple Cobol program to create the interface and call the method. When I do this, I receive the following error message. "Class is not licensed for use (error 80131107)" Nothing I have done has fixed the problem. Wondering what the issue might be, I wrote the exact same int

[Migrated content. Thread originally posted on 05 March 2009]Hi,Our reports are being generated from querys made to SQL. Is there a way to cancel Print Preview once Acu-Report1-Preview has been executed? Using ver 6.2. Thank you

[Migrated content. Thread originally posted on 01 April 2009]I was wondering if anyone has every used a treeview to display a list of files and has the windows file-type icons pulled for each file type (using api calls) and have them display as the bitmap in the treeview? I think I can get a windows handle to the imagelist for each of the filetypes, but how to 'convert' that to a bitmap-handle is beyond my scope... I was wondering if someone ever attempted something like this or did they just use MS paint and build a strip of icons and use that?

[Migrated content. Thread originally posted on 24 February 2009]Hi,I am using MAPI.DLL to send an email with no atttachments. This works well on MS Outlook and Outlook express. However, we get a memory access violation when using Groupwise. Groupwise does open, but at that point we get the error and the email does not go through. Can anybody assist, please ?Thanks in advanceMedasha

[Migrated content. Thread originally posted on 30 June 2009]Ever wanted to get a time from a NTP server?This example provided by my colleague Claudio shows how to accomplish this using C$SOCKET. Cudos Claudio!       identification division.       program-id.  getNTP-via-socket.       Environment Division.       Configuration Section.       Special-Names.               Decimal-Point Is Comma.       Input-Output Section.       File-Control.       Data Division.       File Section.       Working-Storage Section.      *           Copy "socket.Def".      *      *these are the values used by the socket routine to establish a      *connection with the lo