
---------- 1099.TXT

---------- 20152017_DIFF

---------- ACH_APV7.ZIP
ap1099.rec
AP1099.WSC
ap1099f.dbl
cnv1099.dbl
cnv1099.dbr
ap1099.recPK
AP1099.WSCPK
ap1099f.dblPK
cnv1099.dblPK
cnv1099.dbrPK

---------- AP ACH WIRE NOTES.DOC

---------- AP1099.REC
; ap1099.rec - 1099 work file record map.
record	ap1099
	  ap1_type	,a1	@ap1_key+6	; 1099 type
						;   Y - 1099 printed
						;   N - 1099 not printed

---------- AP1099.REC_B41042
; ap1099.rec - 1099 work file record map.
record	ap1099
	  ap1_type	,a1	@ap1_key+6	; 1099 type
						;   Y - 1099 printed
						;   N - 1099 not printed

---------- AP1099.WSC
.select code1099, 12, 23

---------- AP1099F.DBL
; ap1099F.DBL
;	ap1099_lookup	Lookup routine for 1099 items.
.subroutine ap1099_lookup
.include "APS:ap1099.rec"
record	ap1099_find			; record for ap1099 lookup
	xcall get_search ('AP1099',AP1099_find,abort)
	    xcall ut_find ('ap1099',a_dtb_chan,a_dtb_table,key_find_data(1:key_len),key_no)

---------- AP109D.REC
; ap109d.rec - A/P 1099 distributions.
	  ap9_type	,a1	@ap9_key+16	; 1099 type

---------- AP109D.REC_NOCRLF
; ap109d.rec - A/P 1099 distributions.
	  ap9_type	,a1	@ap9_key+16	; 1099 type

---------- AP109D.TXT
; ap109d.rec - A/P 1099 distributions.
	  ap9_type	,a1	@ap9_key+16	; 1099 type

---------- AP109F.DBL_040808
; ap1099F.DBL
;	ap1099_lookup	Lookup routine for 1099 items.
.subroutine ap1099_lookup
.include "APS:ap1099.rec"
record	ap1099_find			; record for ap1099 lookup
	xcall get_search ('AP1099',AP1099_find,abort)
	    xcall ut_find ('ap1099',a_dtb_chan,a_dtb_table,key_find_data(1:key_len),key_no)

---------- AP2100.DBL

---------- AP2300.DBL

---------- AP2300.DBL_STD

---------- AP2300.DBL_UNIX

---------- AP4000.DBL
	&	apv_1099,apv_def_1099,apv_def_acct,apv_def_div,apv_def_dept,
	apexps.c1099  = aprexp.c1099

---------- AP4000.DBL_STD
	&	apv_1099,apv_def_1099,apv_def_acct,apv_def_div,apv_def_dept,
	apexps.c1099  = aprexp.c1099

---------- AP4000.GBL

---------- AP4000.TXT

---------- AP4000.TXT_RND2

---------- AP4000.WSC

---------- AP4000L.DBL
	a_1099		,a	; IN  - vendor 1099 flag
	a_def_1099	,a	; IN  - default vendor 1099 code
	    if (a_1099.eq.'Y')
		xcall i_putfld (wind_no,set_name,apexps,'p1099',a_def_1099)

---------- AP4000L.DBL_LSO
	a_1099		,a	; IN  - vendor 1099 flag
	a_def_1099	,a	; IN  - default vendor 1099 code
	    if (a_1099.eq.'Y')
		xcall i_putfld (wind_no,set_name,apexps,'p1099',a_def_1099)

---------- AP4000L.GBL

---------- AP4000L.WSC
.field p1099, a3, pos(9,1), prompt("1099 code"), fpos(9,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <27>,acct,div,dept,amount,unit,<14>,descr,p1099,-
.set set1, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set setd, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set set1p, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg

---------- AP4002.DBL
	    apexps.c1099 = apc_1099
	apexps.c1099 = apc_1099

---------- AP4005.DBL
		,a*	@100,	'1099'
	pr1099		,a3	@101
		pr1099 = apexps.c1099
	    pr1099 = apexps.c1099

---------- AP4020.DBL
; 01/27/2003 wsc - added logic for 1099 misc & div recs
.include "APS:ap1099.rec"
	type1099	,a1		; 1099 type to process
	hold_year	,d4		; year for 1099
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apexps.c1099.ne.ut_blanks)
		 then call put_1099_dist
		 else call put_1099
	    apl_1099 = apexps.c1099
	;	put 1099 distribution record (unpaid invoices)
put_1099_dist,
	call check_1099
	if (type1099.ne.'M'.and.type1099.ne.'D') return
	ap9_type = type1099
	case apexps.c1099 of
	; determine if 1099 will be needed
check_1099,
	clear type1099
	case apexps.c1099 of
	  'M01': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M02': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M03': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M04': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M05': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M06': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M07': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M08': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M09': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M10': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M11': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M12': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M13': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M14': if (apexps.gamt.ne.0) type1099 = 'M'
	  'D01': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2a': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2b': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2c': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2d': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2e': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D03': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D04': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D05': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D06': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D08': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D09': if (apexps.gamt.ne.0) type1099 = 'D'
;       update/write 1099 file (prepaids, cr memos, wire trxs, cr cards, voids)
put_1099,
	clear ap1099
	call check_1099
	if (type1099.ne.'M'.and.type1099.ne.'D') return
	ap1_type = type1099
	xcall db_find (ap1099_chan,ap1_key,0,'M',,,opcde)
	 then xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
	      case apexps.c1099 of
	      case apexps.c1099 of
              case apexps.c1099 of
	      case apexps.c1099 of
	 then xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)
	 else xcall db_add (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP4020.DBL_052809
; 01/27/2003 wsc - added logic for 1099 misc & div recs
.include "APS:ap1099.rec"
	type1099	,a1		; 1099 type to process
	hold_year	,d4		; year for 1099
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apexps.c1099.ne.ut_blanks)
		 then call put_1099_dist
		 else call put_1099
	    apl_1099 = apexps.c1099
	;	put 1099 distribution record (unpaid invoices)
