*DECK TDBPDEF 
      PROC TDBPDEF; 
      BEGIN 
      CONTROL STEXT;
*CALL DBPDEFS 
      END 
      TERM
