; ap109d.rec - A/P 1099 distributions.
;=======================================================================;
; Copyright 1999 by TAH Software Systems (TAH), Oklahoma City, Oklahoma ;
;									;
;	TAH provides this software under a license and may only be	;
;	used in accordance with the terms and conditions of such	;
;	license and with the inclusion of the above Copyright notice.	;
;=======================================================================;
;	Record size:	143
;	Primary key:	1.17	comp,vend,vch,type
;=======================================================================;
record	ap109d
	ap9_key		,a17			; Primary key
	  ap9_comp	,a2	@ap9_key	; Company Id
	  ap9_vend	,d8	@ap9_key+2	; Vendor Id
	  ap9_vch	,d6	@ap9_key+10	; Voucher number
	  ap9_type	,a1	@ap9_key+16	; 1099 type
						;  M = miscellaneous
						;  D = dividend
						;  I = interest
	ap9_box1	,d9.2			; Box 1 amount           (7.2)
	ap9_box2	,d9.2			; Box 2 amount           (7.2)
	ap9_box3	,d9.2			; Box 3 amount           (7.2)
	ap9_box4	,d9.2			; Box 4 amount           (7.2)
	ap9_box5	,d9.2			; Box 5 amount           (7.2)
	ap9_box6	,d9.2			; Box 6 amount           (7.2)
	ap9_box7	,d9.2			; Box 7 amount           (7.2)
	ap9_box8	,d9.2			; Box 8 amount           (7.2)
	ap9_box9	,d9.2			; Box 9 amount           (7.2)
	ap9_box10	,d9.2			; Box 10 amount          (7.2)
	ap9_box11	,d9.2			; Box 11 amount          (7.2)
	ap9_box12	,d9.2			; Box 12 amount          (7.2)
	ap9_box13	,d9.2			; Box 13 amount          (7.2)
	ap9_box14	,d9.2			; Box 14 amount          (7.2)
						;
record, x
			,a17			; key definition
						;** Dividend fields **
	ap9_b01		,d9.2			; Box 1 regular dividends
	ap9_b2a		,d9.2			; Box 2a total cap gains
	ap9_b2b		,d9.2			; Box 2b 28% rate gain
	ap9_b2c		,d9.2			; Box 2c 5-year gain
	ap9_b2d		,d9.2			; Box 2d Unrecap 1250 gain
	ap9_b2e		,d9.2			; Box 2e Sec 1202 gain
	ap9_b03		,d9.2			; Box 3 Nontax distributions
	ap9_b04		,d9.2			; Box 4 Fed tax withheld
	ap9_b05		,d9.2			; Box 5 Invest. expenses
	ap9_b06		,d9.2			; Box 6 Foreign tax paid
	ap9_b07		,a11			; Box 7 Name of country
	ap9_b08		,d9.2			; Box 8 Cash liquidation
	ap9_b09		,d9.2			; Box 9 Noncash liquidation
			,a7			; filler
;

