Rocket® COBOL

Problem: How to trap COBOL errors using CBL_ERR0R_PROC Resolution: ============ INTRODUCTION ========== This project shows how to trap COBOL error messages using CBL_ERROR_PROC. SOURCE FILES: ========= Program Files     Description ----------------     ----------------------------------------------------------- CblTrap.APP       NetExpress project file Main1.CBL          COBOL source code Errorprc.CBL      COBOL source code Help Files: ----------------     ----------------------------------------------------------- Readme.TXT      This file OPERATION: ======= Here are few additional details about this project: o     The module (errorprc) that traps the Cobol error messages:    &nb

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 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 my screen appears I can't enter ^, when I do I receive a message at the bottom of the screen The keystroke has no meaning here. Resolution: The following code in an ADIS program will disable the Shift-6 "^" key and that will replicate the behavior that the customer is seeing. 01 set-bit-pairs                           pic 9(2) comp-x value 1. 01 data-key-control.                                              03 data-key-setting                pic 9(2) comp-x  value 0.   &nbsp

Problem: View is a 32-bit, character mode, text file viewer. It can be created as a character mode or graphical executable. It uses call-by-name routine x'AF' to initialize Adis, and compiler directive FileType"14" to create a temporary, relative file. Resolution: INTRODUCTION ========== View is a 32bit, character mode, text file viewer. It can be created as a character mode or graphical executable. It uses cal-by-name routine x'AF' to initialize Adis and compiler directive FileType"14" to create a temporary, relative file. SOURCE FILES: ========= Program Files: -------------------     ----------------------------------------------------------- View.cbl                  A character mode, text file viewer. xBorder.cbl             A sub program th

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: 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: How can you Delete a file in .Net using a .Net class ? Resolution: You can use the  System.IO.File class to do this using code such as:-     class cFile as "System.IO.File" ....     invoke cFile::"Delete"("c:\\myfile.dat") Old KB# 3935

Problem: DataGridView : How can I pick up the double-click line event in a datagridview in the .Net Framework V2? Resolution: You can detact the hit on a cell by trapping the "CellClickEvent". This event passes in an Event object that contains the "RowIndex". This can then to used to process the whole row using code such as:-            set gridRow to dataGridView1::"Rows"::"Item"(e::"RowIndex")            set selectedrow to class-string::"Concat"("Selected :  ",gridrow::"Cells"::"Item"(0)::"Value"," - ",gridrow::"Cells"::"Item"(1)::"Value", " - ",gridrow::"Cells"::"Item"(2)::"Value")            invoke cMessageB

Problem: For example - you might want to set up your own batch file to compile - and then to be able to simply click on the bat file Resolution: Have your bat file call setenv.bat located in the netexpress\\base\\bin directory Old KB# 3964

Problem: Status Key of '9d' (9/100 Invalid file operation) when closing a fileshare file Resolution: If you try to CLOSE a file that is participating in an active transaction, a 9/100 error status is returned and the file remains open. A COMMIT or ROLLBACK needs to be issued before the CLOSE can be executed. For the file to be involved in a transaction, WITH ROLLBACK has to be defined on the file. A transaction will start as soon as an update operation is executed for a file with the WITH ROLLBACK option defined on it. Old KB# 3967#ServerExpress#AcuCobol#COBOL#netexpress#RMCOBOL

Problem: For example - I have currently Net Express 3.1 and am planning to install 4.0 on the same machine. Will I still get support for 3.1 or just 4.0? Resolution: You can install the new version of Net Express 4.0 on the same machine where you have installed the old version and they will share the same license. However, you will no longer get support for the old version after 90 days after you have upgraded your license to the new version. Please discuss this matter with your sales rep for further details and conditions! Note: Micro Focus no longer provides any fixes for old versions of Net Express regardless of whether you have maintenance contract or not. Old KB# 3941

Problem: Is it possible to have the Tabs on the left or right of the screen? Resolution: You can make the tabs left /right by clicking the right hand mouse button on the tab and going into properties you can select left/right. Old KB# 3946

