/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : DSPPFR                                      +--*/
/*--+ COMMAND NAME : DISPLAY NUMBER OF PF RECORDS                +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (98/10/12)                              +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('DISPLAY NUMBER OF PF RECORDS')

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


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