put_1099_dist,
	call check_1099
	if (type1099.ne.'M'.and.type1099.ne.'D') return
	ap9_type = type1099
	case apexps.c1099 of
	; determine if 1099 will be needed
check_1099,
	clear type1099
	case apexps.c1099 of
	  'M01': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M02': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M03': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M04': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M05': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M06': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M07': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M08': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M09': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M10': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M11': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M12': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M13': if (apexps.gamt.ne.0) type1099 = 'M'
	  'M14': if (apexps.gamt.ne.0) type1099 = 'M'
	  'D01': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2a': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2b': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2c': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2d': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D2e': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D03': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D04': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D05': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D06': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D08': if (apexps.gamt.ne.0) type1099 = 'D'
	  'D09': if (apexps.gamt.ne.0) type1099 = 'D'
	;	update/write 1099 file record (prepaids, dr memos, voids)
put_1099,
	clear ap1099
	call check_1099
	if (type1099.ne.'M'.and.type1099.ne.'D') return
	ap1_type = type1099
	xcall db_find (ap1099_chan,ap1_key,0,'M',,,opcde)
	 then xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
	      case apexps.c1099 of
	      case apexps.c1099 of
	      case apexps.c1099 of
	 then xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)
	 else xcall db_add (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP4020.DIF
; 01/27/2003 wsc - added logic for 1099 misc & div recs
; 01/27/2003 wsc - added logic for 1099 misc & div recs
;       update/write 1099 file (prepaids, cr memos, wire trxs, cr cards, voids)
put_1099,
        ;       update/write 1099 file record (prepaids, dr memos, voids)
put_1099,
              case apexps.c1099 of
              case apexps.c1099 of
              case apexps.c1099 of

---------- AP4100.DBL
	&	apv_1099,apv_def_1099,apv_def_acct,apv_def_div,apv_def_dept)

---------- AP4100.GBL

---------- AP4100.WSC

---------- AP4100L.DBL
	a_1099		,a	; IN  - vendor 1099 flag
	a_def_1099	,a	; IN  - default vendor 1099 code
		if (a_1099.eq.'Y')
		    xcall i_putfld (wind_no,set_name,aprexp,'p1099',a_def_1099)

---------- AP4100L.GBL

---------- AP4100L.WSC
.field p1099, a3, pos(7,1), prompt("1099 code"), fpos(7,16), -
 help(AP1099CODE), -
.structure rec1, <26>,acct,div,dept,amount,unit,descr,p1099,catg,cost,iccomp
.set set1, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.set setd, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg

---------- AP4105.DBL
		,a*	@100,	'1099'
	pr1099		,a3	@101
	pr1099 = aprexp.c1099

---------- AP4120.DBL
	apexps.c1099  = aprexp.c1099

---------- AP4120.WSC

---------- AP4500.DBL

---------- AP4500.DBL_052809

---------- AP4500.DIF

---------- AP4500.GBL

---------- AP4500.TXT_RND2

---------- AP4500.UNIX

---------- AP4500.WSC

---------- AP4600.DBL

---------- AP4600.GBL

---------- AP5000.DBL

---------- AP5000.WSC

---------- AP5010.DBL

---------- AP5010.DBL_B4TAH

---------- AP5010.DBL_TAH1

---------- AP5020.DBL

---------- AP5030.DBL

---------- AP5040.DBL

---------- AP5050.DBL

---------- AP5060.DBL

---------- AP5070.DBL

---------- AP5200.DBL

---------- AP5200.DBL_KMS

---------- AP5202.DBL

---------- AP5202.WSC

---------- AP5204.DBL

---------- AP5204.DBL_BREEZY

---------- AP5204.DBL_STD

---------- AP5205.DBL

---------- AP5206.DBL

---------- AP5209.DBL

---------- AP5209.WSC

---------- AP5210.DBL

---------- AP5210.DBL_ORIG

---------- AP5210.DBL_PENDING

---------- AP5210.DBL_TERI

---------- AP5220.DBL

---------- AP5225.DBL
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
		call put_1099
	;	update/write 1099 file record
