Rocket® COBOL

I now have VC PE 2.3 on my machine. However, when I go to install it, it gives me 3 errors. 1) Uninstall VC 2.2  2) Uninstall Enterprise Developer  and 3) MF License Manager required. I tried to download it but can't get into support. How do you register for support? Thanks  

Do we have any sample code for executing Visual Cobol in PowerShell Scripts. Does RTSORA Runtime still be supported when executing scripts via PowerShell#VisualCOBOL

Hi Team ,  I am using Trail version of Visual cobol for VS2013 and i am unable to find WCF Service Library. Any suggestions what alternatives are there. I wanted to check the WCF implementation of my old proxy programs which were used by the Enterprise Server Web Services .

Problem: In runtime version Server 2.1 Update 1 and earlier, it was possible to perform an independent installation for the Liense Server, by extracing it from the installation file using the -ExtractCab switch. In version 2.2 this switch is no longer available, so how is this performed with version 2.2? Resolution: Attached to this article is an archive called "6644.dark.zip". This utility is part of the WiX toolset, which can be used to create MSI’s and wrapper EXE’s. Decompress the attached zip and run, for example:  >dark.exe -x d:\\decomp cs2010_22.exe where: d:\\decomp is the folder where you want the files extracted to. cs2010_22.exe is the "Cobol Server 2.2 for Visual Studio 2010" software executable. Inside d:\\decomp, is an ‘AttachedContainer’ folder which in turn has the various MSI’s and pre-requisite EXE’s.  The license server installation softwa

I'm receiving the following error and have everything in place, when I searched the internet for the cause of below, I received (below) Query.CPY (40,21-22) : error COBES0100 : Incorrect SQL statement syntax near: QueryQuery.CPY (44,26-31) : error COBCH0233 : Unknown data description qualifier QueryQuery.CPY (86,26-36) : error COBCH0233 : Unknown data description qualifier Query-NULL  COBOL compile: 0 item(s) succeeded or up-to-date, 1 failed. Incorrect SQL statement syntax near: WITH Problem: The following complex query compiles fine in Net Express:    EXEC SQL      DECLARE cursor0 CURSOR FOR       SELECT col1, col2,      CASE WHEN ...          THEN (SELECT COUNT(*) FROM table1 WHERE ...)          ELSE (SELECT COUNT(*) FROM table1 WHERE...           &n

When I install IBM DB2 Express-C on Red Hat Enterprise.  there is a COBOL samples folder for Micro Focus COBOL. I try to go through each application and try to learn Micro Focus COBOL. Most of them is easy for me to understand what it tries to demonstrate and how it runs. But this one really puzzles me: outsrv.sqb  is COBOL DB2 stored procedure.  outcli.sqb  is COBOL application to call outsrv I compiled both them successfully.   and run outcli successfully.  But how outcli can call outsrv through DB2 successfully without creating DB2 stored procedure on "outsrv" routine? outcli.sqb   source is online https://www.ibm.com/support/knowledgecenter/SSEPGG_10.5.0/com.ibm.db2.luw.apdv.sample.doc/doc/cobol/s-outcli-sqb.html outsrv.sqb   source is online www.ibm.com/.../s-outsrv-sqb.html The README document in the sample folder says -- no need to create DB2 stored procedure for "outsrv" on DB2 server! I do not understand but I ran succe

I have already downloaded Visual Studio Community 2015 and I am now trying to download Visual COBOL PE.  The download started but then failed with no error code,  Now I don't see how to download it again. Is there a way? - Thanks

Hi,  In most of the example i found that Winform is loaded from the main programs and on the events of the Controls ( Like Button) call to COBOL program or the invoking of obj for COBOL class is made. here we can pass the values between the Form and Cobol by using reference in procedure division. Can we call a Winform from the COBOL class or program and how would we pass the values between them ? Below is the code where in i want to load the Cobol Class first and then invoke Winform inside it and then access the values of the Form control from the COBOL Class?  Class: class-id CircleWithMessageBox.Main. method-id Main static attribute System.STAThread. local-storage section. 01 mainForm type CircleWithMessageBox.Form1. procedure division. set mainForm to new CircleWithMessageBox.Form1() invoke type System.Windows.Forms.Application::Run(mainForm) goback. end method. end class. Form code: $set sourceformat(free) preservecase ilusing(System.Windows.Forms) class-id CircleWith

