Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all 4356 articles
Browse latest View live
↧

JVM COBOL - Error 119 Name not unique

July 16, 2018, 10:50 am
$
0
0

Hello,

I am calling a cobol program, from a Java servlet.

I can successfully run the cobol program, but if I display a JSP, and then try to invoke the program again, I get the following exception:

com.microfocus.cobol.program.COBOLRuntimeException: 119     Name is not unique 

This is how I am invoking the program…

private Boolean STAGE_1 (StateLinkage sl, IRunUnit runUnit, HttpServletRequest req, HttpServletResponse res)
{
boolean successFlag = false;

AMSC535A pgm = new AMSC535A();
Amsc535aParms AMSC535Aparms = new Amsc535aParms();
runUnit.Add(pgm);

int GCSrc = pgm.AMSC535A(AMSC535Aparms);


if ( GCSrc < GCS_WARNING )
  { successFlag = true; }

return successFlag;
}

 

 

 

Could someone advise me on how to fix this please.

 

↧
Search

embedded ESQL CONNECT with password

July 18, 2018, 9:50 am
$
0
0

Can I get an example of embeded ESQL CONNECT command that specifies a password for an password/encrypted XLS?  This would be in native COBOL.

Thanks, Ellen S.

↧
↧

how to create a cobol api call to non cobol api programs??

July 19, 2018, 12:34 am
$
0
0

we are looking for options to call a non cobol api's from native cobol programs :: using visual cobol with eclipse

↧

Message Box Timeout?

July 22, 2018, 7:25 am
$
0
0

 I've been using the message box (Windows) for long time, and once in a while a message box will hold up a process from finishing.  Is there any way to code a timeout on a message box and force the default response after say X number of seconds?

 

The message box variables I'm familiar with are TEXT, TITLE, TYPE, ICON, DEFAULT (response), VALUE 

Thanks,

↧

Data Grid Error

July 24, 2018, 11:35 am
$
0
0

I get an error accessing the data grid that the index is out of range. I have done this many times so the error is unusual. The only factor different in my many uses of data grid is that I have two data grids on a single form. I'll provide some detail.

Here is the code

invoke self::dataGridView2::Rows::Clear
set dataGridView2::ColumnCount = 3
set dataGridView2::Columns[0]::Width = 100 *> Hole
set dataGridView2::Columns[1]::Width = 150 *> player
set dataGridView2::Columns[2]::Width = 100 *> results

perform varying sub1 from 1 by 1 until sub1 > 9
   subtract 1 from sub1 giving line-number (this gives zero)
   move 0 to column-index
   set dataGridView2::CurrentCell = dataGridView2::Rows[line-number]::Cells[column-index];

The above set datagridview2 fails with 

An unhandled exception of type 'System.ArgumentOutOfRangeException' occurred in mscorlib.dll
Additional information: Index was out of range. Must be non-negative and less than the size of the collection

The following (if you can see it) to me indicates line-number and column-index are correct

Any help? 

↧
↧

Cannot Create Project File VS 2017

July 24, 2018, 12:42 pm
$
0
0

It appears I have successfully installed Visual Studio 17 and Visual Cobol for Visual Studio 17.  When I go through the process to create a project: File,new,project,intalled,cobol,native or managed(same with any option), console application (or any option), complete the file name and hit 'OK' key, a Microsoft visual studio window appears stating it's creating the project (name I entered).  It never completes and will not cancel.  I have to end visual studio from the task manager, endtask option ( three times ).

I do not have this problem with any other language, only visual cobol.  Same thing happens if I load a cobol program and attempt to create a project.  I can successfully compile the program and run from the debug choices, but that is where my capabilities appear to end.

Of course the question is:  How do I resolve the problem?

↧

Unable to download Visual Cobol 4.0 Patch Update 1

July 24, 2018, 6:58 pm
$
0
0

I'm unable to download the Patch Update 1 for 4.0 for Visual Studio 2017.

I get an error message indicating either "INET_E_DOWNLOAD_FAILURE" in Microsoft Edge or "ERR_CONNECTION_RESET" in Chrome.  In Firefox I get a message saying the connection was reset.

I do not use a proxy.

I tried both on my Windows 10 VM and on macOS

↧

LINK : fatal error LNK1561: entry point must be defined

July 25, 2018, 5:51 am
$
0
0

Hi there

I'm sorry when how to solve this issue is known the most, and the work-around might be obvious to just as many 

Even though, I've not been able to figure out what - as I've installed MF visual COBOL and is about to migrate older programs

Doing so, I'm compiling from Visual COBOL command promt (64-bit) using COBOL.exe

It goes well, but next when using the linker (LINK.exe), it comes up with "LINK : fatal error LNK1561: entry point must be defined"

And, the compiler doesn't take any of the compiler options in account - no matter whether I use CBL or PROCESS statement

Any help will be greatly appreciated, kind regards

↧
Search

What license do i need for Docker containers (Windows)

July 25, 2018, 6:53 am
$
0
0

I am trying to test Cobol Server in Docker, but all licenses we own are recected when building initial image:
...
Step 18/19 : RUN set MFLICFILE=${MFLICFILE} &&     "%RMT_DIR%\\MFLicenseAdmin.exe" -install %MFLICFILE%
 ---> Running in 60dec237fcc1
