Rocket® COBOL

Help! Are there samples of Visual Cobol program that access web API? We don't have Eclipse and work on a Visual Studio platform.  #VisualCobolHelp

Hi.I'm trying to access an AcuXDBC Server through ODBC.The tool that i am using is LibreOffice Base.The driver configure is ODBC 64 bits, and when i click on "Test Connection" it appear the following error: ""[TOD][ODBC Driver]DLLLOAD: acuxdbc03, The specified module could not be found."" Where could the solution go?Thanks

My client has reported issue on below logic that IMGRETRV.EXE is not launching by Acu cobol program. But, if i click on IMGRETRV.EXE ,then it is launching, but, why ACU cobol program is not launching IMGRETRV.EXE using below logic, please note my client has reported in their few PCs  IMGRETRV.EXE is not starting by acu cobol program!ACU cobol has fault functionality or my program has fault?==========* Build the SYSTEM call command line:Move spaces to WD-X80.If LS-USER-TYPE-DEV    Move "ETC\\IMGRETRV.EXE" to WD-X40 else   Move "ETC\\IMGRETRV.EXE" to WD-X40End-If.String "C:" LS-DIR-PCPATH-VALUE WD-X40 delimited by spaces into WD-X80 End-String. If LS-DIR-PCDRIVE-VALUE > spacesMove LS-DIR-PCDRIVE-VALUE to WD-X80 (1:1)End-If.* Check for executable: V.10.02Call "C$FILEINFO" using WD-X80 WFile-Info giving WExit-Status End-Call. If WExit-Status = zero

Does anyone know of a way to retrieve the record length in a Cobol program (Windows)?

I have an entry box, which I use to create a search and put the results in a selection box.  For instance, user may type in 'EX' and get all of the listings that have that combo.I want the users to be able to search for more than one combo, if they like, but I cannot get the selection box to clear.  I have tried initializing the table in cobol,  using delete-list-item, initializing in the dialog etc,  but the earlier entries won't go away. Below is an example with delete-occurrence.  There must be something simple I am overlooking.  Thx.CLEAR-LOOP  DELETE-OCCURRENCE ACCOUNT-GROUP $REGISTER  DECREMENT ACCOUNT-COUNT  DECREMENT $REGISTER  REFRESH-OBJECT SB-ACCOUNT  IF= $REGISTER 0 EXIT-CLEAR-LOOP  BRANCH-TO-PROCEDURE CLEAR-LOOPEXIT-CLEAR-LOOP #selectionbox#clear#reset

I see that this question is raised before, for some years ago.We use C$SOCKET to upload and download files from at FTP server. One of the partners will now transfer to SFTP.Short question:Is this possible with C$SOCKET in newer versions?And if so - does anyone have tips for doing it?

I am executing sample from acucubol 10.3 shared /opt/acucobol/samle/javaI have compiled both java and cobol programs.I have setup the config file as below in same directoryCODE_PREFIX ./CODE_SUFFIX acuFILENAME_SPACES ONFILE_PREFIX ./FILE_TRACE 1file-trace-flush 1XFD_DIRECTORY ./JAVA_LIBRARY_NAME /usr/lib/jvm/java-1.8.0-openjdk-1.8.0.262.b10-0.el7_8.x86_64/jre/lib/amd64/server/libjvm.soJAVA_OPTIONS="--libs acme64,acuterm64,vision64,aclnt64,axml64,runcbl64" The /etc/profile as below export JAVA_HOME=/usr/lib/jvm/java-1.8.0-openjdk-1.8.0.262.b10-0.el7_8.x86_64export ACUDIR=/opt/acucobolexport PATH=$PATH:$ACUDIR/binexport LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$ACUDIR/libexport CLASSPATH=$CLASSPATH:$ACUDIR/tools/CVM.jarexport PATH=$PATH:/usr/lib/jvm/java-1.8.0-openjdk-1.8.0.262.b10-0.el7_8.x86_64/jre/lib/amd64/server/libjvm.so Ad when I run the program, I get below output. root@devprbackend /opt/acucobol/sample/java: runcbl CobolCallingJavaIn rmfm_rinitmssql_initrep

I have a program in Net Express which produces the following file:<?xml version="1.0" encoding="UTF-8"?><suf:DebtEnquiryV1 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:suf="http://www.kf.com/debtenquirylist" xmlns="http://www.kf.com/component" xsi:schemaLocation="http://www.kf.com/debtenquiry debtenquiry.xsd"><suf:PartnerCode>SIB</suf:PartnerCode><suf:Reference>FILE NO. 1 ABC LTD.</suf:Reference><suf:EnquiryList><suf:Enquiry><suf:CustomerId>197810208772</suf:CustomerId><suf:Reference>0999999900000006999</suf:Reference></suf:Enquiry><suf:Enquiry><suf:CustomerId>198710208772</suf:CustomerId><suf:Reference>0999999900000006999</suf:Reference></suf:Enquiry></suf:EnquiryList></suf:DebtEnquiryV1>However, when I run the program in Visual Cobol I get XML File Status -8 "This is an invalid pos

