Rocket® COBOL

Hi I installed MF Visual cobol for eclipse but I didnt get BANKDEMO tutorial to practice. Can someone share BANKDEMO code? Thanks#MFVISUALCOBOL

Hello, There is a problem when opening a workspace from a previous version of Acubench, particularly Acubench 10.0.1. Although I can open the .evt and .cbl files without any problem in Acubench 10.4.1, when I click Form1 to open it, sometimes Acubench crashes, and sometimes it doesn't.  I enclose the project for additional help. I am working with ACUCOBOLGT 32-bit, ACUBENCH 32-bit and WINDOWS 10 PRO 64-bit. community.microfocus.com/.../Packing.zip #Windows10#ACUBENCH10.4.1#Crash

Hello all and have a nice new year, I would like to create a variable, so as to use it as an equation of PHYSICAL-COLUMNS instead of (1, 2, 3, 4, 5). I have created the below variable 01 WS-ARRAY-ST.   03 FILLER PIC X VALUE "(".   03 WS-ARRAY OCCURS 5 TIMES.      05 WS-VALUE PIC S9.      05 WS-COMMA PIC X(2).   03 FILLER PIC X VALUE ")". but when I applied it to the below command MODIFY Form1-Gd-1, PHYSICAL-COLUMNS = WS-ARRAY-ST it does not work at all. Is there any way to substitute the list of PHYSICAL_COLUMNS with a variable?#list#PHSICAL_COLUMNS#Grid

I hope I'm in a good sub for this... I'm trying to find a static code analyzer for visual cobol that can scan against PCI security regulations. Has anyone run into this? The best option I've found so far would be Yasca, but I would have to define my own rule-set and I just don't know enough about cobol or PCI to do that. https://nox.tips/

As often happens with Cobol systems, we have developers with only a few years of experience working on a codebase almost as old as they are. They are developing with Microfocus NetExpress and there's little desire to switch IDEs, although Eclipse might be an option. I'm keen to introduce automated unit testing to grow and expand the legacy code coverage, reduce risks after changes and shorten the feedback loop after commits. I know the options are limited, and some are simpler to adopt than others. Is anyone using Microfocus NetExpress to develop Cobol doing any automated unit testing? If so, what tools are you using? Ideally, I'm after recommendations from your own personal experience.#cobolanalyzer#MicroFocusCOBOL#CobolAnalyzer

Just starting into HTTP POST calls (I am at 10.4.0) and was hoping to find a sample program, preferably including JSON Generation.  It's a two step process, get a token first (with userid, password, etc) via a POST and then generate the JSON data and do a second POST with data.  There is a sample program called TempConv but it uses XML which generates the request payload with pointer, but the JSON generate doesn't seem to have that.  trying to connect the dots.  thanks!#HttpPost

I’m a retired IT professional and am interesting is experiencing some of the fun I had in the late 70’s and early 80’ writing and maintaining COBOL applications. Back then my programming was done on a mainframe but since I don’t have access to one of those, I’d like to use my Windows desktop. I’ve used Visual Basic, Borland Pascal, and recently Delphi to write event-driven Windows applications so I am somewhat familiar with writing Windows applications. I have done virtually nothing Object Oriented and I am disinclined to learn it.  I recently purchased Micro Focus’ Visual COBOL Developers Guide to Modern COBOL and installed the personal/community versions of Visual Studio and Visual COBOL and was immediately taken aback. It appears that in the last 40 years COBOL and transformed into a fully OO language. Can you use Visual Studio and Visual COBOL to write non-OO, structured, event driven, Windows applications? I am open to using an older

I have trouble computing two numbers where one can be a negative number. All numbers are kept as text.What is happening... All the values are kept as text in the field of type PIC X(...) VALUES SPACES. I have a procedure that will find the start of the value. For example: _ _ _ _ _ 2 3 4 . 32_ _ _ _ _  - 19. 32  (can be also negative number)  ( underscores are representing spaces) Adding, subtracting, multiplying, dividing everything works fine with a positive number. IF I got a negative number the program will break.MOVE "_ _ _ _ 2 3 4 . 3 2" TO NAZIVPERFORM SEC-LENSEC-LEN will give me two informations 1) whare are the first number position from left - PCP                                                                2) what is the length of the number - DUZFor the above example, PCP is 5 and DUZ is 6

