Rocket® COBOL

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

Good morning, I'm trying to register with NetExpress 3.0       $set ooctrl( P)            ........            wordapp             is class "$OLE$wordXX.application"           ......            invoke EntryCallback "new"     using z"myHandler"                                      returning aHandler            invoke ExceptionManager "register" using OLEExceptionManager       &nbs

In the applications we have mounted on HP-UX to write the XML using the command "write" are always written with pretty print format, ie with tabs. Is there any way that these XML are written without this pretty print format? Regards.

In the archived forums there is a great example of controlling excel through ole automation. I have used the sample program from time to time with out a problem, however I am trying to duplicate a VBA macro that formats a header row nicely. I have most of it working except "AutoFit" and "FreezePanes". AutoFit is more important to me than FreezePanes. Here is the VB code:  Rows("1:1").Select With Selection.Interior         .ColorIndex = 37         .Pattern = xlSolid End With Selection.Font.Bold = True Selection.AutoFilter Rows("2:2").Select ActiveWindow.FreezePanes = True Cells.Select Cells.EntireColumn.AutoFit Range("A1").Select Here is the reevant parts of the COBOL code: INQUIRE EX-WORKBOOK @Worksheets::Item(1) IN EX-WORKSHEET. INQUIRE EX-WORKSHEET @Range("A3:O3") IN EX-RANGE. MODIFY EX-RANGE @Font::Bold = 1. MODIFY EX-RANGE @Interior::ColorIndex = 37. MODIFY EX-RANGE @Interior::P

 Hello,  we are migrating our Cobol-Programs from Solaris to Linux.  Our Linux-Environment:  - SUSE Linux Enterprise Server 11 SP1  (x86_64) - Server Express V5.1 - My workstation: Windows XP SP3 - 2 GB RAM A few programs throw the following error-messages: Part of the compilation-protokoll:  " cob64 -cgx r00157.cbl Execution error : file 'token'error code: 114, pc=0, call=1, seg=0114     Attempt to access item beyond bounds of memory (Signal 11) cob64: error(s) in compilation: r00157.cbl" On Solaris the compilation of these programs is working without any problems. Does anyone has a idea what's going wrong and how to solve the problem? Thanks and best regards Michel#Executionerror114filetoken

why AcuParam are not recognized?  <OBJECT ID="AcuGTAX1" WIDTH=640 HEIGHT=480     CLASSID="CLSID:077C768D-64C1-4AC1-845D-4589B4B2C24E"     CODEBASE="www.acucorp.com/.../acugtax  acugtax8121.cab#Version=8,1,2,2949">     <PARAM NAME="SRC" VALUE="localhost/.../Cogeweb.acu">     <PARAM NAME="AcuEmbedded" VALUE="TRUE">     <PARAM NAME="AcuParam1"   VALUE "_PARAZZA">     <PARAM NAME="AcuParam2"   VALUE "PARAZZAPARAZZA">     <PARAM NAME="AcuParam3"   VALUE "CogeWeb_Call_Sime">     <PARAM NAME="AcuParam4"   VALUE "10"> In cobol program "c$getvariant" return blanks.

How can I hide the logo?

Gentlemen, Is it possible for Server Express 5.0 to run an CGI EXE created on Net Express 5.1? I noticed that i am unable to run any of the exe i created on 5.1, when i run them directly (not trough the browser) it generates the following error, (the exe created on 5.0 does not show this error): Dynamic binding error un run-time entry point _mFgmain2An attempt was made to bind to a run-time library for NetExpress version 5.0 (using the default installed version) but that library is version 5.0 and does not meet the necessay dynamic binding requirementsThe dynamic binding for this EXE/DLL requires at least versin 5.1 of the NetExpress run-time library CBLRTSS.DLL And when run via browser it just loops indefinitly, showing nothing. Is it possible, or am i missing something?

The following code works fine but iT opens a new tab each time it is exexuted using IE9.   Hoping that it is possible to open in an existing tab if available. Excerpt: STRING "start "                                           DELIMITED BY SIZE "https://www.[any website goes here].com" DELIMITED BY SIZE INTO WS-FIELD . . . CALL   "C$SYSTEM" USING  WS-FIELD  ,                                                   201    

We are running a ten years old desktop based application. Presentation layer or GUI is built on Net Express deployed on Windows machines and business logic (or transaction program) is built on Micro Focus Cobol deployed on UNIX server. Cobol programs use embedded SQL to persist data on Oracle database. We are now evaluating different options to switch the application to a web based application. Organization has taken strategic decision to use .NET framework for any future development though J2EE option is still open if it has significant edge over .NET. Cost and quick turn around is key factor while evaluating different options. We have following options in consideration. 1. Replace Net Express front end by .NET and re-use micro foucs cobol transaction program and embeded SQL. 2. Decommission existing application and re-write a brand new application on .NET framework. #1 option sounds best choice as it involves less development and less QA time. But IT team does not have any prior

Some of our Windows forms are made up of tabs. Each tab contains data relevant to the header. My first tab on form XYZ is called 'Personal'. The first field on tab 'Personal' is called 'Per-Code'. My tab ORDER says that 'Per-Code' is value 0.0.0 with the Personal tab having a tab order of 0. I have no other tab values of 0.0.0 within my tab of Personal. At runtime I use the code Invoke Per-Code::Focus() BUT on running the form the field Per-Code doesn't become active until  I press the <TAB> key when the field Per-Code then becomes 'live' and editable. What command do I need to use to have it so that I don't have to press the <TAB> key first? I note that this does NOT happen when I'm NOT using a tabbed form!

I am get this error after 15 minutes.   Can I control the loading process? Is there a document that describes the loading process? ProcessRun: tmp = C:\\ACCOUNTS\\DEV10\\IO\\MGR01.io ProcessRun: runProg = C:\\MF-SYSTEM\\WORKBENCH\\BIN\\ORDERMGT.EXE ProcessRun: runProg = C:\\MF-SYSTEM\\WORKBENCH\\BIN\\ORDERMGT.EXE /P:C:\\ACCOUNTS\\DEV 10\\IO\\MGR01.io /D:C:\\LISTENER\\DEV10\\DEV10.CONFIG Unhandled Exception: OutOfMemoryException Exception of type 'System.OutOfMemoryException' was thrown. at Void  ORDERMGT.Main._MF_PERFORM_4_642(Int32 start_end) at Int32  ORDERMGT.Main.Main() at Int32  ORDERMGT.Main._MF_ENTRY()

Hello, Does anybody know to create a configuration script in order to run CMake with cobol files ? I would like to create a CMakeLists.txt files with our project. And I can't manage to call the cob command for the compiler with CMake. I thank you for your suggestions. Best regards, Alain Reymond

Good afternoon. I am currently working with RM/COBOL and we are planning to acquire Visual COBOL, the download for evaluation but so far I can not make an application that uses indexed files. Therefore I request any help that I can provide, I would serve much any tutorial or in your case a basic project in Visual Studio that handles files. Thank you...