Rocket® COBOL

Hi. I am trying to make an central cobol-programm to cakk only for db-actions. I just allways read the whole columns and switch it to cobol like in FD. So I can use my "sentence" again. It works. Reading, writing, deleting, updating. BUT: 1. If I call this "module" from a secound cobol-programm it says me: Cursor in use (SHARE). I tried dynamic cursor but this is still the same cursor-name and show me the same error. 2. I made 2 programs with div. cursornames on same table. I select a cursor with the same PRIMKEY for UPDATE. Normally first sentence must be locked. But I can open the sec. curs with same PRIMKEY and get NO SQLCODE. I need a information, that this sentence is been locked. Anyone an ideas?#ODBCESQL#Windows#cobolnetexpress

As described here www.microfocus.com/.../BKUSUSCOMPS074.html

When i have a discrepancy between my data base definition and my field definition i get an "Invalid descriptor index" error message in SQLERRMC.Is there anyway of identifying which field that pertains to? Thanks for any help

I am trying to query AcuXDBC from PowerShell. Here is the PowerShell script: $SqlCommand = "select * from kund;" $conn = new-object System.Data.Odbc.OdbcConnection$conn.connectionstring = "DSN=acuxdbc"$conn.open() $cmd = New-object System.Data.Odbc.OdbcCommand($sqlCommand,$conn) $dataset = New-Object System.Data.DataSet $results = (New-Object System.Data.Odbc.OdbcDataAdapter($cmd)).Fill($dataSet) Write-Output $results$conn.Close() But I get this error: Exception calling "Fill" with "1" argument(s): "ERROR [HY000] [TOD][ODBC][GENESIS](pos: 19 '... * from kund^;') - syntax error" The same query from odbcsql runs ok. Any ideas?#Windows10#CommandPrompt#AcuXDBC

Hi - We are using XML EXTENSION with RM/COBOL. This porcess is running fine for past 40-50 days. But today, suddenly started to notice below error: XML EXTENSION - 6 ERROR EXPORT/xx/xx/xml/EXxx-xxxxx.xslError: 38[10] - in function: TransformText[38] Called from line 14476 in CREATEXXMLREC(/xxx/xx/obj/CREATEXMLREC.cob\\), compiled 2021/MM/DD 10:55:51.[38] Export document name: /yyy/zzz/xmldoc/kkkk-20210525-\\12024500--a{01614f49-4f48-09a7-85c1-d7fb00eer8}.xml[38] Stylesheet name: /xxx/xxx/xxx/EXPORT-k.kkkxslcorrupted double-linked list COBOL STOP RUN at line ? in program XMLEXPORTFILE (/opt/rmcobol/xmlif.so).COBOL traceback at line 14476 in program CREATEXMLREC (/xxx/xxx/xxxx/CREATEXMLREC.cob) compiled 2021/mm/dd 10:55:51.COBOL traceback at line 1234 in program /USR/LNK/OBJ/EXTRACTLOG (/xxx/xxx/obj/EXTRACTF.cob) compiled 2021/mm/dd 10:32:50.corrupted double-linked list fatal interruptcorrupted double-linked list fatal interruptcorrupted double-linked list I am rerunning same file over

I am new to InstantSQL and I am running RMCobol on Linux 64bit.  I am using InstantSQL to select columns from a table that is on IBM DB2 mainframe, which I am using an unixODBC driver manager.  Any column that is defined as a CHAR, doesn't give me any values back on the SQL BIND COLUMN statement.  The database has it defined as CHAR 9, NOT NULL and I have it defined as PIC X(9) in working storage to bind to.  Any decimal columns that I have seem to work fine.  The CUS_ID column is the one I am having issues with below. Any help would be appreciated.  Working Storage. 01 DM-RATE-TABLE.     02 DM-DAILY-INT-AM-PER-HUN PIC 9(12)V9(9).     02 DM-INT-AM-PER-HUN PIC 9(12)V9(9).     02 DM-CUS-ID PIC X(09). Procedure Division. 100-CONSTRUCT-QUERY.     SQL CONSTRUCT QUERY             sql-QrySQL,      "SELECT DAILY_INT_AM_PER_HUN, INT_AM_PER_HUN, CUS

Are the HttpPost & HttpGet functions available on Linux? I'm using version 10.2 of the extend runtime.

In cobol wow, I want to know what instruction should I use for at runtime, when creating a windows form, specify it to be Maximized. Usually this is specified in the project properties, ShowState can be 0) Normal, 1) maximized, 2) iconic. However, I want to know how to change this at runtime. For example if the form has been created as 0) normal, I want for example 1) maximized. CALL WOWCREATEWINDOW USING ?

Hi everybody The web browser control works with Internet Explorer that has lot of problems, the most important: - Poor HTML5 support - Very old JS engine - I think it's no more supported by Microsoft (they moved to Edge) There is any way to set web browser to work with a different engine?

