Browse all forums dedicated to the Rocket® COBOL product family.
Recently active
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
We display a status bar control that is not defined in the screen section.How can we modify the content of the second panel ?
Hi I'd like to use JSON PARSE instead of UNSTRING to parse the JSON structure shown below. My problem is that the content and exact spelling of the middle lines starting with "161 Waist" and "162 Seat" are not known at compile time, only at run time. Is it possible to define a COBOL data structure that can be used with JSON parse to handle this kind of thing?Thanks { "jsonrpc": "2.0", "message": "MeasureResults", "params": { "ID": "0001", "161 Waist": "25.000", "162 Seat": "37.000", "status": "not OK" } }
Hi,I downloaded the visual cobol personal edition v5 but did not receive the authorization code for trail use for 365days.How can i get it?I receive only Serial for support.Many thank'sVincenzo
I have a COBOL program that calls a VB6 program, which reads data from a weight scale using COM port.The data is saved into a TXT file, then the COBOL program opens the TXT and reads the data.Everything works fine so far, but is it possible to pass and receive data between the programs directly without creating any file?
Hi, most of my codes are still in NetExpress V3.1 and recently I bought a Core I5 Windows 10 (in SSD) laptop and I wanted to install my NetExpress V3.1 copy.Steps that I "usually" take on my old Core I3 HDD laptop;1.) Edit the WRAPPER.INI and remove the "CheckIE5OrAbove=1" line and run SETUP.EXE2.) I usually install the Class Library and choose at least 2 ODBC drivers and it will be installed correctly with a 30-days evaluation copyHowever, using my new Core I5 (with SSD).... it won't install anymore. Is there any additional configuration that I could do to install my NetExpress V3.1?? Anyone?@netexpress
I have tried to install on a second machine, result is the same. Error is shown in a separate window shortly after strta of installation. TEMP variable is correct. Installation is run under "ADMIN"
Problem: The same application that calls WinHTTP successfully with HTTP fails to work with HTTPS even if zero is returned (in ws-res on the example below): INVOKE ws-winhttp "Open" USING z"POST" WS-CALL-HOST *> containing URL with HTTPS ws-boolfalse RETURNING ws-res INVOKE ws-winhttp "Send" USING ws-vartext RETURNING ws-res Solution: There is no code change required. As explained in the following Microsoft link, an update for Windows and setting up a registry key are required:https://support.microsoft.com/en-gb/help/3140245/update-to-enable-tls-1.1-and-tls-1.2-as-a-default-secure-protocols-in-winhttp-in-windows The program should work fine after adding DefaultSecureProtocols with the DWORD value of A00 in HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\WinHttp#winHttp#netexpress
Hi,I'm trying to use the example (MSOutlookMkAppointment) to send an email with an appointment to be added to the recipient calendar.I was trying to convert this piece of code:Set myRequiredAttendee = myItem.Recipients.Add ("Nate Sun") myRequiredAttendee.Type = olRequiredI've already tried this but it's not working:MODIFY olApptMeetingStatus = olMeeting@Start = TmpStringDuration = 60Subject = "Meeting to discuss Darth Vader"Body = AddressStringLocation "Battlestar Galactica"ReminderMinutesBeforeStart = 1ReminderSet = 1.modify olAppt, @Recipients::@Add("test@test.com") returning myReqAttendee.modify myReqAttendee@Type = olRequired.MODIFY olAppt Save(). Error message:System exceptionMember not foundCobol error at 00022Don:modify olAppt, @Recipients::@Add("test@test.com") returning myReqAttendee. Thank in ad
I have a program that reads MS Excel spreadsheets and it works fine when running on workstations. I lost my development system and the new one now uses Windows Server 2012 and no longer is able to read the spreadsheet. I am running Net Express 5.1#Excel#Server2012
I need to call a Credit Card Gateway to submit credit card charges from my software. I have spent hours reviewing the documentation Working With .NET Assemblies. I have everything coded but when I Create my assembly, the Handle gets set to a value of 1.Also, the result of the assembly is also passed to another assembly that I create, where the Handle is passed as an OBJECT. There are no examples given that show how to do this correctly. Also, there is no example that uses "Stored Object Events".Here is a sample of the coding I am trying to write. The problem is with the last statement in the example:MODIFY PostRequest-HANDLE "SetTransaction" ( Ms-Operation-HANDLE ).I'm not sure hot to pass this correctly.Thanks in advance to anyone that contributes to help me out. ======================================Example Coding:******************* NETDEFGENED Def File: ****************************************************
I have used RMNet to consume SOAP services using XML. I now need to consume a RESTFUL service using JSON. Are there any example programs that show how this is done? I need a solution that will work on both Windows and Linux platforms. Calling Curl would not be an ideal solution; I will be making many calls to the service, and need it to be VERY responsive. Thanks!
Hi All, While i am executing below logic-i am getting error(that error i attached). Please advise why i am getting that error.Snap shot of below logic.Working storage section.01 parser-handle usage is handle.XML PUT TEXTresponse-payloadresponse-len"C:\\sparak\\19\\CS\\TMP\\final-result.xml"if not XML-OK go to 004-END-PROCESS. Below LOGIC i am expecting to be open the final-result.xml and get the URL link from final-result.xml and move to ws variable. But, no luck.call "C$XML" using CXML-GET-CHILD-BY-NAMEparser-handleend-call.=============================My final-result.xml below. ( I am taking </GetURLByDocumentIDsResult> URL link)<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsa="http://schemas.xmlsoap.org/ws/200
Hello All,I learnt C$XML using guide https://www.microfocus.com/documentation/extend-acucobol/1021/extend-Interoperability-Suite/BKITITNONVS027.htmlBut, i have some clarificationsUsing C$XML, i want to get below red mark values to one working storage variable? For this i tried below logic, but how do it declare final.xml which i need to open and get the below red mark values to one variable? CXML-GET-FIRST-CHILD/parser-handle both variables how do i declare in working storage section? just please give me sample code here. thank you in advance.call "C$XML" using CXML-GET-FIRST-CHILD parser-handle. <?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/
HiI'm just starting with JSON GENERATE in Visual COBOL for Eclipse 5.0.I have a question is how to represent the JSON string shown below in the DATA DIVISION..The JSON example in the SAMPLE folder uses the NAME entity a 01 level data name for the FROM identifier in the JSON GENERATE statement but my JSON starts with 3 items at the same level.So what do I use as the "FROM" identifier. If I make the 3 name pairs 05 levels won't the dummy 01 level item be generated in the JSON?{ "jsonrpc": "2.0", "message": "GarmentInfo", "params": { "general": { "ID": "ni1", "0-0": "ni1", "0-1": "Prod variable", "1-0": "Sylte Variable", "1-1": "Color var", "1-2": "Fabric Arcticle Var", "1-3": "Size Var", "units": 1
Already have an account? Login
No account yet? Create an account
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.