Rocket® COBOL

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

Please clarify... The article "Calling Managed COBOL from un-managed code" (with the VCCOM.zip samples) discusses using the Regasm tool to register the appropriate "com server" assembly for a production environment.  (In this case, the production environment is a classical windows-based client-server environment using Win7 workstations and Windows server 2008 server.)  This article further provides a link to Microsoft doc related to Regasm.exe.  The article gives examples of the regasm command line which shows using the "/codebase" option.  When reading the linked-to Microsoft doc, it says that if you use the "/codebase" option, then the assembly must be a strong-named assembly.  Is this true?  Do we have to use the Microsoft Strong Name tool as well?  Also, there is some confusion related to having to use the Microsoft GAC (or not).  Please clarify. 

I copied MF sample DB2 SQL project: Connect project from Windows to RedHat,  try to recompile it under Linux. I got this error: [cobollink] cob64 -g -x -t -oConnect Connect.o /opt/ibm/db2/V11.1/lib64/libdb2.so [cobollink] Connect.o: In function `CONNECT_MFSQLECM-INIT':[cobollink] /home/cobol/sql/db2ecm/Connect/Connect.cbl:129: undefined reference to `cobdb264'[cobollink] collect2: error: ld returned 1 exit status[cobollink] Link complete with errors Could someone tell me which library should I link to find cobdb264? Thanks in advance, -Jack #DB2.Connect

[Migrated content. Thread originally posted on 05 April 2012]Hello,sorry for my bad English.I installed Micro Focus Cobol visual 2010 trial for eclipse (windows 32 bit), I added an application that I want to debug COBOL. But I EXEC SQL ... END EXEC, eclipse tells me that as an error: "COBCH0149S No sql Have Been Set". I want to link to a database compiled and run Oracle for the application to debug COBOL.How is your project connected to the database eclipse has oracle ?Where should retract the user and password for database oracle ?I saw that in the properties of the project "Micro Focus Cobol / property of language / Cobol / addtionnelles guidelines" that we could write "p(cobsql)" or "SQL(DBMan=ODBC). Eclipse tells me that I have 1 error but when I run the application it tells me: "the COBOL program to run could not be found" and the problem he said "connot open file: meprojet.obj"Thank you for your help.

When accessing this article (named "What is the meaning of exception error 65537?")... community.microfocus.com/.../2811.what-is-the-meaning-of-exception-error-65537.aspx ... I cannot access the links within this article. Thanks