Is anybody else using MySQL with Micro Focus products? We would love to hear from you if you wouldn't mind filling out the survey attached above and returning it to me at chris.glazier@microfocus.com
Thanks,
↧
RE: Asking for Help from MySQL Users
↧
Java consuming a Cobol Web Service
I have testing Cobol web services using Visual Cobol 2.2.
My two webservices are: a simple calc with two methods, add and subtract; and my second WS with four operations read, write, rewrite and delete on a indexed file. Both WS work in a simplest way and testing from a Cobol client created by Eclipse.
Now i wish to access webservices with a Java program: Java client consuming data from a Cobol web service, but i can't and need a documentation reference.
With Java and .NET i use a SOAP webservice and i have a WSDL file; then use the reference "?wsdl" in the url for create the connection (using the wizard on Eclipse and VStudio). This method does not work with the Cobol web services.
Any help?, Thanks.
Enrique.
↧
↧
RE: Java consuming a Cobol Web Service
Just following up on Yvon's reply. Enterprise Server does not serve the WSDL file for the service in response to a request with the query string "?wsdl" tacked onto the URL. That's a convention of some servers, not a requirement of the SOAP specification.
↧
RE: Predicate
Can you be more specific? The problem you are describing has actually a very simple solution with indexed files.
↧
RE: Predicate
Did you consider to use a dictionary?
01 myDictionary[binary-long, type Object]. *> 1st parameter is type of key.
create myDictionary
perform ....
... *> set values for myObject and dicKey
write myDictionary from myObject key dicKey
end-perform
To get a item:
*> set value for dicKey
read myDictionary into myObject key dicKey invalid key ...
end-read.
↧
↧
Predicate
Hello,
could anyone help me ? I have collections of some items, each of them has unique ID and I need to write code to find the item of specific ID. I found class Predicate and I suppose that this could be the right way to solve it as simple as possible. But may be I'm wrong I don't know.
I also tried to write some code according C# and C++ codes but I wasn't successful.
Thanks
↧
RE: Predicate
Well, I have collection of menuitems with property Name and I'm looking for as quick way of retrieving requested item according to its name as possible. And I thought using Predicate would be the best way. I prefer when the code is as simple as possible, that's all.
↧
RE: IIF
We don't have any direct equivalent for this in COBOL syntax. Of course, it's possible to do this in two lines in COBOL:
declare ReturnValue as string
if Expression set ReturnValue to TruePart else set ReturnValue to FalsePart end-if
...but probably most people would split this and use normal indentation for the sake of readability.
I think the C# (and C) '?' syntax is probably most useful in contexts like parameter passing, and it's certainly possible we might want to add a construct like this to the language at some point.
↧
RE: IIF
Ok, thank you.
It's certainly possible to do it in two lines and it occurred to my mind but that's not what I'm looking for. I just like my code being simple but readable. That's why I very agree with you as for readability of code. But sometimes there're very simple parts of code with IF statement like following
IF (l-anItem <> NULL)
set x to 1
ELSE
set x to 0
END-IF
and in those cases such a syntax would be useful. Something like
move IIF(l-anItem <> NULL, 1, 0) to x
compute x = IIF(l-anItem <> NULL, 1, 0)
↧
↧
Connecting to default MySQL ODBC?
Hi,
Just wanted to clarify something. I have, $SQL( INIT) statement in my first prog with no parameters. I immediately issue an EXEC SQL select... from table.... Works fine even though i never specify db name or user/pw. Is this because I only have a single odbc source defined on my pc?
Thanks, Linden
↧
RE: IIF
What you can do is write a Integrated Pre-processor that would expand the IIF syntax into standard Cobol code. That would mean that you code and animate the IIF statement, but actually execute the expanded code.
For more information have a look at the Integrated Preprocessor Interface section of the documentation.
↧
IIF
Is possible to make Visual Cobol code shorter similar to something like that ?
string ReturnValue = Expression == true ? TruePart : FalsePart;Using this the code would be shorter by 4 lines.
↧
Inline declaration
Very often I've been using code construction like
declare x as type <some_type> = self::GetSomething
That's really cool. But what makes me upset that in this inline declaration the editor doesn't offer possibilitites when the cursor is just behind the
self::
I must remember what I want to write. Or - and that's the key problem - when I even don't know the method or property name and I'm just looking for its name, then first of all I must declare the "x" item separately in local-storage and then I can start finding name of the requested method or name. It looks like the editor doesn't work correctly in that case.
↧
↧
Screen Sections Borders
First time working with screen sections. Used to be in a mainframe environment.
Testing a very simple program. Using Visual COBOL for Eclipse. Works within the PC environment but not in the UNIX environment.
For Windows.
┌────────────────────────────────┐
│ │
│ Empl nr: 0000 │
│ │
│ Password: │
│ │
└── Staff number and Password ───┘
For Unix, the borders are messed up.
ZDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD?
3 3
3 Empl nr: 0000 3
3 3
3 Password: 3
3 3
@DD Staff number and Password DDDY
Program is re-compiled in the UNIX environment.
Program source
$set preprocess(window1)
IDENTIFICATION DIVISION.
PROGRAM-ID. MFSCREENTEST.
AUTHOR. RP.
DATE-WRITTEN. NOV 16.
ENVIRONMENT DIVISION.
DATA DIVISION.
working-storage section.
78 note-height value 6.
78 note-width value 32.
78 no-of-chars value note-height * note-width.
01 note-window pic x(10).
01 note-data value " - - ".
03 note-char pic x occurs no-of-chars.
01 data-from-screen.
03 sc-stf-key pic 9(04).
03 sc-password pic x(10).
01 WORKAREAS.
05 WS-ACCEPT-2 PIC ZZ.
screen section.
01 input-data highlight.
03 line 3 column 6 value " Empl nr: ".
03 scr-in-stf-key line 03 col 17
pic 9999 to sc-stf-key.
03 line 5 column 6 value " Password: ".
03 scr-in-password line 05 col 17 NO-ECHO
pic x(10) to sc-password.
01 note-screen pic x(no-of-chars)
using note-data prompt " ".
procedure division.
* call "cbl_debugbreak"
* Put a blank window on the screen with a border and title
display window, line 4, column 14, lines note-height,
size note-width, boxed, erase
* Define a reference for this window so that it can be removed
* and the previous display restored
pop-up area is note-window
bottom centered title "Staff number and Password"
* Fill the window with the contents of note-screen
display note-screen
display input-data
accept scr-in-stf-key
accept scr-in-password
close window note-window.
stop run.
What must I do to get the borders to display correctly in the UNIX world? Rest of the program does work as it should. Its just the borders.
↧
Seeking Dialog ListView programmed control DEMO
Hi there,
Are there any simple demo programs/screensets available still for dialog listview programmed controls that will work in VISUAL COBOL?
Many thanks,
Linden
↧
RE: Installing COBOL Server 2.3.2
Hi DMonnot,
Yes, can install cs_232 because is a full installer without install CS23 or cs231, but make sure that you install also the hot fix 1 for the update 2. (cs_232_hf01_139300.exe)
regards,
↧
Installing COBOL Server 2.3.2
Stupid question time: We are standing up a new Windows server and need to install COBOL Server 2.3.2. Can we install JUST cs_232.exe, or do we install 2.3 first, and then cs_232.exe?
↧
↧
Winform application setup
Hi,
Recently we have migrated from netexpress dialogs to visual cobol dialogs. Our application was setup based on network share mode(as per instructions from Micro Focus) so that users from client work station can ping the application hosted in the windows 2012 server.
Now we are trying to convert dialogs to winforms. I have deployed winform executables to the server and it works good in the server but the application crashes when i try to ping from work station.
I am assuming that the same application setup should work for winform as well. Is there anything i need to take care of ?
---------------------------------
ERROR :
Version=1
EventType=APPCRASH
EventTime=131274350239260298
ReportType=2
Consent=1
ReportIdentifier=b3c704dd-cd46-11e6-9e4e-40a8f04619b3
IntegratorReportIdentifier=b3c704dc-cd46-11e6-9e4e-40a8f04619b3
Response.type=4
Sig[0].Name=Application Name
Sig[0].Value=WI100.exe
Sig[1].Name=Application Version
Sig[1].Value=0.0.0.0
Sig[2].Name=Application Timestamp
Sig[2].Value=58643056
Sig[3].Name=Fault Module Name
Sig[3].Value=KERNELBASE.dll
Sig[4].Name=Fault Module Version
Sig[4].Value=6.1.7601.23392
Sig[5].Name=Fault Module Timestamp
Sig[5].Value=56eb2fb9
Sig
.Name=Exception Code
Sig.Value=e0434352
Sig[7].Name=Exception Offset
Sig[7].Value=0000845d
DynamicSig[1].Name=OS Version
DynamicSig[1].Value=6.1.7601.2.1.0.256.48
DynamicSig[2].Name=Locale ID
DynamicSig[2].Value=1033
DynamicSig[22].Name=Additional Information 1
DynamicSig[22].Value=0a9e
DynamicSig[23].Name=Additional Information 2
DynamicSig[23].Value=0a9e372d3b4ad19135b953a78882e789
DynamicSig[24].Name=Additional Information 3
DynamicSig[24].Value=0a9e
DynamicSig[25].Name=Additional Information 4
DynamicSig[25].Value=0a9e372d3b4ad19135b953a78882e789
UI[2]=\\testtaris\Taris\WI100.exe
UI[3]=WI100.exe has stopped working
UI[4]=Windows can check online for a solution to the problem.
UI[5]=Check online for a solution and close the program
UI=Check online for a solution later and close the program
UI[7]=Close the program
LoadedModule[0]=\\testtaris\Taris\WI100.exe
LoadedModule[1]=C:\Windows\SYSTEM32\ntdll.dll
LoadedModule[2]=C:\Windows\SYSTEM32\MSCOREE.DLL
LoadedModule[3]=C:\Windows\system32\KERNEL32.dll
LoadedModule[4]=C:\Windows\system32\KERNELBASE.dll
LoadedModule[5]=C:\Program Files\McAfee\DLP\Agent\fcagpph32.dll
LoadedModule=C:\Windows\system32\USER32.dll
LoadedModule[7]=C:\Windows\system32\GDI32.dll
LoadedModule
=C:\Windows\system32\LPK.dll
LoadedModule[9]=C:\Windows\system32\USP10.dll
LoadedModule[10]=C:\Windows\system32\msvcrt.dll
LoadedModule[11]=C:\Windows\system32\WINSPOOL.DRV
LoadedModule[12]=C:\Windows\system32\ADVAPI32.dll
LoadedModule[13]=C:\Windows\SYSTEM32\sechost.dll
LoadedModule[14]=C:\Windows\system32\RPCRT4.dll
LoadedModule[15]=C:\Windows\system32\SHELL32.dll
LoadedModule[16]=C:\Windows\system32\SHLWAPI.dll
LoadedModule[17]=C:\Windows\system32\ole32.dll
LoadedModule[18]=C:\Windows\system32\OLEAUT32.dll
LoadedModule[19]=C:\Windows\system32\PSAPI.DLL
LoadedModule[20]=C:\Windows\system32\VERSION.dll
LoadedModule[21]=C:\Windows\system32\IMM32.DLL
LoadedModule[22]=C:\Windows\system32\MSCTF.dll
LoadedModule[23]=C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscoreei.dll
LoadedModule[24]=C:\Windows\Microsoft.NET\Framework\v4.0.30319\clr.dll
LoadedModule[25]=C:\Windows\system32\MSVCR110_CLR0400.dll
LoadedModule[26]=C:\Windows\assembly\NativeImages_v4.0.30319_32\mscorlib\51e2934144ba15628ba5a31be2dae7dc\mscorlib.ni.dll
LoadedModule[27]=C:\Windows\system32\CRYPTBASE.dll
LoadedModule[28]=C:\Program Files\Imprivata\OneSign Agent\ISXHookInit.dll
LoadedModule[29]=C:\Program Files\Imprivata\OneSign Agent\ISXHook.dll
LoadedModule[30]=C:\Program Files\Imprivata\OneSign Agent\ISXUtils.dll
LoadedModule[31]=C:\Program Files\Imprivata\OneSign Agent\isxtrace_dll.dll
LoadedModule[32]=C:\Windows\system32\SETUPAPI.dll
LoadedModule[33]=C:\Windows\system32\CFGMGR32.dll
LoadedModule[34]=C:\Windows\system32\DEVOBJ.dll
LoadedModule[35]=C:\Windows\system32\Secur32.dll
LoadedModule[36]=C:\Windows\system32\SSPICLI.DLL
LoadedModule[37]=C:\Windows\system32\MSVCP100.dll
LoadedModule[38]=C:\Windows\system32\MSVCR100.dll
LoadedModule[39]=C:\Windows\system32\WTSAPI32.dll
LoadedModule[40]=C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.23545_none_5c06d189a00e2c29\gdiplus.dll
LoadedModule[41]=C:\Windows\system32\WS2_32.dll
LoadedModule[42]=C:\Windows\system32\NSI.dll
LoadedModule[43]=C:\Windows\system32\NETAPI32.dll
LoadedModule[44]=C:\Windows\system32\netutils.dll
LoadedModule[45]=C:\Windows\system32\srvcli.dll
LoadedModule[46]=C:\Windows\system32\wkscli.dll
LoadedModule[47]=C:\Windows\system32\SAMCLI.DLL
LoadedModule[48]=C:\Windows\system32\USERENV.dll
LoadedModule[49]=C:\Windows\system32\profapi.dll
LoadedModule[50]=C:\Program Files\Imprivata\OneSign Agent\ISXCrypt.dll
LoadedModule[51]=C:\Windows\system32\CRYPT32.dll
LoadedModule[52]=C:\Windows\system32\MSASN1.dll
LoadedModule[53]=C:\Program Files\Imprivata\OneSign Agent\ISXComm.dll
LoadedModule[54]=C:\Program Files\Imprivata\OneSign Agent\ISXSendKeys.dll
LoadedModule[55]=C:\Windows\system32\OLEACC.dll
LoadedModule[56]=C:\Windows\system32\ntmarta.dll
LoadedModule[57]=C:\Windows\system32\WLDAP32.dll
LoadedModule[58]=C:\Windows\Microsoft.NET\Framework\v4.0.30319\clrjit.dll
LoadedModule[59]=C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.18837_none_41e855142bd5705d\Comctl32.dll
LoadedModule[60]=C:\Windows\Microsoft.NET\Framework\v4.0.30319\diasymreader.dll
FriendlyEventName=Stopped working
ConsentKey=APPCRASH
AppName=WI100.exe
AppPath=\\testtaris\Taris\WI100.exe
↧
Visual studio 2013 for Visual cobol 2.2 compiler issue
HI,
All of a sudden my program throws below error message which used to compile successfully. There's no code change, just trying to rebuild my solution for test deployment.
Error 9 COBCH0852 : System error - unexpected error while generating managed code C:\Clearcase\DPSZP2\TARIS\VTARIS\WI600WRP\WI600.CBL 1 1 WI600WRP
Error 10 COBCH0855 : System error - evaluation stack exceeded limit C:\Clearcase\DPSZP2\TARIS\VTARIS\WI600WRP\WI600.CBL 1 1 WI600WRP
↧
RE: Visual studio 2013 for Visual cobol 2.2 compiler issue
This is a product error. My recommendations:
- Ensure you have the latest hotfix release for your product installed. If not, install it, then try again.
- If that doesn't fix the problem, you should update to the current product release (2.3 Update 2).
- If necessary, raise a support incident with Micro Focus Customer Care. I recommend trying the two previous steps first, though, since this issue may well already have been resolved. (There have been numerous fixes to managed-code generation since the initial release of 2.2.)
↧