Rocket® COBOL

I am having an issue where if a date field is blank on the screen, I want to save NULL in my date field in my SQL DB.  How do I do this with Embedded SQL with Visual COBOL?  I've tried passing spaces, but that saves the date as 1900-01-01, I've tried passing 020202, and that saves the date field as 1955-04-25.

Hello,  I've run into an issue regarding the use of pointers in a .net assembly when using Thin Client(version 9.2.4). The code that follows runs fine when local, however through thin client the acuthin executable crashes when running the Marshal.StructureToPtr in the .net code. I'm suspecting this is because the pointer is getting created server side, rather than client side. I did find some documentation regarding calling dlls that use pointers through thin client(7.2.6.3 Passing pointers in DLL calls ), however neither the -Zm compile option or the M$ memory calls seemed to solve the problem. In the windows event viewer I'm seeing acuthin throw a memory access violation. Any help here would be much appreciated. Thanks! .net Code: public int Swipe_Card(int resultPointer) { var code = CardSwipeResultCode.SwipeTechnicalError; try { var pointer = new IntPtr(resultPointer); SwipeResult result; (result, code) = DebitCreditProcessor.SwipeCard(); Marshal.StructureToPtr(result

Hi, I'm trying to print a form with a string justified on the right margin of the page On version 8.0 of rmcobol I used the function P$TextOutRightJ but on rm12 it doesn't work The string is not costant so I can have "abcdefgh"  "abcd "   "ab " etc, and with the P$TextOutRightJ I had always the last right characters of the string aligned on the right of the position I want Example   77  STRING PIC X(55). call "P$TextOutRightJ" using STRING 19,5 27,60 How can do this ? Many thanks to all

Hi, I'm trying to print a form with a string justified on the right margin of the page On version 8.0 of rmcobol I used the function P$TextOutRightJ but on rm12 it doesn't work The string is not costant so I can have "abcdefgh"  "abcd "   "ab " etc, and with the P$TextOutRightJ I had always the last right characters of the string aligned on the right of the position I want Example   77  MEP-DESCIVADOC PIC X(55). call "P$TextOutRightJ" using STRING 19,5 27,60 How can do this ? Many thanks to all

Hi, We have developed a program that takes advantage of the XML and Rmnet extensions, to extract some information from a website by interacting with a SOAP web service.On the Windows operating system, the program (compiled with the -Ze option) works perfectly and was developed with the help of libraries: xmlif.dllrmnet.dll Problems arose when running functioning tests also on Linux system (Red Hat)From the examples in our possession we are instructed to use the libraries: libxmlif.solibrmnet.so But after several attempts, these are not recognized as cobol libraries We also tried setting the variablesSHARED_LIBRARY_LIST e SHARED_LIBRARY_EXTENSION, without any success. By checking the manual, we do not find a confirmation (for version 9.2.5) of these libraries. While an example of execution is proposed on version 10.3.Also in the manual of version 9.2.5 there are indications for the library: xmlif.so Run the COBOL program. On Windows use -y xmlif.dll. On UNIX use -y xmlif.so. Test the p

Hi I am trying to translate code from C# to Visual Cobol to allow numbered lists in a richtextbox on Windows Forms.  This is to replicate a similar feature from a different application we are scrapping.  The code I am having difficulty with is highlighted in red (same code highlighted in C# and Visual Cobol block), as I will explain. We are using Visual Cobol 2.3 for Visual Stuidio Community 2015 on Windows 10. The C# code is as follows: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Runtime.InteropServices; using System.Drawing.Printing; namespace RichTextBoxEx.Controls { public class RichTextBoxEx : RichTextBox { #region BULLETING [StructLayout(LayoutKind.Sequential)] private class PARAFORMAT2 { public int cbSize; public int dwMask; public short wNumbering; public short wReserved; public int dxStartIndent; public int dxRightIndent; public int d

I'm getting started with an evaluation version of Relativity and I try to create a new catalog in Designer. I choose File -> Create New Data Source. I select Micro Focus Relativity Data Manager. Then I click the Create Catalog button and select a file name. I'm getting "ASLM: Semaphore failure." error. I've executed ASLMPCLOCATE as instructed but no change. Running Process Monitor shows that it's looking for IDELINK.DLL but I can't find it on my drive. Anybody knows what I'm missing? Thank you!