put_1099,
	    clear ap1099			; get 1099 record
	    xcall db_find (ap1099_chan,ap1_key,0,'M',,,opcde)
	     then xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
	     then xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)
	     else xcall db_add (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP5230.DBL

---------- AP5235.DBL
	    apc_1099 = apl_1099

---------- AP5240.DBL

---------- AP5245.DBL

---------- AP5245.DBL_TOM

---------- AP6300.DBL

---------- AP6300.DBL_101211

---------- AP6300.DBL_STD

---------- AP6300.TXT

---------- AP6300.WSC

---------- AP6400.DBL

---------- AP6450.DBL

---------- AP6500.DBL

---------- AP6600.DBL

---------- AP6600.DBL_LSO

---------- AP6600.LSO

---------- AP6600.WSC

---------- AP6700.DBL

---------- AP6800.DBL

---------- AP6900.DBL

---------- AP6900.DBL_040309

---------- AP6900.DBL_BILL

---------- AP7010.DBL
;	ap7010		Accounts payable 1099 file maintenance.
;	ap7010tb	Accounts payable 1099 toolbar routine.
; 01/15/2008 tfc - add 1099 type to lookup screen
.include "APS:ap1099.rec"
	dtb_table	,a%size(ap1099)
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	xcall dtb_init (ap1099_chan,inp_wind_no,beg_key,,'ap7010tb',,ap1099_log)
	    xcall i_input (inp_wind_no,dtb_setname,ap1099,,ut_col_sel,,ut_windows)
	    xcall i_dspfld (inp_wind_no,'V1099',apv_1099)
	xcall ap1099_lookup (dtb_inwindno,dtb_chan,dtb_table,dtb_key,scr_type)
.include "APS:ap1099.rec"
	dtb_table	,a%size(ap1099)

---------- AP7010.DBL_B41042
;	ap7010		Accounts payable 1099 file maintenance.
;	ap7010tb	Accounts payable 1099 toolbar routine.
.include "APS:ap1099.rec"
	dtb_table	,a%size(ap1099)
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	xcall dtb_init (ap1099_chan,inp_wind_no,beg_key,,'ap7010tb',,ap1099_log)
	    xcall i_input (inp_wind_no,dtb_setname,ap1099,,ut_col_sel,,ut_windows)
	    xcall i_dspfld (inp_wind_no,'V1099',apv_1099)
	xcall ap1099_lookup (dtb_inwindno,dtb_chan,dtb_table,dtb_key)
.include "APS:ap1099.rec"
	dtb_table	,a%size(ap1099)

---------- AP7010.WSC
.title ' 1099 Year ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
.title ' 1099-MISC Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX")
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX")
 help(AP1099B7), format("ZZ,ZZZ,ZZZ.XX")
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX")
 help(AP1099B9), selwnd(0,3,noyes)
 help(AP1099B10), format("ZZ,ZZZ,ZZZ.XX")

---------- AP7020.DBL
;	ap7020		Print 1099-misc report.
.include "APS:ap1099.rec"
	pr1099		,a1	@17
	scr_1099	,a1		; 1099 flag to print
	title		,a*,	'A/P 1099 MISC REPORT'
		xcall clslp ('Vendor 1099-misc report')
	xcall open (ap1099_chan,'I:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	xcall statusbar (0,ap1099_chan)
	xcall db_find (ap1099_chan,ap1_key(1:7),0,'M',,,opcde)
	    xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
		if (scr_1099.eq.UT_ALL) .or.
		&  (scr_1099.eq.apv_1099) call print_record
	pr1099 = apv_1099

---------- AP7021.DBL
;	ap7021		Print 1099-dividend report.
.include "APS:ap1099.rec"
	pr1099		,a1	@17
	scr_1099	,a1		; 1099 flag to print
	title		,a*,	'A/P 1099 DIVIDEND REPORT'
		xcall clslp ('Vendor 1099-dividend report')
	xcall open (ap1099_chan,'I:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	xcall statusbar (0,ap1099_chan)
	xcall db_find (ap1099_chan,ap1_key(1:7),0,'M',,,opcde)
	    xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
		if (scr_1099.eq.UT_ALL) .or.
		&  (scr_1099.eq.apv_1099) call print_record
	pr1099 = apv_1099

---------- AP7030.DBL
;	ap7030		Check 1099-misc amount limits.
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	xcall db_find (ap1099_chan,ap1_key(1:7),0,'M',,,opcde)
	    xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
		xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7031.DBL
;	ap7031		Check 1099-dividend amount limits.
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	xcall db_find (ap1099_chan,ap1_key(1:7),0,'M',,,opcde)
	    xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
		xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7040.93
subroutine ap7040	; Print 1099-misc forms.
.include "APS:ap1099.rec"
	fline		,a1760		; 1099 form for print formatting (22x80)
	title		,a*,	'A/P 1099 FORMS'
	xcall open (ap1099_chan,'U:I',ap1099_name)
	if (apv_1099.ne.'Y') goto loop
	xcall ismrd (DTE_KEY,ap1099_chan,ap1099,ap1_key,opcde,0)
		xcall ismwr (DTE_UPDATE,ap1099_chan,ap1099,ap1_key,opcde,ap1099_log)
	xcall clslp ('Vendor 1099-misc flines')
	xcall close (ap1099_chan)

---------- AP7040.DBL
;	ap7040		Print 1099-misc Laser forms.
; 01/15/2003 tah - Changed for new 1099 record layout.
.include "APS:ap1099.rec"
	title		,a*,	'A/P 1099 MISC FORMS'
		xcall clslp ('Vendor 1099-misc forms')
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	ap1_year = scr_year			; get 1099 record
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7041.DBL
;	ap7041		Print 1099-dividend forms.
.include "APS:ap1099.rec"
	title		,a*,	'A/P 1099 DIV FORMS'
		xcall clslp ('Vendor 1099-div flines')
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	ap1_year = scr_year			; get 1099 record
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7051.DBL
;	ap7051		Print 1099 verification report.
.include "APS:ap1099.rec"
	title		,a*,	'A/P 1099 VERIFICATION REPORT'
		xcall clslp ('Vendor 1099 verification report')
	xcall open (ap1099_chan,'I:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099 .ne. 'Y') nextloop
	    xcall db_find (ap1099_chan,key_key,1,'M',,,opcde)

---------- AP7051.TXT
.column z_109r, "1099 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.entry z_19vf, "1099 verification report"
.title ' 1099 Verification Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy

---------- AP7051.WSC
.column z_109r, "1099 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.entry z_19vf, "1099 verification report"
.title ' 1099 Verification Report ', highlight
Only Vendors identified to receive 1099s but have no 1099
 help(AP1099YEAR), format('XXXX'), copy

---------- AP7061.DBL
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'I:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	xcall statusbar (0,ap1099_chan)
	xcall db_find (ap1099_chan,ap1_key(1:7),0,'M',,,opcde)
	    xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
		&  (scr_1042.eq.apv_1099) call print_record
	pr1042 = apv_1099

---------- AP7071 (2).DBL_STD
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBLGS2017CHG
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_073108
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_2007
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_2009
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_2013
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_2014
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_2015
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_2016GS
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_B42017GS
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_BILL
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_GOLDENSTRAND
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_GS2015
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_GS2017
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_LSO
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_LSONEW
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_STD
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_WORKS HERE
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_WRONG
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP7071.DBL_WSC
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	    if (apv_1099.eq.'Y') call print_vendor
	xcall db_read (ap1099_chan,ap1099,ap1_key,0,'M',,,opcde)
	    xcall db_update (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)

---------- AP8000.DBL

---------- AP8100.DBL

---------- AP8200.DBL

---------- AP8200.DBL_ORIG

---------- AP8200.WSC

---------- AP8300.DBL

---------- AP8400.DBL

---------- AP8500.DBL
;	ap8500		Purge 1099 history.
.include "APS:ap1099.rec"
	xcall open (ap1099_chan,'U:I',ap1099_name)
	xcall close (ap1099_chan,DTE_CLOSE)
	xcall statusbar (0,ap1099_chan)
	    ut_filename = ap1099_name
	xcall db_find (ap1099_chan,ut_cmcomp,0,'M',,,opcde)
	    xcall db_next (ap1099_chan,ap1099,'F','M',,,opcde)
		xcall db_delete (ap1099_chan,ap1099,ap1_key,ap1099_log,opcde)
		if (scr_write.eq.'Y') writes (ut_chan,ap1099)

---------- APBANK.REC

---------- APCDST.REC
	apc_1099	,a3			; 1099 code

---------- APCOMM.GBL
	ap1099_name	,a6,	'AP1099'	; 1099 amount file
	  ap1099_chan	,d2
	  ap1099_log	,a1
	ap109d_name	,a6,	'AP109D'	; 1099 dist file

---------- APCTRL.DBL
	ap1099_log = %smctrl(a_cmcomp,'AP','AP1099-LOG',1)
	if (.not.ap1099_log) ap1099_log = 'N'

---------- APDIST.REC

---------- APDWRK.REC

---------- APGVEND.DBL

---------- APHIST.REC

---------- APHOLD.REC
	apl_1099	,a3			; 1099 code

---------- APIRECR.DBL

---------- APIVHST.DBL

---------- APIVHST.DBL_STD

---------- APIVHST.DBL_UNIX

---------- APIVHST.KID

---------- APMAGM.REC
; apmagm.rec - 1099 magnetic media reporting record formats.
	apm_a_1099type	,a1		; Type of 1099 return  ('A')
	apm_b_ira	,a1		; IRA/SEP indicator (1099-R)(blanks)
	apm_b_pct	,a2		; Percent of total dist (1099-R)(blanks)
	apm_b_tdist	,a1		; Total dist indicator (1099-R)(blanks)
	apm_b_taxamt	,a1		; Tax amt indicator (1099-R)(blanks)

---------- APMENU.DBL
; 08/20/2007 tfc - add routine to verify 1099 vendors
	      'Z_109M':	xcall ap7010	; 1099 maintenance
	      'Z_19MR':	xcall ap7020	; print 1099/misc report
	      'Z_19MS':	xcall ap7030	; set 1099/misc limits
	      'Z_19MF':	xcall ap7040	; print 1099/misc forms
	      'Z_19DR':	xcall ap7021	; print 1099/div report
	      'Z_19DS':	xcall ap7031	; set 1099/div limits
	      'Z_19DF':	xcall ap7041	; print 1099/div forms
	      'Z_19VF': xcall ap7051	; verify 1099 vendors
	      'Z_PUR1':	xcall ap8500	; purge 1099 history
	if (ap1099_chan) xcall close (ap1099_chan,DTE_CLOSE)

---------- APMENU.DBL_B41042
; 08/20/2007 tfc - add routine to verify 1099 vendors
	      'Z_109M':	xcall ap7010	; 1099 maintenance
	      'Z_19MR':	xcall ap7020	; print 1099/misc report
	      'Z_19MS':	xcall ap7030	; set 1099/misc limits
	      'Z_19MF':	xcall ap7040	; print 1099/misc forms
	      'Z_19DR':	xcall ap7021	; print 1099/div report
	      'Z_19DS':	xcall ap7031	; set 1099/div limits
	      'Z_19DF':	xcall ap7041	; print 1099/div forms
	      'Z_19VF': xcall ap7051	; verify 1099 vendors
	      'Z_PUR1':	xcall ap8500	; purge 1099 history
	if (ap1099_chan) xcall close (ap1099_chan,DTE_CLOSE)

---------- APOPEN.REC

---------- APOPEN.REC_052809

---------- APOPENF.DBL

---------- APPAID.REC

---------- APRECN.REC

---------- APRECR.REC
	c1099		,a3		; 1099 code

---------- APRECRF.DBL

---------- APREPT.DBL

---------- APTRAN.REC
	c1099		,a3		; 1099 code

---------- APTRANF.DBL

---------- APVEND.REC
	apv_1099	,a1			; Print 1099               (Y/N)
	apv_def_1099	,a3			; Default 1099 code

---------- APVEND.REC_B41042
	apv_1099	,a1			; Print 1099               (Y/N)
	apv_def_1099	,a3			; Default 1099 code

---------- APVENDF.DBL

---------- APVHST.REC

---------- APVHUPDT.DBL

---------- APWSC.1
.title ' 1099-MISC Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), fpos(1,30), format('XXXX'), copy
 help(AP1099MA), fpos(2,30), default(600), -
 help(AP1099MA), fpos(3,30), default(10), -
 help(AP1099MA), fpos(4,30), default(600), -
 help(AP1099MA), fpos(5,30), default(600), -
 help(AP1099MA), fpos(6,30), default(10), -

---------- BACKAP.BAT

---------- BACKUP.BAT

---------- BLDAP.BAT

---------- BLDAP.CMD
APS:ap8200 APS:ap8300 APS:ap8400 APS:ap8500 APS:ap1099f \

---------- BLDAP.WIN
-o APS:ap1099f APS:ap1099f.dbl

---------- BLDAPD.BAT

---------- BLDAPD.WIN
-od APS:ap1099f APS:ap1099f.dbl

---------- CHG1099.WSC
.entry z_pur1, "Purge 1099 history"
.entry z_109m, "1099 maintenance"
.entry z_109r, "Print 1099 reports", sub
.entry z_109s, "Set 1099 limits", sub
.entry z_109f, "Print 1099 forms", sub
.column z_109r, "1099 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.column z_109s, "1099 Limits"
.entry z_19ms, "Set 1099-MISC limits"
.entry z_19ds, "Set 1099-DIV limits"
.column z_109f, "1099 Forms"
.entry z_19mf, "1099-MISC forms"
.entry z_19df, "1099-DIV forms"
.select code1099
.title ' 1099 Year ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
 help(AP1099TYPE), select(1,3,,"Misc","Div")
.title ' 1099-MISC Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), selwnd(0,3,noyes)
 help(AP1099B10), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B11), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B12), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B13), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B14), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-DIV Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992A), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992B), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992C), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992D), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992E), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7)
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-MISC Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' 1099-DIVIDEND Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
.title ' Set 1099-DIVIDEND limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099DV), default(10), format("ZZZ,ZZZ.ZZ")
 help(AP1099DV), default(600), format("ZZZ,ZZZ.XX")
