Rocket® COBOL

are hierarchical databases (e,g IDMSX or DMS100 ) supported by Visual Cobol

Hi. In Advance, sorry for my poor english. I have this, in NetExpress: THE CALLER [CODE FLAGMENT - BEGIN] *------------------------------WORKING-STORAGE SECTION.*------------------------------ 78       NumItens VALUE 10.78       NumMinas VALUE 12. *01       wParametros.  05     wJogando PIC 9(001).  05     wTiros PIC 9(002).  05     wMinasAchadas PIC 9(002).01       wCampoMinado.  05     wNumitens PIC 9(002) VALUE NumItens.  05     wNumMinas PIC 9(002) VALUE NumMinas.  05     wArea.    10   wFiller Occurs NumItens.      15 wTerreno PIC X(002) Occurs NumItens. [CODE FLAGMENT - END] THE CALLED CLASS [CODE FLAGMENT - BEGIN] Method-id. "Inicializacoes". *------------------------------ linkage                Section.*-

I am using excel in my program and after i finish it remains in memory in the task manager. How can i get rid of this? 77 olExcel HANDLE OF APPLICATION. 77 olWrkBk HANDLE OF WORKBOOK. 77 olWrkSh HANDLE OF WORKSHEET. 77 olRange HANDLE OF RANGE. 77 olSheets HANDLE OF SHEETS. 77 olFormat HANDLE OF VARIANT. CREATE-AND-OPEN-EXCEL-FILE.    CREATE @Application of @Excel handle in olExcel.    MODIFY olExcel Workbooks::@_Open      (BY NAME FILENAME OPNSAV-FILENAME,    BY NAME Format xlCSV,    BY NAME Delimiter ";",)    GIVING olWrkBk.     INQUIRE olWrkBk sheets() in olSheets.    INQUIRE olSheets item(1) in olWrkSh. . *QUIT-AND-DESTROY-EXCEL.   MODIFY olWrkBk @Close()    MODIFY olExcel Quit()     DESTROY olSheets    DESTROY olRange    DESTROY olExcel    DESTROY olWrkBk     DESTROY olExcel . #Excelstackintaskmanager

I maded one post about currency formating, and the question was answered, but I am now trying to put the system formatting within a field in a datagridview, so, I C# for me is more easy to make that, and I maded, but, When I tryed to make the same in Visual Cobol, I just got errors :(My C# code is that, remambar, is based in that code: community.microfocus.com/.../10425.aspx private void dataGridView1_EditingControlShowing(object sender, DataGridViewEditingControlShowingEventArgs e) { e.Control.PreviewKeyDown -= Control_PreviewKeyDown; e.Control.PreviewKeyDown = new PreviewKeyDownEventHandler(Control_PreviewKeyDown); } private void Control_PreviewKeyDown(object sender, PreviewKeyDownEventArgs e) { var txtB = (TextBox)sender; var myValue = txtB.Text.Replace(",", "").Replace("R$", "").Replace(".", "").TrimStart('0'); decimal ul; if (Decimal.TryParse(myValue, out ul)) { ul = ul / 100; txtB.PreviewKeyDown -= new

what databases are supported by visual cobol?#databases

Does anyone have a systems flowchart for visual cobol environment?

Created an online solution for an appliance retail business using NetExpress v3.10. You can view this online solution in my personal website www.retailplus1.com The question I would like to ask is the usual .DAT/.IDX data limitation since I tried encoding several records to check the limitation of an ISAM file. It seems to me that the limitation is1GB or about 1.3GB (indexed), it is getting a boundary violation error. Is this really the limit? Or is there any configuration that is needed to just even add a few Gigabyte to a file?? I only used $set indxformat"4" as my compiler directive.#COBOLserver#DataLimitation#netexpress#Windows

Hello, We would like to integrate the iText pdf java library in a legacy application developed under VC2.1. We know - thanks to the forum - how to call iText in a cobol jvm project. But it is me unclear how to call - if possible - a java library from legacy cobol (or oo cobol) gnt executables without developing the entire application for the jvm. The idea would be : program-id. myLegacyCode. *> declare the java iText library *> or an object referring to the library *> or something calling a cobol program written using the cobol jvm syntax procedure division. *> open my data file perform until eof      read mydatafile-record next      not at end           call or invoke the java iText routines directly or via some glue      at end          set eof to true       end-read end-perform *> close mydatafile *> exit prog

