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