Re: Special values in a command definition for DATE and TIME

[Glenn Gundermann <glenn.gundermann@xxxxxxxxx>]

Hi Jeff,

I used the RTVCMDSRC command on DSPLOG.  Here is a partial listing:

PARM       KWD(PERIOD) +
           TYPE(E01C5) +
           CHOICE(*NONE) +
           PROMPT('Time period for log output' 2)

E01C5:       ELEM       TYPE(E01FF) +
                        CHOICE(*NONE) +
                        PROMPT('Start time and date')
             ELEM       TYPE(E0272) +
                        CHOICE(*NONE) +
                        PROMPT('End time and date')

E01FF:       ELEM       TYPE(*TIME) +
                        DFT(*AVAIL) +
                        SPCVAL( +
                          (*AVAIL 000000)) +
                        EXPR(*YES) +
                        PROMPT('Beginning time')
             ELEM       TYPE(*DATE) +
                        DFT(*CURRENT) +
                        SPCVAL( +
                          (*CURRENT 000004) +
                          (*BEGIN 000005)) +
                        EXPR(*YES) +
                        PROMPT('Beginning date')

E0272:       ELEM       TYPE(*TIME) +
                        DFT(*AVAIL) +
                        SPCVAL( +
                          (*AVAIL 235959)) +
                        EXPR(*YES) +
                        PROMPT('Ending time')
             ELEM       TYPE(*DATE) +
                        DFT(*CURRENT) +
                        SPCVAL( +
                          (*CURRENT 000004) +
                          (*END 000006)) +
                        EXPR(*YES) +
                        PROMPT('Ending date')




Yours truly,

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


On 21 October 2016 at 11:54, Jeff Young <jyoung0950@xxxxxxxxx> wrote:

> I have a command that prompts for a From/To Date and Time.
> I wanted to add the special values *CURRENT for the dates and *AVAIL for
> the times and have my program determine the correct values.
> It seems that the command definition does not allow special values for
> these data types.
>
> Does anyone have a way to do this?
>
> Jeff Young
> Sr. Programmer Analyst
> --
> 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: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.