This article explains that the COBOL Profiler tracks CPU time rather than elapsed wall clock time. Problem: Does the Profiler keep track of elapsed (wall clock) time? When using the Profiler to measure performance, I see that the total time it reports is less than the total elapsed time for the program, based on the time of day. Resolution: The COBOL profiler does not keep track of elapsed (wall clock) time, instead it tracks CPU time. Several sources of elapsed time will be left out of a profiler report: it does not keep track of time waiting for user input, neither does it track time when the process has spawned a child and is waiting for the child to return, nor does it report elapsed time in calls to databases. Attached to this Knowledgebase article is a demo useful for testing Profiler's behavior. The demo tests Profiler when: Waiting for user input in a COBOL program When a CPU-intensive C routine is called When COBOL calls "SYSTEM" using a sleep comma

Good Morning  I am getting misleading TIMEOUT Message. What I am doing:  I have transaction, run 24*7*365, calls COBOL program which in turn calls API using RMNet. Initially, when transaction is started RESPONSE-STATUS from RMNet functions [NETINIT, HttpSetConnectTimeout, HttpSetTimeout, HTTPPOST]  is 0. And NetGetError gave Message = "no error, don't panic!".   After sometime RESPONSE-STATUS from RMNet functions is 0. But at same time, NetGetError gave Message = "Timeout was reached".  Response is proper but getting misleading message. Using CONNECITON TIMEOUT =1 sec and RESPONSE timeout = 1 SEC. Am I doing something wrong ? Something missed in coding.  Log INITIALLY 20210921-07063002 ENDPOINT=http://xxx:nnnn/performapicall20210921-07063002 RESPONSE CODE FOR NETINIT=00020210921-07063002 RESPONSE MESSAGE FOR NETINIT=no error, don't panic!===> from NetGetError20210921-07063002 HTTPSETCONNECTTIMEOUT=00020210921-07063002

Hi - I need a help to locate copybook version used in RM/COBOL obj modules. Problem :  My platform maintained 2 version of  same copybook.  Ex: Folder#1     Copybook:-  C1.CPY Ex: Folder#2     Copybook:-  C1.CPY I have list [cannot be trusted] which tell me to call shell#1 [using Folder#1] to compile or sell#2 to compile[Folder#2] for a program. Mostly, I need to find once start working in a program. I have listing file that also cannot be trusted.  I have huge number of programs to be compiled. Is it possible to find out any information from load  or some other way  like generating listing from COBOL load? #RMCOBOL

Hi With runtime 9.2.5 hit remove the .vix  With runtime 10.3.1 hit will not remove the .vix his there a switch that i am missing Thank you

