CMD        PROMPT('Display journal activity')


/*                                                                  */
/*  DBF:  The qualified name of the file to work with...            */
/*                                                                  */
             PARM       KWD(DBF) TYPE(Q1) MIN(1) PROMPT('File name')

/* The qualified object name breakdown...                           */
 Q1:         QUAL       TYPE(*NAME) LEN(10) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) MIN(1) PROMPT('Library')