.title ' 1099-MISC Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099-DIV Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")

---------- CL.BAT

---------- CM.BAT

---------- CNV1099.DBL
;	cnv1099.dbl
;	Rename ap1099.ism to oap1099.ism,oap1099.is1.
;	Convert old ap1099 to include type
.include "APS:ap1099.rec"
record	oap1099	
						;   Y - 1099 printed
						;   N - 1099 not printed
	open (2, I:I, 'FIL:oap1099.ism')
	open (3, U:I, 'FIL:ap1099.ism')
	    reads (2, oap1099, stop)
					;   Y - 1099 printed
					;   N - 1099 not printed
	    store(3,ap1099,ap1_key)

---------- CNV1099.DBR
MAIN$CNV1099
cnv1099.dbl
^K^KGGFIL:oap1099.ismFIL:ap1099.ismM

---------- CNV109D.DBL

---------- CNV109D.DBR

---------- DTEAP.DEF

---------- DTEAP.WSC
.entry z_pur1, "Purge 1099/1042 history"
.entry z_109m, "1099/1042 maintenance"
.entry z_109r, "Print 1099/1042 reports", sub
.entry z_109s, "Set 1099 limits", sub
.entry z_109f, "Print 1099/1042 forms", sub
.column z_109r, "1099/1042 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.entry z_19vf, "1099 verification report"
.column z_109s, "1099 Limits"
.entry z_19ms, "Set 1099-MISC limits"
.entry z_19ds, "Set 1099-DIV limits"
.column z_109f, "1099/1042 Forms"
.entry z_19mf, "1099-MISC forms"
.entry z_19df, "1099-DIV forms"
.input ap1099srch, 2, 26
.title " Find 1099 ", highlight
 help(AP1099YR), format('XXXX')