I have a Master Page and it has a TextBox where User Name is informed, I would like to pass this information to the other system page?To call the pages I'm using.                             <Asp: MenuItem Text = "Home" Selectable = "false">                                 <Asp: MenuItem NavigateUrl = "~ / Default.aspx" Text = "Home" />                                 <Asp: MenuItem NavigateUrl = "~ / Login.aspx" Text = "Login" />    

We are using rmcobol85 ver.6.61 256 user ( Registration Number: TB-0000-11917-0256 ) under SCO Unix 6.0  since 1986 and RM/Panels Version 2.0 more than 300 cbl , more than 400 DAT files,   if I change cobol new version under linux do I have any problems for my DAT files and source files with my rmpanels.

Hello ,  Which platform to choose to migrate the legacy application ? Which would be the best architecture solution and why ? Regards, Zoeb

Hi, I have a cobol program that make: OPEN EXTEND FILE and give FILE  status 9/105, Memory allocation error The server is Windows 2012 with  256 Gb RAM (free 254 Gb), and I use Cobol Server 2013 2.3.1 I have to change SORTSPACE\\SORTTEMPSPACE? thanks bye

I'm receiving the following error when compiling. C:\\Program Files (x86)\\Micro Focus\\Visual COBOL\\cpylib\\sqlca.CPY (1,8-10) : error COBCH0217 : Preceding item at this level has zero length Error 0217 states to add a PIC clause to the statement, this is being received from line 1, the IDENTIFICATION DIVISION line.  Any input would be appreciated?

We have encountered a really odd problem on 2 customer systems (out of 200 ).  We are using Acu Extend 9.1.1 with AcuServer.  AcuServer is loaded on a GoDaddy server and services requests from all 200 customer systems.  GoDaddy server is set up with a DNS name (through dyn.org), and also a static IP address. Symptoms at one customer site this morning: We address the file as @dnsname:C:\\path\\filename.DAT.  This is actually hard-coded in our program, and works fine from 199 of our customer sites.  However, at this one site, the C$PING works fine (returns a return code of 0).  The file in filename.dat is defined as OPTIONAL - when we open that file for input, we get a file status 05 back - indicating the file wasn't found, but was created.  Subsequent reads return file status 23 (correctly, since no records are found). The file is already present at @dnsname:C:\\path\\filename.DAT, and doesn't get created.  In fact, if we check the AcuSe

Hi all, We have a c$system call with CSYS-DESKTOP, CSYS-SHELL, CSYS-HIDDEN flags and returning an EXIT-STATUS. With Windows 7, EXIT-STATUS works as expected, but not with Windows 10 (it returns a totally irrelevant value). Cobol version is 8.1.0. Is there any solution? Regards Th.

Hi ,  I have a Windows form from which i accept a number and on the button click event , i take that number and call cobol program to validate the input. I am getting error while running the application "114     Attempt to access item beyond bounds of memory". Windows event: method-id btnSearch_Click final private. local-storage section. 01 ws-error pic x. 01 ws-input pic x(08). linkage section. 01 ws-link-data. 05 ws-link-ctrb-no pic 9(08). 05 ws-link-ctrb-name pic x(50). procedure division using by value sender as object e as type System.EventArgs. initialize ws-error. move self::lblContributorXNo::Text to ws-input call "ValidateContributor" using by value ws-link-data move "Y" to ws-error if ws-error = "N" then *> insert condition code set lblCOVERNO::Visible to true set self::lblContributorXNo::Text to self::txtSearch::Text else *> insert code invoke type MessageBox::Show("Invalid Contributor No !!") end-if

