Rocket® COBOL

I have the below in a project: 77 SW-SHOW   USAGE IS UNSIGNED-INT  VALUE IS 5.01 OPEN-COMMAND.     05 FILLER           PIC  X(04)   VALUE IS "OPEN".     05 FILLER           PIC  X(01)   VALUE IS X"00". 01 WS-ADDRESS    PIC X(250) VALUE "http:\\\\www.google.com". -----------------------------------------------------------------------------            CALL "@[DISPLAY]:shell32.dll".           CALL "@[DISPLAY]:ShellExecuteA" USING                BY VALUE 0,                BY REFERENCE OPEN-COMMAND,&

Problem: Customer is using ACCEPT/DISPLAY statements in a Visual COBOL native program to perform screen I-O. The screen that they have defined is 80 characters by 30 lines.They are displaying data on line 25 and the character that should be displayed in column 79 is being dropped.   Why and how can this be fixed? Resolution: There are several positions on the screen to which error messages and indicators are displayed by the ACCEPT/DISPLAY screen handling module and by default these are set on row 25. You can configure these to display on a different line or column by using the ADISCF utility. Open up a Visual COBOL command prompt and do a cd to your project folder and enter the command: adiscf to start the accept/display configuration utility. Press F2-Alter Press F7 positions Change the locations to the desired ones and then press Enter to return to menu. Press Esc key to return to main menu and then press F4 to save. Press F3 to overwrite current configuration then press Enter

Problem: Customer has a native Visual COBOL application that is using an OPEN to a printer which is a USB printer under Windows.They are setting the configuration option set printer_redirection=TRUE in a cobconfig.cfg file and are setting the environment variable COBCONFIG_ to point to this file.The printer redirection is working correctly and the output from the WRITE statements is successfully be printed. The problem is that the report is supposed to be aligned in columns and these columns are not be aligned properly so they do not match up from row to row. It prints correctly when printing to a printer attached to the LPT1 port. Resolution: Notes: Printer alignment issues on a USB printer most likely have nothing to do with COBOL and have everything to do with what is set as the default font for the printer. If the default font is a proportional font then all characters are not the same width so depending on what characters you are printiing the columns will not line up correc

Problem: A problem was encountered opening indexed files after an application was upgraded from Net Express to Visual COBOL running native code. The SELECT statement was as follows: SELECT ‘filename’ (i.e. no extension specified). Also, INDEXNAMETYPE=2 was set in the file handler configuration file. As a result when opening a new version of a file in Net Express the file handler created an indexed file with the naming convention filename.dat and filename.idx. When testing Visual COBOL it seemed the Visual COBOL Native Runtime was ignoring this directive and was creating just the one file - filename.dat. Some files were temporary transaction files and these were to be removed using the DELETE FILE statement each time the program was run. But in Visual COBOL the .idx file was not deleted when the DELETE FILE statement was executed, and this caused a problem when opening the file later on.   Resolution: The reason this happened was because in Net Ex

Problem: acurcl 7.2 or 8.1 might not start anymore after extend® suite 9.1.2.1 has been installed on the same Windows server. The acurcl (or acuserver) service is created but it does not start.The Windows Event  Viewer reports the following error: Faulting application name: acurcl.exe, version: 7.2.2.0, time stamp: 0x462fed5bFaulting module name: MSVCR71.dll, version: 7.10.3052.4, time stamp: 0x3e561eacException code: 0xc0000005Fault offset: 0x00011da1Faulting process id: 0x14c8Faulting application start time: 0x01cdb77f8a7acc30Faulting application path: C:\\Acucorp\\Acucbl722\\AcuGT\\bin\\acurcl.exeFaulting module path: C:\\Acucorp\\Acucbl722\\AcuGT\\bin\\MSVCR71.dllReport Id: c90bdb71-2372-11e2-8f5d-005056c00008 Resolution: Starting acurcl 9.1 adds this registry entry: HKLM\\System\\CurrentControlSet\\Services\\Eventlog\\Application\\acurcl\\EventMessageFile which points to the 9.1 acme.dll file. Then acurcl of any previous version does not start because it tries

Hi All, I am working on Cobol Ver 5.1.4.0 , Linux  ( 2.6.18-194.el5 x86_64 x86_64 x86_64 GNU/Linux ). Program with following code was compiled successfully, but when execute command  'open output xml-stream',  the file-status value is set as "000000001- " .   Please if anyone can help me with the settings required, for this code to work. ********************** Code *********************        $set p(prexml)  o(dth1.cp) endp  noibmcomp       id division.       program-id. DTH1.       environment division.       input-output section.       file-control.        select xml-stream    assign to "$HOME/myxml.xml"             

I am trying to fill the variable W-SW-VAR1 but i get 0 (zero). Does anyone know why? MODIFY Sr10-MSC-1 DataGrid::RowLabelCount = 1 DataGrid::ColumnCount = 10 DataGrid::RowCount = 1 ChartType = VtChChartType2dPie MODIFY Sr10-MSC-1 Plot::SeriesCollection::Count() GIVING W-SW-VAR1.

Hello  I found there is “Find References” can be selected when I right clilck on a variable. But,the result is only the references in current program When I want to know the references in the project even in the workspace, how do i do Although,i can use Search.but it doesn't have good exactness i want the feature lilke reference in java ， once search，multi-results in multi-programs Please tell me, thank you

Problem: Is Windows Server 2012 supported by ACUCOBOL-GT runtime? Resolution: Version 9.1.2.1 can be run with no issue on Windows Server 2012.Anyway, the first certified release will be 9.2.0, available in next spring 2013.  It is very important to use 9.1.2.1 on this new platform since earlier releases of runtime may have some issues with calls to system functionalities (CALL SYSTEM, CALL C$SYSTEM).#9.1.2.1#AcuRuntime#WinServer2012#Acuthin

