Rocket® COBOL

In the 2017 Visual Studio with COBOL processing I have not been able to find a good solution to process numeric data entered in the gridview. I'll describe a situation. With a three byte field described in gridview as numeric (or no formatting) you can't target the data entered in the gridview to a numeric field such as "pic 999". Currently I use "pic XXX" and have to accommodate all the variations of how the data might be input. Anybody have a simple solution?

Hi all. We use acucobol.CVM class from wrunnet.dll to call COBOL program from .NET module.   Unfortunately we get FALSE from the Initialize() method and we do not undestand why.  Is there a way to get a more detailed error code/message? Some kind of log or something like that ?   Thank you -- Davide Giudici#AcuCobol#Interoperating#.net

How do we identify which table columns called TablId and/or TablNum equates to in Aculocks1

 w/o using environment variables or cfg för extfh. I try x"91" 46 null insertion and tab function 48, but there is still replaced by space when i examine (in hex view). How to properli read a ls file ant retaing tabs?#tab

Is there a way to create a COBOL sub-program (procedural) that accepts a variable number of arguments similar to the "C" va_start or "Java" ... or "C#" params keyword.   Thanks  

I will be away for a while and would like to be able to work on my Laptop.Is it in order to install the version of PE that I have on my Laptop as well?I will only ever be working on either the PC or Laptop and not both simultaneously.

Has anyone used the Connect... Alter Authorization construct to change a password while connecting an to an Oracle database? The Oracle Pro COBOL documentation specifies that it can be used to change a password, but I have been unsuccessful in my efforts.  When I attempt it, I get an Oracle error 988, which is an invalid password error.  I have tried with Oracle 11. Thanks for your help,Aubrey

I'm following the tutorial to call unmanaged COBOL code from managed COBOL, but I get this exception: "System.AccessViolationException". What is causing it?

Hi, Errors 177 and 178 occur when transferring project from Net Express 5.1 to Visual Cobol 3.0 Error    177    COBES0100 : Statement incompatible with BEHAVIOR setting    ELS004XI.cbl[ELS004XZ.CPY]    40    21    OVLISM_lbr Error    178    COBES0100 : Statement incompatible with BEHAVIOR setting    ELS004XI.cbl[ELS004XZ.CPY]    43    21    OVLISM_lbr   these errors will cause the following commands:         *      EXEC SQL       *        SET SCROLLOPTION DYNAMIC       *      END-EXEC       *      EXEC SQL       *        SET CO

Problem: The Projmake utility in Net Express 5.1 does not handle Net Express 3.1 (.app) project files. Although it reports "Rebuild complete" for each build type and creates the build type folders (DEBUG and/or RELEASE), the compile and link did not actually take place, and no files were generated. Here is what the output looks like: S:\\Test>projmake -buildall NX31.APP Micro Focus Net Express - Project Make Utility - Version IDE_5-1-85 Copyright (C) Micro Focus IP Development Limited 1984-2011. All rights reserved. Processing Generic Debug Build Starting rebuild Rebuild complete Processing Generic Release Build Starting rebuild Rebuild complete Resolution: The Net Express 3.1 project file needs to be converted in Net Express 5.1. This is done by opening the project file in Net Express 5.1, which converts the file by creating a new .APP file and saving the old one with the .OLD extension. The new .APP file can then be used with the ProjMake utility in Net Expres

Problem: What is the equivalent of the wholock utility available on Linux/UNIX systems with Server Express and Visual COBOL in Windows? The wholock utility is used on Linux/UNIX systems to report what process has a lock on a file. Resolution: The wholock utility is not available in Net Express and Visual COBOL on Windows, but there are equivalent third party tools, such as Process Explorer, Process Monitor, WhoLockMe, etc. For instance, here are the steps to determine the process that has a lock on a file with Process Explorer, which is a free Microsoft utility: Launch Process Explorer Hit Ctrl F (or select Find a Handle or DLL under the Find menu) Enter the full name or part of the name of the data file Click Search from the Search dialog It should report the name of the process and its Process ID in the search result.

