Rocket® COBOL

Problem: When you have a COBOL array defined in a COBOL class and expose all the array items as properties like below: class-id squarebrackets.Class1. working-storage section. 01 cob-array property all.    05 my-occurs occurs 3 times.       10 my-field pic x.       end class. And you reference the array item in your managed COBOL program using square brackets and provide a index number like below: "type Class1::my-field" if the property is a static property. "myobject::my-field" if the property is an instance property. You will get the COBCH1722 or COBCH1723 compile error when building the application. Resolution: The [] syntax can be used in two situations: 1) For indexing an array (with zero based indexes) 2) For passing parameters to an indexer, defined on the type of the item.  e.g. the indexer for the List type in .NET (System.Collections.Generic.List) expects an int parameter

i had this Problem that i don't anderstand at this time.i use datepicker in many programs and never had this Problem.In this example and program i use datepicker. First time calling this Programm there is no Problem, may be the second time or third time or fourth time.I have search many hours on this Errors and have integrated a simple solution.The datepicker program is generated with Dialog System.On the Entry ProgramID & "OnDestroyed" USING anEvent, i can see that after calling the program more times, the object reference of aDictionary has no value.To solve this Problem, i have add in the Entry "C" & ProgramID USING EntryPoint-Data a new line at beginning: set 1stTimeThru to true and now i can run the program a many times without Problem.Who anderstand this Problem and had a better solution? i have join filesThanks for help!

Is here anybody to share Information how to learn managed Cobol or creating professional Windows/Screens with Visual Studio?Where can i find documentation?Can you share book titel for this learning?Thanks for answer!

I am tying to run the vutil - rebuild  with k K0, k1 , k2.Essentially I am losing records. One of the links in community center says we need to write Cobol program.  Would be really helpful if any of teh members can share a sample file or utility that helps rebuild this.This program would have the form:   Open input Original-File  Open output Master-File  Start Original-File at Low Values  Read Original-File Next Record* Set Declaratives so that error 98's are trapped , and* the response is to increment the current key by 1 in the* least significant digit, and the start is re-tried.* Code your Start with an Invalid Key phrase which does* the same thing.  Write Master-File. the runtime configuration option, "ERRORS-OK" will need to be set to 1 in order to open the corrupt file.

Hello,I would like to create some bar/pie charts from the existing data.I've been searching and found no topic with this subject. Thank you for your tips.Note: I am using Visual Cobol / Visual Studio.ThanksAlberto Ferraz

I have a form and open a second form2 I want to check if form2 is already open found this statement in C # but could not translate to Cobol "if (Application.OpenForms.OfType <Form2> () .Count ()> 0)" Eu tenho um form e abrir um segundo form2 quero verificar se o form2 já esta aberto encontrei essa instrução em c# mas não consegui traduzir para o Cobol "if (Application.OpenForms.OfType<Form2>().Count() > 0)"Tanks

Has somebody experience in checking an entered adress with google or another possibility.I use NE5.1.Thanks in advane for the help.Georg 

only release mode       

Hello,I believe the answer is no but want to verify -Can programs compiled using v12.15 be run in Windows 7?

Hi,I'm trying for the first time setting the configuration variable TV_EDITLABELS to 1 to allow the users to edit labels on tree views.In my program, when I click on a tree view label, I get the expected MSG_TV_BEGINEDITLABEL message, but after I edit the contents of the label and hit Enter, I don't get the expected MSG_TV_ENDEDITLABEL message, but the program crashes with a "Memory access violation" system error message instead.Any ideas of how could I fix this?Thanks.#treeview

One week after Installation and tests with programs in reference, i am not able to load the Project, the license is not valid.is the Trial only valid for 1 week or 1 year?What can i do? Reinstalling every week on a new virtual machine to make tests?

HiI'm currently using  MicroFocus VEC 5.0 in Windows 10. I've developed quite a large suite of native COBOL programs using OpenESQL to update a local installation of MS SQL server.My question has 2 parts:1) To switch to MySQL will I only need to change my connection string to access a 32 bit ODBC driver for MySQL instead of SQL server? I believe the SQL syntax is pretty standard so I hope my Insert, Delete and Update logic will not be affected.1)What strategy and technology would be required to either directly update a Web based MySQL database or if that's not possible what would be another approach to upload the MySQL data in real time.I'd like to develop a small web based application to expose this MySQL data and I don't want to use Java or COBOL.ThanksElliot

How must we proceed to install Visual cobol 5.0 trial?- Windows 10 x64 Version 1909 with all updates- Visual Studio 2019 preview- vcvs2019_50.exe first, then vsvs2019_pu02_242792.exeWhen wanting to install vcbt_50.exe we become following message, 0x81f40001 Micro Focus Visual COBOL for Visual Studio 2019 5.0 must be uninstalled before continuing. Is this correct to deinstall VC 5.0How must we proceed to install the vc_build_tools_dockerfiles_5.0_windows.zip?By compiling i missed the btrieve object files used in Netexpress5.x (_btrv.obj) What file must be used in VC5.0?Many Warnings comes by using microfocus dialog systems copy files as dslang.cpy, ds_call.cpy, pan2link.cpy, userctrl.cpyC:\\adm\\copy\\dslang.cpy (641,19-21) : warning COBCH1125 : Punctuation character not followed by a space.  Assume space.C:\\adm\\copy\\ds-call.cpy (45,60-66) : warning COBCH1168 : COMP-5 redefinition.C:\\adm\\copy\\pan2link.cpy (708,56-62) : warning COBCH1168 : COMP-5 redefinition.a new direct

