Defining, or using, dates on a command definition

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I have an RPGLE program with the following:
     FDIRLOCAL01IP   E           K DISK
     ...
     D DIRSUMPRT       PI      *entry PLIST
     D DATE1pm                             LIKE(RUNDATE) CONST
OPTIONS(*NOPASS)
     D DATE2pm                             LIKE(RUNDATE) CONST
OPTIONS(*NOPASS)

>From the command definition:
CMD        PROMPT('Compare summarized directories')
PARM       KWD(FIRSTDATE) TYPE(*DATE) CHOICE(DATE) +
             PROMPT('First date')
PARM       KWD(NEXTDATE) TYPE(*DATE) CHOICE(DATE) +
             PROMPT('Next date')

>From the command line:
DIRSUMPRT FIRSTDATE('07152002') NEXTDATE('07172002')

>From the program dump:
DATE1PM               DATE(10)             '1020715102'
'F1F0F2F0F7F1F5F1F0F2'X
DATE2PM               DATE(10)             '1020717RST'
'F1F0F2F0F7F1F7D9E2E3'X

>From DSPFFD:
           Data        Field  Buffer    Buffer
Field      Type       Length  Length  Position
RUNDATE    DATE           10      10       264

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin