.Script
 
.input po4210, 3, 54
.placement 4, 13
.title ' Receivings Label Sheets ', highlight
.paint _
 
.field all, a1, pos(1,1), prompt("Selection"), fpos(1,20), -
 help(POPGSELECT), select(1,3,,'All lines','Select line')
 
.field order, d6, pos(2,1), prompt("Order number"), fpos(2,20), -
 help(PORWORDN), break, format("ZZZZZX")
 
.field vend, d8, pos(3,1), prompt("Vendor ID"), fpos(3,20), -
 help(POVENDNO), user('#Drill/Req#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field vend_descr, a30, fpos(3,29)
 
.structure rec1, order,all
.set set1, rec1, all,order
.end
