From 0fd1de88267c0e2851e6bf61e41c1f7d73fe9670 Mon Sep 17 00:00:00 2001 From: Eckhard Gosch Date: Tue, 6 Oct 2026 14:43:53 +0200 Subject: [PATCH] Command DCRTMDL6V erstellt --- DCRTMDL6V.cmd | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 DCRTMDL6V.cmd diff --git a/DCRTMDL6V.cmd b/DCRTMDL6V.cmd new file mode 100644 index 0000000..a8fecff --- /dev/null +++ b/DCRTMDL6V.cmd @@ -0,0 +1,36 @@ +CMD PROMPT('Create MEDDFN - 6 volumes') + +PARM KWD(MEDDFN) TYPE(*NAME) LEN(10) MIN(1) + + PROMPT('Media definition') + +PARM KWD(LIB) TYPE(*NAME) LEN(10) DFT(*CURLIB) + + SPCVAL((*CURLIB)) + + PROMPT('Library') + +PARM KWD(DEV) TYPE(*NAME) LEN(10) MIN(1) + + PROMPT('Tape library/device') + +PARM KWD(VOL1) TYPE(*CHAR) LEN(6) MIN(1) + + PROMPT('Volume 1') + +PARM KWD(VOL2) TYPE(*CHAR) LEN(6) MIN(1) + + PROMPT('Volume 2') + +PARM KWD(VOL3) TYPE(*CHAR) LEN(6) MIN(1) + + PROMPT('Volume 3') + +PARM KWD(VOL4) TYPE(*CHAR) LEN(6) MIN(1) + + PROMPT('Volume 4') + +PARM KWD(VOL5) TYPE(*CHAR) LEN(6) MIN(1) + + PROMPT('Volume 5') + +PARM KWD(VOL6) TYPE(*CHAR) LEN(6) MIN(1) + + PROMPT('Volume 6') + +PARM KWD(TEXT) TYPE(*CHAR) LEN(50) DFT(*BLANKS) + + PROMPT('Text description') + +PARM KWD(REPLACE) TYPE(*CHAR) LEN(4) RSTD(*YES) + + DFT(*NO) SPCVAL((*YES) (*NO)) + + PROMPT('Replace existing') \ No newline at end of file