Rocket® COBOL

[Migrated content. Thread originally posted on 29 August 2011]Hi All,I know that using IBM DB2 we can create bind file during compiling program. I want to know that whether we can do same for oracle. If yes, Can you point me to documentation.I am accessing Oracle via ODBC connection.Thanks Cheeta

[Migrated content. Thread originally posted on 16 September 2011]Hi,I've created a website using Visual Cobol and it works very well.However I need more control over the web browser page itself.Can any one point me to any code that will show me how to :-a) "Close" a browser page automatically, after performing some COBOL code.b) how to disable the browser "back/forward" buttons.I'm happy to try and convert VB or C# code into COBOL code, just need pointing in the right direction.Many thanksNeil.

[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 27 September 2011]We have made a COM wrapper around an existing COBOL program using the Interface Mapping Toolkit. In the existing COBOL program we have used several entrypoints with parameters that are defined in the linkage section. Registering and using it by making an instance of that object in VB6 is possible. Even intellisense works fine. Much of it does work, but when we we call one function a 100000 times (for that function has 100000 records) we get an Out of memory error followed by a MFCLBINP Error 601. We have tried the several COM options in the deploy option: Apartment, Both, Free and Neutral.Does someone have any idea what possibly might causes this problem?Here is an extraction of the cobol program that we use:Linkage section.01 asPar0 pic x(4096).01 filler redefines asPar0. 03 asPar0-data pic x(4095). 03 asPar0-ind pic 9(01).01 asPar1 pic x(4096).01 filler redefines asPar1. 03 asPar1-data pic x(4095). 03 asPar1-i

[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 September 2011] Hello alli am using server express 5.1.4.0 on HP-UX 11.31.a cobol program contain this declaration:file-control. select fdate assign to disk organization indexed access mode dynamic record key is fdate-key lock mode automatic with lock on record file status is fs2.procedure division. open output fdate.two users user1 and user2 in the same group users.when user1 launch the program FDATE is owned by user1$ ll FDATE*-rw-r--r-- 1 user1 users 0 Sep 23 17:26 FDATE-rw-r--r-- 1 user1 users 3072 Sep 23 17:26 FDATE.idx when user2 launch the program it still owned by user1$ ll FDATE*-rw-r--r-- 1 user1 users 0 Sep 23 17:26 FDATE-rw-r--r-- 1 user1 users 3072 Sep 23 17:26 FDATE.idxthe file is not removed and will have always the owner user1 why?some one know an option to make the launcher of the program the owner of the file.thank for your help.

[Migrated content. Thread originally posted on 16 September 2011]I have a Net Express program that writes values to a spreadsheet and then reads a particular cell in the spreadsheet that contains the results of a formula. Occasionally the formula will have a divide by zero error because of some value or some other issue where the data may be bad. When this happens the program locks up or crashes, in either event it is a problem. Is there a way to identify this type of issue and not have the program crash? The code for reading the cell is as follows.invoke ExcelObject "getCells" using by value 23by value 1 returning Cell.invoke Cell "getValue" returning Cell-value.invoke Cell "finalize" returning Cell.inspect Cell-value replacing all x"00" by " ".move Cell-value to d-Ret-Value.NormanG

[Migrated content. Thread originally posted on 12 September 2011]Hi,I have installed the trial version R4 to test the upgrade from NetExpress to Visual Cobol.When the program is startet via .bat-job, produces each open-command a file status 9/181 (open input and open output).Has anyone an idea?Georg

[Migrated content. Thread originally posted on 23 September 2011]I have fields defined in a listbox as zzz,zzz,zz9.99-, but they show up as blank when their value is zero. Users would prefer seeing the zeroes. Is there any way to do this? There are also pic x fields in the listbox.

[Migrated content. Thread originally posted on 23 September 2011]Can I create a DLL with NetExpress 4.0 that can be registered, that can be added as a reference in a Visual Basic 6.0 project file? And if so, how can I do this?

[Migrated content. Thread originally posted on 19 September 2011]COBOL has one of the most extensive type systems of any programming language. Other languages only support a subset of the types COBOL has to offer, which has made it difficult to access data in existing COBOL applications, without code changes or writing wrapper classes.SmartLinkage is a feature that was added in Visual COBOL R4 as a “Technology Preview”, to offer an instant solution.This makes COBOL linkage data access easy from other managed languages, such as C#, Java, VB, COBOL. We’d like your feedback to help us define the way forward. What would you like to see in terms of usability and functionality?SmartLinkage - what does it do? Prior to R4, if you wanted to call a COBOL program from another language, you had to create wrapper functions to convert the COBOL data items to managed types. SmartLinkage does that for you, so you can access COBOL linkage data from other managed languages transparently.– No hand-writte

