RE: RTVCMDSRC has some bug(s) -- RPG400-L

That level 10 error "Choice(*VALUES) doesn't fit" is just a warning. To
build the prompter, the system uses the list of values from the VALUES,
SPCVAL, and/or SNGVAL keywords. That "choice" appears to the right of
the keyword on the prompter.
It shouldn't cause you any problems, but if you want to get rid of it,
simply specify a value for the CHOICE keyword on the PARM statement.
Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]
On
> Behalf Of JIM LANGSTON
> Sent: Tuesday, July 31, 2001 6:05 PM
> To: RPG400-L
> Subject: RTVCMDSRC has some bug(s)
> 
> RTVCMDSRC which I downloaded has some bugs with V4R4 it would
> seem.  That is, I used it to retrieve the source for CRTRPGPGM,
> made the one change to the source, and tried to compile it, but
> it produced lots of errors.
> 
> The errors seemed to occur every parameter that had SPCVAL or
> SNGVAL parameters, as shown here:
> 
>   12200-               PARM       KWD(SRTSEQ) +
>   12300                           TYPE(Q0967) +
>   12400                           DFT(*HEX) +
>   12500                           SNGVAL( +
>   12600                             (*HEX ) +
>   12700                             (*JOB ) +
>   12800                             (*JOBRUN ) +
>   12900                             (*LANGIDUNQ ) +
>   13000                             (*LANGIDSHR )) +
>   13100                           PMTCTL(*PMTRQS) +
>   13200                           PROMPT('Sort sequence' 14)
> * CPD0267  10  CHOICE(*VALUES) specified, but not all values fit.
>   21100-               PARM       KWD(AUT) +
>   21200                           TYPE(*NAME) +
>   21300                           LEN(10) +
>   21400                           DFT(*LIBCRTAUT) +
>   21500                           SPCVAL( +
>   21600                             (*LIBCRTAUT ) +
>   21700                             (*ALL ) +
>   21800                             (*CHANGE ) +
>   21900                             (*USE ) +
>   22000                             (*EXCLUDE )) +
>   22100                           PMTCTL(*PMTRQS) +
>   22200                           PROMPT('Authority' 21)
> * CPD0267  10  CHOICE(*VALUES) specified, but not all values fit.
> 
> I don't know enough about creating commands (I've done it a few
> times and taken defaults for almost everything except prompt)
> so don't know what these should look like.
> 
> Anyone have a quick solution?  Otherwise I'll wait til I get some
> "free" time to research creating commands.
> 
> And, no, I didn't change either of these parameters in the source.
> 
> Regards,
> 
> Jim Langston
> Programmer/Analyst
> Cels Enterprises, Inc.
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---