mirror of
https://github.com/moshix/mvs.git
synced 2026-02-28 00:55:52 +00:00
Create FormatVSAM_on_VM.rexx
This commit is contained in:
13
FormatVSAM_on_VM.rexx
Normal file
13
FormatVSAM_on_VM.rexx
Normal file
@@ -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
|
||||
Reference in New Issue
Block a user