Rocket® COBOL

Build Pro*COBOL project by an Ant script in RedHat Linux 6.1 I uses an Ant script(.cobolBuild)to build my Pro*COBOL projects in RedHat Linux6.1(32bit). And when I build it in command line mode ,a problem [[cobollink] ld: /usr/lib/gcc/x86_64-redhat-linux/4.1.1/32/crtbegin.o: No such file: No such file or directory]had occurred.In my environment the gcc's path is [/usr/lib/gcc/i686-redhat-linux/4.4.4].How can I change the path from [/usr/lib/gcc/x86_64-redhat-linux/4.1.1/32/] to [/usr/lib/gcc/i686-redhat-linux/4.4.4]? OS:RedHat Enterpise Linux V6 UPDATE1 IDE:Visual COBOL for RedHat 2.1 Thank you. Build Log:[admin@rhcs32 SampleMain]$ ant -lib $COBDIR/lib/mfant.jar -f .cobolBuildBuildfile: .cobolBuild [taskdef] Could not load definitions from resource net/sf/antcontrib/antlib.xml. It could not be found. os.init: os.init.windows: os.init.unix: init: init.New_Configuration: init.all.configurations: cobolbuild: [taskdef] Could not load definitions from resource net/sf/antcontrib/antlib.xml. I

Hi We execute cobol programs through bash shell We use C programs to link and call Cobol programs(using cobinit,cobcall), After executing cobol applications on bash we are gettingreturn code as zero always. we have displayed the value of the return code just before the stop job in the cobol program and then displayed the return code,its showing correct values like 0001,0002..This problem occurs after installing latest Cygwin. In Cobol program we use STOP RUN RETURN CODE to populate the return codes. Please suggest Regards,Rashi#COBOLserver

Hi We execute cobol programs through bash shell We use C programs to link and call Cobol programs(using cobinit,cobcall), After executing cobol applications on bash we are gettingreturn code as zero always. we have displayed the value of the return code just before the stop job in the cobol program and then displayed the return code,its showing correct values like 0001,0002..This problem occurs after installing latest Cygwin. In Cobol program we use STOP RUN RETURN CODE to populate the return codes. Please suggest Regards,Rashi#COBOL

I wrote a COBOL program（use Oracle DB) by visual COBOL2.1.I can run it with the following directives.(p(cobsql) CSQLT=ORACLE8 MAKESYN VERBOSE KEEPCBL END-C p(cp) ENDP LITLINK). Then I want see the test coverage.So I add the keyword "TESTCOVER" to the directives.(p(cobsql) CSQLT=ORACLE8 MAKESYN VERBOSE KEEPCBL END-C p(cp) ENDP LITLINK TESTCOVER ). But it didn't work.Some errors had happend.If I wirte the directive like this ( p(cobsql) CSQLT=ORACLE8 MAKESYN VERBOSE KEEPCBL END-C p(cp) ENDP TESTCOVER ),then the coverage is ok and the DB connection is failed.#COBOL#VisualCOBOL#Eclipse

Problem: Is there a way to download web pages via HTTP from a COBOL program under UNIX ? Resolution: This can be done via calls to the libcurl library. Libcurl is a library for transfering data with URL syntax, supporting FTP, FTPS, HTTP, HTTPS, TFTP, GOPHER, TELNET, DICT, FILE and LDAP. Here is an example of calling libcurl functions:       *       * Demo showing how to make an http request from a COBOL program       *    using libcurl.       * libcurl can be found at http://sourceforge.net/projects/curl/       * libcurl documentation can be found at http://curl.haxx.se/libcurl/       *       * compile as follows:       *    cob -x urltest.cbl -L/usr/lib -lcurl -L/usr/ssl/li

Problem: An ACUCOBOL-GT program running on Linux gets the following error message: "Missing required termcap function 'cm' in entry for 'dumb'" Resolution: As the program is run via Thin Client, it's possible that the environments may be different between server users. Here's an easy way to determine the environment in which the runtime is running: Use a command-line instruction like this to determine the environment from the user's prompt: env > env-from-prompt.txt Then, run this code from within the runtime, using C$SYSTEM: MOVE "env > env-from-runtime.txt" TO WS-CMD-LINE CALL "C$SYSTEM" USING WS-CMD-LINE, CSYS-SHELL GIVING EXIT-STATUS At the end, compare the two .txt files. In this particular case, this comparison showed a mismatch between the two TERM environment variables: TERM=xterm(prompt environment) TERM=dumb(Thin client environment) To resolve the mismatch, it's necessary to run this command-line instruction

