Test 2 Librarys 12 Vols meddfnhts2 und Comand

2026-10-09 13:33:10 +02:00
parent 464c673630
commit 62d400c234
2 changed files with 268 additions and 0 deletions
@@ -0,0 +1,57 @@
+CMD        PROMPT('Create MEDDFN - 2 libraries, 12 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(DEV1) TYPE(*NAME) LEN(10) MIN(1)      +
+             PROMPT('Tape library/device 1')
+
+PARM KWD(DEV2) TYPE(*NAME) LEN(10) MIN(1)      +
+             PROMPT('Tape library/device 2')
+
+PARM KWD(VOL1) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 1 volume 1')
+
+PARM KWD(VOL2) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 1 volume 2')
+
+PARM KWD(VOL3) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 1 volume 3')
+
+PARM KWD(VOL4) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 1 volume 4')
+
+PARM KWD(VOL5) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 1 volume 5')
+
+PARM KWD(VOL6) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 1 volume 6')
+
+PARM KWD(VOL7) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 2 volume 1')
+
+PARM KWD(VOL8) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 2 volume 2')
+
+PARM KWD(VOL9) TYPE(*CHAR) LEN(6) MIN(1)       +
+             PROMPT('Library 2 volume 3')
+
+PARM KWD(VOL10) TYPE(*CHAR) LEN(6) MIN(1)      +
+             PROMPT('Library 2 volume 4')
+
+PARM KWD(VOL11) TYPE(*CHAR) LEN(6) MIN(1)      +
+             PROMPT('Library 2 volume 5')
+
+PARM KWD(VOL12) TYPE(*CHAR) LEN(6) MIN(1)      +
+             PROMPT('Library 2 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')