Rocket® COBOL

Problem: This program demonstrates how to use the UPSI external switches and the accept parameters with Net Express. Resolution: INTRODUCTION ========== This program demonstrates how to use the UPSI external switches and the accept parameters with Net Express. SOURCE FILES: ========== Program Files          Description --------------------     ----------------------------------------------------------- PARMPASS.APP      Application to build the PROGRAM1.EXE PROGRAM1.CBL     Source program for PROGRAM1.EXE PARMBASS.BAT      BAT file to be loaded into DEBUG directory where the EXE is loaded or                                 recreated vi

Problem: Release 4.0: We do have Microsoft's Visual Studio.NET 2002, is there a possibility to run Net Express 4.0 .NET? Resolution: No, according to the readnet.txt file included in Net Express 4.0 .NET (as per June 2006) you will need to have an environment basically as follows: Software Requirements    ---------------------    Net Express with .NET is supported on the following operating    systems:     - Windows XP Professional     - Windows 2000     - Windows Server 2003        The following software must be installed:     - Microsoft Visual Studio .NET Premier Partner Edition       (supplied with Net Express with .NET) or any other edition       of Microsoft Visual Studio .NET 2003     - Microsoft .NE

Problem: The example program, "CONVERTING.cbl", illustrates how to use an "inspect ... converting" statement to translate EBCDIC numeric display values to equivalent ASCII numeric display values. Resolution: ============= Two Net Express project files, CONVERTING.APP and CONVERTING.OLD, are present in the project directory. The CONVERTING.APP file is a Net Express 4.0 project file. The CONVERTING.OLD file is a Net Express 3.1, SP1 project file. If you are working with Net Express 3.1 rename the 4.0 project file (CONVERTING.V40) and change the file extension of the 3.1 project file from "OLD" to "APP". INTRODUCTION ========== The example program, "CONVERTING.cbl", illustrates how to use an "inspect ... converting" statement to translate EBCDIC numeric display values to equivalent ASCII numeric display values. The example program is an ASCII program. A character data item in working-storage has an EB

Problem: Document and sample code which defines the COBOL CALL statement Resolution: =========== INTRODUCTION ========== This demo shows how to make calls to Btrieve by directly calling the _btrv module as you would make calls to the Btrieve API instead of using the xfh2btr call conversion module and COBOL file i-o syntax. SOURCE FILES: ========= Program Files     Description ----------------     ----------------------------------------------------------- btrvtest.cbl       The demo program. Copy Files: ----------------     ----------------------------------------------------------- btconsts.cpy      Btrieve operation codes. REQUIREMENTS: ========== This demo was tested using NetExpress 3.1, along with either Btrieve 6.15 or Pervasive SQL 7. OPERATION: ======== The program makes 3 calls to _btrv

Problem: You may want to know the service pack level you have on Applicaiton Server for Net Express to determine what version of All WebSync WrapPack you want to apply on Net Express. Resolution: One way to determine the level of service pack on Application Server is to look for APSxxAnn.TXT where xx indicates the service pack level and nn indicates the version of Net Express. This text file contains the descriptions of the service pack, and it is copied over during the install of the service pack. If the file is not present, this would indicate there was no service pack applied with Application Server. To make sure this is the case, you can look for CBLRTSS.DLL, right-click on it, click on Properties, click on the Version tab, and see if there is "Special Build Description" in the Item Name list. This item name would specify the RTS WebSync version. If this item name is not listed, this then confirms no service pack was applied for Applcation Server.

Problem: When I read a record WITH LOCK, I would like to be able to re-write the same record without releasing the lock.  My understanding is that the re-write releases the lock, so I execute another read with lock immediately after the rewrite.  Is this possible, and if so, what is the proper syntax? Resolution: If you use single record locking in your program, a rewrite of a record that has just been read with lock will then be unlocked. Therefore, you should use multiple record locking if you want a rewrite following a read to keep the record locked. You can then use the UNLOCK statement to release the lock. You will have to do a READ WITH KEPT lock in this scenario. If you rewrite a record that was read without a lock, you would have to compile with the WRITELOCK compiler directive in order for the REWRITE to keep a lock on the record. The attached project has a cobol.txt file with that directive so that you can test WRITELOCK b