Hi.I have installed AcuXDBC in a Power/AIX.From local, executing asql.sh i don't have any problem.The variables is seted to:export GENESIS_HOME=/opt/acucorp/AcuXDBCexport PATH=/opt/acucorp/AcuXDBC/bin:$PATHexport LD_LIBRARY_PATH=/opt/acucorp/AcuXDBC/bin:/opt/acucorp/AcuXDBC/lib:$LD_LIBRARY_PATHexport LIBPATH=/opt/acucorp/AcuXDBC/bin:/opt/acucorp/AcuXDBC/lib:$LIBPATHexport CLASSPATH=/opt/acucorp/AcuXDBC/bin/vortex.jar:.export VORTEX_HOME=/opt/acucorp/AcuXDBCthen i start the server with the following command:acuxdbcs -startWhen i try to access from Linux with a Java program, i use the following connection string:"jdbc:vortex://system/manager/gds10:acuxdbc.cfg@20222:<IP SERVER>!acuxdbc04";i obtain the following error:java.sql.SQLException: dbChannel exception: DLLLOAD: gds10, 0509-022 Cannot load module /opt/acucorp/AcuXDBC/bin/gds10.so.0509-150 Dependent module libcobrts64.2.so could not be loaded.0509-022 Cannot load module libcobrts64.2.so.0509-026 System error: A f

New to Visual Cobol 6, in MF Workbench 3.2 it was simple to change the COBOL.DIR file but I cannot find it in VC6.

Is there a way to trigger an event when the frame of a windows form has been clicked? I am able to trigger a click event when the user clicks anywhere on the form but it does not work if the user clicks on the form's frame ( this is the section where the Minimize, Maximize, and the Close controls are located) see attached screen shot.

In the Start menu, click the Server Manager tile, and then click OK. In Server Manager, select Dashboard, and click Add roles and features. In the Add Roles and Features Wizard, on the 'Before You Begin' page, click Next. On the 'Select Installation Type' page, select Role-based or Feature-based Installation and click Next On the 'Select Destination Server' page, select a server from the server pool, select the server, and click Next. On the 'Select Server Roles' page, select Web Server (IIS).   Click next 3 more times to reach the 'Role Services' page. Expand 'Web Server' > 'Application Development' and check the 'CGI' box. Click next. On the 'Installation Progress' page, confirm that the installation of the Web Server (IIS) role and required role services completed successfully, and then click Close. To verify that IIS installed successfully, type the following into a web browser: http://localhost The default IIS Welcome page should appear. Start 'In

Problem Although the installation of Visual COBOL (or any products using the Safenet licensing) was successful, the Sentinel RMS License Manager service (lservnt.exe) fails to start and reports the following in the event log: Log Name:      ApplicationSource:        mf_CCITCP2Date:          10/20/2020 11:36:33 AMEvent ID:      0Task Category: NoneLevel:         ErrorKeywords:      ClassicUser:          N/AComputer:      W10-DEV619Description:The description for Event ID 0 from source mf_CCITCP2 cannot be found. Either the component that raises this event is not installed on your local computer or the installation is corrupted. You can install or repair the component on the local computer. If the event originated on ano

PROBLEM When running a COBOL program on the server, while connected via RDP, the style of the title bar of the COBOL program can change and then the minimize button will stop working.   SOLUTION This is caused because of the combination of using the RDP connection and having WIN32-NATIVECTLS disabled (set to FALSE).   There are 2 solutions: In the runtime configuration file set the following variable: WIN32-NATIVECTLS TRUE   Instead of connecting to the server via RDP and then running the COBOL program, run the program remotely using AcuConnect Thin Client. More information about AcuConnect Thin Client can be found here - https://www.microfocus.com/media/data-sheet/acuconnect_ds.pdf #HowTo#Information#TipfromSupport

Looking for some examples for windows, I've created a csv file and want to open it using the default program for that particular workstation.  I'm not a windows guy so my development experience is very limited in the MS world.The online docs provide an example of calling ADVAPI32.DLL to get user-name but i'm struggling on how ultimately call the LaunchFileAsync method.  Here is a snipit of code that I'm using.CALL "advapi32.dll"     ON EXCEPTION        PERFORM CSV-DLL-ERR-RTN       EXIT PARAGRAPHEND-CALLCALL "Windows.System.Launcher.dll"    ON EXCEPTION        PERFORM CSV-DLL-ERR-RTN       EXIT PARAGRAPHEND-CALLMOVE CSV-FIL-NAM TO CSV-VAR-NAMESET CSV-VAR-SIZE TO SIZE OF CSV-VAR-NAMECALL "LaunchFileAsync"     USING       BY REFERENCE CSV-VAR-NAME       BY REFERENCE CSV-VAR-SIZE    ON EXCEPTION  &nbsp