Hi, I am getting the below error while trying to install  vcvs2019_60. I have installed the same in my dev machine earlier . Now I am trying to install it in our server which is not connected to internet, so I have installed the offline version of visual studio and now trying to install the same vcvs2019_60. Since I am new to Visual Cobol, can you please guide/help to resolve this issue. Thanks in advance. Below are the log file details for the error- [19F4:1F5C][2021-05-12T15:00:51]i325: Registering dependency: {12d958e4-6841-4e94-943b-6862ced5ef90} on package provider: {59B42840-1114-4B74-8DC5-0BCFF31D410C}, package: asintegrationx86[19F4:1F5C][2021-05-12T15:00:51]i301: Applying execute package: MFVSIXINSTALL, action: Repair, path: C:\\ProgramData\\Package Cache\\E1637ECD447D66FC027F6A9C13712D76A1DC56A6\\MFVSIXInstall.exe, arguments: '"C:\\ProgramData\\Package Cache\\E1637ECD447D66FC027F6A9C13712D76A1DC56A6\\MFVSIXInstall.exe" -q'[19F4:1F5C][2021-05-12T15

I am trying to add some logic to my embedded sql by using an sql variable EXEC SQL RELAXED    DECLARE @PARM1 AS INTEGER    SELECT        CUSTOMER_KEY    INTO        :CUSTOMER_KEY    FROM [db_owner].[CUSTFILE]    WHERE ( CUSTOMER_KEY = CUSTOMER-KEY)    ORDER BY CUSTOMER_KEY END-EXEC The compiler reports; -->ERROR: syntax error at AS Compiler switches are; ccbl32 -Di -Zd -w -Zl -Zr -Pr -Ps -La -Li -Lf  Is there anyway around this?

I am trying to generate XML from cobol code. When I use 'identified by' in the code I am getting compiler error - "IDENTIFIED" was invalid. 01  myXML.   03  NAM1  identified by "MY_NAME". So I tried adding compiler extension as follows. $SET PREPROCESS(PREXML) ENDP  ID DIVISION.  PROGRAM-ID. XMLCOBT. But this is also giving me compiler errors. A character other than "*", "D", "/" or "-" was found in column 7 "SET" should not begin in area "A".  It was processed as if found in area "B". "SET" was invalid.  Scanning was resumed at the next area "A" item,   Could you advise what is wrong here. How should I code so that I can use 'identified by' clause for my xml.

We have an anti-fraud request from HMRC to supply the current screen size in pixels. How do we do this? Thanks

I was wondering if there was an article about how to run a .int outside the development environment.

Hi all, We are using the Acu report generator for creating reports. The created report (an html file) is printed to a third party PDF printer (cute PDF, Bullzip PDF etc). As I understand, the AcuBenchPrint.dll uses Internet Explorer functions to print or preview the file.  Up to recently, if report filename was eg. jack.html, resulting PDF filename was jack.pdf. Some weeks ago, our Win 10 computers were updated to 2021-04 Cumulative Update for Windows 10 20H2 (KB5001330). Since then, resulting PDF filename is random eg. DF540OP.pdf. Keeping the original filename is very important for our applications. Is there any solution to this? Thank you.   

One of our customers is having SW developers who are visually impaired and are using special terminals to perform their development work. They use editors on the Unix machine for that.  Do we offer any tools or setup to enable visually impaired developers to develop in eclipse/ide?   Thx#Disabilities#VisualCOBOL

Hello, I have seen documents on how to create a web service from a legacy cobol program in the MF docs. But is there a documentation on how to consume a webservice from a "standard" cobol application ? If it is possible... For example, I would like to use some Google services like the geolocalisation to retrieve latitude and longitude from an address. We also need to call a web service running on one of our servers : it creates docx files merging the data sent from our cobol program. Kind regards, Alain

ISAM FILE [Primary KEY with Duplicate - 20 Char] - FILE1 2021041610011234KEY1data1 2021041610011234KEY2data2 2021041610011235KEY3data2 What I want to do ==> Read 1st 2 record only.  How I did ==> STEP#1 MOVE  2021041610011234                  TO   FILE-KEY START FILE1 KEY >= FILE-KEY SIZE 16 ====== > FILE STATUS = 00 STEP#2 MOVE  .*10011234 *.                 TO   FILE-KEY START FILE1 KEY WHILE KEY IS FILE-KEY ======> FILE-STATUS = 23 Somehow not able to properly defined filter. Also, documentation has very little help. Can someone please advise correct filter to be used ?#start#WHILE

I am using DB Connectors with Visual COBOL - and in my DataBase, I need to add a new field to a table - What is the best way for me to go about doing this?  I know I will have to create an new XFD  - but do I just write a SQL script to add the field, and then just create a new XFD?

I am pleased to announce the general availability of extend® 10.4.  extend 10.4 Release Highlights include...  Full JavaScript support for AcuToWeb A New JSON Parser Grid Control enhancements with the possibility to hide and move columns Windows-1252 code page support in C$XML Support for loading .NET assemblies on the Server side when working with Thin Client or/and AcuToWeb Enhanced CSS Generator with support for individual graphical control customization Enhancements and New RESTful Web services support in RMNet And more..  More information on this release can be found here: If you wish to register for a product trial or have questions about this new extend offering, please contact your Micro Focus account manager. Thank you, Regards, Dominique SACRÉ Product Director Micro Focus#Announcement#NewRelease-Feature#Events

Hi! Could you help me to understand, how I can code this easy program;) I don't understand, how are tables presented in Cobol?How can I declare a foreign key in Cobol? I have 2 tables. Is it 2 files or i have to use SQL EXEC SQL и ENDEXEC for this request? Please< help me((( It's very important for me!  Write a program in cobol. The department name (ABTEILUNG_NAME) is entered from the keyboard. Display a list of all employees (ARBEITER_ID, FAMILIE, NAME, SALARY) working in this department. #COBOL#SQL

Hi, I'm working with Acucobol 6.0 and I need to modify .scr files using the screen designer . I've got screens with lot of buttons and diferent components I need to reorder the screen add some other components and delete old ones. Some of this actions I could do in the scr file but it wold be faster and easier if I could view the screen with the screen designer and move the components . If somebody had done it i'd preciate the help. thanks in advance. Gab0