Rocket® COBOL

Hi all; Been trying to find the .pdf (or any for that matter) manuals for Visual Cobol but with no success other than the install docs. Can anyone advise where they are for download as I assume printed manuals are not available or seriously over priced? Vince #VCVisualCobolManuals

I am unable to understand why I am getting a 'subscript out of range' error with the following:A 'next-record' table with 99 entries subscripted by 'bom-level': 05 next-record occurs 99        pic S9(9) comp.     05 bom-level                              pic 9(2)  comp.    I have put in debugging code and the subscript (bom-level) never breaks the 99 entry limit - in fact it never gets higher than 3 (see 'Lvl' below):---Enter assembly to explode...A<enter> to continue ...Lvl  Ass  Comp 1    A    B 1    A    C 2    C    D 3    D    F 3    D    G 2    C

Problem: Customer is converting from a Server Express native application using Oracle's Pro*COBOL precompiler to Visual COBOL for Visual Studio managed code using OpenESQL with Oracles ADO Provider.They are using both cursor fetches and singleton SELECT INTO statements that specify the FOR UPDATE and FOR UPDATE NOWAIT clauses.When this is used with Pro*COBOL the FOR UPDATE clause causes a lock to be placed on rows when they are fetched from a cursor and also on a SELECT INTO statement. The locks are held until the next fetch or select INTO is executed.Likewise if the FOR UPDATE NOWAIT clause is used then a sqlcode of -54 will be returned when attempting to fetch or select a row which is currently locked.When using these constructs in Visual COBOL using DBMAN=ADO with Oracle ODP.NET Provider it seems that these clauses are being ignored and no locking of any kind is being done.How can this be remedied? Resolution: The FOR UPDATE and NOWAIT clauses were being stripped off by the Open

Problem: Customer has a native code Visual COBOL application that uses OpenESQL to access a database through ODBC. The application is linked with the dynamic option so that it will find required run-time files in production by looking to the Registry entries for the COBOL Server product. The application runs fine in Development when running under Visual COBOL but when the application is moved to the deployment computer on which COBOL Server is installed it displays the following error when it is run: "This application has failed to start because mfsqlsmf.dll was not found. Re-installing the application may fix the problem." The file mfsqlsmf.dll is in the COBOL Server\\bin folder yet it cannot be found even though the application is linked as dynamic. How can this be resolved without having to explicitly set the system PATH to include the bin folder? Resolution: If you add the sql directive:      $set sql(NOHSFTRACE)  to your application then it

Problem: Customer needs to set some file handler configuration options for a file which resides on a network server.In the application the file appears in the select assign to clause as:   select test-file assign to \\\\compname\\filefolder\\testfile.dat How should this name be specifed within the extfh.cfg file in order for the name to be resolved correctly? Resolution: You can use a UNC name in an extfh.cfg file tag but you have to double the slashes in order for the file to be found. Example: to set a tag for the following:  \\\\compname\\filefolder\\testfile.datYou would use: [\\\\\\\\compname\\\\filefolder\\\\testfile.dat]alternatively, if you set the basename=on option in the xfh-default tag then you can just specify the file name without the full path: [XFH-DEFAULT] BASENAME=ON [testfile.dat]

Problem: Customer asks: Is it possible to compile a Visual COBOL native program with Target CPU as AnyCPU? I know it is possible for .NET support, but I am not using it. I read some info about ILTARGET directive, but it is only available for .NET. Is this correct? Resolution: The TargetCPU anyCPU option is only available for managed code applications that target the .NET Framework. Managed code applications are generated as MSIL object code which is the Microsoft Intermediate Language format. Although these are generated as .EXE and .DLL assemblies they are not in an executable format but are instead in an intermediate format that are actually compiled as necessary when they are run. Because of this you can set the TargetCPU in these files so the .NET compiler knows how to generate the code at run-time. By setting this to anyCPU, when you run these assemblies on a 32-bit system they will be generated as 32-bit executables and if run on a 64-bit system then they will be genera

