Rocket® COBOL

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

Can part of all of modifiable fields be copied ? On the image only the first line in blue can be copied.

Hi , Here's a question about how to create project for [EXEC SQL INCLUDE] Copy Books. I'm using Visual Cobol for Eclipse on Redhat . I know I can create a [copy book library] or [COBOL Project] for saving Copy Books only, and Other Projects that only contains COBOL Program can use these Copy Books by setting [Micro Focus -> Build Path -> Copy Books]. But I also have some Copy Books for [EXEC SQL INCLUDE] , and seems I cannot use them by this way. How to create a project for these [EXEC SQL INCLUDE Copy Books] ? Like the following Projects 1.  Project1   ---- only contains [Main COBOL Program] 2.  Project2   ---- only contains [Sub COBOL Program] 3.  Project3   ---- only contains Copybooks(both for normal Call statement and EXEC SQL INCLUDE) ? the EXEC SQL is for Pro*COBOL Preprocessor for Oracle. Thank you.

Is it possible to launch a program via AcuToWeb and pass variables to the program via the URL? Example: the user is on a web page (HTML CSS, not AcuToWeb) that displays a list of departments. The user clicks on a department. We want to call a Cobol program to display or modify that department. We need to pass the department number to the program via the URL, e.g.: myhost:3000/&dept=ABC Thanks.

My company would like to know if such a tool is available.  It would convert Dialog System screens to Windows Forms.  I know that Micro Focus has worked on such a tool in the past and believe it has also been worked on by Micro Focus Partners. We have just two programmers converting a system with over 500 screensets.  What is its status ?#VisualCOBOL

Hi all, We want to prevent users from running more than instance of the same app. In other words, only one instance of  the app should be allowed at any given time. Is there a way to do it through compiler options or only at OS level? Thank you. 

I'm using Visual Cobol For Eclipse on Redhat Linux. There's some [EXEC SQL ~] Code for Oracle in my project so I'm trying to compile them. I've checked [ Micro Focus > Build Configurations > COBOL > SQL Preprocessor] and selected [Pro*COBOL], but while compiling , it shows error [sh cannot find procob]. I think it because of I never installed [Oracle Pro* COBOL] on my Redhat Linux. So I downloaded instance of [Pro* COBOL] from here https://www.oracle.com/database/technologies/instant-client/precompiler-downloads.html#license-lightbox But I don't know how to install it, or maybe I have to install full Oracle Server? Please help, Thanks. 

When trying to register for free trial of Visual Cobol PE for Visual Studio 2019, the web page returns this error: Error: Server was unable to process request. ---> 2 OLEDB Errors Occurred: 1. Cannot generate SSPI context 2. SQL Server Network Interfaces: The logon attempt failed Unable to complete free trial registration. Has been reported to MicroFocus, but any suggestions about alternatives or detours would be appreciated.#VisualStudio#VisualCOBOL

Does Visual Cobol 6.0 support .NET 5.0? I'm asking this because today we started a new project (WinUI3) with a Visual Cobol 6.0 project in the solution. Because of WinUI3 I have to set all projects to .NET 5.0. Everything builds successfully, except for the Visual Cobol project (which I also set to .NET 5.0). I get the error that the dll I want to build cannot be found in the \\ref directory. Is this a known error message? Or do I need to upgrade to a higher version of Visual Cobol?

A previously fully operational VS and VC 6.0 system is throwing this error. Windows 10 system was powered off for a few weeks.  Hardware clock displaying the current year as 2013 had to be adjusted. Uninstalled and reinstalled Trial license, no improvement. How can this be resolved to use the remaining time on the VC 6.0 trial license? Thanks!

Hi , I'm trying to compile Visual Cobol and call them from Linux Shell , I'm new to Visual Cobol.... Here's 2 questions 1.  I created a [COBOL Project] and Newed 3 COBOL Programs named Program1~3,      and [Run As] - [COBOL Application]. but it only executed Program1.      How can I execute Program2 or Program3 directly? Like I can run a Java Program if It's a Main[] Class ? 2.  How to execute COBOL Program from Linux Shell ?      Compile Java Programs made .class files and I can run it with Shell Command. What's the runable file for Visual Cobol ? I'm reading this document https://www.microfocus.com/documentation/visual-cobol/vc70/EclUNIX/GUID-8D6B7358-AC35-4DAF-A445-607D8D97EBB2.html and maybe you can point out which part should I read ? Thanks, waiting for your response.

Hi, Im encountering error during the build of my Visual Cobol Project. [cobollink] Linking (64-bit) Sample_Windows_0314.exe...[cobollink] Micro Focus COBOL - CBLLINK utility[cobollink] Version 7.0.0.87 (C) Copyright 1984-2021 Micro Focus or one of its affiliates.[cobollink] [cobollink] Microsoft (R) Incremental Linker Version 14.16.27045.0[cobollink] Copyright (C) Microsoft Corporation. All rights reserved.[cobollink] [cobollink] Program1.obj [cobollink] cbllds00001520.obj [cobollink] LINK : fatal error LNK1181: cannot open input file 'kernel32.lib'[cobollink] Link complete with errors[cobollink]#VisualCOBOLEclipse

Can I extract in a program the following: "C:\\Program Files\\Micro Focus\\extend 10.4.1\\AcuGT\\bin\\wrun32.exe" And if I update to a new version will it automatically get the new version? 

Hi, I am working on a POC for evaluating the Micofocus Visual Cobol converting from RM COBOL. While compiling the Program in Micro focus Visual Cobol environment I am getting the below error  I did change the below in the setting but didnt resolve the issue  Please advise how to proceed further  #VisualCOBOL