Rocket® COBOL

There are two options for installing RM/COBOL in a networked environment: 1. Perform a "Standard" or "Custom" installation of RM/COBOL on all of the PCs that will execute the COBOL application. 2. Perform an "Administrative" installation on a network share, then, perform a "Network" install on all of the desktop PCs. Below is an excerpt from page 57 of the RM/COBOL User's Guide in regards to the "Network" installation of RM/COBOL on client machines. This excerpt contains a short summary of the network installation process: ----------------------------------- The RM/COBOL installation process for CodeWatch, Runtime, Recover1, and Compiler supports users who wish to install RM/COBOL on a network server machine and then install RM/COBOL on multiple client machines using the RM/COBOL installation on the server. First, install all of the RM/COBOL components that you need onto the server machine using the “Administrative Installa

Hi All, I'm using the system.drawing.font property and i want to print bold and underlined. Ive found how to do it in VB or C# see:- http://stackoverflow.com/questions/2186810/how-can-i-use-multiple-combinations-of-font-styles-in-vb-net So Ive got the following COBOL code:- invoke e::"Graphics"::"DrawString"(ws-string, type System.Drawing.Font::New("Arial", ls-FontSize, type System.Drawing.FontStyle::Bold) , type System.Drawing.SolidBrush::New(typeSystem.Drawing.Color::FromArgb(ls-Alpha, ls-Red, ls-Green,  ls-Blue)), ls-x, ls-y, ws-cStringFormat) Can you pls advise how to Cobol code BOLD UNDERLINED Thanks in advance Neil.

I'm in the slow process of migrating from RM w/Linux to Visual Cobol RM ... with DevHub to allow use of the Linux while coding in Windows/Eclipse. I've just encountered a problem with Relative Files. In "Standard" RM the relative file ... if you "read next" is in Sequence. 1,2,3,4,5,6,7,8,9 erc.Via Visual Cobol RM ... the Relative Key is a bit of a mess.1,6,7,8,9,10,11,12,19,23,24,25 ... I really discovered this problem when my transitioned code tried to access Record #2, which doesn't exist according to VC. Any ideas on what I will need to do to get the program to work as written? I don't, unfortunately, have the time to do a file migration on all the systems and files. I've attached the simple program, and the file that proves my point. RM when set of results Visual Cobol RM different set. Any help would be appreciated. #Relative#COBOL#files#Eclipse#migration#rm

I have 20 tables which have the same declaration for example: EXEC SQL DECLARE Produktion TABLE ( ContainerGuid uniqueidentifier(36) NOT NULL ,BelegId bigint(19) NOT NULL ,BelegJahr bigint(19) NOT NULL ,BelegNummer bigint(19) NOT NULL ,BelegPositionId bigint(19) NOT NULL ,BelegPositionsNummer int(10) NOT NULL ) END-EXEC. Is it possible do create the select statement where the table-name is variable like: move "Produktion" to sql-text EXEC SQL SELECT DISTINCT ContainerGuid INTO :guid-field FROM :sql-text * FROM Produktion WHERE (BelegNummer = :dat-sql-belegnr AND BelegPositionsNummer = :dat-sql-belegpos) END-EXEC move guid-field to dat-sql-cguid-Produktion.

Below is the link error we are getting in Visual Cobol that we did not get in our Net Express 3.1. What steps do I need to take to resolve this error ? Is this a missing parameter or  modules that has been replaced by other modules ?   Thank you for your help.   D:\\vcprod>CBLLINK gropvp.cbl   Micro Focus COBOL - CBLLINK utility Version 2.1.0.35 Copyright (C) Micro Focus 1984-2012. All rights reserved.   Micro Focus COBOL Version 2.1.00024 Copyright (C) Micro Focus 1984-2012. All rights reserved. * Ignored  - LINKCOUNT"200" * Rejected - MAP * Checking complete with no errors - starting code generation * Ignored  - () * Ignored  - TARGET "PENTIUM" * Generating gropvp * Data:        9944     Code:       35264     Literals:       12128 Microsoft (R) Incremental Linker Version 11.00.50727.1

