Skip to main content

Rocket® COBOL

Browse all forums dedicated to the Rocket® COBOL product family.

10000+ Discussions
Alexander Castro
Alexander CastroParticipating Frequently
 Rocket® Visual COBOL®
Removing Carriage Return from Rich TextBox In WinForm

I have a rich multi-line text box with the string “Testing field. ENTER”.  If I press the enter key (carriage return) before the word “ENTER”, it adds a “/n”,  which I believe stands for new line or end of line, to the text property of the rich text box which then looks like follows: "Testing Field. \\nENTER."When I move the text string from my rich text box into a string variable, it moves the “\\n” which give me problems when I attempt to do data manipulation with the string variable.  I cannot remove the “\\n” programmatically in the code because it is invisible to the code. I can only see it when a view the text property of my rich text box during runtime.I should also mention that after pressing the enter key before the word “ENTER”, it configures the ‘Lines’ property of the rich text box as follows:Lines  [0]  “Testing Field.”  [1] “ENTER” I want to be able to move both lines [0] and [1] as a single string into a string variable a

104
Alexander Castro
A
Anonymous
 Rocket® ACUCOBOL®
I am getting error message as "Server did not recognize the value of HTTP Header SOAPAction"

Hi MicroFocus Team,I am getting error message as "Server did not recognize the value of HTTP Header SOAPAction"I have attached my xml and cobol file below, any idea why i am getting above error.Identification division.Program-id. Test.Data division.Working-storage section.01 Doc-response.02 Doc-token pic X(80).01 WS-SOAP-ENVELOP-INPUT.02 FILLER PIC X(26) value '<soap:Envelope xmlns:soap='.02 FILLER PIC X(44) value'"http://schemas.xmlsoap.org/soap/envelope/" '.02 FILLER PIC X(10) value 'xmlns:xsi='.02 FILLER PIC X(43) value'"http://www.w3.org/2001/XMLSchema-instance"'.02 FILLER PIC X(1) value space.02 FILLER PIC X(10) value 'xmlns:xsd='.02 FILLER PIC X(35) value'"http://www.w3.org/2001/XMLSchema">'.02 FILLER PIC X(31) VALUE '<soap:Header><AuthTicket xmlns='.02 filler pic x(39) value'"'.">harlandfs/.../"'.02 FILLER PIC X(21) VALUE '<Authentic

122
Martin Turner
A
Anonymous
 Rocket® ACUCOBOL®
Error - "Bad Request - Invalid Content Length" in Acucobol XML IMPORT TEXT logic.

Hi Friends,I got error as "Bad Request - Invalid Content Length" error when logic execute XML IMPORT TEXT.I attached below AuthResponse.xml which was generated in my directory...  Please advise me how do i resolve this?<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN""http://www.w3.org/TR/html4/strict.dtd"><HTML><HEAD><TITLE>st</TITLE><META HTTP-EQUIV="Content-Type" Content="text/html; charset=us-ascii"></HEAD><BODY><h2>Bad Request - Invalid Content Length</h2><hr><p>HTTP Error 400. There is an invalid content length or chunk length in the request.</p></BODY></HTML> Attached my full program below. I am not sure whether i am doing it correct. My requirement is to pass the user name and password to the web service thru variable  'Doc-Authentication' and i should get response into variable Doc-response from webservice. Iden

416
A
A
Anonymous
 Rocket® Visual COBOL®
A
Anonymous
 Rocket® ACUCOBOL®
A
Anonymous
 Rocket® ACUCOBOL®
XML error 28 is confusing!

Below code I should get response from web service. But, I got runtime error as """""Error : 28[34]  -in function:Load document"""""XML IMPORT TEXT        Doc-response        response-payload        response-len        "Doc-response"if not XML-OK go to z. I knew below description ... But, I could not think what could be issue. doc-response.xml file is getting generated at the time run time.... Or program expecting doc-response.xml should be created on my own? i am confused lot!!!! my requirement is to pass 28Error - in function: LoadDocumentAn error was detected while trying to load an XML document. This normally means that there was a problem locating the document (either the document does not exist or there is a problem with permissions). This error may also occur if the input document contains an XML header but no elements.&nb

70
A
A
Anonymous
 Rocket® COBOL Analyzer
***New*** COBOL Analyzer - Now on Azure

