Rocket® COBOL

Problem: This sample demonstrates the features of the datewarp_dynamic and timewarp_dynamic runtime tunable. Resolution: INTRODUCTION ========== The project file DATEWARP-DEMO.APP demonstrates the features of the datewarp_dynamic and timewarp_dynamic runtime tunables.  You can see the description on these tunables and how to set it by starting the Net Express help, and selecting from the Index: datewarp_dynamic or timewarp_dynamic SOURCE FILES ========= Program Files                     Description ----------------------------     ----------------------------------------------------------- DATEWARP-DEMO.CBL     COBOL source program) MYCONF.CFG                    Run-time syste, configuration fil

Problem: CBL_DEBUGBREAK does not work when COBOL is called from a .Net WebService. In this case the .Net Web Service is C# based and calls COBOL via a Platform Invoke. The COBOL is unmanaged and issues a CBL_DEBUGBREAK call. The debugger never appears. Resolution: At a Net Express Command Prompt you can issue "cblcored -i". This sets up some security setting so that the Service can communicate with the desktop so that the debugger will start. Old KB# 3998

Problem: This project demonstrates the use of an OLE Automation object that returns a variant. Resolution: INTRODUCTION ============ This project demonstrates the use of an OLE Automation object that returns a variant. You can use an object reference as a return type in this case to hold an instance of the OLEVARIANT class. Variant string types will get converted to a character array object so check for that type on the return data.                                                 SOURCE FILES: ========= Program Files                     Description ----------------------------     ---------

Problem: This demo, "AfterAdvancing", creates a file using the "After Advancing" clause, that includes carriage return, line feed and form feed characters, unlike a program using "after positioning." The print program uses Byte-stream File Routines to read the report file, preserving the PC printer control characters, and providing control of the printer and font used to print the report. Resolution: INTRODUCTION ========== This example illustrates how to use a report file created by a COBOL  program using "after advancing" syntax. SOURCE FILES: ========== Program Files      Description ----------------      ----------------------------------------------------------- Opcw32aa.cbl     osvsaa.cbl OPERATION: ======== The example consists of two programs. OSVSAA.CBL is the program that uses  "after advancing

Problem: Demonstrates the use of the OpenDialog class from the COBOL GUI class library that shows a File Open Dialog Box and displays the file selected. Resolution: INTRODUCTION: ========== Demonstrates the use of the OpenDialog class from the COBOL GUI class library that shows a File Open Dialog Box and displays the file selected. SOURCE FILES: ========= Program Files             Description ----------------------     ----------------------------------------------------------- FileOpenDemo.cbl      COBOL source file. REQUIREMENTS: ========== Installation of the GUI class library source files option during NetExpress setup. OPERATION: ======== Run this program to display a File Open dialog box, select a file, and the file name and path will be displayed. Use of the class library requires you to link with the shared cobol runtime

Problem: This error appeared when trying to publish to LINUX with the UNIX Option in Net Express. The version of Net Express used was 3.1 and on LINUX Server Express 4.0 was installed. Resolution: This will work but ONLY if you have the latest nx31 unix publisher fixpack\\websync installed. Installing this fix patch solved the problem. Old KB# 3995

Problem: This demo displays and changes the contents of an environment variable Resolution: INTRODUCTION ========== Displays and changes the contents of an environment variable.      SOURCE FILES: ========= Program Files           Description --------------------     ----------------------------------------------------------- EnvVar.app             Application File EnvVar.cbl               Source File OPERATION: ======== Open the application file. Rebuild and animate the project. The Application Output window displays the environment variables from the COBDIR then displays "Variables not found", & "Not there" ========================================================== Keywords: demons

Problem: This example illustrates how to use the DeviceCapabilities Win32 function to determine the number of copies a local printer is capable printing. It also illustrates how to create a "bridge" Dll for Winspool functions. Resolution: INTRODUCTION ========== This example illustrates how to use the DeviceCapabilities Win32 function to determine the number of copies a local printer is capable of printing. It also illustrates how to create a "bridge" Dll for Winspool functions. SOURCE FILES: ========= Program Files     Description ----------------     ----------------------------------------------------------- DevCaps.cbl      This program uses the DeviceCapabilities function to retrieve the maximum                           

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: What does this error mean? Resolution: The MF-code error 14657 = 9/065 file status. You will get a better status code when you define this as follows:    01  Ws-File-Status.            05  Ws-File-Status-1            pic x(01).            05  Ws-File-Status-2            pic x(01).            05  Ws-File-Status-N            pic 9(02) comp-x                redefines Ws-File-Status-2. Thus 9/065 = file locked. With the  lock mode clause, the default lock mode is set t

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

