|
|
|
/* COPYRIGHT JÜRGEN REULE 2022-2023 */ |
|
|
|
|
|
|
|
|
CMD |
PROMPT('Anfrage aufzeichnen') |
|
|
|
|
|
|
|
|
PARM |
KWD(DTAQ) TYPE(DTAQDS) MIN(1) CHOICE(*NONE) + |
|
|
|
|
PROMPT('Datenwarteschlange') |
|
|
DTAQDS: |
QUAL |
TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES) |
|
|
|
QUAL |
TYPE(*NAME) LEN(10) DFT(*CURLIB) + |
|
|
|
|
SPCVAL((*CURLIB *CURLIB)) EXPR(*YES) + |
|
|
|
|
PROMPT('Bibliothek') |
|
|
|
PARM |
KWD(SUBMIT) TYPE(*CHAR) LEN(1) RSTD(*YES) + |
|
|
|
|
DFT(*YES) SPCVAL((*YES '1') (*NO '0')) + |
|
|
|
|
PROMPT('Job übergeben') |
|