Re: Command help...

["Brian Johnson" <brian.johnson.mn@xxxxxxxxx>]

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')