The Legac-e Information Site

Phase 4 - Read VSAM

With the ability to pass data back and forth established it was time to demonstrate a real task.

The links opposite relate to the routines used to retrieve individual records from a VSAM KSDS Cluster via their key value. (Remember REXX EXECIO does not support VSAM files.)

Phase 4 - Reading a VSAM KSDS by Record Key

• The REXX routine used as the driver.
  
  Basically the same as in Phase 3 but with the second parameter increased in size to accommodate the KSDS record, and the addition of a STEM holding 10 record key values.
  
  
• The Assembler program invoked from REXX
  
  The same as that in Phase 3 as no further changes were required.
  
  
• The COBOL program invoked by the Assembler interface
  
  A fully functioning program to OPEN, READ and CLOSE the VSAM Cluster as required.
  
  
• The Job Control Language (JCL) used for the test.
  
  Batch jobs were used for all test runs to aid debugging as and when necessary.
  
  
• The Job Control Language (JCL) to load the KSDS Cluster.
  
  
• Data loaded into the KSDS Cluster.