Created On:  25 October 2012 Problem: Executing an OPEN OUTPUT on a Vision file, file-status is returned with a value of 39,01.  ACUCOBOL-GT documentation says that this status means: “Existing file conflicts with the COBOL description of the file. (open) Mismatch found but exact cause unknown (this status is returned by the host file system)”. Resolution: More specifically, this error may be caused by the structure of the Vision file that is going to be opened. If the indexed file is of version 3, the limitation for split keys is 6 segments maximum. Vision files version 3 that have more than 6 segments in a split key can generate error 39,01 when an OPEN is executed. This can be solved reducing the number of segments or upgrading the file system to Vision version 5, which presents a higher limit (16 segments maximum).

Problem: Is it possible to inquire height and width of a graphical screen in pixels? Resolution: The attached sample program shows how to achive the requested goal. http://community.microfocus.com/cfs-file.ashx/__key/communityserver-wikis-components-files/00-00-00-01-22/1856.SCREEN_2D00_SIZE.zip

I'd like to submit some articles for the Wiki but the Wiki pages on the site seem to be gone? My questions are: - Have they gone for good? - How would I go about submitting articles for the Wiki?

I am trying to fetch some data from an MySQL database but i get question marks (?????) insted of greek characters. Does anyone know why? * LIST-ROWS. MOVE "Display Data..." TO W-BX-STATUS DISPLAY SR10 EXEC SQL DECLARE COBCUR1 CURSOR FOR SELECT C_NUMBER, C_NAME, C_BIRTHDAY, C_INFO FROM EL_SXEDI WHERE C_NUMBER > 0 END-EXEC. EXEC SQL OPEN COBCUR1 END-EXEC. PERFORM 10 TIMES |UNTIL SQLCODE NOT EQUAL 0 EXEC SQL FETCH COBCUR1 INTO :C-RECORD END-EXEC IF SQLCODE NOT EQUAL 0 DISPLAY MESSAGE C-NUMBER, ": ", C-NAME, C-INFO END-IF END-PERFORM. EXEC SQL CLOSE COBCUR1 END-EXEC.

Problem In Visual COBOL 2.1 Hotfix 2 a new OpenESQL directive called sql(date=external) was added to allow for the date format to use when accessing an Oracle database to be set using the environment variable NLS_DATE_FORMAT. This was working fine in Hotfix 2 but after upgrading to Visual COBOL 2.1 Update 1 this no longer appears to be recognized and the following error occurs: COBCH0801 : Compiler directive SQL(DATE = EXTERNAL) is invalid or badly sequenced - all SQL statements ignored. What happened? Resolution Development has added a new directive called sql(OPTION=PROCOB) which needs to be set if the DATE=EXTERNAL directive is to be used. Actually when setting OPTION=PROCOB on it will automatically set the DATE=EXTERNAL behavior on so the DATE=EXTERNAL is no longer required.  

Problem Customer is moving from Net Express 5.1 native code to Visual COBOL 2.1 managed .NET code and they need to know what database driver should they use in order to access their SQL Server database. Resolution: In Visual COBOL you can create three types of applications each as 32-bit or 64-bit. 1. Native code, which includes int/.gnt and native Windows .EXE/.DLL formats or native Unix/Linuz executables and .so files. 2. Managed code .NET on Windows, .EXE/.DLL assemblies which run under the .NET Framework Common Language Runtime system. 3. Managed code JVM on Windows or Unix/Linux, generates Java .class files that will run under the Java Virtual Machine platform. The type of database driver that you use depends upon the type of executable you are running. Native Code = ODBC DriversManaged .NET = ADO ProvidersManaged JVM = JDBC Drivers These are not interchangable so if you are moving from Native code under Net Express to managed .NET code under Visual COBOL then you must change

Problem Customer has an indexed file that has several alternate keys defined.They noticed that the performance of the file I-O seems to get worse as they add more keys. Is there anyway to improve this performance? Resolution: There is an extfh.cfg option called INDEXCOUNT that can help to improve performance when a large number of keys are defined for a file.For example, in a test where a file was being created with 8 million records the following results were found:2 alternate keys =   5 mins 48 secs3 alternate keys =   6 mins 19 secs4 alternate keys =   6 mins 29 secs5 alternate keys = 30 mins 08 secsSo the access time gets a little slower with each additional key until the file handler reaches a point where the performance suffers tremendously.The INDEXCOUNT option controls the number of index nodes that will be cached for the file.The default value in Visual COBOL is 32 but you can get better results when using a large number of alternate keys if

Problem A customer has noticed that on a rather large indexed file, the performance seems to suffer when reading sequential through the entire file. Is there a way to increase the performance of indexed file I-O when doing sequential reads? Resolution: They might look into using the extfh.cfg option called NODESIZE.This controls the size of the index nodes that are used for a file when it is created. The larger the value, the more keys that can be stored into a single node and this can speed up sequential processing quite a bit. In a recent test when reading sequentially through an indexed file containing 8 million records, the following timings were achieved by setting the NODESIZE and recreating the file: NODESIZE     Timing1024                3 mins 55 secs4096                3 mins 03 secs16384   &nb

