*DECK DBRCVR
          IDENT DBRCVR
          LDSET  EPT=DBRCN
          LDSET  EPT=DBRST
          END 
