Rocket® ACUCOBOL®

[Migrated content. Thread originally posted on 08 November 2011]Hi, is there any known issue in setting the RECURSION environment variable to 1 and then calling a program recursively? As "issue" i mean also performance drop and any kind of other drawbacks.My target is to make the program A call the program B that calls an entry point of the program A. Is it a supported flow?Thank you in advance.Luca.

[Migrated content. Thread originally posted on 26 October 2011]Hello,"I would like to be able to put a TextBox/Entry-Field with autocomplete on a form. I thought I would be able to do it by placing the .NET TextBox control on my form, but although I can get the TextBox to appear, and I set the properties to make it autocomplete, it doesn't seem to be working. Has anyone successfully done something like this? I created a .NET DEF file using netdefgen and System.Windows.Forms.dll".This is a text from an old post. I am trying to get this to work aswell but I can't figure out how to fill the forms.XML file which holds the information for the autocomplete function.Can someone help me get this to work.Thanks,Andre,

[Migrated content. Thread originally posted on 01 November 2011]I'm trying to create a report where I list the "operations" in a model. For example:Operation Signature Visibility getTerminationPoint(Framework.DataObjectClasses.NamingAttributeType tpRef, NetworkResourceFulfillment.DataObjectClasses.TerminationPointDataType tp) public I can use the getDWRwiElement to create a link for the "types" being used for the input/ouput parameters (i.e. Framework.DataObjectClasses.NamingAttributeType), but what I would like to be able to do is actually list the actual class structures immediately after the "operation" in the report.How can I do this? Rather urgent please, as my boss is waiting on this report :-)

[Migrated content. Thread originally posted on 01 November 2011]Anyone know how to lock a record so that it cannot be updated? I have tried the FOR UPDATE in the DECLARE statement and that did not work. I used the example in the ACU manual. I also set ARUSQL_ODBC__CURSORS to 0 That did not seem to help either. Ideas?

[Migrated content. Thread originally posted on 01 November 2011]Using the same syntax as the sample in the manual. However when I go to update, I get "The cursor is READ ONLY".Doing this to read the record. EXEC SQL DECLARE COBCUR1 CURSOR FOR SELECT C_FIRST_NAME, C_LAST_NAME, C_CITY FROM CUSTOMER WHERE C_LAST_NAME = KEY-PASSED FOR UPDATE END-EXEC. EXEC SQL OPEN COBCUR1 END-EXEC. EXEC SQL FETCH COBCUR1 INTO :C-FIRST-NAME, :C-LAST-NAME, :C-CITY END-EXECThen after user makes changes, I do the following. EXEC SQL UPDATE CUSTOMER SET C_FIRST_NAME = :C-FIRST-NAME, C_LAST_NAME = :C-LAST-NAME, C_CITY =

[Migrated content. Thread originally posted on 17 July 2009]I know in IE7 you could NOT force the print preview to 100% - it always defaulted to Shrink To Fit. Is this still a problem with IE8? I have a customer who loves the HTML reports were are creating but hates the tedious process of resizing, choosing to print, etc. Is there a way using Extend 8 to get around all this? At the very least, does anyone know a way to force 100% on the print preview using IE8?Thanks :)

[Migrated content. Thread originally posted on 17 October 2011]Hello,Is it possible to regenerate a .psf file that has been deleted? I have the .src .srn .wrk .evt .rpt .mnu .lks files. I am using version 7.2Thanks!

[Migrated content. Thread originally posted on 25 November 2008]Hi,Hopefully this is a simple question.How do you programmatically disable a menu choice? Using Modify doesn't seem to work: "modify MI-XX, enabled = 0" gives me the following error message-Undefined data item: MI-XXTHanks

[Migrated content. Thread originally posted on 12 July 2011]In my programs I am unable to create more than 1 cursor to be used at a time. Is there a way to create a SQL View from within the program? Use the view in a SELECT statment then delete the view from the database when I am finished with it?The view is needed to speed up processing. It will include a SUM(invoice_amt) as SUM_AMT GROUP BY INVOICE_NO. Then I would query the view to get all WHERE SUM_AMT <> 0.Ideas anyone?

