Rocket® COBOL

Micro Focus Developer > Micro Focus Visual COBOL 3.0 for Visual Studio 2013 > General Reference > Library Routines > File and Filename Routines In the doc, under the sub-heading "Interpreting the return code as a file status code", ... it has an pseudo-example, thus:   01 file-status pic xx comp-x. 01 redefines file-status. 03 fs-byte-1 pic x. 03 fs-byte-2 cblt-x1-compx . . . call "CBL_xxx_xxx" using parameters if return-code not = 0 move return-code to file-status . . . What does the cblt-x1-compx mean?  If it is shown incorrectly or incompletely, how should it be shown? Thanks

When trying to process a LCS claim with a wire transfer via Horizon, we are receiving the following error:     The WOW Runtime could not create one of the ActiveX controls required by this form.  Detected in WOW function CreateWindow Last known Form/Control name - <Unknown>/LineErrorList. There are no problems if we are processing them locally. Does anyone have any ideas? Thank you - Linda Praed

[Migrated content. Thread originally posted on 07 February 2011]Has anyone accomplished creating a program that will generate an email with an attachement using GMAIL from a cobol progarm? If so, are you willing to share your code. I presently have a program that uses windows email. We pass the email address and attachment path and the program creates an email with the attachment and calls microsoft email and sends the message. We want to do the same with GMAIL.

Hi all, when multiple users trying to access same Catalog, it will prompt the following message. Please advice. Thanks a lot.   #Relativity

Hi I have written a visual cobol program. I am able to read the datas from the table but i am unable to insert, delete or update the table. Below is the visual cobol program. Please let me know if i need to change anything.   $SET SQL(DBMAN = ODBC) IDENTIFICATION DIVISION. PROGRAM-ID. TEST1CBL AS "test1.TEST1CBL". ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT OUTPUT-FILE ASSIGN TO "D:\\POC\\OUTPUT1.TXT" ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD OUTPUT-FILE RECORD CONTAINS 80 CHARACTERS BLOCK CONTAINS 00 RECORDS DATA RECORD IS OUTREC LABEL RECORDS ARE STANDARD RECORDING MODE IS F. 01 OUTREC. 02 O-ACCNO PIC 9(10). 02 FILLER PIC X. 02 O-NAME PIC X(20). 02 FILLER PIC X. 02 O-AMOUNT PIC X(10). 02 FILLER PIC X. 02 O-ACCOUNT_TYPE PIC X(20). 02 FILLER PIC X. 02 O-GENDER PIC X(1). 02 FILLER PIC X(16). WORKING-STORAGE SECTION. EXEC SQL INCLUDE SQLCA END-EXEC. EXEC SQL INCLUDE RRD.CLIENT1 END-EXEC. EXEC SQL BEGIN DECLARE SECTI

Hi,    May i know that anyway we use the command line to run the acu thin client instead of create the alias and use the alias to run the acu thin client? I am facing a case that half way running the system, the alias had been remove and had been found out that this is the issue for 10.0.0. So need to wait for next patch to fix this issue, but before the next patch launch.  Is there anyway that we can run the acu thin client without point to the alias? Can we use command line instead of alias?    Thanks You. 

We have created about 30 tables in Relativity which using MF Relativity Data Client driver then realized that some of data encounter decimal rounding issue. After do research in community we found out that the MF Relativity Data Client ADO driver solved the decimal rounding issue. Is there any way to copy or migrate or point all the created tables under Data Client driver to Data Client ADO driver. Please help. Have a good day.#Relativity#Relativitytables

Hi,we have the following environment:Windows SBS 2011 with 64bitThe cmd-command calls c:\\windows\\system32\\cmd.exe and shows Microsoft Windows [Version 6.1.7601]The command c:\\windows\\system32\\openfiles.exe in this mode works perfectly.We tried to call this program via C$SYSTEM with flags 192 with 32bit-runtime 9.2.5 and get the errorThe target system must be running a 32 bit OSWe have triedopenfiles.exec:\\windows\\system32\\openfiles.execmd /c c:\\windows\\system32\\openfiles.execmd /c openfiles.exebut get always the same error. Thanks in advance for all suggestions.

I am going through the above book in VCPE 3.0 for VS 2017 trying to compile the simpledate.cbl program and it throws error " COBCH0858 No static method found - cannot be a main program In checking there are in fact no static methods. How can I fix this? Do I have some settings that are off? Thanks 

Hi, I'm currently working on an exisiting code base of a customer. They have placed their copybooks in a specific directory structure and rather than setting the Copybook Path they use a syntax like copy 'path/to/copybook'. The copybooks do not have an extension like '.cpy'. With update 3.0 Visual Studio (we're using version 2015) has gained the ability to display the contents of copybooks. This works fine when a copybook is referenced as copy copybook. ,the relevant paths are added to the copybook paths and the file has an extension that has been configured but does not work with the syntax shown above. How can I get the contents of the copybook to be displayed for such lines as well? I've tried the second suggestion of To specify that a file extension is a copybook and adding one of those copybooks as "existing item" but even if I remove the path from the copy statement the copybook is not found. Thanks in advance#VisualCOBOL#VisualStudio

[Migrated content. Thread originally posted on 02 March 2011]helo l am using the eclipse visual cobol.i try to build this program :============================================================== $set db2(db=sample) **************************************************************** * Copyright (C) 1998-2002 Micro Focus International Ltd. * All Rights Reserved *--------------------------------------------------------------- working-storage section. * Include the SQL Communications Area. This includes the * definitions of SQLCODE, etc EXEC SQL INCLUDE SQLCA END-EXEC *> DB2 UDB limits database alias names to 8 characters *> other DB2 servers such DB2/MVS can have database names up to *> 18 characters which you can still access via DB2 CONNECT *> by creating an ALIAS name for the database with a max of 8 *> characters 01 ws-db pic x(08). *> DB2 UDB has a limit of

What other language besides COBOL is running in Visual COBOL?

Hello All, I have added the ctRadio control to a new form (v12.13).  How do I change the font and font size? I've tried using CALL WOWSETPROP USING WIN-RETURN RAD1-H 'FONT' 'btn_Text.Font'. CALL WOWSETPROP USING WIN-RETURN RAD2-H 'FONTNAME' 'System' 'FONTSIZE' 10. Neither worked and there isn't a property setting either.   Any help would be appreciated.#RMCOBOL

I have tried to call a dll using different methods in COBOL. I am able to create a com object of the dll and call it. The problem here is that the dll needs to be registered by either regasm, gacutil or put somewhere locally. The best scenario is to place the dll somewhere, which does not require administrative permissions to manage.  Is it possible to call a dll from a network drive? The reason for this is to make the support of that dll and future dll's as minimal as possible, which would mean an easy way to distribute and update the dll.   I have tried: Calling directly, when the dll is stored somewhere in the code-prefix Call “GetHTML.DLL” *this seems to be working according to the log-file”* Call “GetList” using by reference param1, param2….  *This is not working* GetList is a method within the dll. Creating a com object and using the create/modify statement, this works, but it requires registering the dll somewhere, which is not a viable solution.   I &nb

Hi,    I am currently facing some problem with acuconnect 10.0.0, would like to see anyone have this experience to share the solution with me.    I  am facing that sometimes when using the application(runtime) and log out.  Then try to login again, it show the error 'Connection Refused'.  When check the acuconnect on server side, it show running.  Because when issue command acushare, it show the data and acurcl -info is work also.  Then when try to restart the acuconnect it show the acuconnect is running and socket error.  But the weird thing is some user that currently login using the system, they still able to use as long as no logout.  But when someone logout and try to login again, it will show the error 'Connection Refused'.    Hope that someone can share with me the solution.    Thanks You. 

I created a XML file for a third party with C$XML. This XML file is not accepted because:   1. my elements may contain &, ', < or >. In my XML file this is converted to &amp, &apos or &gt. This is not accepted by this third party. When I put the data between  <![CDATA[              ]]>  and use those signs, the XML file is accepted. Is there an OP-CODE to automatically put the data between <![CDATA[              ]]> and not convert those signs in C$XML? 2. Empty elements are in my XML file like <Val/>. This is not accepted by this third party. They want the empty elements represented like <Val></Val>. Is there a way to do this automatically with C$XML?   Emmie

“Hello” from Russell Haile with DPC.  Please allow me to ask for help.  I’m working on a program.  The attached copybook states:       ******** FIREPEAT-OP-VAR-DATA ********            05  FIREPEAT-FIELDS.              08  FIREPEAT-SUBFIELDS.                10  FIREPEAT-TXT-TITLE                                        PIC X(00050).                10  FILLER OCCURS 15.                 

I work for a company that uses RM Cobol  v10 with the WOW Designer v10.01. It references SQL Server 2012 using InstantSQL. Does anyone know if using RM Cobol and InstantSQL if you can call a DTS package or Powershell script? I know we can call a stored procedure but haven't ran across any documentation about calling a DTS package.#SSIS#RMCOBOL#SQLserver#InstantSQL

Hi there, This has been discussed here in 2014: community.microfocus.com/.../setting-environment-variables-prior-to-build Is there a better way now? We have PRINTER REDIRECTION=TRUE in a config text file pointed to by MF's cobcofig_ environment variable which we have to set on all client machines.  Is there a better way, direct from the code?  I'm looking for a global solution without changing our old print programs.  MY ENVIRONMENT: Visual Studio 2015; Latest Visual COBOL V3; Windows clients running our application .exe with COBOL SERVER V3. I tried ticking, 'use variables when building the project' under, Project properties---Application---[environment...] but no joy.  Maybe that just refers to the build process itself?    Thank you, Linden  

Usually compile with the following script on a unix mainframe (ccbl -Sp /icobol/gui:/icobol/acu:$CODE_PREFIX -SX ICOBOL -SI ACU -Cb -CIF -V -VHAX  -DI -DZ -O $1.COB -E $1.ERR -LOI $1.LST -Ta 20000 -Tb 4196 -Zzna -Te 400 -Td 900 $2 $3 $4 $5 $PROG) Machine has died so I am using ACUBENCH (circa 2003) runtime 6.2.0, compiler version 6.2.0.1 with the following  -o .\\object\\@.acu -x -Ci -Ga -Zd. I successfully compiled other programs.  this 5 alternate key file however gives me a '9A' error.  Any help would be appreciated. I clicked icobol compatibility box under compatibility options on compiler tab.

Hello, I need one more help converting these instructions from C # to Cobol. The purpose of the code is to send the ZPLString string to a printer where the IP is ipAddress.   // Printer IP Address and communication port string ipAddress = "10.3.14.42"; int port = 9100;   // ZPL Command(s) string ZPLString =     "^XA"      "^FO50,50"      "^A0N50,50"      "^FDHello, World!^FS"      "^XZ";   try {     // Open connection     System.Net.Sockets.TcpClient client = new System.Net.Sockets.TcpClient();     client.Connect(ipAddress, port);       // Write ZPL String to connection     System.IO.StreamWriter writer = new System.IO.StreamWriter(client.GetStream());     writer.Write(ZPLString);     wr

 Doing a 'date' compare that has worked in the past.  It is: if mpatpmrc-LineOfBusiness = 'HOM' or 'DWF'                 and w-compare-date-two >= w-auto-renewal-date           next sentence             The value in w-compare-date-two is '20170729' The value in w-auto-renewal-date is '20171001' nevertheless, it goes to next sentence! w-compare-date-two is a group field and w-auto-renewal-date is not.  I tried changing both to group fields, and got the same result.  Then I changed them both to primary fields, and got the same result. The values in hex look also show the w-auto-renewal-date is larger w-compare-date-two H"3230313730373239" w-auto-renewal-date H"3230313731303031" I have changed w-auto-renewal-date to '99999999&

Perhaps it is better to open a new discussion on the "not responding state". Situation: "main-program" (Menue)           Call Thread "program-1"       (window 1 with user-action)           Call Thread "program-2"      (window 2 with user-action) In a normal environment, I can start processing in "program-1" and switch to the "program-2" window or the "main-program" menu window during processing with no problems and limitations. In the Thinclient environment, it is no longer possible to switch to another window if a processing routine is running in the current window. If the mouse is clicked into another program window, the program falls into the "not responding state" until the processing in "program-1" is finished. If a progress dialog (for example w$progressdialog) is used, the window of "program-1" will e

One of our customers experienced at one of his clients a performance issue when working with thinclient: For example closing a vision file takes 11 seconds: 11:28:51.449726 /z2000/PPS4000/DATEN/DATEIEN/STIV50P.01: start not less, key 8 (thread 964)11:28:51.449733 >>>key 8 = '1HMUEN                                                            000000000000000000'11:28:51.449757 >>>file status = 2311:28:51.449794 /z2000/PPS4000/DATEN/DATEIEN/STIV50P.01: close (thread 964)11:29:02.205736 Try loading '/z2000/PPS4000/PROG/PRMESSAG.WOB'...11:29:02.206273 /z2000/PPS4000/PROG/PRMESSAG.WOB loaded The same statements at another computer takes only 1.2 seconds: 11:33:43.384954

Hi,   We have developed a C# dll and are using it with acutonet. We use NetDefGen to get the .def, and there is no problem when we run it on a local drive. But when we run it on a shared drive, next message is shown in declarative section:   Request for the permission of type 'System.Security.Permissions.StorePermission, System, Versión=2.0.0.0, culture=neutral, PublicKeyToken=b77a5c61934e089'   We are running Extend 8.1.3.1 in a Windows 10 system.   The c# Project is compiled with framework 2.0.    We generate the XML that points where the dll is, in a local folder (c:\\)   Any ideas??   Thanks!!