Problem: Customer is accessing an Oracle database via OpenESQL (not Pro*COBOL).They need to check the sql syntax at compilation time. They are using the following directive:   SQL(TARGETDB=ORACLEOCI) Is it possible to use the SQL(CHECK) directive to pass the embedded sql statements to Oracle at compile time for syntax checking? Resolution: SQL(CHECK) is not supported with TARGETDB=ORACEOCI. To use SQL(CHECK), you need to use the DBMAN=ODBC directive. ORACLEOCI is being deprecated.

Created On:  12 November 2012 Problem: In RM/COBOL the PROGRAM-ID is a special register that returns the program name. For example in RM/COBOL the following code sets the data item ws-pgmid with the value of the program-id. 03 ws-pgmid pic x(30) value PROGRAM-ID. This is not valid in Visual COBOL Resolution: Visual COBOL has its own set of Library routines that can be found in the documentation under Reference > Library Routines. An example of how to return program information about the current program and other program in the run-unit is as follows: (please see entry for CBL_GET_PROGRAM_INFO for more detailed information), solution although it means code change…. Get Program-ID into Visual COBOL program program-id. testProgram. data division. working-storage section. 01 wsfunction pic x(4) comp-5. 01 param-block. 05 cblte-gpi-size pic x(4) comp-5. 05 cblte-gpi-flags pic x(4) comp-5. 05 cblte-gpi-

Hi, We have GDG with the scratch limit as 99. But we have seen that the GDG biases are getting overwritten even before the maximum limit is reached. For example, If we have 10 biases present and now when the job runs it should create 11th one. But it is not creating the 11th ! Instead, it is overwriting the 2nd or 3rd version. And when  the job runs after this, version 12th is getting created. It seems so wierd and we have lost data because of this !!I don not understand why is this happening !! Can anyone help me on  this? Thanks in advacne! Vamshi Rathnaa.    #ServerExpress

Using Net Express 5.0, I'm trying to call a cobol program compiled as an EXE from an AJAX call in Javascript, passing the data to the program using POST.  If I pass the data with the URL, and I accept it in the cobol program from the command-line, everything works peachy.  However, I have an application where I want to POST a really long string, so I'm trying to do a proper post, and just do ACCEPT rather than ACCEPT ... FROM COMMAND-LINE.  When I try that, the program just hangs and I get a CGI timeout. Here is the source of my test program:       $set preprocess(htmlpp) endp           *>****************************************************************       identification division.      *>****************************************************************           program-id. "ajaxtest". &

Beginning to implement web services using BIS with Extend; when creating a new session (ie when a user logs in), we want to generate a unique access token for that user (so we can validate subsequent requests to other services, timeout sessions, etc.) - I recall seeing a sample program either in a tutorial, or during a webinar, or maybe at the users conference in Newark, but my memory fails as to where I saw it. Can anyone point me to a method of generating a unique access token that would be straight-forward to implement in Extend? Thanks Tony

Until recently I dis not see this message. In the last fortnight I have encountered this message on about five occasions. The first time it occurred I ended up replacing my profile. Last week I was debugging a program and observed that when using "WIN$PRINTER" without any additional features, my programs were running OK. Today, I ran a program which has terminated normally for years, but today it threw up the above message. As I was running in debug mode at the time, I notices that it terminated abnormally when it reached the section of code below:     INITIALIZE WINPRINT-SELECTION.     INITIALIZE WINPRINT-NO-OF-PRINTERS.     MOVE "CutePDF Writer" TO WINPRINT-NAME.         CALL "WIN$PRINTER" USING WINPRINT-GET-PRINTER-INFO-EX,                             