[Migrated content. Thread originally posted on 06 May 2011]Will the posts/threads from the old Acucorp Cobol forum be moved here? While this new forum was getting started we still used the old forum to get answers.Thanks

[Migrated content. Thread originally posted on 27 September 2011]How can i read all the contents of e tree view? I have build a tree view control with parent and child items and i want to read all items till i found the one i am searching in my loop procedure.can anyone help?

[Migrated content. Thread originally posted on 08 September 2011]Just curious, is anyone else using Acu Cobol with MS Sql? ThanksWoody

[Migrated content. Thread originally posted on 23 August 2011]From the ACUCOBOL-GT Reference Manual 2.4.11.COPY statements may be nested in other COPY libraries. Any one of the COPY statements in this structure can include the REPLACING phrase. Depending on the scope of each statement, the REPLACING phrases might affect subsidiary COPY statements. For example, if "program-a.cbl" contains a copy/replace as follows: COPY "program-b.cpy" REPLACING ==genericitems== BY ==myitems==. and "program-b.cpy" contains a nested copy/replace statement: COPY "program-c.cpy" REPLACING ==variabledata== BY == specificdata==. The replace performed in "program-b.cpy" by the copy/replace statement in "program-a.cbl" will affect "program-c.cpy." If you do not want the copy/replace statement in "program-a.cbl" to cascade to "program-c.cpy", you must add the following statement to "program-b.cpy", so tha