.input i_lap1099, 1, 16
.title " 1099 Data "
.field pr1099, a1, pos(5,1), prompt("Print 1099"), fpos(5,18)
.field def1099, a3, pos(5,50), prompt("Default 1099"), fpos(5,65)
.structure rec1, <2>,vendor,<2>,sortname,<2>,status,pr1099,terms,<1>, -
 ssno,last_act,created,def1099,defacct,defdiv,defdept,<124>,poreq,grpno
.set set_show, rec1, vendor,sortname,status,pr1099,terms,ssno, -
 last_act,created,def1099,defacct,defdiv,defdept,poreq,grpno
.field p1099, a3, pos(9,1), prompt("1099 code"), fpos(9,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <27>,acct,div,dept,amount,unit,<14>,descr,p1099,-
.set set1, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set setd, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set set1p, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.field p1099, a3, pos(7,1), prompt("1099 code"), fpos(7,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <26>,acct,div,dept,amount,unit,descr,p1099,catg,cost,iccomp
.set set1, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.set setd, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.title ' 1099/1042 Maintenance ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
 help(AP1099TYPE), select(1,3,,"Misc","Div","F-1042")
.title ' 1099-MISC Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), selwnd(0,3,noyes)
 help(AP1099B10), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B11), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B12), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B13), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B14), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-DIV Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992A), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992B), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992C), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992D), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992E), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7)
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1)
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZZ.XX-")
 help(AP1099B1)
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-MISC Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.title ' 1099-DIVIDEND Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
.title ' Set 1099-DIVIDEND limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099DV), default(10), format("ZZZ,ZZZ.ZZ")
 help(AP1099DV), default(600), format("ZZZ,ZZZ.XX")
.title ' 1099-MISC Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099-DIV Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099 Verification Report ', highlight
Only Vendors identified to receive 1099s but have no 1099
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.field year, d4, fpos(1,21), copy, format("XXXX"), help("AP1099YEAR")
.title ' Purge 1099/1042 History ', highlight
.select code1099

---------- DTEAP.WSC_02022017
.entry z_pur1, "Purge 1099/1042 history"
.entry z_109m, "1099/1042 maintenance"
.entry z_109r, "Print 1099/1042 reports", sub
.entry z_109s, "Set 1099 limits", sub
.entry z_109f, "Print 1099/1042 forms", sub
.column z_109r, "1099/1042 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.entry z_19vf, "1099 verification report"
.column z_109s, "1099 Limits"
.entry z_19ms, "Set 1099-MISC limits"
.entry z_19ds, "Set 1099-DIV limits"
.column z_109f, "1099/1042 Forms"
.entry z_19mf, "1099-MISC forms"
.entry z_19df, "1099-DIV forms"
.input ap1099srch, 2, 26
.title " Find 1099 ", highlight
 help(AP1099YR), format('XXXX')
.input i_lap1099, 1, 16
.title " 1099 Data "
.field pr1099, a1, pos(5,1), prompt("Print 1099"), fpos(5,18)
.field def1099, a3, pos(5,50), prompt("Default 1099"), fpos(5,65)
.structure rec1, <2>,vendor,<2>,sortname,<2>,status,pr1099,terms,<1>, -
 ssno,last_act,created,def1099,defacct,defdiv,defdept,<124>,poreq,grpno
.set set_show, rec1, vendor,sortname,status,pr1099,terms,ssno, -
 last_act,created,def1099,defacct,defdiv,defdept,poreq,grpno
.field p1099, a3, pos(9,1), prompt("1099 code"), fpos(9,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <27>,acct,div,dept,amount,unit,<14>,descr,p1099,-
.set set1, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set setd, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set set1p, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.field p1099, a3, pos(7,1), prompt("1099 code"), fpos(7,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <26>,acct,div,dept,amount,unit,descr,p1099,catg,cost,iccomp
.set set1, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.set setd, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.title ' 1099/1042 Maintenance ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
 help(AP1099TYPE), select(1,3,,"Misc","Div","F-1042")
.title ' 1099-MISC Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), selwnd(0,3,noyes)
 help(AP1099B10), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B11), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B12), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B13), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B14), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-DIV Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992A), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992B), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992C), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992D), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992E), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7)
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1)
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZZ.XX-")
 help(AP1099B1)
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-MISC Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.title ' 1099-DIVIDEND Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
.title ' Set 1099-DIVIDEND limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099DV), default(10), format("ZZZ,ZZZ.ZZ")
 help(AP1099DV), default(600), format("ZZZ,ZZZ.XX")
