|
|
|
/* COPYRIGHT JÜRGEN REULE 2022-2023 */ |
|
|
|
|
|
|
|
|
CMD |
PROMPT('Anfrage aufzeichnen') |
|
|
|
|
|
|
|
|
PARM |
KWD(DTAQ) TYPE(DTAQDS) MIN(1) CHOICE(*NONE) + |
|
|
|
|
PROMPT('Datenwarteschlange') |
|
|
|
PARM |
KWD(HOURX) TYPE(*CHAR) LEN(2) EXPR(*YES) + |
|
|
|
|
PROMPT('Aufzeichnen ab Stunde') |
|
|
DTAQDS: |
QUAL |
TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES) |
|
|
|
QUAL |
TYPE(*NAME) LEN(10) DFT(*CURLIB) + |
|
|
|
|
SPCVAL((*CURLIB *CURLIB)) EXPR(*YES) + |
|
|
|
|
PROMPT('Bibliothek') |
|