Rocket® COBOL

Problem: EXEC SQL    CALL UDBSP (:WS-INPUT1 IN,                                :WS-OUTPUT1  OUTPUT)                           :WS-ORDER-BY-STR-OLD OUTPUT)             END-EXEC. Error after compiling: COBDB0100S SQL0104N An unexpected token was found following CALL UDBSP. Resolution: The DB2 ECM support does not use the type parameters in the stored procedure call list.  Removing the IN and OUTPUT from the CALL resolves the compilation error. Also you may need to compile with directive DB2(CALL_RESOLUTION=DEFERRED) if you place the name of the stored procedure in a host variab

Hi In Netexpress 3.1 I used to be able to search a source file for text and then compress the results using F9 and then place the cursor on a line and press F9 again to expand the text. In 5.1 the second F9 does not expand the text. The only recourse is to use the mouse and right click and select 'expand'. This costs me time and I don't like switching between mouse and keyboard. Does anybody know how to achieve using keyboard in 5.1? Regards Ian

Hello, I'm looking for a solution to get the specific user who has a file locked in windows. In a UNIX server environment we're using the C$LOCKPID to get the process Id, and finding the username that way, how do I go about this in a thin client windows environment? Thanks

We have an issue with the Excel.exe not clearing from the list of processes, but only on 64bit systems (Windows 7 and Server 2008).    32bit is fine CREATE @Application of @Excel handle in EX-APP  MODIFY EX-APP @Workbooks::Open ( ws-ltout-file ,0,0)       giving EX-WORKBOOK. MODIFY EX-WORKBOOK @PrintOut()        call "c$sleep" using "2" # next line added, but no change in behavior MODIFY EX-APP @DisplayAlerts = 0 MODIFY EX-WORKBOOK @Close() DESTROY EX-WORKBOOK MODIFY EX-APP @Quit() DESTROY EX-APP I've seen the following online, but I'm not sure how to code this in Acu. System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) obj = Nothing Thank you for any assistance!       #ExcelOLE#Excel

Hi, I have created a few bookmarks in multiple word docs. I am trying to locate and insert text after the bookmarks, I have that part working. My problem is that I want to look thru the document first to see if the bookmark actually exists. Any help would be greatly appreciated.

hello I'm using visual cobol for eclipse. Following the help book, I have set environment variable(both in win7 and eclipse) TESTCOVER=C:\\default.tcf default.tcf  [TESTCOVER] RESULT C:\\tcresult.tcz ACCUMULATE ECHOLOG NO and have writen [$SET TESTCOVER] in my program's first line from 7th character and then compile，run. and no where I can found .tcz file please point me the mistake or what i missed thanks newest： When I use run command to launch my program,I was succeed to got a .tcz file. but why it does not work in eclipse?

I have acuv8.1.1, I ever use it to successfully compile code which contain statement such as "CXML-ADD-CHILD"/"CXML-MODIFY-CDATA". But today I want to compile it again, it keeps showing me "No SELECT for file: CXML-ADD-CHILD" compiling error. It looks like acuv8.1.1 not supporting "CXML-ADD-CHILD". Does anyone ever have similar experience? FYI: both acu6.1.0 and acu8.1.1 are installed on my developing environment. #cxml

Please find below the question and answer transcript from the final webinar in the Visual COBOL webinar series. To catch up with all the webinars in the series, including this final one, please visit the Visual COBOL webinar download page.  Q: How does the old Accept/Display Line Position work in this environment?A: existing applications continue to behave just as they would in Net Express or Server Express.If you want to modernize an accept/display application and provide an enhanced UI, you could use .NET or JVM technology. The main challenge is to separate your existing UI from the business logic so that it can be accessed by the new UI framework.The Visual COBOL development product includes some samples that show what the end result might look like in thick and thin client scenarios. Q: Can Visual COBOL work on Android devices? How about IOS? What is the mobile/tablet solution? A: Visual COBOL applications are not supported on Android or IOS today. Please let us

My solution has a C# project and a COBOL project.  Several text boxes are entered on a C# form which then calls a COBOL program to do the validation.  The C# project has a reference to the COBOL project so that it can create an instance of the COBOL program before calling it.  There are several ways I can pass the text box values to the COBOL program. 1. Pass them in linkage, including use of smart linkage (can use smart linkage if the COBOL program is not a class). 2. Declaring properties in the COBOL program and setting them from the C# program before calling it. 3. Passing the Windows form object to the COBOL program and using its Controls collection to get the Text properties of each text box I need to   validate.  The code for the last method looks like this:  method-id ValidateMethod.       local-storage section.            01 ctrls type System.Windows.Forms.Control

Hello everyone, I wonder if there is a way to know which file a Specific Punta XFD. thank you very much :)

Using the <RET> key to traverse through a form with a number of fields what question can I ask to determine WHICH field I've just pressed the <RET> key on? Have tried using the TabIndex property like: if self::TabIndex = 0     invoke self::processEmployeeNumber()    exit methodend-if for asking if  I'm on the first field on the form but it doesn't seem to work as it appears that this code is processed even WHEN I'm on the 10th field (tabindex property = 9). So I know I've pressed the <RET> key so how do I now know on WHICH field I've pressed it on?  

