character*8 dat,ebcdat
      dimension i(2),j(2)
      equivalence (dat,i),(ebcdat,j)
      call hdate(dat)
      print *,dat
      call icl9cedate(ebcdat)
      print *,ebcdat
      print *,i(1),i(2),j(1),j(2)
  1   format(1h ,2i4,4x,2i4)
      end