Is there a way to get the IP Address from the HTTP header in a web screen written with Net Express?  We'd like to capture the IP Address of people using our system for logging purposes. Thanks!

we want to make a help file and every program to link in specific part o the help file. I read that windows help processor can me useful in conjuction with the W$HELP command and Help ID but i dont know where i can find the Help Processor and how to create this help file(.hlp file) Giorgos#helphlpwinhelp

Hi everyone! Today I encountered the following problem: We have an SQL-table with a column named "day-number". I'm trying to add a row to this table using dynamic SQL: INSERT INTO DEV_YR_51.dbo.testtable (day-number, maximum) VALUES  (?,?) After execution I get the following error: Error: Insert to testtable unsuccessful (-) - Incorrect syntax near the keyword 'day'. What causes this error? I tried using an underscore instead of a dash, but then the error is "Invalid column name 'day_number'" Thanks for the help! Regards, Raffi#underscoresql

Hi All, Back on the Visual COBOL SQL with pro*cobol tests.. Our project is a migration project from UNISYS (DPS screen, RDMS database, DMS indexed files, ECL JCL and so on...) to Linux Visual Cobol Development Hub and Oracle Database. For various raisons, the project use actually COBOL fixed source format and pro*COBOL. Now we need to wotk with Eclipse Visual COBOL...First of all, ware working on compilations with Eclipse on the Linux server via Development Hub.our tests are ok with simples COBOL programmes (without EXEC SQL statement)but they failed with EXEC SQL statements : [cobol] * Cobsql Integrated Preprocessor [cobol] * CSQL-I-018: Invoking Oracle Precompiler/Translator [cobol] sh: procob: command not found [cobol] * CSQL-F-016: UNIX error Return Code is 0127 Do we need do update PATH and LD_LIBRARY_PATH variables cibling $ORACLE_HOME/bin and $ORACLE_HOME.lib binaries and libraries directories before launching rdodaemon?I saw in the RSE documentation of Visual COBOL that we can

Hi, I whant to know, how I can make the currency format to textbox, like of Cobol 77 Invoice-Amount Pic $$,$$9.99. I tryed other why, but is so strange and not so functional..., it's possible Automated teller machine ??? for example: the user will be type this number 5124.25 the user types 5: 0,05 the user types 1: 0,51 the user types 2: 5,12 the user types 4: 51,24 the user types 2: 512,42 the user types 5: 5124,25

Hi I have created a test project to test the "--netdll" compiler switch. I have the .dll and the _CVM.dll files created, and can reference them correctly into my VC project. I can also build the VC project without errors. But when calling one of the entry points, or the main, I only get an exception (I put the call in a try - catch - setting) saying "Index was outside the bounds of the array." I have now tested one COBOL program that i have made on my own, and I have tried copy / paste of the COBOL program the C# code in the sample from the documentation. Both are returning the same exception. I dont think the excecution is even getting to the code inside the COBOL .dll I think the exception is triggered in the call before it gets so far. Have anyone got this working? Regards Dagl#--netdll

Is this running? #VisualCobolwithEclpiseunderSUSE13.1

Hi All, Is there any solution to use COBSQL directives with oracle pro*cobol with FREE or VARIABLE source format? I've tried with variable sourceformat. The precompiled source (.cs9) is ok but the second phase of the compilation hang.... I'm sad to keep fixed format in Visual COBOL Platform:Visual COBOL for eclipse with hub on linux. Thanks.Franck.

We are migrating from Net Express 3.1 to Visual COBOL and found the following problem in Native code with embedded SQL statements.  When we perform the open cursor for a fetch statement, we receive a sqlcode of -0000000229, sqlstate of 42000, and a mfsqlmessagetext of [Microsoft][ODBC SQL Server Driver][SQL Server]The SELECT permission was denied on the object 'Customer', database 'Test', schema 'dbo'.  In the SQL database, we limit the users to only having connect permissions and the ability to execute a stored procedure that will return an approle username and password.  Then, we execute sp_setapprole using the returned username and password to provide read and write access to the database.  This process works just fine in Visual COBOL.  Further, we can perform a SELECT statement returning a single row and the declare cursor.  However, we get the above error message when we execute the open cursor. This co

