/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : DSPFF                                       +--*/
/*--+ COMMAND NAME : DISPLAY FILE FORMAT                         +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (98/09/28)                              +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('DISPLAY FILE FORMAT')

             PARM       KWD(FILE) TYPE(GETFILE) MIN(1) PROMPT(FILE)


 GETFILE:    QUAL       TYPE(*NAME) LEN(10)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB) (*USRLIBL) +
                          (*ALLUSR) (*ALL)) PROMPT(LIBRARY)