|
|
|
/* COPYRIGHT JÜRGEN REULE 2019-2023 */ |
|
|
|
|
|
|
|
|
CMD |
PROMPT('TN5250 Session starten/beenden') |
|
|
|
|
|
|
|
|
PARM |
KWD(SESSION) TYPE(*GENERIC) LEN(10) MIN(1) + |
|
|
|
|
EXPR(*YES) PROMPT('Session') |
|
|
|
PARM |
KWD(REMOTE) TYPE(*DEC) LEN(3) + |
|
|
|
|
EXPR(*YES) PROMPT('Remote') |
|
|
|
PARM |
KWD(SET) TYPE(*CHAR) LEN(1) RSTD(*YES) + |
|
|
|
|
DFT(*ON) SPCVAL((*ON '1') (*OFF '0')) + |
|
|
|
|
PROMPT('Starten') |
|
|
|
PARM |
KWD(X) TYPE(*CHAR) LEN(1) CONSTANT('0') |
|