Indexed Access Method? I believe you'll get an immediate End-of-File condition after the command completes. If this is condition true, then the file is empty. Do you know that the file is empty when you're about to read it? If this is true, why bother with the read at all? Right, you can't read from an empty cluster. Aren't you going to write records to it? In the IBM world you couldn't open an empty cluster for input. I have used it in several shops.
You code your program as if you were using VSAM. It supports larger cluster sizes. This is the main reason that it is used. By defining the constants here in the copybook, I reduce the possibility of introducing errors that hand coding literals might cause. They must not be modified while the dataset is open. To illustrate how to use the routine, the COBOL fragments below are taken from the one of the suite of test programs I used as I developed the routine all of which may be downloaded from this page.
The goal of this particular program is to sequentially load a Key Sequenced dataset. First, the command and dataset parameter blocks must be initialized and a call made to open the dataset:. The key position is the offset, relative to zero, of the key from the beginning of the data record. When set to 0, as in this case, the key begins in the first position of the record. The length of the key field is 10 characters. Following any call to the routine, the return code fields should be tested to determine the success or failure of the processing of the dataset.
There are four fields used to return information:. If any action performed on a VSAM dataset results in an error, a value - usually 8 - is returned, and will be placed in this field. Values in the range of 20 through 28, and are special values indicating conditions signaled by my routine.
When doing the read next, you need to be aware that the key may change. You don't want to find the correct record-type but for the wrong key. Write down some sample data with a few keys and which cover your main data possibilities. Use this to go through yout code. Posted: Mon Sep 30, pm. Hi Bill, Thanks for the reply I changed my code to check the file status. I specified the read statement as below: Code:. Robert, Code:. Why did you not post the entire DD statement for both?
The longer it takes to drag info from you, the longer it will be for us to help. Therefore, adjustments may be needed to execute the jobs and programs when transferred to a system of a different architecture or configuration.
Software Agreement and Disclaimer Permission to use, copy, modify and distribute this software, documentation or training material for any purpose requires a fee to be paid to SimoTime Technologies.
Once the fee is received by SimoTime the latest version of the software, documentation or training material will be delivered and a license will be granted for use within an enterprise, provided the SimoTime copyright notice appear on all copies of the software.
The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software without the written permission of SimoTime Technologies. SimoTime Technologies makes no warranty or representations about the suitability of the software, documentation or learning material for any purpose. It is provided "AS IS" without any expressed or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement.
SimoTime Technologies shall not be liable for any direct, indirect, special or consequential damages resulting from the loss of use, data or projects, whether in an action of contract or tort, arising out of or in connection with the use or performance of this software, documentation or training material. This section includes links to documents with additional information that are beyond the scope and purpose of this document. The first group of documents may be available from a local system or via an Internet connection, the second group of documents will require an Internet connection.
Note: A SimoTime License is required for the items to be made available on a local system or server. Note: The latest versions of the SimoTime Documents and Program Suites are available on the Internet and may be accessed using the icon. If a user has a SimoTime Enterprise License the Documents and Program Suites may be available on a local server and accessed using the icon.
Explore An Enterprise System Model that describes and demonstrates how Applications that were running on a Mainframe System and non-relational data that was located on the Mainframe System were copied and deployed in a Microsoft Windows environment with Micro Focus Enterprise Server. These tables are provided for individuals that need to better understand the bit structures and differences of the encoding formats.
This suite of programs and documentation is available to download for review and evaluation purposes. Other uses will require a SimoTime Software License. Link to an Evaluation zPAK Option that includes the program members, documentation and control files. A good place to start is The SimoTime Home Page for access to white papers, program examples and product information.
This link requires an Internet Connection. SourceForge is an Open Source community resource dedicated to helping open source projects be as successful as possible. This link will require an Internet Connection. Explore the Glossary of Terms for a list of terms and definitions used in this suite of documents and white papers. This document was created and is maintained by SimoTime Technologies.
0コメント