;=============================================================== 
.input ap7020, 3, 50
.placement 3, 5
.title ' 1099-MISC/NEC Report ', highlight
.paint _

.field year, d4, pos(1,1), prompt("Year"), fpos(1,20), -
 help(AP1099YEAR), format('XXXX'), copy

.field printed, a1, pos(2,1), prompt("Status to print"), fpos(2,20), -
 help(UTSELFUN), -
 select(1,3,,"*:all","N:not printed","X:do not print","Y:printed")

.field flag, a1, pos(3,1), prompt("1099 flag to print"), fpos(3,20), -
 help(UTSELFUN), select(0,3,,"*:all","Y:print","N:do not print")

.structure rec1, year,printed,flag
.set set1, rec1, year,printed,flag
.end
;
;=============================================================== 
.input ap7040, 3, 44
???
;=============================================================== 
.input ap7042, 3, 44
.placement 5, 25
.title ' 1099-NEC Forms ', highlight
.paint _
 
.field year, d4, pos(1,1), prompt("Year"), fpos(1,25), -
 help(AP1099YEAR), format('XXXX'), copy
 
.field phone, a14, pos(2,1), prompt("Telephone number"), fpos(2,25), -
 help("AP1099PHON")

.field printed, a1, pos(3,1), prompt("Update printed flag"), fpos(3,25), -
 help(UTSELFUN), selwnd(1,3,noyes)
 
.structure rec1, year,phone,printed
.set set1, rec1, year,phone,printed
.end
;
