Rocket® COBOL

Problem: This example illustrates how to format and use long file names with call-by-name routines. Resolution: =========== INTRODUCTION ========== This example illustrates how to format and use long file names with call-by-name routines. SOURCE FILES: ========= Program Files     Description ----------------     ----------------------------------------------------------- Cbnrndlf.cbl       Example program that uses call-by-name routines and long file names. OPERATION: ======== Rebuild the example program and then Animate the program. As you step through the program you will see that the text file in the project directory (LongFileName.txt) is copied and assigned the name "CopiedFile.txt". Next, the new file is renamed "RenamedFile.txt". Finally, the new file is deleted. NOTE: ==== The three constants that follow provide three long f

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

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: 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: COBOL program calling Btrieve 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. A file is created, opened, and

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: 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 demo demonstrate how to call the File Handler, EXTFH directly from a COBOL program. Resolution: ============ INTRODUCTION ========== This demo demonstrate how the File Handler, EXTFH can be called directly. OPERATION: ======== The zip file consist of 2 samples, one showing how to read and write to an index file while the other shows how you can create and read a line sequential file. NOTE: ==== For more details on how to call the File Handler please refer to the File Handling Programmer's Guide in Chapter 7. ========================================================== Keywords: demonstration, sample, example, demo, extfhdemos.zip demo.ex demo.me demo.ne demo.se Attachments: extfhdemos.zip Old KB# 4006#ServerExpress#COBOL#AcuCobol#RMCOBOL#netexpress

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: The Micro Focus graphical, shared run-time system, character mode application fonts provide the means to obtain a large, nearly full screen window for character mode applications. Resolution: INTRODUCTION ========== The Micro Focus Graphical, Shared Run-time, character mode application Fonts provide the means to obtain a large, nearly full screen window for character mode applications. SOURCE FILES: ========= Program Files         Description -------------------     ----------------------------------------------------------- Tictac.cbl               Use this program to sample the Fonts and gain familiarity with the Shared                              &nbs

Created On:  05 January 2012 Problem: We crashed when using fsmgr and received the return code 10053.  Why is this? 4:35:29 24.05.2006 CCITCP (tcpnet.c $Revision: 4.130 $:0066) 20000 E send(), called in mFt_net_Send_Header, failed with return code 10053. 04:35:29 24.05.2006 CCITCP (tcpnet.c $Revision: 4.130 $:0066) 20000 E send(), called in mFt_net_Send_Header, failed with return code 10053. 04:36:41 24.05.2006 CCITCP (tcpnet.c $Revision: 4.130 $:0066) 20000 E send(), called in mFt_net_Send_Header, failed with return code 10053. Resolution: The error 10053 almost always occurs because the remote end fails to respond with an acknowledgement of a data packet that has been sent to it. This error is not generated until retries have been attempted and the lack response to all of them has timed out. In the really old days of DOS TCP/IP stacks and Windows 16-bit applications the stacks could sometimes get confused and issue this error timed from the initia

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: 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: Can you create a screenset that has a Cancel button that will terminate some processing code? Some of this text refers to the accompanying demo.        There may be times when your Dialog System application has to execute        some process that you may want to cancel at some point. If your        processing is done in a long-running loop in the COBOL program, then any        button that you may have on a window cannot respond to click events        during that processing.        If you want to have a Cancel button to stop processing, you will need to        break up your long-running process into small units of work, where at the        end of each unit, you will call Dialog

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