From f613c4e02240dcf2c81908cce5efdea18c4e51fe Mon Sep 17 00:00:00 2001
From: Premkumar Sankaranarayanan <premsank@ibm.com>
Date: Sun, 4 May 2025 09:59:54 -0400
Subject: [PATCH] Sample VSAM Read using mvscmdauth zoau command

---
 samples/vsam_read_sample.sh | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 samples/vsam_read_sample.sh

diff --git a/samples/vsam_read_sample.sh b/samples/vsam_read_sample.sh
new file mode 100644
index 0000000..930ca73
--- /dev/null
+++ b/samples/vsam_read_sample.sh
@@ -0,0 +1,9 @@
+#!/bin/bash
+
+# Purpose: Use ZOAU's mvscmdauth to run IDCAMS and print the contents of a VSAM data set
+#          in character format. The data set is specified as OME.QUAL.D250430.T171115.
+
+# Run IDCAMS to print the VSAM data set
+mvscmdauth --pgm=IDCAMS --sysprint=* --sysin=stdin --INVSAM=OME.QUAL.D250430.T171115 <<EOF
+  PRINT INFILE(INVSAM) CHARACTER 
+EOF