Problem: The Record Layout Editor within the Classic Data File Tools enables the creation of structure files (.str) for use when viewing and editing records in a structured or formatted way within the Data File Editor. Typically a Record Layout File is created within a Visual COBOL project by right-clicking on the source file name within the solution explorer that contains the Data Division information you require, and selecting Create Record Layout File. (Note: The program must be compiled and a .idy file must exist).However if there are several data files that require layouts, this process must be repeated for each file. Resolution: Note: DFSTRCL creates DEFAULT record layout (.str) files, if conditional record layout files are required use the New Record Layout Wizard from  within the Data File Editor The Data File Structure Command Line (DFSTRCL) was added in Visual COBOL V2.3. The utility enables you to create DEFAULT record layout (.str) files from .idy files dire

i got this method in Micro Focus\\Net Express\\Base\\DEMO\\COMDEMOS\\EXCEL\\MSEXCEL.CPY:       *> Method: "Copy".      *> 01 Before-CBL                  VARIANT.      *> 01 After-CBL                   VARIANT.      *> invoke using       *>       by value Before-CBL     *> [IN][OPTIONAL]      *>       by value After-CBL      *> [IN][OPTIONAL]. but i don't know how to use it.

Im having a problem with one line below, can anyone advise ???? the problem line is  set worksheet = workbook::ActiveSheet from the c# workbook.ActiveSheet     * // Creating a Excel object. * Microsoft.Office.Interop.Excel._Application excel = new Microsoft.Office.Interop.Excel.Application(); * Microsoft.Office.Interop.Excel._Workbook workbook = excel.Workbooks.Add(Type.Missing); * Microsoft.Office.Interop.Excel._Worksheet worksheet = null; declare excel as type Microsoft.Office.Interop.Excel._Application = new type Microsoft.Office.Interop.Excel.Application declare workbook as type Microsoft.Office.Interop.Excel._Workbook = excel::Workbooks::Add(type System.Type::Missing) declare worksheet as type Microsoft.Office.Interop.Excel._Worksheet = null try * worksheet = workbook.ActiveSheet set worksheet = workbook::ActiveSheet * worksheet.Name = "ExportedFromDatGrid" set worksheet::Name = "ExportedFromDataGrid" * int cellRowIndex = 1; declare cellRowI

We are trying to send email by SMTP and came across a code by David Sands called CDODemo. CDODemo worked flawlessly.  Problem with CDODemo is in the exception handling. there is nothing after the statement:  invoke    ws-cdomess   "send" that is to show a successful execution. We need to use an error number or successful code to test.  Eventually, this is to enable a web cgi program to display the appropriate message. We looked inside CDO2000.cpy and did not get any elaboration on the "send" function.  #CDOSysonerrorexceptionNetExpress5.1

I'm trying to convert a C # code that signer a xml file to vc2010 2.2. NET. I've searched the forum but have not found any examples of signature xml file.Attached the code in C # and running the code in VC I'm trying to create. Someone from the forum could help me? VC 2010 2.2 .NET S.O. XP SP3

