c
	Character*64	FTP$FULLDEVNAM
	Character*12	FTP$LABEL
	Character*8	FTP$CARRIAGE_CONTROL,	FTP$RECORD_TYPE
c
	Integer		FTP$FULLDEVNAM_LEN,	FTP$LABEL_LEN
	Integer		FTP$DEVDEPEND,		FTP$DEVDEPEND2
	Integer		FTP$DEVCHAR,		FTP$DEVCHAR2
	Integer		FTP$DEVCLASS,		FTP$BUFSIZ
	Integer		FTP$DEVPID,		FTP$MYPID
	Integer		FTP$DENSITY,		FTP$DUMMY
	Integer		FTP$RECSIZ,		FTP$BUFCNT
	Integer		FTP$FILCNT
c
	COMMON	/FTP$DEVINFO/
	1		FTP$FULLDEVNAM	,	FTP$FULLDEVNAM_LEN
	1	,	FTP$LABEL	,	FTP$LABEL_LEN
	1	,	FTP$RECORD_TYPE	,	FTP$CARRIAGE_CONTROL
	1	,	FTP$DEVDEPEND	,	FTP$DEVDEPEND2
	1	,	FTP$DEVCHAR	,	FTP$DEVCHAR2
	1	,	FTP$DEVCLASS	,	FTP$BUFSIZ
	1	,	FTP$DEVPID	,	FTP$MYPID
	1	,	FTP$DENSITY	,	FTP$DUMMY
	1	,	FTP$RECSIZ	,	FTP$BUFCNT
	1	,	FTP$FILCNT
c