HI, i'm using xdb command for create a new location if I use the form "Create Location"  after I have submitted name, creator, path and press the OK button , the procedure hangs with a message does the application not respond. if I use the sql command : CREATE LOCATION TEST IN "E:\\ED\\xdb_data\\TEST"   SORT SEQUENCE SENSITIVE   FORWARD LOG TEST; it ends well, but after on catalog browser - Location I received this message: X120: Cannot find location 'TEST' in SYSXDB.SYSLOCALS table. I have tried also on MFE 5.1 and I found  the same problem. why? thanks

All, I've recently installed a new server to replace an aging server that was running Microsoft Windows 2003 (32 bit) with only 4GB of RAM. We've replaced this environment with 2012 R2, more CPU, Memory and Disk in a Dell PowerEdge R series server.  The storage is very fast, the CPUs are generations newer, the operating system is 64bit and the Memory is faster and much larger than what we previously had. However, the vendor that the application was written buy states that there's no difference in the code and datafiles that they've installed to the new server.  However, anything that is not in the "blue screens" of the application that hits invoicing, POs, etc... has to extract files every single time there's a query transaction (IE: moving from one Inventory item to another) takes many seconds.  In a period of 4 seconds, there's 30k file operations performed on the back end.  Everything is done while maintaining sub 2 and 3 millisecond latency on the disk subsyst

Has anyone installed Cobol Server 2013 on 2008R2 with Xenapp 6.5 successfully?#terminalserver#XenApp#cobolserver2013

I am trying to learn to use the c$xml routines. Below is a sample xml file I am trying to process. I need to read the information in the CustomValuesXml. <?xml version="1.0" encoding="utf-8"?><Orders Version="3.80"> <Order> <OrderId>55154</OrderId> <CustomValuesXml><?xml version="1.0" encoding="utf-16"?><DictionarySerializer><item><key>po_number</key><value><charge-back member-number="00167647" role="401" unit-type="A" unit-type-name="Assembly" unit-number="00001185" jurisdiction="Wheeling" jurisdiction-cd="WV" /></value></item></DictionarySerializer></CustomValuesXml> </Order> <Order> <OrderId>55155</OrderId> <CustomValuesXml><?xml version="1.0" encoding="utf-16"?><DictionarySerializer><item><key>po_number<

Is there a way to highlight a part of a grid cell. I want to do a search and show the results in a grid and the text found I want to highlight or give a different color. Is this possible?

I have a COBOL program and I want to use it with table A or table B, as both have the same structure and similar data, but I don't want to repeat every SQL stmt for both..  Instead of the next two selects, for example, I would like to use one select stmt with the tablename a variable.: 2000-get-record section. EXEC SQL Select * from A where x = z END-EXEC. OR 2100-get-record section. EXEC SQL Select * from B where x = z END-EXEC.   .

Again I ask help here, and again on DataGrid, the documentation is not very clear on the use of this object. I have a DataGrid with 100 items and it shows the numbers 1 2 3 4 .... how do I update when you click the 2 for exampleTranslated by Google Mais uma vez venho pedir ajuda aqui, e novamente sobre DataGrid, a documentação não é muito clara sobre o uso deste objeto. Tenho um DataGrid com 100 itens e ele mostra os números 1 2 3 4 .... como faço para atualizar quando clicar no nº 2 por exemplo

We have Net Express version 3.1 and i have been trying to call a C# program from a COBOL program unsuccessfully.  Any help would be appreciated.

I compared side by side of 2 COBOL code styles and hopefully someone can tell me how to do it: Old style: ---Connect.sqb ==============================================       Working-Storage Section.           copy "sqlenv.cbl".           copy "sql.cbl".           copy "sqlca.cbl".           EXEC SQL BEGIN DECLARE SECTION END-EXEC.       01 dbalias.          49 dbalias-len    pic s9(4) comp-5 value 0.          49 dbalias-buf    pic x(9) value " ".       01 userid.          49 userid-len     pic s9(4) comp-5 value 0.&nbsp