.title ' 1099-MISC Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099-DIV Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099 Verification Report ', highlight
Only Vendors identified to receive 1099s but have no 1099
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.field year, d4, fpos(1,21), copy, format("XXXX"), help("AP1099YEAR")
.title ' Purge 1099/1042 History ', highlight
.select code1099

---------- DTEAP.WSC_B41042
.entry z_pur1, "Purge 1099 history"
.entry z_109m, "1099 maintenance"
.entry z_109r, "Print 1099 reports", sub
.entry z_109s, "Set 1099 limits", sub
.entry z_109f, "Print 1099 forms", sub
.column z_109r, "1099 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.entry z_19vf, "1099 verification report"
.column z_109s, "1099 Limits"
.entry z_19ms, "Set 1099-MISC limits"
.entry z_19ds, "Set 1099-DIV limits"
.column z_109f, "1099 Forms"
.entry z_19mf, "1099-MISC forms"
.entry z_19df, "1099-DIV forms"
.input ap1099srch, 2, 26
.title " Find 1099 ", highlight
 help(AP1099YR), format('XXXX')
.input i_lap1099, 1, 16
.title " 1099 Data "
.field pr1099, a1, pos(5,1), prompt("Print 1099"), fpos(5,18)
.field def1099, a3, pos(5,50), prompt("Default 1099"), fpos(5,65)
.structure rec1, <2>,vendor,<2>,sortname,<2>,status,pr1099,terms,<1>, -
 ssno,last_act,created,def1099,defacct,defdiv,defdept,<124>,poreq,grpno
.set set_show, rec1, vendor,sortname,status,pr1099,terms,ssno, -
 last_act,created,def1099,defacct,defdiv,defdept,poreq,grpno
.field p1099, a3, pos(9,1), prompt("1099 code"), fpos(9,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <27>,acct,div,dept,amount,unit,<14>,descr,p1099,-
.set set1, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set setd, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set set1p, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.field p1099, a3, pos(7,1), prompt("1099 code"), fpos(7,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <26>,acct,div,dept,amount,unit,descr,p1099,catg,cost,iccomp
.set set1, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.set setd, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.title ' 1099 Year ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
 help(AP1099TYPE), select(1,3,,"Misc","Div")
.title ' 1099-MISC Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), selwnd(0,3,noyes)
 help(AP1099B10), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B11), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B12), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B13), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B14), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-DIV Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992A), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992B), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992C), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992D), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992E), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7)
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-MISC Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' 1099-DIVIDEND Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
.title ' Set 1099-DIVIDEND limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099DV), default(10), format("ZZZ,ZZZ.ZZ")
 help(AP1099DV), default(600), format("ZZZ,ZZZ.XX")
.title ' 1099-MISC Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099-DIV Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099 Verification Report ', highlight
Only Vendors identified to receive 1099s but have no 1099
 help(AP1099YEAR), format('XXXX'), copy
.title ' Purge 1099 History ', highlight
.select code1099

---------- DTEAPV7.WSC
.entry z_pur1, "Purge 1099 history"
.entry z_109m, "1099 maintenance"
.entry z_109r, "Print 1099 reports", sub
.entry z_109s, "Set 1099 limits", sub
.entry z_109f, "Print 1099 forms", sub
.column z_109r, "1099 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.column z_109s, "1099 Limits"
.entry z_19ms, "Set 1099-MISC limits"
.entry z_19ds, "Set 1099-DIV limits"
.column z_109f, "1099 Forms"
.entry z_19mf, "1099-MISC forms"
.entry z_19df, "1099-DIV forms"
.input ap1099srch, 2, 26
.title " Find 1099 ", highlight
 help(AP1099YR), format('XXXX')
.input i_lap1099, 1, 16
.title " 1099 Data "
.field p1099, a3, pos(7,1), prompt("1099 code"), fpos(7,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <27>,acct,div,dept,amount,unit,<14>,descr,p1099,-
.set set1, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,pono,-
.set setd, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,pono,-
.field p1099, a3, pos(7,1), prompt("1099 code"), fpos(7,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <26>,acct,div,dept,amount,unit,descr,p1099,catg,cost,iccomp
.set set1, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.set setd, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.title ' 1099 Year ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
 help(AP1099TYPE), select(1,3,,"Misc","Div")
.title ' 1099-MISC Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), selwnd(0,3,noyes)
 help(AP1099B10), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B11), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B12), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B13), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B14), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-DIV Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992A), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992B), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992C), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992D), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992E), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7)
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-MISC Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' 1099-DIVIDEND Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
.title ' Set 1099-DIVIDEND limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099DV), default(10), format("ZZZ,ZZZ.ZZ")
 help(AP1099DV), default(600), format("ZZZ,ZZZ.XX")
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), fpos(1,30), format('XXXX'), copy
 help(AP1099MA), fpos(2,30), default(600), -
 help(AP1099MA), fpos(3,30), default(10), -
 help(AP1099MA), fpos(4,30), default(600), -
 help(AP1099MA), fpos(5,30), default(600), -
 help(AP1099MA), fpos(6,30), default(10), -
.title ' 1099-MISC Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099-DIV Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' Purge 1099 History ', highlight
.select code1099

---------- DTEAPV8.WSC
.entry z_pur1, "Purge 1099/1042 history"
.entry z_109m, "1099/1042 maintenance"
.entry z_109r, "Print 1099/1042 reports", sub
.entry z_109s, "Set 1099 limits", sub
.entry z_109f, "Print 1099/1042 forms", sub
.column z_109r, "1099/1042 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.entry z_19vf, "1099 verification report"
.column z_109s, "1099 Limits"
.entry z_19ms, "Set 1099-MISC limits"
.entry z_19ds, "Set 1099-DIV limits"
.column z_109f, "1099/1042 Forms"
.entry z_19mf, "1099-MISC forms"
.entry z_19df, "1099-DIV forms"
.input ap1099srch, 2, 26
.title " Find 1099 ", highlight
 help(AP1099YR), format('XXXX')
