Rocket® COBOL

Do P.E. users have access to Supportline web site?  I would like to access the examples and I have not had a response from the Supportline regarding my registration.

  Good morning, can i make an invoke a method created in the form of events? For example:   method-id button3_Click final private.       01 newForm2 type CfgEmpresa.Form1.       procedure division using by value sender as object e as type System.EventArgs.           set newForm2             to new CfgEmpresa.Form1           invoke newForm2::ShowDialog()       end method.      method-id ef-NumPedido_KeyPress final private.       77 wt pic x(020).       procedure division using by value sender as object e as type System.Windows.Forms.KeyPressEventArgs.            move e::KeyChar to wt  &nbs

I have Window 10 Home 64bit. I have Visual Studio 2010 Professional (and 2013 and 2015, community editions.) I have downloaded the Visual Cobol PE 2.2 for VS 2010. I cannot install it. I get error 0x80070643. The log file is as follows: [17E8:18B4][2015-10-23T18:49:11]i001: Burn v3.7.1224.0, Windows v6.2 (Build 9200: Service Pack 0), path: C:\\Users\\Bruce\\Downloads\\vcvs2010_22.exe, cmdline: '/install'[17E8:18B4][2015-10-23T18:49:11]i000: Initializing string variable 'ProductRevision' to value '2.2.00244'[17E8:18B4][2015-10-23T18:49:11]i000: Initializing string variable 'InstallFolder' to value '[ProgramFilesFolder]Micro Focus\\Visual COBOL'[17E8:18B4][2015-10-23T18:49:11]i000: Initializing string variable 'RumbaCheckboxState' to value 'disable'[17E8:18B4][2015-10-23T18:49:11]i000: Initializing string variable 'RumbaLabelState' to value 'disable'[17E8:18B4][2015-10-23T18:49:11]i000: Initializing string variable 'EclipseLabelState' to value 'disable'[17E8:18B4][2015-10-23T18:49:11]i00

Hi Community, Wanted to share my problem with RM&Infoexpress installed in a HP Proliant Dl180 with 16GB of RAM and a 3TB Raid 5 running CentOs 6.7 32 bits. The server was running fine and loading the RM&Infoexpress without problems but suddenly when we rebooted it it refuses to load the RM/Infoexpress giving us the following Error Message: RM/Infoexpress: 30, Unix error 22 (Loc 478) (Shm/Sem) We looked at the Knowledgebase and applied a solution related to the localhost 127.0.0.1 entry at our /etc/hosts file but it does not help. Here are more details about our server: OS_NAME = Linux OS_RELEASE = 2.6.32-573.3.1.el6.i686 OS_VERSION = #1 SMP Thu Aug 13 19:58:36 UTC 2015 ARCH_TYPE = i686 OS_KEY_NAME = "Linux Intel 32-Bit" Any Clue about this one??? We think that it is a matter of permissions. BTW, SELinux is disabled and Firewall is disabled too. Thanks in advance for your support. #RMInfoexpressCENTOSLinuxerror30#22Notloading