Non-STANDALONE license ignored:
10 SolarNativeRuntimeDeploy 1.0 LONG NORMAL NETWORK ADD INFINITE_KEYS INFINITE_KEYS 1 JAN 2009 NEVER NO_SHR SLM_CODE 2_LOG_ENCRYPTION_LEVEL NON_COMMUTER NO_GRACE DEMO NON_REDUNDANT NiL NiL Ni NO_HLD NiL 5_MINS xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Non-STANDALONE license ignored:
xxxxxxx

The command 'cmd /S /C set MFLICFILE=${MFLICFILE} &&     "%RMT_DIR%\\MFLicenseAdmin.exe" -install %MFLICFILE%' returned a non-zero code: 8030720
...

 

What kind of license do i need. Where can i get at least a test license.

↧
↧

error COBCH0854 : System error - evaluation stack negative

July 25, 2018, 6:19 pm
$
0
0

I get the above error when building my Visual COBOL solution using Visual Studio 2015.  Is there something simple I'm missing?  The code worked fine using the old MS-DOS Micro Focus compile and link.  Do I need to check one or more namespaces in the solution properties, for instance?  Or something simpler?

Thanks in advance,

Wes

↧

screen section date

July 29, 2018, 5:40 am
$
0
0

In an older version of MF COBOL I used "current-date" as the Source for a field in the screen section.  That triggers a compiler error now.  What replaced "current-date"?

↧

KEYSTROKE HAS NO MEANING HERE

August 2, 2018, 1:26 am
$
0
0

I HAVE A LEGACY SYSTEM THAT I AM CONVERTING TO VISUAL STUDIO. HOW DO I GET THE PROGRAMS TO RECOGNISE FUNCTION KEYS ?

↧

Dialog System

August 6, 2018, 2:22 pm
$
0
0

-  How to position a current window at the same x and y coordinates position as my previews window but whereby the two are not parent-child windows and belong to different screensets.

↧
↧

Net Express/Visual Cobol

August 8, 2018, 4:55 pm
$
0
0

 I have a client that has a current system in production with Net Express.  We have converted their code to visual cobol, but they want to have both Net Express and Visual Cobol license on the same server for testing.  I this possible to do.

↧

What is value of uninitialized item in working storage?

August 8, 2018, 5:13 pm
$
0
0

Micro Focus Visual COBOL.

An item in working storage is described as PIC X type but no VALUE clause, as follows:

       WORKING-STORAGE.

           01  WORK-ITEM       PIC X(10).

In this example, when program loads, does this item have an initial value of spaces?  ... or is it "undefined"?

(Assume default environment,  should environment variables affect the answer).

Also, if there is a documentation reference, please provide a link.

Thanks!

 

 

↧
Search

Runtime Error

August 13, 2018, 12:05 pm
$
0
0

I have a naïve cobol program running in visual cobol 2.3 that get a run time error 173 on MFFH.  I have the cobol server path in the bat file that runs the program and even tried copying the bin folder to a different local drive with the same results.  What am I missing.  I have followed the documentation for running naïve programs from a workstation.

PATH=C:\PROGRAM FILES(x86)\MICRO FOCUS\COBOL SERVER\BIN;D:\CCARMARUN\BIN;D:\CCARMARUN;%PATH%

CCARMA

 CCARMA is the program.

 

↧

cblnames visual cobol 4 from command line

August 17, 2018, 11:52 pm
$
0
0

We have migrated from netexpress for Windows to visual cobol 4.

I need to use cblnames from command line . Where can I find the technical documentation?

In the previous environment the command used was:

cblnames -V -FM -DUSFHINIA.def @USFHINIA.NAM

↧
↧

Data File Editor - Find And Replace

August 20, 2018, 2:40 pm
$
0
0

Using Data File Editor - Version 2.2.02104 with a fixed length indexed file and an .STR file provided and the data file is not write protected ...

When I choose Search > Data File Editor > Data File Find And Replace ...

... instead of presenting the normal popup box, it does nothing (it does not present a popup box).

Other search options, such as Find on Current Key work fine (a popup box is presented to enter a search value, etc.).

With the very same file, others on my team here do get the normal popup box when doing the find and replace.

So I am wondering why it is not doing this for me ???

Thanks

 

↧

SYSTEM DATE ONLY 6 CHARACTERS

August 21, 2018, 2:27 am
$
0
0

ACCEPT WS-DATE FROM DATE RETURNS A 6 CHARACTER DATE.

WHAT NEEDS TO BE DONE TO MAKE THIS 8 CHARACTERS?

↧

compile not creating .o or .gnt file

August 23, 2018, 10:02 am
$
0
0

 Hi,

I'm new to the community so I hope I'm asking the question correctly.  I installed Visual Studio 2017 for personal use and microfocus COBOL.  When I load the program in, the build button is displayed.  The compile button is displayed under it.  The compile completes with no errors - very simple program.  I do not have a run button and debug doesn't have a button to step through the program.  When I check the folder where the program is, I have a .int file but no .o or .gnt file.  What do I need to do to be able to run this very simple program?

Thanks,

Chuck Dial

↧
Viewing all 4356 articles
Browse latest View live
Search