Problem: OLE demo that calls Microsoft Word and does a find/replace Resolution: INTRODUCTION ========== This demo shows how to write an OLE Automation client to Word 97 in a series of simple stages. DESCRIPTION ========= This demo shows: o     How to start and stop Word 97 from COBOL o     How to load a document into Word 97, edit and print it. o     How to deal with exceptions and events generated by Word 97. There are five versions of the program provided, each showing how to do more with Word 97 from COBOL. SOURCE FILES ========= README.TXT WORD1.CBL WORD2.CBL WORD3.CBL WORD4.CBL WORD5.CBL WORDEVT.CBL WORD97.APP REQUIREMENTS ========== Microsoft Word 97 should be installed. OPERATION ======= The demo comes in the following stages: 1. WORD1.CBL - This first demo shows how to start and stop Word from COBOL. Word will not become visible, so you need to w

Created On:  19 June 2006 Problem: This demo returns information about the operating system environment via the library call CBL_GET_OS_INFO. This demo also demonstrate the usage of the Library Routine Type definitions and Call Prototypes. Net Express contains two copyfiles; one contains data items used by the library routines specified as type definitions, or TYPEDEFs, while the other contains call prototypes for the library routines. These can be used in your COBOL programs to enable the Compiler to validate all calls to these routines. Resolution: INTRODUCTION Returns information about the operating system  environment via the library call CBL_GET_OS_INFO.  This demo also demonstrate the usage of the Library  Routine Type Definitions and Call Prototypes.  Net Express  contains two copyfiles; one contains data items used by the  library routines specified as type definitions, or TYPEDEFs,  while the oth

Problem: This example illustrates how character mode screen data can be scrolled using call-by-number routine X"A7", functions 4 and 5. Resolution: INTRODUCTION ========== This example illustrates how character mode screen data can be scrolled using call-by-number routine X"A7", functions 4 and 5. It also illustrates how to use the FileType Compiler directive to create and traverse a truly temporary file (FileType"14"). Neither of these facilities are currently documented in NetExpress documentation. In addition "mode is block" is used to display a record definition that contains "filler" or "unnamed" item definitions. And the User Attribute is used to control the screen colors when the program is executed. SOURCE FILES: ========= Program Files         Description -------------------     ----------------------------------------

Problem: When will Net Express support V2 of the .Net Framework? Resolution: Support for Version 2 of the .Net Framework will be introduced in Net Express v5. This version of the product will provide integration to Visual Studio 2005. Old KB# 3986

Problem: A series of nested programs demonstrating the use of COBOL Intrinsic functions Resolution: BUILD W/RELEASE:      Net Express v3.1 with fixpacks as of 05/2002 ============ INTRODUCTION ========== Series of nested programs demonstrating the use of Cobol Intrinsic functions SOURCE FILES: ========== Program Files     Description ----------------     ----------------------------------------------------------- Intrfunc.cbl OPERATION: ======== Simply rebuild project and follow program's instructions NOTE: ==== For more information on the COBOL Intrinsic functions please refer to the COBOL Language Reference. ========================================================== Keywords: demonstration, sample, example, demo, intrfunc.zip demo.ex demo.me demo.ne demo.se Attachments: intrfunc.zip Old KB# 4010

Problem: This sample Dialog System application loads a PDF file in a Dialog System screenset and calls differents methods of the ACROBAT READER ActiveX control  to action on this activeX Resolution: 1) For further details, please refer to Net Express documentation, mainly: Bookshelf Net Express 4.0     http://supportline.microfocus.com/documentation/books/nx40/nx40indx.htm         Dialog System Guide             http://supportline.microfocus.com/documentation/books/nx40/dspubb.htm                 ....                 Chapter 22: Tutorial - Adding an ActiveX Control                 ... 2) Fo

