      CHARACTER*2 sc /'A1'/
      CHARACTER*7 validfrom,validto

      CALL instdates(sc,validfrom,validto)
      WRITE(6,2) sc, validfrom,validto

    2 FORMAT( A2,1x,A7,1x,A7)
      END
