Rocket® COBOL

Hi,   I'm trying to run this function: EXEC SQL SELECT REPLACE       ('123456_FILE01_RESUMO.XLS', '_RESUMO', '')     INTO :WS-LABEL-AUX-SAIDA FROM DUAL END-EXEC   TO RETURN: '123456_FILE01.XLS' but it did not work in cobol net express 5.1   but, when I put spaces between the parameters it worked EXEC SQL SELECT REPLACE       ('123456_FILE01_RESUMO.XLS',   '_RESUMO',   '')     INTO :WS-LABEL-AUX-SAIDA FROM DUAL END-EXEC   Can anyone explain why?   Att, Antonio.  #function#SQL#NetExpress5.1

When using multiple programs with the same name in multiple projects of the 2017 Visual Studio I get "Class pgmname has multiple definitions". I've tried using a common location but that results in "resource in use". Just for testing purposes I've renamed the programs with variations of the name to avoid the multiple definitions but would like a good solution that must be available.   

Problem: Working in a Linux (Red Hat 5) environment, the following issues may occur: CALL "C$SOCKET" USING AGS-GETHOSTNAME, ws-hostname.The CALL returns no information for the host machine on which the COBOL program is executing. Any I-O operations executed via AcuServer return a file status 35: File not found. (open, sort) Resolution: This appears to be an issue within the server environment, where some socket libraries are not correctly installed, or not found by the runtime when shared libraries are in use. To ascertain that this is the case, use the following command-line from the prompt: runcbl -v  It usually shows the following output: ACUCOBOL-GT runtime version X.Y.Z Serial number 1234567 AcuServer client Vision version 6 file system (interface vX.Y.Z) If the "AcuServer client" line is not present in the output, this indicates that the runtime is not able to load the winsock library of the system.  To solve this issue: - if the runti

Hi All,   I'm just wanting a fresh perspective on an issue I'm having!   I'm randomly getting a file status 9/57 on one particular file (which is IDX"8" format)  on a rewrite. The file in question is only 40MB, but at various points within the program when a rewrite on the file happens, it will randomly report this error!   This happens on a 32bit machine running Red Hat Enterprise 5.5, the development machine is 64 bit - but compiling to 32 bit.   Any suggestions will be greatfully received, as I'm starting to tear out (what remains of) my hair!   Mike.

For part of the menu, when within Tree View, is there a limit to the number of entries (children).   Your responses are appreciated.

Trying to convert an Excel column containing fixed width text to columns using COM server. How to pass FieldInfo?              invoke ExcelObject "getRange" using z"A:A" returning CellRange.            invoke olesup "setNamedParameters" using by value 1 size 3            invoke CellRange "TextToColumns" using                                          by reference z"Destination"                                    &nbsp

Hi I need to read the data of the Portuguese citizen's card.It is a card with a chip that contains the citizen's data (name, address, etc).For this there is a DLL but I can not use it because I have no experience in this type of programming. The dll is called "pteidlib_dotnet" and is installed in ProgramFiles \\ Portugal Identity Card \\ sdk \\ dotnet.It is downloaded from this link:www.autenticacao.gov.pt/.../55dd1efb-6bc9-4142-a82a-f84d1f2c0685) According to the manual the first thing to do is to initialize the SDK.Example given in C # namespace PTEIDSample {class Sample {(...)public static void Main (string [] args) {PTEID_ReaderSet.initSDK ();(...)PTEID_ReaderSet.releaseSDK ();}}} One of the things that happens to me is that I can not use the PTEID_ReaderSet.initSDK function because it does not appear to me when I write the function.I do not know if I lack any function or not. To read some card data have the following in C #: (...)PTEID_EIDCard card = context.getE

Problem: The user wants to silence AcuBench sounds but there are no AcuBench settings to turn off sounds. Resolution: To disable AcuBench sounds go in to the system sounds settings dialog via the control panel, or execute “control mmsys.cpl sounds”.  On the ‘Sounds’ tab under Windows, the ‘Default Beep’ is the one AcuBench uses for alerts, i.e. compile error, open source file modified, etc.  Scroll down to see ‘AcuBench application’ with only one sound listed, ‘AcuBench: Compile complete’.  Set both of those to none for a quiet AcuBench.

"Hello" from Russell.  I have a question for the community, please. I have a "appointment" application where customer appointments can be scheduled by date & time. For a moment, let's consider an appointment is scheduled today (March 30th, 2018) for April 10, 2018 at 10:00am.  I have a routine to obtain UCT from the current time.  Either Steve J with Micro Focus support gave me a called program to use on Windows OS and a script "echo $TZ > TIMEZONE 2>&1" on Unix/Linux in order to obtain the current date & Time in UCT. My question: Can anyone share how to convert April 10, 2018 at 10:00am into Universal Coordinated Time in a format as 2018-03-30T14:05:39Z#RMCOBOL#COBOL