I want to insert Images into an EXCEL Worksheet from an NETEXPRESS 5.1 program. I found the instruction ActiveSheet.Pictures.Insert (C:\\Users.MyPicture.JPG").select  but this is for othes languages But which ist the equivalent series of INVOKES in an Netexpress 5.1 program. Is there an demo or tutorial? Thanks for any help.

We are using Visual COBOL on a Red Hat Linux Machine. Our programs are text based UI. We have been asked to start using a signature file on our checks. Can someone tell us how you would do this? What kind of code to use and what format the signature should be in? We use cups to print.#VisualCOBOL#Linux#nativecode

I need to compile my COBOL file with Informix Embedded SQL, but preprocessor fails because of this error: CSQL-F-012: INFORMIXDIR must be set for Informix Support I'm using Visual Studio 2017. The variable is correctly set in Windows' environment variables. The preprocessor is "Oracle Pro*COBOL(COBSQL), with "COBSQLTYPE" directive set to INFORMIX-NEW. How can I solve the problem?#VisualStudio#Informix#VisualCOBOL#esql

Hi, Is there a quick (.NET) way to output data from a Winform Datagridview "straight" into Excel? Many thanks Neil.

i have  a problem to run acucobl 5.2.1 when i  migrate from 32 bit linux to 64 bit linux  i gor message segmentation fault.

Problem: What does ACUCOBOL-GT provide in order to support the new EU regulation about GDPR ? Resolution: ACUCOBOL-GT does not offer any specific functionality regarding the new General Data Protection Regulation (GDPR) and no library routine about encrypting data in general. VISION indexed file system can be encrypted at the beginning, by setting the following clause directly in the SELECT of the files themselves:SELECT .... WITH ENCRYPTION Existing indexed files can be converted by adding encryption: Rebuilding FilesOption e of the vutil tool (http://bit.ly/2JH4UhA) This level of encryption is quite low, just above the ROT-13 code. It is useful to avoid an occasional display of data.However, it is not recommended if the data files are going to contain significant data, such as passwords or fiscal/bank data (for example, credit card numbers). If a higher level of encryption is required, the advice is to use third-party tools.For example, "mcrypt" (http://bit.ly/2v

Hi, I'm new here and have a question for the older COBOL developers among us :) I have an old version of Micro Focus COBOL, it's version 4.0 for Windows 95/NT, including the License Key dongle which you have to put on the parallel port of your computer. Recently, my old computer died, and I'm trying to install this COBOL compiler on another system with Windows XP. When running SETUP, it results in an error:Execution Error, file "LOG", error code 114, pc=0, call=21, seq=0 (signal=11) While searching on the internet for a clue, I read that I Micro Focus / Merant made a patch to make an installation possible after Y2K. It should also work on Windows XP. The patch file is called fix2kset.exe, and in the past it could be downloaded from the MF/Merant ftp site, but not anymore. It's nowhere to find. Can anyone help me finding this particular patch file? Any help is much appreciated! Kind Regards, Peter#Installation#COBOL

Hello, I just wanted to throw this out there and see if any other users are having similar issues.  Our applications are on the 10.1.0 and after the latest windows update quite a few of our customers on Windows 10 are getting 3707 errors [user does not have appropriate access permissions to the file (open)] when we are creating some temporary files.  The odd thing is that it is not happening every time, they go back into the same process and everything works fine.  Some of these routines that create the temporary files have been in place for a very long time and have never had problems till this week.  We have not been able to duplicate the problem yet, so I just wanted to see if anyone else was having the same problem and if they have been able to solve it.  It seems like the last update has messed something up, just not sure what yet.   Thanks, Scott Meiners

I have a cursor for update in microfocus, with connection to a database of db2.   In the readings of the fetch, always read a single row, but when I'm going to do the delete / update of this with a where current of the value of the SQLCODE is a -100 and N rows are deleted or modified, respectively, instead of the corresponding current . Any solution? Thanks.   For example:   $set sql(CHECKSINGLETON) $set constant driverClass "com.ibm.db2.jcc.DB2Driver"$set constant databaseURL "jdbc:db2://localhost:50000/sample:retrieveMessagesFromServerOnGetMessage=true;user=MFADMIN;password=MicroFocus42;"IDENTIFICATION DIVISION. *-----------------------. PROGRAM-ID. ATB984. AUTHOR. AADATE-WRITTEN. 20180412DATE-COMPILED. DATA DIVISION. *-------------. WORKING-STORAGE SECTION. *-----------------------. 01 FILLER PIC X(25) VALUE 'COMIENZO WORKING ATB984'. 01 NOMBRE-MODULO PIC X(08) VALUE 'ATB984 '. 01 ATC990 PIC X(08) VALUE 'ATC990 &#3