From 6eed6788d75845d530a30a1bb00580cd0cdda588 Mon Sep 17 00:00:00 2001
From: moshix <moshix@gmail.com>
Date: Mon, 13 May 2024 02:46:05 -0500
Subject: [PATCH] Create FormatVSAM_on_VM.rexx

---
 FormatVSAM_on_VM.rexx | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 FormatVSAM_on_VM.rexx

diff --git a/FormatVSAM_on_VM.rexx b/FormatVSAM_on_VM.rexx
new file mode 100644
index 0000000..1aaac1d
--- /dev/null
+++ b/FormatVSAM_on_VM.rexx
@@ -0,0 +1,13 @@
+/* REXX EXEC to format a disk for a VSAM catalog*/
+100.MAINLINE:
+/* Direct your PUNCH to an unused RDR class*/ 
+SPOOL PUNCH '*' CLASS P CONT
+/* Put IPL FMT and its batch commands into your RDR */ 
+'PUNCH IPL FMT * (NOH'
+'PUNCH FORMAT DATA A (NOH'
+SPOOL PUNCH '*' CLASS P CLOSE
+/* Make sure IPL FMT heads the RDR queue */
+'ORDER RDR CLASS P'
+/* Invoke IPL FMT by IPLing your RDA */
+'IPLOOC'
+EXIT