Rocket® COBOL

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

I  have to rebuild  COBOL embedded programs from ORACLE sql to MS SQL-server SQL.  1) For ORACLE we had a translation for the codes :       *    ORACLE sqlcodes.       01  C01-SQL.           03  OK                           VALUE  ZERO         PIC S9(04) BINARY.           03  NOT-FOUND        VALUE 1403         PIC S9(04) BINARY.           03  ALREADY-EXIST  VALUE -0001         PIC S9(04) BINARY.       &nb

Hello, I am trying to open an excel document and then count the total number of Rows and Columns. But somethings i am doing wrong and i get meaningless or same numbers (depents on putting USAGE COMP-3 or not at the end of W-BX-CELL-DATA variable) 77 excel-app handle of application. 77 excel-workbook handle of workbook. 77 excel-sheets handle of sheets. 77 excel-worksheet handle of worksheet. 01 TARGET.      05 CELL-LETTER1 PIC X VALUE IS " ".      05 CELL-LETTER2 PIC X.      05 CELL-NUMBER PIC 9(6). 01 W-BX-CELL-DATA PIC X(100) VALUE SPACES. ******************************now the routine*********************** INQUIRE excel-worksheet @Range(TARGET)::End(xlDown)::Row IN W-BX-CELL-DATA. MOVE SPACES TO W-BX-CELL-DATA INQUIRE excel-worksheet @Range(TARGET)::End(xlToRight)::Column IN W-BX-CELL-DATA.#excelcolumnsrows

Hello, I have a variable X(256)  and i am trying to fill the status-bar  title but it displays only 128 characters. Why? How can i add more?

Hello, I have the following java code : Connection connection = null;try {     /* DB2 */    Class.forName("com.ibm.db2.jcc.DB2Driver");    connection = DriverManager.getConnection ("jdbc:db2://db2server:50000/mycooldb2 }catch (ClassNotFoundException e) {    e.printStackTrace();}catch (SQLException e) {    e.printStackTrace();} RunUnit runUnit = new RunUnit();XVsd138l vsd138L = (XVsd138l) runUnit.GetInstance(XVsd138l.class); vsd138l.XVsd138l(sl_ext_uebergabe, sextuebergabe, sl_uebergabevsdl18l, suebergabevsdl18l); XVsd138L is a Cobol Program as Bytecode with ILSMARTLINKAGE. It does some SELECTS from "mycooldb2" and returns the values. I would like to use the database connection that has been established with java. The Documentation speaks about using "DB2 BIND CONNECTION" inside COBOL. But I have no clue what to do in java in order to get this working. Some Code examples would be great Kind regards Michael#SQL#JVMCOBOL

I am trying to open a socket, make the connection with user and password and then moving to the appropriate directory of the remote-server and execute an ls (LIST) command. Where i can store the result of the ls command? is there any way to store the filenames and directories? Giorgos#socket

I am getting a "COBES0100 : Incorrect SQL statement syntax near: RESULT" when I try  building my project. RESULT is a column name in one of my tables. This code is coming over from Acucobol, where It compiles and runs with no problem. According to the documentation the COBES0100 error may come if the SQL directive BEHAVIOR is set to MAINFRAME, but I have it set to ANSI. I am getting it as well for column name DATASET and APPLICATION. Am I doing something wrong or will I have to change the Column name in the SQL Server database?

Can someone explain to me what the difference between these 2 bits of code are?  I thought they would essentially do the same thing... I don't understand why when I call some dll's either works fine. And other dll's only work using the M$ALLOC method. There must be something different about these that I don't understand OR maybe I'm completely off my rocker here and have no idea whatsoever :-)   Assume you have some dll with the function "SetData" CALL "M$ALLOC" USING 20, PTR.CALL "M$PUT" USING PTR, "Hello World". IF IS-REMOTE      CALL "@[DISPLAY]:SetData" USING 20, BY VALUE PTR.ELSE    CALL "SetData" USING 20, BY VALUE PTREND-IF.CALL "M$FREE" USING PTR. IF IS-REMOTE   CALL "@[DISPLAY]:SetData" USING 20, BY REFERENCE "Hello World".ELSE   CALL "SetData" USING 20, BY REFEREN

here is the c# Code: List<string> options = new List<string>() ((CollectionViewSource)this.FindResource("cvsOptions")).Source = options List<WPFGridZeilen> GridList = new List<WPFGridZeilen>() What is it in Cobol ?     #OnemoreCWPFtoCobol

Hi ;)It's possible to use Linq connection with Visual Cobol ? Like this: http://weblogs.asp.net/scottgu/archive/2007/05/19/using-linq-to-sql-part-1.aspx http://codesamplez.com/database/linq-to-sql-c-sharp-tutorial http://weblogs.asp.net/scottgu/archive/2007/07/11/linq-to-sql-part-4-updating-our-database.aspx http://www.macoratti.net/10/05/c_ulinq.htm http://www.wikihow.com/Use-LINQ-to-SQL-in-C-Sharp http://www.codeproject.com/Articles/46422/A-LINQ-Tutorial-Adding-Updating-Deleting-Data#Linq#VisualCOBOL

I was looking at the examples in "PC_PRINTER_SET_DEFAULT". Example #2 uses the routine to brows for a printer. It then uses the routine to set the printer as the default. It then uses "PC_PRINT_FILE" to print a file to the printer. This is just what I need. The problem is that the example and the routine definition do not explain where the "Printer Browser Handle" comes from. The example uses a linkage section variable. Could you let me know where this handle comes from and how to use it? What I want to do is to let the user select a printer and then print two files to this printer. Concatenating the two files before printing is NOT an option. 

Hi    I have a method that scans a directory and copies each file found to a sub-directory ("backup"). The problem is that the directory scan routine ("CBL_DIR_SCAN_READ") does not return with a file name. I get all of the time stamp info for a valid file, but no name. Could you tell me what I am doing wrong. Here is my method:        Working-Storage Section.              01 ScanHandle         Pointer.       01 ScanPattern.           05 Patternlength  Pic XX comp-5       Value 3.           05 PatternText    Pic XXX             Value "*.*".       01 ScanA