Re: CommandCall question

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

On Friday, February 20, 2004, at 07:27  AM, sublime78ska@xxxxxxxxxxx 
wrote:

> I tried your code and it worked fine.  Mine doesn't though - says the 
> job needs to be qualified when I leave off the job number.
>
> The commands I'm calling are user-written commands - not part of the 
> OS.  Could that be it?  There's got to be a way to do this (without 
> rewriting the CL and CMD code.)

Perhaps you have MIN(1) specified on the job number QUAL statement? If 
you use:

        PARM    KWD(JOB) TYPE(Q1) DFT(*) SNGVAL((*)) +
                          PROMPT('Job name')
Q1: QUAL        TYPE(*NAME) EXPR(*YES) MIIN(1)
        QUAL    TYPE(*NAME) EXPR(*YES) PROMPT('User')
        QUAL    TYPE(*CHAR) LEN(6) RANGE('000000' '999999') +
                          FULL(*YES) EXPR(*YES) PROMPT('Number')

You should be fine. Of course the CPP for the command will have to 
handle the possibility of blank user and number values so a certain 
amount of rewriting may be necessary.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------