Problem: A very large Vision file must be expanded to accommodate more data than is available in the remaining FILLER item.  How can that be accomplished without using a COBOL program that would read the old file and rewrite all of the records to the new format, which would take several hours? Resolution: To increase the record size on an existing file use the Vision File Utility, vutil (vutil32 on Windows).  First run "vutil -augment ..." with the new maximum record size.  This does not rebuild the file, it is an instant command that only changes the file header to specify variable length records with the new maximum record length.  Next is to modify the FD to correspondingly specify variable length records with the new maximum and recompile the program.  The result is that new records added to the file will be the new larger size, while the existing smaller records can be accessed too. Example: An existing file, myfile, has a record length of 68 byt

I want to discuss about Acubench. How can be an editor a mass of bugs like this. When there is a new release, we spend more time to find bug than write code. Honestly our work is write code. We cannot spend time to wait for a bug fix for an editor.   Said that, we decided to invest a little part of our time to find a different way. We tried Visual Studio Code. Bingo! We found our best editor to easily write Cobol, helped also by intellisense, compile and more. To help our self, we also deployed an extension called CobolSTF for VS Code (now published for all), that help us to our job; we created snippets and so on. VS Code is easy to configure and let us personalize the editor with extraordinary freedom. We still use Acubench to design screen... but this is our next challenge. ;)   Antonio   Antonio Donato Studiofarma S.r.l. CGM Group#runtime#AcuCobol#acubench

Problem: Using version 9.0.0 or newer, when attempting to add an XFD to the AcuXDBC system catalog an error is reported "Error: Empty condition tablename, condition 1".  Previous versions of AcuXDBC added this XFD without error. Resolution: The XFD involved was generated from old code and used the XFD WHEN directive to distinguish multiple record types in the FD.  For the first record type it specifies: $XFD WHEN RECORD-TYPE=5 TABLENAME=USERFILE The FD also included this directive: $XFD WHEN RECORD-TYPE=OTHER The requirement is that if the TABLENAME clause is used it must be defined for all of the WHEN conditions.  So the 'OTHER' condition is missing the TABLENAME clause.  Previous versions were not strict about this and reported no error.  To resolve add a table name: $XFD WHEN RECORD-TYPE=OTHER TABLENAME=OTHERTABLE Then generate a new XFD add that to the system catalog.

 I see this can be used to 'modernize' dialog screens using unmanaged COBOL under Visual Studio.  Can it be used in a development environment?  It says to set the MFVSSW environment variable to "/c /f" , but where is this variable?  In Visual Studio?  Environmental variables under System Properties?  Is there something else we  need to get this to work? Thanks, Fran D.

Good Afternoon All,   Can you please help me here i have been given a task to read a Cobol Program which contains several CALLING statements. these Calling statements include statements that call other programs since its a mainmenu it also calls other MENUs. now i am required to write a program that READS this program and print out all program CALLS for other programs and print them in an INDEXED file starting with MAINMENU (which is the program containing other programs).   now i have converted MAINMENU.cbl as text input file, please help me i cant get the program.   Best Regards Zux

