Re: Qual parameters in CMDs

[bdietz@xxxxxx]

I did a RTVCMDSRC for WRKJOB

PARM       KWD(JOB) +
           TYPE(Q0260) +
           DFT(*) +
           SNGVAL( +
             (* )) +
           PROMPT('Job name')

Q0260:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        EXPR(*YES)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        EXPR(*YES) +
                        PROMPT('User')
             QUAL       TYPE(*CHAR) +
                        LEN(6) +
                        RANGE( +
                          '000000' +
                          '999999') +
                        FULL(*YES) +
                        EXPR(*YES) +
                        PROMPT('Number')


-------------------------
 Bryan Dietz
3X Corporation
614-410-9205




midrange-l-bounces@xxxxxxxxxxxx wrote on 05/09/2003 11:58:36 AM:

>
> I'm trying to write a command that has a qualified job as one of it's
> parameters.   My code looks like this:
>
>              PARM       KWD(JOB) TYPE(JOB1) PROMPT('Job Name')
>
>  JOB1:       QUAL       TYPE(*NAME) SPCVAL((*))
>              QUAL       TYPE(*NAME) PROMPT('User')
>              QUAL       TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
>                           PROMPT('Number')
>
> However, this won't compile.  I get this message:
>
> * CPD0244  30  '*         ' for SNGVAL or SPCVAL parameter not valid for
> first QUAL statement in group.
>
> If I change SPCVAL((*)) to SPCVAL((*CURRENT)) it works, but that's not
> what I want :(  I want this to work just like the IBM commands, for the
> sake of consistency.
>
> Anyone know what I'm doing wrong?