d 	FUNCTION JJFTP( buff )
È c.		Reads one record from FOREIGN TAPE, Assigned MT: TAPE
,c.
c.inp.	BUFF	The buffer <CHARACTER*??> to be read into.
ôc.out.	JJFTP	The number read in, or -1, at EOF.
Xc.
¼c. -end.of.info-
 c.
„c.Uses JJMESS to print out message
èc.
Lc.
°	implicit integer (a-z)
	character*(*) buff
xC
ÜC	**********************************************************
@C
¤	PARAMETER EOF='870'X
	PARAMETER NOLOGNAM='908'X	!RETURN CODE
l	PARAMETER NOPRIV = '24'X	!RETURN CODE
Ð	PARAMETER IO$_READLBLK = '21'X	!READ LOGICAL BLOCK CODE FOR QIO
4	PARAMETER IO$_REWIND   = '24'X	!REWIND FUNCTION CODE FOR QIO
˜C
ü	INTEGER*2 ichan,ENDFLAG,IOSB(4)
`		INTEGER*4 SYS$ASSIGN,SYS$QIOW,RETCODE,OUTRECD
Ä	C	***************************************************************
(
C.
Œ
c.
ð
	if( ichan.eq.0 ) then
T	  ichan = 1
¸c.
c... Open the tape
€c.
ä	  if(.not.jjmess(SYS$ASSIGN('TAPE',ichan,,)) ) goto 9000
HC
¬C	  REWIND THE TAPE
	  if(.not.jjmess( SYS$QIOW(,%VAL(ichan),%VAL(IO$_REWIND)
t	1 , IOSB, , , , , , , , )) ) goto 9000
Ø	  write(6,*)' jjftp just rewound TAPE'
<	endif
 c.
c... Read one block
hc.
Ì	bufsize = len(buff)
0	if(.not.jjmess(SYS$QIOW(,%VAL(ichan),%VAL(IO$_READLBLK)
”	1 , iosb, , , %REF(buff(1:1)), %VAL(BUFSIZE), , , , )) ) goto 9000
øC
\C	CHECK FOR EOF
À	IF(IOSB(1).EQ.EOF)THEN
$c.
ˆc... end of file
ìc.
P	  JJFTP = -1
´	else
c.
|c... data read in
àc.
D	  JJFTP = iosb(2)
¨	endif
C
p	return
Ôc.	------
8c.
œ9000	continue
 	stop
dc.	------
È		end