Rocket® COBOL

Say, I have a copybook 'CPBK' which is placed in MYFOLDER. CPBK:   03  WA-FIELD1   PIC X.   03  WA-FIELD2   PIC S9(9) BINARY.   03  WA-FIELD3   PIC 9(3).   So when I access copybook in my program I use following statement in Working Storage Section. COPY  CPBK in MYFOLDER.   Now, I have a table having following fields TABL :FIELD_1    CHAR (1),FIELD_2    NUMBER (9),FIELD_3    CHAR (3) I want to perform 'Select *  from TABL' and fetch the details in copybook CPBK But I get compilation error when trying to declare following: EXEC SQL BEGIN DECLARE SECTION END-EXEC. 01 CPBKREC.    COPY  CPBK  IN MYFOLDER. EXEC SQL END DECLARE SECTION END-EXEC. and for fetch -   FETCH INTO : CPBKREC Getting following compilation error-            &nb

Scuse me for my bad english, but i have this problem I have compiled program with acucobol from 1991 now if i do this command   runcbl  menu.cob windows 7 64 respond that program cannot execute in 64  if I run this program with wrun32  the ascii caracters don't visualized  correct.   

Error message is presented to me when running a cobol program from the training environment on our server.  It's executing the same program from the production doesn't error from there.  Memory access violation Cobol error at 000378  in Main.acu.   Thanks in advance for your replies to my post.

Can anyone tell me if there is way to determine how may files are opened; i have set max_files to 512; am using an new menu program and am getting a 94,10 error message saying too may files are opened.  I want to display number of open files each time i do a exit program so i can determine what program(s) is causing problem. Thanks.

Is it possible to use the Bootstrap css on a cobol web page? I'll explain, I need the webform to fit into a cell phone screen and I can not find anything in Cobol.

Good day, I am setting up a Multi-tier environment for AcuToWeb where the   HP-UX Server (Back-End), installed running with [ AcuCobol-GT runtime AcuConnect ]  currently. Linux Apache Server (Web Server), installed running  [Apache, Acu-To-Web ] currently.   My questions are: 1) Both HP-UX and LINUX must install with Acu-To-Web?  2) If YES, then I need to purchase 2 licensed, HP-UX and LINUX? 3) I only want to purchase 1 license; therefore I have to configure HP-UX using Apache?#acutoweb#AcuCobol#license

 I need a solution without a C routine.  I am already using a dll and cannot execute another with this program.  So I need a way from cobol to check to see if a file exists.  This file is not a cobol indexed file it is simple a file on the hard drive I need to look for.  Does anyone have a good suggestion? Tom if you are listing thanks in advance.#RMCOBOL

 At times the debugger will not process a line of code. This happens most often in trying to load a 2000 entry internal table in cobol . i have tried to use move compute and set on one particular line of code thinking it might be the command but it still will not execute. Is the debugger part of VC or VS? thanks #VisualCOBOL#debugging#COBOLENVIRONMENT

Good day, I had just setup AcuCobol-GT, AcuConnet .. etc Version 10.1 ... atHP-UX:  compiler, AcuConnect and cobol programs which upgraded from previous V10.0LINUX: AcuToWeb and AcuConnect Windows: AcuToWeb (desktop), AcuToWeb (Control panel) ... extend v 10.1, thin client v 10.1 The architecture setup will works in this way:HP-UX (All data, programs stored here)LINUX (hosted apache)Windows (Client side)How should it to be setup and programs should be installed ?

Guys can you help me with this 1? i try so many method but still cant find any answer im new in VBA  and here is the scenario   i have 4 sheets which is user1, user2, user3 and data. (the screenshot is in the data sheet) I want to create a vba macro that will check the user ID and the worktype then send the value of " count(under H column) and Error point(under I column) and also if you can see there is 2 similar worktype under user 1 "maid". if 2 similar worktype is on the data sheet under same userid i want to sum all the same worktype and copy it to user1 sheet   Thanks 