Hi When attempting an insert to a table running ACu4gl against MS SQL Server we are getting a 9D00 Restricted data type attribute violation   File trace 9 shows 03/26/18 16:03:41 CARRNOTE.DAT: write (thread 1203)03/26/18 16:03:41 mssql_write, 241403/26/18 16:03:41  A4603/26/18 16:03:41  A4703/26/18 16:03:41  Stored procedure CARRNOTE_insert was not found in VWFSAUS_USER_JIM_PROD03/26/18 16:03:41  Preparing SQL on statement 60a3f8 on server 'NSSRVSQL009':03/26/18 16:03:41  <SQL03/26/18 16:03:41  insert into VWFSAUS_USER_JIM_PROD.CALMS2CMS_SCHEMA.CARRNOTE  (carr_note_key_source,03/26/18 16:03:41  carr_note_key_num,03/26/18 16:03:41  carr_note_tran_no,03/26/18 16:03:41  carr_note_date,03/26/18 16:03:41  carr_note_time,03/26/18 16:03:41  carr_note_text)03/26/18 16:03:41  values03/26/18 16:03:41  (?, ?, ?, ?, ?, ?)03/26/18 16:03:41   EndSQL>03/26/18 16:03:41  bind_parameter_of_field(1, 02

Well, the subject really says it all.   Does anyone know of a utility program, written in cobol, that runs in character-mode, and provides similar functionality to C$OPENSAVEBOX?  I want to do something like that in unix on a terminal.  I would rather not re-invent the wheel.#AcuCobol#extend

About a month ago I got a full upgrade of my Visual Studio and Visual COBOL, with help from Mark Buchanan.  Today Visual Studio told me my license was only for a 30-day evaluation period.  See screen shot.  What do I do now?

GETTING 9/006 error on delete statement for a record. I am reading an indexed file on primary key.The read is successful. But when then after a read I am executing delete statement I am getting 9/006 error. It says the ftrying to write in a file which is open for Input.But The file is already open in I-O mode. Any help ?

 Background - using 2017 Visual Studio I have created and tested multiple projects which now need to be consolidated into a single project. It should be simple, click the "Add Project", and select the folder. Nope, all that does is bore down into more folders under the project not allowing anything to be selected. So, how is this accomplished and more importantly is my philosophy correct? And where do you start, from the low projects and work towards the top? And as long as I'm being a pain, at some point I need to migrate from the studio to the executable - a good reference for this activity?   

I am attempting to pass an array into a service program and am having little success.  The data is not being imported/transformed by the default soap_to_cobol.xsl stylsheet. The SOAP-REQUEST-RESPONSE working storage section looks like this: 01 SOAP-REQUEST-RESPONSE. 03 HTTP-METHOD PIC X(06) VALUE HTTP-METHOD-POST. 88 HTTP-METHOD-IS-POST VALUE HTTP-METHOD-POST. 88 HTTP-METHOD-IS-GET VALUE HTTP-METHOD-GET. 03 METHOD-NAMESPACE-INDICATOR PIC X(01). 88 METHOD-NAMESPACE-MATCH VALUE "1". 88 METHOD-NAMESPACE-MISMATCH VALUE "0". 03 METHOD-NAME PIC X(50) VALUE SPACES. 88 METHOD-IS-PAYINV VALUE L-PAYINV-METHOD-NAME. 03 FAULT-AREA. 05 FAULTCODE PIC X(10) VALUE SPACES. 05 FAULTSTRING PIC X(30) VALUE SPACES. 05 FAULTDETAIL PIC X(80) VALUE SPACES. 03 PAYINV--METHOD-NAME PIC X(20) VALUE L-PAYINV-METHOD-NAME. 03 PAYINV--METHOD-PARAMETERS. 05 INPUT-PARAMETERS. 07 PI-USER-I

The code I used came from the COBOL training class and allows one project to initiate another project. There must be some feature that initiates this capability. The code follows;  method-id button5_Click final private. local-storage section. * invoke project for final processing 01 newForm type AlterMenu.Form1. procedure division using by value sender as object e as type System.EventArgs. Invoke type AlterMenu.Form1::New() returning newForm Invoke newForm::Show() end method. The project details are A second part of my problem is, what is the best way to pass information between projects? 

The following will detail the situation. The copybook that is the offender is the Control.cpy under Form1 of the Load Score Sheet project and does not appear in this view.  The other uses of this copybook are normal.   By doing a search for the copybook it appears everywhere it should except for Form1 of the load score sheet project but yet the build uses the phantom.     If you look at the code you’ll see a copy for that copybook is noted out. That statement is a couple of lines below the where the phantom copybook exists. If you uncomment the copybook statement then you get duplicates. I’ve tried almost anything I can think of – removing all other copybooks and removing the location of copybooks. The phantom persists, all others are gone.                

I have a question about using cursors with ADO and ODBC.   Currently I am using ADO to get the result of a query in a datareader object:   01 DATAREADER-9615 TYPE System.Data.SqlClient.SqlDataReader.   EXEC ADO GET CURSOR CURSOR_9615 INTO :DATAREADER-9615 END-EXEC.   But, what if i wanted to ODBC. So:   01 DATAREADER-9615 TYPE System.Data.Odbc.OdbcDataReader.   Which EXEC SQL statement do I have to use to get the result in my datareader object?

Hi, we have a Cobol JVM application on an AIX. The Cobol JVM classes are called by a Java main file. The java main itself is called by cobjrun with a korn shell script. What we want to do now, is the debug the Java and the JVM cobol file in Eclipse. So we need a debug function for JVM Cobol like "COBOL Wait for Application Attachment". Or is it possible to use the debug configuration "COBOL JVM remote Application" for this issue? We were not able to make it work with this function.   Thanks and best regards Paul

Hi, After updating Windows 10 Pro  to 1709 version an old cobol program no longer works properly. I already tested it and verified that the program works without problems in previous version of Windows (1703). The program runs with an old RmCobol runtime 10.01 version. The problema is in some tasks like disk operations or creating some tasks like disk operations or creating some reports the app slow down. The same tasks delay more than 20 times. Until version 1703 everything worked without problems. I have some customers with this problem. best regards #print#RMCOBOL