Hello,I come again to ask for your help to convert a program to Cobol.There is a version in C # and VB.Attached is the complete solution with both languages.There is a .bat file in both Tutorial folders that generates the solution to be used.Within the solution the program I need is pr04_analyze.I think that what I send allows me to do what I need.Thank you again for your help.Best regards,Alberto Ferraz

Exactly how do compile listings get generated under NetExpress 5.1?

Good Morning I have the following problem: I have a server with W10 and my programs installed on it (runcobol v.11, 5 users). I have 2 more computers with w10. if I run the query from one of the network computers, everything is fine. But if I run the same query on both workstations, the second computer that runs it slows down tremendously.I have verified that the problem is that the 2 computers access the same file that has been opened.  I have removed firewall and antivirus and it does not fix the problem. What I can do? 

We have a .NET DLL that we use from our regular application without issue (using wrun32 on Windows).When we try to access it from the same program run with the console runtime (crun32), it throws a memory violation.I'm guessing the console runtime doesn't support calling a .NET DLL - can any Acu guru confirm that for me?(Using 9.1.2.1 Windows runtime).ThanksTony

We have received a file that was created on an IBM system using the IBM CPYTOPCD command, Translation table = *NONE, Format of PC data =*NOTEXT. Our information indicates that this command copies a system database file to a PC Document. The file is created on a QSYS file system on an I Series IBM. The output file is iin EBCDIC and containes TEXT, ZONED, and PACKED data, mixed in each record. We are able to convert the TEXT and ZONED data just fine but can not get accurate data out of the PACKED data.The PACKED data is defined in the file layout document as PACKED 9 2We define the data as PIC S9(7)V9(2) COMP-3. in our input record and as PIC S9(7)V9(2) SIGN TRAILING SEPARATE.In the PROCEDURE section, we do the following: ADD "PACKED ITEM NAME" TO ZERO GIVING "TEXT ITEM NAME"We get a "good" number and sign but the number is not correct.An example: Display of "PACKED ITEM NAME" = 27??6.71, Display of "TEXT ITEM NAME" = 2856.71. The expecte

We are upgrading from RM/COBOL v10.1 to v12.17 and Windows 7 to 10.  This functionality worked prior to the upgrade.I have a pair of program that I need to debug.  I've compiled both with debugging on.  Program A calls program B using WINEXEC:40920    STRING '"' DELIMITED BY SIZE40920                    RMCOBOL-PATH(1:PATH-INDEX) DELIMITED BY SIZE40920                    '\\RUNCOBOL.EXE" B A="A' DELIMITED BY SIZE40920                    PNF-EMPLOYEE-ID DELIMITED BY SIZE40920                    PNF-FAMILY-MEMBER-ID DELIMITED BY SIZE40920                    '" L=' DELIMITED BY SIZE40920                    RUNTIME-PAT

We need to update LCSNAME due to the way we're having to do our upgrade.  Unfortunately, we only have the binary .cob file.  Does anyone have the source or a way to decompile the .cob file?I appreciate any assistance,Linda Praed

I installed RM / COBOL Runtime Version 12.17 on Suse Linux Enterprise Server 15 and when running runcobol it gives the following message "runcobol: error while loading shared libraries: libncurses.so.5: cannot open shared object file: No such file or directory" .Suse Linux Enterprise Server 15 contains the following libraries:"./lib64/libncurses.so.6./lib64/libncursesw.so.6./lib64/libncurses.so.6.1./lib64/libncursesw.so.6.1 "Is there any RM / COBOL Runtime update or is it not compatible with Suse Linux Enterprise Server 15?

I have a Visual COBOL project that uses DB Connectors.  In my project, my programs ALSO read and write to files that are NOT in my SQL database. My question is where or how do I setup the path so the programs and find those files?In RM/COBOL we have the RMPATH, is there something like that with Visual COBOL?

I am trying to use the Environment Statement to replace the Old Wang Putparm VSSubs. Here are the statements I am using. SET ENVIRONMENT compcod to "DB" in the program AR07.txt.  Here is the other ENV. ACCEPT COMPANYCODE FROM ENVIRONMENT "COMPCOD" in AR0710.txt.When I run the programs Companycode is blank not "DB". I must be doing something wrong but what? Any reference to a Acucobol Manual will help. I have included the programs and just search for compcod and companycode AR07.TXT