Hello, I am integrating our application with an existing online application and I have the following problem: Communication is done correctly and the response comes in JSON format. When I make the request and the response has only one record, I've already been able to access the data for that record. The problem occurs with the execution of the instruction and the answer is several registers. The example is importing existing reservations in the online application and the answer is four records. I cannot convert this data to four records that can be "worked".In this case I'm using the RestSharp interface Once again, I ask for your help in solving this problem. If you want, I can send the example I'm using. Best regards Alberto Ferraz

Hi, we use multiline entry fields like this: 01  t01-table. 02  t01-record occurs 99 indexed by t01. 03 t01-text pic x(80). 02 entry-field using multiple t01-record use-return ... Every line of the entry-field is a record in the table. But is there a way to tell if the "line break" results from a word-wrap or if the user has hit enter ?

New atw-script control for use with AcuToWebECN-4662 New atw-script control for use with AcuToWeb (microfocus.com) EVALUATE EVENT-TYPE WHEN NTF-ATW-EVENT EVALUATE event-data-1 WHEN 1 modify js1 CALL("googleMaps")NTF-ATW-EVENT is obviously a level 88 variable. What is its value?#NTF-ATW-EVENT

I have downloaded Visual Cobol for Visual Studio 2019 to today. The activation failed with error message "Error installing licenses. Unable to autorice a licence using supplied authorization code " Authotization code is 2021xxxxxxxxxxxx. I understand very little English. Thank you!!! 

Hi all, How can the following VBA code be written in COBOL? Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItemSet OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) With OutMail   .To = "address@dot.com"   .Subject = "test "   .SendUsingAccount = OutApp.Session.Accounts.Item(2)   '.HTMLBody = "test"   .SendEnd WithSet OutMail = Nothing Set OutApp = Nothing In other words, I want to send an email using NOT the default account. In the example above, I want to use the second of the collection of accounts. This has been asked three times in tha past but with no answer... Thank you.

Hi folks. I hope somebody can help me with this problem. I am working on maintaining a large program. The problem which I have is related to printing documents. On the computer are installed two printers:1) Bullzip PDF Printer2) HP LaserJet (default printer) I had successfully called printer dialog, chose Bullzip PDF Printer for printing. The only first document was printed with Bullzip printer, all other documents are printed with HP LaserJet without showing printing dialog. Here is my code: PRNW-OPEN.*-------- move 1 to Prn-Flags. move 0 to Prn-WinHand. move "Greska kod OPEN Printera !!! " to Prn-Errtxt. MOVE 128 TO Prnw-len. MOVE PrnDoc-naz TO Prnw-InCHR. PERFORM PRNW-Title-Len. IF Prn-IndOPEN equal zero THEN; CALL "PC_PRINTER_OPEN" using Prn-Handle, Prn-DOC, by value Prn-Flags by value Prn-WinHand returning Prn-RetCode. if Prn-RetCode not equal zero PERFORM PRNW-ERR. MOVE 1 TO Prn-IndOPEN. move zero to Num-Lin. What I want to achieve is:1) to choose in the

Environment AcuToWeb Gateway running in any browser on Apple CPU machines  Problem When running a program in a browser using AcuToWeb, the program can show strange behaviour. Screens can close randomly, and the active entry field can switch randomly to another entry field. This doesn’t happen in the same browsers on machines with an Intel CPU.  Resolution There seems to be some incompatibility with web technologies and browsers running on Apple CPU machines. The issue can be avoided by disabling hardware acceleration in the browser.For instance, to disable hardware acceleration in the Chrome browser, follow these steps:  1. Open Google Chrome. 2. Click the  icon in the upper-right corner. 3. Select Settings from the drop-down menu.  4. In the menu on the left side of the window, expand the  menu. 5. Click System.  6. In the middle of the window, under System, click the toggle switch next to Use hardware acceleration

Problem: IBM TXSeries starts one or more Application Server processes when a region starts.  An Application Server process runs in the background and listens for requests, then invokes COBOL programs to fulfil requests.  Other applications such as NTT DATA’s Unikix, FIS (formerly Sungard) Ellucian Banner, and Systems & Software's enQuesta are also designed using Application Server processes that invoke COBOL programs.  It is difficult to use the Visual COBOL for Eclipse debugger to debug COBOL programs invoked by these Application Server processes. Solution: This article includes a COBOL module and instructions to make this type of debugging more practical.The Eclipse debugger can be started in different ways, controlled by the debug configuration.  The Attach to Process debug configuration is not practical in these cases because the debugger would need to attach to one of the Application Server processes responsible for invoking COBOL programs, but more than on