Hello, if i use a HTML-Form with a "multi checkbox set" i have the same issue like in php:http://www.wastedpotential.com/html-multi-checkbox-set-the-correct-way-to-group-checkboxes/ When i use the brackets like in the description i get no date when i use "identified by" Sample of my HTML-Part:    <fieldset>      <table>         <tr><td><label for="fGrund"><strong>Anlagegrund: *</strong></label></td>             <td><input type="checkbox" class="checkbox" id="fPote" name="Grund[]" value="P"  /> <i>(Lieferant mit großem Potential)</i><br />                 <input type="checkbox" class=&qu

Hello Everyone, I'm interested to come back on COBOL, never worked with since 15 years. I have downloaded Visual Cobol for Visual Studio 2012. I have VS2012 Express Web, Windows and Windows 8. The installation of Visual Cobol don't give me error, but when i try to start VC, i get this error someone already get this kind of error? does i need to uninstall and install again? Thanks for your help.

Hi, We need from java to call a cobol program with the following linkage on Acu 9.1 on Unix:   01 lnk-proc-block.                02 tbl-exams-lnk.         03 tea-exam-lnk         occurs 500.          04 tea-exam              pic 9(5).          04 tea-analisis          occurs 500.           05 tea-anal             pic 9(8).           05 tea-resu             pic x(45).            &nbs

I need help in debugging in the Run Time Environment since this is our first experience with it.  We are migrating from NE 3.1 to VC 2.1. I used Visual Studio originally to compile and then run these batch programs from the command line on the server we have Visual Studio/Visual Cobol installed. These are all compiled in “native” mode. Then used the command line compiler for both dll’s and exe’s to overlay the ones created by using Visual Studio. All the programs ran successfully again. Then I copied the command line compiled  dll’s and exe’s to the server where Cobol Server 2012 was installed – this is how we plan to implement when we put this into production. When I run under the Cobol Server 2012 I have no success.  After some research I found the doco on the Tracing Facility in your Cobol Server 2.1 under Visual Cobol Deployment. Under the runtime when I run the Start command from the command line I get a flash of a DOS comma

I have the following WS setup:        01 SYSTEMTIME.           05 WS-YEAR          PIC  9(4)  USAGE IS COMP-N.           05 WS-MONTH         PIC  9(4)  USAGE IS COMP-N.           05 WS-DOW           PIC  9(4)  USAGE IS COMP-N.           05 WS-DAY           PIC  9(4)  USAGE IS COMP-N.           05 WS-HOUR          PIC  9(4)  USAGE IS COMP-N.           05 WS-MINUTE     

.Net Cobol class:       $set ilusing "CSharpPrograms"        class-id. CobolMain.        method-id. main public.            invoke type Console::WriteLine("CobolMain: Hello World")            invoke type CSharpSub::DisplayMethod()        end method main.        end class.    C# Class:   using System; using System.Collections.Generic; using System.Linq; using System.Text;   //  This is an experiment of calling a C# program from a Cobol main program.   namespace CSharpPrograms {   public class CSharpSub   {     public void DisplayMethod()     {       Console.WriteLine("CSharpSub: Hello World");     }  &

This is our first attempt to use the RAW print mode. We are reading in a file containing the PCL code necessary to print insurance forms. We can't seem to find a good combination of record lengths for the input file and/or the print file - we seem to be getting truncated PCL code at the printer and improperly formatted insurance forms. Any experience out there with doing this so you can point us in the right direction? Thanks. The code currently looks like this:        FILE-CONTROL.           SELECT IN-FILE ASSIGN TO RANDOM, IN-FILE-NAME;               ORGANIZATION IS BINARY SEQUENTIAL               FILE STATUS IS A-STAT.           SELECT RPT-FILE             AS