i had on 2 Dialog System generated cpy-files with flag "Data block ANSI constants" set, and i don't find the reason of this. There are more than 100 Errors.i have remove this flag and the Errors are solved!I want only to share my experience by testing my big Project with over 500 cbl and 170 gs, 580 copy files. 

What is a "docker Server"?Is a "docker Server" avalaible under Windows and Suse Linux?What is the requests on this Server for installing visual Cobol Docker files?What is the Advantage for this method?Thanks for help!I am not alone to have this question, we Need more informations or a webinar for this!!! 

Compiling a program with visual Cobol 5.0, i become the warning in the subject.What is missing in Special names?Who can help?Thanks  

Hi,We are currently investigating the performance differences between Vision files and a SQL database.  We wrote a small program to do writes, key reads, read next and re-writes.   Testing with 40000 records, the vision file system gets all this done in 4.5 seconds.  The same test on a SQL database takes 4 minutes and 44 seconds.  This is a major drop in performance.   I am attaching the program we used to see if anyone can help us solve the issue with performance.  We a not a database shop, so our knowledge of the database setup is not great.   Any help we can get would be appreciated.  We have to have to make a decision on adding a SQL solution to our product line by the end of the year.Thanks.  

DevExpress C# sample code:  [Association]public XPCollection<Order> Orders {get { return GetCollection<Order>(nameof(Orders)); }}I'm trying to get back a collection of "Order" objects byinvoking the GetCollection method. The Visual COBOL editor shows this syntax for method:XPBaseObject::GetCollection(propertyName AS string) RETURNING type DevExpress.Xpo.XPCollection[type T].This is what I've coded so far:property-id trans_items type XPCollection[type WN_160_UnitOfWork.trans_item] publicattribute Association.getter.set property-value to GetCollection("trans_items")end property.The editor tells me I can't convert type DevExpress.Xpo.XPCollection to what I've defined in the property-id statement.

For security, want to retrieve files from a directory by owner ID (%username%)

I have a program that copies a file from HP UX server to local Windows PC using C$COPY.This works in thin client GUI, but how do I copy a file from the server in DOS mode (see picture)?C$COPY does not work, so I tried calling a batch script with cmd.exe using C$SYSTEM with and without @[DISPLAY] but nothing is working. The compiler could not even find cmd.exe. 

Found this strange outcome in the following scenario. After many years of program exporting the "30000" result (many different version of the runtime) , suddenly at one site, it started exporting the correct "3000" result. I know how to fix it but why the inconsistent behavior?        01  PD-RECORD.               05 PD-DOSAGEX.                  07 PD-DOSAGE           PIC S9(5)V99 COMP-3 VALUE 30.00.          01  XTRACT-DETAILS.            03 XD-SOURCE                 PIC X(8).            03                    &nbs

Hi AllI obtained through an email some months ago from the micro focus site a PE download link.I recently, when obtained hardware strong enough to run VS2017, downloaded the package files and install themBut, it did not self activate as I was expectingmy registration and email received at 2019-02-04, 4th Feb 2019

I need to display 3 controls on the same line, without any gaps between them:   label with proportional font   push-button   label with proportional fontI want to do 3 consecutive displays and not have to use WIN$TEXTSIZE to compute control sizes.  (That's too slow over the internet, when you are doing this multiple times)The text interface has the cursor concept and back-to-back strings display right after each other.  Even in thin client.  But display a label and the cursor does not update.   I have a sample program I put into labelposn.zip and attached (source and object - version 10.2.1) which illustrates cursor positioning and display of controls.  Basically, it does not work.

Hi,Has anyone else experienced a performance issue when using MSSQL?   We are evaluating the Acu4GL product for MSSQL and we wrote a simple program that will write and read records using either Vision files or a MSSQL database.  When doing a 40,000 record test, where the records are written to the filesystem, then read and then re-written; the total time to do these operations using the Vision file system is 4.41 seconds, doing the same operations to the MSQL database took 4 minutes and 44.35 seconds.   I have tried using a few of the optimization suggestions in other posts, but the improvement is minimal.  I have attached a copy of the source we used for the test Any help would be appreciated.

The company I'm working at wants to apply multitasking for 3 programs.i.e.1. menu calls program A,2. minimize program A, go back to menu and call program B3. minimize program B, go back to menu and call program C4. switch to any 3 opened programs at willI found out from the guides that multithreading is the best solution for this. So, I tried this in the main menu, so that every called program has its own thread: CALL THREAD PROG-WPATH HANDLE THREAD-1 USING PROG-ID, PROG-PARAMETER EXCEPTION STOP THREAD THREAD-1  And in the called program, I tried this: DISPLAY INDEPENDENT WINDOW LINES 21 SIZE 112 CELL SIZE = ENTRY-FIELD FONT SEPARATE TITLE-BAR MODELESS NO SCROLL NO WRAP AUTO-MINIMIZE, TITLE S-WINDOW-TITLE BIND TO THREAD, HANDLE S-WINDOW. DISPLAY TOOL-BAR, LINES 2.2 BACKGROUND-LOW HANDLE S-TOOLBAR. DISPLAY FRAME AT 0102 LINES 20.7 CELL SIZE 110 RAISED. I also changed STOP RUN to STOP THREAD. As you can see in Capture.png, the thread is