.input i_lap1099, 1, 16
.title " 1099 Data "
.field p1099, a3, pos(9,1), prompt("1099 code"), fpos(9,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <27>,acct,div,dept,amount,unit,<14>,descr,p1099,-
.set set1, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set setd, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set set1p, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.field p1099, a3, pos(7,1), prompt("1099 code"), fpos(7,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <26>,acct,div,dept,amount,unit,descr,p1099,catg,cost,iccomp
.set set1, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.set setd, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.title ' 1099/1042 Maintenance ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
 help(AP1099TYPE), select(1,3,,"Misc","Div","F-1042")
.title ' 1099-MISC Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), selwnd(0,3,noyes)
 help(AP1099B10), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B11), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B12), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B13), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B14), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-DIV Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992A), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992B), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992C), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992D), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992E), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7)
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1)
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZZ.XX-")
 help(AP1099B1)
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-MISC Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.title ' 1099-DIVIDEND Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
.title ' Set 1099-DIVIDEND limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099DV), default(10), format("ZZZ,ZZZ.ZZ")
 help(AP1099DV), default(600), format("ZZZ,ZZZ.XX")
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), fpos(1,30), format('XXXX'), copy
 help(AP1099MA), fpos(2,30), default(600), -
 help(AP1099MA), fpos(3,30), default(10), -
 help(AP1099MA), fpos(4,30), default(600), -
 help(AP1099MA), fpos(5,30), default(600), -
 help(AP1099MA), fpos(6,30), default(10), -
.title ' 1099-MISC Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099-DIV Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099 Verification Report ', highlight
Only Vendors identified to receive 1099s but have no 1099
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099/1042 flag to print"), fpos(3,25), -
.field year, d4, fpos(1,21), copy, format("XXXX"), help("AP1099YEAR")
.title ' Purge 1099/1042 History ', highlight
.select code1099

---------- DTEAPV8.WSC_B41042
.entry z_pur1, "Purge 1099 history"
.entry z_109m, "1099 maintenance"
.entry z_109r, "Print 1099 reports", sub
.entry z_109s, "Set 1099 limits", sub
.entry z_109f, "Print 1099 forms", sub
.column z_109r, "1099 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.entry z_19vf, "1099 verification report"
.column z_109s, "1099 Limits"
.entry z_19ms, "Set 1099-MISC limits"
.entry z_19ds, "Set 1099-DIV limits"
.column z_109f, "1099 Forms"
.entry z_19mf, "1099-MISC forms"
.entry z_19df, "1099-DIV forms"
.input ap1099srch, 2, 26
.title " Find 1099 ", highlight
 help(AP1099YR), format('XXXX')
.input i_lap1099, 1, 16
.title " 1099 Data "
.field p1099, a3, pos(9,1), prompt("1099 code"), fpos(9,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <27>,acct,div,dept,amount,unit,<14>,descr,p1099,-
.set set1, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set setd, rec1, iccomp,acct,div,dept,descr,pono,poline,amount,p1099,unit, -
.set set1p, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.field p1099, a3, pos(7,1), prompt("1099 code"), fpos(7,16), -
 help(AP1099CODE), selwnd(0,3,code1099)
.structure rec1, <26>,acct,div,dept,amount,unit,descr,p1099,catg,cost,iccomp
.set set1, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.set setd, rec1, iccomp,acct,div,dept,descr,amount,p1099,unit,cost,catg
.title ' 1099 Year ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
 help(AP1099TYPE), select(1,3,,"Misc","Div")
.title ' 1099-MISC Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), selwnd(0,3,noyes)
 help(AP1099B10), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B11), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B12), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B13), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B14), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-DIV Maintenance ', highlight
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992A), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992B), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992C), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992D), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP10992E), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B5), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B6), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B7)
 help(AP1099B8), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B9), format("ZZ,ZZZ,ZZZ.XX-")
.title ' 1099-MISC Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' 1099-DIVIDEND Report ', highlight
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(600), format("ZZZ,ZZZ.XX")
 help(AP1099MA), default(10), format("ZZZ,ZZZ.XX")
.title ' Set 1099-DIVIDEND limits ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help(AP1099DV), default(10), format("ZZZ,ZZZ.ZZ")
 help(AP1099DV), default(600), format("ZZZ,ZZZ.XX")
.title ' Set 1099-MISC Limits ', highlight
 help(AP1099YEAR), fpos(1,30), format('XXXX'), copy
 help(AP1099MA), fpos(2,30), default(600), -
 help(AP1099MA), fpos(3,30), default(10), -
 help(AP1099MA), fpos(4,30), default(600), -
 help(AP1099MA), fpos(5,30), default(600), -
 help(AP1099MA), fpos(6,30), default(10), -
.title ' 1099-MISC Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099-DIV Forms ', highlight
 help(AP1099YEAR), format('XXXX'), copy
 help("AP1099PHON")
.title ' 1099 Verification Report ', highlight
Only Vendors identified to receive 1099s but have no 1099
 help(AP1099YEAR), format('XXXX'), copy
.title ' Purge 1099 History ', highlight
.select code1099

---------- GL_PER.LSO
---------- AP1099.REC
---------- AP1099.REC_B41042
---------- AP1099.WSC
---------- AP1099F.DBL
---------- CHG1099.WSC
---------- CNV1099.DBL
---------- CNV1099.DBR

---------- GOLDEN.TXT
.entry z_pur1, "Purge 1099 history"
.entry z_109m, "1099/1042 maintenance"
.entry z_109r, "Print 1099/1042 reports", sub
.entry z_109s, "Set 1099 limits", sub
.entry z_109f, "Print 1099/1042 forms", sub
.column z_109r, "1099/1042 Reports"
.entry z_19mr, "1099-MISC report"
.entry z_19dr, "1099-DIV report"
.entry z_19vf, "1099 verification report"
.column z_109s, "1099 Limits"
.entry z_19ms, "Set 1099-MISC limits"
.entry z_19ds, "Set 1099-DIV limits"
.column z_109f, "1099/1042 Forms"
.entry z_19mf, "1099-MISC forms"
.entry z_19df, "1099-DIV forms"
.title ' 1099 Year ', highlight
 help(AP1099YR), format('XXXX'), range(1900,2100)
 help(AP1099TYPE), select(1,3,,"Misc","Div","F-1042")
 help(AP1099YR), format('XXXX'), copy