I am migrating the netexpress COBOL to Visual cobol with eclipse but few programs which use below pointers are not working when compiling in visual cobol dll. for example Netexpress Cobol has "SET  ADDRESS OF WS-COMM-AREA TO RCL-HCOMMAREA". I am trying to compile the same program in visual cobol with eclipse and generating the dll. Does the above pointer logic works statement works in visual Cobol?#COBOLVISUALCOBOLMIGRATION

Hi, is there any documentation on how to convert below C# into VC class? using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;using Aladdin.HASP;namespace HaspLogin{ public class login { public static Boolean check() { HaspFeature feature = HaspFeature.ProgNumDefault; feature.SetOptions(FeatureOptions.IgnoreTS, FeatureOptions.Default); string vendorCode = "iOa2Wamd86sr/OMWsaak5l8iRdqFvHGr6pLCIKVMo8TreGxm4PQiUAsLcUgXNbdNzexvu6ZouLUorzGq" "LysvIDsplUEdF9iB1B7eFEAVkonVJeLlS9SPWeeMOSx9GSrIC7EyqIcyQJ77uVdrNAvVp0UGitNJZuKH" "OcpPqfXn6o1c2VZmkG/mSxyIEISent8QyrO6jNxB0W9AYc yrTTJRZ1e7rZmVI6b1HSEPiJQiHwLhLJF" "wiu7fetR6AWI6A4a72ugZjZCDP154c8cNhopUfeYemH4088CFT56x4YpBWFI7G9OKBDAqdV1NxDLBjxL" "/h/hKnbEbOt6yGbzadWY0d2VsjPzktybk7bQKA/XRyxKS2k4xNgeE1zK2yZjsBqXamqCp5uEXnF21uC6" "7zAIzBWiyuWSYPykiFgNJvUas10ynFdSFLMkZolWswFyHNRNkmqI2 4EnDx4cJ5kB5CpFwC3rhu0YjRF" "5g0KDUSp

Hi, I'm running some programs in exec sql autocommit mode which I have as a compiler option (Windows VC 2.3.2 on VS 15) with MySQl. For a short section I want to run in a transaction and commit at the end. What is the right combination of exec sql statements to achieve this i.e. (1) running in autocommit, quite a few updates done, interacting with users via dialog system etc. (2) now want to run a few updates as a transaction and only commit at the end (3) then return to autocommit In my testing, it seems to work if I exec sql begin tran immediately after the connect but if quite a lot has happened in the interim it just seems to commit and ignore my begin tran. Any thoughts? Thanks a lot, Linden      

I am building a calculator and have four buttons they used to work , so I must have accidentally changed something. Can some tell me how these aremade active? Is it in the properties?   

Hi, Does anyone know how to open Outlook with an attachment from Visual Cobol. This would have to work with all the "different" versions of Outlook 2007, 2010 etc etc without any program changes. Thanks Neil.

Good day, I come to your collaboration and knowledge. How can I give attributes when saving to excel?   This is the code, Chris I collaborated with the separation of the text in columns, thanks to the I could generate direct reports to excel 78 xlDelimited value 1. 01 ExcelObject object reference. 01 WorkBooksCollection object reference. 01 WorkBook object reference. 01 CellRange object reference. 01 theRange object reference. 01 ExcelFileFormat pic x(4) value "true". 01 SaveName pic x(256) value spaces. 01 NOMBRE PIC X(15) VALUE "TECNOLOGIA". 01 pausa pic x. 01 GUARDADO OBJECT REFERENCE. LINKAGE SECTION. 01 AREA-LINK. 03 ARCHIVO-WS PIC X(90). Procedure Division USING AREA-LINK. *> Creo a Excel como un objeto y lo llamo invoke MSExcel "new" returning ExcelObject *> El objeto excel se hace visible en memoria invoke ExcelObject "setVisible" using by value 1 *> Obtengo el numero de libros y pongo por def el numero uno invoke ExcelObject "getWorkBooks" returning Wor

