Re: Qual parameters in CMDs

Here is how I did it, Scott:

            PARM       KWD(JOB) TYPE(QUAL2) DFT(*) SNGVAL((*)) +
                         PROMPT('Job name or * for current job')

QUAL2:      QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
            QUAL       TYPE(*NAME) LEN(10) MIN(0) EXPR(*YES) +
                         PROMPT('User name')
            QUAL       TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
                         MIN(0) FULL(*YES) PROMPT('Job number')

Steve Landess
Austin, Texas
(512) 423-0935

----- Original Message ----- 
From: "Scott Klement" <klemscot@xxxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Friday, May 09, 2003 10:58 AM
Subject: Qual parameters in CMDs


>
> 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?
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>