.field v1099, a1, pos(10,1), prompt("Print 1099"), fpos(10,15)
.field printed, a1, pos(11,1), prompt("1099 status"), fpos(11,15), -
 help(AP1099STAT), select(0,3,,"N:not printed","X:do not print","Y:printed")
 help(AP1099B1)
 help(AP1099B2), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099B3), format("ZZZ.XX-")
 help(AP1099B1)
 help(AP1099B4), format("ZZ,ZZZ,ZZZ.XX-")
 help(AP1099YEAR), format('XXXX'), copy
.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
.field year, d4, fpos(1,21), copy, format("XXXX"), help("AP1099YEAR")

---------- GS_DIFF_7071.TXT

---------- HELPAP.WSC
.window AP10992A, 4, 60                                                         
.window AP10992B, 5, 60                                                         
the 28% taxable bracket that should be included on the 1099
.window AP10992C, 4, 60                                                         
the vendor's 1099 form.  To enter ".00," press <Return>. The
.window AP10992D, 4, 60                                                         
.window AP10992E, 5, 60                                                         
.window AP1099B1, 4, 60                                                         
>>1099-MISC: :  Enter the dollar amount paid to this vendor
for rent. >>1099-DIV: Enter the dollar amount paid to this
.window AP1099B10, 4, 60                                                        
.window AP1099B11, 1, 60                                                        
.window AP1099B12, 1, 60                                                        
.window AP1099B13, 7, 60                                                        
.window AP1099B14, 5, 60                                                        
.window AP1099B2, 3, 60                                                         
.window AP1099B3, 6, 60                                                         
>>1099-MISC: Enter the dollar amount of any income that does
and awards that should be included on the 1099 form.
>>1099-DIV: Enter the dollar amount of any non-taxable
.window AP1099B4, 4, 60                                                         
.window AP1099B5, 7, 60                                                         
>>1099-MISC: Enter the dollar amount of fishing boat
proceeds paid to this vendor.  >>1099-DIV: Enter the dollar
.window AP1099B6, 7, 60                                                         
>>1099-MISC: Enter the dollar amount paid for medical and
health care services or expenses.  >>1099-DIV:  Enter the
.window AP1099B7, 7, 60                                                         
>>1099-MISC:  Enter the dollar amount of compensation paid
press <Return>.  This is commonly the field used for 1099
99,999,999.99.  >>1099-DIV: Enter the name of the foreign
.window AP1099B8, 7, 60                                                         
>>1099-MISC:  Enter the dollar amount of payments received
>>1099-DIV: Enter the dollar amount distributed as part of a
.window AP1099B9, 7, 60                                                         
>>1099-MISC: Select "Yes" if direct sales of $5,000 or more
press <Return> to select "No."  >>1099-DIV: Enter the dollar
.window AP1099CODE, 10, 60                                                      
Choose the most common 1099 code for this vendor or press
1099 code field of the Invoice distribution window.  For
vendors that qualify for more than one 1099 code, enter the
.window AP1099MA, 5, 40                                                         
1099 type (box). Only vendors with a
type (box) are selected for 1099 form
.window AP1099STAT, 12, 70                                                      
prints 1099 forms for vendors for which N: not printed is displayed in
you print your 1099 forms (via the "Print 1099 forms" entry from the
the entry in this field to Y: printed after it prints the 1099 for
this vendor.  After you enter the 1099 limits (via the "Set 1099-MISC
the 1099 amounts for this vendor are not large enough for a 1099 to be
.window AP1099YEAR, 5, 40                                                       
include for the 1099 information.  To
.window AP1099YR, 2, 30                                                         
are entering 1099 information.
history or only the year to purge 1099 history.  Down To Earth
.window APVN1099, 13, 36                                                        
If the vendor should receive a 1099
1099, select No.  The type of 1099
the 1099 type codes which determine
for each 1099 type.
the Print 1099 prompt, press

---------- LAPRECR.WSC

---------- LAST_ACT.LOG
---------- AP1099.REC
---------- AP1099.REC_B41042
---------- AP1099.WSC
---------- AP1099F.DBL
---------- CHG1099.WSC
---------- CNV1099.DBL
---------- CNV1099.DBR

---------- LOADGROUP.BAT

---------- LOADGROUP.DBL

---------- LOADGROUP.DBR
APV_1099
APV_DEF_1099

---------- LOADGRP.DBL

---------- NA2001.TXT
.field v1099, a1, pos(4,1), prompt("Print 1099"), fpos(4,16), -
 help(APVN1099), required, selwnd(1,3,noyes)
.field def1099, a3, pos(14,1), prompt("Default 1099"), fpos(14,16), -
 help(AP1099CODE), selwnd(0,1,code1099)
.structure rec1, <2>,id,<10>,contact,status,v1099,term,hist,ssn,<16>, -
        def1099,defacct,defdiv,defdept,rname,radd1,radd2,rstate,rcity, -
.set set_add, rec1, status,v1099,hist,ssn,term,contact,defacct,defdiv, -
        defdept,def1099,oneinvc,poreqd,group,remit,rname,radd1,radd2,-
.set set_chg, rec1, status,v1099,hist,ssn,term,contact,defacct,defdiv, -
        defdept,def1099,oneinvc,poreqd,group,remit,rname,radd1,radd2,-
.set set_show, rec1, status,v1099,hist,ssn,term,contact,defacct, -
        defdiv,defdept,def1099,oneinvc,poreqd,group,remit,rname,radd1,-

---------- README.TXT

---------- RESTAP.BAT

---------- RSE.EXE

---------- SMCTRL.VALID

---------- UNUSED.TXT
---------- AP1099.REC
---------- AP1099.REC_B41042
---------- AP1099.WSC
---------- AP1099F.DBL
---------- CHG1099.WSC
---------- CNV1099.DBL
---------- CNV1099.DBR
