I am trying to FTP a file from a NT box inside of a FORTRAN program and
then process the file.  The record size is 100 bytes.  The file size on
the NT server is 9900 bytes.  There is only 100 bytes in the file on the
HP3000 after transfer (first record of the NT file).  The results are
the same when running FTP from the colon prompt.  The status indicates
that the FTP server is an UNIX instead of a NT box.  FTP also recognizes
the size of the file on the NT server.  FTP also indicates the full 9900
bytes were transferred.  The status indicates that 'some records
truncated during transfer'.

:ftp srv-yyyy
File Transfer Protocol [A0007L12] (C) Hewlett-Packard Co. 1990
220 srv-yyyy   FTP server (Version wu-2.4.2-academ[BETA-12](1) Wed Mar
5 12:37:21 EST 1997) ready.
Connected to srv-yyyyy.adtran.com ().  (FTPINFO 40)
Name(manager): yyyyyy
331 Password required for yyyyyy.
Password:
230 User yyyyyy logged in.
Remote system type is UNIX.
ftp> ascii
200 Type set to A.
ftp> get hp_data.log autof
200 PORT command successful.
150 Opening ASCII mode data connection for hp_data.log (9900 bytes).
Some records were truncated during transfer.  (FTPWARN 15 )
226 Transfer complete.
9900 bytes received in 0.01 seconds (743.69 Kbytes/sec)
ftp> exit
221 Goodbye.
:listf autof,2
ACCOUNT=  TEST        GROUP=  AUTOBANK

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

AUTOF             100B  FA           1     204800   1       16  1  8


FTP works correctly if the file is on an UNIX server.

:ftp xxxxxb1a
File Transfer Protocol [A0007L12] (C) Hewlett-Packard Co. 1990
220 baandb1a FTP server (Version 1.7.212.1 Sat Feb  1 01:30:15 GMT 1997)
ready.
Connected to db1a-db().  (FTPINFO 40)
Name(manager): xxxxxx
331 Password required for xxxxxx.
Password:
230 User xxxxxx logged in.
Remote system type is UNIX.
ftp> get upload autof
200 PORT command successful.
150 Opening ASCII mode data connection for upload (5050 bytes).
226 Transfer complete.
5100 bytes received in 0.04 seconds (138.35 Kbytes/sec)
ftp> exit
221 Goodbye.
:listf autof,2
ACCOUNT=  TEST        GROUP=  AUTOBANK

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

AUTOF             100B  FA          50     204800   1       32  1  8


I appreciate any suggestions.
roger                           [log in to unmask]