Rocket® COBOL

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

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

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

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 environment is used to demonstrate how to create/incorporate custom tools in the Net Express IDE. Resolution: INTRODUCTION ========== This demo environment is used to demonstrate how to create/incorporate custom tools in the Net Express IDE.  In this case the Tool is used to add a line number to a program and also to add a comment in column 73-80. SOURCE FILES: ========= Program Files         Description -------------------     ----------------------------------------------------------- reseqnID.cbl          Source of Tool to be used within the IDE CobolPgm.cbl         COBOL Skeleton Program Resource Files: -------------------     ----------------------------------------------------------- buildtool.bat     &nb

Problem: JCL with FBA report file 139 length error on the file open.   Resolution: After  DIALECT(OS390) add  NOADV and AMODE(31). Old KB# 4022

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: 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: 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: 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: 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: Release 4.0: How to get rid off the message after every compilation of any program: The Micro Focus COBOL RTS has detected an RTS error number 173, and has coredumped the process into E:\\NETEXPRESS\\DUMP\\cblcore Resolution: Go to Options -> Animate -> and under Error Handling: Error handling when running programs outside of the IDE change the Core Dump in the drop down menu to Default. Old KB# 4041

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: Example of the COBOL sort using two ways: a sort with Using and Giving and a sort with an Input Procedure and an Output Procedure Resolution: INTRODUCTION ========== This program shows an example of SORTing a file using two  methodolgies, a SORT with USING & GIVING and a SORT with an INPUT PROCEDURE & OUTPUT PROCEDURE.  SORT examples making use of combinations of these methodologies (i.e.SORT with INPUT PROCEDURE & GIVING) are not shown, but can be easily created using the examples given in this program.*