*DECK DB$DSCN 
USETEXT SCANTXT 
      PROC DB$DSCN; 
      BEGIN 
  
      DEF DFSCANNERTYP # 1 #;      # SELECT OPERATOR COMMAND SCANNER   #
  
*CALL SCANNER 
  
      END 
      TERM
