Re: User command help

[Glenn Gundermann <glenn.gundermann@xxxxxxxxx>]

Hi Rob,

Looks like you have the default value specified twice.  Remove it from the
QUAL statement, i.e.
 Q4:  QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)


Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Work: (905) 486-1162 x 239
Cell: (416) 317-3144


On 5 October 2017 at 08:09, Robert Rogerson <rogersonra@xxxxxxxxx> wrote:

>    Hi All,
>
>    I'm trying to create a user command
>
>                 CMD        PROMPT('Display Journal Extract')
>                 PARM       KWD(JRNFILE) TYPE(Q1) MIN(1) +
>                            PROMPT('Journaled File')
>                 PARM       KWD(EXTFILE) TYPE(Q2) MIN(1) +
>                            PROMPT('Extract to File')
>                 PARM       KWD(JOURNL ) TYPE(Q3) MIN(1) +
>                            PROMPT('Journal')
>                 PARM       KWD(STRRCV ) TYPE(Q4) MIN(1) +
>                            DFT(*CURRENT) +
>                            PROMPT('Starting Receiver..')
>
>            Q1:  QUAL       TYPE(*NAME) LEN(10) MIN(1)
>                 QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
>                            SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
>                            PROMPT('Library')
>            Q2:  QUAL       TYPE(*NAME) LEN(10) MIN(1)
>                 QUAL       TYPE(*NAME) LEN(10) DFT(*CURLIB) +
>                            SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
>                            PROMPT('Library')
>            Q3:  QUAL       TYPE(*NAME) LEN(10) MIN(1)
>                 QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
>                            SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
>                            PROMPT('Library')
>            Q4:  QUAL       TYPE(*NAME) LEN(10) DFT(*CURRENT) +
>                            SPCVAL((*CURRENT)) EXPR(*YES)
>                 QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
>                            SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
>                            PROMPT('Library')
>
>    The problem I'm having is specifying or rather displaying the value
>    *CURRENT in Q4.
>
>    I'm thinking I want it similar to member - *FIRST in the CPYF command
>
>                                   Copy File (CPYF)
>
>    Type choices, press Enter.
>
>    From file  . . . . . . . . . . . Name
>      Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB
>    To file  . . . . . . . . . . . .                 Name, *PRINT
>      Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB
>    From member  . . . . . . . . . .   *FIRST        Name, generic*, *FIRST,
>    *ALL
>    To member or label . . . . . . .   *FIRST        Name, *FIRST, *FROMMBR,
>    *ALL
>    Replace or add records . . . . .   *NONE         *NONE, *ADD,
> *REPLACE...
>    Create file  . . . . . . . . . .   *NO           *NO, *YES
>    Print format . . . . . . . . . .   *CHAR         *CHAR, *HEX
>
>    Actually, I'm thinking maybe I can't do this with QUAL.or TYPE(*NAME).
>
>    Does anyone know how to do it or is it even possible?
>
>    Thanks,
>
>    Rob
> --
> 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: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD