*===============================================================
      *
      * To compile:
      *
      *      CRTPF  FILE(XXX/EMPSUB) SRCFILE(XXX/QDDSSRC)
      *
      *===============================================================
     A          R PFR2
     A            EMPLOY         7  0
     A            SUBORD         7  0
     A          K EMPLOY
     A     
     K SUBORD