I'm using relativity to create temporary workfiles via ODBC --  Does anybody know how to create the file in a different directory than the install directory for relativity -- hopefully this is possible to do from within the query -- because I'd like different temp tables to be placed in different directories to help organize them For example -- the following query works CREATE TABLE tester( col1 CHAR(10), col2 CHAR(100), col3 CHAR(50), col4 CHAR(1), col5 decimal (10, 7)); but I was hoping that something like this would work somehow CREATE TABLE tester @FILENAME=/tmp/tester.tmp.data(col1 CHAR(10),col2 CHAR(100),col3 CHAR(50),col4 CHAR(1),col5 decimal (10, 7)); creates a file /opt/microfocus/relativity/data-server/tester.tbl I was hoping to have this file be located elsewhere -- /tmp/tester.tmp.data I have figured out how to use the following commands to move the path of the file -- however it still ends up leaving an empty file tester.tbl sitting in the install directory. {call

Hi, I have an old Net Express (and earlier) COBOL program that sends Hewlett Packard PCL code direct to an HP printer via LPT1 to print advertising layout page plans. The printer is attached directly to a user's PC. Current new platform is Windows 7, Visual COBOL. How can I tell windows 7/Visual COBOL to send LPT1 output direct to this printer? The program is below....  Thanks, Linden IDENTIFICATION DIVISION. PROGRAM-ID. LASERPAG. *REMARKS. * ----------------------------------------------- * COBOL Laser Page Plan Program * ----------------------------------------------- * Prints page plans on HPLaserJet printer. * Any number of pages can be output per sheet. * ----------------------------------------------- * Written by Linden Rowland from FEB 1991 * ----------------------------------------------- ENVIRONMENT DIVISION. SPECIAL-NAMES. CONSOLE IS CRT CRT STATUS IS CRT-STATUS. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT REPORT1 ASSIGN TO "LPT1". select planner-pag-file

HI, I'm using "Enterprise Developer 2.2 Update 2" , when I call gnt program from a batch script dos,  compiled with ANIM (32 bit) the statement   CALL "CBL_DEBUGBREAK" dont'  work, don't give error, symply ignored! It is possible in Visual Cobol do debug from command line( like a NX (MFNETX)) thx

F.A.O. Chris Glazier, I've tried our application on Windows 10 using the Visual COBOL cs2012_222.exe run-time. Seems fine but can you confirm if there are any issues that we should be aware of when moving our app from win 7 to win 10? Thanks, Linden

Hi, I've got some issues using w$font, in Windows: First of all I accept the standard Font: ACCEPT VP-MAIN-FONT FROM STANDARD OBJECT "DEFAULT-FONT" The Font is usually 'MS Sans Serif' - When I set this font to  14 size, the font is always bold - I can not define a 9, 11, 13 size, w$font returns a error, but from another application this sizes are available Can I do something to solve this? Thanks!

I am getting the following error when trying to rebuild a file from vision version 5 to version 3  -  "Invalid function parameter"  We are using runtime version 9.1.2. Here is more info on the file :       SELECT MIS2FL            ASSIGN       TO RANDOM MIS2NAME            WITH ENCRYPTION COMPRESSION             COMPRESSION CONTROL VALUE  70            ORGANIZATION IS INDEXED            ACCESS MODE  IS DYNAMIC            LOCK MODE    IS AUTOMATIC            FILE STATUS  IS DSTAT            RECORD KEY   IS MIS2KEY-NEW.       *(( XFD FILE = MIS2FL ))        FD  MIS2FL EXTERNAL             RECORD I

Hi, all: I am new in this community but need an urgent help from you. In May this year I downloaded COBOL Personal Edition for one year use until May 2016. It worked fine until September. But now I found the "product licencing" shows I have only 29 days left for trial. Again, I was told it should be good until May 2001, as shown in MicroFocus website when downloading this Personal Edition.  I have downloaded this version over the same process second time today and installed it with another email address for registration. But the 30 days trial problem remains. I now believe this was what happened: two days ago I accidentally clicked the button on Product Licencing page, trying to refresh licence. Due to this click, the system assumed (1) I clicked the button because my one year time is over and (2) I want to continue to use the software. Based on this assumption, the system started this 30 day trial counting down.  I wish you guys could look at my case and give some

Hi, i have a question for visual cobol:can I release executable file(gnt\\exe\\dll) compiled in Enterprise Developer to Cobol Server 2013?Or do I need to compile the COBOL source in Visual Cobol for the release of Cobol Server ?My programs are all batch sql without CICS and xdb . Thanks.

I tried to install Extend 10 32bit downloaded from Support Site on Windows XP  but every time I start every executable it gives me the error that it isn't a valid Win32 application.  Extend 10 lost Windows XP support because there isn't a .NET 4.5 runtime or there is a broken installer?

Hello, I'm trying to resolve some issues with DLL conflicts by using the Windows API calls to LoadLibrary, and GetProcAddress. I'm able to get a handle to the instance of the DLL by using LoadLibrary, but cannot get a handle to the internal processes of the DLL using GetProcAddress. I'm also wondering how I'm going to call these methods once I get the pointer? Does anyone have any experience using these functions?       01  DLL-INSTANCE             PIC X(4) COMP-N.       01  PROCESS-POINTER          PIC X(4) COMP-N.              CALL "LoadLibraryA@WINAPI"                   USING BY REFERENCE "C:\\CSL\\CloudSyncLib.dll",                   RETURNING DLL-INSTANCE              CALL "GetProcAd

I am trying to use my first .NET control. (I have used ActiveX controls many times.) When I run my program I get the following error: "There was a problem with one of the .NET support libraries. .NET assemblies cannot be loaded."  Here is the background: I am using the 9.22 run-time and created my copy files with 9.22s NETDEFGEN.My control comes in 2 .NET versions 3.5 and 4.0 I have tried both with the same result.I have tried to install the control in the ACU dir with the wrun32 I am using and in a separate folder. (Uninstalling the control between installs.)It is currently in a separate folder and I have created a netevents.ini with the path to the current install folder in my ACU folder.My control does not show up in GAC but I browse to and everthing seems to go ok.NETDEFGEN does not crate an events .dll that I can find but I don't think the control has any events.I have tried the create statment with and without the event procedure. My development machine is Windows 7 64 bit.

We have a COBOL program that was migrated from Bull mainframe syntax to Visual COBOL. It took some work to get it to run, because not all of the code is "optimal". It's over 17,000 lines, and calls other assemblies. We had to go away from Perform Thru using Sections in some parts, back to using GOTO to get it to run using Visual COBOL. One of the other changes we made was to increase the stack size, using a compiler directive. Initially, we went to 200 megs (200 X 1024 X 1024) after receiving a stack overflow exception using the Visual COBOL default settings. After a couple of weekly runs, we experienced a Stack Overflow exception again. Since it was in production, and we needed the run for that night, the stack was increased to 300 megs. This happened a couple of times, until this last week it was increased to 500 megs. This has been the solution to a stack overflow without rewriting the program, which would be a daunting task. The compiler directive is this: &nbs

I have VC 2.2 PE.  Using NATIVE mode, my Solution Explorer is now permanently enlarged and I don't know how I managed to do that. Also, when I open a source member in a Project, the slider bar is all the way to the right. Before, I had the SE window on the right with the program slider bar just to the left of that. I looked thru the doc but cannot find where to reset this condition. Does anyone know the fix for this? Thanks.

In Net Express 5.1 we never used Debug builds as the Release build had an .idy file for animation and debugging within the IDE and the .exe/.dll ran perfectly well without the .idy file when deployed (copied) to the production server running Server For COBOL (we have no interest in remote animation/debugging in our production environment).  For pure native COBOL applications only, If we add anim and cobidy to "Build settings" of COBOL properties under Release configuration for each project will we: 1. Be able to animate our code within the IDE in the Release configuration in the same manner as in the Debug configuration? 2. Will the .exe/.dll execute properly under COBOL Server once deployed (copied) to the production server WITHOUT the companion .idy file?

In Net Express we would load all application-specific environment variables into one of an application's projects (Project Properties>IDE), export to a .gcf file, and then import the .gcf into all other or new projects that were part of the application. I've found where one can manually enter environment variables for use by a project within the IDE, but no way to export/import them to another project within the same solution.  Is this even possible in VCVS? Is there a way of setting up solution-wide environment variables?

I am involved in a software application development project that utilizes XBIS running on a Linux server.  The project has a requirement that states "If a request exceeds 15-seconds, the system will stop processing and return a message stating the request is taking too long". After speaking with Steve Jolivet I learned of the B$SetServiceTimeout.  After reviewing the documentation, I understand I can set the timeout to 15-seconds to fulfill this requirement.  The documentation states "If the timer elapses, the service program is terminated". I have never used the timeout feature.  I have 2 basic questions, please: (1) considering the set-up steps of an XBIS program, where would the call to B$SetServiceTimeout go and (2) where in the program would I construct the "system is taking too long" error message. Any advice will be greatly appreciated. Thanks! Russell H. #XBIS#RMCOBOL#BIS#SetServiceTimeout

How do I maximize the screen and objects adjust to this new size? thanks

hello, I need help on creating RAR or .ZIP file I have some sample code , but this code does not let me add more than one file , I wonder how to add more than one file thank you example code *biblioteca de ZIP $set ilusing "System.IO" $set ilusing "System.IO.Compression" class-id fazZip.Form1 is partial inherits type System.Windows.Forms.Form. working-storage section. 01 FInfo type FileInfo. 01 InStream type FileStream. 01 OutStream type FileStream. 01 ZipIt type GZipStream. method-id NEW. procedure division. invoke self::InitializeComponent *C:\\teste.html FInfo::FullName invoke new type FileInfo("c:\\testebruno.txt") giving FInfo invoke FInfo::OpenRead() giving InStream invoke type File::Create(FInfo::FullName & ".gz") giving OutStream invoke new type GZipStream(OutStream, type CompressionMode::Compress) giving ZipIt invoke InStream::CopyTo(ZipIt) invoke ZipIt::Close() invoke InStream::Close() invoke OutStream::Close() goback. e

Does anyone know why when sending emails CC and BCC does not work? I am using VBSCRIPT with CDO. Thanks, David

Hello ! First of all, you have to know that I'm a Belgium student, so I speak french, and I hope my english will be good enough to make me understood.So, thanks to my college, I got a licence of visual cobol for Eclipse available until the next year. I've installed it on my computer at home, and thanks god, no problem with it.Then, I've installed visual cobol for eclipse on my laptop too (this is a MacBook, so I use Parallels Desktop in order to run Windows), and the installation was ok, but I can't use visual cobol. Why ? When I create a new project, with a new cobol program, I immediately have an error and so I can't launch my program.  Even if this is a new, empty program, when I try to run, I've this message : "The COBOL Program launched could not be located". And a red cross in the line "end program Program1", with the message "COBCH1504S I-O error : 9/181 \\\\Mac\\Home\\Desktop\\Workspace\\Cobbol\\test\\New_Configuration.

I build my Visual Cobol application in Release mode and when i'm running it from command line the execution stops on a cbl_debugbreak call asking me if i want to start the debugger. Is it possible to disable that call when i'm running a release build?