Problem: Acubench 9.1.2.1 crashes opening existing projects or trying to build new ones. Resolution: A correction made to Acubench caused a collateral damage in release 9.1.2.1.This bug is now fixed in ECN-WB915.The fix will be available for the first time in release 9.2.0.  Please contact your local SupportLine engineer for further information. #acubench#compile#9.1.2.1#Crash

does anyone know how can i inquire an title from a menu?

The various COBOL and JAVA files used in this article.JVMCOBOLWebServices.zip

Using Extend 8.0 on Windows OS; most of our apps are thin-client, but we have one which writes to server files across the network.  We use a DECLARATIVES section to handle file errors, and part of the DECLARATIVES writes all file errors to a file on the server. If intermittent network errors result in a file error 35 when opening the ERRORLOG file, then we open the file for output. We have a particular desire to open the file for EXTEND instead; however, because this OPEN EXTEND is done INSIDE the DECLARATIVES paragraph, if the file still cannot be opened (it is not declared as OPTIONAL), then it results in a file error, and that causes the program to exit (presumably because DECLARATIVES cannot be performed iteratively). Is there any way around this? Thanks Tony

Recently I was asked by one of our Visual COBOL users how to retrieve a Database connection string for use in an ASP.NET WebForm application. I thought it would be good to put together a small sample and share it on the community site. In many presentations I have done, I have emphasized that Visual COBOL is a .NET language. That means that techniques to do things in .NET can be used in Visual COBOL as well. This is what makes any .NET language powerful. .NET comes with many categories of classes built in that you can use to speed up development. Take advantage of .NET classes with Visual COBOL just like any other .NET language! The sample I have put together really is very straightforward and makes use of some recommended classes and code on Microsoft’s MSDN site. The sample depends on an example connectionString element entry in a Web.Config file. This connectionString element consists of the name of the connectionString, the connectionString itself, and the providerName for th

I tried using that app configuration file that chris glazer sent  (i think that's his name) for another program and it gave me a wrong mode error what modes it suppose to be in the only thing I can think that is different is this line in my code organization is line sequential. im not sure that's any mode or not

Hello, I need to display the copyright symbol ( © ) in a splash screen. The symbol correctly displays when the Cobol program runs in a Linux environment.However, when run in a Windows environment, the symbol displayed looks like an "L" rotated 90 degrees to the right. The splash screen data is held within a .DAT file and I used CTRL ALT C to create the symbol.I tried replacing the symbol with the Hex value (X"A9") but in Windows it just displayed X"A9". What can I do to get the copyright symbol to display correctly in a Windows environment? Thanks,Rita#DisplayCopyrightSymbol

Hi, I am facing a technical problem in calling a native code from a managed code. I have created a native COBOL project and another managed COBOL project, I followed the documentation and no progress!! I would like some help. after I add the native code DLL reference to the managed project I try to call it using CALL "NativeCOBOL" using data-record. and the IDE(Visual Studio) doesn't recognize it despite that I have added the MicroFocus.COBOL.Runtime so anyone guide me please  Best Regards#COBOL#VisualStudio#VisualCOBOLautoscalemodescreenresolution

Ocassionally while generating a program in Acubench we receive a file sharing violation for the .scr. This occurs after making a change on the screen multiple times. It doesn't happen consistently. Some times if you wait a few minutes the lock is removed, other times getting out and back in to Acubench releases it, sometimes not. GHas anyone else experience this? We didn't have this until we upgraded to 8.1.3.   Thanks#acubench

Error 1 Unable to copy file "obj\\Debug\\WindowsFormsApplication3.exe" to ".\\bin\\Debug\\WindowsFormsApplication3.exe". The process cannot access the file '.\\bin\\Debug\\WindowsFormsApplication3.exe' because it is being used by another process. C:\\Windows\\Microsoft.NET\\Framework\\v4.0.30319\\Microsoft.Common.targets 2869

Having an issue when running multiple cobol licenses on the same server.  Occasionally one rmdaemonR drops and further cobol process receive error invoking unauthorized cobol.  At first we simply rebooted the server, but have since found we can clear a file in /tmp to restore the daemon.  Is there any issue with sharing /tmp files between cobol licenses on the same server?  Can the /tmp path be changed per cobol?  Is there anything else that might be causing the daemon to die off? Thank you#linuxcobol

Hello!   I have a HTML text string that I would like to show to the user. As far as I have found, I cannot use the Browser control. This shows a given URL,  not a simple HTML text string. Can anyone give me a tip for showing a simple HTML text string?   Regards Dagl

Hi everyone, I need build a program to calling a external URL and get the return. You guys have a simple example that? I don't know if a have to create a webservice, if yes, can you help me with that. That interation Cobol HTTP its totally new for me. Below my setup: Server Express 5.0(updating next months to 5.1) on Unix Solaris. For any other doubts -> felipemartins@umeri.com.br Thank you !!!!#ServerExpressHTTPURL#Externallinkage114signal_11

I attached  the error in a text file does anyone know what this error means

Hi, i've already connected my code in a database(access 2007). Now my problem is the syntax in inserting data from textboxes when a button is click. Thank you.

       77 excel-app       handle of application.        77 excel-doc       handle of workbook.        77 excel-sheets    handle of sheets.        77 excel-worksheet handle of worksheet.        PROCEDURE DIVISION.        Main Section.            create @Application of @Excel handle in excel-app.            modify excel-app              @Workbooks::Add() giving excel-doc.             inquire excel-doc sheets() in excel-sheets.             inquire excel-sheets item