TITLE	GETCPY FOR RPGII A
SUBTTL	READ IN AN CPYFIL WORD		AL BLACKINGTON/CAM/BOB CURRIER

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

TWOSEG
RELOC	400000

	ENTRY	GETCPY			; GET A WORD
	ENTRY	SETCPY			; SET UP CPYFIL FOR INPUT

	EXTERNAL DEVDED,KILL,SIXOUT



GETCPY:	SOSG	CPYBHI+2
	JRST	GETCP2

GETCP1:	ILDB	DW,CPYBHI+1
	POPJ	PP,

GETCP2:	AOS	CPYBLK
	IN	CPY,
	JRST	GETCP1

	MOVEI	CH,CPYDEV
	JRST	DEVDED


SETCPY:	MOVE	TA,CPYBUF
	MOVEM	TA,.JBFF##		; SET JOBFF TO A BUFFER AREA
	INBUF	CPY,2			; GRAB TWO BUFFERS
	SETZM	CPYBLK			;CLEAR BLOCK COUNTER

	MOVE	TE,CPYHDR		; SET UP "LOOKUP" PARAMETERS
	MOVE	TD,CPYHDR+1
	SETZB	TC,TB
	LOOKUP	CPY,TE			; FIND THE FILE
	JRST	KNOCPY			; NOT THERE - SCREAM

	POPJ	PP,


;CANNOT FIND CPYFIL

KNOCPY:	OUTSTR	[ASCIZ /CPYFIL not found
/]
	JRST	KILL

EXTERNAL CPYBHI,CPYBLK,CPYDEV,CPYHDR,CPYBUF

	END