Rocket® COBOL

Hullo all. I hope the collective intelligence of the community can help guide us here. We have a large-ish program written & running under AcuGT (Extend) for Windows. It has a Windows UI. It is a real-time transaction processing engine with a UI to monitor and control the activity. So it runs in 2+ threads but its a single program. We want to split this into two programs: A transaction processing engine that runs as a Windows Service, so it launches on boot and is always running. No UI at all. A UI that interacts with the above program. Ideally we would just take the existing code - the current UI thread - and make minimal changes to it, so it will still be an AcuGT/Extend program. But users could launch/run it using AcuToWeb. We want to put minimal effort into this, as it does not extend the functionality of our product, it just solves some security + remote-access issues. It should not be too hard to simply split this one program (currently implemented as two threads) into

Hi, II have configured two systems; the first system has run time folder as swrun.16 and the second system has swrun.17. I want to install/register some components into the run time folder programatically.Could you please suggest a way how to dynamically determine the Runtime directory? Thanks, Aji Cherian

Hi all. We will be interacting with electronic labels, and the API is a bunch of restful web services, so we'll be using the RMNET routines.  I know the C$SOCKET functions are not "thread safe" because if you wait for a response, all threads will block (my manual tells me so!) but I was wondering about the RMNET routines.  Do they have the same limitation or can I launch a thread to do the API transaction, while the main function continues on?  The manual doesn't mention either way.

Hello, I was not able to figure out the issue , when im trying to integrate microfocus dlls and COBOL files to webapi c#  endpoint call. The below exception is throwing when executing cobol business logic.It's not working in webapi/wcf calls.It's executed only in winforms application.Could you please do help on this issue.Are these cobol dll integration work in web development?  

I do not work with this program, but am trying to assist in a server migration that involved upgrading Syspro which utilizes Micro Focus components. Upon trying to run an install, I receive this error message: 0x81f40001 - Micro Focus COBOL Server 3.0 must be uninstalled before continuing.  I feel as if I have tried everything and removed everything I could find to no avail- I keep getting this error. Where does this live and how does one remove it?

i was able to find the correct syntax for many functions giving in msexcel.cpy But not to set the topmargin, bottommargin, leftmargin, right margin in VB the syntax found is Worksheets("Sheet1").PageSetup.LeftMargin = _ Application.CentimetersToPoints(2)The function for this in msexcel.cpy are: *> Method: "getMarginBottom". *> 01 MarginBottom comp-1. *> invoke returning MarginBottom. *> ---------------- *> Method: "setMarginBottom". *> 01 MarginBottom comp-1. *> invoke using *> by value MarginBottom *> [IN]. *> ---------------- *> Method: "getMarginLeft". *> 01 MarginLeft comp-1. *> invoke returning MarginLeft. *> ---------------- *> Method: "setMarginLeft". *> 01 MarginLeft comp-1. *> invoke using *> by value MarginLeft *> [IN]. *> ---------------- *> Method: "getMarginRight". *> 01 MarginRight comp-1. *> invoke returning MarginRight. *> ---------------

Hi - I have a question regarding RM/Cobol compatibility with Dockers.  If compatible, steps need to be followed. Can you please help to gather info?  I raised support Ticket and emailed to our contact.#docker#RM/COBOL

Hi I'm in process of upgrade applications from RM version 11 to RM ver 12 and for testing I'm using version 12.17 with WOW Extensions same version. The thing is that in version 11 I've used the form property WSDefinition in order to develop more complicated and large programs and also faster compilig. But when I use the test version 12.17, I got an error compiling when WSDefinition is enabled.  Is there something am I missing?. Thanks for any help. Humberto Betancur. 101 +1+ 02 SOCKETTOOLSENCODE-CONTROL-HANDLES-ARRAY OCCURS 3 TIMES 102 +1+ REDEFINES SOCKETTOOLSENCODE-CTL-HS. 103 +1+ 03 FILLER. 104 +1+ 04 STANDARD-CONTROL-H PIC 9(10) BINARY(8). 105 +1+ 04 STANDARD-CONTROL PIC 9(10) BINARY(8) 106 +1+ REDEFINES STANDARD-CONTROL-H. 107 +1+ 04 ACTIVEX-CONTROL-H PIC X(8) 108 +1+ REDEFINES STANDARD-CONTROL-H. 109 +1+ 04 ACTIVEX-CONTROL PIC X(8) 110 +1+ REDEFINES ACTIVEX-CONTROL-H. 111 +1+ 04 CONTROL-TYPE PIC XX. 112 +1+ 88 CONTROL-TYPE-MAIN-MENU VALUE "MM"

