SUBROUTINE SETBUF ( copies, lencop, queue, lenque,
     +			    form, lenfrm,
     +			    swtbuf, lenbuf )
C
	CHARACTER*80	copies, queue, swtbuf, form
C
	INTEGER*2	lencop, lenque, lenbuf, lenfrm
C
C	 Executable begins here.
C
	lenbuf = 0
	IF ( lencop .GT. 0 ) THEN
	    swtbuf(1:lencop) = copies(1:lencop)
	    swtbuf(lencop+1:lencop+1) = ','
	    lenbuf = lencop + 2
D	    WRITE ( 5, 30 ) 'COPIES', copies(1:lencop)
D30	    FORMAT ( ' ',A,': ',A
	ELSE
	    swtbuf(1:2) = '1,'
	    lenbuf = 3
	END IF
	IF ( lenque .GT. 0 ) THEN
	    swtbuf(lenbuf:lenbuf+lenque-1) = queue(1:lenque)
	    lenbuf = lenbuf + lenque
	    swtbuf(lenbuf:lenbuf) = ','
	    lenbuf = lenbuf + 1
D	    WRITE ( 5, 30 ) 'QUEUE', queue(1:lenque)
	ELSE
	    swtbuf(lenbuf:lenbuf+9) = 'SYS$PRINT,'
	    lenbuf = lenbuf + 10
	END IF
	IF ( lenfrm .GT. 0 ) THEN
	    swtbuf(lenbuf:lenbuf+lenfrm-1) = form(1:lenfrm)
	    lenbuf = lenbuf + lenfrm
	    swtbuf(lenbuf:lenbuf) = ','
	    lenbuf = lenbuf + 1
D	    WRITE ( 5, 30 ) 'FORM', form(1:lenfrm)
	ELSE
	    swtbuf(lenbuf:lenbuf) = '0'
	    lenbuf = lenbuf + 1
	    swtbuf(lenbuf:lenbuf) = ','
	    lenbuf = lenbuf + 1
	END IF
D	IF ( lenbuf .GT. 0 ) THEN
D	    WRITE ( 5, 78 ) swtbuf(1:lenbuf)
D78	    FORMAT ( ' SWTBUF: ',A )
D	END IF
	RETURN
	END