Rocket® COBOL

Hi We have a MF COBOL system that is developed in Netexpress 5.1. It is currently released using Object COBOL V4.0. We are planning to move to distribution of Netexpress version in the future although as ever, customers requirements come first. We have a customer who are requesting that the existing system is delivered using Oracle and not the existing state of affairs whereby DB2 is used. The system has pretty generic SQL statements, which only exist within a 'file handling' program(s). Most of this SQL is simply a conversion from the ISAM single record retrieval code written many years ago. More of a concern is the DB utility program that was written by a previous employee in my position. This is a class based program that allows us to bind, backup, drop tables/database, restore, reorganise, etc, etc. It is possible that this program was previously supplied by MF or IBM for use by application developers. If there are any differences between the existing SQL code and the new required

I'm trying to use COM in ACU with little success. Below is VB6 code (working): Dim rpt As New ActiveReportrpt.LoadLayout ("e:\\1.rpx")ARViewer21.ReportSource = rptARViewer21.Refresh and COBOL code (not working):            77 rpt usage handle of ActiveReport.            create ActiveReport handle in rpt.           modify rpt @LoadLayout("e:\\1.rpx").                 modify rptViewer @ReportSource = rpt.           modify rptViewer @Refresh(). This code fails on the first modify statement. Please help.#COM#ActiveX

I have to copy a file to the Standard temp Folder of the logged on User.          move "cswin\\upload\\routeinf.ini" to filename1 move "%localappdata%\\temp\\routeanf.ini" to filename2 CALL "CBL_COPY_FILE"   USING FILENAME1 FILENAME2   RETURNING STATUS-CODE CBL_COPY_File does not solve the %localappdata% Who knows the SOLUTION? Regards Geozak

Hello everyone, We've migrated a Windows XP machine to Windows 7 and there is a matrix printer directly on this machine. Now prior to this change, my machine with Win7 could succesfully connect to that printer using net use lpt1 \\\\printermachine\\MATRIX However with the current configuration (Both machines with W7) i cannot, when i execute 'RUN' it returns the error "I/o error: file LPT1 - 13 file not found" I stumbled across this article: community.microfocus.com/.../18441.runtime-error-9013-when-attempting-to-print-to-lptn-where-the-physical-printer-port-is-mapped-via-a-net-use-statement-on-windows-7.aspx But on both machines there is only Server 5.0 installed (for COBOL deployment). Would that mean i have to upgrade both Server to 5.1? If so, how do i proceed?

Trying to use a call to the File.listRoots method in java which returns a list of the root file systems (Windows drives in my case) available to me as an array of File objects.  I'm trying to figure out how to get the number of root file systems returned so I can iterate through and can't seem to get it.  Any help would be appreciated. Sample Code 01 class1 type performance. 01 diskdrive type File. 01 rootpath string. 01 writeable type boolean. 01 drives type File occurs any. 01 i binary-long. 01 freespace type long. procedure division using by value args as String occurs any. set class1 to new performance. set drives to type File::listRoots(). perform varying i from 1 by 1 until i > 4 set rootpath to drives(i) set diskdrive to new File(rootpath) set writeable to diskdrive::canWrite() set freespace to diskdrive::getFreeSpace() display "Free Space = " freespace end-perform. Java - essentially I want the value in roots.length // Determine all the root paths for the

Does anyone have a sample web service/WCF Visual Cobol project?  #COBOL

Hi all, anyone knows what's this? couldn't find any documentation... Thank you

Hello, We are quite new to Visual Cobol 2.1 for Eclipse under Linux. We have an application in "classical cobol" and would like to be able to call the java library iText to generate pdf (or rtf) files. For example, we would like to read the content of file and generate a pdf report. The file is a MF cobol indexed file, accessed and updated with our cobol programs. Visual Cobol offers the possibility to integrate both worlds. But practically, how to proceed ? A skeleton on how to start would be a great help. I'm sure that I'm not the only one with this kind of question! Regards, A.R.

  Any idea why this error would occur when animating a program but not when running the GNT?  The GNT runs fine.  MFDEBUG.LOG contents below.   NetExpress Exception Handler - 6/14/2013  2:01:37 PM e:\\pl605\\ntload\\runw.exe caused an exception at address : 0x020903CB Exception type - EXCEPTION_ACCESS_VIOLATION on Read. Address 0x0124700B Registers:  EAX 01245BB5 EBX 00000020  ECX 00000008 EDX 00000020  DS  0023 ESI 0124700B  ES  0023 EDI 01245BB5  FS  003B GS  0000  CS  001B EIP 020903CB  SS  0023 ESP 0012F1D8 EBP 0012F1E0  Flags 00010202 Error occurred in : E:\\PL605\\LOAD\\UTCOMPP.dll, loaded at 0x02080000 COBOL call stack:  UTACOMPP (gnt program), loaded from E:\\PL605\\LOAD  00000        (000000000        program), loaded from      &nb