Ineed a copy of socket.def   solartoys@yahoo.com   thanks   bob

Why is this new version (only since any months available) not to download? Yesterday, a new try give vcvs2019-60.exe! Is here a reason or forget from MF to actualize? Thanks for answer!

I am trying to send an email from acucobol with no luck. All help will be appreciated. Thanks...bob

I am trying to create a Visual Cobol WinForm .NetCore project using VS 2019.  When I click on the form to view the designer, I am getting the following error. "The language for this file does not support the necessary code parsing and generation services.  Please ensure the file you are opening is a member of a project and then try to open the file again." Any help on this would be greatly appreciated. #VisualCobolWinForm.NetCore

I have a hopefully short term need to keep an old unix application which uses PANELS running under Visual COBOL on Windows. I've managed to get the code compiled and running and fixed the function keys etc. using ADIS but no matter what I do I can't get the colours to work, everything comes out black on a green background so it's impossible to see what I'm doing when running the code. Using a simple test program with display statements the colours work fine so it's definitely a panels issue, unfortunately everyone who originally wrote this code has long since eft the company so we have limited knowledge of how panels even works which isn't helping. In case it matters I'm using VC 6.0 and VS 2019. Any suggestions as to where to look greatly appreciated! Regards Gary#VisualCOBOL#panels

Hi, I try to enable the long password support option : https://www.microfocus.com/documentation/enterprise-developer/ed60/ES-WIN/HRMTRHCSTX01.html In my server option/control In the list of initialTrans, i only have the CESN option.  i don't find the CESL option. Is there an option or something to install to add this option? Regards Eric

Hello, I created a table using Relativty and one column seems to break my queries.  In Relativity's Query Builder, depending of the data I access, it returns a certain number of rows before it tthrows an error, like Table MyTable: Rows Processed = 4, Error Count =1. Querying with another tool (QTODBC), I get an intermittent error, which means that sometimes, it works, sometimes I get the following error: <eb1>Numeric item contains nonnumeric characters (column MyColumn) State: S1000; Native: -4084; Origin: [Micro Focus][Relativity][CRDM]</eb1> The column is defined as a Smallint in Relativity, and as a PIC 9 in Cobol. Side note: The previous field in the table is a COMP and may have some invalid data. Is there a workaround to that error? Thank you!#Relativity

Our many user sites have been using various 32-bit AcuGT runtimes with a variety of 32-bit Windows applications. Among those applications is the Adobe Reader, and recently Adobe is forcing an "upgrade" to their 64-bit version. When our applications attempt to launch Reader the runtime fails and returns a system code 2. (Installing 32-bit Foxit Reader is a good workaround.) But in anticipation Looking to the future three questions:: 1. Can we "correct" our applications to launch 64-bit applications? If not 2. Is the solution to use the 64-bit runtime? If so 3. Will the 64-bit runtime work with the 32-bit Windows applicaions? My hope is that the answer to 1 is Yes. Any guidance will be gratefully appreciated.

Hi,  I need to convert a part of a program in VB and i need your help. Dim st As New StreamReader(Fich.FullName) xm = st.ReadToEnd Dim enc As New System.Text.UTF8Encoding Dim Buffer() As Byte = enc.GetBytes(xm) Dim Filename As String = Convert.ToBase64String(Buffer, 0, Buffer.Length)Console.WriteLine(wsSEF.EntregaBoletinsAlojamento(UH, Estabelecimento, ChaveAcesso, Convert.ToBase64String(Buffer, 0, Buffer.Length))) I convert like this: declare st = New StreamReader(Fich::FullName) set xm to st::ReadToEnd declare enc = New System.Text.UTF8Encoding declare Buffer as byte occurs any = enc::GetBytes(xm) set Buffer to enc::GetBytes(xm) invoke type Console::WriteLine(wsSEF::EntregaBoletinsAlojamento(UH,Estabelecimento, ChaveAcesso, Convert::ToBase64String(Buffer, 0, Buffer::Length))) Please tell me if is correct. I have no errors of compilation until the last line. At the last line i have an erro in this part: "Convert::ToBase64String(Buffer, 0, Buffer::Length)". The error