Rocket® COBOL

I know my way around visual studio. I am trying to learn Micro Focus Cobol(Already know Cobol) when I bring up an example solution I get the following.. Where do I find the licesnce code for the Visual Studio Cobol trial. #VisualStudio

We have a very old single license of NetExpress, which we use very rarely for testing very old software. We have no maintanance contract. We now need to move Netexpress to a new computer. I tried to create a revoke key using PROTCFG.exe, but i get an error "Failed to revoke an option.(0)". Furthermore, i am unsure on what url to use to pass the revoke key (once i get one) to microfocus and to  obtain a new licence key subsequently. Thanks for your help!

Problem: GetFileTime MS API: .......................... Retrieves the date and time that a file or directory was created, last accessed, and last modified. SetFileTime MS API: .......................... Sets the date and time that the specified file or directory was created, last accessed, or last modified. Resolution: Sample is attached ... ..........................            copy "windows.cpy".        identification division.        program-id. MSAPI-FileTime.        working-storage section.        78 CRLF                     value x"0D0A".        78 SEP      &nbs

We recently tried to upgrade from Visual Cobol 5 to 7 but were forced to roll back because our applications were crashing Program received signal SIGSEGV, Segmentation fault.0x00007ffff66e149e in _mFgdlisize () This was found in two places that had extremely large initialize statements of several items (roughly 20 01-items of around 1k size each). Each time, I was able to comment out a single data item to cause the compiler to not produce the call to _mFgdlisize which allowed the program to run. Spliting it into 20 smaller initalize statements did not fix the problem, it would error on the same data item each time still. I was able to download Visual Cobol 6.0 personal edition for windows and use dependency walker to confirm that _mFgdlisize was in CBLRTSM.dll meaning that it was introduced in VC6.0 and not VC7 So my question is what is _mFgdlisize and why is it causing my programs to crash? Thank you in advance for your time.

How do i change the visual studio compiler directives for my project? When i Click Project/MyProject properties and Click the COBOL tab i can see the compiler options under Build settings but they are not modifiable. I want to change the compiler options to generate .int and/or .gnt files rather than/as well as .exe files Thanks in advance for your help#VisualStudio#VisualCOBOL

I am running 10.4.1 and tried to change my ASSIGN statement to print directly to PDF.  The old statement (which opened the Windows Print Manager) was SELECT PRINT-FILEASSIGN TO PRINT PRINTER-NAMEORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS PRINTER-STATUS. and the new is SELECT PRINT-FILE ASSIGN TO "-P PDF C:\\apps\\report2.pdf" FILE STATUS IS PRINTER-STATUS. But now many of the WIN$PRINTER calls are getting -6 and -7 errors.  Below is an example of a call which works with the Windows Print Manager but not when printing direct to file. INITIALIZE WPRTDATA-DRAW MOVE 17.60 TO WPRTDATA-DRAW-START-X MOVE 02.30 TO WPRTDATA-DRAW-START-Y MOVE WPRTUNITS-CENTIMETERS TO WPRTDATA-DRAW-UNITS CALL "WIN$PRINTER" USING       WINPRINT-SET-CURSOR       WINPRINT-DATA                 GIVING CALL-RESULT WRITE PRINT-LINE FROM ":" BEFORE ADVANCING 1 LINE It creates the pdf file but i

Hi There, We currently use Visual Cobol 4 on Visual Studio 2017 as well as Cobol Server 4.If we start using Visual Studio 2019, must we download and use Visual Cobol 5 and if so, would the Visual Cobol version 5 programs still run under Cobol Server 4?

Hi everyone, we recently tried upgrading one of our dev environments from VC 7 pu 04 to VC 7 pu 05. ("setup_visualcobol_devhub_7.0_patchupdate04_290113_suse_x64" -> "setup_visualcobol_devhub_7.0_patchupdate05_290480_suse_x64") We use the option  "4. Manual License Installation." as license activation mechanism from /var/microfocuslicensing/bin/cesadmintool.sh Unfortunately we ran into some licensing issues regarding the MFSafeNet.service, after installing the newest VC 7 pu 05 Version. We get a licensing error, when running cobol programs, eventhough the license still is registered. We had no similiar problems with VC 7 pu 04. Execution error : file ''error code: 247, pc=0, call=1, seg=0247     Licensing error (Error[5]: Cannot talk to the license server on host "127.0.0.1". Server may not be running.) Apparently the systemd service "MFSafeNet.service" only starts the "lserv" now, but not the "mfcesd" process anymore: VC 7 pu 04: systemctl status MFSafeN

I uninstalled and reinstalled Visual Studio 2019 to try to get rid of this error and it persists, and fails to create a new .  After reiinstalling Visual Studio, I started the vcvs2019_60 installer and chose the Repair option. After I create a new COBOL project in Visual Studio, the license message re-appears and the new project is abandoned and is never created. Any ideas?

I am using Extend 10.4.2.  The Programmer Guide describes various HTTP commands, including Get, Post, Put, Delete, etc.  But I cannot find one for Patch.  is that available?  The resource I need to update only allows Patch...#RMNet#extend

i am getting a runtime error "Load error : file '_EXTNAME'". I am using external Variables. Ubuntu cobol server 7.0 (Update 4). On V6.0 it works fine. Is there a path or a file missing?

In my program, I am using an Enter Key to work the same as a Tab key, from what I have read on the Internet, it tells me to use the MoveFocus In C#, the command is this:  new TraversalRequest(FocusNavigationDirection.Next)) SO I tried with the highlighted code below, but I can't get it to recognize the Next.  I know I have this written wrong -what is the correct way to write this? (I am using WPF for my screens)        entry "WPR_AP110000_F_DUE_DATE_KEYDOWN" using by value sender e_key.           PERFORM SET-LINKAGE.       AP110000-F-DUE-DATE-KEYDOWN.           move e_key::Key to WOW-KEY-VALUE.           MOVE WOW-KEY-VALUE TO WIN-KEY.           IF WIN-KEY = type Key::Return      &n

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.