PARM KWD(JOBD) TYPE(*CHAR) LEN(10) RTNVAL(*NO) +
RSTD(*NO) MIN(0) CHOICE(ZEICHENWERT) +
PROMPT('Jobbeschreibung')
PARM KWD(RJOBD) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
RSTD(*NO) MIN(0) CHOICE(*VALUES) +
PROMPT('Return JOBD (10)')
PARM KWD(RJOBDL) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
RSTD(*NO) MIN(0) CHOICE(*VALUES) +
PROMPT('Return JOBD Bibl. (10)')
PARM KWD(RJOBQ) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
RSTD(*NO) MIN(0) CHOICE(*VALUES) +
PROMPT('Return JOBQ (10)')
PARM KWD(RJOBQL) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
RSTD(*NO) MIN(0) CHOICE(*VALUES) +
PROMPT('Return JOBQ Bibl. (10)')
PARM KWD(RJOBDU) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
RSTD(*NO) MIN(0) CHOICE(*VALUES) +
PROMPT('Return JOBD User (10)')
PARM KWD(RJOBPTY) TYPE(*CHAR) LEN(2) RTNVAL(*YES) +
RSTD(*NO) MIN(0) CHOICE(*VALUES) +
PROMPT('Return JOBQ JOBPTY (02)')
PARM KWD(RJOBHLD) TYPE(*CHAR) LEN(10) +
RTNVAL(*YES) RSTD(*NO) MIN(0) +
CHOICE(*VALUES) PROMPT('Return JOBQ +
JOBHLD (10)')
PARM KWD(RJOBOUTQ) TYPE(*CHAR) LEN(10) +
RTNVAL(*YES) RSTD(*NO) MIN(0) +
CHOICE(*VALUES) PROMPT('Return JOBQ +
OUTQ (10)')
PARM KWD(RJOBOUTQL) TYPE(*CHAR) LEN(10) +
RTNVAL(*YES) RSTD(*NO) MIN(0) +
CHOICE(*VALUES) PROMPT('Return JOBQ OUTQ +
Bibl.(10)') PARM KWD(RJOBOPTY) TYPE(*CHAR) LEN(2) +
RTNVAL(*YES) RSTD(*NO) MIN(0) +
CHOICE(*VALUES) PROMPT('Return JOBQ +
OUTQPTY (02)')
PARM KWD(RJOBPDEV) TYPE(*CHAR) LEN(10) +
RTNVAL(*YES) RSTD(*NO) MIN(0) +
CHOICE(*VALUES) PROMPT('Return JOBQ +
Printer (10)')

und hier der CL-Aufruf
PGM PARM(&JOBD &RJOBD &RJOBDL &RJOBDU &RJOBQ +
&RJOBQL &RJOBPTY &RJOBHLD &RJOBOUTQ +
&RJOBOUTQL &RJOBOPTY &RJOBPDEV)

DCL VAR(&RJOBD) TYPE(*CHAR) LEN(10)
DCL VAR(&RJOBDL) TYPE(*CHAR) LEN(10)
DCL VAR(&RJOBDU) TYPE(*CHAR) LEN(10)
DCL VAR(&RJOBQ) TYPE(*CHAR) LEN(10)
DCL VAR(&RJOBQL) TYPE(*CHAR) LEN(10)
DCL VAR(&RJOBPTY) TYPE(*CHAR) LEN(2)
DCL VAR(&RJOBHLD) TYPE(*CHAR) LEN(10)
DCL VAR(&RJOBOUTQ) TYPE(*CHAR) LEN(10)
DCL VAR(&RJOBOUTQL) TYPE(*CHAR) LEN(10)
DCL VAR(&RJOBOPTY) TYPE(*CHAR) LEN(2)
DCL VAR(&RJOBPDEV) TYPE(*CHAR) LEN(10)

Und wenn Du mal bei dem Googlehupf nach QWDJRJOBD suchst, findes Du auch zum Format JOBD0100 die Parametrierung !

Andreas