Re: Command help...

[Dave McKenzie <davemck@xxxxxxxxxxxxx>]

sjl,

RTVCMDSRC isn't part of TAATOOLS.  It's freeware, available here:

 http://www.as400network.com/sharewarefiles/rtvcmd.zip

--Dave

sjl wrote:
> Brian -
>
> We don't have TAATOOL here...thanks!
>
> - sjl
>
> "Brian Johnson" <brian.johnson.mn@xxxxxxxxx> wrote in message 
> news:mailman.2177.1207781460.2390.midrange-l@xxxxxxxxxxxxxxx
> On Wed, Apr 9, 2008 at 5:44 PM, sjl <sjl_abc@xxxxxxxxxxx> wrote:
> > All -
> >
> > Thanks in advance for your help.
> >
> > In a custom command, I need to code a parameter that looks like this:
> >
> >
> > Range of journal receivers:       RCVRNG
> >  Starting journal receiver  . .     __________
> >    Library  . . . . . . . . . .                 __________
> >  Ending journal receiver  . . .    __________
> >    Library  . . . . . . . . . .                 __________
>
> > From RTVCMDSRC (TAA tool?) run against DSPJRN command:
>
>              PARM       KWD(RCVRNG) +
>                         TYPE(E0B3A) +
>                         DFT(*CURRENT) +
>                         SNGVAL( +
>                           (*CURRENT ) +
>                           (*CURCHAIN )) +
>                         PROMPT('Range of journal receivers' 8)
>
> E0B3A:       ELEM       TYPE(Q1058) +
>                         MIN(1) +
>                         CHOICE(*NONE) +
>                         PROMPT('Starting journal receiver')
>              ELEM       TYPE(Q1058) +
>                         DFT(*CURRENT) +
>                         SNGVAL( +
>                           (*CURRENT )) +
>                         PROMPT('Ending journal receiver')
>
> Q1058:       QUAL       TYPE(*NAME) +
>                         LEN(10) +
>                         MIN(1) +
>                         EXPR(*YES)
>              QUAL       TYPE(*NAME) +
>                         LEN(10) +
>                         DFT(*LIBL) +
>                         SPCVAL( +
>                           (*LIBL ) +
>                           (*CURLIB *CURLIB   )) +
>                         EXPR(*YES) +
>                         PROMPT('Library')