We are using Server Express 5.1 Wrappack 10 on a Solaris UX box.  We have separate locations for the .gnt and .idy files and we have the COBPATH and COBIDY variables set correctly.  Animating works for most modules, but a few are reporting errors where the .idy cannot be found.  The .gnt and .idy were created at the same time for all modules via a mass compile.  The error is indicating that it cannot find the .idy file, but it appears to be searching the COBPATH not the COBIDY path.   Any hints?#ServerExpress#animation

Hi, We are facing issues while animating the COBOL programs using Net Express. Please see the below details and please refer the attached document for more information. While executing the jobs in our application using the executable files (.DLL& .EXE etc.), the jobs ran without any errors.  During the jobs execution process, we have data base calls where Cobol will fetch the information from data base (SQLSERVER/DB2). There were no issues while fetching the information using exe files.  However when we tried to Debug the Cobol programs by using Micro Focus Net Express Animation process, we found issues while retrieving the data from the data base. There was no data base errors (SQL code is zero after executing the SQL statement) after the data base calls, however the numeric data fields after the data base calls having the illegal data. Please see the below detailed information about the problem.  Detailed information about the issue:  We have an issue with the

i am running cobol server. I have COBDATA set as an environment variable system wide (this is a development box). my project is managed code multiple output. If I open a Visual Cobol command prompt and execute the program, the files that the programs references are found. If I double click the program to run it cannot find the files even though it can see COBDATA.  Is this normal behavior?

Hi, I want to create the .def file but when I click the ok button its show error "Can't create file: <path>.def".  I'm using windows10 and AcuCOBOL-GT 10.1.0. Below is the screenshot picture of the error that I encounter:

i apologize for posting this problem again but I am at a loss as to where to look for a solution. I have scoured the internet asking every question I could think of to get some pertinent information but have not had any luck . The only answer I found was to set the causes validation property to false, which I tried but it did not work.Is there any solution to this problem or is it just an unfixed bug? I would appreciate any feedback at all. Thanks - John P.S. I have moved this button's logic to another click event and the logic works so it can't be getting lost there.

Hello,I have a small project in netexpress 5.1 free that will run only 3 months.I developed an exe project in netexpress and wanted to know which dll I need to put together to run on Windows XP.Which files tell the client to run without needing NetEpxress.

Hello, I am using AcuBench on Window to write my code and supposedly I want to compile the file program (.cbl) on the HP-UX server, do I need to have ACUCOBOL-GT Dev Sys product key and license for both the Window pc and HP-UX server or it is enough just to have the product key and license for HP-UX? Since I am getting this error: License file 'C:\\Program Files (x86)\\Micro Focus\\extend 10.1.0\\AcuGT\\bin\\ccbl32.alc' inaccessible

I've got Micro Focus Visual COBOL for Visual Studio 2010.   While working on a program, I accidentally compiled it while it had a stand-alone (incomplete) PERFORM command.  I was surprised to see that it didn't generate a compile error. Is that an oversight in the compile logic, or does a stand-alone PERFORM actually do something? Here's the code I accidentally compiled: * Here's where we select our sample IF NOT (M-SEX-CODE = 'F' OR 'M') GO TO 2000-ENTRY. **************************************************************** * Go create your user-selected numeric variable INM-NUMVAR **************************************************************** PERFORM **************************************************************** * Define the user-selected numeric variable INM-NUMVAR * It may be a straight numeric variable from T-M (e.g., LOS DAYS) * or a modified numeric variable (sent-length, 45-yrs life/death) * or it may be a binary 0-1 (no-yes) var (pct burglars? no-yes)

Hi, I have some texts defined as System.String or String inside Visual COBOL for Visual Studio 2012 and some defined as pic x. I can not find how to display a variable defined as string using line and column without receiving a compilation error COBCH030. And the display of the pic x is shown in a different color (green) than the display of the string (white) 01 text1 type System.String.01 thetext pic x(50).       procedure division.           set text1 thetext to "Hello World".           display text1::Trim.                                 display thetext line 20 position 20. Regards,