[Migrated content. Thread originally posted on 31 August 2011]Hi, i developed a library to handle dynamic arrays. Functions written are new, free, append, insert, set, get, sort, search and binary search.I choose the "get" function to examplify the question; this function use a linkage as follows:linkage section01 array   05 array-ptr   usage pointer           | pointer to the head   05 array-el-sz pic 9(09) usage comp-4  | size of each element   05 array-len   pic 9(09) usage comp-4  | current number of elements   05 array-cap   pic 9(09) usage comp-4  | current maximum capacity of the array77 array-val pic x(16384) | variable to return the "array-idx" element of the array77 array-idx pic 9(09) | index to getprocedure division..........entry "array:get" using array, array-val, array-idx | in C it is equal to do array-val = array[array-idx

[Migrated content. Thread originally posted on 01 September 2011]Hello,I am trying to improve performance of one of my programs that is using several visual ActiveX controls, in a thin client environment. I am loading a blank control, and adjusting all of the properties of the control at run time, as AcuBench does not expose all of the control's properties during design time. This is what is slowing down the execution of the program. So, what I'd like to do is load these ActiveX controls once, adjust the appropriate properties, then use a saved external handle/instance of the control to display it if the program is called a second time. Is there a way to accomplish this? Or if not, can anyone explain to me how to get AcuBench to expose all of the properties of the control to me at design time? The control we're using is the CodeJock CommandBars control.Thanks

[Migrated content. Thread originally posted on 02 August 2011]According to Acucobol support the built in encryption in the Acuthin client is very low. It does not get close to meeting the retail industry's PCI DSS standard. Does anyone have an idea how to make the data transmissions between Acuthin client and AcuRCL server SSL encrypted?

[Migrated content. Thread originally posted on 29 April 2011]I see that the old forums have been removed and it now redirect's you here. It's a shame really, there was still tons of useful information there that I and I'm sure everyone else used.Anyway to keep them up and have a link here to them or something?

[Migrated content. Thread originally posted on 29 August 2011]HiWe have a web site created using ASP MVC3 from where we call our Acucobol applications using Interop.AcuGTObjects. This works well on 32-bit systems.We have now installed Visual Studio 2010, ASP MVC3 and Acucobol on a new machine, using Windows 7 64bit. When starting out, we get: Server Error in '/SveaWeb_deploy' Application.Could not load file or assembly 'Interop.AcuGTObjects' or one of its dependencies. An attempt was made to load a program with an incorrect format. Do we have a clash here between 32 and 64 bit?Or have we not registered everything correctly?Anyone doing something similar?Robert

[Migrated content. Thread originally posted on 16 August 2011]Hi...I´m a user of ACUCOBOL and need a help!Is possible identify in Windows 2003, what are the programs are in executing in a time?tks and sorry because my english is dont very good!

[Migrated content. Thread originally posted on 05 May 2011]Has anyone tried to use the new ext 9.0.0 with a .Net dll. i can get it to work if i run the cobol program using the absolute location of the WRUN32.EXE. yes i have put the .dll in the same folder as the wrun32.exeso c:\\acucbl900\\wrun32.exe -c c:\\etc\\cblconfi myprogram.acu will work and the .net dll gets loaded and run when the create command is executed.however, same program, same dll, same runtime will NOT work if i run it as follows.\\\\mypcname\\c$\\acucbl900\\wrun32.exe -c c:\\etc\\cblconfi myprogram.acu the cobol program opens up fine but when i execute the create command for the .net dll i get an error'There was a problem with one of the .NET support libraries.''.NET assemblies cannot be loaded.''COBOL error at .....'

[Migrated content. Thread originally posted on 04 August 2011]Hello, I'm having problems with acuxdbc in network mode. I have installed the acuxdbc driver correctly in the client/server, i start the service acuxdbcs and anything go smooth. I do a acuxdbcs -info servername in the client and got response.The problem is when i try to access the data from excel in the client comp. I get "Connection failed: SQLState: 28000. VISION: No entry for product 'AcuXDBCS' in file "serveradress/installpath/xvision.alc".And my question is, if i have a license for acuxdbc, i need another one for acuxdbcs? or simply i fail installing it? there are different license for each products?Thanks afterwards

[Migrated content. Thread originally posted on 19 July 2011]I am trying to launch some 3rd-party COBOL programs using Thin-Client running on a Linux server. I have been able to get these puppies to run under telnet with no problem. However, when Thin-Client - there is only a momentary flicker and nothing executes. In order for the programs to run, the run mechanism launches the program where its expected resources are located. My approach has been to use execute a shell script to spawn -- runcbl … progname as described below: RUN.WIDGETFILE_PREFIX=.;export FILE_PREFIXCODE_PREFIX=/usr/client/obj_locJ; export CODE_PREFIXCODE_SUFFIX=OBJ;export CODE_SUFFIXFILE_SUFFIX=FIL;export FILE_SUFFIXruncbl -c /etc/cblconfig.widget $1CBLCONFIG.WIDGETCODE-PREFIX /usr/client/obj_locCODE-SUFFIX OBJFILE-SUFFIX FIL#For compatibility with 3rd-party COBOL programs.ERRORS-OK 1V_VERSION 3

[Migrated content. Thread originally posted on 14 July 2011]Hi, i use the C$REDIRECT function in HANDLER-FUNCTION-REPLACE modality. In the handler i want to use the I$IO functions set. In the handler, the OPEN-FUNC goes well and i move the handler of the open file to the HANDLER-FILE-HANDLE linkage item (i also tried without moving it in the linkage).When i perform a READ on the file, my custom handler needs to perform the I$IO READ-FUNC but the HANDLER-FILE-HANDLEpoints to an invalid location, not to the location of the just open file.It follows a sample code:THE I/O OPERATIONS:open input myfilemove "OP" to myfile-keyread myfile key is myfile-keyTHE HANDLER:procedure division using HANDLER-INFO                         HANDLER-FILE-INFO                         HANDLER-STATE-INFO                    &

[Migrated content. Thread originally posted on 13 July 2011]We have a program that uses the C$OPENSAVEBOX libary routine. The file name it returns strips out, or replaces, international characters, like the accented C(ć), and replaces it with an english C, no accent. Unfortunately, this breaks my acucobol program because when I then try to manipulate the file(copy it, delete it, etc.) it can't find it.Has anyone worked around this? Sample file name: Jovanić.docC$OPENSAVEBOX returns: Jovanic.doc

[Migrated content. Thread originally posted on 21 March 2011]Hi fellow extend-ers,Does anyone know how to highlight certain text in an entry field programmatically e.g. search for a specific word in a multiline text box and then highlight the text found and go to the line it is on ? Any sample programs out there.Thanks in advance.Julie