Rocket® COBOL

Hello, I'm having a problem with an ACCEPT on a group item from the SCREEN SECTION. If the SCREEN SECTION has something like: 05 SCREEN-LINE-1.      10 S-GRAB-DATE.            15  LINE 1 COL 10 PIC 99 USING THE-MONTH.            15 LINE 1 COL 12  '/'.            15 LINE 1 COL  13 PIC 99 USING THE-CC.            15 LINE 1 COL  15 PIC 99 USING THE- YEAR. Then in the code do: ACCEPT S-GRAB-DATE. I am able to edit the month field but as soon as I hit Enter the cursor does not go to the THE-CC field. It just terminates the whole accept for that group item, instead of going to the next field within the group item. I can TAB to the next field within the group item, but not NewLine/Enter. This works on our AIX version of ServerExpress but not our

[Migrated content. Thread originally posted on 19 April 2011]How I can move from one windows form to another with Visual Cobol?. And how I can create those on my project and I can Hide and Un-Hide?. Please let me know where I can find one example. My email is: jose61@pryma.ws

Chris, I was thinking that, within the same class, you could have multiple methods with the same name (ID), provided that each occurrence of the same-named method had a different and unique signature.  However, it appears from the attached demo that this is not true (?)... or. more likely, I have done something wrong.  See the attached demo which is an extension of your CCW Tutorial.  To test, go to the caller program and comment out the invoke of ManagedMethod2 and uncomment the invoke of ManagedMethod that is using custRecord and aNumber.  Also go to the called program and in Class1 change the method ID on the 2nd method from ManagedMethod2 to ManagedMethod.  Then debug.  You should get a parameter count mismatch error.  Not that when you put everything back the way it originally was, you don't get an error... it works (it's just not with using overloaded methods).  Maybe overloads don't work when you are doing OLE calling? Thanks,

I have an embedded SQL statement to read a single row that contains varchar data from an Oracle database. My code seems to be correct as I do not get any errors and it runs to success. However the data I am getting back almost looks like it is encrypted. Other data types are correct. It is only the varchar data that is not. My COBOL program is running Server Express 5 on SUSE Linux Enterprise Server 11 (x86_64) but the database is on Windows 2008 Enterprise 32-bit. I am not sure is this has anything to do with the problem.#COBOLORACLEEXECSQLCOMPILE

Attached are the demo programs used in the OOP for COBOL Webinar Series: Webinar 4 - Collection Classes

Dear Sirs, I Get an Error  2012 with " CALL 'MQCONN' USING ISER-QM-NAME, HCONN, RETCODE, REASON"   Please Help Me PJM

Hi all I moved an indexed vision 4 file from SCO Unix to Windows server 2003 by an FTP manager (Cute Ftp). In Unix the file is working properly with no problems but In win2003 server using Acu Cobol 7.0 could n't open it and get an 39 error on open. I tried to rebuild the file and I gor the messages : "Chain of records is broken!" and "11 records recovered 6275 records lost" Using other than primary keys to rebuild i reached to recover 275 instead of 11 records but it's a big loss either way. After I tried several rebuilding options with no result I tried to use "-load" option of vutil32 but in that  case i got more than half records of the file send in .rej file as with illegal Duplicated keys which is not logical as the file is working in SCO Unix properly. I tried also to recover the file manually by a START, READ program and ERROS_OK 1 in configuration file but it reads no more than one record. I also tried to read the data-segment portion of the index file indivisually like

Visual COBOL has been shortlisted for a Tech Hero Award, and it's the public who get to decide the winners! If you think Visual COBOL is a worthy winner, then please show your support with a vote. You can read more about the awards and Visual COBOL here.#VisualCOBOL

Note that if you are following along with the Visual COBOL Call - CCW Tutorial... and you do everything that is called for in the tutorial except that you forget to put in the "$set ooctrl( P)" compiler directive at the top of the native caller Program1... when you run it in debug, you will get a "105 Memory Allocation Error:  Program1".  Putting this directive in will solve the problem.  

Note:  In a Native COBOL program, if you are using the "CLASS-CONTROL." subsection in order to define your classes (to be used in later invocations of managed classes from your native program)... note that if you have more than one class definition to be defined in class-control... that you can only use one period within this subsection.  Else (if you have more than one definition and end each with a period), you will get syntax type errors such as "PROCEDURE DIVISION missing or unknown statement" and "COBOL Division or Section header encountered in incorrect order". Austin

I have reviewed the documentation for Debugging COBOL Applications remotely, and that applies to windows applications. Are there steps or tutorials for debugging web applications thru IIS? I can get the breakpoints to work, using Remote Debugging for Windows. But the watch windows don't work. It sounds like a symbols issue, but I'm not sure how to resolve it.

I'm a mainframe cobol programmer and have been for many years.  What is the differences between these 2 applications and which would be better for me.

Hi, Im having trouble with CBL_COPY_FILE library routine error 3385... The file is not being copied and wStat-byte2 is returning 3385. The file I'm copying though is about  107chars long (including the directories). Could that be the cause?  Anyone? Checking status code below; 01  wStatcode       pic x(2) comp-x. 01  wStatcode redefines wStatcode.       05  wStat-byte1       pic x.        05  wStat-byte2       pic x comp-x.    #netexpress

Hi, I was wondering in visual cobol the files I read and write to are they in Access and Excel format?  Do I use SQL to access  these files and how to I tell the program where to look for the file.  The last part I can probablt figure out when I get the software.

