Rocket® COBOL

Is it possible to extract the content from a web page that gets displayed in the browser control. I want to open a web page using a URL and its parameters, then get the data being displayed in a table (see screen shot below)

Someone is using initialize (which works fine in unmanaged code) to initialize linkage. He says the pic x's are correctly set to spaces, but numerics are not set to zero.  Is there more involved? Thanks.#managed

What is the latest availability date for the PE of Visual COBOL to integrate with Visual Studio 2022 Community Edition?

I am trying to run an AcuCobol software application through Remote Desktop Services on a Windows Server 2019. The Remote Desktop Services collection has been successfully deployed. I added the wrun32.exe program to the list of allowable programs using the full network path and then published it. I see it on the Remote Desktop Website. I downloaded the .rdp icon on the remote machine through the Remote Desktop Website. I then change properties of that .rdp icon through Notepad on the local user machine to include the necessary parameters that the software app requires to run (C:\\Acucorp\\AcuGT\\bin\\wrun32.exe -C C:\\ETC\\GUICONFIG User_Login 001 Main_Menu). This works fine on the local server. I just can't get it to run on the remote machine which accesses this server thru RDS.  I get the error as follows: Windows cannot start the RemoteApp program.  The following RemoteApp program is not in the list of authorized programs:  wrun32.exe.  

Hi. Since 1994 I have designed and implemented an application in HPUX under MICROFOCUS SERVER EXPRES. Now I have to migrate that application to LINUX, but my surprise is that the architecture of that application, inspired by parent child processes, does not allow this migration due to the use of the fork() function. error 96. It doesn't help me to implement multithreading or calls to exec() functions because that means rendering the entire application. Any ideas? The application covers a critical service of a financial entity.

What happens to the web-browser control in ACUCOBOL-GT, now that Microsoft is about to stop the support for Internet Explorer? Full article: https://portal.microfocus.com/s/article/KM000005300#SupportTips/KnowledgeDocs#SupportTips/SupportTips/KnowledgeDocs

So.  Was using rment, it was working.  Tweaked the command slightly (the request string part of httppost) and now, instead of status zero, I am getting status 1.  The original response that comes back is still correct.  When I check the error description, using NetGetError, it gives back "no error, don't panic!".   So does this mean both zero and 1 status mean a successful request/response?  Can't find any list of errors in sample/rmnet or sample/def or in the manual. Confused in Canada...

I am getting error com.microfocus.cobol.program.COBOLProgramCallException: 181     Invalid parameter error when calling one COBOL program from another.  Both are compiled with -J (CobJVM) mode. The arguments on the call and the procedure division using are exactly the same, call statement and data definitions are below.   Question, how can I find out which of the 22 parameters it doesn't like ?            call 'ts905g' using  bad-xptn-tbl                                 input-ptr                                 output-len                                 output-ptr                            

why is it not possible to integrate a newer ocx-file? i will join a zip-file with cfile.ocx and ctxfile.ocx. i was able to integrate ctfile.ocx that is a older development, but not ctxfile.ocx The first message is: OLE returned error: H'800401F3'Reason: ungültige Klassenzeichenfolge (in german) unavalaible class string? The second error by integrating:Failed to create object.OLE2 return code 20 This is on all Windows OS (Win7 32 bit, Win10 64bit, also Win11 64 bit)community.microfocus.com/.../ctfile.rar Thanks for help.

Hi, I'm using Visual Cobol for Eclipse on Redhat. I know I can compile Visual Cobol Projects on Eclipse, but how to compile them with Command Line? There's SQL Preprocessor , and CP Preprocessor used in my projects. One Compile Command that could compile the whole project is the best (even all projects) . If each program need a compile command , that would took a lot of work...  Thanks

Can i use reflection to connect to a Windows server in the same fashion i would use reflection to connect to a Linux server? Thanks in advance for any help.#Reflection#Linux#COBOLserver

Hi, I'm trying to migrate from Server Express to Visual Cobol, both on Redhat Linux. I noticed a Document that contains [Differences between Visual COBOL and Server Express] and it shows [COM Interop] is one of the points. [COM Interop] means [The tools to help create COM objects are not supplied with Visual COBOL], so I think if there's no [COM Objects] used in my Project, I don't need to change any source code. But I don't know what [COM Objects] is or how to use it. According to my research, seems [INVOKE] statement can used for [COM Objects], Is that means if no [INVOKE] in my source code, then no [COM Objects] used ? Thanks

Hi everyone.  This is more for your information than a question.   Since the manual says the KEYSTROKE table is maximum of 170 entries, and I was having some issues, I wondered if the table updated existing entries when a key was changed, or if it was just a log which the runtime searched to see the most recent entry.   I did some testing and table entries get updated so it's not a "log", it's a table. I built a little program to test input and exception keys.  I added a loop to set/reset the kr key back and forth between two values.  Did that 100 times for 200 entries into the table.  Set the kr one more time after the loop, and that's the value I got.  So the table updates entries for various keys, it's not a log where you read everything to find the most recent change.