Managed COBOL TcpSocket Client Server Communication with sample There are C# / VB code samples on the MSDN site:http://msdn.microsoft.com/en-us/library/w89fhyex.aspxWhich show how to use Sockets to enable network communication.These samples can be used to a write Synchronous Client program and a Synchronous Server Socket Example program. These communicate which each other synchronously.This article shows to convert the Microsoft Managed code to Managed Cobol and what the main components are for this to work. What is a socket.A socket opens the network connection for the program, allowing data to be read and written over the network. It is important to note that these sockets are software, not hardware.Please refer to this URL to get a further explanation of the Microsoft .NET Socket Class, URL: http://msdn.microsoft.com/en-us/library/system.net.sockets.socket.aspx This article focuses around Synchronous communication. There is also a Asynchronous form of communication. A

I have a solution in VS named AllManaged. It consists of 2 projects: CobolPrograms and CSharpPrograms.  (The VS book says that a project should not contain a mixture of languages.) CobolPrograms contains 2 programs/classes: CobolMain and CobolSub.  Both are managed code. CSharpPrograms contains 1 program/class: CSharpSub.  The NameSpace is CSharpPrograms. All programs display their program name and “Hello World”. CobolMain invokes CobolSub and CSharpSub.   When I compile the solution, I get error COBCH0845 in CobolMain saying “Unknown class ‘CSharpSub’”. I have unsuccessfully tried the following: . In CobolMain, I put in the ILUSING “CSharpPrograms” compiler directive. . For Project CobolPrograms, I have added CSharpPrograms to the NameSpace Property. . For Project CobolPrograms, I have added “C:\\...\\visual studio 2010\\Projects\\AllManaged\\CSharpPrograms” to the Reference Paths Property.  

I am compiling a program with the following command line: cobol cgetords.cbl case litlink makesyn "comp-5" = "comp" omf(obj) but the object code file (cgetords.obj) is not being created, with the following resulting Linker errors: -----Object file-name [CGETORDS.OBJ]:Source listing   [NUL]:Object listing   [NUL]:* Checking complete with no errors - starting code generationC:\\Workarea\\Eloq>linkMicro Focus Net Express - CBLLINK utilityVersion 5.100.0157 Copyright (C) 1984-2008 Micro Focus (IP) Limited.ERROR: (1) Cannot open file :  cgetords.objERROR: (6) No public symbols found. No object file generated---- I have been through this compile/link process dozens of times in the last couple of weeks so I'm somewhat baffled as to why it should now fail. Has anyone any ideas as to cause and solution? Thanks

Hi there, We are running into problem with MF V5.1 on AIX6.1, wondering if anyone can help share some advice? Problem Summary:the COBOL source files can compile with MF V5.0 AIX 6.1. However, it is reporting error code 114 with MF V5.1. After changing the compiler option "nobound" to "bound", it could pass compilation and able to run.Anybody can share some insight on the possible cause of this issue, and will there be any potential problem if we use compiler option "bound" for production? Thanks a lot.Problem Details:We are getting the following error when attempting to compile on an AIX6.1 running MF Server Express V5.1.00:$cob64 -C nolist -C notrunc checknum noreseq noosvs vsc2 fileshare ibmcomp include-filler hidemessage=1136 hidemessage=1205 hidemessage=1234 -C ref  odoosvs odoslide -C nobound -iva -W e -C rtncode-size=4 copylist warning=3  -C LIST=CTEST.lst .profile.CT001 -C "changemessage(1176 s 1207 s 642 e)" -C MFSYNC -k CTEST.COBcob64 -C nolist -C notrunc checknum

Hello friends, What are the side-effects of terminating a COBOL application trough Windows (the X button) vs. terminating using 'STOP RUN'? I have many programs in wich the user exits by pressing ENTER in a clear field, but i'm unable to run them in full screen on Windows 7, so there is the possibility of an user mystake.#netexpress#windows7#COBOL

Has anyone be able to create a gnt using the 'gnt' compiler directive in the cobol.dir and compiling user cobol statement under NetExpress 5.1? I added 'gnt' to the coboo.dir file and the system still created an int.  The NetExpress 5.1 books indicated that if you add the 'gnt' compiler directive, it will create a gnt and not a int (default).