Problem How to convert cobol-mb (MicroBase) showing accessing copy books and using display at 01 01 syntax.  Resolution Put the 01 01 into a variable. 01 display-cursor. 03 dc-line pic 99. 03 dc-column pic 99. Then just use this in the procedure division. move "0101" to display-prompt-line display "my text" at display-cursor Here is a example of the above display method and others combined with the usage of copy books showing COBCPY and COPYEXT This has been tested with Oracle unix using bash. For all programs and scripts needed for this example, click the link and save as <2679886copy-001.tar> Copy this onto a test area on your unix machine and untar it, see below. Change setup.sh to point at your cobol environment cobsetenv This will compile and run the same program three times. Program1.cbl program-id. Program1 as "Program1". environment divi

I have to translate an XML with <CDATA> with BASE64 binairy data </CDATA>   into a PDF-file. Is it possible to do this with Net Express 5.1 with COBOL. When it is possible, how can I code it in COBOL-statements. I have found a program that called C$CARG for RM/COBOL. Is there a routine in Net Express Cobol ?#cobolnetexpress#XMLBASE64#COBOLserver#NetExpress5.1

What would be the best way to sort an indexed file with a composite key that is > 250 bytes.  Composite key :   02 SRTKEY.      05 SRTIND             PIC 9.      05 SRTACC           PIC X(350).      05 SRTCONTRA   PIC X(350).      05 SRTCNT           PIC 9(8). |KEEP KEY UNIQUE Any input would be appreciated. Thanks.#keygreatrethan250bytes#ACUCOBOL9.2.4#indexedfile#Sort

where can I download acucobol-gt?? I must use c-treeRTG 

Curiosity question:  I know what a Managed Windows Application Project is, but: In Visual Studio, you can:  -> New Project -> Native -> Windows Application (?). What is a Native Windows Application Project? How is it different than, say, a Native Console Application Project? Thanks, Austin

I want to use an ActiveX control from Dynamsoft to scan documents and reading barcodes from documents. Scanning works just fine. But reading barcodes gives an error creating  ActiveX control. The samples they provide all work so I must be doing something wrong. Can someone help me with this? Please find code here

I have installed unixODBC and the Relativity client on Linux and can query the database using the relclienttest utility. However, when I attempt to query the database using isql, I get the following error: # isql -v mydsn[01000][unixODBC][Driver Manager]Can't open lib '/usr/local/liant/lib/relclient.so' : file not found[ISQL]ERROR: Could not SQLConnect Needless to say, the reclient library is in the specified directory and is readable. From extensive Googling of the problem, it seems that the issue is that the Relativity client is 32 bit and isql is 64 bit: # file /usr/bin/isql/usr/bin/isql: ELF 64-bit LSB executable, x86-64, version 1 (SYSV), dynamically linked (uses shared libs), for GNU/Linux 2.6.18, stripped # file /usr/local/liant/lib/relclient.so/usr/local/liant/lib/relclient.so: ELF 32-bit LSB shared object, Intel 80386, version 1 (SYSV), dynamically linked, not stripped I am aware that there is no 64 bit client for Relativity. How have others got around this problem?#Relativity

I have a Visual Studio 2013 - Visual COBOL Managed (can I just refer to it as Visual Cobol .Net?) program that I am using to convert a string data type to a decimal data type, using the "convert" function (ignoring validation for now). Currently, I have a REPOSITORY with this:     class convertClass as "System.Convert". and in the procedural code, I am doing this:    MOVE convertClass::ToDecimal(myString)  TO myDecimal. What I want to know is how to do this using the alternate approach of using the $set ilusing directive so that I can do something like this instead:   MOVE convert::ToDecimal(myString)  TO myDecimal. I have tried it several ways ($set ilusing"System.Convert" and $set ilusing"System"), but I can't seem to get it to recognize System or System.Convert such that I can do this. Thanks

I am looking for specific examples of how, in a Managed COBOL program/class, how to convert back and forth between traditional COBOL data types (such as COMP-3, COMP-5, COMP-X ) to equivalent Net types, and vice-versa.  For example, the data file being processed in the Managed COBOL program has some of these traditional COBOL data types - I need to see how to convert them, both to and from Managed types - specific examples. Thanks

I work for an Agriculture software company as a Crystal Reports Developer.  I’ve been asked to research a way that we can deliver Ad Hoc reporting capabilities to our customers.   I came from a Microsoft SQL environment and now utilizing the Micro focus tools. Considering our database structure is massive and too many fields/tables for the customers to deal with directly (support nightmare).  I was thinking I could deliver pre-defined stored procedures that included the most common fields and linkage to other supporting tables already done.  Then the end-user could write a report using these SP’s.  Come to find out Relativity would not be able to support this. The software tools that I’m familiar with is the Relativity Designer and Crystal reports.   The programmers use the RM – COBOL software.   My Question:  Is there any tools or a way to solve this with the Micro-Focus supported software?

Problem: Application fails with the following error: Load error : file '<ProgramName>'error code: 211, pc=0, call=1, seg=0211 Program not executable by Run-Time System Resolution: This problem usually occurs when a program that was built with a different version of the runtime is called or executed, so all programs that are executed within the same run-unit must be compiled and executed with the same version of the runtime. The same problem also occurs when a 32-bit program is called by a 64-bit program or vice versa. This is also the case if a 32-bit program is executed with the 64-bit runtime or a 64-bit program is executed with a 32-bit runtime.