TITLE	GETERA FOR RPGII A
SUBTTL	READ IN AN ERAFIL WORD		AL BLACKINGTON/CAM/BOB CURRIER

;TRANSLATED FROM THE COBOL AUGUST 8,1975 00:46:03 BOB CURRIER

TWOSEG
RELOC	400000

	ENTRY	GETERA			; GET A WORD
	ENTRY	SETERA			; SET UP ERAFIL FOR INPUT

	EXTERNAL DEVDED,KILL,SIXOUT



GETERA:	SOSG	ERABHI+2
	JRST	GETER2

GETER1:	ILDB	DW,ERABHI+1
	POPJ	PP,

GETER2:	AOS	ERABLK
	IN	ERA,
	JRST	GETER1

	MOVEI	CH,ERADEV
	JRST	DEVDED


SETERA:	MOVE	TA,ERABUF
	MOVEM	TA,.JBFF##		; SET JOBFF TO A BUFFER AREA
	INBUF	ERA,2			; GRAB TWO BUFFERS
	SETZM	ERABLK			;CLEAR BLOCK COUNTER

	MOVE	TE,ERAHDR		; SET UP "LOOKUP" PARAMETERS
	MOVE	TD,ERAHDR+1
	SETZB	TC,TB
	LOOKUP	ERA,TE			; FIND THE FILE
	JRST	KNOERA			; NOT THERE - SCREAM

	POPJ	PP,


;CANNOT FIND ERAFIL

KNOERA:	OUTSTR	[ASCIZ /ERAFIL not found
/]
	JRST	KILL

EXTERNAL ERABHI,ERABLK,ERADEV,ERAHDR,ERABUF

	END