Rocket® COBOL

Problem: A .NET managed code application such as Windows Forms or WCF is trying to call a program which resides in a native code .dll. The program being called has the same name as the .dll and it is available in the current folder of the managed code application. When the call is made an RTS 173 error occurs stating that the program cannot be found. What could cause this? Resolution: There are a couple things that could cause the 173 error. The most common are: 1. The case of the program name in the call statement does not match that of the entry point name. If you do not specify the $SET CASE directive within the native program then the default is to convert the program-id to upper-case. If this is true then the call statement needs to use upper-case as well. If you do specify the CASE directive then it will generate the entry point name exactly as it is specified in the program-id. 2. The native .dll is not linked as dynamic and the run-time system cblrtsm.dll is not available withi

Greetings. I am trying to get acucobol to work on an armv7 board running debian jesse. when I try to execute runcbl, I get "unable to execute binary" Has anyone managed to recompile acu-cobol and manage to get it to work on a raspberry pi? I am using a raspberry pi clone, cubox i4 pro Thanks in advance#recompile#raspberrypi

Dear Chris, I am Testing a Visual Cobol for Eclipse  program with MQ and I get the Enclosed Error : sc_script.txt

Hello, I'm creating a Word file and trying to insert a numbered list by using a cobol definition of Word. I've created a very simple Word macro but I can not translate to Cobol. Can anybody help me? This is the macro code:     ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _        ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _        wdWord10ListBehavior    Selection.TypeText Text:="TEST" Thanks!!#AcuCobol#extend32-bitRuntime

Problem: In Net Express and Server for COBOL, the syntax to run the Data File Converter (DFCONV) command line is the following: run dfconv profile-fname [input-fname] [output-fname] In Visual COBOL or COBOL Server, running the above command line fails with the following error: Execution error : file 'dfconvdll'error code: 114, pc=0, call=1, seg=0114 Attempt to access item beyond bounds of memory (Signal 11) Resolution: In Net Express and Server for COBOL, the DFCONV is a .lbr, which requires the RUN trigger program to execute it while in Visual COBOL and COBOL Server, DFCONV is a .exe. In other words, DFCONV must be executed without the RUN command: dfconv profile-fname [input-fname] [output-fname] Note: Since there is DFCONV.DLL in Visual COBOL and COBOL Server, the RUN command actually tried to run it and resulted to the Error 114.

I have an application copied from a SCO UnixWare system (using a Liant COBOL runtime and compiler) to a SUSE Linux system (using Visual COBOL 2.2).  Copying was as simple as taring the application, copying over to the new system, and untar.  Paths are all the same, as are permissions.  The immediate goal is to simply get the application running on the new system.  This is the FILE-CONTROL: SELECT INQFL                   ASSIGN TO RANDOM "/mypath/INQFL"                   ORGANIZATION IS INDEXED                   ACCESS MODE IS DYNAMIC                   RECORD KEY IS I-KEY                   FILE STATUS IS IND-STATUS.  The application compiles but on execution of the line OPEN INPUT INQFL, IND-STATUS contains "98". &nb

I am trying to Create New Internet App in Netexpress, which usually work well.  This CBL has embedded SQL in it and the Create gives me error message  NO SQL DIRECTIVES have been set. The directives I have Set are DBMAN (ODBC), AUTOCOMMIT, ALLOWNULLCHAR.   Do I need others? Ellen S. 

I have a managed .NET class named Customer and  i need to write a method in order to create an XML file. How can i enable XML syntax in my Class? is there any sample code?

I'm getting sqlcode -102 opening a cursor to select from a SQL view. The message is "syntax error".  This code works on other SQL servers,  so I'm stumped as to what the error is.  see code below, the error occurs when I open cursor.  Any ideas???   Thanks, Ellen            exec sql connect to iDatabase user 'coboluser.Data500$'              end-exec.           if SQLCODE < -1               MOVE 2 TO WS-ERRORCODE               go to 100-END.           EXEC SQL           DECLARE CSR1 CURSOR FOR SELECT  &nbs