I'm posting this mostly to let others know about my findings.  If anyone knows a way around this, please, post a reply! As it turns out, my research shows that a format-1 accept (even in gui) can be controlled by the keystroke variable, so you can set up to get an exception value.  However, if you use an ENTRY-FIELD control, the left/right keys are trapped by windows and the field cannot be exited (just like the manual says).   Note: I'm just trying to get one character, including any function/movement keys. I cannot use the W$GETC (won't work for my application).  I've been using the format-1 accept, but I've been running into issues where the active window does not get processed the same when not using the entry-field, even though I use the SET I-O WINDOW to xxx, before doing the accept.   As a result, in my application, clicking the minimize button triggers some handling which does a switch to the main window, check if any mouse movement using form

community.microfocus.com/.../VCCOMDemo.zip

Hi, Do you have any VC code examples of how to achieve below into my VC7 solution using.NET 4.8. https://stackoverflow.com/questions/47416397/windows-forms-application-with-microsoft-graph-api-functionality Many thanks Neil

By Netexpress 5.x we include this command to special-names call-convention 74 is win32api. What is to do for Visual Cobol? Wich library must be loaded? It is not easy to call application from cobol application, then on a 64 bis os, the application can be installed as 32bit or 64bit and the application are stored in other directrories. What is the best way to call this programs with "winexec"? Thanks for help cg

After upgrading VisualCobol from version 4 to to version 7, on AIX, we encountered a problem related to copybooks This is the error I have: * 2572 COPY "/xcl/lib/rec/01.cfrb-xui-co".* 8-S********************************** ( 0)**** Unknown copybook /xcl/lib/rec/01.cfrb-xui-co specified it looks like the new version of compiler does not accept copybook files which have an extension longer than 10 characters. Evidently in version 4 it worked fine. Is there a new restriction implemented and how can I override it Thanks Florin

After upgrading VisualCobol from version 4 to to version 7, on AIX, we encountered a problem related to copybooks This is the error I have: * 2572 COPY "/xcl/lib/rec/01.cfrb-xui-co".* 8-S********************************** ( 0)**** Unknown copybook /xcl/lib/rec/01.cfrb-xui-co specified it looks like the new version of compiler does not accept copybook files which have an extension longer than 10 characters. Evidently in version 4 it worked fine. Is there a new restriction implemented and how can I override it Thanks Florin

Created On:  20 June 2011 Problem: How do you print Barcodes using AcuCobol? Resolution: The best option is to get hold of a barcode font. If you install this on a computer, activate it in your application, you can just send the normal sequence of characters to the printer (provided you go via the spooler) and the font will care for the rest, simple, efficient and neat. A barcode font may be purchased or obtained for free. Search on the internet for font and barcode.Requirements in order to print using a barcode font:1.  Print via the spooler.2.  Install the barcode font.3.  Load the barcode font using the W$FONT routine.4.  Make the barcode font active using WINPRINT-SET-FONT.5.  Send the character sequence to the printer.  The font driver will then translate this into the barcode. Old KB# 34177#Barcode#AcuCobol

Hi, I'm trying to fetch a Micro focus COBOL-DB2 (SQL server) Cursor and encounter the error, "Load error : file 'FETCH' error code: 173, pc=0, call=1, seg=0 173 Called program file not found in drive/directory". There are other Cursors in the same program and they seem to be working file. Can someone please help?  CURSOR: EXEC SQL DECLARE STYLE_COUNTS CURSOR FOR SELECT SYSTEM_TYPE ,STORE_RCVR_NUM ,STORE_PO_NUM ,STORE_NUM ,STYLE_NUM ,SUM(AVAILABLE_UNITS) ,SUM(AVAILABLE_UNITS * ITEM_COST) ,SUM(AVAILABLE_UNITS * ITEM_RETAIL) FROM INV_AVAIL_ITEM WHERE STORE_RCVR_NUM = :WS-PREV-RECEIVER-NUM GROUP BY SYSTEM_TYPE ,STORE_RCVR_NUM ,STORE_PO_NUM ,STORE_NUM ,STYLE_NUM END-EXEC. #fetch#MicroFocus#call#DLLError#SQL#VisualCOBOL

The Microsoft .NET Framework and ‘managed’ code usage seem to be everywhere. More and more companies are adopting the use of managed frameworks to provide greater flexibility in their development environments and take advantage of the numerous features and benefits of the framework. But what if your shop isn’t on the road to .NET yet or fully? What if you have an existing COBOL environment that is not managed but in ‘native’ mode? How do you interact with managed code? How can you extend the use of your current application to reach out and utilize the features others have derived and published from the .NET Framework? This article is an update of a previous article that was posted on the Micro Focus Community site in 2011 using NetExpress. This updated article will utilize the previous COBOL COM Server and client, but we will update the client from NetExpress to Visual COBOL. So let’s get started! The Approach The technology we will be using to enable the call to the managed environme

Hi! My program is writing to an XML-file. 1. A numeric field with two decimals, f1, is declared pic 9(5)v99.  When writing 42.00 to f1 the result on xml file is <f1>42</f1>. I want both decimal 00 to be on the xml file. When a decimals is for instance 10 the output for decimals is 1 and if it is 01 the output is 01 . So it is always when the last decimal is 0 they disappear from output.  When declaring f1 pic 9(5).99 is the result <f1>00042.00</f1>. The decimals is ok now but I do not want the leading zeroes. When declaring f1 pic z(4)9.99 is the result <f1>   42.00</f1>. Now are leading zeroes and decimals ok. But I do not want leading spaces. How can I have a result like <f1>42.00</f1>? It should be max 5 numbers before the decimal point and two after. It should be numeric. Regards Christina #netexpress#COBOL#XML

I am trying to pass an argument to my AcuToWeb probram using the following link: 127.0.0.1:3000/ I am sending out hundreds of emails and I have an UNSUBSCRIBE program that I want to launch if the email recipient so desires. The program launches OK with the right alias, but the specified CHAINING argument has spaces in it. I have it running with debug and can see nothing in the field Also, I tried    ACCEPT WS-COMMAND-LINE FROM COMMAND-LINE.   and nothing shows up in that either.#passargumentstoAcuToWeb#acutoweb#10.4.1

If you are activating licenses generated and issued by Micro Focus after January 2021, please download and use the NEW activator. Full article: https://portal.microfocus.com/s/article/KM000004829#SupportTips/KnowledgeDocs#SupportTips/SupportTips/KnowledgeDocs