Rocket® COBOL

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: 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: 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: 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: 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: 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: 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: 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: 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

Problem: Error creating a new COBOL project "The application for project 'C:\\Documents and Settings\\default\\local settings\\temp\\5dgjbw2p.cpx\\temp\\classlibrary2.cblproj' is not installed.' Make sure the application for the project type (.cblproj) is installed. Resolution: Open a Visual Studio 2005 command prompt.  Go to the Mico Focus\\Studio 5.0\\Packages directory and enter the following: regsvr32 cblprj.dll then press enter then enter the following and press enter: devenv /setup Old KB# 3938

Problem: When you use the "System.Net.Mail" classes in .Net to send an email using smtp how can you specify the logon details to the server. Resolution: To do this you can use the "System.Net.NetworkCredential" .Net Class. Some example COBOL that uses this is:-       $set sourceformat"variable"        program-id. Program1 as "SMTP.Program1".        environment division.        configuration section.        repository.             class cMailMessage      as "System.Net.Mail.MailMessage"             class cMailAddress      as "System.Net.Mail.MailAddress&q

Problem: How is it possible to set the SQL directive CURSOR_CLOSE_ON_COMMIT from COBOL? Resolution: Only specific SET statements can be executed through the static form of the exec sql statement - such as the ones specifically identified in the Net Express documentation i.e. set autocommit, set connection, set concurrency, set scrolloption etc.   All other set statements need to be handled by the EXECUTE IMMEDIATE statement as follows:           MOVE "SET CURSOR_CLOSE_ON_COMMIT ON" TO WS-MYSQL           EXEC SQL EXECUTE IMMEDIATE :WS-MYSQL END-EXEC where ws-mysql is declared as a character string. Alternatively using the same method as described above, you could set the SQL directive ANSI_DEFAULTS. When enabled (ON), this option enables the following SQL-92 settings: SET ANSI_NULLS SET CURSOR_CLOSE_ON_COMMIT SET ANSI_NULL

Problem: The following line fails with "912-S Internal error - Dictionary invalid r/w 00000000" in Net Express 4.0 with All WebSync WrapPack v4.0.005 (all05n40.exe): DISPLAY FUNCTION WHEN-COMPILED(7:2) AT LINE 25 COL 09. The above however does not fail in any of the previous version of WrapPacks, even with previous versions of Net Express. Resolution: This has been fixed since All WebSync WrapPack v4.0.006 (all06n40.exe). Old KB# 3971

Problem: Release 4.0: Zielsystem BS2000: Der Net Express Compiler akzeptiert auch syntaktisch sehr rudimentäre Programme. Wesentliche Bestandteile eines Cobol Programmes können fehlen, ohne dass ein Fehler gemeldet wird. In diesem Fall fehlte die  'DATA DIVISION'. Auf dem Zielsystem BS2000 ist jedoch eine vollständige Programmstruktur gefragt. Mit welcher Directive kann man das in NE erzwingen ? BS2000 und ANS85 helfen nicht. Resolution: Nehmen Sie bitte die folgende Direktivenzeile mit auf: $set DIALECT"BS2000" FLAG"BS2000" Während der Umwandlung des Quelltextes wird das Fehlen der 'DATA DIVISION' vom Compiler bemerkt und als Fehler dargestellt. Old KB# 3930