Is there a way not not build a complete project everytime you debug?  When I starting the debug of my solution, it rebuild every project whether they have changed since the last build or not.  Is this an option I am missing somewhere? Thanks

As an old NE user, block copying was an essential to ease daily work. Does this exist in Visual Studio/Cobol?

I'm trying to start animator and I'm getting the following error: Load error : file 'cobdebug64.so.3' error code: 198, pc=0, call=1, seg=0 198     Load failure (fatal: relocation error: file /lib/64/libc_db.so.1: symbol ps_lgetxregsize: referenced symbol not found) Has anyone else encountered this error?  Our old server was a Sparc and we did not encounter this error running animator.  We think think one of the files in the in the opt/cobol5 library is specific to Sparc and now that our server is not a Sparc, this is causing animator not to work. Any help would be greatly appreciated.   Thanks for your response, Michael. We are running Server Express 5.1.4 WrapPack 4.  What is Websync 7?  Is Websync 7 the same as WrapPack 7 or ServerExpress 5.1.7?

Hello, how is the SCROLL Phrase used?http://supportline.microfocus.com/Documentation/AcucorpProducts/docs/v6_online_doc/gtman3/gt3664.htm my tests: modify main-screen scroll up by 1 modify main-screen scroll up by 1 line modfiy main-window scroll up by 1 modify main-window scroll up by 1 line then i read the description again...Scrolling is the first operation performed by the ACCEPT or DISPLAY statement so i thought i have to use it with display. display main-screen scroll up by 1 display main-screen scroll up by 1 line  but this also don't work... again compiler errors... Can anyone help? David  

Hello, We usually keep our indexed files small (< 8 GB) for various reasons. For a customer we are required to keep a lot of data and the indexed files will probably grow to about 50 GB. Does anyone have experience with using such large indexed files, esp. regarding number of records, data integrity, locking and reliability? We are using the following environment:   - RM/COBOL Runtime - Version 12.06 for Linux Intel 32-Bit   - Linux *** 2.6.18-308.16.1.el5 #1 SMP Tue Sep 18 07:21:07 EDT 2012 x86_64 x86_64 x86_64 GNU/Linux   - File system ext3#linuxcobol#RMCOBOL

Hello. I'm starting to work with Visual Cobol but I'm an old programmer RM / COBOL and COBOL-WOW. If visual Cobol really Cobol, I know how to handle this new Cobol numeric fields and their masks.Working Storage Section. 01 Campos.      02 Sequence 02 pic 9 (9).       02 Amount pic S9 (9) V9 (2).       02 date.           03 year pic 9 (4).            03 months pic 9 (2).            03 day pic 9 (2).       02 Sequence-z pic zzzzzzzzz.     set amount TO TextBox17::Text(). Error 1 COBCH1624 : Cannot implicitly convert string to binary-long unsigned. Error 4 COBCH0829 : Could not find method 'Amount' with this signature. Please, let me know how visual Cobol, work it.

Hi, we are working with AcuSQL and to show a progress bar we need to know how many records a sql table contains. Any ideas ?

Error: Core was generated by `cobchecker32'. Program terminated with signal 10, Bus error. Environment: Server Express 5.1 running on HP-UX 11.31 ia64.   Description: When undertaking 32 bit compiles a core dump containing the detail following was produced - Core was generated by `cobchecker32'. Program terminated with signal 10, Bus error. BUS_ADRERR - Non-existant physical address #0  0x60000000f769ea50 in <unknown_procedure> () (gdb) bt #0  0x60000000f769ea50 in <unknown_procedure> () warning: Attempting to unwind past bad PC 0x60000000f769ea50 #1  0x60000000f769ea50 in <unknown_procedure> ()   But on the same machine, compiling the same program using the 64 bit compiler (cob64) worked fine.  The 32 bit compiler generated a core file immediately the ‘cob’ command was executed and this was happening on even the simplest COBOL programs. For example, the command: cob32 –iav helloworld.cbl immediately produced a core. E

