Rocket® COBOL

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

Hi, I've installed vcvs2012_222.exe in win 8 dev environment as suggested by mf support to resolve an issue. (1) How do i update the run-time? The current installation in our run-time environment was from cs2012_221.exe. If there's a 222 upgrade different from the vsvc upgrade above, please let me know where i can find this. (2) Is the compatabilty add-pack now included in 2.2.2 i.e. do i need to install an add-pack upgrade separately in the dev and run-time environments? Thank you, Linden 

Problem: Net Express 5.1 fails to start from the shortcut and from the command line with MFNETX.EXE and reports an access violation on CFGMGR32.DLL. It may also report an access violation on RTUTILS.DLL. Resolution: If none of the following fixes the problem: applying the latest WrapPack (or Update) repairing Net Express from Programs and Features in Control Panel reinstalling Net Express then it would be worth to make sure that the Data Execution Prevention (DEP) setting in Windows is set to "Turn on DEP for essential Windows programs and services only", not to "Turn on DEP for all programs and services except those I select"

Problem: A user is granted connect, then granted select on certain tables.  Instead of being limited to only those tables the user can access all tables. Solution: The data base had been configured as READ_ONLY; this entry was found in the acuxdbc.cfg file:    read_only  true Therefore the GRANT operations could not actually update the tables containing the security settings. The solution is to set "read_only false", or to comment out that setting, then perform the GRANT operations.   

Problem: How to animate or debug a Dialog System character screen (.s)? Resolution: If the program calls Dialog System with "DSRUN", then a call with 'T' in DS-CONTROL is required before calling DSRUN with 'N' in DS-CONTROL. For example: working-storage section.[...]78 dialog-system value "DSRUN". procedure division.   [...]   move 'T' to DS-CONTROL   perform call-dialog-system    move 'N' to DS-CONTROL   move 'ScreenName' to DS-SET-NAME   perform call-dialog-system   [...] call-dialog-system section.   call dialog-system using DS-CONTROL-BLOCK,CUSTOMER-DATA-BLOCK   [...] Alternatively, you may replace the 78-level definition of Dialog System to "DSC" 78 dialog-system value "DSC". and there is no need to call Dialog System with 'T' in DS-CONTROL. In other words, the two lines move 'T' to DS-CON

Problem: When calling "DS" to animate a Dialog System screenset, the call fails with the following errors: Exception 34 not trapped by module: dsbmpw32.dll.Description: "Could not load module" Resolution: DSBMPW32.DLL is the Dialog System module handling the bitmaps found in the screenset, and for some reason it was not possible to load it. This problem occurs when the Dialog System runtime files are not found in the PATH. By default, C:\\Program Files (x86)\\Micro Focus\\Net Express 5.1\\DIALOGSYSTEM\\Bin or C:\\Program Files\\Micro Focus\\Net Express 5.1\\DIALOGSYSTEM\\Bin is added automatically in the PATH when starting Net Express, but it is likely a user has overridden the PATH from the IDE or Application environment in the project properties. As much as possible, %PATH% must be part of the value. If for example I need to add X:\\Dir\\SubDir in the PATH (i.e. %PATH%;X:\\Dir\\SubDir), I would define