Rocket® COBOL

Hi, We need from java to call a cobol program with the following linkage on Acu 9.1 on Unix:   01 lnk-proc-block.                02 tbl-exams-lnk.         03 tea-exam-lnk         occurs 500.          04 tea-exam              pic 9(5).          04 tea-analisis          occurs 500.           05 tea-anal             pic 9(8).           05 tea-resu             pic x(45).            &nbs

I need help in debugging in the Run Time Environment since this is our first experience with it.  We are migrating from NE 3.1 to VC 2.1. I used Visual Studio originally to compile and then run these batch programs from the command line on the server we have Visual Studio/Visual Cobol installed. These are all compiled in “native” mode. Then used the command line compiler for both dll’s and exe’s to overlay the ones created by using Visual Studio. All the programs ran successfully again. Then I copied the command line compiled  dll’s and exe’s to the server where Cobol Server 2012 was installed – this is how we plan to implement when we put this into production. When I run under the Cobol Server 2012 I have no success.  After some research I found the doco on the Tracing Facility in your Cobol Server 2.1 under Visual Cobol Deployment. Under the runtime when I run the Start command from the command line I get a flash of a DOS comma

I have the following WS setup:        01 SYSTEMTIME.           05 WS-YEAR          PIC  9(4)  USAGE IS COMP-N.           05 WS-MONTH         PIC  9(4)  USAGE IS COMP-N.           05 WS-DOW           PIC  9(4)  USAGE IS COMP-N.           05 WS-DAY           PIC  9(4)  USAGE IS COMP-N.           05 WS-HOUR          PIC  9(4)  USAGE IS COMP-N.           05 WS-MINUTE     

.Net Cobol class:       $set ilusing "CSharpPrograms"        class-id. CobolMain.        method-id. main public.            invoke type Console::WriteLine("CobolMain: Hello World")            invoke type CSharpSub::DisplayMethod()        end method main.        end class.    C# Class:   using System; using System.Collections.Generic; using System.Linq; using System.Text;   //  This is an experiment of calling a C# program from a Cobol main program.   namespace CSharpPrograms {   public class CSharpSub   {     public void DisplayMethod()     {       Console.WriteLine("CSharpSub: Hello World");     }  &

This is our first attempt to use the RAW print mode. We are reading in a file containing the PCL code necessary to print insurance forms. We can't seem to find a good combination of record lengths for the input file and/or the print file - we seem to be getting truncated PCL code at the printer and improperly formatted insurance forms. Any experience out there with doing this so you can point us in the right direction? Thanks. The code currently looks like this:        FILE-CONTROL.           SELECT IN-FILE ASSIGN TO RANDOM, IN-FILE-NAME;               ORGANIZATION IS BINARY SEQUENTIAL               FILE STATUS IS A-STAT.           SELECT RPT-FILE             AS

Managed COBOL TcpSocket Client Server Communication with sample There are C# / VB code samples on the MSDN site:http://msdn.microsoft.com/en-us/library/w89fhyex.aspxWhich show how to use Sockets to enable network communication.These samples can be used to a write Synchronous Client program and a Synchronous Server Socket Example program. These communicate which each other synchronously.This article shows to convert the Microsoft Managed code to Managed Cobol and what the main components are for this to work. What is a socket.A socket opens the network connection for the program, allowing data to be read and written over the network. It is important to note that these sockets are software, not hardware.Please refer to this URL to get a further explanation of the Microsoft .NET Socket Class, URL: http://msdn.microsoft.com/en-us/library/system.net.sockets.socket.aspx This article focuses around Synchronous communication. There is also a Asynchronous form of communication. A

I have a solution in VS named AllManaged. It consists of 2 projects: CobolPrograms and CSharpPrograms.  (The VS book says that a project should not contain a mixture of languages.) CobolPrograms contains 2 programs/classes: CobolMain and CobolSub.  Both are managed code. CSharpPrograms contains 1 program/class: CSharpSub.  The NameSpace is CSharpPrograms. All programs display their program name and “Hello World”. CobolMain invokes CobolSub and CSharpSub.   When I compile the solution, I get error COBCH0845 in CobolMain saying “Unknown class ‘CSharpSub’”. I have unsuccessfully tried the following: . In CobolMain, I put in the ILUSING “CSharpPrograms” compiler directive. . For Project CobolPrograms, I have added CSharpPrograms to the NameSpace Property. . For Project CobolPrograms, I have added “C:\\...\\visual studio 2010\\Projects\\AllManaged\\CSharpPrograms” to the Reference Paths Property.  

I am compiling a program with the following command line: cobol cgetords.cbl case litlink makesyn "comp-5" = "comp" omf(obj) but the object code file (cgetords.obj) is not being created, with the following resulting Linker errors: -----Object file-name [CGETORDS.OBJ]:Source listing   [NUL]:Object listing   [NUL]:* Checking complete with no errors - starting code generationC:\\Workarea\\Eloq>linkMicro Focus Net Express - CBLLINK utilityVersion 5.100.0157 Copyright (C) 1984-2008 Micro Focus (IP) Limited.ERROR: (1) Cannot open file :  cgetords.objERROR: (6) No public symbols found. No object file generated---- I have been through this compile/link process dozens of times in the last couple of weeks so I'm somewhat baffled as to why it should now fail. Has anyone any ideas as to cause and solution? Thanks

Hi there, We are running into problem with MF V5.1 on AIX6.1, wondering if anyone can help share some advice? Problem Summary:the COBOL source files can compile with MF V5.0 AIX 6.1. However, it is reporting error code 114 with MF V5.1. After changing the compiler option "nobound" to "bound", it could pass compilation and able to run.Anybody can share some insight on the possible cause of this issue, and will there be any potential problem if we use compiler option "bound" for production? Thanks a lot.Problem Details:We are getting the following error when attempting to compile on an AIX6.1 running MF Server Express V5.1.00:$cob64 -C nolist -C notrunc checknum noreseq noosvs vsc2 fileshare ibmcomp include-filler hidemessage=1136 hidemessage=1205 hidemessage=1234 -C ref  odoosvs odoslide -C nobound -iva -W e -C rtncode-size=4 copylist warning=3  -C LIST=CTEST.lst .profile.CT001 -C "changemessage(1176 s 1207 s 642 e)" -C MFSYNC -k CTEST.COBcob64 -C nolist -C notrunc checknum

Hello friends, What are the side-effects of terminating a COBOL application trough Windows (the X button) vs. terminating using 'STOP RUN'? I have many programs in wich the user exits by pressing ENTER in a clear field, but i'm unable to run them in full screen on Windows 7, so there is the possibility of an user mystake.#netexpress#windows7#COBOL

Has anyone be able to create a gnt using the 'gnt' compiler directive in the cobol.dir and compiling user cobol statement under NetExpress 5.1? I added 'gnt' to the coboo.dir file and the system still created an int.  The NetExpress 5.1 books indicated that if you add the 'gnt' compiler directive, it will create a gnt and not a int (default).

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