This article addresses characters in the extended ASCII character range written from Net Express using XML syntax being output to an XML file. Data from an input document that contained characters in the ASCII extended character range (128 thru 255) and included characters such as the euro symbol (€ - 128 – hex80) and bullet (• - 149 – hex 95) was being used by a customer in Net Express to generate an XML document.  Initially the XML file was generated with encoding=”UTF-8”. After it had been created, if the file was opened in an XML editor it did not display correctly and appeared as if it was corrupt. But if it was opened using a text editor (eg Wordpad or Notepad) the XML code was displayed as expected (although as a text document, not as an XML document). This suggested the file had been written correctly as all characters, including the ASCII extended characters, showed. Further, when the file was opened in a hex editor it showed the ASCII extended characters written as hex”8

Hi All, I'm trying to access an ORACLE Database via OpenESQL (not Pro*COBOL). My COBOL apps are on a Linux Server.  All is OK, but i need to check the sql syntax at compilation time. Here are my compilation configuration file. SQL(TARGETDB=ORACLEOCI) If i add the SQL(CHECK) to the file, here is the problem: * 801-S***** ( 2)**** External Compiler Module message** ES0100 Connection name not found. So i think, 've to add my user/password and tns id, but how? Thanks in advance. Franck.

Dear sirs, I having problem with an screen that we have PF Keys. Enclosed the screen in question. Please say me what I have to do in Visual Cobol for Eclipse  for  configure ADISCF. TKS  

How can i  represent a number with decimal point the period and with no point for thousands. like this 1000.85

i am sending a variable with the value 10/05/2013 to an excel cell but it transforms it to 05/10/2013. why?

Dear Sirs, Now I have the aplication running with Visual cobol for Eclipse in Windows Ultimate but when the program send an screen we get an Error  with SHEL.DLL enclosed. At the beggining we believe that happened for cause of Windows Starter, we make Upgrade to windows Ultimate and the samehappen again. Regards, 

eclipse.buildId=M20120208-0800 java.version=1.7.0_21 java.vendor=Oracle Corporation BootLoader constants: OS=win32, ARCH=x86, WS=win32, NL=es_CL Framework arguments:  -product org.eclipse.epp.package.rcp.product -feature com.microfocus.eclipse.core.product Command-line arguments:  -os win32 -ws win32 -arch x86 -product org.eclipse.epp.package.rcp.product -feature com.microfocus.eclipse.core.product Error Fri May 31 22:12:03 CDT 2013 Problems occurred when invoking code from plug-in: "org.eclipse.jface". java.lang.NullPointerException  at com.microfocus.eclipse.debug.ui.internal.actions.InspectAction.selectionChanged(InspectAction.java:131)  at org.eclipse.ui.internal.PluginAction.refreshEnablement(PluginAction.java:206)  at org.eclipse.ui.internal.PluginAction.selectionChanged(PluginAction.java:277)  at org.eclipse.ui.internal.PluginAction.selectionChanged(PluginAction.java:289)  at org.eclipse.ui.internal.ViewerActionBuilder$ViewerContribut

Hi, currently I am playing aroung with the pinvoke ( demonstrating to call a native program from a managed application) sample as follows: I created a Native DLL Project (SUBS.DLL, containing 3 Programs based on SUB.CBL I added the generated DLL into the references of PINVOKE. I get an Error whe calling the DLL , unless I activate the 'Copy Local' Flag in the references properties.This took me a while to figure out but ok, its  solved. Now I can run pinvoke from the IDE, but when i start it from the Command Line in the ...\\bin\\Debug directory, I see nothing but a litany of errors about BadImageFileFormat and Missing Assemblymanifest in SUBS.DLL. I have attached the project, for anyone who is willing to take a look at it. - Thanks in advance I'm shure this is a pretty basic 'newbie' topic, but still I hope someone can point me the right direction. Also I would like to know whether it is possible to - say compile the 3 programs mentioned above, each one into its own dll