Problem Does anyone have an example of sending an e-mail including an attachment using Microsoft Outlook by using a managed code .NET program? Resolution: Here is an example:      $set ilusing"System.Net.Mail"      $set ilusing"System.Net"           $set ilusing"Microsoft.Office.Interop.Outlook"       program-id. Program1 as "testemail.Program1".       data division.       working-storage section.       01 oApp type Microsoft.Office.Interop.Outlook.ApplicationClass.       01 omsg type Microsoft.Office.Interop.Outlook.MailItem.       01 oAttach type Microsoft.Office.Interop.Outlook.Attachment.       01 oRecips type Microsoft.Office.Interop.Outlook.Recipients.       01 oRec

Problem Customer is running a large batch process that performs a lot of file I-O on indexed files and they would like to know if there is an option available that would help to speed up the performance when reading these files. Resolution: They might want to look at using sharing modes for their file processing.Sharing modes inform the file handler how others will be accessing the files while the current process is accessing the files. The default is that the file handler assumes that files open for input or i-o will be sharable by all other processes. This means that the file handler has to be constanly checking to ensure that the file has not been updated by someone else since the last time it was read and this can be time consuming.This is true even on a standalone single-user system where the file is not being shared. By setting a sharing mode to allow no other then this will give you exclusive access to the file and the file handler will know that the file will not be changed by

Hi, I have a question regarding Visual COBOL support under AIX.Does Visual COBOL run under IBM AIX 5.3? Thank you.Best regards, Shulian Yang.

Using Net Express 5.1 to deploy a Cobol web service to a remote Enterprise Server.  The Settings dialog for the service does not list the remote Enterprise Server as a target for deployment.  It used to do so before the remote Enterprise Server was rehosted to a different server on the same network. The remote Enterprise Server is definitely up and running.  Is there a setting or configuration parameter I need to update so Net Express can find the remote Enterprise Server?

Hi, I display images on a windows form using the following code:- set picView::"Image" to type "System.Drawing.Image"::"FromFile"(ws-string) However if this form is repeatedly loaded displaying different images the pc memory goes up and up until eventually i see an out of memory error. So found this:- http://msdn.microsoft.com/en-us/library/system.drawing.image.dispose(v=vs.90).aspx Which I assume gets converted into cobol code as follows:- invoke self::"Dispose"() Which I put straight after the "set picView::"Image" to type "System.Drawing.Image"::"FromFile"(ws-string)" line. Is that correct and will it have any other effect? Kind regards Neil.

We have some forklift mounted LXE devices with attached label printers connected via a serial cable on COM2 on the LXE unit.  They are connecting to the UNIX server over telnet.  Calling "C$LOCALPRINT" allows us to send communication packets to the printers, but how would I go about getting a response from the printer?  We have terminals ranging in age from the VX1/VX2 DOS-based models to the newer Windows CE models.

Problem Unable to execute JAVA class or a COBOL JVM class on a UNIX machine.  Resolution This simple example demonstrates how well Visual COBOL and JAVA can integrate. It covers the core subjects of CLASSPATH, PACKAGES, BUILDING JAR files and executing programs. This will show you how to do this by using three programs on a test stub that invokes a JAVA program and a COBOL JVM program. This will also use some jar files created on a windows machine as well to show that the jar files are portable which is as they should be. For all programs and scripts needed for this example, click the link and save as < jar-002.tar > Setup build and run example mkdir test cd test # mv jar into test or point to were you downloaded the file. tar -xvf jar-002.tar cd jar ls setup.sh unixbld unixjar winjar You will need to change setup.sh to point to your java version and your Visual COBOL version. setup.sh # # set up java version # #JAVA_HOME=/usr/java/jdk1.7.0_03 #export JAVA_HOM

Dumb question but is visual cobol cluster aware?  Or does it have any impact on access within the cobol program.

I am getting an error, COBCP0205S HTML splitter error 003, when trying to compile a web program in Net Express 5.0.  I cannot find any documentation on this error other than to call Technical Support. Has anyone seen this error?  Do you know what it might mean? Thanks! Mike

Hi, anyone found solution for this problem? I have set to UTF-8, alphanumerics are shown with wrong encoding.   #encodingvariablesvieweclipse

I have an application using Redemption, and this is our first time using it.  We're having a problem with it (MAV error when calling DESTROY on the folder handle) and I've been given a debug version of Redemption to use so that a trace log will be created.  I've installed it on our server to location K:\\UBCC\\Programs and registered it with regsvr32.  There is a CALL "Redemption.dll" line in the application before doing all the usual email tasks. When I run the application I also have Process Explorer running so that I can see that the application is loading the instance of Redemption described above when it does the CALL.  The trace log shows it being loaded as an Outlook add-in.  But when I execute the  next line: CREATE @RDOSESSION OF @REDEMPTION HANDLE IN EX-RDOSESSION I can see from Process Explorer that the application loads D:\\program files\\Intuit\\QB2011\\Redemption.dll instead, and no subsequent activity is written to the