Problem: How to compile from a command line, using the NoQuery Compiler directive to suppress the prompt for any missing copy files. Resolution: INTRODUCTION ============ When compiling from a command line, use the NoQuery Compiler directive to suppress the prompt for any missing copy files. An 8-S error will be reported:     *   8-S********************     **    Unknown COPY file MYBOOK.CPY specified     * Checking complete - errors found but the compile will continue to completion. SOURCE FILES: ========= Program Files     Description ----------------     ----------------------------------------------------------- CblMain.cbl        Example program using a copy statement to retrieve a COBOL copy book. Batch File: ----------------    &nbs

Problem: This example illustrates how to use COBOL syntax to create and access a Btrieve database. Resolution: INTRODUCTION ========== This example illustrates how to use COBOL syntax to create and access a Btrieve database. SOURCE FILES: ========= Program Files         Description -------------------     ----------------------------------------------------------- Create.cbl              Example program that creates a Btrieve database. Multiuser.cbl           A Multi-user example program that retireves records in a Btrieve database. REQUIREMENTS: ========== You will need a 32bit version of Btrieve installed in order to use this example. Pervasive 7 was used to develop and test these example programs. Both of the example programs need a directory to be cre

Problem: Calling Microsoft Word from Object COBOL Resolution: INTRODUCTION ========== Demonstrates how to invoke Microsoft Word from a COBOL program. SOURCE FILES: ========== Program Files     Description ----------------     ----------------------------------------------------------- ooword.cbl         COBOL program that invokes MicroSoft WORD. REQUIREMENTS: ========== Microsoft Word. OPERATION: ======== Rebuild program. All of the necessary directives are located at the top of the program. Start animating and step through the program. Microsoft Word is invoked when you execute the statement 'invoke theWord "setVisible" using by value 1' and appears in the background. ========================================================== Keywords: demonstration, sample, example, demo, ooword.zip demo.ex demo.me demo.ne Attac

Created On:  19 June 2006 Problem: CBL_GET_PROGRAM_INFO, Example #1: The Main program calls the DLL by name and then uses the call-by-name routine to recover the entry point names in the DLL. The results are displayed on the screen. Resolution: INTRODUCTION ========== The Main program calls the DLL by name and then uses the call-by-name routine to recover the entry point names in the D. The results are displayed to the screen. SOURCE FILES: ========= Program Files Description ---------------- ----------------------------------------------------------- main.cbl Main COBOL program. c2cbldll.cbl COBOL supprogram with many entry points. Copy Files ---------------- ----------------------------------------------------------- gtpgminf.cpy OPERATION: ======= Rebuild program. All of the necessary directives are located at the top of the program. Start animating the MAIN and then say run. The Animator application window will display the entry points contained in c2cbldll. In

Problem: CBL_GET_PROGRAM_INFO, Example #2: Trace back the Call/Perform Stack Resolution: INTRODUCTION ========== Simple demonstration of call by name routine cbl_get_program_info. SOURCE FILES: ========= Program Files     Description ----------------     ----------------------------------------------------------- Main.cbl              the trigger program  that starts by call SubOne program. Subone.cbl         Calls Subtwo program. Subtwo.cbl         Calls Subthree program. Subthree.cbl       Calls Subfour program. SubFour.cbl        Calls Subfive program. Subfive.cbl          Makes the call to cbl_Get_program_i

Problem: Hitting backspace in a Screen Section restores a value instead of replacing with a space. Resolution: 1. Open the Net Express Command Prompt 2. Change directory at the location of the application's ADISCTRL file 3. Execute ADISCF 4. Press F2=Alter 5. Press F3=Accept/Display Options 6. Press F3=Individual Options 7. Press Down Arrow key to go to 12 (Auto-restore during backspace in replacement editing mode) 8. Press Enter to edit the option #12 9. Change the value from 1, which is the default, to 2 Here are the options for Auto-Restore: 1: Auto-Restore. The characters overtyped are automatically restored as characters are deleted. 2: Auto-Restore disabled. Deleted characters are replaced by the filler characters. Old KB# 3959

