*===============================================================
      *
      * To compile:
      *
      *      CRTPF  FILE(XXX/EMPMST) SRCFILE(XXX/QDDSSRC)
      *
      *===============================================================
     A                                      UNIQUE
     A          R PFR
     A            DBIDNM         7  0
     A            DBFNAM        20
     A            DBLNAM        20
     A          K DBIDNM