TESTKSDS is Rexx exec that can be used as a quick and dirty way of checking to see if a VSAM KSDS dataset is ready to be re-organized or not.

TESTKSDS lets the user define their own site's threshold criteria for comparison.

TESTKSDS is not meant to replace the IBM Tivoli offering but it is free and is a pretty easy to use exec.

TESTKSDS looks at 3 (well 4 really) bits of information and compares the values of these bits of information to the site values and indicates if the dataset needs to be reorganized or not.

The information checked is:
  1. Number of extents the dataset is in.
  2. Freespace percentage.
  3. Number of CI and CA splits.
The exec does not actually reorganize the dataset. That is down to the site.

To reorganize a VSAM file please refer to your site data administrator, but basically it involves the following process:
  • Export the file.
  • Delete the file.
  • Redefine the file again.
  • Import the file.
Please check with your site to see if any benefit can be gained from reorganizing a KSDS as there are situations (RAID drives, Solid State DASD etc.) where doing so produces zero benefit.

TESTKSDS has 2 aliases (REORG & TESTVSAM) these are for historical reasons and can be deleted they are not needed.

To see a demonstration of TESTKSDS can be found on YouTube here.

 
 
  Step 1

Download The TESTKSDS Facility

The TESTKSDS facility is distributed as a binary XMI file.

Download the XMI file from here.
 
 
 
  Step 2

Upload The TESTKSDS Facility to the Target z/OS System

File transfer the XMI file downloaded in Step 1 up to the target z/OS system as a binary file. The XMI file must be transferred as a binary file otherwise the file will be corrupt.
 
 
 
  Step 3

RECEIVE the Transferred File

Issue the TSO RECEIVE command for the file that was transferred to the target system.

RECEIVE your.uploaded.file.XMI

 
 
 
  Step 4

Run the UNPACK member of the Received Dataset

The UNPACK member of the received dataset will extract the three datasets that comprise the TESTKSDS facility.

Follow the prompts issued by the UNPACK member and the ISPPLIB, ISPMLIB and REXX  datasets and a PDF dataset will be allocated and populated with all of the required components.

To execute the UNPACK member either put an EX next to the member i.e.

Executing the UNPACK member
   Menu  Functions  Confirm  Utilities  Help                                    
 ------------------------------------------------------------------------------
 EDIT              ABBYDALE.TESTKSDS.PDS                     Row 00001 of 00010
 Command ===>                                                  Scroll ===> CSR 
            Name     Prompt       Size   Created          Changed          ID
 _________ $$$INDEX          
 _________ $$INFO            
 _________ $$INSTAL          
 _________ COPYRITE          
 _________ DISCLAIM          
 _________ ISPMLIB           
 _________ ISPPLIB           
 _________ README            
 _________ REXX              
 EX        UNPACK            
           **End**  


Alternatively issue the execute as you would any other REXX exec. i.e.

TSO EX 'your.received.dataset(UNPACK)'

 
 
 
  Step 5

Read the $$INSTAL Member to Complete the Installation

The $$INSTAL member of the received dataset contains instructions of how to complete the installation of the TESTKSDS facility.

The implementation will differ depending on the site standards but essentially you need to make the ISPPLIB, ISPMLIB and REXX libraries available to the users.
 
 
 

 
 


If you need any support or assistance with any of the code on this site
or
if you would like to contact us, please click here

follow us on facebook
Follow us on Facebook

 

Number of unique visitors 325

Copyright © Abbydale Systems LLC 2015-2024

Abbydale Systems LLC Lic. 802696149. All rights reserved.

Last modified : Sunday 20th of August 2023