Hi, i have a question related to the micro focus product Databse connectors. I have watch the webcast and red the documetation, but it's not clear to me if this product can both be use for both Batch and Cics. The sample explain during the webcast was Batch related, but I have to be sure it will work with Cics I/O as well. If possible, pleas reply via email. Thanks. Regards, Robin Bergman Email : Robin.Bergman@ing.com
↧
Forum Post: RE: #COBOLasks - Questions for the #COBOLrocks TechCasts
↧
Wiki Page: Restricting Access to the Enterprise Server Web Administration Console
Problem How do I restrict access to the Enterprise Server Web Administration Console? Solution Follow these steps to restrict the Enterprise Server Web Administration Console: In a web browser, enter the URL to open your Enterprise Server Web console. ( For example: http://myserver.com:86 ) From the menu on the left, select Security Select the MF Directory Server tab Check the box next to Restrict administration access At the bottom of the page, click Apply You will receive a prompt, asking that you enter the current authentication details for the "SYSAD" account. This is the default account set up for securing the Enterprise Server Web Administration Console. The prompt reads: "A change in administration … has been requested" Enter User ID that will secure the Console (the default user id is "SYSAD") Enter Password (the default password is also "SYSAD") If you wish, you can also change the default password for the SYSAD as you log in. To do so, e nter the new password in both new password fields (these fields may appear greyed out, but will accept entry) Click OK On the left, select Log Off . The Enterprise Server Web console will be reloaded, and you will be i mmediately prompted for logon, password When the login security for the console has been activated, a new HTML "splash" page is displayed after login. The HTML for this page is stored at $COBDIR/lang/default/greeting.htmf (please note the file's extension ends with lower case "F", not lower case "L"). This file can be modified to display a desired custom message. The steps above provide simple password protection for the Enterprise Server Web Administration Console . For a more comprehensive approach to securing access, please see this article.
↧
↧
Forum Post: RE: #COBOLasks - Questions for the #COBOLrocks TechCasts
The Database Connectors product is distributed as part of the Visual COBOL product. CICS support is available in the Enterprise Developer product not the Visual COBOL product. Database Connectors maps standard COBOL I-O statements like OPEN, READ and WRITE onto SQL statements under the covers allowing you to access database tables using these statements instead of using embedded SQL. So the short answer is no, Database Connectors are not currently supported for use with CICS programs running under control of Enterprise Server. If you require this functionality you should contact your Account Manager or open up a new ticket with Customer Support and we can look into the options available.
↧
Forum Post: RE: Dialog System Problem (same in Netexpress5.x and Visual Cobol 3.x)
The Problem was that i call a ds command from Cobol before ds-screenset was loaded! That was the not documented error code And i have search any days to solve this! Thanks for your answer and help
↧
Forum Post: RE: basic question regarding debugging a remote cobjvm program from eclipse
Sorry, I was off working on something else. I have finally got back to this. I have updated the Visual COBOL for Eclipse installation up to the same Patch Update version that is currently being used on your DevHub machine and I still have the same problem. is there a log file somewhere (on windows or Linux) that might give me a better idea what is going wrong, the current error message is not helpful.
↧
↧
Forum Post: Self
In a .net visual cobol windows form, can a global variable be declared in working storage that references self::? Working-storage section. 01 s as new self. Method. invoke s::GetNumbers(). I know you can use declare x = new self in the method itself, but can you declare a global variable that represents self?
↧
Forum Post: RE: Self
self is already a global variable which can change depending on which object is currently being executed. If you are within the Form methods then it will contain the current forms instance. If you change to a different object it will contain the value of that object. What is it that you are trying to accomplish?
↧
Forum Post: RE: Self
not having to type the word self; probably a matter of being lazy i guess.
↧
Forum Post: Update 4.0.268 does not allow generating clients from WSDL
Good day, Update 4.0.268 does not allow generating clients from WSDL. In the version 4.0 does not generate error attach screens captures and error " Micro Focus Interface Mapping Toolkit v4.0.00259 Copyright (C) Micro Focus 1984-2018. All rights reserved. An exception occurred! Type:RuntimeException, Message:The primary document entity could not be opened. Id=C:\Users\Usuario\OneDrive/ConsultaEstado.!!1 The generation of the COBOL client from WSDL failed. Micro Focus Interface Mapping Toolkit v4.0.00259 Copyright (C) Micro Focus 1984-2018. All rights reserved. An exception occurred! Type:RuntimeException, Message:The primary document entity could not be opened. Id=C:\Users\Usuario\OneDrive/ConsultaEstado.!!1 The generation of the COBOL client from WSDL failed."
↧
↧
Forum Post: RE: Update 4.0.268 does not allow generating clients from WSDL
the problem is in the space that has the path of the path where the .WSDL is, but the previous version was indifferent :O
↧
Forum Post: RE: Self
With more recent versions of Visual COBOL, you do not need to type self:: in this context. It's enough to just do: invoke GetNumbers()
↧
Forum Post: String data - right truncation[32]
hi I' have program that run with cobol server 4.0, compiled with Enterpsie developer 4.0 for eclipse, on windows 2012 and give this error: SQLCODE: +00000001 SQLSTATE: 01004 SQL MESSAGE TEXT: String data - right truncation[32] EXPANDED TEXT: String data - right truncation[32] in odbc trace i have found thos print: ) d88-1b74 EXIT SQLDriverConnectW with return code 1 (SQL_SUCCESS_WITH_INFO) HDBC 0x0077E868 HWND 0x00010010 WCHAR * 0x74421F7C [ -3] "******\ 0" SWORD -3 WCHAR * 0x74421F7C [-3] SWORD -3 SWORD * 0x00000000 UWORD 0 DIAG [01004] [Oracle][ODBC]String data, right truncated. (0) What can I look for? thanks bye
↧
Forum Post: RE: String data - right truncation[32]
sqlcode=1 Comes when a variable have a false length. Please verify all database fields and the Cobol fields. Can you Show us the sqlcommand, the create Statement and the Cobol varialbe? thanks
↧
↧
Forum Post: RE: String data - right truncation[32]
if you read the message error, the buffer length will be given, also string data, right truncated
↧
Forum Post: RE: String data - right truncation[32]
the descr of oracle table, cursor declare, fetch cursor and cobol area below: NOTE: - I have only a varchar2 column INTESTAZIONE - with cobol server in 2.3.2 version it's work fine: 05 HV-TABLE-INTESTAZIONE. 49 HV-TABLE-INTESTAZIONE-L PIC S9(0004) COMP. 49 HV-TABLE-INTESTAZIONE-T PIC X(0160). descr TABLE Nome Nullo Tipo ------------------ -------- ------------------ ID NOT NULL NUMBER(15) COD_ISTITUTO NOT NULL NUMBER(5) CODICE_ABI NOT NULL NUMBER(6) NDG NOT NULL CHAR(16 CHAR) INTESTAZIONE NOT NULL VARCHAR2(160 CHAR) DATA_CONTABILE NOT NULL NUMBER(8) FENOMENO NOT NULL NUMBER(9) TIPO_FIN NOT NULL NUMBER(3) UFFICIO NOT NULL CHAR(7 CHAR) OPERATORE NOT NULL CHAR(13 CHAR) DATA_RICHIESTA NOT NULL NUMBER(8) TIPO_RICHIESTA NOT NULL CHAR(4 CHAR) CONFERMA NOT NULL CHAR(1 CHAR) STATO_RICHIESTA NOT NULL CHAR(2 CHAR) DATA_INS NOT NULL NUMBER(8) ORA_INS NOT NULL NUMBER(8) DATA_VAR NOT NULL NUMBER(8) ORA_VAR NOT NULL NUMBER(8) OPERATORE_VAR NOT NULL CHAR(13 CHAR) NUMERO_MESSAGGIO NOT NULL NUMBER(7) DATA_PRO_MESSAGGIO NOT NULL NUMBER(8) VERSION NOT NULL NUMBER(16) EXEC SQL DECLARE TABLE_17 CURSOR WITH HOLD FOR SELECT ID , COD_ISTITUTO , CODICE_ABI , NDG , INTESTAZIONE , DATA_CONTABILE , FENOMENO , TIPO_FIN , UFFICIO , OPERATORE , DATA_RICHIESTA , TIPO_RICHIESTA , CONFERMA , STATO_RICHIESTA , DATA_INS , ORA_INS , DATA_VAR , ORA_VAR , OPERATORE_VAR , NUMERO_MESSAGGIO , DATA_PRO_MESSAGGIO, VERSION FROM TABLE WHERE COD_ISTITUTO = :HV-TABLE-COD-ISTITUTO AND TIPO_RICHIESTA = :HV-TABLE-TIPO-RICHIESTA AND STATO_RICHIESTA IN ('40', '50') END-EXEC. EXEC SQL FETCH TABLE_17 INTO :HV-TABLE-ID , :HV-TABLE-COD-ISTITUTO , :HV-TABLE-CODICE-ABI , :HV-TABLE-NDG , :HV-TABLE-INTESTAZIONE , :HV-TABLE-DATA-CONTABILE , :HV-TABLE-FENOMENO , :HV-TABLE-TIPO-FIN , :HV-TABLE-UFFICIO , :HV-TABLE-OPERATORE , :HV-TABLE-DATA-RICHIESTA , :HV-TABLE-TIPO-RICHIESTA , :HV-TABLE-CONFERMA , :HV-TABLE-STATO-RICHIESTA , :HV-TABLE-DATA-INS , :HV-TABLE-ORA-INS , :HV-TABLE-DATA-VAR , :HV-TABLE-ORA-VAR , :HV-TABLE-OPERATORE-VAR , :HV-TABLE-NUMERO-MESSAGGIO , :HV-TABLE-DATA-PRO-MESSAGGIO, :HV-TABLE-VERSION END-EXEC. 01 HV-TABLE. 05 HV-TABLE-ID PIC S9(0015) COMP-3. 05 HV-TABLE-COD-ISTITUTO PIC S9(0005) COMP-3. 05 HV-TABLE-CODICE-ABI PIC S9(0006) COMP-3. 05 HV-TABLE-NDG PIC X(0016). 05 HV-TABLE-INTESTAZIONE. 49 HV-TABLE-INTESTAZIONE-L PIC S9(0004) COMP. 49 HV-TABLE-INTESTAZIONE-T PIC X(0160). 05 HV-TABLE-DATA-CONTABILE PIC S9(0008) COMP-3. 05 HV-TABLE-FENOMENO PIC S9(0009) COMP-3. 05 HV-TABLE-TIPO-FIN PIC S9(0003) COMP-3. 05 HV-TABLE-UFFICIO PIC X(0007). 05 HV-TABLE-OPERATORE PIC X(0013). 05 HV-TABLE-DATA-RICHIESTA PIC S9(0008) COMP-3. 05 HV-TABLE-TIPO-RICHIESTA PIC X(0004). 05 HV-TABLE-CONFERMA PIC X(0001). 05 HV-TABLE-STATO-RICHIESTA PIC X(0002). 05 HV-TABLE-DATA-INS PIC S9(0008) COMP-3. 05 HV-TABLE-ORA-INS PIC S9(0008) COMP-3. 05 HV-TABLE-DATA-VAR PIC S9(0008) COMP-3. 05 HV-TABLE-ORA-VAR PIC S9(0008) COMP-3. 05 HV-TABLE-OPERATORE-VAR PIC X(0013). 05 HV-TABLE-NUMERO-MESSAGGIO PIC S9(0007) COMP-3. 05 HV-TABLE-DATA-PRO-MESSAGGIO PIC S9(0008) COMP-3. 05 HV-TABLE-VERSION PIC S9(0016) COMP-3.
↧
Forum Post: RE: String data - right truncation[32]
Hi, I use MySQL so may be different but... I get this error when I don't give columns a name which means the column name is automatically generated and may be too long and results in a string truncation error! i.e. nothing to do with the data returned! It had me pulling my hair out when I started using exec sql but I know now so always check for this! e.g. exec sql SELECT CASE WHEN xxxxxxxxxx = yyyyyyyyyy THEN zzzzzzzzzzz ELSE kkkkkkkkkkkkkk END INTO :my_result FROM myDB end-exec TO FIX add 'AS' clause... exec sql SELECT CASE WHEN xxxxxxxxxx = yyyyyyyyyy THEN zzzzzzzzzzz ELSE kkkkkkkkkkkkkk END AS myCol INTO :my_result FROM myDB end-exec There is probably a limit on the auto-generated column name of 256 chars so when my case statement is more than that I get the error! Hope this helps. Regards, Linden
↧
Forum Post: Tasks
Can you do programming in visual cobol .net using await and Task operators? I have a very simple method below and wish to use async, Task and await operators. Is this possible in a windows form application? method-id CreateUser(username as string) returning a as type Task[condition-value] async end method.
↧
↧
Forum Post: RE: "Call winapi..." fails in chained-to prog, works in called prog?
Hi Chris, Thanks for reply. Using int/gnt compiled/linked into single .exe for production. x86 I think - see screenprint attached. I'm using visual cobol 3.0 - not easy for us to update as involves updating all production environments. If you think it may be an issue with our version then I'll need to retest at a later time. OTHERWISE... can you suggest an alternative method. Basically i want to branch to an error routine and release all resources before display info window. ALSO... is there a way to timeout an MF dialog session globally i.e. without having to put code in every bit of dialog separately? Thanks, Linden
↧
Forum Post: RE: Tasks
We do not currently support await / async syntax. It is however still possible to use async APIs. If you would like code to execute after a Task has completed, you can use the ContinueWith method on the task that is returned from the async method. E.g. declare t = CreateUser("gromit") invoke t::ContinueWith( delegate using tr as type Task[condition-value] display tr::Result end-delegate)
↧
Forum Post: RE: Self
I saw an answer on a maths custom essay uk dedicated website, will try to find it
↧