Some of the JSON I have to parse has the same tag names for different segments.  For example [{"id":10,"order_id":105,"product_id":137,"product_options":[{"id":8,"option_id":24... where "id" occurs twice.  Is there some technique with the NAME OF/IS phrase that will allow me to give these two tags different names?  Or any other ideas other than manipulating each context-specific "id" to rename them to two different names? I am at release 10.4#extend#AcuCobol

Environment Relativity Designer 2.3Visual COBOL 7.0Visual COBOL Dev Hub 7.0 Problem FD import operation fails when using the Relativity Designer 2.3 with Visual COBOL 7.0.The error will appear as follows:------------Error: @Could not find an importer for the .cst.xml file "C:\\Temp\\orders02.cst.xml" compiled with version 7.0.0.75 using schema 7.0.0. 10/06/2021 11:27:27------------ Resolution Please contact Micro Focus Customer Care for assistance with this issue. You can open a Support Case at https://portal.microfocus.com, or call the Customer Care phone number for your region. You can find a list of contact numbers on the following page:https://support.microfocus.com/contact/supportline.html https://portal.microfocus.com/s/article/KM000002111?language=en_US #SupportTips/KnowledgeDocs#SupportTips/SupportTips/KnowledgeDocs

Hi all 1)I print the 1st HTML page giving :MODIFY WB1 VALUE="C:\\PAGE1.HTML"MODIFY wB1 PRINT=1  where the user selects the desired printer by PRINT=1 property dialog box.2) For the 2nd page I give:MODIFY WB1 VALUE="C:\\page2.html"MODIFY WB1 PRINT-NO-PROMPT=1but  the print job goes to the default printer.Is there any way to keep the parameters from the PRINT=1 dialog box?Thank you

Good morning: I am having this error "Error invoking unauthorized copy of runtime. Semaphore function error (Loc 809)." when I run a series of routines, the problem is that some days it runs fine without errors and others it begins to give this error. Anyone have any idea why? I don't really have stability in the process. Thanks in advance.

I would like to create a website in which our clients can download bank statements going as far back as a year. I know that Visual COBOL has a ‘Web Application Development’ capabilities. Can anyone please provide resources (demos, video tutorials etc.) and how to go about in undertaking this project?  Thanks, in advance.

Hi allIn a thin client environment i need to print a report with no prompt.So before the calling of "@[DISPLAY]:AcuBenchPrintExecWBBPrint" I move the name of the desired printer in the ACU-PRINTER-NAME parameter (with a X"00" at the string's end) but the print job goes always to the default printer and not the one I want.I read printer's name by WIN$PRINTER routine.I work with Acu 7.0.Testing not in a thin client environment worked fine. I appreciate any help. Criss.

Hi everybody I made a simple .NET control that incapsulate a WebView2 browser from Microsoft. Those are the steps I did: Build the library as .NET dll file Tested the library using it in a WindowsFrom project: it works (events are fired and handled) Used NetDefGen utility to create the COBOL definition for the .NET library Made a simple COBOL program that uses the control Copied all the needed dll in the same directory the acuthin.exe is Created the NetEvents.ini file in the same directory Throw Thin-Client a run the COBOL program The control itself seems to work: The control is rendered in the window I can set any public property of the .NET control and it works I can inquire any public property of the .NET control and I have it There is only a thing that doesn't work: COBOL program doesn't handle any event. Using the debug, I see the code never pass through the event procedure of the .NET control. What can I do? The Thin-Client runtime is 10.2.1 and hosted in a SLES server. The

We have updated our servers to Windows 2019. In this process we had to re-add the licenses for Micro Focus Net express. We are now getting on a couple servers a error showing the license is expired. When we check the license it shows Full License. Is there something that we can change to make sure the full license sticks and does not intermittingly go away and come back? Our version is 5.116.0022.

 I got different output for same cobol report program in fijtisu cobol and microfocus cobol

Environment ACUCOBOL-GT 10.3.0, 10.3.1 and 10.4.0All Operating Systems  Problem Compilation may hang using the following command-lines:ccbl32 --netexe TestNetToCobol.cblccbl32 --netdll TestNetToCobol.cbl Using previous versions, such as 10.2.1, the following message may appear instead:ccbl32 --netdll TestNetToCobol.cbl.NET Version Not Found: --netdll  Resolution When using certain types in the Linkage Section of a COBOL program, and compiling with --netdll or --netexe, the compiler would fail to produce the .Net assembly. The types that would cause the failure are types thatwould be cast to unsigned .net types, including handles. A new fix has been developed: ECN-4718It will be released in the upcoming version 10.4.1 of ACUCOBOL-GT. https://portal.microfocus.com/s/article/KM000002019?language=en_US #SupportTips/KnowledgeDocss/KnowledgeDocs#SupportTips/KnowledgeDocs

Network Shares can be fast when only one user is working with a Vision file, especially when data is only being READ and not changing. This is because Windows Shares have been optimised for this kind of situation and a lot of caching happens.  AcuServer is faster when more than one user starts working with the same file. It delivers consistent results despite the number of users.  The following tests show that Network Shares are very fast with one user, but as the number of users increase, the performance of Network Shares dramatically decreases. AcuServer results are not as fast with a single user but remain consistent as the number of users increase.  NOTE: These tests may not reflect exactly how other programs works but the general trend should still apply. Concurrent tests should be performed with other programs/setups to see how AcuServer compares to Network Shares as numbers of users increase.  Tests done with AcuCOBOL-GT extend 10.4.0 on Window

Environment Visual COBOL for Visual Studio 2019 V7.0 Patch Update 1 Problem How can I call a native .DLL written in COBOL or some other language from a managed .NET COBOL application? Resolution The attached zip file contains a Visual Studio solution with a native COBOL project called testpinvoke and a managed .NET COBOL project called ManClient.Open the solution testpinvoke.sln in Visual Studio and Rebuild Solution. Both compiled executables will be output to the debug folder of the ManClient project. ManClient is set as the Startup project so you can start debugging through it using the F11 key or by selecting Step Into from the Debug menu item. This program will demonstrate calling a native COBOL .DLL using P/Invoke in two distinct ways. The first way uses a standard COBOL CALL statement and COBOL data types. The second way uses a C# style P/Invoke using the DLLImport attribute in order to create a

Can we maintain MF COBOL 5.1.12 version running on Redhat 7.2 to Redhat 8.2 without upgrade the MF COBOL?.

Can we maintain MF COBOL 5.1.12 version running on Redhat 7.2 to Redhat 8.2 without upgrade the MF COBOL?.