Dear sirs, when I run the command: call cc74 'FindFirstFileA' using by reference findFileName *> lpFileName by reference WIN32-FIND-DATA *> lpFindFileData returning fileSearchHandle I'm getting an error 173 Called program file not found in directory/drive FindFirstFileA How do I solve this Att Rogerio Barbosa

I search a way to define in a excel-cell a formel and had problem to do this or to recognize this field/cell as formel Send data, text, date, values is not a problem. The given example "excel.cbl" is not very exhaustive, in msexcel.cpy are many information, but i don't have found the correct solution. Who is interessed to exchange information on the excel/office integration? who can help me for formel? (not managed cobol)

Hi, I wanted to check it's okay to have Net Express 5.1 and Visual COBOL 9.0 installed on the same laptop? Will initially be using VC native code and still supporting out Net Express application so I wasn't sure there will not be an issue with the rts. Thanks

I originally created this post a while ago : How to set Paper Size being passed from Printer Selection , and I never got it to work. Here is my code: PREPARE-PRINTER-WITH-STANDARD-PRINTER-DIALOG. CALL "P$SETDIALOG" USING PrintDialog. CALL "P$DisplayDialog". IF DIALOG-RETURN = 0    move SET-DEFAULT-PRINTER to default-option    move dpb-len of MyDefaultPrinterBrowser to dp-len    move dpb-body of MyDefaultPrinterBrowser(1:dp-len) o dp-body    call "PC_PRINTER_SET_DEFAULT" using by value default-option                                                                 by reference MyDefaultPrinter     PERFORM OPEN-PRINTER-PARA END-IF. What I would like to do is grab what was changed in the Windows Printer selection box, and have it prin

Problem: How do I get the day of the week for any date? Resolution: See attached source code example. Attachments: dateconv.zip Old KB# 4678

I am having an issue running a single program in my project.  I had made some changes to the WPF screen, and in the code as well. When I compile and run my software - when I execute my software, and select the program I changed from the menu, I get the below error message.  MicroFocus.COBOL.COBOLRuntimeException HResult=0x80131600 Message=198 Load failure [Program has an incompatible codepage dependency "PR450000" is using codepage Western European (Windows) but the main program "MSIMenu.App" is using Unicode (UTF-8) Please see documentation for more information.] I am not sure how to fix this - both my menu and the program being called (PR45000) both have this code in my WPF Screen  <?xml version="1.0" encoding="utf-8"?> So I am not sure why it is saying this, and when I run any other program that is in the project - they all work correctly.  Where is it seeing that I have the codepage set to Western Europe (Windows) ?

Hello, I have a small C# application from a vendor that allows me to communicate with and receive data from an ID document scanner. I've already managed to "translate" some parts to Visual Cobol but there are others that give some errors in the conversion. Would it be possible for you to help me with this conversion? Thanks. Alberto Ferraz

I tried using your TestExcel program to read a cell. I set the file name with            move spaces to ExcelFileName           string 'z"C:\\Users\\alan\\Documents\\Micro Focus\\'             'Net Express 5.1\\WORKAREA\\SMNG\\emailsmar25.xlsx"'             delimited by size into ExcelFileNameThis is in the NE5.1 IDE with Wrappack 18 on Windows 10.  Error: Open methods of Workbooks class failed on "Open" The path C:\\Users\\alan\\Documents\\Micro Focus\\Net Express 5.1\\WORKAREA\\SMNG is correct. The file name is emailsmar25.xlxs I do not understand what is wrong.  I examined the ExcelFileName while animating and it is correct. Thank you, Alan Beecher

