*DECK DB$MSCN                                                            MSCN 
USETEXT SCANTXT 
      PROC DB$MSCN;                                                      MSCN 
      BEGIN 
  
      DEF DFSCANNERTYP # 0 #;      # SELECT MD/DBU VERSION OF SCANNER  #
  
*CALL SCANNER 
  
        END                                                              MSCN 
      TERM                                                               MSCN 