Problem: Release 4.0: Compiling source code and receiving the error: COBCH0187S Program is nested in a program defined with the "RECURSIVE" attribute  : C:\\WORK\\Cobol\\z0axd026.cob(3284,21) What does this mean? I have not used the RECURSIVE attribute. Resolution: Basically you have to recode the source: First, check the compiler directives you use to compile this program: a FLAG"COBOL370" directive was set to compile the source using a COBOL370 environment instead, and compiling was being stopped when a very last END PROGRAM statement was reached. Second, check the program structure, here found as follows: identification division. program-id. progA. identification division. program-id. progB. end program progB. identification division. program-id. progC. end program progC. end program progA. <-- COBCH0187S In an 370 environment it is not allowed to nest program sources, s. end program progA. This wil

Problem: After updating Net Express 4.0 with the WrapPack all07n40, an RTS 115 is encountered when attempting to open a Service Interface or when attempting to create a new one. Resolution: This is a known problem e.g. for the Service Interface tool as well as for Form Designer. Workaround: The problem is caused by the "Text Find and Replace" dockable window, which you get from the IDE by "Search", "Find in text...". Just "right-click on this window and HIDE it" will enable the IDE to work correctly. This will be fixed in the next web sync for Net Express 4. Old KB# 3952

Problem: COM WORD: Open  existing document in ReadOnly mode Resolution: ______________________________________________________________________________ Word Object Model [Word 2003 VBA Language Reference] <http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd11/html/woobjDialogs1_HV05210511.asp> ---> Open Method: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd11/html/womthOpen1_HV03076944.asp ....Open method as it applies to the Documents object. ______________________________________________________________________________ Demo attached: ...        *>=========================================================            *> Create an instance of Word            invoke wordapp "new" returning wordServer    &nbs

Problem: How to delete event handler code in a COBOL win/web form. Resolution: If you accidently create an event handler and then want to delete the event handler code you have to do so in design view not in code view because some event handler code is also in the design. To delete event handler code in design view: 1)  Switch to design view 2)  Click on the control for which you want to delete the event handler 3)  In the properties window cick on the event handler icon (looks like a lightening bolt) 4)  Find the event handler that you want to delete in the list and just delete its name so that the name is blank Old KB# 3919

Problem: Release 4.0: Is there a problem using CBL_CHECK_FILE_EXIST also CBL_COPY_FILE in regard to pathnames including spaces, not getting back a return code consistently? Resolution: Basically, there is no problem using CBL_CHECK_FILE_EXIST, also CBL_COPY_FILE to get back return codes correctly. Please check attached demo file to get more information about. This demo program1.cbl shows how you can use a spacey pathname pointed to drive E:. (If you do not have an E: drive change it to a drive you want). Attachments: CBLSPACE.zip Old KB# 3917

Problem: The Find function under Net Express retains the values from previous finds, which can be deleted or reduced. Resolution: Go to regedit and looks under: (HKEY_CURRENT_USER/Software/Micro Focus/NetExpress/nn/IDE/FindHistory) You can remove the old values under "FindHistory". You can also limit the number of values kept in storage by selecting the "size" name under FindHistory and change the value to a lesser number. Old KB# 3968

Problem: If you are processing a Timer event and it takes a while processing then when the event is finished the next timer event is immediately fired. How can you stop event while processing another? Resolution: In the event you can switch off a time and then start it at the end of the  event. Some example code for this is:-        method-id.  "timer1_Tick" final private.        linkage section.        01 sender System-Object.        01 e System-EventArgs.        procedure division using by value  sender e.                       invoke timer1::"Stop"()              &n