%NOLIST

	REMARK	***********************************************
	REMARK	*     READ A/P INFORMATION FILE & EXTENTS     *
	REMARK	***********************************************

3310	READ #X0;P(1),P(2),P(3),P(4),P(5),\
	TRANSACTION.RCD.COUNT%,AP.INVOICE.EXTENT,AP.VENDFILE.EXTENT,SORT%
	RETURN

3350	PRINT #X0;P(1),P(2),P(3),P(4),P(5),\
	TRANSACTION.RCD.COUNT%,AP.INVOICE.EXTENT,AP.VENDFILE.EXTENT,SORT%
	RETURN

%LIST