%NOLIST

	REMARK	********************************************
	REMARK	*   READ INVOICE OR TRANSACTION RECORD (AP)*
	REMARK	********************************************
3000	READ #FILE.NO,X0%;W1$,W0,W2$,W3$,W1%,W2%,\
	D(1),D(2),D(3),D(4),D(5),D(6),D(7),D(8),D(9),D(10),D(11),D(12),D(13),\
	D(14),D(15),D(16),D(17),D(18),D(19),D(20),D(21),D(22),D(23),D(24),\
	D(25),D(26),D(27),C(1),C(2),C(3),C(4),C(5),C(6),C(7),C(8),C(9),C(10),\
	C(11),C(12),C(13),C(14),C(15),C(16),C(17),C(18),C(19),C(20),C(21),\
	C(22),C(23),C(24),C(25),C(26),C(27)
	RETURN

%LIST