Hi -  I have a ISAM file.. File is in Recovery Status .. causing 9802 in program opening this file... I cannot recover the file using recover1 since file is used in real time system..  Is there any other method to recover this file or skip the bad record ? #RM/COBOL#ISAM

I need to call an API written in C# in out Micro Focus COBOL application.  I found this post very helpful  RE: Tutorial or example for calling a URL and processing the response  one thing though the call needs to ba a POST with input in JSON I can string together the body - but what is the syntax to attach it to the request?

I have a program that runs from the command prompt from my program.  This is the command:  cmd.exe /C cscript //nologo D:\\NEW_MSI\\MSI_DATA\\MakeGuid.vbs > D:\\NEW_MSI\\MSI_DATA\\myguid.txt I am using CALL "SYSTEM" USING WS-CMD-LINE to run the command. (the command above is placed in WS-CMD-LINE before the call to "SYSTEM". The command works great from a dos prompt, but when I use it in my program - it does not work at all. The myguid.txt file is never generated.  Does anybody have any suggestions on how I can get this to work? 

Knowing that Visual Cobol for Eclipse is not compatible with DialogSystem instructions. If I would like to adapt a COBOL program that uses DialogSystem, is there any example or document that explains how it should be done? Is there in VC for Eclipse any tool similar to DS that facilitates the migration?

Buongiorno , ho necessita' di contare il numero di caratteri di una stringa,rispetto all'ultimo carattere valido contenuto in essa. Data la variabile WS-DESTINATARIO dichiarata PIC X(30) che contiene il valore "COLOR EXPERT                   "quindi 12 caratteri complessivi compreso lo spazio fra COLOR e EXPERT. 1) Utilizzando l'istruzione INSPECT WS-DESTINATARIO TALLYING CONTA-CAMPO FOR CHARACTERS ottengo nella variabile CONTA-CAMPO non il numero dei caratteri contenuti nella stringa che sono 12 ma 30 che e' la lunghezza complessiva del campo. Non trovo il modo, nella sintassi del comando, di ottenere il valore 12. 2) -Se utiizzoINSPECT WS-DESTINATARIO TALLYING CONTA-CAMPO FOR CHARACTERS BEFORE SPACE ottengo il valore 5 ovvero conta i caratteri sino al primo spazio ( puo' andare bene solo su valori contigui di contenuto di campo) 3) -Solo se utilizzo l'istruzione INSPECT WS-DESTINATARIO TALLYING CONT

I inherited a substantial application written in Micro Focus COBOL.  I need to make changes to the way the connection strings are used.  I sniffed through the code - and found 22 (!) with CONNECT USING statements.  The application contains hundreds of programs, each compiled and deployed individually, with a handful of EXEC SQL statements - and as far as I can tell every one of them has no problem getting to the database.  How are all the other programs connecting?

The setup stops with an error message indicating that another version of Visual COBOL (or COBOL Server) is already installed and should be uninstalled first.  Full article: https://portal.microfocus.com/s/article/KM000007637#SupportTips/KnowledgeDocs

Hi!  I am playing around with the software, trying to update our conversion programs to no longer use Database Connectors.   In my program I have an input file that is an RM\\COBOL ISAM file, and when I run the program, it is giving me a 9+,00 error code.  I have tried adding the  $SET  DIALECT(RM)  FILETYPE(21) command to the beginning of the program to let the program know that I am using an RM\\COBOL file, BUT, when I do that, the embedded SQL commands are no longer recognized by the compiler, and I can't get the program to compile.  Is there a way to do this, or am I stuck using Database Connectors for my conversion programs? 

Hello, I am trying by all means to establish a connection to a SQL Server database, I supposedly connect but cannot see the data in a table. These are the errors: connection to the database establishedError: It is not possible to Access the Province TableError code: -00000000208Description Error: The object name 'province' is not valid Please can someone help me. Thank you. #VisualCOBOL#SQL