Rocket® COBOL

Where will I search for the keyword "24282" ?

This article addresses if a data file is used by a COBOL application, it is possible to remove it with UNIX rm command . Problem: With the UNIX command rm, you can delete a file that is used by a Micro Focus COBOL application. How can you verify the use of the data file before removing it? Resolution: The first solution is to create a script file with the Micro Focus wholock. The Micro Focus wholock command is put in $COBDIR/bin . This command displays the process that use the data file. The syntax is as follows: $COBDIR/bin/wholock {name file} Example : $COBDIR/bin/wholock /home/user1/data/FIC1 displays : Process 1232 (prog) on tty pts/2 holds 1 read and 1 write locks An example of the script file ( wholock.sh ) is attached. The second solution is to create a Language C program that verify the lock of the file and delete the file if it is possible. The Language C program is attached. cc –o rmmf rmmf.c rmmf { list of the data files} Note: When the fi

HI,   I am developing winforms using visual cobol 2.3. I did notice that hex value do not set conditional variable.   example   03 Exit-Character        PIC X(01).     88 HELP-KEY VALUE X"00".     88 UP-KEY VALUE X"01".     88 FINISH-KEY VALUE X"04".     88 CANCEL-KEY VALUE X"07".   when i move X"07" to Exit-Character, while debug it shows that Exit-Character with a value X"07" but CANCEL-KEY still shows as FALSE instead of TRUE.  

Hi all, My environment: VS 2015, VC 2.32, Windows 10 I'm creating an html page (for a report) and I'd like to show it by launching the user's default browser from my COBOL program. What's the best way to do this? Thank you, Linden

 I am searching code example to update and retrieved information on the calendar !!!! Thank you!

Now I need to download a file that is in an FTP folder, I found the routine in C # but I do not master the language.FtpWebRequest request = (FtpWebRequest)WebRequest.Create("servidor.com.br/.../logo.png"); request.Method = WebRequestMethods.Ftp.DownloadFile; request.Credentials = new NetworkCredential("usuario", "senha"); request.UsePassive = true; request.UseBinary = true; request.KeepAlive = true; FtpWebResponse response = (FtpWebResponse)request.GetResponse(); Stream responseStream = response.GetResponseStream(); byte[] buffer = new byte[2048]; FileStream newFile = new FileStream("c:\\\\wwwroot\\\\exemplos\\\\logo.png", FileMode.Create); int readCount = responseStream.Read(buffer, 0, buffer.Length); while (readCount > 0) { //Escrever o arquivo newFile.Write(buffer, 0, readCount); readCount = responseStream.Read(buffer, 0, buffer.Length); } newFile.Close(); responseStream.Close(); response.Close(); thank you  