Problem: This sample demonstrate how to control a character-based application screen size using two new tunables, Screen_Lines and Screen_Cols. Resolution: INTRODUCTION ========== This sample demonstrate how to control a character-based application screen size using two new tunables, Screen_Lines and Screen_Cols. SOURCE FILES: ========== Program Files         Description -------------------     ----------------------------------------------------------- Screensize.cbl Source program simply performing Accept/Display statements Resource Files: -------------------     ----------------------------------------------------------- runtime.cfg            Runtime tunables configuration file REQUIREMENTS: ========== The environment variable COBCONFIG_ needs to be set, pointing to the runtime tunable c

Problem: This program displays a list of Run-time error numbers and ERRORLEVEL values. The displays are re-directed to a text file by the OutDD Compiler directive. Resolution: INTRODUCTION ========== SOURCE FILES: ========= Program Files           Description --------------------     ----------------------------------------------------------- ErrLevel.cbl             This program displays a list of Run-time error numbers and ERRORLEVEL                                 values. The displays are re-directed to a text file by the OutDD                      &n

Problem: This demo shows using intrinsic functions to validate Gregorian dates and create a date such as "Monday, April, 09, 2001". Resolution: INTRODUCTION ========== Using intrinsic functions to validate Gregorian dates and create a date such as "Monday, April, 09, 2001". SOURCE FILES: ========= Program Files         Description -------------------     ----------------------------------------------------------- Calendar.cbl          A main program that requires a "verbose" date. The date should have                               the names of week days and months with the week day, month, numeric day          &

Problem: Extract of Net Express documentation:                   search on keyword rargument-number Accessing Data on the Command Line There are two main ways in which a program can access data on the command line: ACCEPT data-name FROM COMMAND-LINE. This causes the complete contents of the command line to be moved to data-name. Alternately, you can access individual arguments on the command line, using: DISPLAY ... UPON ARGUMENT-NUMBER ACCEPT ... FROM ARGUMENT-NUMBER Resolution: Code attached to KB:        working-storage section.        01 Args-Work-Area.         03 args-num                pic x(4) comp-x.         03 args-val&nbs

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: Net Express documentation regards to  File Handler Configuration ---> File Handling: http://supportline.microfocus.com/documentation/books/nx40/fhpubb.htm      ...           Chapter 6: File Handler Configuration                       FH option BASENAME:  BASENAME=OFF is the default setting BASENAME The BASENAME option determines whether filenames specified in tags can be expressed without pathnames. By default, such filenames have to be expressed with full path information as passed to the File Handler by the calling program. By setting BASENAME=ON, it is possible to specify the filename without the path. Syntax: BASENAME={ON|OFF} Parameters: ON Filename tags can be expressed without path information. OFF All filename tags in the configurati

Problem: Returns all valid drives on a PC using the PC_FIND_DRIVES library routines Resolution: INTRODUCTION ========== Returns all valid drives on a PC. SOURCE FILES: ========= Program Files            Description ---------------------     ----------------------------------------------------------- PcFindDrives.app     Application File DrivinF3.cbl              Source File DrivinFo.cbl              Source File OPERATION: ======== Open the application file and rebuild the project. Animate the program. The Application Output Window appears showing all available drives on your local machine. ========================================================== Keywords: demonstration, sample, example, demo,

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: This demo, "BeforeAdvancing", creates a file using the "Before Advancing" clause that includes carriage return, line feed and form feed characters, (unlike a program using "after positioning".) The print program uses Byte-stream File Routines to read the report file, preserving the PC printer control characters, and providing control of the printer and font used to print the report. Resolution: INTRODUCTION ========== This example illustrates how to use a report file created by a Cobol  program using "before advancing" syntax. SOURCE FILES: ========== Program Files     Description ----------------     ----------------------------------------------------------- osvsba.cbl         opcw32ba.cbl OPERATION: ======== The example consists of two programs. OSVSBA.CBL is the program that uses  &quo

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

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: "COBOL Rocks the World" optional workspace backdrops (wallpaper) for Net Express Resolution: BUILD W/RELEASE:      Net Express v3.1 ===========           Net Express v4.0 INTRODUCTION ========== These are additional workspace backdrop bitmap files which can be   optionally used within the IDE. SOURCE FILES: ========== Program Files               Description --------------------         ----------------------------------------------------------- cobolrocks.bmp           "COBOL Rocks" workspace backdrop (largest in size) cobolrocks16.bmp       "COBOL Rocks" workspace backdrop with 16 colors cobolrocks256.bmp