c
      subroutine sendms(dskfile,msspath)
      character*(*) dskfile,msspath
      character*80 msserr
c
c Send local file dskfile to mss at msspath. This is a simple
c version of putms.
c
c If both args are zero-length, give error msg and return:
c
      ldskfile = lenstr(dskfile)
      lmsspath = lenstr(msspath)
      if (ldskfile.le.0.and.lmsspath.le.0) then
        write(6,"(/'>>> sendms: zero length dskfile and ',
     +    'msspath -- no file disposed to mss'/)")
        return
      endif
c
c If msspath not given (zero-length), file is disposed by mswrite
c to /USER/dskfile, where USER will be the upper-case name of the 
c user, i.e., their MSS root directory:
c
      if (lmsspath.le.0) then
        write(6,"(/'>>> sendms: zero length msspath -- ',
     +    'will dispose mss /USER/',a,', where ',/12x,
     +    ' USER is your MSS root directory (your login ',
     +    'name in upper case).')") dskfile(1:ldskfile)
        call mswrite(ier,dskfile(1:ldskfile),' ',' ',365,' ')
        if (ier.ne.0) then
          write(6,"('>>> error ',i4,' from mswrite of ',
     +      'local file ',a,' (zero-length msspath)')")
     +      ier,dskfile(1:ldskfile)
          call mserror(msserr)
          write(6,"('mss error msg=',a)") msserr
        else
          write(6,"('Wrote local file ',a,' to mss (under /USER,',
     +      ' where USER is your login name in upper case)')")
     +      dskfile(1:ldskfile)
          write(6,"('(A retention period of 365 days was used)')")
        endif
        return
      endif
c
c Both dskfile and msspath were given:
c
      write(6,"(/'sendms doing mswrite of ',a,' to ',a,' ...')")
     +  dskfile(1:ldskfile),msspath(1:lmsspath)
      call mswrite(ier,dskfile(1:ldskfile),msspath(1:lmsspath),
     +  ' ',365,' ')
      if (ier.ne.0) then
        write(6,"('>>> sendms: error ',i4,' from mswrite of ',
     +    'local file ',a,' to mss file ',a)")
     +    ier,dskfile(1:ldskfile),msspath(1:lmsspath)
        call mserror(msserr)
        write(6,"('mss error msg=',a,/)") msserr
      else
        write(6,"('Wrote local file ',a,' to mss file ',a)")
     +    dskfile(1:ldskfile),msspath(1:lmsspath)
        write(6,"('(A retention period of 365 days was used)'/)")
      endif
      return
      end