Rocket® COBOL

Hello First to all, I must say: I´d never used OCX.    Now I´m fighting to add to my system a requirement wich let me offer a solution to a client. This requirement is : To update the status and location of some particular medicines (oncologic, VIH, etc)  in a web service ensuring the trazability by the serial number included in this medicines by a data matrix code. The web service comes from an organism called ANMAT (http://www.anmat.gov.ar/trazabilidad.asp)  who rules this, so, to sell or move a one of this medicines the client (Hospital, Pharmacy, Provider, etc) must update the status in.   I'm no prepared to create it from the beginning, so I found some supports who offers me an interface (with a cost I could pay) which work with an OCX to do this task and obtain a transaction number. They send me this example in VB to try to understand how it work:   Dim TrazaMed As Object, ok As Variant ' Create the interface COM Set TrazaMed = C

 I was wondering if there is any advantage over one of these .net methods versus the other.  In the second one, I modeled it after a C# method using .net Cobol syntax of course.  They both function the same, but wanted an opinion if one was better than the other in regards to best practices.   First Method. method-id IsStrongPassword public.local-storage section.01 cond-value condition-value.procedure division using by value tro as type TO_NewUser, t as type TextBox returning strongPassword as type Boolean.set cond-value = type Regex::IsMatch(tro::Password, type HospitalManagementSoftware.Properties.Settings::Default::pword). evaluate cond-value when false invoke type MessageBox::Show("Please enter a stronger password.", #Title) invoke t::SelectAll() when other set strongPassword to true end-evaluateend method.   Second Method. method-id IsStrongPassword(tro as type TO_NewUser, t as type TextBox) returning strongPassword as type Boolean public.local-

Hi, please I have this construction: from main program I called program p1 in program p1 is this: ON 1 do something ELSE do something then quit to main program then again enter to p1 program in p1 is only ELSE part done is there any way how to reset ON status? thanks#cobolnetexpress

[Migrated content. Thread originally posted on 16 May 2011]Hi, i write an xml using the c$xml API encoding it in "UTF-8".call "c$xml" using CXML-NEW-PARSER             giving wh-descr-parser.if we-runtime-major-version >= 8   call "C$XML" using CXML-SET-ENCODING                      wh-descr-parser                      "UTF-8"    end-if.It happens that when i write in it some accented character like "à", the final xml results in an invalid format and parsing it with "C$XML" CXML-PARSE-FILE returns CXML-PARSE-ERROR. Also, it is not possible to open the xml with a browser (chrome or firefox) as it says that the xml has a wrong format.i write the accented character with the followingcall "c$xml" using CXML-ADD-CHILD          &nbsp

I need the Cobol Server 2.3.2 (cs_232.exe) but when I sign in to support for the download, it is no where to be found. What am I missing?

Problem: Issuing the following command: acuthin.exe serverIP AcuToWebAlias returns the following error: "Connection failed. Unknown error." Where: AcuToWebAlias is an alias that runs correctly with AcuToWeb Resolution: Check if the license for AcuConnect Thin Client is installed and activated. AcuRCL service can be turned on just having an AcuToWeb license active: acurcl.wlcBut to use acuthin, an acurcl.alc file is necessary. We are working to include a specific error message for this situation, but that is not going to be available in the Acu 10.1.0. We plan to add this to a future release of the Acu product. Support Incident: 2990847

Hello, attached is a sample program designed in Acubench to help illustrate. What I'm trying to do is dynamically create a series of controls, and as the controls get created past the physical bottom of the screen, I'd like to add scroll to the window, so as to keep the window the same size, but allow for the user to scroll through the controls. How do I get my window to scroll as I'm creating these controls? Thanks Dave STRDOSE.zip

I need the Cobol Server 2.3.2 (cs_232.exe) but when I sign in to support for the download, it is no where to be found.  What am I missing?

Hi, please I have this code: 05 w-string1 pic x(500).05 w-x pic s9(04) comp. ... call "SYSTEM" using w-string1(1:w-x) where in w-string1 is 'bpsXmlConverter bpsdata\\SXJNMP-PK1_2017032715521837.DAT utf-8' but in bpsXmlConverter program (it's .NET utility), when I check, how I was called it's: bpsXmlConverter bpsdata\\SXJNMP-PK1_2017032715521837.DAT utf-8 270320174 When I debugging, just before CALL "SYSTEM" value in w-string1 is OK. And when I run bpsXmlConverter just alone, it's also OK. Please can you help me, from where this strange number parameter comes?#cobolnetexpress

Basically the problem is this   working-storage. 01 data1 pic x(25). 01 data2 pic x(25). procedure division. The current values of data1 and data2 data1 = "A                                   "  data2 = "   some old data left over"   In Micro focus COBOL when I do the following statement move data1 to data2    data2 ends up equaling  data2 = "A                                   " Which is ideally what I want to happen   However when I move the code and compile it in OPEN VMS which uses VAX Cobol when I do the same statement I end up with data2 ends up equaling  data2 = "A   some old data left over"   So it appears that Micro focus Cobol clears the old data automatically out of data2 with a move statement and vax cobol ends up

Hi,   I installed Micro Focus Net Express recently. And after installing I made sure to set all the paths and environments. Now when I am trying to compile one cobol-db2 program, I am getting a system error "SQL5005C  System Error". * 801-S ( 0)** External Compiler Module message** DB0100 SQL5005C System Error.COBDB0100S SQL5005C System Error.Rebuild complete with errors I tried to resolve a lot but unable to resolve the issue. Is there anyone can help me on resolving the issue.

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.