Hi all, I have a sorted grid with three colums. In first and second column I hold strings (e.g. lastname and firstname) in third column numeric data. In last row of grid: cell(last-row, 1) = spaces, cell(last-row, 2) = "Total", cell(last-row, 3) = sum(column3). To be more clear my grid is something like that: LastName FirstName Sales Sparrow Jack 100.00 Lopez Jennifer 250.00 Total 350.00 I am trying to sort the grid by clicking the header of column1 and keeping the sum row always at the bottom. I tried the following: * Form1-Gd-1-Ev-Msg-Begin-Sort.   IF EVENT-DATA-1 = 1        INQUIRE Form1-Gd-1, LAST-ROW = WS-LAST-ROW      MOVE HIGH-VALUES TO WS-TMP      MODIFY Form1-Gd-1(WS-LAST-ROW, EVENT-DATA-1) CELL-DATA = WS-TMP   END-IF . * Form1-Gd-1-Ev-Msg-Finish-Sort.   IF EVENT-DATA-1 = 1        MOVE SPACES TO WS-TMP      MODIFY Form1-Gd-1(WS-LAST-

I’m having trouble with a small test program I’ve written to call a DLL on the client over thin client. Using C# in Visual Studio I made a DLL with a class to display a Popup message box.  I then wrote a small windows form application to test and I have no problem calling the DLL. I was unable to get NETDEFGEN to see the class until I noticed the documentation saying it needed to be .NET 3.5 or older, although it seems the thin client syntax doesn’t need that step anyway.   I then wrote a small COBOL program in Acubench to test the DLL. Using examples from the forum I created a couple push-buttons to test various functions and I was able to successfully call different kernel32.dll functions that were posted here in the past.   I then added a button to test the DLL I wrote. Below is the relevant push-button code.          Main-Pb-1-Ex-Cmd-Clicked.            &n

Please find below reference materials and code samples to support object-oriented programming for COBOL webinar series.  If you have missed a webinar, all six are available on demand here. Trial version of Visual COBOL can be found here. - Webinar 1 - Introduction to OOP for COBOL  Reference material - Introduction to OOP Programming guide Webinar 2 - Your first COBOL class Reference material - 'OOP webinar 2 demo' file Webinar 3 - Data and Properties Reference material - Core.NET/JVM & Properties Samples Browser Projects Webinar 4 - Collection Classes Reference material - Collections Samples Browser Projects Webinar 5 - Inheritance Reference material - 'OOP webinar 5 demo' file Webinar 6 - Accessing procedural COBOL from Java and C# Reference material - Core.NET/JVM & Properties Samples Browser Projects#VisualCOBOL#COBOL#object-oriented#OOP

Demo file for OOP for COBOL webinar 5 (Inheritance). If you missed the webinar, you can catch up here.Webinar 5 - Inheritance demo.zip#OOP#Inheritance#COBOL#VisualCOBOL

Demo file to support OOP for COBOL webinar 2. Missed the webinar? Catch up here.Webinar 2 -Core.Net.zip#VisualCOBOL#COBOL#OOP#dotNet

Dear community, I need your help in order to cast a type 'dynamically', using the GetType() method to set the target Type instead of hardcoding the Type. Below you can find a simple sample code. procedure division using inObj as object.     set (inObj as type Class2)::c1x1 to "test".                      <- OK but hardcoded      set (inObj as type inObj::GetType)::c1x1 to "test".        <- Error COBCH0813 When I try to compile (VC v2.2u2) the above code, I get the error "COBCH0813 : Feature not yet supported when compiling for .NET". Does anyone have any suggestion or alternative solution?#COBOL

We have an issue with ado cursor In visual Cobol.   when we open a cursor with exec sql statement it fetch all rows in memory before returns to next statement. That means huge memory needs and alot of waiting time for the user. How can I make it work again like netxpress? The same in netxpress only opens the cursor without fetching any rows in memory umless you fetch the rows with fetch statement. 

Dear Chris, Do you see any ERROR in the following ?.I am CALL a Stored Procedure  in a Cobol Program. EXEC SQL                CALL :PROCNAME USING DECLARATOR :COSCMNPRD END-EXEC IF SQLCODE NOT = ZEROS                       DISPLAY "ERROR EN LA INVOCACION DE LA STORE PROCEDURE"                       GOBACK. Compiling SFISERB991C.CBL... [cobol] 317 GOBACK. [cobol] COBCH0077S Unexpected end of source within EXEC : C:\\Users\\Pedro\\workspace\\CoreRipley\\PROGRAMAS\\SFISERB991C.CBL(173,7,7) [cobol] Compilation complete with 1 errors, 0 warnings, 0 notices and an exit code of 12

Can someone walk me through how to setup a MS Access (accdb) DB to use with VC and how to create a DCLGEN. I have been at this for about 2 months with no luck.#databases#DCLGENAccess

This is related to having a function (F1) that can do 2 functions on the same screen. They are pressing F1 instead of clicking on the button. It is a 15 line scroll screen with search functions at the bottom of the screen. You can click on the scroll line and press F1 to see the details of this line. At the bottom of the screen you can leave blank or key in a value and press F1 to search by this value. the row is still selected and I still want to show that so they know what record was last selected. Now I want to click on the search entry field and key in a value. When I press F1 at this time it still thinks it is going to do the details function instead of the search function. I want to trap the position of the cursor when I click on the search entry box to know I am in that field. Is there a way to do that on a graphical screen? Thanks,David

I have a problem: in my program is the following declaration 01  benutzername  pic x(100). EXEC SQL DECLARE IBOS2_UniDex.dbo.Clients TABLE ( ClientId uniqueidentifier(36) NOT NULL ,Startzeit datetime(23) NOT NULL ,PulsZeit datetime(23) NOT NULL ,Rechnername ntext(41823) ,Benutzername ntext(41823) ,AnwendungsId ntext(41823) ) END-EXEC. *> -------------------------------------------------------------- *> COBOL DECLARATION FOR TABLE Clients *> -------------------------------------------------------------- 01 DCLClients. 03 Clients-ClientId PIC X(36). 03 Clients-Startzeit PIC X(23). 03 Clients-PulsZeit PIC X(23). 03 Clients-Rechnername PIC N(32000) USAGE NATIONAL. 03 Clients-Benutzername PIC N(32000) USAGE NATIONAL. 03 Clients-AnwendungsId PIC N(32000) USAGE NATIONAL. *> -------------------------------------------------------------- *> COBOL INDICATOR VARIABLES FOR TABLE *> -------------------------------------------------------------- 01 DCLClients-NULL. 03 Cli

I had changed my Date while working on a project to test out the Day of week function and now I get a License Error 26- Tampered date issue.  What can I do to resolve this.  I have a class to teach tomorrow and need to get this working again.

I have several .jpg files that I would like to add as resources.  I use these to display a variable background color for a control at run time.  I have not found a way to add them under Properties..Resources so I tried adding them in my program code but have not been successful at doing this.  Any examples on how to do this?#VisualCOBOL

Dear Chris,   Today we P5 processor development and production have at least P7, the issue becomes more complex since we are compiling in P5 processors and these binaries will be promoted to Production. At least we need to have to use the maximum P7 processors operating time production, on the other hand ask microfocus provider they point out the differences to try a compiled P5 and P7 certificate and exploited in binary.   Many Thanks in advanced.   PJM  

Hi, I am having a RM/Cobol-85 dat-file (indexed file?) which data I need to have extracted in a readable way for analysis (e.g. MS Excel). But I am not a programmer and not familiar with RM/Cobol. I am just an end user of this application. Unfortunately our programmes are not maintenanced any more. We use RM/Cobol-application on a Windows 7 platform with MS-Office 2007. Is there a way or program for an end user to extract or copy all the data of the dat-file in an readable way to MS Excel or a text file?I heard about Record Editor but I don't know how to use it, e.g. what kind of file structure it is or what is a copybook. Or Is there a way to copy all the lines as text at once of the RM/Cobol-85 window? Now I am able to copy only one line of the opened RM/Cobol dat-file window. But there are hundreds of lines there to copy. I tried to find something in the "Properties for Runtime" dialog box that sets copy specifications. But cannot find anything there. But this would a

Problem When deploying a service interface to an enterprise server instance, why does Eclipse display an 'Invalid thread access' error message? Resolution When deploying a service Interface, the following error message box may be displayed: This message indicates that an 'object' has not yet been saved prior to deploying. It could be that a Program has not been saved. This message also occurs if an Operation has been added but not saved. To resolve this issue, you can issue the Save All command either by using the icons on the toolbar:   or by clicking on 'File' and using the dropdown menu:  

Hi, I have a program consisting of 2 forms and several classes, i.e. customerclass, materialclass etc. These call an interop xfakt.dll which requires a new login for each new created instance. What I need is to share one call with all forms and classes like: 01 xfakt.  type xfakt.app . Method... set xfakt to new xfakt.app() I need to share this instance of xfakt with all other classes. Thanks in advance.

I need to get the date and time of the local server and write a file.It can not be the workstation because the user can change them.Is there some function or class that execute this process? VC 2.2 .NET WINSERVER 2003

Are any ACUCOBOL customers using transaction and C$RECOVER in production?  I am interested in why, and what experience you have had in production with transaction recovery please.#AcuCobol#ACUCOBOL9.2.1

Hi everyone, Concerning data format IDX. Using idxformat with Microfocus applications, there seemed to be idx4 and idx8. So let me start by having these two kind of access; (a.) my environment variables - using Extfh.CFG and assigning "set extfh=C:\\myapp\\Extfh.CFG" for example [XFH-DEFAULT]fastread=onfilemaxsize=4filepointersize=8 (b.) and used inside my application [Cobol code], as a compiler directive $set idxformat"8" I know that the two separate command is different. It is either using one format or the other. The question is, which data format is being followed her if mistakenly executed? Would it be IDX4 or IDX8? What will be the priority in such case?#netexpress