I got an incompatible error in my method error COBCH0968 : Collection element has incompatible type In that  peace of  code "perform varying val through _where_", the compiler say the type Dictionary[type String type String] is incompatible with KeyValuePair[type String type String] to make the perform ( basicly the is the foreach command ).... method-id Update final public. working-storage section. 01 vals string. 01 val type KeyValuePair[type String type String]. procedure division using by value tableName as string _data_ as type Dictionary[type String type String] _where_ as string returning rtCode as type Boolean. declare strB = new StringBuilder(""). move true to rtCode. if(_data_::Count > 1) perform varying val through _where_ invoke strB::Append(string::Format(" {0} = '{1}',", val::Key::ToString(), val::Value::ToString())) end-perform end-if. end method.

When I go to the link sent to me by MF to download the free/personal Visual COBOL, I am presented with the same download file for both Visual Studio and Eclipse: "Visual COBOL for Eclipse Personal Edition". Sure enough, when I install what I download under the "Visual Studio users" tab I get an Eclipse version install. Looks to me that the webpage is incorrect, and erroneously presenting the Eclipse download instead of a Visual Studio download?

Where would I find documentation on how to create a .RS file from a .GS file for Dialog System Screensets.  I was using DSWIN and a .RSS file to build the .RS files.  DSWIN will not run because my NetExpress liscense has expired.  (I'm getting a 109 error).  I notice that VC 2.2 can now use Dialog with out having a NetExpress License, but I need to be able to create the .RS for deploying the product.  Is there some way in Visual Cobol to output a .RS file?

We have a system that uses DB2 database. We need to have this system now use an Oracle Database for one particular customer. We thought the easiest way to achieve this would be to simply use ODBC so that (in theory) we should have minimum changes.First test was to be able to access the existing DB2 database but via DB2 ODBC driver. First problem to arise was related to some strange (for historic reasons - no surprise) record layouts that we have. For example, we have the following code:01  WS-DATA.     03 WS-A        PIC X.     03 WS-B        PIC  S9(4) COMP-5.     03 WS-C        PIC X.      CREATE TABLE MYTABLE (MY_CODE SMALLINT NOT NULL, MY_DATA CHAR(254) FOR BIT DATA)MOVE "A" TO WS-AMOVE 1 TO WS-B.MOVE "C" TO WS-C.MOVE 1 TO WS-SQL-CODEINSERT INTO MYTABLE VALUES(:WS-S

Hi! I have a Problem with the API "GetVersionEx" i Need the Information wich Windows System is running. Microsoft mean this: http://msdn.microsoft.com/en-us/library/windows/desktop/ms724834(v=vs.85).aspx But I become sometimes the wrong Version back e.g: Windows VISTA and Windows 2008 Server have the same Version Number the different is: OSVERSIONINFOEX.wProductType == VER_NT_WORKSTATION /  OSVERSIONINFOEX.wProductType != VER_NT_WORKSTATION But i become not the Information back about wProductType... Her are more Details:        01 OSVERSIONINFO             is typedef.                        03 dwOSVersionInfoSize   DWORD.                        03 dwMajorVe

We need a Code Count (Lines of Code) Utility of our COBOL code. Does Microfocus have something like that for NetExpress and Mainframe Express or could you suggest a tool?  

I frequently get this warning when I run or build a Visual COBOL native or managed project in Visual Studio 2012: "Forcing a rebuild of all sources due to an error with the tracking logs.  Not a valid Win32 FileTime.  Parameter name: FileTime." The file referenced is MicroFocus.COBOL.targets This can get to the point where every time I click on Start to run our application, the project is rebuilt.  Does any one know what causes this warning ?#VisualCOBOL

Hi, I have an application that is written in RM COBOL. I want to start using Net Express/ Server Express in order to reduce my development and testing time. However, I had the following questions: 1) For how many years does Micro Focus promise to support Net Express/ Server Express? Is there a product support document that I can look at? 2) Is Visual COBOL recommended over Net Express/ Server Express? If so, why? The reason why I ask this is because I believe that getting RM COBOL to compile on Net Express is much easier than getting it to compile on the Visual COBOL compiler. 3) Is Net Express/Server Express a strategic product for MicroFocus? Thanks#ServerExpress#netexpress#VisualCOBOL