[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 26 August 2011]Hello,I've found a similar problem in the thread Visual COBOL R3 Development Hub - Project Path, and I think I am doing all certainly in the right way.I can access to the Unix server without problems using the Remote System perspective, but I am not able to create a remote project.Remote machine's name is "aixlab0102". If I use \\\\aixlab0102\\MNG\\DESA\\FUENTES\\EQBASE\\visual_cobol (local path) and /MNG/DESA/FUENTES/EQBASE/visual_cobol (remote path), with a project named "visual_cobol" or any other thing, the Remote Project template says "The remote location does not match the directory on the local path". I tried to use a unit mapped to \\\\aixlab0102, but with the same result.Any help, please?NOTE: We are using NFS, not Samba. Our provider told us that it works the same way.

Article Description  Micro Focus has long used environment variables in their products to define execution requirements, locate modules and enable runtime behavior. With the release of VisualCOBOL and a fully managed .NET environment though how does one enable the comparable functionality? .NET provides the answer with the “System.Environment” class. The purpose of this article is to provide the reader with an example of how to read and set environment variables from within a managed COBOL environment. We will utilize a WinForm to provide our user interaction. The form has already been created utilizing standard labels, textboxes and a command button. The user can review the Visual COBOL documentation for an explanation of how to create the WinForm.   Let’s start by reviewing the System.Environment class within .NET. System.Environment The System.Environment class in .NET is used to retrieve information such as command-line arguments, the exit code, environment variable sett

[Migrated content. Thread originally posted on 16 September 2011]Hi,I'm migrating programs precompiled with Procob to OpenESQL and there's a problem on "VAR ... IS... " statements when they are put in Working Storage section. OpenESQL ends with error "ES0114 Statement only allowed in the PROCEDURE DIVISION." whereas Procob compiles without any error.Is there a precomp option that could avoid this? (the VAR ... IS statements are in copy files used by many, many programs, so I can't change it very simply).Regards,

[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 13 September 2011]With all the different variations of the COBOLs and "Express" products. Is there a migration path that things are going away from Net Express and going into Visual COBOL or some other product?NormanG

[Migrated content. Thread originally posted on 02 September 2011]Hi,for computing, I've noticed that calling a subprogram was a lot faster than invoking an object method.Each time, the exec part is : move 10 to valRetour. multiply 100 by valRetour.For 30 millions of iteration (just the invoke, not the creation of the object which is already existant), I obtain :7 seconds using a subprogram, and about 170 seconds with the object using.Is this difference due to compiling options? I think mechanism to locate a method or a subprogram block is the same, isn't it? I don't see why there's a so huge difference.Regards,TahitiClic

[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 13 September 2011]How to create web services, J2EE services and J2SE services with Visual Cobol for Eclipse ?

[Migrated content. Thread originally posted on 07 September 2011]Is it possible to make a DLL in NetExpress 4.0 that can be used in a Windows 7 64-bits environment?What must I do to achieve this?We use the Microfocus File Handler...

[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 07 September 2011]hi all,are you aware of a way to re-direct a cobol program DISPLAY statements output into a flat file instead of them going into the application output screen?thanks in advanceJuan Antonio

[Migrated content. Thread originally posted on 02 September 2011]I am doing a prof of concept for using stored procedures for my account. I create a cursor and call a stored procedure that get the top 25 rows from a table.I then open the cursor and then do a fetch. I get a SQL error 000000001. Our error checking routine corrects the sql error. I can see that the first row is returned in my working storage fields.I then try to insert into another table using embedded SQl in my cobol program and when I do the insert I get an error returned 000000100.No knowing that this is a not found error I am not sure how I could be getting this error returned from an insert.I will provide some code to show what I am doing.My stored procedureSET QUOTED_IDENTIFIER ON GOSET ANSI_NULLS ON GOALTER PROCEDURE dbo.spDAL_TESTPID_SEL_OR_HEADER @COMPANY CHAR(2), @DC_ID CHAR(4) ASBEGIN SELECT TOP 5 DC_ID, SO_ID, CUST_ORDER_ID, CUST_SHIP_TO_ID, CUST_SHIP_TO_SUFF FROM CSI.OR_HEADER WHERE (COMPA

Data Tools AddPack for Visual COBOL   Downloading the AddPack The Visual COBOL Data Tools is available from the SupportLine website and is listed under Visual COBOL AddPacks in the Product Updates section.   What are the Data Tools? The Visual COBOL Data Tools are for creating and editing Micro Focus format data files used to develop or maintain an application. The Data Tools available are: Data File Editor Data File Convert Layout Editor   The Visual COBOL Data Tools is an AddPack to the Visual COBOL development products and it requires one of the following products to be installed to enable installation of the AddPack. Visual COBOL for Visual Studio (R3 or R4) Visual COBOL for Eclipse on Windows (R3 or R4) On installation additional menu items are created under “Micro Focus Visual COBOL 2010” Data Tools Start Menu location The menus provide invocation of the Micro Focus Data Tools IDE. The IDE uses components of the installed Visual COBOL product and requires a Vi