I need to convert this FTP Folder routine to Cobol, can anyone help? Thank you! FtpWebRequest fwrr = (FtpWebRequest)FtpWebRequest.Create(new Uri("ftp://" server path)); fwrr.Credentials = new NetworkCredential(user,pass); fwrr.Method = WebRequestMethods.Ftp.ListDirectory; StreamReader srr = new StreamReader(fwrr.GetResponse().GetResponseStream()); string str = srr.ReadLine(); List<string> strList = new List<string>(); while (str != null) { strList.Add(str); //strList.Add(string.Format("ftp://{0}/{1}/{2}",server,path,str)); str = srr.ReadLine(); } foreach (var item in strList) { Console.WriteLine(item.ToString()); } Console.ReadLine();I also need to download a file that is on ftp

Hi all. I'm fairly new to RM/COBOL on AIX. We have an intranet running on Windows server with SQL server database we'd like to be able to access from AIX RM/Cobol. I'd love some tips/guide/opinions on what we need. As basic, easy, cheap (free!) as possible. Many thanks.

Problem: Stepping on a CALL to a GNT simply runs through. The debugger is unable to step in the GNT or stop at any of the breakpoints in a GNT program. This problem occurs only in Windows 10, not in any other Windows versions. Resolution: Microsoft released a major update for Windows 10 in August or September 2016, which is called the "Windows 10 Anniversary update." This update somehow broke the possibility of debugging GNT programs in Visual COBOL. To determine if you have the Windows 10 Anniversary update, click the Start button, then click Settings > System > About. If the About window shows Version 1511 (OS Build 10565), it means the Windows 10 Anniversary update is not installed, and debugging GNT should work fine. If the About window shows Version 1607 (OS Build 14393), it means the Windows 10 Anniversary update was already installed, and debugging GNT does not work. Microsoft will release another major update of Windows 10 in spri

Problem: I have deployed Dialog System application that is launched from a shortcut on the desktop. The console window briefly appears and disappears before my application starts. I have a batch file that sets up some environment variables before running the application: rem *rem * Set COBDATA to find the screensetrem * Use UNC with server IP address and share namerem *SET COBDATA=\\\\10.0.0.21\\Appdir rem * Enable Microsoft Visual Styles SET MFVSSW=/f/c rem * Now launch the application START DSCUSTCLASSIC.EXE exit shortcut details: Solution: Change the Run property of the shortcut to Minimize :

NetExpress 3.1 Attached example.       * -------------------------------------------------------------- *       special-names.           call-convention 66 is Win32.      * -------------------------------------------------------------- *       working-storage section.       01  ws-thd-name-table           occurs 2.           03  ws-thd-name             pic x(40).       01  ws-thd-param                pic x(4) comp-5.       01  ws-thd-param-size       &nbsp

Problem:   I have deployed a Dialog System application to my server, however when I run the application from a client PC the following error appears: How can I avoid this? Solution: The solutions offered here assume that the COBOL Server and application deployment have followed the guidelines in the following article: Network deployment of Visual COBOL 2.3 native applications Set the environment variable COBDATA to point to the folder where the screenset is located. There are two options that can be applied in order to make sure that the screenset is found. Option 1: When building the application, add an Application.config file and add the detail for COBDATA as shown: (Note: the Value \\\\10.0.0.21\\Appdir represents the application deployment folder (shared) on the server) Option 2: Set the environment variable COBDATA on the client PC to point to the folder where the screenset is located on the server, typically this can be set in a batch file that would the launch the appli

Problem: In general, the ADISCTRL file is placed in the same folder as the application, and it gets picked up automatically at execution time. What if this file is located in a different folder? Resolution: The main reason for having the ADISCTRL file in a different folder is when multiple applications are using this same file. It then becomes easier to manage one single file instead of managing the same copy in each one of the application folders. There is one location in Visual COBOL or COBOL Server where the file can be picked up automatically, and that location is %COBDIR%\\etc\\ If the ADISCTRL file must be in a location other than the application folder and %COBDIR\\etc, then setting the dd_ADISCTRL environment variable to point to the ADISCTRL file (not to its location) will allow the COBOL runtime to find it, e.g. SET dd_ADISCTRL=X:\\Folder\\SubFolder\\ADISCTRL Note: The COBDIR environment variable (i.e. %COBDIR%) can only be used to point to

Problem: The file OPEN fails with the following error only when the program is compiled in 64-bit: Execution of the program EXTSM has been interrupted. This program is not animatable, but you can view the call/perform stack.The cause of the interrupt was: 114   Attempt to access item beyond bounds of memory(Signal 11) There is no issue with the file OPEN when it is compiled in 32-bit. Resolution: This problem occurs when the program is compiled in 64-bit with the NOFCD3 directive. When setting the "64 Bit" check box from the Project Properties or when using the P64 directive to compile in 64-bit, the FCD3 directive is required and set automatically. The default when compiling in 32-bit is NOFCD3. This directive is reserved for internal use by the COBOL system and should not be set or overridden. The resolution is then to remove or avoid setting the NOFCD3 directive.

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