Hello to all COBOL Analyzer users, As you are part of this community, I want to share some exciting news with you today before it is promoted to the general public.  We now have a new offering on the Azure marketplace. This offering allows you to create a virtual machine on Azure that have the latest version of COBOL Analyzer installed and setup for evaluation. The created machine is preloaded with a sample application which means you can try it immediately and also use the tutorials we have here to learn how to use the product without the need to install or setup anything. Go to this page for more information on how to take advantage of this new offering. Yes, we also have the same offering for Visual COBOL! For a full walkthrough on how to get this all to work, read this. Any questions or feedback, feel free to post here in the community and we’ll help you. Thanks, Guy Sofer Product Manager COBOL Analyzer#Trial#Azure#codeanalysis#COBOL#CobolAnalyzer#Cloud#ApplicationIntelligence

60
A
A
Anonymous
 Rocket® ACUCOBOL®
XML-OK error

Below is a program, that i am getting XML-OK value as "30" while execution. Any advise please? my requirement is to pass username and password to web service and return response as token. I am trying web service first time in acucobolgt cobol.Procedure division.main.stop ' 'XML INITIALIZE.XML EXPORT FILEDoc-Authentication"Authrequest.xml""Doc-Authentication""AuthrequestF2C.xsl".if not XML-OK go to z. MY full program below.=============================Identification division.Program-id. Test.Data division.Working-storage section.01 Doc-Authentication.02 Doc-User Pic X(13) value 'Tester'.02 Doc-Pwd Pic X(09) value '123456'.01 Doc-response.02 Doc-token pic X(80).01 request-payload usage pointer.01 response-payload usage pointer.01 response-status pic 9(3) value zero.01 response-status-2 pic 9(3) value zero.01 response-len pic s9(4).01 request-len pic s9(4).01 a-single-char pic x.copy "lixmlall.cpy".01 Desired-S

61
Martin Turner
A
Anonymous
 Rocket® ACUCOBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
How to retrieve a cell value from a dataset

I am trying to use Visual COBOL for Visual Studio to call a SOAP webservices method to return multiple attribution of an item. The webservices method takes in a string value (item number), and returns a dataset (dsItemDetails). It is a very simple dataset, only one table in the dataset, and only one row in the return table, two columns in the return row, they are (item number), and (item description).My questions is: how can I move the item description value in the return row to a string variable (strLableName) in Visual COBOL?I knew the webservices call worked, I checked the row count in the returned dataset - datatable. It had a value of 1.The other problem I had was I could not get the DataSet Visualizer to work in debug. Was it suppose to work in Visual COBOL for Visual Studio? It always work when I coded in Visual Basic with my Visual Studio settings.Below are the codes from my test program:01 wsinquiry type WSName.RXORDWS004 value new type WSName.RXORDWS004.01 inItemNbr pic x(11)

76
Dominique Sacre
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
A
Anonymous
 Rocket® Visual COBOL®
A
Anonymous
 Rocket® Visual COBOL®
A
Anonymous
 Rocket® Visual COBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® ACUCOBOL®
[archive] Attaching docs to email using SMTP

[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

197
Dominique Sacre
A
Anonymous
 Rocket® Visual COBOL®
A
Anonymous
 Rocket® ACUCOBOL®
Background colour not respected in version 9 or 10

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

42
A
A
Anonymous
 Rocket® ACUCOBOL®
chart in excel

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

10
A
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
Excel - Adding another csv file as a new worksheet in an already open or existing workbook

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

12
Dominique Sacre
Alexander Castro
Alexander CastroParticipating Frequently
 Rocket® Visual COBOL®
Triggering Keyboard Events Programmatically in WinForm

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.

124
Alexander Castro
A
Anonymous
 Rocket® ACUCOBOL®
Acucobol 9 and Performance on 2016 and 2012 server

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 :(

167
Stephen Hjerpe
Dominique Sacre
Dominique SacreRocketeer
 Rocket® Visual COBOL®
COBOLClass sample project not working

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?

108
Chris Glazier
A
Anonymous
 Rocket® ACUCOBOL®
Dominique Sacre
Dominique SacreRocketeer
 Rocket® RM/COBOL
Windows Function Loc Error 508

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. 

144
Dominique Sacre
A
Anonymous
 Rocket® ACUCOBOL®
Show more activity

Recent badge winners: Your name could be next!

Explore all badges
Terms & ConditionsAccessibility statement