There are two options for installing RM/COBOL in a networked environment: 1. Perform a "Standard" or "Custom" installation of RM/COBOL on all of the PCs that will execute the COBOL application. 2. Perform an "Administrative" installation on a network share, then, perform a "Network" install on all of the desktop PCs. Below is an excerpt from page 57 of the RM/COBOL User's Guide in regards to the "Network" installation of RM/COBOL on client machines. This excerpt contains a short summary of the network installation process: ----------------------------------- The RM/COBOL installation process for CodeWatch, Runtime, Recover1, and Compiler supports users who wish to install RM/COBOL on a network server machine and then install RM/COBOL on multiple client machines using the RM/COBOL installation on the server. First, install all of the RM/COBOL components that you need onto the server machine using the “Administrative Installa

Hi All, I'm using the system.drawing.font property and i want to print bold and underlined. Ive found how to do it in VB or C# see:- http://stackoverflow.com/questions/2186810/how-can-i-use-multiple-combinations-of-font-styles-in-vb-net So Ive got the following COBOL code:- invoke e::"Graphics"::"DrawString"(ws-string, type System.Drawing.Font::New("Arial", ls-FontSize, type System.Drawing.FontStyle::Bold) , type System.Drawing.SolidBrush::New(typeSystem.Drawing.Color::FromArgb(ls-Alpha, ls-Red, ls-Green,  ls-Blue)), ls-x, ls-y, ws-cStringFormat) Can you pls advise how to Cobol code BOLD UNDERLINED Thanks in advance Neil.

I'm in the slow process of migrating from RM w/Linux to Visual Cobol RM ... with DevHub to allow use of the Linux while coding in Windows/Eclipse. I've just encountered a problem with Relative Files. In "Standard" RM the relative file ... if you "read next" is in Sequence. 1,2,3,4,5,6,7,8,9 erc.Via Visual Cobol RM ... the Relative Key is a bit of a mess.1,6,7,8,9,10,11,12,19,23,24,25 ... I really discovered this problem when my transitioned code tried to access Record #2, which doesn't exist according to VC. Any ideas on what I will need to do to get the program to work as written? I don't, unfortunately, have the time to do a file migration on all the systems and files. I've attached the simple program, and the file that proves my point. RM when set of results Visual Cobol RM different set. Any help would be appreciated. #Relative#COBOL#files#Eclipse#migration#rm

I have 20 tables which have the same declaration for example: EXEC SQL DECLARE Produktion TABLE ( ContainerGuid uniqueidentifier(36) NOT NULL ,BelegId bigint(19) NOT NULL ,BelegJahr bigint(19) NOT NULL ,BelegNummer bigint(19) NOT NULL ,BelegPositionId bigint(19) NOT NULL ,BelegPositionsNummer int(10) NOT NULL ) END-EXEC. Is it possible do create the select statement where the table-name is variable like: move "Produktion" to sql-text EXEC SQL SELECT DISTINCT ContainerGuid INTO :guid-field FROM :sql-text * FROM Produktion WHERE (BelegNummer = :dat-sql-belegnr AND BelegPositionsNummer = :dat-sql-belegpos) END-EXEC move guid-field to dat-sql-cguid-Produktion.

Below is the link error we are getting in Visual Cobol that we did not get in our Net Express 3.1. What steps do I need to take to resolve this error ? Is this a missing parameter or  modules that has been replaced by other modules ?   Thank you for your help.   D:\\vcprod>CBLLINK gropvp.cbl   Micro Focus COBOL - CBLLINK utility Version 2.1.0.35 Copyright (C) Micro Focus 1984-2012. All rights reserved.   Micro Focus COBOL Version 2.1.00024 Copyright (C) Micro Focus 1984-2012. All rights reserved. * Ignored  - LINKCOUNT"200" * Rejected - MAP * Checking complete with no errors - starting code generation * Ignored  - () * Ignored  - TARGET "PENTIUM" * Generating gropvp * Data:        9944     Code:       35264     Literals:       12128 Microsoft (R) Incremental Linker Version 11.00.50727.1

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