I am trying to check EXCEL language setting by following statement: Application.LanguageSettings.LanguageID(msoLanguageIDUI)   But I am not sure how to accomplish this in ACUCOBOL grammar. Anyone can help? Thanks in advance.    #Excel

Hi all,my enterprise software platform runs on AcuCobol. I would like to access the data produced by it in C #. I installed AcuODBC and through WinSql can query the database, but I can not do the same via an ASP.NET page that uses the same ODBC connection. You know you help me? thanks a lot

Hi all, I'm using Net Express 5.1 on Windows Server 2008. My job is to convert databases to get them ready for production. What do is when I have Gendercode, Firstname and Lastname in seperate fields, I convert them into full names and salutations. For example: "M;Brian;Jones" becomes "Mr. Brian Jones" and "Dear mr Jones,". It all goes well as long as the databases are 8 bit ANSI.   The problem i sumbled upon is this: A customer delivers Eastern European names including there high characters in an Excel database. As soon as i export the database into CSV-ANSI those characters are lost, because they need 16 bits in stead of the standard 8 bits. I managed to export then as UTF-16 LE. I already understand that it is LE (Little Endian), because the BOM (Byte Order Mark) says x"FF FE". I've read that Net Express can handel 16-bit LE databases quite well. Problem is that i'm a total newbe on this. So my question is:

Is it possible to set the background colour of any given cell to one other than the default. This is in respect to being able to set the cells to READONLY or not ok. In the event the cell is READONLY I'd also like to set the background colour of the cell to a meaningful colour to indicate to the user that the cell IS a READONLY cell and that the data inside that cell cannot be edited. Thanks. 

What do I need to set up so that I can determine if a function key has been pressed whilst the user is on a Form? Thanks.

In setting up a datagrid I have a grid containing 5 rows and 4 colums. I've set my first cell to be 0,0 (no problem) Tabbing will move in an orderly function from left to right. (no problem) I wish the <return> key to behave like the <tab> key but the <return> key currently moves DOWN the grid rather than across. I've added code for the 'keydown' event on the grid which states.... if NOT e::KeyCode = type "System.Windows.Forms.Keys"::Return     exit method end-if. set indexOfRow to mydata::CurrentCell::RowIndex. set indexOfColumn to mydata::CurrentCell::ColumnIndex. set mydata::CurrentCell To mydata[indexOfColumn 1 indexOfRow] Despite this code the cursor now moves ONE cell across and ONE LINE down. What am I missing?  

Hopefully I got this in the correct forum.   I've done some extensive searching and could not find exactly what I was looking for.     Here are my questions: 1. We are implementing the ability to Copy/Cut/Paste using the Windows functions (Ctrl C, X, V, etc).   This all works great, except for grid entry fields.  I've seen that there was some issues with this before, but I don't believe there was an actual resolution to the issue.   I've tried debugging through the grid entry handling and when running the Paste function (Ctrl V), the grid acts like I am leaving the field (event 16393).   I can use Shift Insert and right-click, Paste with success, but I wanted to have consistent functionality going forward.    Is there a way yet to implement these functions in a grid?    2.  I've also done some work trying to get a calendar button added to our date entry fields.   We've fooled around with the &quo

Dear All, I'a facing a problem in using move corresponding syntax, I have identical group members and the syntax does nothing!! any one can help please ?? best regards#COBOL

Hello, I was wondering if there was a way to find the line of code in a program that generated a runtime error. For example, the following error Exception Raised, ERR-CODE = H'800a017d'COBOL error at 018DF0 in ../ar/HMEINVPST.ACUCalled from 00DBE7 in POSMENU.ACU Is is possible to open the source code for HMEINVPST.ACU, and find 018DF0, and if so how do I go about it? Thanks

I want to code so that the <Enter> key behaves like the <Tab Key> whilst on a Windows form in that pressing the <Enter> key will... a) Validate the field I've just pressed the <Enter> key on... b) If no error then move onto next field as designated by the TabIndex order... c) If ERROR then remain on field for corrective action. I've noticed on the Knowlege database the following suggestion of code to do this... http://kb.microfocus.com/display/4/kb/article.aspx?aid=36145 however when I cut & paste the relevent lines of code into my own solution I get may errors relating to the words 'Keyboard', 'RoutedEvent' & 'InputManager'! Can someone provide code to help me out here please?  

I've been asked to investigate the transfer of a screen containing many similar values into a Datagrid object as provided for in Visual COBOL. Can anyone point me in the direction of some basic 'how to' instruction on how to: a) create datagrids b) populate them with data coming in from a table c) movement between cells in a datagrid d) validate cell data (as entered by the user) e) retrieve datagrid content and put back in table Thanks very much. P.S a Wiki on this topic would be welciome!

just started to use the following example code (so not so experienced with it) * Create the OLE interface    create @Application of @Excel handle in excel-app.                          * Don't show it yet!    modify  excel-app @Visible = 0. * Use this to create a new excel doc    modify excel-app           @Workbooks::Add()           giving excel-doc.             * Get the worksheets collection    inquire excel-doc sheets() in excel-sheets. I would like to create more than the standard 3 worksheets in this document,  this can somebody inform me how I can do that, tried the next code but it does not work ....    

How can I access the call stack information to identify the program cal hierarchy like you get at abend.

Hi  Could anyone draw the bench marks between server express with Ext3/4 File systems versus Btrfs ? Any help or pointer is much appreciated  Thanks