Rocket® COBOL

Hi, the KeyDown event with one key: if e:Key = type Key:G then... (or if e:SystemKey= type Key:LeftAlt then...)   works well in Visual Cobol.   How can i handle a key combination like LeftAlt U in Visual Cobol?     Thanks,   Guenter  

Can I  use cbl_debugbreak in NetExpress COBOl which is called by VB.net code?  I need to be able to debug from the VB into the cobol and then back to the VB.  I have put the call cbl_debugbreak in the cobol program and recompiled it, but when I debug in VB.net, it does not bring the COBOL up.#cbl_debugbreak

Hi, We are receiving an XML Error 68 but the error list only convers until error 67. The error happens in an XMLExportFile:            CALL "XMLInitialize" GIVING XML-STATUS.           CALL "XMLAttributes" GIVING XML-STATUS               USING XML-ATTRENABLEV.           CALL "XMLAllOccurrences" GIVING XML-STATUS               USING XML-ALLOCCURENABLEV.           CALL "XMLExportFile" GIVING XML-STATUS USING               WSSAMPLE-SOAPDATA               "../wssample.wsdl"       &nbs

I search a report tool for RM/Cobol with the following features: - insert pictures, frames, circles, lines, ... - print bar code - image file or pdf file as a background - print preview - dispatch e-mail - ...   Thanks for your help and suggestions Micha#RMCOBOL

Hello, My name Lucas Campos I'm student at Fatec in Brazil and I've some problem with authentication license, I already tried used automatic and manual but both have problem "MG00006: Unable to authorize the request", I try send the email too, but nothing. What did I do wrong ? Thanks for your answers.  

Just FYI.  Learning about routers, I ran across Dijkstra’s famous algorithm, and in researching it I found that the guy was a real COBOL hater. His words, circa 1975, were something like, “The use of COBOL cripples the mind; its teaching should, therefore, be regarded as a criminal offence.”  So naturally I had to write a program which would execute his algorithm in COBOL!! I drew on paper an ad hoc network of about 25 interconnected nodes, with a couple stubs, and transcribed the connections and associated costs into working storage. Took me two solid tries and some debugging, and sure it could be optimized, but was a fun and educational effort. The trickiest part was keeping track of the various subscripts of several tables. The way I did it, one table had two different subscripts in action at the same time.  Expression of satisfaction. I'm thinking of doing a spanning tree protocol example in COBOL next.

His there a way to call w$menu with the right click on the mouse!