Problem: CLU08ALL.EXE and ALL06N40.EXE are available at the Micro Focus SupportLine site for Net Express 4.0. Resolution: CLU08ALL.EXE is the License Protection System FixPack, and it is already part of the All WebSync WrapPack ALL06N40.EXE. It is then not necessary (and it does not hurt) to apply clu08all.exe after all06n40.exe. Old KB# 3942

Problem: mfextmap not working in an Net Express application. Resolution: The application needed to be linked with the Shared Runtime system (-f swtich to CBLLINK) and also the COBCONFIG_ environment variable needed to point to the location of the runtime tunable file with:- SET environment_mapper=TRUE Old KB# 3980

Problem: An ASP file is displayed okay from a Cobol DISPLAY statement except nothing is shown for simple ASP functions, such as current date and time. However, the same ASP file gets displayed properly by IIS server. [cobol] working-storage section. 1  OutASPForm is external-form identified by                                     ASPFileName. 77 ASPFileName                pic x(256) value          "TestASP.asp". procedure division.      display OutASPForm     stop run. [TestASP.asp] <HTML> <HR width=80% size=4 color="green"> This is a test of ASP showing the date = <%=

Problem: Release 4.0: How to implement this? Resolution: To Publish to Unix from Net Express you need to run SCP as a daemon on the Unix machine. To run SCP as a Daemon, take a look at the following: Net Express Help -> Content -> Using Net Express -> Unix Option -> Unix Option Guide -> Installing Samba and SCP -> Alternative Security Mechanism -> SCP Daemon method Old KB# 3979

Problem: In a PictureBix object in WinForms how can you set up the image at runtime from COBOL Code ? Resolution: You can do this by passing in a Bitmap object to the Picture Box. Some example code that does this is:-       $set sourceformat(variable)       $set preservecase        class-id. frmPBox as "MDICOBOL.frmPBox" is partial                  inherits class-form.        environment division.        configuration section.        repository.            class interface-icontainer as "System.ComponentModel.IContainer"            class class-f

Problem: You may have set environment variables external to the Net Express IDE.  However, you can't see them from within the IDE. How can you see environment variables that have been set externally from within the IDE? Resolution: Go to Project | Properties Click on the IDE button Then click on the 'Import' button and import the current environment by selecting  the environment variables you want to view or edit. Old KB# 3931

Problem: The Micro Focus Studio 5.0 setup always comes back to the feature dialog on Windows 2000. Resolution: Make sure Windows 2000 has Service Pack 4 applied. It is a requirement to install Micro Focus Studio 5.0 on Windows 2000. Old KB# 3973

Problem: How to invoke the defualt web browser from a COBOL program Resolution: you can use ShellExecute to open a webpage EX: call "cob32api"                                                               call winapi "ShellExecuteA" using           by value 0 size 4                      by reference z"open"                  by reference         

Problem: I get an RTE 114 on a GOBACK / EXIT PROGRAM / STOP RUN in EXE mode. The program runs fine in INT. Resolution: When you call a function that should have the CALL-CONVENTION for WinApi set (i.e. 66 or 74) without the CALL-CONVENTION, the stack will be corrupted. A GOBACK / EXIT PROGRAM / STOP RUN pops an invalid return address from the stack, tries to return to this address and a RTE 114 occurs. E.g. if you code     call GetShortPathName instead of     call WinApi GetShortPathName the stack will be corrupted after the call. This program may run for another million steps but will crash when leaving the program (compile unit), which contains the false WinApi-call. Reason: If you call a WinApi-function and do not set the call-convention, both, the calling and called programs, will remove the parameter from the stack. Old KB# 3962

Problem: Using code how can you make a specific Tab page within a Tab control the current page. Resolution: You can use with the SelectedPage or SelectedIndex property of the TabControl object. Some example code for this would be:-           set tabControl1::"SelectedIndex" to 1  *> Its ZERO Indexed so 1 is actual Tab Page 2                *> or                    set ls-tabpage to tabControl1::"TabPages"::"Item"("tabpage2")                set tabControl1::"SelectedTab" to ls-tabpage Old KB# 3914

Problem: Does Micro Focus support the MS SCCI standard for version control systems? Resolution: In both Net Express 4.0 and Mainframe Express 3.0 we provide support for what is called Microsoft Source Control Common Interface (MSSCCI). Old KB# 3915