Rocket® COBOL

[Migrated content. Thread originally posted on 23 July 2008]I have looked at the forums and have tried their suggestions by I cannot send an email with an attachment, from my program. Here is the code I haveIn Working Storage01 EMAIL-HANDLE USAGE HANDLE OF SMTP. (The DEF file for the SMTP object is compiled into my program)01 ATTACH-HANDLE USAGE HANDLE OF Attachment.Then in the code I am modifying the EMAIL-HANDLE with the normal email info, address, subject, message, importance, etc. Then before the codeMODIFY EMAIL-HANDLE @RaiseError(0), @SendEmail().I have INQUIRE EMAIL-HANDLE @Attachments IN ATTACH-HANDLE.MODIFY ATTACH-HANDLE @AttachmentName = ATTACH-NAME (which is the path and file name of the document that I want to attach to the email)The email sends, but there is no attachment. I have tried different properties, methods and events, but I cannot seem to get the file to attach to the email. (I have tried using @FilePath, @Attachments. There is no @Add in

A simple Visual COBOL 5.0 (VS 2017) Windows Forms program ... which has a datetimepicker control ... (which has a tag property) ... if you try to reference and test the tag value with  something like this:if dateTimePicker1::Tag = "1"    invoke type MessageBox::Show("dateTimePicker1::Tag = 1")else    invoke type MessageBox::Show("dateTimePicker1::Tag NOT = 1")end-if.... you get a compilation error "COBCH0888:  Illegal comparison for this type".This compiles cleanly with Visual COBOL 2.2 (VS 2013).Please advise.Thanks.

We have entry fields within a screen section:03 ef1 ENTRY-FIELD USING DB-SUB-TOTALCOLOR WS-COLOR-1 READ-ONLY, CENTER,COL 13, SIZE 7, LINES 0.75, 3-D.COMPUTE WS-COLOR-1 = BCKGRND-BRIGHT-CYAN BRIGHT-BLUE.The colours are defined in acucobol.def. In version 8 runtime, we get correct display of the fields, where the background is bright cyan.In version 9 and 10, however, we get a grey background in the entry fiield, regardless of how I try to define the colour.  The foreground colour changes based on specification but it seems the background colour is always ignored.We've tried using a configuration file with WIN32-NATIVECTLS ON and without, with no difference.  We've tried using the COLOR option in the screen-section (as above) and using MODIFY to modify the control with a new colour after displayed, all with the same result.Is this known difference in behaviour from version 8 to 9/10, and is there a way to get the same behaviour we had in version 8?ThanksTonyOMICS

I want to include a table according to the values ​​loaded in the cells.According to the macro generated in Excel, the instructions are:Range ("B33"). SelectActiveSheet.Shapes.AddChart.SelectActiveChart.ChartType = xlColumnClusteredActiveChart.ChartStyle = 4ActiveChart.ClearToMatchStyleActiveChart.SetSourceData Source: = Range ("B21: D27") If you transform the instructions to acucobolwould:        01 excel-objects.           03 hexcelapp handle of application of excel.           03 hexcebook handle of workbook of excel.           03 hexcelsheet handle of worksheet of excel.           03 hrango handle of range of excel.           03 hchartobject HANDLE

I already found the example here on how to open a csv file into a new excel workbook. I did all the formatting I needed and now I need to add(import) another csv file into the same excel workbook, but on a different (new) sheet. I can't figure out how to do it.Here is the code I found here for the first worksheet. It works.set ExcelObject to new type Microsoft.Office.Interop.Excel.Applicationset ExcelObject::Visible to trueset WorkBooksCollection to ExcelObject::Workbooks*> Open Fileset Workbook to WorkBooksCollection::Open(WS-CSVFILE,type Type::Missing,type Type::Missing,2,type Type::Missing,type Type::Missing,type Type::Missing,type Type::Missing,",",type Type::Missing,type Type::Missing,type Type::Missing,type Type::Missing,type Type::Missing,type Type::Missing)set Worksheets to Workbook::Worksheetsset Worksheet to Worksheets[ws-wkst-name] as type _Worksheet.*> (did all my formatting here)*> saveinvoke WorkSheet::SaveAs(WS-XLSFILE, type XlFileFormat::xlExcel7

I currently have a rich textbox control on my Windows Form which allows the user to overwrite text when the Insert Key is pressed.  Is there a way to trigger the insert key control so that the user does not have to manually hit the insert key in order to overwrite text? I looked at the following link:  https://docs.microsoft.com/en-us/dotnet/framework/winforms/how-to-simulate-mouse-and-keyboard-events-in-code The C# code to accomplish this is :private void Form1_DoubleClick(object sender, EventArgs e){    SendKeys.Send("{INSERT}");} In Managed COBOL I tried the following when the form loads:set self::System.Windows.Forms.SendKey("INSERT") I also tried the same code for the control as follows:set rchTextBox1::KeyUp to type System.Windows.Forms.SendKey("INSERT") Neither code compiles as they give me errors.

Has anyone noticed a performance degredation when running identical systems on identical hardware with the only difference being Windows server 2012 or 2016?This is in a remote desktop environment but just one person logged in running 1 (9.2.0) Acucobol-GT runtime.2016 is slower, in some cases when on a virtual platform by 50%.I realise the "answer" will be to upgrade to the latest Acu version, but are there any known workarounds to speed it up?Just had the scenario where an old VMware server was replaced with a shiny new one, bags of RAM, better quad core Xeon CPU, and the same system is running slower than the previous one. Must be a 2016/Acu interoperability thing as the old one on 2012 is faster than the new one :(

I just installed Visual Cobol for Visual Studio Personal Edition and am using it with MS Visual Studio Community 2019 (v16.2.3).  The first thing I did was download and start going through the COBOLClass_Studio.pdf from the MF website to learn how to use this version of COBOL.  On page 22, it instructs me to "Open the solution 02_01_Division_Example.sln from the folder:C:\\COBOLClass\\Projects\\02_01_Division_Example".  However, when I do this, the Solution Explorer window shows "02_01_Division_Example (incompatible)" and below that it says "The application is not installed".  I'm unable to continue with the instructions in the pdf.  I also tried one of the other example projects provided with the same results.  Is there an installation problem?  How do I resolve this?

When we highlight a data entry field with a number in it and perform COPY ie ctrl\\insert the field content displays as 2 chinese characters. It did not do this with earlier versions of acucobol

Hello, I had to restore fully restore a server running RM/COBOL, I have looked at the different KB articles regarding error 508 which seems to be an unauthorized copy. This is on server 2003. Also when I attempt to launch the program it returns with a terminated error code 250./cobol/rmcobol/w/wikiid-123/25102/how-do-i-resolve-error-invoking-unauthorized-copy-loc-508-on-windows-vista-and-above/cobol/rmcobol/w/wikiid-123/17809/how-do-i-manually-install-the-rm-cobol-use-count-service-on-vista (I don't even see the rmucs in the installation directory, I have rmucutil.exe which shows 0 users using it in the runtime details) As this program was installed well before my time, I have tried everything in the documentation I have found on the forums with no luck. 

Running ACuGt 10.1 under Citrix app on Server 2016Our application is fired up and the listbox displays ok. Logoff and log back in again and the listbox entries are not visible unless the row is highlighted. At that point the row background becomes BLUE and the TEXT is WHITE and visible.My feeling is that having selected a row the color is being retained as WHITE instead of black .... when the screen is next displayed and the listbox presented we are looking at WHITE ON WHITEHave you seen this issue?Using the cursor we can see that the listbox entries are present and they appear row by row.

Dylog Italia S.p.A. azienda leader nel settore dei software gestionali, proprietaria della Gruppo Buffetti S.p.A e di altre aziende prestigiose, ricerca analisti/programmatori per analisi, manutenzione e sviluppo di proprio software gestionale di gestione aziendale (utilizzato da aziende commerciali, produttive e di servizi) e di gestione fiscale (utilizzato da studi di commercialisti).Ricerchiamo uno Sviluppatore in AcuCobol per la nostra sede di Milano.E’ indispensabile:• Esperienza già maturata nella programmazione ACUCOBOL in ambito gestionale per almeno 5 anni• Conoscenza del sistema operativo Microsoft WindowsE' apprezzata la conoscenza di:• Microsoft SQL Server e Transact-SQL• XML• Crystal ReportSono requisiti preferenziali:• conoscenza della lingua inglese tecnicoSede di lavoro: MilanoOrario di lavoro: tempo pieno.Se interessati, inviare il CV all'indirizzo selezione.personale@dylog.it

Where do I report bugs and such? I am using Visual COBOL for Eclipse and I think I found a bug related to files formatting when the "format on save" option is enabled.  If you save and there is nothing to format, i.e. the file is conforming to the format settings then it will report a NullPointerException

Does anyone know If you can use Bitbucket to store RM\\COBOL programs?  Wanted to back-up my code and COBs and wasn't sure if the COBs would get corrupted or not....

Hi together,we migrated our project from NetExpress to Visual Studio. While debugging our solution, we're now getting this error message:An unhandled exception ('COBOL runtime error code: 173') occured in cblxecwm.exe [13572].Can anyone help us, to find a solution for this problem?

I have a masked amount field in Windows Form as follows:“9999999.99” (_______.__) which would look like:1234567.89 When I launch the form, the cursor starts on the first position on the left which would be the number 1. I would like the cursor’s position to start on the first position on the right where the 9 is. It would be easier for the user to start typing from right to left as the amount field is more likely to be in 100’s position (e.g. $567.89). If the cursor’s position starts on the left, the user is forced to use the arrow key to get to the 100’s position (where the number 5 begins). I have tried the following: set maskedTextBox1::SelectionStart to 8. But this does not work as the “SelectionStart” keeps defaulting to 0. Manipulating the cursor position in C# is as follows:Cursor.Position = new Point(Cursor.Position.X - 50, Cursor.Position.Y - 50); I tried a similar command as follows:set maskedTextBox1::Cursor to new System.Drawing.Point(50, 50).This comman

Hi,I am trying to get back into COBOL and Mainframes -- for those who knows me, I am alive, and I am back! -- , it's been a while since I used Visual COBOL, I remember a few years back there was an Enterprise Edition/Suite that came with a lot of tools that would run CICS, connect to mainframe, a 3270 emulator, etc.What's the lay of the land today? and has there been any significant updates to the OO side of COBOL? Does MF COBOL support the most recent updates in the COBOL compiler, and new Syntax for JSON, Message Queues etc.Thanks

I am trying to align the text in a text box to the right. I realize I can just set the text align property to the right on the form but I want to be able to do this in my code. The C# command istextBox1.TextAlign = HorizontalAlignment.Right; I have tried the following:set txt-TOTAL-BALANCE::TextAlign to new type System.Windows.Forms.HorizontalAlignment But this does not specify left, center or right. I have also tried set txt-TOTAL-BALANCE::TextAlign to new type System.Windows.Forms.TextBox, TextAlign(Right) But this code is incorrect and will not compile.

We have several clients that we support and they are all currently running COBOL Server 2.2.One of them is upgrading their server to Windows Server 2019 and I need to upgrade them to COBOL Server 5.0.I can't install Visual COBOL for Visual Studio 2017 (5.0) on my development laptop unless I uninstall 2.2 first. BUT.... I still need to support my clients that will remain on 2.2.We will eventually be upgrading all clients to 5.0, but I need to support both versions for the time being... how do I accomplish this?We only run native code compiled to INTs. We do not run any managed code.

Customers using git have asked this several times. To see git in your navigation bar, you need to customize you current perspective. Window>Perspective>Customise Perspective  Action Set Avalaibilty tab. tick Git and tick Git Navagation Actions    

I'm pretty sure I already know the answer to this, but for the record ...My understanding is that Microsoft allows different versions of Visual Studio (for example VS 2013 and VS 2019) to coexist "side-by-side" on the same development PC.  And even different versions of .Net to coexist on the same server.My question(s):1) Does Micro Focus allow different versions of Visual COBOL to coexist on the same development PC?2) And different versions of COBOL Server to coexist on the same hardware server or same virtual server?Thanks 

Hi, I tried AcuToWeb 10.1 a couple of years ago and had several problems that couldn't be resolved.  I just recently tried version 10.2 and was very impressed with the progress.  The scroll bars now show up where they are needed and the visual aspects are nearly identical to the thin client.  However, I'm still having two problems. The first is that, at the bottom of many of our screens, is a Status-Bar element.  When the information in it is updated, it works fine.  But whenever the vertical scroll bar is used, the Status-Bar element immediately disappears (or vertically shrinks to a horizontal line; I can't tell for sure if it's there or if there's just a rendering artifact). The second is that we open a second screen (in the thin client it is a new window) to display our help information.  In AcuToWeb, this new screen is completely blank.  I've tried using the debugger and it looks like it's trying to add the text to the window, but nothing is disp

Created On:  04 March 2011 Problem: The installation of RM/COBOL Development or Runtime System fails with the following error message:"This MSXML 6.0 package is not supported on the current processor type."The RM/COBOL Runtime and Development System installations try to install the 32-bit version of the MSXML 6.0 redistributable.  This redistributable package is not compatible with some 64-bit versions of Windows. Resolution: You can manually install the MSXML 6.0 64-bit redistributable package on your target machine.  This will allow the RM/COBOL Runtime or Development System to complete their installation procedure properly.You can obtain the MSXML 6.0 64-bit redistributable (msxml6_x64.msi) from Microsoft:http://www.microsoft.com/downloads/en/details.aspx?FamilyID=993c0bcf-3bcf-4009-be21-27e85e1857b1 Incident #2505375 Old KB# 33616

Hi all,We are testing a sample program with RMNet - XML functionalities, program compiles fine, but when running we are getting error:XMLSetVersion: Program missing or inaccessible Our version is 10.0.1 on Windows 10, error is generated just after the "XML INITIALIZE" command.Thank you.

I spend three days trying to solve this last week and was unsuccessful. I currently have a Windows Form text box in which the user types the numbers 123456789. I want to move that data into a numeric field with the value of: 1234567.89 where the last two numbers are to be placed to the right of the decimal point. What I have is the following:working-storage section.01 TOTAL-BALANCE 9(7)V99.method-id txt-TOTAL-BALANCE_Text_Changed final private.procedure division using by value sender as object e as type System.EventArgs.set TOTAL-BALANCE  to binary-double unsigned::Parse(txt-TOTAL-BALANCE::Text)end method.The above command, however, gives me a TOTAL-BALANCE  with a value of 123456789.00. I have tried a couple of ways of getting the last two digits in the decimal places but I cannot seem to be successful. I was reading a similar thread located at :community.microfocus.com/.../1731883.I tried some of the suggestion in this thread but could not get my code to comp