Hi, In one of our Cobol programs (compiled for .NET) we have a call to the WINAPI memcmp function. This call is working properly and gives the correct results. As we are now experimenting with multi-threading our application, we ran into a problem with this call. The second thread that executes throws an exception on the WINAPI "memcmp" call: System.ArgumentException: Duplicate dynamic module name within an assembly.ERROR 2017-03-06 13:45:54 - D01WN00-1      :    at System.Reflection.Emit.AssemblyBuilderData.CheckNameConflict(String strNewModuleName)ERROR 2017-03-06 13:45:54 - D01WN00-1      :    at System.Reflection.Emit.AssemblyBuilder.DefineDynamicModuleInternalNoLock(String name, Boolean emitSymbolInfo, StackCrawlMark& stackMark)ERROR 2017-03-06 13:45:54 - D01WN00-1      :    at System.Reflection.Emit.AssemblyBuilder.DefineDynamicModuleInternal(Strin

Can anyone pls advise how to convert below in to COBOL please https://msdn.microsoft.com/en-us/library/hh485721(v=vs.110).aspx Are there any MF samples any where that shows C# or VB.bet to MF Cobol? Thanks Neil

In Net Express while animating one could execute a DO command. Where is it in Visual COBOL? Or what is the equivalent?   Neil  

This is really more of a cobol question.  I'm calling a web service from a native cobol program that contains code that was generated by the MicroFocus tool "Generate Client from WSDL" in Visual Cobol.  In general, this is working fine.  In the generated code, there are two variables, wsc-srvc-address, which appears to be the URL of the service, and wsc-srvc-address-len, which is the length in bytes of the URL.  Right now both of the values are hard-coded.  So.... 1.  wsc-srvc-address is defined as "pic n(256) usage national."  What is "pic n," and what does "usage national" mean. 2.  How does it differ from your basic "Pic X" string? 3.  The "value" clause has an "n" in front of the value (i.e. n"http://your.basic.url").  What does the "n" do? Because my service runs on different servers, I need to have a different version of the client progra

I'm having trouble getting non-graphical .NET assemblies to work under AcuToWeb. CREATE statements that return a handle under normal circumstances return no handle under AcuToWeb. In fact, they seem to be ignored altogether, because changing the namespace to something non-existent, which would normally cause an error, has no effect. The syntax I'm using to create the control is: CREATE "@My.Assembly" NAMESPACE IS "My.Test.Namespace" CLASS-NAME IS "MyClass" HANDLE IS MY-NONGUI-HANDLE. I've also tried using the AcuToNet.dll interface, but got the CoCreate Instance Failed error. As I understand it, instantiating non-graphical .NET assemblies with CREATE is supported, so is there something I need to do differently to get it to work under AcuToWeb? Thanks. Claire

Problem: COBOL source code compiled under ACUCOBOL-GT 9.2 (or previous) allows START and READ NEXT of an empty file.The returned File Status was 10: End of file. (read next)  However when the same code is compiled under new version 10.0.0, the same logic is forced into the DECLARATIVES section with File Status 92. Resolution: This is a behavior change introduced in release 10.0.0 to fix an issue that was laying in the runtime for a long time. Here's the references to the change and a suggestion to set in the configuration file in case the old behavior is still requested after the update of the runtime. SUBJECT: DG ICOBOL file status change for READ when undefined recordChange Number: ECN-4330Type of Change: CorrectionIncidents: 2806405RPI Number: 1097532 Date: 2014-12-15Product: ACUCOBOL-GTModule: runtimeNew Version: 10.0.0 DESCRIPTION of problem or enhancement: After a failed START, leaving the file position undefined, a READ operation returned DG file status 10 rather

I have a few hundred RM files that consist of various fields (comp, signed strings, etc) I'd like to convert the files to MF format and remove all the comp fields (space is not really a concern anymore) I had a look at the utility which made all my files inaccessible. I can view the files with the Classic File Data tool but when I try to access them through a program, I get error 36 and when I run recover1 I get "corrupt KiB". If I have to write programs to convert from Rm to MF format that's fine but I'd like to hear opinions or alternative solutions to this. Thanks

moving space to a numeric field will initialize it with zeroes (compiler message: COBCH1026E Source literal is non-numeric - substituting zero). A numeric test is succesfull (which causes consequential error). Is there a directive to avoid this - I didn't find any. thanks in advance Harald

We are using WINPRINT-PRINT-BITMAP to send a image to the printer and print over the image Hies there a way to send a pdf file to the printer and then print on hit?

  I am looking for a report generator that is able to print graphics and distribute it to several clients like acubench

I'm getting a txt file but it comes in UTF8, and the accents are not being handled correctly Information comes Rua Antônio José Marques But when I put it on Form it comes RUA ANTôNIO JOSé MARQUES How can I convert to Windows 1252  ----------------------- Is it possible with this code? Encoding iso = Encoding.GetEncoding("ISO-8859-1"); Encoding utf8 = Encoding.UTF8; byte[] utfBytes = utf8.GetBytes(Message); byte[] isoBytes = Encoding.Convert(utf8, iso, utfBytes); string msg = iso.GetString(isoBytes);--------------------   Estou recebendo um arquivo txt mas vem em UTF8, e os acentos não estão sendo tratados corretamente A Informação vem Rua Antônio José Marques Mas quando coloco no Form vem RUA ANTôNIO JOSé MARQUES Como posso converter para Windows 1252

Hi , Please help on passing value from C# to Cobol using Class Type project. I have for example a declaration : 01 tmp-rec-date.   05 date-mm pic x(2).   05 date-dd pic x(2).   05 date-yy pic x(4).   How can I pass string / structured value from C# to Cobol using that declaration in Cobol. I'm getting "String cannot be converted to Microfocus.COBOL.Program.Reference". What will be the correct type declaration in C#? Please help.     Regards, jhayvi

We use the 32-bit Chilkat ActiveX controls (http://www.chilkatsoft.com) for several functions in the 32-bit Windows runtime (currently on 9.2.2 ECN-4266).  One is doing file transfers (FTP, FTPS, and SFTP).  We have been using the FTP portion for a few years.  We have a new vendor that is using SFTP.  I can use the Chilkat control to successfully Connect, AuthenticatePw, and InitializeSftp.  After these steps for SFTP, I have to open a handle for the file on the remote server, then upload the file using the handle created by the open command.  I'm not getting the handle from the open to use for the upload. From the VB example (https://www.example-code.com/vb/sftp_uploadFile.asp):Dim handle As Stringhandle = sftp.OpenFile("hamlet.xml","writeOnly","createTruncate") From the control's .def file:*[Class: @IChilkatSFtp] OpenFile      METHOD, 176, @OpenFile,         "BSTR" @remoteFilePath, TYPE 8,    &nbsp

Hi, Anybody here have MSSOAP code integration example with more than 1 input? I work with NetExpress 3.1.  

Hi!I'm sorry for my primary English. I'm running tests with multiThread. In one of the threads, I have integration with DialogSystem. An error is occurring when executing the following line:            CALL dialog-system USING Ds-Control-Block,                                     Data-Block Error Displayed: Exception 24 not trapped; The class nilobject (object reference: 00000003) Does not understand: getpanels2compatibility Hit T to terminate program. Hit any other key to continue. Exception 24 not trapped; The class nilobject (object reference: 00000003) Does not understand: iscreated Hit T to terminate program. Hit any other key to continue.                   &

I am working on a COBOL web site using Net Express 5 and Solo. For my images I want to use a web share directory "images". Solo by default has shares for cgi-bin and COBOL and has a comment "To share files, just start Windows Explorer and right click on the directory you want to share, then select "Properties" and the "Web Share" tab."  This worked for Windows XP, as Explorer gave the option to create web shares.  Under Windows 7 the only way I know to create web shares is via IIS - but there is no site for Solo, so I cannot create a web share or virtual directory.  Solo works happily without IIS on a test machine.

 I am trying Visual Cobol 2.3 after using Netexpress the first source I try to compile gets the error COBCH1505 I-O error _ IDY file this does not happen in Netexpress. I am missing a setting or something? The online documentation for the error slighty lacks a fix. All help gratefully acccepted.

Problem: The ACUCOBOL-GT runtime may show a constant increase of occupied memory, regardless of the version in use. This may be seen easily in the ACU debugger and using the "u" command. Resolution: If only the "Windows" Memory item increases, a possible cause for this unusual memory allocation is the definition of a Layout Manager handle in the Working-Storage Section of the program. When a called program contains a line like this: 77 NW-HND-LM HANDLE OF LAYOUT-MANAGER LM-RESIZE. an amount of 36 bytes circa of memory is allocated every time the program is called. This can cause a great increase of used memory when the program is called recursively in a loop, even if the Layout Manager is not used by the program itself. To stop this process, either remove the definition of the unused handle or destroy the handle itself before leaving the program: DESTROY NW-HND-LM If the allocated memory will continue to grow without reason, contact the Customer Care for a further analysis of