.script
; dtein.wsc - Down To Earth Inventory scripts
;=======================================================================
; 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.
;=======================================================================
.column inmaintmenu, "Maintenance", select(m)
.entry m_item, "Items"
.entry m_pcat, "Price catalogs"
.entry m_pric, "Special pricing"
.entry m_kits, "Kits"
.entry m_rlty, "Royalty rules"
.entry m_upcg, "Upcharge rules"
.entry m_scod, "Codes", sub, select(d)
.entry m_comp, "Company", select(c)
.end
;
;=======================================================================
.column intranmenu, "Transaction", select(t)
.entry t_tent, "Enter transactions", select(e)
.entry t_prof, "Proof transactions", select(r)
.entry t_ptrn, "Transfer Form", select(t)
.entry t_post, "Post transactions", select(p)
.entry t_outi, "Pending trans by item", select(i)
.line
.entry t_hhru, "Process warehouse file", select(h)
.end
;
;=======================================================================
.column inphysmenu, "Physical", select(p)
.entry p_crea, "Print tags", select(t)
.entry p_work, "Print worksheet", select(w)
.line
.entry p_qtys, "Freeze current quantities", select(f)
.line
.entry p_tent, "Enter counts", select(e)
.entry p_rept, "Counted over/short report", select(r)
.entry p_valu, "Counted valuation report", select(v)
.line
.entry p_post, "Post counted quantities", select(p)
.entry p_upst, "UnPost counted quantities", select(u)
.end
;
;=======================================================================
.column inreptmenu, "Reports/Inquiry", select(r)
.entry i_inqy, "Inquiry", sub, select(i)
.line
.entry r_scod, "Codes", sub, select(d)
.entry r_inms, "Master lists", sub
.entry r_inpr, "Pricing", sub
.entry r_inro, "Reorder", sub
.entry r_unit, "Quantity status", select(s)
.entry r_stat, "Status", select(s)
.entry r_lost, "Lost Sales", select(l)
.entry r_valu, "Valuation", select(v)
.entry r_ucst, "Unit costs", select(u)
.entry r_prof, "Gross profit", select(g)
.entry r_hist, "History", select(h)
.entry r_move, "Item movement", select(i)
.entry r_slno, "Serial tracking", select(t)
.entry r_pcrp, "Custom reports"
.entry r_pque, "Queued reports", select(q)
.end
;
;=======================================================================
.column r_inms, "r_inms"
.entry r_item, "Items", select(i)
.entry r_slbl, "Item stocking labels", select(s)
.entry r_ilbl, "Item labels", select(l)
.entry r_cpno, "Customer part numbers", select(p)
.entry r_vpno, "Vendor part numbers", select(p)
.entry r_kits, "Kits", select(k)
.entry r_spec, "Special pricing", select(e)
.entry r_rlty, "Royalty rules", select(r)
.entry r_upcg, "Upcharge rules", select(u)
.end
;
;=======================================================================
.column r_inpr, "r_inpr"
.entry r_pric, "Price reports", select(p)
.entry r_prcs, "Price sheet definitions", select(s)
.entry r_cprc, "Individual price sheet", select(d)
.end
;
;=======================================================================
.column r_inro, "r_inro"
.entry r_reor, "Minimum stock", select(m)
.entry r_sreo, "Sales", select(s)
.entry r_negs, "Negative stock", select(n)
.entry r_turn, "Turnover performance", select(t)
.entry r_dead, "Dead items", select(d)
.end
;
;=======================================================================
.column inmiscmenu, "Miscellaneous", select(z)
.entry z_purp, "Purge expired pricing"
.entry z_purh, "Purge history"
.line
.entry z_rank, "Item ranking by sales"
.entry z_wchk, "Warehouse check list"
.entry z_padj, "Adjust prices"
.entry z_copy, "Copy items from/to locations"
.entry z_dell, "Delete items from location"
.entry z_rkit, "Recalculate kit costs"
.entry z_chgi, "Change item ID"
.entry z_impt, "Import ascii file to items"
.entry z_cycl, "Assign cycle count codes"
.end
;
;===============================================================
.select infield, 8, 7
.item "  "
.item "ItemID"
.item "Descr"
.item "Search"
.item "UPC"
.item "Ucosts"
.item "Lcost"
.item "Acost"
.item "Scost"
.item "Price1"
.item "Price2"
.item "Price3"
.item "Price4"
.item "Price5"
.item "Weight"
.end
;
;===============================================================
.select instatus
.item "*"
.item "Active"
.item "Inactive"
.item "No-sale"
.item "Closeout"
.end
;
;===============================================================
.select inreptseq
.item "Numeric (ID)"
.item "Alpha (Search name)"
.item "Catalog"
.item "UPC"
.end
;
;===============================================================
.input inpcatsrch, 1, 40
.placement 8, 10
.paint _

.field type, a3, pos(1,1), prompt("Type"), fpos(1,8), -
 help(INITEMID), default('*')

.end
;
;===============================================================
.input incustsrch, 2, 40
.placement 8, 10
.paint _

.field id, a24, pos(1,1), prompt("Item ID"), fpos(1,14), -
 help(INITEMID), default('*')

.field locn, a3, pos(2,1), prompt("Location"), fpos(2,14), -
 help(INLOCNCODE), copy, user('#Drill/Req/L#'), drill_method("SMCODE_FIND")

.end
;
;===============================================================
.input initemsrch, 7, 76
.placement 8, 2
.line Line1, 6, pos(1,40), vertical
.line Line2, 76, pos(2,1), horizontal
.line Line2, 76, pos(6,1), horizontal
.paint _
 
.field id, a24, pos(1,1), prompt("Item ID"), fpos(1,14), -
 help(INITEMID)
 
.field name, a20, pos(1,41), prompt("Search name"), fpos(1,54), -
 help(INITSKEY), uc, default('*')
 
.field catlg1, a3, pos(3,1), prompt("Catalog mfg"), fpos(3,14), -
 help(INITCATELOG1), user('#f/smcode/0/f/G#')
 
.field catlg2, a3, pos(4,1), prompt("Catalog sub"), fpos(4,14), -
 help(INITCATELOG2)
 
.field catlg3, d4, pos(5,1), prompt("Catalog seq"), fpos(5,14), -
 help(INITCATELOG3), format("XXXX")
 
.field upc, a14, pos(3,41), prompt("UPC"), fpos(3,54), -
 help(INITUPC)
 
.field status, a1, pos(7,1), prompt("Status"), fpos(7,14), -
 help(INITSTATUS), select(0,3,,"*:All","Active","Inactive","No sale","Closeout")
 
.end
;
;===============================================================
.input inkitssrch, 1, 40
.placement 8, 10
.paint _

.field id, a24, pos(1,1), prompt("Item ID"), fpos(1,14), -
 help(INITEMID), default('*')

.end
;
;===============================================================
.input inpricsrch, 7, 42
.placement 8, 10
.paint _
 
.field rtype, a1, pos(1,1), prompt("Record type"), fpos(1,16), -
 help(INPTYPER), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"1:Cust/Item","2:Cust/Categ","3:Cust", -
		"4:Item/Loc","5:Categ/Loc","6:Class/Item",-
		"7:Terr/Item")
 
.field cust, d8, pos(2,1), prompt("Customer ID"), fpos(2,16), -
 help(INPCUSTN), user('#Drill/Opt#'), change_method("NAMAST_CHANGE"), -
 format('XXXXXXXX'), bzro
 
.field class, d2, pos(3,1), prompt("Cust Class"), fpos(3,16), -
 help(INPCLASS), bzro
 
.field terr, a3, pos(4,1), prompt("Territory"), fpos(4,16), -
 help(INPTERR), user('#Drill/All/R#'), change_method("SMCODE_CHANGE"), -
 default('*')
 
.field item, a24, pos(5,1), prompt("Item ID"), fpos(5,16), -
 help(INPITMNO)
 
.field catg, a3, pos(6,1), prompt("Category"), fpos(6,16), -
 help(INPCATEG), user('#Drill/All/C#'), change_method("SMCODE_CHANGE"), -
 default('*')
 
.field locn, a3, pos(7,1), prompt("Location"), fpos(7,16), -
 help(INPLOCTN), user('#Drill/All/L#'), change_method("SMCODE_CHANGE"), -
 default('*')
 
.end
;
;===============================================================
.input inrltysrch, 1, 40
.placement 8, 10
.paint _

.field id, a24, pos(1,1), prompt("Item ID"), fpos(1,14), -
 help(INITEMID), default('*')

.end
;
;===============================================================
.input insnltsrch, 1, 40
.placement 8, 10
.paint _

.field slno, a20, pos(1,1), prompt("Serial/Lot"), fpos(1,14), -
 help(INITSNLT), default('*')

.end
;
;===============================================================
.input intransrch, 1, 20
.placement 8, 10
.paint _

.field ihorno, d6, pos(1,1), prompt("Control"), fpos(1,10), -
 help(INTRXCONTROL)

.end
;
;===============================================================
.input invendsrch, 2, 40
.placement 8, 10
.paint _

.field id, a24, pos(1,1), prompt("Item ID"), fpos(1,14), -
 help(INITEMID), default('*')

.field locn, a3, pos(2,1), prompt("Location"), fpos(2,14), -
 help(INLOCNCODE), copy, user('#Drill/Req/L#'), drill_method("SMCODE_FIND")

.end
;
;===============================================================
.listclass l_inibin, items(12), headers(1), load_method("INLL_INABIN")
.end
;
.input i_linibin, 1, 38
.placement 6, 1
.title " Aisle/Bin "
.field l_head, a1, -
 user("Loc    Bin       On-Hand    Counted")
.field l_locn, a3, pos(1,1)
.field l_abin, a8, pos(1,5)
.field l_onhd, d9.3, pos(1,15), format("ZZZZZZ.XXX")
.field l_cntd, d8, date, pos(1,26)
.structure rec1, <26>,l_locn,l_abin,l_onhd,<34>,l_cntd
.set set1, rec1, l_locn,l_abin,l_onhd,l_cntd
.end
;
;===============================================================
.input i_linabin, 1, 32
.placement 6, 1
.title " Aisle/Bin "
.field l_head, a1, -
 user("   Bin       On-Hand    Counted")
.field l_abin, a8, pos(1,1)
.field l_onhd, d9.3, pos(1,11), format("ZZZZZZ.XXX-")
.field l_cntd, d8, date, pos(1,22)
.structure rec1, <29>,l_abin,l_onhd,<34>,l_cntd
.set set1, rec1, l_abin,l_onhd,l_cntd
.end
;
;===============================================================
.input i_lincust, 1, 40
.placement 6, 1
.title " Customers "
.field l_head, a1, -
 user("   ID    Loc  Part-No")
.field l_id, d8, pos(1,1), format('XXXXXXXX')
.field l_locn, a3, pos(1,10)
.field l_part, a24, pos(1,14)
.structure rec1, <26>,l_locn,<1>,l_id,l_part
.set set1, rec1, l_id,l_locn,l_part
.end
;
;===============================================================
.listclass l_inicus, items(12), headers(1), load_method("INLL_INICUS")
.end
;
.input i_linicus, 1, 77
.placement 6, 1
.title " Customers "
.field l_head, a1, -
 user("   ID    Name                       Loc Part No                      Cost")
.field l_id, d8, pos(1,1), format('XXXXXXXX')
.field l_name, a25, pos(1,10)
.field l_locn, a3, pos(1,37)
.field l_part, a24, pos(1,41)
.field l_cost, d9, pos(1,66), format('ZZZZZZ.XXX-')
.structure rec1, l_id,l_name,l_locn,l_part,l_cost
.set set1, rec1, l_id,l_name,l_locn,l_part,l_cost
.end
;
;===============================================================
.listclass l_initem, items(12), headers(1), load_method("INLL_INITEM")
.end
;
.input i_linitem, 1, 58
.placement 6, 18
.title " Inventory Items "
.field l_head, a1, -
 user("S Item-ID                  Description")
.field l_status, a1, pos(1,1)
.field l_item, a24, pos(1,3)
.field l_desc, a30, pos(1,28)
.structure rec1, <2>,l_item,l_desc,<34>,l_status
.set set1, rec1, l_item,l_desc,l_status
.end
;
;===============================================================
.listclass l_iniven, items(12), headers(1), load_method("INLL_INIVEN")
.end
;
.input i_liniven, 1, 77
.placement 6, 1
.title " Vendors "
.field l_head, a1, -
 user("   ID    Name                       Loc Part No                      Cost")
.field l_id, d8, pos(1,1), format('XXXXXXXX')
.field l_name, a25, pos(1,10)
.field l_locn, a3, pos(1,37)
.field l_part, a24, pos(1,41)
.field l_cost, d9, pos(1,66), format('ZZZZZZ.XXX-')
.structure rec1, l_id,l_name,l_locn,l_part,l_cost
.set set1, rec1, l_id,l_name,l_locn,l_part,l_cost
.end
;
;===============================================================
.input i_linkitm, 1, 28
.placement 6, 16
.title " Kits "
.field l_head, a1, -
 user("Item                    STA")
.field l_item, a24, pos(1,1)
.field l_status, a1, pos(1,26)
.structure rec1, <2>,l_item,<3>,l_status
.set set1, rec1, l_item,l_status
.end
;
;===============================================================
.listclass l_inkits, items(8), headers(1), load_method("INLL_INKITS")
.end
;
.input i_linkits, 1, 46
.placement 6, 16
.title " Kit Items "
.field l_head, a1, -
 user("Seq Item                           Units  STA")
.field l_seqn, a3, pos(1,1)
.field l_item, a24, pos(1,5)
.field l_units, d9.3, pos(1,31), format('ZZZ,ZZZ.XXX-')
.field l_status, a1, pos(1,44)
.structure rec1, <26>,l_seqn,l_status,l_item,l_units
.set set1, rec1, l_seqn,l_status,l_item,l_units
.end
;
;===============================================================
.listclass l_iniloc, items(12), headers(1), load_method("INLL_INLOCN")
.end
;
.input i_liniloc, 1, 114
.display_area 1, 1, 1, 76
.placement 6, 1
.title " Item Locations "
.field l_head, a1, -
 user("Loc  Available   On-Order    On-Hand  Allocated    At-Dock    Price-1    Price-2")
.field l_heado, a1, -
 user("    Price-3    Price-4    Price-5")
.field l_locn, a3, pos(1,1)
.field l_aval, d9.3, pos(1,5), format("ZZZZZZ.XXX-")
.field l_onor, d9.3, pos(1,16), format("ZZZZZZ.XXX-")
.field l_onhd, d9.3, pos(1,27), format("ZZZZZZ.XXX-")
.field l_aloc, d9.3, pos(1,38), format("ZZZZZZ.XXX-")
.field l_atdk, d9.3, pos(1,48), format("ZZZZZZ.XXX-")
.field l_prc1, d9.3, pos(1,60), format("ZZZZZZ.XXX")
.field l_prc2, d9.3, pos(1,71), format("ZZZZZZ.XXX")
.field l_prc3, d9.3, pos(1,82), format("ZZZZZZ.XXX")
.field l_prc4, d9.3, pos(1,93), format("ZZZZZZ.XXX")
.field l_prc5, d9.3, pos(1,104), format("ZZZZZZ.XXX")
.structure rec1, l_locn,l_aval,l_onor,l_onhd,l_aloc,l_atdk,l_prc1,-
	l_prc2,l_prc3,l_prc4,l_prc5
.set set1, rec1, l_locn,l_aval,l_onor,l_onhd,l_aloc,l_atdk,l_prc1,-
	l_prc2,l_prc3,l_prc4,l_prc5
.end
;
;===============================================================
.input i_linlocn, 1, 71
.placement 6, 1
.title " Item Locations "
.field l_head, a1, -
 user("Loc    On-Hand     Price-1    Price-2    Price-3    Price-4    Price-5")
.field l_locn, a3, pos(1,1)
.field l_onhd, d9.3, pos(1,5), format("ZZZZZZ.XXX")
.field l_prc1, d9.3, pos(1,16), format("ZZZZZZ.XXX")
.field l_prc2, d9.3, pos(1,27), format("ZZZZZZ.XXX")
.field l_prc3, d9.3, pos(1,38), format("ZZZZZZ.XXX")
.field l_prc4, d9.3, pos(1,49), format("ZZZZZZ.XXX")
.field l_prc5, d9.3, pos(1,60), format("ZZZZZZ.XXX")
.structure rec1, <26>,l_locn,<64>,l_prc1,l_prc2,l_prc3,l_prc4,l_prc5,l_onhd
.set set1, rec1, l_locn,l_onhd,l_prc1,l_prc2,l_prc3,l_prc4,l_prc5
.end
;
;===============================================================
.listclass l_inpcat, items(16), headers(1), load_method("INLL_INPCAT")
.end
;
.input i_linpcat, 1, 48
.placement 2, 18
.title " Price Catalog "
.field l_head, a1, -
 user("Typ  Description")

.field l_ktype, a3, pos(1,1)
.field l_descr, a40, pos(1,6)

.structure rec1, <2>,l_ktype,<30>,l_descr
.set set1, rec1, l_ktype,l_descr
.end
;
;===============================================================
.listclass l_inpric, items(12), headers(1), load_method("INLL_INPRIC")
.end
;
.input i_linpric, 1, 48
.placement 6, 18
.title " Special Pricing "
.field l_head, a1, -
 user("T <---------Record Key---------->   Effective")

.field l_ktype, a1, pos(1,1)
.field l_key, a32, pos(1,3)
.field l_effdate, d8, date, pos(1,35)

.structure rec1, <2>,l_ktype,l_key,l_effdate
.set set1, rec1, l_ktype,l_key,l_effdate
.end
;
;===============================================================
.listclass l_inrlty, items(12), headers(1), load_method("INLL_INRLTY")
.end
;
.input i_linrlty, 1, 36
.placement 6, 16
.title " Royalties "
.field l_head, a1, -
 user("Item                       Vendor T ")
.field l_item, a24, pos(1,1)
.field l_vend, d8, pos(1,26)
.field l_rtype, a1, pos(1,35)
.structure rec1, <2>,l_item,l_vend,l_rtype
.set set1, rec1, l_item,l_vend,l_rtype
.end
;
;===============================================================
.listclass l_insnlt, items(12), headers(1), load_method("INLL_INSNLT")
.end
;
.input i_linsnlt, 1, 62
.placement 6, 1
.title " Serial/Lot Numbers "
.field l_head, a1, -
 user("Loc  Bin     Serial/Lot-No        S T   On-Hand   Allocated")
.field l_locn, a3, pos(1,1)
.field l_bin, a8, pos(1,5)
.field l_snlt, a20, pos(1,14)
.field l_stat, a1, pos(1,35)
.field l_type, a1, pos(1,37)
.field l_onhd, d9.3, pos(1,39), format('ZZZZZZ.XXX')
.field l_aloc, d9.3, pos(1,50), format('ZZZZZZ.XXX')
.structure rec1, <26>,l_locn,l_snlt,l_bin,l_stat,l_type,l_onhd,l_aloc
.set set1, rec1, l_snlt,l_locn,l_bin,l_stat,l_type,l_onhd,l_aloc
.end
;
;===============================================================
;;.listclass l_intran, items(16), headers(1), load_method("INLL_INTRAN")
;;.end
;
.input i_lintran, 1, 38
.placement 8, 10
.title " Transactions "
.field l_head, a1, -
 user(" Order      Date     C  S  Frm   To")
.field l_order, d6, pos(1,1)
.field l_date, d8, date, pos(1,9)
.field l_code, a1, pos(1,22)
.field l_status, a1, pos(1,25)
.field l_from, a3, pos(1,28)
.field l_to, a3, pos(1,33)
.structure rec1, <2>,l_order,<4>,l_code,l_status,l_to,l_from,<3>,l_date
.set set1, rec1, l_order,l_code,l_status,l_to,l_from,l_date
.end
;
;===============================================================;
.listclass l_inupcg, items(12), headers(1), load_method("INLL_INUPCG")
.end
;
.input i_linupcg, 1, 40
.placement 8, 5
.title " Upcharges "
.field l_head, a1, -
 user("  Cust   Name                      Cat")
.field l_cust, d8, pos(1,1), format('XXXXXXXX')
.field l_cname, a25, pos(1,10)
.field l_catg, a3, pos(1,36)
.structure rec1, l_cust,l_cname,l_catg
.set set1, rec1, l_cust,l_cname,l_catg
.end
;
;===============================================================
.input i_linvend, 1, 40
.placement 6, 1
.title " Vendors "
.field l_head, a1, -
 user("   ID    Loc  Part-No")
.field l_id, d8, pos(1,1), format('XXXXXXXX')
.field l_locn, a3, pos(1,10)
.field l_part, a24, pos(1,14)
.structure rec1, <26>,l_locn,<1>,l_id,l_part
.set set1, rec1, l_id,l_locn,l_part
.end
;
;==================================================================;
.input innotes, 7, 62
.placement 12, 5
.title ' Note ', highlight
.line Line1, 62, pos(3,1), horizontal
.paint _
 
.field ncomp, a2, pos(1,1), Prompt("Comp"), fpos(1,6)
 
.field nid, a24, pos(2,1), prompt("ID"), fpos(2,6)
 
.field nnote, 4a60, help(UTFXNOTE), fpos(4,1)
 
.structure rec1, ncomp,nid,nnote
.set set1, rec1, nnote
.set set9, rec1, ncomp,nid,nnote
.end
;
;===============================================================
.input insetupc, 4, 45
.placement 12, 10
.title ' Set Item UPC ', highlight
.line Line1, 45, pos(3,1), horizontal
.paint _

.field item, a24, pos(1,1), prompt("Item ID"), fpos(1,13), -
 help(INITEMID),  user('#Drill/Req#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field item_descr, a30, fpos(2,13)

.field upc, a14, pos(4,1), prompt("UPC"), fpos(4,13), -
 help(INITUPC), hyperlink_method("INSNLT_HYPER")

.structure rec1, item,upc
.set set1, rec1, item,upc
.end
;
;================================================================== 
.input in2000, 19, 78
.placement 1, 1
.title ' Items ', highlight
.line Line1, 78, pos(2,1), horizontal
.line Line2, 14, pos(2,39), vertical
.line Line3, 78, pos(15,1), horizontal
.line Line4, 40, pos(5,39), horizontal
.line Line2, 11, pos(5,61), vertical
.paint _
 
.field item, a24, pos(1,1), prompt("Item"), fpos(1,6), -
 help(INITEMID), change_method("ANYFLD_CHANGE")
 
.field desc, a30, pos(1,31), prompt("Desc"), fpos(1,36), -
 help(INITDESC), required
 
.field skey, a20, pos(3,1), prompt("Search name"), fpos(3,13), -
 help(INITSKEY), uc, change_method("ITM_SORT_CHANGE")
 
.field catlg1, a3, pos(4,1), prompt("Catalog mfg"), fpos(4,13), -
 help(INITCATELOG1), user('#Drill/Opt/G#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field catlg1_descr, a20, fpos(4,19), paint(" ")
 
.field catlg2, a3, pos(5,1), prompt("Catalog sub"), fpos(5,13), -
 help(INITCATELOG2), user('#Drill/Opt/G#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field catlg2_descr, a20, fpos(5,19), paint(" ")
 
.field catlg3, d4, pos(6,1), prompt("Catalog seq"), fpos(6,13), -
 help(INITCATELOG3), format("XXXX")
 
.field catg, a3, pos(7,1), prompt("Category"), fpos(7,13), -
 help(INITCATG), user('#Drill/Req/C#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field catg_descr, a20, fpos(7,19), paint(" ")
 
.field suom, a3, pos(8,1), prompt("Sell UOM"), fpos(8,13), -
 help(INITSUOM), user('#Drill/Req/U#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field suom_descr, a20, fpos(8,19), paint(" ")
 
.field buom, a3, pos(9,1), prompt("Buy UOM"), fpos(9,13), -
 help(INITBUOM), user('#Drill/Req/U#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field buom_descr, a20, fpos(9,19), paint(" ")
 
.field uomf, d6, pos(10,1), prompt("UOM factor"), fpos(10,13), -
 help(INITUOMF), format("ZZZZZX"), default(1), range(1,999999)
 
.field comm, a3, pos(11,1), prompt("Commission"), fpos(11,13), -
 help(INITCOMM), user('#Drill/Opt/M#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field comm_descr, a20, fpos(11,19), paint(" ")
 
.field warc, a3, pos(12,1), prompt("Warranty"), fpos(12,13), -
 help(INITWNTY), user('#Drill/Opt/W#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field warc_descr, a20, fpos(12,19), paint(" ")
 
.field prodtype, a1, pos(13,1), prompt("Type"), fpos(13,13), -
 help(INITPRODTYP), -
 select(0,3,,"F:finished product","C:finished component","L:labor", -
	     "P:purchased component","R:raw material")
 
.field txbl, a1, pos(14,1), prompt("Taxable"), fpos(14,13), -
 help(INITTAXB), -
 select(1,3,,"Not taxable","Taxable always","Inhouse usage taxable")
 
.field upc, a14, pos(3,40), prompt("UPC"), fpos(3,48), -
 help(INITUPC), hyperlink_method("INSNLT_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")

.field slmask, a5, pos(3,64), prompt("SL mask"), fpos(3, 72), -
 help(INITSLMASK)

.field createdate, d8, fpos(4,64), date
.field createby, a3, fpos(4,76) 

.field status, a1, pos(4,40), prompt("Status"), fpos(4,48), -
 help(INITSTATUS), -
 select(0,3,,"Active","Inactive","No sale","Closeout")
 
.field ctrl, a1, pos(6,40), prompt("Controlled"), fpos(6,52), -
 help(INITCTRL), selwnd(1,3,yesno)
 
.field mfgd, a1, pos(7,40), prompt("Built"), fpos(7,52), -
 help(INITMFGD), select(1,3,,"No","Yes","Doc")
 
.field qtyprc, a1, pos(8,40), prompt("Qty pricing"), fpos(8,52), -
 help(INITQTYPRICE), selwnd(1,3,noyes)
 
.field usage, a1, pos(9,40), prompt("Usage"), fpos(9,52), -
 help(INITUSAGE), selwnd(1,3,yesno)

.field slst, a1, pos(10,40), prompt("Serial/lot"), fpos(10,52), -
 help(INITSNLT), change_method("ANYFLD_CHANGE"), -
 select(0,3,,"None","Serial","Lot","Kit")
 
.field hazard, a1, pos(11,40), prompt("Hazardous"), fpos(11,52), -
 help(INITHAZARD), selwnd(1,3,noyes)

.field revision, a3, pos(12,40), prompt("Revision"), fpos(12,52), -
 help(INITREVLEVEL)
 
.field frtclass, d3, pos(13,40), prompt("Frt Class"), fpos(13,52), -
 help(INITFRTCLASS), format("ZXX")

.field pallet, d3, pos(14,40), prompt("Pallet qty"), fpos(14,52), -
 help(INITPALLET), format("ZZX"), default(0), range(0,999)

.field wght, d6.2, pos(6,62), prompt("Weight"), fpos(6,71), -
 help(INITWGHT), format("ZZZZ.XX")
 
.field cube, d4.2, pos(7,62), prompt("Cubes"), fpos(7,71), -
 help(INITCUBE), format("ZZ.XX")
 
.field sizeln, d5.2, pos(8,62), prompt("Length"), fpos(8,71), -
 help(INITSIZELN)
 
.field sizewd, d5.2, pos(9,62), prompt("Width"), fpos(9,71), -
 help(INITSIZEWD)
 
.field sizeht, d5.2, pos(10,62), prompt("Height"), fpos(10,71), -
 help(INITSIZEHT)
 
.field packsize, a8, pos(11,62), prompt("Pack"), fpos(11,71), -
 help(INITPACKSIZE)
 
.field packqty, d5, pos(12,62), prompt("Pack qty"), fpos(12,71), -
 help(INITPACKQTY), format("ZZZZX")
 
.field boxing, a1, pos(13,62), prompt("Rebox"), fpos(13,71), -
 help(INITREBOX), selwnd(1,3,noyes)
 
.field perbox, d3, pos(14,62), prompt("Box qty"), fpos(14,71), -
 help(INITPERBOX), format("ZX"), default(1), range(1,999)
 
.field edesc, 4a60, pos(16,1), prompt("Extended"), fpos(16,13), -
 help(INITDESC)
.text Text1, pos(17,1)
Description
 
.structure rec1, <2>,item,desc,skey,upc,status,ctrl,mfgd,usage,qtyprc, -
	<1>,catlg1,catlg2,catlg3,warc,comm,catg,buom,suom,uomf, -
	prodtype,txbl,slst,wght,cube,sizeln,sizewd,sizeht,pallet,-
	perbox,packsize,<1>,packqty,frtclass,edesc,boxing,hazard,revision, -
	slmask,createdate,createby
.set set_add, rec1, item,desc,skey,catlg1,catlg2,catlg3,catg,suom,buom,uomf, -
	comm,warc,prodtype,txbl,upc,slmask,status,ctrl,mfgd,qtyprc,usage,slst, -
	hazard,revision,frtclass,pallet,wght,cube,sizeln,sizewd,sizeht, -
	packsize,packqty,boxing,perbox,edesc
.set set_chg, rec1, desc,skey,catlg1,catlg2,catlg3,catg,suom,buom,uomf, -
	comm,warc,prodtype,txbl,upc,slmask,status,ctrl,mfgd,qtyprc,usage,slst, -
	hazard,revision,frtclass,pallet,wght,cube,sizeln,sizewd,sizeht, -
	packsize,packqty,boxing,perbox,edesc
.set set_show, rec1, item,desc,skey,catlg1,catlg2,catlg3,catg,suom,buom,uomf, -
	comm,warc,status,prodtype,txbl,upc,ctrl,mfgd,usage,qtyprc,slst, -
	frtclass,wght,cube,pallet,sizeln,sizewd,sizeht,packsize,packqty, -
	perbox,edesc,boxing,hazard,revision,slmask,createdate,createby
.button, pic, text("Picture")
.button_set bottom, end
.end
; 
;================================================================== 
.input in2010, 16, 67
.placement 10, 15
.title 'Location', highlight
.line Line1, 67, pos(2,1), horizontal
.line Line2, 67, pos(4,1), horizontal
.line Line3, 12, pos(4,30), vertical
.line Line4, 35, pos(9,30), horizontal
.line Line5, 67, pos(15,1), horizontal
.line Line6, 15, pos(1,67), vertical
.paint _

.field item, a24, pos(1,1), prompt("Item"), fpos(1,6)
.field descr, a30, pos(1,31), prompt("Desc"), fpos(1,36)

.field locn, a3, pos(3,1), prompt("Location code"), fpos(3,16), -
 help(INITLOCNCODE), copy, user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE"), -
 hyperlink_method("SMCODE_HYPER"), info("FIND(Lookup) ... ^A(Maintenance)")
.field locn_descr, a25, fpos(3,22)

.field avcs, d9.3, pos(5,1), prompt("Average cost"), fpos(5,18), -
 help(INITAVGC), format("ZZZ,ZZZ.XXX")
 
.field lscs, d9.3, pos(6,1), prompt("Last cost"), fpos(6,18), -
 help(INITRECC), format("ZZZ,ZZZ.XXX")
 
.field stcs, d9.3, pos(7,1), prompt("Standard cost"), fpos(7,18), -
 help(INITSTDC), format("ZZZ,ZZZ.XXX")
 
.field mrgn, d4.2, pos(8,1), prompt("Desired margin"), fpos(8,23), -
 help(INITMARG), format("ZZ.XX"), change_method("ANYFLD_CHANGE")
 
.field prc1, d9.3, pos(9,1), prompt("Price 1"), fpos(9,18), -
 help(INITPRC1), format("ZZZ,ZZZ.XXX")
 
.field prc2, d9.3, pos(10,1), prompt("Price 2"), fpos(10,18), -
 help(INITPRC2), format("ZZZ,ZZZ.XXX")
 
.field prc3, d9.3, pos(11,1), prompt("Price 3"), fpos(11,18), -
 help(INITPRC3), format("ZZZ,ZZZ.XXX")
 
.field prc4, d9.3, pos(12,1), prompt("Price 4"), fpos(12,18), -
 help(INITPRC4), format("ZZZ,ZZZ.XXX")
 
.field prc5, d9.3, pos(13,1), prompt("Price 5"), fpos(13,18), -
 help(INITPRC5), format("ZZZ,ZZZ.XXX")
 
.field pfactor, d6, pos(14,1), prompt("Price factor"), fpos(14,18), -
 help(INITPFACTOR), format("ZZZ,ZZX"),-
 default(1), required
 
.field onhd, d9.3, pos(5,32), prompt("Qty in stock"), fpos(5,46), -
 help(INITQOHA), format("ZZZ,ZZZ.XXX-")
 
.field atdk, d9.3, pos(6,32), prompt("Qty at dock"), fpos(6,46), -
 help(INITQADA), format("ZZZ,ZZZ.XXX-")
 
.field onor, d9.3, pos(7,32), prompt("Qty on order"), fpos(7,46), -
 help(INITQOOA), format("ZZZ,ZZZ.XXX-")
 
.field aloc, d9.3, pos(8,32), prompt("Qty allocate"), fpos(8,46), -
 help(INITQALA), format("ZZZ,ZZZ.XXX-")
 
.field reor, d6, pos(10,32), prompt("Reorder pt"), fpos(10,46), -
 help(INITREOP), format("ZZZ,ZZX")
 
.field eoq, d6, pos(11,32), prompt("Econ ord qty"), fpos(11,46), -
 help(INITEOQA), format("ZZZ,ZZX")
 
.field lead, d2, pos(12,32), prompt("Lead days"), fpos(12,51), -
 help(INITLTIM), format("ZX")

.field cycd, a2, pos(13,32), prompt("Cycle code"), fpos(13,51), -
 help(INITCYCC)
 
.field fstcs, d9.3, pos(14,32), prompt("Futr std cost"), fpos(14,46), -
 help(INITSTDC), format("ZZZ,ZZZ.XXX")

.structure rec1, <2>,item,locn,onor,atdk,aloc,avcs,lscs,stcs,mrgn,pfactor, -
	prc1,prc2,prc3,prc4,prc5,onhd,reor,lead,eoq,cycd,fstcs
.set set_add, rec1, locn,avcs,lscs,stcs,mrgn,prc1,prc2,prc3,prc4,prc5, -
	pfactor,onhd,atdk,onor,aloc,reor,eoq,lead,cycd,fstcs
.set set_chg, rec1, avcs,lscs,stcs,mrgn,prc1,prc2,prc3,prc4,prc5, -
	pfactor,onhd,atdk,onor,aloc,reor,eoq,lead,cycd,fstcs
.set set_show, rec1, locn,avcs,lscs,stcs,mrgn,prc1,prc2,prc3,prc4,prc5, -
	pfactor,onhd,atdk,onor,aloc,reor,eoq,lead,cycd,fstcs
.end
;
;===================================================================== 
.input in2020, 12, 67
.placement 10, 24
.title ' Customers ', highlight
.line Line1, 67, pos(2,1), horizontal
.line Line2, 67, pos(5,1), horizontal
.line Line3, 67, pos(12,1), horizontal
.line Line4, 12, pos(1,67), vertical

.field item, a24, pos(1,1), prompt("Item"), fpos(1,6)
.field descr, a30, pos(1,31), prompt("Desc"), fpos(1,36)

.field cust, d8, pos(3,1), prompt("Customer ID"), fpos(3,20), -
 help(INITCUSTID), format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("namast_find"), change_method("NAMAST_CHANGE"), -
 info("FIND(Lookup)")
.field cust_descr, a30, fpos(3,32)

.field locn, a3, pos(4,1), prompt("Location"), fpos(4,20), -
 help(INITVLOCN), user('#Drill/Req/L#'), info("FIND(Lookup)"), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a25, fpos(4,32)

.field partno, a24, pos(6,1), prompt("Part number"), fpos(6,20), -
 help(INITCPART)

.field vdate, d8, pos(7,1), prompt("Last purchase"), fpos(7,20), -
 help(INITCDATE), date(today)

.field cost, d9.3, pos(8,1), prompt("Last unit cost"), fpos(8,20), -
 help(INITCLCOST), format("ZZZ,ZZZ.XXX")

.field qty, d9.3, pos(9,1), prompt("Last quantity"), fpos(9,20), -
 help(INITCLQTY), format("ZZZ,ZZZ.XXX")

.field bar, a1, pos(10,1), prompt("Bar coding"), fpos(10,20), -
 help(INITCBAR), selwnd(1,3,noyes)

.field label, a1, pos(11,1), prompt("Labels"), fpos(11,20), -
 help(INITCLABEL), select(1,3,,"Our no","Cust no")
 
.structure rec1, <2>,item,locn,<1>,cust,partno,vdate,cost,qty,bar,label
.set set_add, rec1, cust,locn,partno,vdate,cost,qty,bar,label
.set set_chg, rec1, partno,vdate,cost,qty,bar,label
.set set_show, rec1, cust,locn,partno,vdate,cost,qty,bar,label
.end
;
;===================================================================== 
.input in2030, 15, 67
.placement 10, 24
.title ' Vendors ', highlight
.line Line1, 67, pos(2,1), horizontal
.line Line2, 67, pos(5,1), horizontal
.line Line3, 67, pos(15,1), horizontal
.line Line4, 15, pos(1,67), vertical
 
.field item, a24, pos(1,1), prompt("Item"), fpos(1,6)
.field descr, a30, pos(1,31), prompt("Desc"), fpos(1,36)
 
.field vend, d8, pos(3,1), prompt("Vendor ID"), fpos(3,20), -
 help(INITVENDID), format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("namast_find"), change_method("NAMAST_CHANGE"), -
 info("FIND(Lookup)")
.field vend_descr, a30, fpos(3,32)
 
.field locn, a3, pos(4,1), prompt("Location"), fpos(4,20), -
 help(INITVLOCN), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE"), -
 info("FIND(Lookup)")
.field locn_descr, a25, fpos(4,32)
 
.field partno, a24, pos(6,1), prompt("Part number"), fpos(6,20), -
 help(INITVPART)
 
.field vdate, d8, pos(7,1), prompt("Last purchase"), fpos(7,20), -
 help(INITVDATE), date(today)
 
.field cost, d9.3, pos(8,1), prompt("Last unit cost"), fpos(8,20), -
 help(INITVLCOST), format("ZZZ,ZZZ.XXX")
 
.field qty, d9.3, pos(9,1), prompt("Last quantity"), fpos(9,20), -
 help(INITVLQTY), format("ZZZ,ZZZ.XXX")
 
.field frttyp, a3, pos(10,1), prompt("Unit freight"), fpos(10,14)
.field freight, d6.3, fpos(10,24), -
 help(INITVFRGT), format("ZZZ.XXX"), break
 
.field pctchg, d4.1, pos(11,1), prompt("Cost change %"), fpos(11,24), -
 help(INITVCHGPCT), format("ZZZ.X-")
 
.field futdate, d8, pos(12,1), prompt("Future cost date"), fpos(12,20), -
 help(INITFDATE), date, default(29991231)
 
.field futcost, d9.3, pos(13,1), prompt("Future unit cost"), fpos(13,20), -
 help(INITVFCOST), format("ZZZ,ZZZ.XXX")
 
.field privend, a1, pos(14,1), prompt("Primary vendor"), fpos(14,20), -
 help(INITVPRIVEND), selwnd(1,3,yesno)

.structure rec1, <2>,item,locn,<1>,vend,partno,vdate,cost,qty,<2>,pctchg, -
	freight,futdate,futcost,privend
.set set_add, rec1, vend,locn,partno,vdate,cost,qty,freight,pctchg, -
	futdate,futcost,privend
.set set_chg, rec1, partno,vdate,cost,qty,freight,pctchg,futdate,futcost, -
	privend
.set set_show, rec1, vend,locn,partno,vdate,cost,qty,freight,pctchg, -
	futdate,futcost,privend
.end
;
;===================================================================== 
.input in2040, 19, 75
.placement 12, 7
.title ' Sales ', highlight
.line Line1, 75, pos(3,1), horizontal
.line Line2, 19, pos(1,75), vertical
.line Line3, 75, pos(19,1), horizontal
.paint _

.field item, a24, pos(1,1), prompt("Item"), fpos(1,6)
.field descr, a30, pos(1,31), prompt("Desc"), fpos(1,36)

.field locn, a3, pos(2,1), prompt("Location"), fpos(2,10)
.field locn_descr, a25, fpos(2,16)

.field selyear, d4, pos(4,1), prompt("Year"), fpos(4,6), -
 help(INITYEARMO), format("XXXX")

.field qty_cyr, d10.3, pos(4,13), prompt("Quantity sold"), fpos(4,28), -
 help(INITQYTD), negative, format("Z,ZZZ,ZZZ.XXX-")

.field avg_cyr, d9.3, pos(4,45), prompt("Avg Qty Bal"), fpos(4,58), -
 help(INITAVGCYR), negative, format("ZZZ,ZZZ.XXX-")

.text Text4, pos(5,1)
Mon
.text Text5, pos(5,11)
Sales
.text Text6, pos(5,28)
Cost
.text Text7, pos(5,40)
Units lost
.text Text8, pos(5,56)
Orders lost

.field sale_mtd01, d10.2, pos(6,1), prompt("01"), fpos(6,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd02, d10.2, pos(7,1), prompt("02"), fpos(7,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd03, d10.2, pos(8,1), prompt("03"), fpos(8,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd04, d10.2, pos(9,1), prompt("04"), fpos(9,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd05, d10.2, pos(10,1), prompt("05"), fpos(10,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd06, d10.2, pos(11,1), prompt("06"), fpos(11,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd07, d10.2, pos(12,1), prompt("07"), fpos(12,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd08, d10.2, pos(13,1), prompt("08"), fpos(13,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd09, d10.2, pos(14,1), prompt("09"), fpos(14,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd10, d10.2, pos(15,1), prompt("10"), fpos(15,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd11, d10.2, pos(16,1), prompt("11"), fpos(16,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_mtd12, d10.2, pos(17,1), prompt("12"), fpos(17,5), -
 help(INITSMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field sale_ytd, d10.2, pos(18,1), prompt("YTD"), fpos(18,5), -
 help(INITSYTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd01, d10.2, fpos(6,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd02, d10.2, fpos(7,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd03, d10.2, fpos(8,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd04, d10.2, fpos(9,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd05, d10.2, fpos(10,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd06, d10.2, fpos(11,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd07, d10.2, fpos(12,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd08, d10.2, fpos(13,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd09, d10.2, fpos(14,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd10, d10.2, fpos(15,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd11, d10.2, fpos(16,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_mtd12, d10.2, fpos(17,22), -
 help(INITCMTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field cost_ytd, d10.2, fpos(18,22), -
 help(INITCYTD), negative, format("ZZ,ZZZ,ZZZ.XX-")

.field qlost_mtd01, d9.3, fpos(6,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd02, d9.3, fpos(7,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd03, d9.3, fpos(8,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd04, d9.3, fpos(9,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd05, d9.3, fpos(10,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd06, d9.3, fpos(11,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd07, d9.3, fpos(12,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd08, d9.3, fpos(13,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd09, d9.3, fpos(14,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd10, d9.3, fpos(15,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd11, d9.3, fpos(16,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")
.field qlost_mtd12, d9.3, fpos(17,38), -
 help(INITQLMTD), format("Z,ZZZ,ZZZ.XXX-")

.field qlost_cyr, d9.3, fpos(18,38), -
 help(INITQLYTD), format("Z,ZZZ,ZZZ.XXX-")

.field olost_mtd01, d4, fpos(6,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd02, d4, fpos(7,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd03, d4, fpos(8,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd04, d4, fpos(9,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd05, d4, fpos(10,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd06, d4, fpos(11,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd07, d4, fpos(12,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd08, d4, fpos(13,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd09, d4, fpos(14,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd10, d4, fpos(15,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd11, d4, fpos(16,59), -
 help(INITOLMTD), format("Z,ZZX")
.field olost_mtd12, d4, fpos(17,59), -
 help(INITOLMTD), format("Z,ZZX")

.field olost_cyr, d4, fpos(18,59), -
 help(INITOLYTD), format("Z,ZZX")

.structure rec1, <26>,locn,selyear,qty_cyr,avg_cyr,<16>,-
	sale_mtd01,sale_mtd02,sale_mtd03,sale_mtd04,-
	sale_mtd05,sale_mtd06,sale_mtd07,sale_mtd08,-
	sale_mtd09,sale_mtd10,sale_mtd11,sale_mtd12,sale_ytd,-
	cost_mtd01,cost_mtd02,cost_mtd03,cost_mtd04,-
	cost_mtd05,cost_mtd06,cost_mtd07,cost_mtd08,-
	cost_mtd09,cost_mtd10,cost_mtd11,cost_mtd12,cost_ytd,-
	qlost_mtd01,qlost_mtd02,qlost_mtd03,qlost_mtd04,-
	qlost_mtd05,qlost_mtd06,qlost_mtd07,qlost_mtd08,-
	qlost_mtd09,qlost_mtd10,qlost_mtd11,qlost_mtd12,qlost_cyr,-
	olost_mtd01,olost_mtd02,olost_mtd03,olost_mtd04,-
	olost_mtd05,olost_mtd06,olost_mtd07,olost_mtd08,-
	olost_mtd09,olost_mtd10,olost_mtd11,olost_mtd12,olost_cyr
.set set_show, rec1, locn,selyear,qty_cyr,avg_cyr,-
	sale_mtd01,sale_mtd02,sale_mtd03,sale_mtd04,-
	sale_mtd05,sale_mtd06,sale_mtd07,sale_mtd08,-
	sale_mtd09,sale_mtd10,sale_mtd11,sale_mtd12,sale_ytd,-
	cost_mtd01,cost_mtd02,cost_mtd03,cost_mtd04,-
	cost_mtd05,cost_mtd06,cost_mtd07,cost_mtd08,-
	cost_mtd09,cost_mtd10,cost_mtd11,cost_mtd12,cost_ytd,-
	qlost_mtd01,qlost_mtd02,qlost_mtd03,qlost_mtd04,-
	qlost_mtd05,qlost_mtd06,qlost_mtd07,qlost_mtd08,-
	qlost_mtd09,qlost_mtd10,qlost_mtd11,qlost_mtd12,qlost_cyr,-
	olost_mtd01,olost_mtd02,olost_mtd03,olost_mtd04,-
	olost_mtd05,olost_mtd06,olost_mtd07,olost_mtd08,-
	olost_mtd09,olost_mtd10,olost_mtd11,olost_mtd12,olost_cyr
.end
;
;===================================================================== 
.input in2050, 12, 67
.placement 8, 5
.title ' Bins ', highlight
.line Line1, 67, pos(3,1), horizontal
.line Line2, 67, pos(5,1), horizontal
.line Line3, 8, pos(5,30), vertical
.line Line4, 67, pos(12,1), horizontal
.line Line5, 12, pos(1,67), vertical
.paint _
 
.field item, a24, pos(1,1), prompt("Item"), fpos(1,6)
.field descr, a30, pos(1,31), prompt("Desc"), fpos(1,36)
.field locn, a3, pos(2,1), prompt("Location"), fpos(2,10)
.field locn_descr, a25, fpos(2,15)
 
.field abin, a8, pos(4,1), prompt("Bin"), fpos(4,16), -
 help(INABBINNO), required, change_method("ANYFLD_CHANGE")
 
.field pribin, a1, pos(6,1), prompt("Primary"), fpos(6,16), -
 help(INABBINPRI), selwnd(1,3,yesno)
 
.field onhd, d9.3, pos(7,1), prompt("Units on hand"), fpos(7,16), -
 help(INABQOHA), format("ZZZ,ZZZ.XXX-")
 
.field tagno, d8, pos(6,31), prompt("Tag no"), fpos(6,46), -
 help(INABTAGNO)
 
.field qtyfrozen, d9.3, pos(7,31), prompt("Units frozen"), fpos(7,46), -
 help(INABQTYFRZ), format("ZZZ,ZZZ.XXX-")
 
.field datefrozen, d8, pos(8,31), prompt("Date frozen"), fpos(8,46), -
 help(INABFRZDATE), date(today)
 
.field qtycounted, d9.3, pos(9,31), prompt("Units counted"), fpos(9,46), -
 help(INABQTYCNT), format("ZZZ,ZZZ.XXX-")
 
.field datecounted, d8, pos(10,31), prompt("Date counted"), fpos(10,46), -
 help(INABCNTDATE), date(today)
 
.field countflag, a1, pos(11,31), prompt("Count posted"), fpos(11,46), -
 help(INABCNTFLAG), -
 select(0,3,,"N:nothing","T:tag printed","C:captured","Y:posted")
 
.structure rec1, <29>,abin,onhd,tagno,qtyfrozen,datefrozen, -
	qtycounted,datecounted,countflag,pribin
.set set_add, rec1, abin,pribin,onhd,tagno,qtyfrozen,datefrozen, -
	qtycounted,datecounted,countflag
.set set_chg, rec1, pribin,onhd,tagno,qtyfrozen,datefrozen, -
	qtycounted,datecounted,countflag
.set set_show, rec1, abin,pribin,onhd,tagno,qtyfrozen,datefrozen, -
	qtycounted,datecounted,countflag
.end
;
;================================================================== 
.input in2060, 13, 67
.placement 1, 1
.title ' Serial/Lot ', highlight
.line Line1, 67, pos(3,1), horizontal
.line Line2, 67, pos(5,1), horizontal
.line Line3, 67, pos(11,1), horizontal
.line Line4, 67, pos(13,1), horizontal
.line Line5, 12, pos(1,67), vertical
.line Line6, 12, pos(5,34), vertical
.paint _

.field item, a24, pos(1,1), prompt("Item"), fpos(1,6)
.field descr, a30, pos(1,31), prompt("Desc"), fpos(1,36)
.field locn, a3, pos(2,1), prompt("Location"), fpos(2,10)
.field locn_descr, a25, fpos(2,15)

.field snlt, a20, pos(4,1), prompt("Serial/lot no"), fpos(4,16), -
 help(INSLSNLT), change_method("ANYFLD_CHANGE"), -
 hyperlink_method("INSNLT_HYPER"), info("FIND(Lookup) ... ^A(Maintenance)")

.field bin, a8, pos(6,1), prompt("Bin"), fpos(6,16), -
 help(INITBIN), change_method("ANYFLD_CHANGE")

.field stat, a1, pos(7,1), prompt("Status"), fpos(7,16), -
 help(INSLSTAT), select(1,3,,"Available","Sold")

.field type, a1, pos(8,1), prompt("Type"), fpos(8,16), -
 help(INSLTYPE), select(1,3,,"New","Used","Rebuilt")

.field onhd, d9.3, pos(9,1), prompt("On hand"), fpos(9,16), -
 help(INSLQTYR), format("ZZZ,ZZZ.XXX-"), change_method("ANYFLD_CHANGE")

.field aloc, d9.3, pos(10,1), prompt("Allocated"), fpos(10,16), -
 help(INSLALOC), format("ZZZ,ZZZ.XXX-"), change_method("ANYFLD_CHANGE")

.field totqty, d9.3, pos(12,1), prompt("Total S/L qty"), fpos(12,16), -
 format("ZZZ,ZZZ.XXX-")

.field qtyfrozen, d9.3, pos(6,35), prompt("Units frozen"), fpos(6,50), -
 help(INABQTYFRZ), format("ZZZ,ZZZ.XXX-")
 
.field datefrozen, d8, pos(7,35), prompt("Date frozen"), fpos(7,50), -
 help(INABFRZDATE), date(today)
 
.field qtycounted, d9.3, pos(8,35), prompt("Units counted"), fpos(8,50), -
 help(INABQTYCNT), format("ZZZ,ZZZ.XXX-")
 
.field datecounted, d8, pos(9,35), prompt("Date counted"), fpos(9,50), -
 help(INABCNTDATE), date(today)
 
.field countflag, a1, pos(10,35), prompt("Count posted"), fpos(10,50), -
 help(INABCNTFLAG), -
 select(0,3,,"N:nothing","T:tag printed","C:captured","Y:posted")

.structure rec1, <29>,snlt,bin,stat,type,onhd,aloc,qtyfrozen,datefrozen, -
	qtycounted,datecounted,countflag
.set set_add, rec1, snlt,bin,stat,type,onhd,aloc
.set set_chg, rec1, bin,stat,type,onhd,aloc
.set set_show, rec1, snlt,bin,stat,type,onhd,aloc,qtyfrozen,datefrozen, -
	qtycounted,datecounted,countflag
.button, pic, text("Picture")
.button_set bottom, end
.end
;
;==================================================================
.input in2200, 16, 76
.placement 1, 1
.title ' Special Price Maintenance ', highlight
.line Line1, 76, pos(10,1), horizontal
.line Line2, 10, pos(1,32), vertical
.line Line3, 76, pos(14,1), horizontal
.paint _

.field rtype, a1, pos(1,1), prompt("Record type"), fpos(1,16), -
 help(INPTYPER), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"1:Cust/Item","2:Cust/Categ","3:Cust", -
		"4:Item/Loc","5:Categ/Loc","6:Class/Item",-
		"7:Terr/Item")

.field efdate, d8, pos(2,1), prompt("Effective"), fpos(2,16), -
 help(INPEFDAT), date(today), change_method("ANYFLD_CHANGE")

.field exdate, d8, pos(3,1), prompt("Expires"), fpos(3,16), -
 help(INPEXDAT), date(today), change_method("ANYFLD_CHANGE")

.field cust, d8, pos(1,33), prompt("Customer ID"), fpos(1,45), -
 help(INPCUSTN), format('XXXXXXXX'), bzro, user('#Drill/Req#'), -
 drill_method("namast_find"), change_method("NAMAST_CHANGE") 
.field cust_descr, a30, fpos(2,45), paint(" ")

.field class, d2, pos(3,33), prompt("Cust class"), fpos(3,45), -
 help(INPCLASS), bzro, change_method("ANYFLD_CHANGE")

.field terr, a3, pos(4,33), prompt("Territory"), fpos(4,45), -
 help(INPTERR), user('#Drill/Req/R#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field terr_descr, a25, fpos(4,52), paint(" ")

.field item, a24, pos(5,33), prompt("Item ID"), fpos(5,45), -
 help(INPITMNO), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field item_descr, a30, fpos(6,45), paint(" ")

.field catg, a3, pos(7,33), prompt("Category"), fpos(7,45), -
 help(INPCATEG), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field catg_descr, a25, fpos(7,52), paint(" ")

.field locn, a3, pos(8,33), prompt("Location"), fpos(8,45), -
 help(INPLOCTN), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a25, fpos(8,52), paint(" ")

.field ltype, a1, pos(11,1), prompt("Limit type"), fpos(11,18), -
 help(INPQTYPE), select(1,3,,"Quantity","Dollar")

.field contr, a8, pos(11,41), prompt("Contract no"), fpos(11,58), -
 help(INPCONTR)

.field ptype, a1, pos(12,1), prompt("Price type"), fpos(12,18), -
 help(INPPTYPE), -
 select(1,3,,"Price","Discount","Markup Cost %","Sales")

.field promo, a1, pos(12,41), prompt("Promotion"), fpos(12,58), -
 help(INPPROMO), selwnd(1,3,noyes)

.field round, a1, pos(13,1), prompt("Rounding"), fpos(13,18), -
 help(INPRCROUND), -
 select(1,3,,"None","Cent","T:dime","Quarter","Dollar")

.field limit1, d6, pos(15,1), prompt("Lower limit"), fpos(15,22), -
 help(INUPLM1), format("ZZZ,ZZX")
.field limit2, d6, fpos(15,34), -
 help(INUPLM2), format("ZZZ,ZZX")
.field limit3, d6, fpos(15,46), -
 help(INUPLM3), format("ZZZ,ZZX")
.field limit4, d6, fpos(15,58), -
 help(INUPLM4), format("ZZZ,ZZX")
.field limit5, d6, fpos(15,70), -
 help(INUPLM5), format("ZZZ,ZZX")

.field price1, d9.3, pos(16,1), prompt("Pric/disc/mrkup"), fpos(16,18), -
 help(INPPRIC1), format("ZZZ,ZZZ.XXX")
.field price2, d9.3, fpos(16,30), -
 help(INPPRIC2), format("ZZZ,ZZZ.XXX")
.field price3, d9.3, fpos(16,42), -
 help(INPPRIC3), format("ZZZ,ZZZ.XXX")
.field price4, d9.3, fpos(16,54), -
 help(INPPRIC4), format("ZZZ,ZZZ.XXX")
.field price5, d9.3, fpos(16,66), -
 help(INPPRIC5), format("ZZZ,ZZZ.XXX")

.structure rec1, <2>,rtype,<32>,exdate,efdate,ltype,ptype,promo, -
	round,contr,limit1,limit2,limit3,limit4,limit5, -
	price1,price2,price3,price4,price5, -
	cust,class,terr,item,catg,locn
.set set_add, rec1, rtype,efdate,exdate, -
	cust,class,terr,item,catg,locn, -
	ltype,ptype,round,contr,promo,limit1,price1,limit2,price2, -
	limit3,price3,limit4,price4,limit5,price5
.set set_chg, rec1, ltype,ptype,round,contr,promo,limit1,price1, -
	limit2,price2,limit3,price3,limit4,price4,limit5,price5
.set set_show, rec1, rtype,exdate,efdate,ltype,ptype,promo, -
	round,contr,limit1,limit2,limit3,limit4,limit5, -
	price1,price2,price3,price4,price5
.end
;
;===============================================================
.input in2300i, 5, 42
.placement 3, 7
.title ' Item Kit Maintenance ', highlight
.line Line1, 42, pos(3,1), horizontal
.paint _

.field item, a24, pos(1,1), prompt("Item ID"), fpos(1,12), -
 help(INKTITEMID), user('#Drill/Req#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field item_descr, a30, fpos(2,12)

.field status, a1, pos(4,1), prompt("Status"), fpos(4,12), -
 help(INSTATUS), select(0,3,,"Active","Inactive")

.field date, d8, pos(5,1), prompt("Date"), fpos(5,12), -
 date(today), paint(" ")

.structure rec1, <2>,item,<3>,status,date
.set set_add, rec1, item,status
.set set_chg, rec1, status
.set set_show, rec1, item,status,date
.button detl, text("Entries")
.button_set bottom, end
.end
;
;===================================================================== 
.listclass l_in2300l, items(10), headers(1), footers(1), -
 load_method("INLL_IN2300")
.end
;
;===================================================================== 
.input i_in2300l, 1, 42
.placement 7, 1
.title " Components "
.field l_no, d3, pos(1,1)
.field l_deleted, a1, pos(1,4)
.field l_item, a24, pos(1,5)
.field l_units, d9.3, pos(1,30), format("ZZZ,ZZZ.XXX-")
.structure rec1, l_no,l_item,l_units,l_deleted
.set set1, rec1, l_no,l_deleted,l_item,l_units
.end
;
;===============================================================
.input in2300l, 4, 48
.placement 10, 25
.title ' Components ', highlight
.paint _

.field citem, a24, pos(1,1), prompt("Item ID"), fpos(1,16), -
 help(INCMPITM), user('#Drill/Req#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")

.field citem_descr, a30, pos(2,1), prompt("Description"), fpos(2,16), paint(" ")

.field uom, a3, pos(3,1), prompt("UOM"), fpos(3,16), paint(" ")

.field cqty, d9.3, pos(4,1), prompt("Quantity"), fpos(4,16), -
 help(INCMPQTY), negative, format("ZZZ,ZZZ.XXX-")

.structure rec1, <30>,citem,cqty
.set set1 ,rec1, citem,cqty
.set setd ,rec1, citem,cqty
.button i_ok, text("OK"), select(O)
.button abort, text("Cancel"), select(C)
.button_set bottom, end
.end
;
;===============================================================
.input in2400i, 3, 62
.placement 1, 2
.title " Price Catalog Maintenance ", highlight
.line Line1, 62, pos(2,1), horizontal
.paint _

.field ptype, a3, pos(1,1), prompt("Catalog price type"), fpos(1,20), -
 help(INPLCATTYPE), user('#Drill/Req/Q#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")

.field descr, a40, pos(3,1), prompt("Description"), fpos(3,20)

.structure rec1, <2>,ptype,<30>,descr
.set set_add, rec1, ptype,descr
.set set_chg, rec1, descr
.set set_show, rec1, ptype,descr
.button detl, text("Entries")
.button_set bottom, end
.end
;
;===================================================================== 
.listclass l_in2400l, items(10), headers(1), load_method("INLL_IN2400")
.end
;
;==================================================================== 
.input i_in2400l, 1, 36
.placement 7, 1
.title " Catalog Items "
.field l_seqno, d3, pos(1,1)
.field l_deleted, a1, pos(1,4)
.field l_locn, a3, pos(1,6)
.field l_item, a24, pos(1,10)
.structure rec1, l_seqno,l_locn,l_item,l_deleted
.set set1, rec1, l_seqno,l_locn,l_item,l_deleted
.end
;
;===================================================================== 
.input in2400l, 4, 55
.placement 10, 20
.title " Price Catalog Maintenance ", highlight
.paint _

.field locn, a3, pos(1,1), prompt("Location"), fpos(1,14), -
 break, user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a25, fpos(1,22)

.field item, a24, pos(2,1), prompt("Item ID"), fpos(2,14), -
 user('#Drill/Req/L#'), -
 drill_method("INITEM_FIND"), change_method("ANYFLD_CHANGE")

.field item_descr, a40, pos(3,1), prompt("Description"), fpos(3,14)

.structure rec1, <8>,locn,item,item_descr
.set set1, rec1, locn,item,item_descr
.set setd, rec1, locn,item,item_descr
.button i_ok, text("OK"), select(O)
.button abort, text("Cancel"), select(C)
.button_set bottom, end
.end
;
;===============================================================
.input in2500, 10, 72
.placement 1, 1
.title ' Royalty File Maintenance ', highlight
.line Line1, 72, pos(4,1), horizontal
.line Line2, 72, pos(7,1), horizontal
.paint _

.field item, a24, pos(1,1), prompt("Item ID"), fpos(1,13), -
 help(INITEMID), user('#Drill/Req#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field item_descr, a30, fpos(1,40)

.field vend, d8, pos(2,1), prompt("Vendor ID"), fpos(2,13), -
 help(INITVENDID), format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field vend_descr, a30, fpos(2,25)

.field rtype, a1, pos(3,1), prompt("Record type"), fpos(3,13), -
 help(INRYRECTYP), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"R-rule","X-exception")

.field class, d2, pos(5,1), prompt("Cust class"), fpos(5,13), -
 help(INITCCLASS), change_method("ANYFLD_CHANGE"), format('XX')

.field cust, d8, pos(6,1), prompt("Customer ID"), fpos(6,13), -
 help(INITCUSTID), format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field cust_descr, a30, fpos(6,25)

.field ptype, a2, pos(8,1), prompt("Payment type"), fpos(8,23), -
 help(ARRLTYTYPE), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"PS:% of sale","PC:% of cost","UA:Amt per unit")

.field percent, d6.4, pos(9,1), prompt("Royalty %"), fpos(9,23), -
 help(ARRLTYPCT), format('ZZ.XXXX')

.field amount, d6.2, pos(10,1), prompt("Amount per unit"), fpos(10,23), -
 help(ARRLTYDOL), format('ZZZZ.XX')

.structure rec1, <2>,item,vend,rtype,cust,ptype,percent,amount,class@cust
.set set_add, rec1, item,vend,rtype,class,cust,ptype,percent,amount
.set set_chg, rec1, ptype,percent,amount
.set set_show, rec1, item,vend,rtype,class,cust,ptype,percent,amount
.end
;
;===============================================================;
.input in2550, 6, 62
.placement 1, 1
.title ' Upcharge File Maintenance ', bold
.line Line1, 62, pos(3,1), horizontal
.paint _
 
.field cust, d8, pos(1,1), prompt("Customer ID"), fpos(1,18), -
 help(INUCCUSTID), format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field cust_descr, a30, fpos(1,30)
 
.field catg, a3, pos(2,1), prompt("Category"), fpos(2,18), -
 help(INPCATEG), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field catg_descr, a25, fpos(2,24), paint(" ")
 
.field utype, a2, pos(4,1), prompt("Upcharge type"), fpos(4,18), -
 help(INUCTYPE), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"DL:$ per pound","DU:$ per unit","PP:% of price")
 
.field percent, d6.4, pos(5,1), prompt("Upcharge %"), fpos(5,18), -
 help(INUCPCT), format('ZZ.XXXX')
 
.field amount, d6.2, pos(6,1), prompt("Amount per unit"), fpos(6,18), -
 help(INUCDOL), negative, format('ZZZZ.XX')
 
.structure rec1, <2>,cust,catg,utype,percent,amount
.set set_add, rec1, cust,catg,utype,percent,amount
.set set_chg, rec1, utype,percent,amount
.set set_show, rec1, cust,catg,utype,percent,amount
.end
;
;===============================================================
.input in2600, 22, 66
.placement 1, 1
.title ' Item Inquiry ', highlight
.line Line1, 66, pos(2,1), horizontal
.line Line2, 17, pos(2,43), vertical
.line Line3, 66, pos(18,1), horizontal
.line Line4, 22, pos(1,66), vertical
.paint " "

.field item, a24, pos(1,1), prompt("Item ID"), fpos(1,13)

.field desc, a30, pos(3,1), prompt("Description"), fpos(3,13)

.field skey, a20, pos(4,1), prompt("Search name"), fpos(4,13)

.field catlg1, a3, pos(5,1), prompt("Catalog mfg"), fpos(5,13)
.field catlg1_descr, a25, fpos(5,18)

.field catlg2, a3, pos(6,1), prompt("Catalog sub"), fpos(6,13)
.field catlg2_descr, a25, fpos(6,18)

.field catlg3, d4, pos(7,1), prompt("Catalog seq"), fpos(7,13), -
 format("XXXX")

.field catg, a3, pos(8,1), prompt("Category"), fpos(8,13)
.field catg_descr, a25, fpos(8,18)

.field suom, a3, pos(9,1), prompt("Sell UOM"), fpos(9,13)
.field suom_descr, a25, fpos(9,18)

.field buom, a3, pos(10,1), prompt("Buy UOM"), fpos(10,13)
.field buom_descr, a25, fpos(10,18)

.field uomf, d6, pos(11,1), prompt("UOM factor"), fpos(11,13), -
 format("ZZZZZX")

.field comm, a3, pos(12,1), prompt("Commission"), fpos(12,13)
.field comm_descr, a25, fpos(12,18)

.field warc, a3, pos(13,1), prompt("Warranty"), fpos(13,13)
.field warc_descr, a25, fpos(13,18)

.field upc, a14, pos(14,1), prompt("UPC"), fpos(14,13)

.field status, a1, pos(15,1), prompt("Status"), fpos(15,13)

.field prodtype, a1, pos(16,1), prompt("Type"), fpos(16,13)

.field txbl, a1, pos(17,1), prompt("Taxable"), fpos(17,13)

.field ctrl, a1, pos(3,45), prompt("Controlled"), fpos(3,58)

.field mfgd, a1, pos(4,45), prompt("Manufactured"), fpos(4,58)

.field usage, a1, pos(5,45), prompt("Usage"), fpos(5,58)

.field qtyprc, a1, pos(6,45), prompt("Qty pricing"), fpos(6,58)

.field slst, a1, pos(7,45), prompt("Serial/lot"), fpos(7,58)

.field frtclass, d3, pos(8,45), prompt("Frt Class"), fpos(8,58), -
 format("ZXX")

.field wght, d6.2, pos(9,45), prompt("Unit weight"), fpos(9,58), -
 format("ZZZZ.XX")

.field cube, d4.2, pos(10,45), prompt("Cubes"), fpos(10,58), -
 format("ZZ.XX")

.field sizeln, d5.2, pos(11,45), prompt("Length"), fpos(11,58)

.field sizewd, d5.2, pos(12,45), prompt("Width"), fpos(12,58)

.field sizeht, d5.2, pos(13,45), prompt("Height"), fpos(13,58)

.field packsize, a8, pos(14,45), prompt("Pack size"), fpos(14,58)

.field packqty, d5, pos(15,45), prompt("Pack qty"), fpos(15,58), -
 format("ZZZZX")

.field pallet, d3, pos(16,45), prompt("Pallet qty"), fpos(16,58), -
 format("ZZX")

.field perbox, d3, pos(17,45), prompt("Ship box qty"), fpos(17,58), -
 format("ZX")

.field edesc, 4a60, fpos(19,1)

.structure rec1, <2>,item,desc,skey,upc,status,ctrl,mfgd,usage,qtyprc, -
	<1>,catlg1,catlg2,catlg3,warc,comm,catg,buom,suom,uomf, -
	prodtype,txbl,slst,wght,cube,sizeln,sizewd,sizeht,pallet,-
	perbox,packsize,<1>,packqty,frtclass,edesc
.set set_chg, rec1, item
.set set_show, rec1, item,desc,skey,catlg1,catlg2,catlg3,catg,suom,buom,uomf, -
	comm,warc,upc,status,prodtype,txbl,ctrl,mfgd,usage,qtyprc,slst, -
	frtclass,wght,cube,sizeln,sizewd,sizeht,packsize,packqty,pallet, -
	perbox,edesc
.button LOC, text("Locs"), select("L")
.button BIN, text("Bins"), select("B")
.button CUS, text("Custs"), select("C")
.button VEN, text("Vends"), select("V")
.button POO, text("P/O"), select("P")
.button SOO, text("S/O"), select("S")
.button BOM, text("BOM"), select("M")
.button SLT, text("Ser/Lot"), select("E")
.button_set right
.end
;
;==================================================================
.input in2700a, 10, 72
.placement 4, 2
.title ' Item Price Inquiry ', highlight
.line Line1, 10, pos(1,42), vertical
.line Line2, 29, pos(3,42), horizontal
.paint " "

.field cust, d8, pos(1,1), prompt("Customer"), fpos(1,11), -
 help(INPINQCS), format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("namast_find"), change_method("NAMAST_CHANGE")
.field cust_descr, a30, fpos(2,11)

.field date, d8, pos(3,1), prompt("Date"), fpos(3,11), -
 help(INPINQDT), date(today), required

.field locn, a3, pos(4,1), prompt("Location"), fpos(4,11), -
 help(INPINQLO), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a25, fpos(5,11)

.field item, a24, pos(6,1), prompt("Item ID"), fpos(6,11), -
 help(INPINQIT), user('#Drill/Req#'), -
 drill_method("initem_find"), change_method("INITEM_CHANGE") 
.field item_descr, a30, fpos(7,11)

.field qty, d9.3, pos(8,1), prompt("Quantity"), fpos(8,11), -
 help(INPINQTY), format("ZZZ,ZZZ.XXX-"), copy

.field uprice, d9.3, pos(1,44), prompt("Unit price"), fpos(1,60), -
 format("ZZZ,ZZZ.XXX-")

.field tprice, d9.2, pos(2,44), prompt("Total price"), fpos(2,58), -
 format("Z,ZZZ,ZZZ.XX-")

.text Text1, pos(4,48)
From
.text Text2, pos(4,57)
To
.text Text3, pos(4,64)
Price

.field frqty1, d6, pos(5,44), prompt("1"), fpos(5,46), format("ZZZZZX"), bzro
.field frqty2, d6, pos(6,44), prompt("2"), fpos(6,46), format("ZZZZZX"), bzro
.field frqty3, d6, pos(7,44), prompt("3"), fpos(7,46), format("ZZZZZX"), bzro
.field frqty4, d6, pos(8,44), prompt("4"), fpos(8,46), format("ZZZZZX"), bzro
.field frqty5, d6, pos(9,44), prompt("5"), fpos(9,46), format("ZZZZZX"), bzro
.field frqty6, d6, pos(10,44), prompt("6"), fpos(10,46), format("ZZZZZX"), bzro

.field toqty1, d6, fpos(5,53), format("ZZZZZX"), bzro
.field toqty2, d6, fpos(6,53), format("ZZZZZX"), bzro
.field toqty3, d6, fpos(7,53), format("ZZZZZX"), bzro
.field toqty4, d6, fpos(8,53), format("ZZZZZX"), bzro
.field toqty5, d6, fpos(9,53), format("ZZZZZX"), bzro
.field toqty6, d6, fpos(10,53), format("ZZZZZX"), bzro

.field price1, d9, fpos(5,60), format("ZZZ,ZZZ.XXX"), bzro
.field price2, d9, fpos(6,60), format("ZZZ,ZZZ.XXX"), bzro
.field price3, d9, fpos(7,60), format("ZZZ,ZZZ.XXX"), bzro
.field price4, d9, fpos(8,60), format("ZZZ,ZZZ.XXX"), bzro
.field price5, d9, fpos(9,60), format("ZZZ,ZZZ.XXX"), bzro
.field price6, d9, fpos(10,60), format("ZZZ,ZZZ.XXX"), bzro

.structure rec1, cust,date,locn,item,qty,uprice,tprice,frqty1,frqty2,-
	frqty3,frqty4,frqty5,frqty6,toqty1,toqty2,toqty3,toqty4,-
	toqty5,toqty6,price1,price2,price3,price4,price5,price6
.set set1, rec1, cust,date,locn,item,qty
.set set2, rec1, uprice,tprice
.set set3, rec1, frqty1,frqty2,frqty3,frqty4,frqty5,frqty6,toqty1,toqty2,-
	toqty3,toqty4,toqty5,toqty6,price1,price2,price3,price4,-
	price5,price6
.end
;
;==================================================================
.input in2700b, 7, 27
.placement 13, 10
.title ' Item Prices ', highlight

.text Text1, pos(1,5)
From
.text Text2, pos(1,14)
To
.text Text3, pos(1,23)
Price

.field frqty1, d6, pos(2,1), prompt("1"), fpos(2,3), format("ZZZZZX"), bzro
.field frqty2, d6, pos(3,1), prompt("2"), fpos(3,3), format("ZZZZZX"), bzro
.field frqty3, d6, pos(4,1), prompt("3"), fpos(4,3), format("ZZZZZX"), bzro
.field frqty4, d6, pos(5,1), prompt("4"), fpos(5,3), format("ZZZZZX"), bzro
.field frqty5, d6, pos(6,1), prompt("5"), fpos(6,3), format("ZZZZZX"), bzro
.field frqty6, d6, pos(7,1), prompt("6"), fpos(7,3), format("ZZZZZX"), bzro

.field toqty1, d6, fpos(2,10), format("ZZZZZX"), bzro
.field toqty2, d6, fpos(3,10), format("ZZZZZX"), bzro
.field toqty3, d6, fpos(4,10), format("ZZZZZX"), bzro
.field toqty4, d6, fpos(5,10), format("ZZZZZX"), bzro
.field toqty5, d6, fpos(6,10), format("ZZZZZX"), bzro
.field toqty6, d6, fpos(7,10), format("ZZZZZX"), bzro

.field price1, d9, fpos(2,17), format("ZZZ,ZZZ.XXX"), bzro
.field price2, d9, fpos(3,17), format("ZZZ,ZZZ.XXX"), bzro
.field price3, d9, fpos(4,17), format("ZZZ,ZZZ.XXX"), bzro
.field price4, d9, fpos(5,17), format("ZZZ,ZZZ.XXX"), bzro
.field price5, d9, fpos(6,17), format("ZZZ,ZZZ.XXX"), bzro
.field price6, d9, fpos(7,17), format("ZZZ,ZZZ.XXX"), bzro

.structure rec1, <70>,frqty1,frqty2,frqty3,frqty4,frqty5,frqty6,-
	toqty1,toqty2,toqty3,toqty4,toqty5,toqty6,-
	price1,price2,price3,price4,price5,price6
.set set3, rec1, frqty1,frqty2,frqty3,frqty4,frqty5,frqty6,-
	toqty1,toqty2,toqty3,toqty4,toqty5,toqty6,-
	price1,price2,price3,price4,price5,price6
.end
;
;===============================================================
.input in2800, 5, 44
.placement 3, 1
.title ' Item Kit Inquiry ', highlight
.line Line1, 44, pos(3,1), horizontal
.line Line2, 5, pos(1,44), vertical
.paint " "

.field item, a24, pos(1,1), prompt("Item ID"), fpos(1,12)
.field item_descr, a30, fpos(2,12)

.field status, a1, pos(4,1), prompt("Status"), fpos(4,12)

.field date, d8, pos(5,1), prompt("Date"), fpos(5,12), date

.structure rec1, <2>,item,<3>,status,date
.set set_chg, rec1, item
.set set_show, rec1, item,status,date
.button ITM, text("Items"), select("I")
.button_set right
.end
;
;===============================================================
.input in4000i, 9, 75
.placement 3, 1
.title ' Transaction Entry ', highlight
.line Line1, 75, pos(2,1), horizontal
.line Line2, 9, pos(2,49), vertical
.paint _
 
.field ihorno, d6, pos(1,1), prompt("Control"), fpos(1,18), -
 help(INTRXCONTROL), change_method("ANYFLD_CHANGE"), required
 
.field trcode, a1, pos(3,1), prompt("Transaction code"), fpos(3,18), -
 help(INTRXCDE), change_method("ANYFLD_CHANGE"), -
 select(0,3,,"Sale","Transfer","Restock","Credit","Damaged")
 
.field toloc, a3, pos(4,1), prompt("To location"), fpos(4,18), -
 help(INTOLOCN), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field toloc_descr, a25, fpos(4,24)
 
.field frloc, a3, pos(5,1), prompt("From location"), fpos(5,18), -
 help(INFRLOCN), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field frloc_descr, a25, fpos(5,24)
 
.field svia, a3, pos(6,1), prompt("Ship via"), fpos(6,18), -
 help(INFRSHVIA), user('#Drill/Opt/V#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER")
.field svia_descr, a25, fpos(6,24)
 
.field entdate, d8, pos(7,1), prompt("Entered"), fpos(7,18), -
 date(today)
 
.field prtdate, d8, pos(8,1), prompt("Printed"), fpos(8,18), -
 date
 
.field shpdate, d8, pos(9,1), prompt("Shipped"), fpos(9,18), -
 help(INSHIPDATE), date(today)
 
.field totwgt, d8.2, pos(3,50), prompt("Total weight"), fpos(3,64), -
 format("ZZZ,ZZZ.XX")
 
.field totcub, d6.2, pos(4,50), prompt("Total cubes"), fpos(4,66), -
 format("Z,ZZZ.XX")
 
.field totcst, d9.3, pos(5,50), prompt("Total cost"), fpos(5,64), -
 format("ZZZ,ZZZ.XXX")
 
.field totqty, d6, pos(6,50), prompt("Total units"), fpos(6,64), -
 format("ZZZ,ZZX")
 
.field postedfr, a1, pos(7,50), prompt("Posted from"), fpos(7,62)
.field postedto, a1, pos(7,67), prompt("to"), fpos(7,70)
 
.structure rec1, <2>,ihorno,<4>,trcode,<1>,toloc,frloc,svia,entdate, -
	prtdate,<17>,postedfr,postedto,<29>,shpdate
.set set_add, rec1, ihorno,trcode,toloc,frloc,svia,entdate,shpdate
.set set_chg, rec1, toloc,frloc,svia,entdate,shpdate
.set set_show, rec1, ihorno,trcode,toloc,frloc,svia,entdate,shpdate,-
	postedto,postedfr,prtdate
.button detl, text("Entries")
.button_set bottom, end
.end
;
;===================================================================== 
.listclass l_in4000l, items(10), headers(1), footers(1), -
 load_method("INLL_IN4000")
.end
;
;===================================================================== 
.input i_in4000l, 1, 42
.placement 7, 1
.title " Items "
.field l_no, d3, pos(1,1)
.field l_deleted, a1, pos(1,4)
.field l_item, a24, pos(1,5)
.field l_units, d9.3, pos(1,30), format("ZZZ,ZZZ.XXX-")
.structure rec1, l_no,l_item,l_units,l_deleted
.set set1, rec1, l_no,l_deleted,l_item,l_units
.end
;
;===============================================================
.input in4000l, 9, 48
.placement 8, 25
.title ' Items ', highlight
.paint _

.field item, a24, pos(1,1), prompt("Item ID"), fpos(1,16), -
 help(INTRXITM), user('#Drill/Req#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")

.field item_descr, a30, pos(2,1), prompt("Description"), fpos(2,16), -
 help(INTRXDESCR)

.field qtyreq, d9.3, pos(3,1), prompt("Qty requested"), fpos(3,16), -
 help(INTQUANT), format("ZZZ,ZZZ.XXX-"), default(1), -
 change_method("ANYFLD_CHANGE")

.field qtyprc, d9.3, pos(4,1), prompt("Qty to send"), fpos(4,16), -
 help(INTQUANT), format("ZZZ,ZZZ.XXX-"), -
 change_method("ANYFLD_CHANGE")

.field price, d9.3, pos(5,1), prompt("Unit price"), fpos(5,16), -
 help(INTPRICEA), copy, format("ZZZ,ZZZ.XXX-"), -
 change_method("ANYFLD_CHANGE")
.field tprc, d9.3, fpos(5,30), format("ZZZ,ZZZ.XXX")

.field cost, d9.3, pos(6,1), prompt("Unit cost"), fpos(6,16), -
 help(INTCOSTA), copy, format("ZZZ,ZZZ.XXX-"), -
 change_method("ANYFLD_CHANGE")
.field tamt, d9.3, fpos(6,30), format("ZZZ,ZZZ.XXX")

.field tobin, a8, pos(7,1), prompt("To bin"), fpos(7,16), -
 help(INTTOBIN), user('#Drill/Opt#'), -
 drill_method("IN40BIN_FIND"), change_method("ANYFLD_CHANGE")

.field frbin, a8, pos(8,1), prompt("From bin"), fpos(8,16), -
 help(INTFRBIN), user('#Drill/Opt#'), -
 drill_method("IN40BIN_FIND"), change_method("ANYFLD_CHANGE")

.field updtcst, a1, pos(9,1), prompt("Update cost"), fpos(9,16), -
 help(INUPDTCS), selwnd(1,3,yesno)

.structure rec1, <12>,item,item_descr,qtyreq,qtyprc,<9>,cost,price,<16>, -
	updtcst,<1>,tobin,frbin
.set set1 ,rec1, item,item_descr,qtyreq,qtyprc,price,cost,tobin,frbin,updtcst
.set set2 ,rec1, item_descr,qtyreq,qtyprc,price,cost,tobin,frbin,updtcst
.set setd ,rec1, item,item_descr,qtyreq,qtyprc,cost,price,updtcst,frbin,tobin

.button i_ok, text("OK"), select(O)
.button snlt, text("Serial/Lot"), select(S)
.button abort, text("Cancel"), select(C)
.button remk, text("Remarks"), select(R)
.button_set bottom, end
.end
;
;===================================================================== 
.input in4000r, 2, 72
.placement 15, 1
.title ' Remarks ', highlight
.paint _

.field olrem1, a60, pos(1,1), prompt("Remarks 1"), fpos(1,12), -
 help(INREMARK)

.field olrem2, a60, pos(2,1), prompt("Remarks 2"), fpos(2,12), -
 help(INREMARK)

.structure rec1, <12>,olrem1,olrem2
.set set1, rec1, olrem1,olrem2
.end
;
;=============================================================== 
.listclass l_in4000s, items(12), headers(1), load_method("insl_in4000")
.end
;
.input i_in4000s, 1, 28
.placement 7, 1
.title " Serial/Lot Nos "
.field l_no, d3, pos(1,1)
.field l_deleted, a1, pos(1,4)
.field l_snlt, a20, pos(1,6)
.structure rec1, l_no,l_snlt,l_deleted
.set set1, rec1, l_no,l_deleted,l_snlt
.end
;
;=============================================================== 
.input in4000s, 7, 40
.placement 12, 35
.title ' Serial/Lot Number ', highlight
.line Line1, 40, pos(2,1), horizontal
.paint " "

.field snlot, a20, pos(1,1), prompt("Serial/Lot no"), fpos(1,16), -
 help(INSERLOTNO), user('#Drill/Req#'), -
 drill_method("INSNLT_FIND"), change_method("ANYFLD_CHANGE")

.field insitem, a24, pos(3,1), prompt("Item"), fpos(3,16)
.field inslocn, a3, pos(4,1), prompt("Location"), fpos(4,16)
.field insbin, a8, pos(5,1), prompt("Bin"), fpos(5,16)
.field insstat, a1, pos(6,1), prompt("Status"), fpos(6,16)
.field insonhd, d9.3, pos(7,1), prompt("On hand"), fpos(7,16), -
 format("ZZZ,ZZZ.XXX-")

.structure rec1, snlot,insitem,inslocn
.set set1, rec1, snlot
.button i_ok, text("OK"), select(O)
.button abort, text("Cancel"), select(C)
.button_set bottom, end
.end
;
;===============================================================
.input in4010, 2, 26
.placement 4, 20
.title ' Transfer Form ', highlight
.paint _

.field order, d6, pos(1,1), prompt("Order no"), fpos(1,15), -
 help(INPCITEM), change_method("ANYFLD_CHANGE")

.field type, a1, pos(2,1), prompt("Type"), fpos(2,15), -
 help(INPCTYPE), select(1,3,,"Pick","Transfer")

.structure rec1, order,type
.set set1, rec1, order,type
.end
;
;===============================================================
.input in4020, 3, 30
.placement 4, 20
.title ' Post Transactions ', highlight
.paint _

.field begctrl, d6, pos(1,1), prompt("Beginning control"), fpos(1,20), -
 help(INBEGCONTROL), default(0)

.field endctrl, d6, pos(2,1), prompt("Ending control"), fpos(2,20), -
 help(INENDCONTROL), default(999999)

.field trcode, a1, pos(3,1), prompt("Transaction code"), fpos(3,20), -
 help(INTRXCDE), -
 select(0,3,,"*:All","Sale","Transfer","Restock","Credit","Damaged")

.structure rec1, begctrl,endctrl,trcode
.set set1, rec1, begctrl,endctrl,trcode
.end
;
;===============================================================
.input in4080, 2, 64
.placement 1, 1
.title ' Process Warehouse Transaction File ', highlight
 
.field filename, a50, pos(1,1), prompt("File name"), fpos(1,12)
 
.structure rec1, filename
.set set1, rec1, filename
.end
;
;==================================================================
.input in4200, 4, 75
.placement 4, 1
.title ' Open Transfers by Item ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INSTRITEM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INENDITEM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(2,47)

.field strdate, d8, pos(3,1), prompt("Starting date"), fpos(3,20), -
 help(INSTRDATE), date, default(19010101)

.field enddate, d8, pos(4,1), prompt("Ending date"), fpos(4,20), -
 help(INENDDATE), date(today)

.structure rec1, stritem,enditem,strdate,enddate
.set set1, rec1, stritem,enditem,strdate,enddate
.end
;
;===============================================================
.input in5000, 7, 75
.placement 4, 1
.title ' Create Count Tags ', highlight
.paint _
 
.field strlocn, a3, pos(1,1), prompt("Starting location"), fpos(1,20), -
 help(INCTSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a25, fpos(1,26)
 
.field endlocn, a3, pos(2,1), prompt("Ending location"), fpos(2,20), -
 help(INCTENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a25, fpos(2,26)
 
.field strcatg, a3, pos(3,1), prompt("Starting category"), fpos(3,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a25, fpos(3,26)
 
.field endcatg, a3, pos(4,1), prompt("Ending category"), fpos(4,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a25, fpos(4,26)
 
.field stritem, a24, pos(5,1), prompt("Starting item"), fpos(5,20), -
 help(INCTSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(5,47)
 
.field enditem, a24, pos(6,1), prompt("Ending item"), fpos(6,20), -
 help(INCTENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(6,47)
 
.field strtag, d8, pos(7,1), prompt("Beginning tag no"), fpos(7,20), -
 help(INCTSTRTAG), format("ZZZZZZZX"), required
 
.structure rec1, strlocn,endlocn,strcatg,endcatg,stritem,enditem,strtag
.set set1, rec1, strlocn,endlocn,strcatg,endcatg,stritem,enditem,strtag
.end
;
;===============================================================
.input in5050, 14, 75
.placement 1, 1
.title ' Create Count Worksheet ', highlight
.paint _
 
.field reprint, a1, pos(1,1), prompt("Reprint"), fpos(1,20), -
 help(INCTREPRINT), selwnd(1,3,noyes), change_method("ANYFLD_CHANGE")
 
.field strtag, d8, pos(2,1), prompt("Beginning tag no"), fpos(2,20), -
 help(INCWSTRTAG), format("ZZZZZZZX"), required
 
.field cycle, a2, pos(3,1), prompt("Cycle code"), fpos(3,20), -
 help(INCNTCYC), required, default("*")
 
.field stritem, a24, pos(4,1), prompt("Starting item"), fpos(4,20), -
 help(INIRSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(4,47)
 
.field enditem, a24, pos(5,1), prompt("Ending item"), fpos(5,20), -
 help(INIRENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(5,47)
 
.field strcatg, a3, pos(6,1), prompt("Starting category"), fpos(6,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a25, fpos(6,26)
 
.field endcatg, a3, pos(7,1), prompt("Ending category"), fpos(7,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a25, fpos(7,26)
 
.field strlocn, a3, pos(8,1), prompt("Starting location"), fpos(8,20), -
 help(INCWSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a25, fpos(8,26)
 
.field endlocn, a3, pos(9,1), prompt("Ending location"), fpos(9,20), -
 help(INCWENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a25, fpos(9,26)
 
.field inconh, a1, pos(10,1), prompt("Include onhand qty"), fpos(10,20), -
 help(INCNTONH), selwnd(1,3,noyes)
 
.field inedsc, a1, pos(11,1), prompt("Include extd descr"), fpos(11,20), -
 help(INCNTEXTD), selwnd(1,3,yesno)
 
.field insnlt, a1, pos(12,1), prompt("Include S/L nos"), fpos(12,20), -
 help(INCNTSNLT), selwnd(1,3,noyes)
 
.field inseqn, a1, pos(13,1), prompt("Report sequence"), fpos(13,20), -
 help(INCNSEQN), select(1,3,,"Tag no","Item ID")
 
.field type, a1, pos(14,1), prompt("Type"), fpos(14,20), -
 help(INOUTTYPE), select(1,3,,"Report","Export")

.structure rec1, reprint,strtag,cycle,stritem,enditem,strcatg,endcatg, -
	strlocn,endlocn,inconh,inedsc,insnlt,inseqn,type
.set set1, rec1, reprint,strtag,cycle,stritem,enditem,strcatg,endcatg, -
	strlocn,endlocn,inconh,inedsc,insnlt,type
.set set2, rec1, reprint,strtag,inconh,inedsc,insnlt,inseqn,type
.end
;
;===============================================================
.input in5100, 5, 60
.placement 4, 1
.title ' Capture Inventory Quantities ', highlight
.paint _
 
.field locn, a3, pos(1,1), prompt("Location"), fpos(1,25), -
 help(INCWSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a25, fpos(1,31)
 
.field strcycle, a2, pos(2,1), prompt("Cycle count code"), fpos(2,25), -
 help(INACSTRCYCLE), default("*")

.field strtag, d8, pos(3,1), prompt("Starting tag number"), fpos(3,25), -
 help(INCQSTRTAG), default(0), format("ZZZZZZZX")
 
.field endtag, d8, pos(4,1), prompt("Ending tag number"), fpos(4,25), -
 help(INCQENDTAG), default(99999999), format("ZZZZZZZX")
 
.field incsnl, a1, pos(5,1), prompt("Include serial/lot nos"), fpos(5,25), -
 help(INCQINCSNL), selwnd(1,3,noyes)
 
.structure rec1, locn,strcycle,strtag,endtag,incsnl
.set set1, rec1, locn,strcycle,strtag,endtag,incsnl
.end
;
;===============================================================
.input in5300, 3, 60
.placement 4, 1
.title ' Long/Short Report ', highlight
.paint _

.field strlocn, a3, pos(1,1), prompt("Starting location"), fpos(1,20), -
 help(INVSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a25, fpos(1,26)

.field endlocn, a3, pos(2,1), prompt("Ending location"), fpos(2,20), -
 help(INVENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a25, fpos(2,26)

.field sortby, a1, pos(3,1), prompt("Report sequence"), fpos(3,20), -
 help(INILNUMALP), select(1,3,,"Item","Tag no")

.structure rec1, strlocn,endlocn,sortby
.set set1, rec1, strlocn,endlocn,sortby
.end
;
;===============================================================
.input in5200, 8, 70
.placement 3, 5
.title ' Enter Counted Quantities ', highlight
.line Line1, 70, pos(2,1), horizontal
.line Line2, 70, pos(6,1), horizontal
.paint _

.field tagno, d8, pos(1,1), prompt("Tag no"), fpos(1,10), -
 help(INPCTAGN), format("ZZZZZZZX"), change_method("ANYFLD_CHANGE")

.field item, a24, pos(3,1), prompt("Item ID"), fpos(3,10)
.field item_descr, a30, fpos(3,36)

.field locn, a3, pos(4,1), prompt("Location"), fpos(4,10)
.field locn_descr, a25, fpos(4,16)

.field bin, a8, pos(5,1), prompt("Bin"), fpos(5,10)

.field qtycount, d9.3, pos(7,1), prompt("Quantity"), fpos(7,10), -
 help(INPCQTYC), format("ZZZ,ZZZ.XXX"), change_method("ANYFLD_CHANGE")

.field countdate, d8, pos(8,1), prompt("Date"), fpos(8,10), -
 help(INPCQTYD), date(today)

.structure rec1, <2>,item,locn,bin,<9>,tagno,<17>,qtycount,countdate
.set set_chg, rec1, tagno,qtycount
.set set_show, rec1, tagno,item,locn,bin,qtycount,countdate
.end
;
;===============================================================
.input in5210, 2, 64
.placement 1, 1
.title ' Counted Quantities from File ', highlight

.field filename, a50, pos(1,1), prompt("File name"), fpos(1,12)

.structure rec1, filename
.set set1, rec1, filename
.end
;
;===============================================================
.input in5400, 9, 75
.placement 4, 1
.title ' Counted Valuation Report ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,22), -
 help(INVSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(1,49)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,22), -
 help(INVENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(2,49)
 
.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,22), -
 help(INVSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a25, fpos(3,28)
 
.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,22), -
 help(INVENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a25, fpos(4,28)
 
.field strcatg, a3, pos(5,1), prompt("Starting category"), fpos(5,22), -
 help(INVSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a25, fpos(5,28)
 
.field endcatg, a3, pos(6,1), prompt("Ending category"), fpos(6,22), -
 help(INVENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a25, fpos(6,28)
 
.field strtag, d8, pos(7,1), prompt("Starting tag number"), fpos(7,22), -
 help(INCQSTRTAG), default(0), format("ZZZZZZZX")
 
.field endtag, d8, pos(8,1), prompt("Ending tag number"), fpos(8,22), -
 help(INCQENDTAG), default(99999999), format("ZZZZZZZX")
 
.field sortby, a1, pos(9,1), prompt("Report sequence"), fpos(9,22), -
 help(INILNUMALP), select(1,3,,"Item","Tag no")
 
.structure rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	strtag,endtag,sortby
.set set1, rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	strtag,endtag,sortby
.end
;
;===============================================================
.input in5500, 3, 60
.placement 4, 1
.title ' Post Counted Quantities ', highlight
.paint _
 
.field locn, a3, pos(1,1), prompt("Location"), fpos(1,25), -
 help(INCWSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a25, fpos(1,26)
 
.field strtag, d8, pos(2,1), prompt("Starting tag number"), fpos(2,25), -
 help(INCQSTRTAG), default(0), format("ZZZZZZZX")
 
.field endtag, d8, pos(3,1), prompt("Ending tag number"), fpos(3,25), -
 help(INCQENDTAG), default(99999999), format("ZZZZZZZX")
 
.structure rec1, locn,strtag,endtag
.set set1, rec1, locn,strtag,endtag
.end
;
;===============================================================
.input in5900, 3, 60
.placement 4, 1
.title ' UN-Post Counted Quantities ', highlight
.paint _
 
.field locn, a3, pos(1,1), prompt("Location"), fpos(1,25), -
 help(INCWSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a25, fpos(1,26)
 
.field strtag, d8, pos(2,1), prompt("Starting tag number"), fpos(2,25), -
 help(INCQSTRTAG), default(0), format("ZZZZZZZX")
 
.field endtag, d8, pos(3,1), prompt("Ending tag number"), fpos(3,25), -
 help(INCQENDTAG), default(99999999), format("ZZZZZZZX")
 
.structure rec1, locn,strtag,endtag
.set set1, rec1, locn,strtag,endtag
.end
;
;===============================================================
.input in6000, 10, 78
.placement 1, 1
.title ' Item List ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field strcatg, a3, pos(3,1), prompt("Starting category"), fpos(3,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(3,26)
 
.field endcatg, a3, pos(4,1), prompt("Ending category"), fpos(4,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(4,26)
 
.field extdesc, a1, pos(5,1), prompt("Description only"), fpos(5,20), -
 help(ININCEXTD), selwnd(1,3,noyes)
 
.field inclocns, a1, pos(6,1), prompt("Include locations"), fpos(6,20), -
 help(ININCLOCNS), selwnd(1,3,noyes)
 
.field incbins, a1, pos(7,1), prompt("Include bins"), fpos(7,20), -
 help(ININCBINS), selwnd(1,3,noyes)
 
.field incvends, a1, pos(8,1), prompt("Include vendors"), fpos(8,20), -
 help(ININCVENDS), selwnd(1,3,noyes)
 
.field status, a1, pos(9,1), prompt("Status codes"), fpos(9,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)
 
.field sortby, a1, pos(10,1), prompt("Report sequence"), fpos(10,20), -
 help(INILNUMALP), selwnd(1,3,inreptseq)
 
.structure rec1, stritem,enditem,strcatg,endcatg,extdesc,inclocns, -
	incbins,incvends,status,sortby
.set set1, rec1, stritem,enditem,strcatg,endcatg,extdesc,inclocns, -
	incbins,incvends,status,sortby
.end
;
;===============================================================
.input in6010, 6, 78
.placement 1, 1
.title ' Item Stocking Labels ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)
 
.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)
 
.field strcatg, a3, pos(5,1), prompt("Starting category"), fpos(5,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(5,26)
 
.field endcatg, a3, pos(6,1), prompt("Ending category"), fpos(6,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(6,26)
 
.structure rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg
.set set1, rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg
.end
;
;===============================================================
.input in6020, 5, 78
.placement 1, 1
.title ' Item Labels ', highlight
.paint _
 
.field item, a24, pos(1,1), prompt("Item"), fpos(1,16), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field item_descr, a30, fpos(1,43)
 
.field locn, a3, pos(2,1), prompt("Location"), fpos(2,16), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a30, fpos(2,22)
 
.field bin, a8, pos(3,1), prompt("Bin"), fpos(3,16), -
 help(INITBIN), default("*"), change_method("ANYFLD_CHANGE")
 
.field snlt, a20, pos(4,1), prompt("Serial/lot no"), fpos(4,16), -
 help(INSLSNLT), default("*"), change_method("ANYFLD_CHANGE")

.field labels, d4, pos(5,1), prompt("No of labels"), fpos(5,16), -
 help(INLBQTY), format("XXXX"), default(1)

.structure rec1, item,locn,bin,snlt,labels
.set set1, rec1, item,locn,bin,snlt,labels
.end
;
;===============================================================
.input in6030, 6, 78
.placement 1, 1
.title ' Customer Part Number List ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)
 
.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)
 
.field status, a1, pos(5,1), prompt("Status codes"), fpos(5,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)
 
.field sortby, a1, pos(6,1), prompt("Report sequence"), fpos(6,20), -
 help(INILNUMALP), select(1,3,,"Item ID","Customer")
 
.structure rec1, stritem,enditem,strlocn,endlocn,status,sortby
.set set1, rec1, stritem,enditem,strlocn,endlocn,status,sortby
.end
;
;===============================================================
.input in6040, 6, 78
.placement 1, 1
.title ' Vendor Part Number List ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)
 
.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)
 
.field status, a1, pos(5,1), prompt("Status codes"), fpos(5,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)
 
.field sortby, a1, pos(6,1), prompt("Report sequence"), fpos(6,20), -
 help(INILNUMALP), select(1,3,,"Item ID","Vendor")
 
.structure rec1, stritem,enditem,strlocn,endlocn,status,sortby
.set set1, rec1, stritem,enditem,strlocn,endlocn,status,sortby
.end
 ;
;===============================================================
.input in6050, 5, 78
.placement 1, 1
.title ' Item Kit Report ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field newpage, a1, pos(3,1), prompt("New page each kit"), fpos(3,20), -
 help(INNEWPAG), selwnd(1,3,noyes)
 
.field status, a1, pos(4,1), prompt("Status codes"), fpos(4,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)
 
.field sortby, a1, pos(5,1), prompt("Report sequence"), fpos(5,20), -
 help(INIKNUMALP), selwnd(1,3,inreptseq)
 
.structure rec1, stritem,enditem,newpage,status,sortby
.set set1, rec1, stritem,enditem,newpage,status,sortby
.end
;
;===============================================================
.input in6080, 3, 78
.placement 1, 1
.title ' Royalty Rules ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field vend, d8, pos(3,1), prompt("Vendor ID"), fpos(3,20), -
 help(INITVENDID), default(0), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field vend_descr, a30, fpos(3,41)
 
.structure rec1, stritem,enditem,vend
.set set1, rec1, stritem,enditem,vend
.end
;
;===============================================================;
.input in6090, 3, 62
.placement 1, 1
.title ' Upcharge Rules ', bold
.paint _
 
.field strcust, d8, pos(1,1), prompt("Starting customer"), fpos(1,20), -
 help(INUCSTRID), default(0), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field strcust_descr, a30, fpos(1,29)
 
.field endcust, d8, pos(2,1), prompt("Ending customer"), fpos(2,20), -
 help(INUCENDID), default(99999999), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field endcust_descr, a30, fpos(2,29)

.field catg, a3, pos(3,1), prompt("Category"), fpos(3,20), -
 help(INPCATEG), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field catg_descr, a25, fpos(3,24), paint(" ")

.structure rec1, strcust,endcust,catg
.set set1, rec1, strcust,endcust,catg
.end
;
;===============================================================
.input in6100, 7, 78
.placement 1, 1
.title ' Quantity Status Report ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field strcatg, a3, pos(3,1), prompt("Starting category"), fpos(3,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(3,26)
 
.field endcatg, a3, pos(4,1), prompt("Ending category"), fpos(4,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(4,26)
 
.field sortby, a1, pos(5,1), prompt("Report sequence"), fpos(5,20), -
 help(INISNUMALP), selwnd(1,3,inreptseq)

.field type, a1, pos(6,1), prompt("Serial/lot"), fpos(6,20), -
 help(INITSNLT), change_method("ANYFLD_CHANGE"), -
 select(0,3,,"*:all","None","Serial","Lot","Kit")
 
.field snlt, a1, pos(7,1), prompt("Include S/L Nos"), fpos(7,20), -
 help(INISSNLT), selwnd(1,3,yesno)

.structure rec1,  stritem,enditem,strcatg,endcatg,sortby,type,snlt
.set set1, rec1,  stritem,enditem,strcatg,endcatg,sortby,type,snlt
.end
;
;===============================================================
.input in6200, 11, 78
.placement 1, 1
.title ' Item Special Pricing Report ', highlight
.paint _
 
.field prctyp, a1, pos(1,1), prompt("Pricing type"), fpos(1,20), -
 help(INPRCTYP), change_method("ANYFLD_CHANGE"), -
 select(0,3,,"0-all","1-customer/item","2-customer/category","3-customer", -
	     "4-item/location","5-category/location","6-cust type/item",-
	     "7-territory/item")
 
.field strcust, d8, pos(2,1), prompt("Starting customer"), fpos(2,20), -
 help(INSTRCUS), default(0), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field strcust_descr, a30, fpos(2,31)
 
.field endcust, d8, pos(3,1), prompt("Ending customer"), fpos(3,20), -
 help(INENDCUS), default(99999999), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field endcust_descr, a30, fpos(3,31)
 
.field class, d2, pos(4,1), prompt("Customer type"), fpos(4,20), -
 help(INCUSTCLASS), default(0)
 
.field terr, a3, pos(5,1), prompt("Territory"), fpos(5,20), -
 help(INSPRTERR), default("*"), user('#Drill/All/R#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field terr_descr, a30, fpos(5,26)
 
.field stritem, a24, pos(6,1), prompt("Starting item"), fpos(6,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(6,47)
 
.field enditem, a24, pos(7,1), prompt("Ending item"), fpos(7,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(7,47)
 
.field strcatg, a3, pos(8,1), prompt("Starting category"), fpos(8,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(8,26)
 
.field endcatg, a3, pos(9,1), prompt("Ending category"), fpos(9,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(9,26)
 
.field strlocn, a3, pos(10,1), prompt("Starting location"), fpos(10,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(10,26)
 
.field endlocn, a3, pos(11,1), prompt("Ending location"), fpos(11,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(11,26)
 
.structure rec1, prctyp,strcust,endcust,class,terr,stritem,enditem,-
	strcatg,endcatg,strlocn,endlocn
.set set1, rec1, prctyp,strcust,endcust,class,terr,stritem,enditem,-
	strcatg,endcatg,strlocn,endlocn
.end
;
;===============================================================
.input in6250, 5, 78
.placement 1, 1
.title ' Item Price Projection Report ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(3,26)

.field effdate, d6, pos(5,1), prompt("Projection month"), fpos(5,20), -
 help(INSPDATE), date(period)

.structure rec1, stritem,enditem,strlocn,endlocn,effdate
.set set1, rec1, stritem,enditem,strlocn,endlocn,effdate
.end
;
;===============================================================
.input in6300, 13, 78
.placement 1, 1
.title ' Item Status Report ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)
 
.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)
 
.field strbin, a8, pos(5,1), prompt("Starting pri bin"), fpos(5,20), -
 help(INSTRBIN), default("*"), change_method("ANYFLD_CHANGE")
 
.field endbin, a8, pos(6,1), prompt("Ending pri bin"), fpos(6,20), -
 help(INENDBIN), default("*"), change_method("ANYFLD_CHANGE")
 
.field strcatg, a3, pos(7,1), prompt("Starting category"), fpos(7,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(7,26)
 
.field endcatg, a3, pos(8,1), prompt("Ending category"), fpos(8,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(8,26)
 
.field incsln, a1, pos(9,1), prompt("Include s/l nos"), fpos(9,20), -
 help(INISINCSNL), selwnd(1,3,noyes)
 
.field onhand, a1, pos(10,1), prompt("Include 0 on hand"), fpos(10,20), -
 help(ININQZEROQ), selwnd(1,3,noyes)
 
.field status, a1, pos(11,1), prompt("Status codes"), fpos(11,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)
 
.field sortby, a1, pos(12,1), prompt("Report sequence"), fpos(12,20), -
 help(INISNUMALP), select(0,3,,"Numeric (ID)","Alpha (Search name)", -
 "Catalog","UPC","Bin")
 
.field totoption, a1, pos(13,1), prompt("Total option"), fpos(13,20), -
 help(INTOTALOPT), select(1,3,,"Report only","Group")
 
.structure rec1,  stritem,enditem,strlocn,endlocn,strbin,endbin, -
	strcatg,endcatg,incsln,onhand,status,sortby,totoption
.set set1, rec1,  stritem,enditem,strlocn,endlocn,strbin,endbin, -
	strcatg,endcatg,incsln,onhand,status,sortby,totoption
.end
;
;==================================================================
.input in6350, 9, 78
.placement 1, 1
.title ' Lost Sales Report ', highlight
.paint _

.field curyear, d4, pos(1,1), prompt("Year"), fpos(1,20), -
 help(INLSYEAR), format("XXXX"), range(1990,2020)

.field strlocn, a3, pos(2,1), prompt("Starting location"), fpos(2,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(2,26)

.field endlocn, a3, pos(3,1), prompt("Ending location"), fpos(3,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(3,26)

.field strcatg, a3, pos(4,1), prompt("Starting category"), fpos(4,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(4,26)

.field endcatg, a3, pos(5,1), prompt("Ending category"), fpos(5,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(5,26)

.field stritem, a24, pos(6,1), prompt("Starting item"), fpos(6,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(6,47)

.field enditem, a24, pos(7,1), prompt("Ending item"), fpos(7,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(7,47)

.field cutpct, d3, pos(8,1), prompt("Cutoff %"), fpos(8,20), -
 help(INLSCUTPCT), format("ZZX%")

.field sortby, a1, pos(9,1), prompt("Report sequence"), fpos(9,20), -
 help(INTPNUMALP), selwnd(1,3,inreptseq)

.structure rec1, curyear,strlocn,endlocn,strcatg,endcatg,stritem,enditem, -
	cutpct,sortby
.set set1, rec1, curyear,strlocn,endlocn,strcatg,endcatg,stritem,enditem, -
	cutpct,sortby
.end
;
;===============================================================
.input in6400, 9, 78
.placement 1, 1
.title ' Item Valuation Report ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)

.field strcatg, a3, pos(5,1), prompt("Starting category"), fpos(5,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(5,26)

.field endcatg, a3, pos(6,1), prompt("Ending category"), fpos(6,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(6,26)

.field sortby, a1, pos(7,1), prompt("Report sequence"), fpos(7,20), -
 help(INIVNUMALP), -
 select(1,3,,"Numeric (ID)","Alpha (search name)","Vendor (primary)",-
	     "Catalog","G-Category","UPC")

.field inclzero, a1, pos(8,1), prompt("Include zero qty's"), fpos(8,20), -
 help(ININQZEROQ), selwnd(1,3,yesno)

.field totoption, a1, pos(9,1), prompt("Total option"), fpos(9,20), -
 help(INTOTALOPT), select(1,3,,"Report only","Group")

.structure rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	sortby,inclzero,totoption
.set set1, rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	sortby,inclzero,totoption
.end
;
;===============================================================
.input in6450, 8, 78
.placement 1, 1
.title ' Item Unit Cost Report ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)

.field strcatg, a3, pos(5,1), prompt("Starting category"), fpos(5,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(5,26)

.field endcatg, a3, pos(6,1), prompt("Ending category"), fpos(6,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(6,26)

.field onhand, a1, pos(7,1), prompt("Include zero qty's"), fpos(7,20), -
 help(ININQZEROQ), selwnd(1,3,noyes)

.field sortby, a1, pos(8,1), prompt("Report sequence"), fpos(8,20), -
 help(INIVNUMALP), -
 select(1,3,,"Numeric (ID)","Alpha (search name)","Catalog","G-Category","UPC")

.structure rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	onhand,sortby
.set set1, rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	onhand,sortby
.end
;
;===============================================================
.input in6500, 9, 78
.placement 1, 1
.title ' Item Reorder Report (Min Stock) ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)

.field strmfct, a3, pos(5,1), prompt("Starting mnfctr"), fpos(5,20), -
 help(INIRSTRMFCT), default("*"), user('#Drill/All/G#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strmfct_descr, a30, fpos(5,26)

.field endmfct, a3, pos(6,1), prompt("Ending mnfctr"), fpos(6,20), -
 help(INIRENDMFCT), default("*"), user('#Drill/All/G#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endmfct_descr, a30, fpos(6,26)

.field strcatg, a3, pos(7,1), prompt("Starting category"), fpos(7,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(7,26)

.field endcatg, a3, pos(8,1), prompt("Ending category"), fpos(8,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(8,26)

.field sortby, a1, pos(9,1), prompt("Report sequence"), fpos(9,20), -
 help(INIRNUMALP), -
 select(1,3,,"Numeric (ID)","Alpha (search name)","Vendor (primary)","Catalog")

.structure rec1, stritem,enditem,strlocn,endlocn,strmfct,endmfct, -
	strcatg,endcatg,sortby
.set set1, rec1, stritem,enditem,strlocn,endlocn,strmfct,endmfct, -
	strcatg,endcatg,sortby
.end
;
;==================================================================
.input in6520, 9, 78
.placement 1, 1
.title ' Item Reorder Report (Sales) ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)

.field strmfct, a3, pos(5,1), prompt("Starting mnfctr"), fpos(5,20), -
 help(INIRSTRMFCT), default("*"), user('#Drill/All/G#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strmfct_descr, a30, fpos(5,26)

.field endmfct, a3, pos(6,1), prompt("Ending mnfctr"), fpos(6,20), -
 help(INIRENDMFCT), default("*"), user('#Drill/All/G#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endmfct_descr, a30, fpos(6,26)

.field strcatg, a3, pos(7,1), prompt("Starting category"), fpos(7,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(7,26)

.field endcatg, a3, pos(8,1), prompt("Ending category"), fpos(8,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(8,26)

.field sortby, a1, pos(9,1), prompt("Report sequence"), fpos(9,20), -
 help(INIRNUMALP), -
 select(1,3,,"Numeric (ID)","Alpha (search name)","Vendor (primary)","Catalog")

.structure rec1, stritem,enditem,strlocn,endlocn,strmfct,endmfct, -
	strcatg,endcatg,sortby
.set set1, rec1, stritem,enditem,strlocn,endlocn,strmfct,endmfct, -
	strcatg,endcatg,sortby
.end
;
;===============================================================
.input in6600, 13, 78
.placement 1, 1
.title ' Price Lists ', highlight
.paint _

.field rpttype, a1, pos(1,1), prompt("Report type"), fpos(1,20), -
 help(INPLRPTYPE), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"1-format 1","2-format 2","3-catalog 1","4-catalog 2",-
	     "5-laser(1 col)","6-laser(2 col)","8-export file")

.field strlocn, a3, pos(2,1), prompt("Starting location"), fpos(2,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(2,26)

.field endlocn, a3, pos(3,1), prompt("Ending location"), fpos(3,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(3,26)

.field strcatg, a3, pos(4,1), prompt("Starting category"), fpos(4,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(4,26)

.field endcatg, a3, pos(5,1), prompt("Ending category"), fpos(5,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(5,26)

.field stritem, a24, pos(6,1), prompt("Starting item"), fpos(6,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(6,47)

.field enditem, a24, pos(7,1), prompt("Ending item"), fpos(7,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(7,47)

.field sortby, a1, pos(8,1), prompt("Report sequence"), fpos(8,20), -
 help(INPLNUMALP), selwnd(1,3,inreptseq)

.field prtcost, a1, pos(9,1), prompt("Print costs"), fpos(9,20), -
 help(INPRTCST), selwnd(1,3,noyes)

.field price, a1, pos(10,1), prompt("Price type"), fpos(10,20), -
 help(INPRICTYP), -
 select(1,3,,"1 - price 1","2 - price 2","3 - price 3","4 - price 4",-
	     "5 - price 5","A - avg cost markup","L - last cost markup",-
	     "S - standard cost markup")

.field adjamt, d6.3, pos(11,1), prompt("Adjustment percent"), fpos(11,20), -
 help(INPRCADJAMT), negative, format("ZZZ.XXX-")

.field round, a1, pos(12,1), prompt("Rounding option"), fpos(12,20), -
 help(INPRCROUND), -
 select(1,3,,"None","Cent","T:dime","Quarter","Dollar")

.field efdate, d8, pos(13,1), prompt("Effective date"), fpos(13,20), -
 help(INEFFDATE), date(today), required

.structure rec1, rpttype,strlocn,endlocn,strcatg,endcatg,stritem,enditem,-
	 sortby,prtcost,price,adjamt,round,efdate
.set set1, rec1, rpttype,strlocn,endlocn,strcatg,endcatg,stritem,enditem,-
	 sortby,prtcost,price,adjamt,round,efdate
.end
;
;===============================================================
.input in6640, 2, 57
.placement 1, 1
.title ' Price Sheet Definitions ', highlight
.paint _

.field ptype, a3, pos(1,1), prompt("Catalog price type"), fpos(1,20), -
 help(INPLCATTYPE), default("*"), user('#Drill/All/Q#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field ptype_descr, a25, fpos(1,30)

.structure rec1, ptype
.set set1, rec1, ptype
.end
;
;===============================================================
.input in6650, 4, 62
.placement 1, 1
.title ' Individual Price Sheet ', highlight
.paint _

.field ptype, a3, pos(1,1), prompt("Catalog price type"), fpos(1,20), -
 help(INPLCATTYPE), user('#Drill/Req/Q#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field ptype_descr, a30, fpos(1,26)

.field strid, d8, pos(2,1), prompt("Starting customer"), fpos(2,20), -
 help(INPLSTRPROS), default(0), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field strid_descr, a30, fpos(2,31)

.field endid, d8, pos(3,1), prompt("Ending customer"), fpos(3,20), -
 help(INPLENDPROS), default(99999999), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field endid_descr, a30, fpos(3,31)

.field efdate, d8, pos(4,1), prompt("Effective date"), fpos(4,20), -
 help(INEFFDATE), date(today), required

.structure rec1, ptype,strid,endid,efdate
.set set1, rec1, ptype,strid,endid,efdate
.end
;
;===============================================================
.input in6700, 9, 62
.placement 1, 1
.title ' Gross Profit Analysis Report ', highlight
.paint _

.field yrmo, d6, pos(1,1), prompt("Month/year"), fpos(1,20), -
 help(INGPMOYR), date(period), required

.field sortby, a1, pos(2,1), prompt("Report type"), fpos(2,20), -
 help(INGPRPTYPE), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"Category","Vendor")

.field strcatg, a3, pos(3,1), prompt("Starting category"), fpos(3,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a25, fpos(3,26)

.field endcatg, a3, pos(4,1), prompt("Ending category"), fpos(4,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a25, fpos(4,26)

.field strvend, d8, pos(5,1), prompt("Starting vendor"), fpos(5,20), -
 help(INSTRVEN), default(0), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field strvend_descr, a30, fpos(5,31)

.field endvend, d8, pos(6,1), prompt("Ending vendor"), fpos(6,20), -
 help(INENDVEN), default(99999999), user('#Drill/All#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field endvend_descr, a30, fpos(6,31)

.field status, a1, pos(7,1), prompt("Status codes"), fpos(7,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)

.field prtytd, a1, pos(8,1), prompt("Include YTD totals"), fpos(8,20), -
 help(INPRTYTD), selwnd(1,3,noyes)

.field totswt, a1, pos(9,1), prompt("Print totals only"), fpos(9,20), -
 help(INPRTTOT), selwnd(1,3,noyes)

.structure rec1, yrmo,sortby,strcatg,endcatg,strvend,endvend, -
	status,prtytd,totswt
.set set1, rec1, yrmo,sortby,strcatg,endcatg,strvend,endvend, -
	status,prtytd,totswt
.end
;
;===============================================================
.input in6800, 8, 78
.placement 1, 1
.title ' Negative Stock Report ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)

.field strcatg, a3, pos(5,1), prompt("Starting category"), fpos(5,20), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(5,26)

.field endcatg, a3, pos(6,1), prompt("Ending category"), fpos(6,20), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(6,26)

.field status, a1, pos(7,1), prompt("Status codes"), fpos(7,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)

.field sortby, a1, pos(8,1), prompt("Report sequence"), fpos(8,20), -
 help(INNSNUMALP), selwnd(1,3,inreptseq)

.structure rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	status,sortby
.set set1, rec1, stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	status,sortby
.end
;
;===============================================================
.input in6850, 7, 78
.placement 1, 1
.title ' Turnover Performance Report ', highlight
.paint _

.field year, d4, pos(1,1), prompt("Year"), fpos(1,20), -
 help(INTPYEAR), format("XXXX"), range(1990,2010)

.field stritem, a24, pos(2,1), prompt("Starting item"), fpos(2,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(2,47)

.field enditem, a24, pos(3,1), prompt("Ending item"), fpos(3,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(3,47)

.field strlocn, a3, pos(4,1), prompt("Starting location"), fpos(4,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(4,26)

.field endlocn, a3, pos(5,1), prompt("Ending location"), fpos(5,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(5,26)

.field status, a1, pos(6,1), prompt("Status codes"), fpos(6,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)

.field sortby, a1, pos(7,1), prompt("Report sequence"), fpos(7,20), -
 help(INTPNUMALP), selwnd(1,3,inreptseq)

.structure rec1, year,stritem,enditem,strlocn,endlocn,status,sortby
.set set1, rec1, year,stritem,enditem,strlocn,endlocn,status,sortby
.end
;
;===============================================================
.input in6880, 6, 78
.placement 1, 1
.title ' Dead Item Report ', highlight
.paint _

.field year, d4, pos(1,1), prompt("Year"), fpos(1,20), -
 help(INTPYEAR), format("XXXX"), range(1990,2010)

.field stritem, a24, pos(2,1), prompt("Starting item"), fpos(2,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(2,47)

.field enditem, a24, pos(3,1), prompt("Ending item"), fpos(3,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(3,47)

.field strlocn, a3, pos(4,1), prompt("Starting location"), fpos(4,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(4,26)

.field endlocn, a3, pos(5,1), prompt("Ending location"), fpos(5,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(5,26)

.field status, a1, pos(6,1), prompt("Status codes"), fpos(6,20), -
 help(ININCSTATUS), selwnd(1,3,instatus)

.structure rec1, year,stritem,enditem,strlocn,endlocn,status
.set set1, rec1, year,stritem,enditem,strlocn,endlocn,status
.end
;
;===============================================================
.input in6900, 9, 78
.placement 1, 1
.title ' Item History Report ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)
 
.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)
 
.field strdate, d8, pos(5,1), prompt("Starting date"), fpos(5,20), -
 help(INSTRDAT), date, default(010101)
 
.field enddate, d8, pos(6,1), prompt("Ending date"), fpos(6,20), -
 help(INENDDAT), date(today)
 
.field trncod, a1, pos(7,1), prompt("Transaction code"), fpos(7,20), -
 help(INTRANCD), select(1,3,,"*","Credit","Transfer","Restock","Sale", -
 "Damaged","Physical")
 
.field incsnl, a1, pos(8,1), prompt("Include ser/lots"), fpos(8,20), -
 help(INCQINCSNL), selwnd(1,3,noyes)
 
.field outtype, a1, pos(9,1), prompt("Output type"), fpos(9,20), -
 help(INRPTTYPE), select(1,3,,"Report","Export")

.structure rec1, stritem,enditem,strlocn,endlocn,strdate,enddate,trncod, -
	incsnl,outtype
.set set1, rec1, stritem,enditem,strlocn,endlocn,strdate,enddate,trncod, -
	incsnl,outtype
.end
;
;===============================================================
.input in6950, 7, 78
.placement 1, 1
.title ' Item Movement Report ', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INIHSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(1,47)
 
.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INIHENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(2,47)
 
.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), -
 help(INIHSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,26)
 
.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), -
 help(INIHENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,26)
 
.field startfrom, a1, pos(5,1), prompt("Start from"), fpos(5,20), -
 help(INSTRFROM), select(0,3,,"Prompt date","Last count date")
 
.field strdate, d8, pos(6,1), prompt("Starting date"), fpos(6,20), -
 help(INSTRDAT), date, default(19010101)
 
.field enddate, d8, pos(7,1), prompt("Ending date"), fpos(7,20), -
 help(INENDDAT), date(today)
 
.structure rec1, stritem,enditem,strlocn,endlocn,startfrom,strdate,enddate
.set set1, rec1, stritem,enditem,strlocn,endlocn,startfrom,strdate,enddate
.end
;
;===============================================================
.input in6960, 2, 75
.placement 1, 1
.title ' Serial/Lot Tracking Report ', highlight
.paint _
 
.field item, a24, pos(1,1), prompt("Item ID"), fpos(1,16), -
 help(INIHSTRITM), user('#Drill/Req#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field item_descr, a30, fpos(1,43)
 
.field snlt, a20, pos(2,1), prompt("Serial/lot no"), fpos(2,16), -
 help(INSLSNLT), change_method("ANYFLD_CHANGE")
 
.structure rec1, item,snlt
.set set1, rec1, item,snlt
.end
;
;===============================================================
.input in8000, 5, 75
.placement 3, 1
.title ' Warehouse Check List ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INISSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INISENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), - 
 help(INISSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,30)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), - 
 help(INISENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,30)

.field sortby, a1, pos(5,1), prompt("Report sequence"), fpos(5,20), - 
 help(INISNUMALP), selwnd(1,3,inreptseq)

.structure rec1, stritem,enditem,strlocn,endlocn,sortby
.set set1, rec1, stritem,enditem,strlocn,endlocn,sortby
.end
;
;===============================================================
.input in8100, 6, 75
.placement 3, 1
.title ' Item Ranking ', highlight
.paint _

.field strdate, d8, pos(1,1), prompt("Starting date"), fpos(1,20), - 
 help(INISSTRDAT), date, default(19900101)

.field enddate, d8, pos(2,1), prompt("Ending date"), fpos(2,20), - 
 help(INISENDDAT), date(today)

.field strcatg, a3, pos(3,1), prompt("Starting category"), fpos(3,20), - 
 help(INISSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a30, fpos(3,30)

.field endcatg, a3, pos(4,1), prompt("Ending category"), fpos(4,20), - 
 help(INISENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a30, fpos(4,30)

.field strlocn, a3, pos(5,1), prompt("Starting location"), fpos(5,20), - 
 help(INISSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(5,30)

.field endlocn, a3, pos(6,1), prompt("Ending location"), fpos(6,20), - 
 help(INISENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(6,30)

.structure rec1, strdate,enddate,strcatg,endcatg,strlocn,endlocn
.set set1, rec1, strdate,enddate,strcatg,endcatg,strlocn,endlocn
.end
;
;===============================================================
.input in8200, 2, 35
.placement 3, 1
.title ' Purge Special Pricing ', highlight
.paint _

.field purdat, d8, pos(1,1), prompt("Purge-through date"), fpos(1,22), - 
 help(INPGDATE), date, required

.field confirm, a3, pos(2,1), prompt("Confirm"), fpos(2,22), -
 help(UTCONFRM), default("NO"), uc, allow(YES,NO)

.structure rec1, purdat,confirm
.set set1, rec1, purdat,confirm
.end
;
;===============================================================
.input in8300, 2, 35
.placement 3, 1
.title ' Purge Item History ', highlight
.paint _

.field purdat, d8, pos(1,1), prompt("Purge-through date"), fpos(1,22), - 
 help(INHSTPRG), date, required

.field confirm, a3, pos(2,1), prompt("Confirm"), fpos(2,22), - 
 help(UTCONFRM), default("NO"), uc, allow(YES,NO)

.structure rec1, purdat,confirm
.set set1, rec1, purdat,confirm
.end
;
;===============================================================
.input in8400, 11, 75
.placement 3, 1
.title ' Copy Items From/to Locations ', highlight
.paint _

.field frlocn, a3, pos(1,1), prompt("From location"), fpos(1,20), - 
 help(INFRMLOC), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field frlocn_descr, a25, fpos(1,30)

.field tolocn, a3, pos(2,1), prompt("To location"), fpos(2,20), - 
 help(INCTOLOCN), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field tolocn_descr, a25, fpos(2,30)

.field strcatg, a3, pos(3,1), prompt("Starting category"), fpos(3,20), - 
 help(INFTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a25, fpos(3,30)

.field endcatg, a3, pos(4,1), prompt("Ending category"), fpos(4,20), - 
 help(INFTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a25, fpos(4,30)

.field stritem, a24, pos(5,1), prompt("Starting item"), fpos(5,20), -
 help(INFTSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(5,47)

.field enditem, a24, pos(6,1), prompt("Ending item"), fpos(6,20), -
 help(INFTENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(6,47)

.field zeroqty, a1, pos(7,1), prompt("Zero quantities"), fpos(7,20), - 
 help(INZEROQTY), selwnd(1,3,yesno)

.field zeroprc, a1, pos(8,1), prompt("Zero prices"), fpos(8,20), - 
 help(INZEROPRICE), selwnd(1,3,yesno)

.field zerohst, a1, pos(9,1), prompt("Zero history qtys"), fpos(9,20), - 
 help(INZEROHIST), selwnd(1,3,yesno)

.field copyitvc, a1, pos(10,1), prompt("Copy vend/cust"), fpos(10,20), - 
 help(INCOPYITVC), selwnd(1,3,yesno)

.field delitem, a1, pos(11,1), prompt("Delete after copy"), fpos(11,20), - 
 help(INCOPYDEL), selwnd(1,3,noyes)

.structure rec1, frlocn,tolocn,strcatg,endcatg,stritem,enditem, -
	 zeroqty,zeroprc,zerohst,copyitvc,delitem
.set set1, rec1, frlocn,tolocn,strcatg,endcatg,stritem,enditem, -
	 zeroqty,zeroprc,zerohst,copyitvc,delitem
.end
;
;===============================================================
.input in8500, 6, 75
.placement 3, 1
.title ' Delete Items From Location ', highlight
.paint _
 
.field frlocn, a3, pos(1,1), prompt("From location"), fpos(1,20), -
 help(INDFRMLOC), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field frlocn_descr, a25, fpos(1,30)
 
.field strcatg, a3, pos(2,1), prompt("Starting category"), fpos(2,20), -
 help(INDFSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a25, fpos(2,30)
 
.field endcatg, a3, pos(3,1), prompt("Ending category"), fpos(3,20), -
 help(INDFENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a25, fpos(3,30)
 
.field stritem, a24, pos(4,1), prompt("Starting item"), fpos(4,20), -
 help(INDFSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(4,47)
 
.field enditem, a24, pos(5,1), prompt("Ending item"), fpos(5,20), -
 help(INDFENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(5,47)
 
.field confirm, a3, pos(6,1), prompt("Confirm"), fpos(6,20), -
 help(UTCONFRM), default("NO"), uc, allow(YES,NO)
 
.structure rec1, frlocn,strcatg,endcatg,stritem,enditem,confirm
.set set1, rec1, frlocn,strcatg,endcatg,stritem,enditem,confirm
.end
;
;===============================================================
.input in8600, 5, 75
.placement 3, 1
.title ' Recalculate Kit Costs ', highlight
.paint _

.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INDFSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INDFENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), - 
 help(INPASTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a25, fpos(3,30)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), - 
 help(INPAENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a25, fpos(4,30)

.field delitem, a1, pos(5,1), prompt("Remove del items?"), fpos(5,20), - 
 help(INREMITEM), selwnd(1,3,yesno)

.structure rec1, stritem,enditem,strlocn,endlocn,delitem
.set set1, rec1, stritem,enditem,strlocn,endlocn,delitem
.end
;
;===============================================================
.input in8700, 14, 75
.placement 1, 1
.title ' Change Item ID ', highlight
.line Line1, 75, pos(3,1), horizontal
.line Line2, 12, pos(3,30), vertical
.paint _
 
.field olditem, a24, pos(1,1), prompt("Old item ID"), fpos(1,20), -
 help(INOLDITEM), user('#Drill/Req#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field olditem_descr, a25, fpos(1,47)
 
.field newitem, a24, pos(2,1), prompt("New item ID"), fpos(2,20), -
 help(INNEWITEM), required, change_method("ANYFLD_CHANGE")
 
.text text1, pos(4,11)
Read
.text text2, pos(4,16)
Changed
 
.field locn_read, d6, pos(5,1), prompt("INLOCN"), fpos(5,8), format('ZZZ,ZZX')
.field locn_chng, d6, fpos(5,16), format('ZZZ,ZZX')
 
.field abin_read, d6, pos(6,1), prompt("INABIN"), fpos(6,8), format('ZZZ,ZZX')
.field abin_chng, d6, fpos(6,16), format('ZZZ,ZZX')
 
.field hist_read, d6, pos(7,1), prompt("INHIST"), fpos(7,8), format('ZZZ,ZZX')
.field hist_chng, d6, fpos(7,16), format('ZZZ,ZZX')
 
.field itvc_read, d6, pos(8,1), prompt("INITVC"), fpos(8,8), format('ZZZ,ZZX')
.field itvc_chng, d6, fpos(8,16), format('ZZZ,ZZX')
 
.field usag_read, d6, pos(9,1), prompt("INUSAG"), fpos(9,8), format('ZZZ,ZZX')
.field usag_chng, d6, fpos(9,16), format('ZZZ,ZZX')
 
.field note_read, d6, pos(10,1), prompt("INNOTE"), fpos(10,8), format('ZZZ,ZZX')
.field note_chng, d6, fpos(10,16), format('ZZZ,ZZX')
 
.field rlty_read, d6, pos(11,1), prompt("INRLTY"), fpos(11,8), format('ZZZ,ZZX')
.field rlty_chng, d6, fpos(11,16), format('ZZZ,ZZX')
 
.field snlt_read, d6, pos(12,1), prompt("INSNLT"), fpos(12,8), format('ZZZ,ZZX')
.field snlt_chng, d6, fpos(12,16), format('ZZZ,ZZX')
 
.field kits_read, d6, pos(13,1), prompt("INKITS"), fpos(13,8), format('ZZZ,ZZX')
.field kits_chng, d6, fpos(13,16), format('ZZZ,ZZX')
 
.field pcat_read, d6, pos(14,1), prompt("INPCAT"), fpos(14,8), format('ZZZ,ZZX')
.field pcat_chng, d6, fpos(14,16), format('ZZZ,ZZX')
 
.text text3, pos(4,41)
Read
.text text4, pos(4,46)
Changed
 
.field pric_read, d6, pos(5,31), prompt("INPRIC"), fpos(5,38), format('ZZZ,ZZX')
.field pric_chng, d6, fpos(5,46), format('ZZZ,ZZX')
 
.field oeln_read, d6, pos(6,31), prompt("OELINE"), fpos(6,38), format('ZZZ,ZZX')
.field oeln_chng, d6, fpos(6,46), format('ZZZ,ZZX')
 
.field oeil_read, d6, pos(7,31), prompt("OEILIN"), fpos(7,38), format('ZZZ,ZZX')
.field oeil_chng, d6, fpos(7,46), format('ZZZ,ZZX')
 
.field poln_read, d6, pos(8,31), prompt("POLINE"), fpos(8,38), format('ZZZ,ZZX')
.field poln_chng, d6, fpos(8,46), format('ZZZ,ZZX')
 
.field pohs_read, d6, pos(9,31), prompt("POHIST"), fpos(9,38), format('ZZZ,ZZX')
.field pohs_chng, d6, fpos(9,46), format('ZZZ,ZZX')
 
.field bmms_read, d6, pos(10,31), prompt("BMMAST"), fpos(10,38), format('ZZZ,ZZX')
.field bmms_chng, d6, fpos(10,46), format('ZZZ,ZZX')
 
.field bmbh_read, d6, pos(11,31), prompt("BMBHST"), fpos(11,38), format('ZZZ,ZZX')
.field bmbh_chng, d6, fpos(11,46), format('ZZZ,ZZX')
 
.structure rec1, olditem,newitem
.set set1, rec1, olditem,newitem
.end
;
;===============================================================
.input in8800, 14, 75
.placement 3, 1
.title ' Item Price Adjustment ', highlight
.paint _

.field strlocn, a3, pos(1,1), prompt("Starting location"), fpos(1,20), - 
 help(INPASTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a25, fpos(1,30)

.field endlocn, a3, pos(2,1), prompt("Ending location"), fpos(2,20), - 
 help(INPAENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a25, fpos(2,30)

.field strcatg, a3, pos(3,1), prompt("Starting category"), fpos(3,20), - 
 help(INPASTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a25, fpos(3,30)

.field endcatg, a3, pos(4,1), prompt("Ending category"), fpos(4,20), - 
 help(INPAENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a25, fpos(4,30)

.field stritem, a24, pos(5,1), prompt("Starting item"), fpos(5,20), -
 help(INPASTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(5,47)

.field enditem, a24, pos(6,1), prompt("Ending item"), fpos(6,20), -
 help(INPAENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(6,47)

.field strcatl, a3, pos(7,1), prompt("Starting mfg code"), fpos(7,20), - 
 help(INPASTRMFG), default("*"), user('#Drill/All/G#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatl_descr, a25, fpos(7,30)

.field endcatl, a3, pos(8,1), prompt("Ending mfg code"), fpos(8,20), - 
 help(INPAENDMFG), default("*"), user('#Drill/All/G#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatl_descr, a25, fpos(8,30)

.field adjtyp, a1, pos(9,1), prompt("Adjustment type"), fpos(9,20), - 
 help(INPRCADJT), select(1,3,,"Percentage","Dollar")

.field adjamt, d6.3, pos(10,1), prompt("Adjustment amount"), fpos(10,20), - 
 help(INPRCADJAMT), negative, format("ZZZ.XXX-")

.field round, a1, pos(11,1), prompt("Rounding option"), fpos(11,20), - 
 help(INPRCROUND), select(1,3,,"None","Cent","T:dime","Quarter","Dollar")

.field price, a1, pos(12,1), prompt("Which price"), fpos(12,20), - 
 help(INPRICTYP), select(1,3,,"0:all","1:price 1","2:price 2", -
 "3:price 3","4:price 4","5:price 5")

.field option, a1, pos(13,1), prompt("Option"), fpos(13,20), - 
 help(INPRCOPTION), select(1,3,,"List","Post")

.field sortby, a1, pos(14,1), prompt("Report sequence"), fpos(14,20), - 
 help(INPANUMALP), selwnd(1,3,inreptseq)

.structure rec1, strlocn,endlocn,strcatg,endcatg,stritem,enditem, -
	strcatl,endcatl,adjtyp,adjamt,round,price,option,sortby
.set set1, rec1, strlocn,endlocn,strcatg,endcatg,stritem,enditem, -
	strcatl,endcatl,adjtyp,adjamt,round,price,option,sortby
.end
;
;===============================================================
.input in8850, 9, 75
.placement 3, 1
.title ' Assign Cycle Codes', highlight
.paint _
 
.field stritem, a24, pos(1,1), prompt("Starting item"), fpos(1,20), -
 help(INACSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a25, fpos(1,47)

.field enditem, a24, pos(2,1), prompt("Ending item"), fpos(2,20), -
 help(INACENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a25, fpos(2,47)

.field strlocn, a3, pos(3,1), prompt("Starting location"), fpos(3,20), - 
 help(INACSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strlocn_descr, a30, fpos(3,30)

.field endlocn, a3, pos(4,1), prompt("Ending location"), fpos(4,20), - 
 help(INACENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endlocn_descr, a30, fpos(4,30)

.field status, a1, pos(5,1), prompt("Status"), fpos(5,20), -
 help(INACSTATUS), select(0,3,,"*:All","Active","Inactive","No sale","Closeout")

.field ctrl, a1, pos(6,1), prompt("Controlled"), fpos(6,20), -
 help(INACCTRL), select(0,3,,"*:All","Yes","No")

.field strcycle, d2, pos(7,1), prompt("Starting cycle"), fpos(7,20), - 
 help(INACSTRCYCLE), default(1)

.field endcycle, d2, pos(8,1), prompt("Ending cycle"), fpos(8,20), - 
 help(INACENDCYCLE), default(10)

.field emptyf, a1, pos(9,1), prompt("Empty cycles only"), fpos(9,20), -
 help(INACEMPTY), selwnd(1,3,'YESNO')
 
.structure rec1, stritem,enditem,strlocn,endlocn,status,ctrl, -
	strcycle,endcycle,emptyf
.set set1, rec1, stritem,enditem,strlocn,endlocn,status,ctrl, -
	strcycle,endcycle,emptyf
.end
;
;===============================================================
.input in8900, 12, 64
.placement 1, 1
.title ' Build Customer/Price ', highlight
.paint _

.field cust, d8, pos(1,1), prompt("Customer ID"), fpos(1,25), - 
 help(INPLCUSTID), break, format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field cust_descr, a30, fpos(1,34)

.field stritem, a24, pos(2,1), prompt("Starting item"), fpos(2,25), -
 help(INPLSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")

.field enditem, a24, pos(3,1), prompt("Ending item"), fpos(3,25), -
 help(INPLENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")

.field strlocn, a3, pos(4,1), prompt("Starting location"), fpos(4,25), - 
 help(INPLSTRLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")

.field endlocn, a3, pos(5,1), prompt("Ending location"), fpos(5,25), - 
 help(INPLENDLOC), default("*"), user('#Drill/All/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")

.field strcatg, a3, pos(6,1), prompt("Starting category"), fpos(6,25), - 
 help(INPLSTRCAT), default("*"), user('#Drill/Req/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")

.field endcatg, a3, pos(7,1), prompt("Ending category"), fpos(7,25), - 
 help(INPLENDCAT), default("*"), user('#Drill/Req/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")

.field catalog, a1, pos(8,1), prompt("Catalog items only"), fpos(8,25), - 
 help(INPLCATALOG), selwnd(1,0,noyes)

.field price, a1, pos(9,1), prompt("Price type"), fpos(9,25), - 
 help(INPRICTYP), -
 select(1,3,,"1 - price 1","2 - price 2","3 - price 3","4 - price 4",-
	     "5 - price 5","A - avg cost markup","L - last cost markup",-
	     "S - standard cost markup","Q - Special price file")

.field discount, d2, pos(10,1), prompt("Discount percent"), fpos(10,25), - 
 help(INPRCADJAMT), format("ZX")

.field disctype, a1, pos(11,1), prompt("Discount type"), fpos(11,25), - 
 help(INDISCTYPE), select(1,3,,"Replace","Leave current","None")

.field efdate, d8, pos(12,1), prompt("Effective date"), fpos(12,25), - 
 help(INEFFDATE), date(today), required

.structure rec1, cust,stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	catalog,price,discount,disctype,efdate
.set set1, rec1, cust,stritem,enditem,strlocn,endlocn,strcatg,endcatg, -
	catalog,price,discount,disctype,efdate
.end
;
;===============================================================
.input in8910, 8, 68
.placement 1, 1
.title ' Customer/Price Maintenance ', highlight
.line Line1, 68, pos(3,1), horizontal
.line Line2, 68, pos(6,1), horizontal
.paint _

.field cust, d8, pos(1,1), prompt("Customer ID"), fpos(1,13), - 
 help(INPLCUSTID), break, format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field cust_descr, a30, fpos(1,22), paint(" ")

.field item, a24, pos(2,1), prompt("Item ID"), fpos(2,13), - 
 help(INPLITEM), user('#Drill/Req"'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field item_descr, a25, fpos(2,38), paint(" ")

.field price, d9.3, pos(4,1), prompt("Price"), fpos(4,13), - 
 help(INITPRC1), format("ZZZ,ZZZ.XXX")

.field discount, d2, pos(5,1), prompt("Discount"), fpos(5,13), - 
 help(INPRCADJAMT), format("ZX")

.field minqty1, d6, pos(7,1), prompt("Min Qty"), fpos(7,10), - 
 help(INPRCMINQTY), format("ZZZ,ZZX")
.field mprice1, d9.3, pos(8,1), prompt("Prices"), fpos(8,10), - 
 help(INITPRC1), format("ZZZ,ZZZ.XXX")
.field minqty2, d6, fpos(7,22), - 
 help(INPRCMINQTY), format("ZZZ,ZZX")
.field mprice2, d9.3, fpos(8,22), - 
 help(INITPRC1), format("ZZZ,ZZZ.XXX")
.field minqty3, d6, fpos(7,34), - 
 help(INPRCMINQTY), format("ZZZ,ZZX")
.field mprice3, d9.3, fpos(8,34), - 
 help(INITPRC1), format("ZZZ,ZZZ.XXX")
.field minqty4, d6, fpos(7,46), - 
 help(INPRCMINQTY), format("ZZZ,ZZX")
.field mprice4, d9.3, fpos(8,46), - 
 help(INITPRC1), format("ZZZ,ZZZ.XXX")
.field minqty5, d6, fpos(7,58), - 
 help(INPRCMINQTY), format("ZZZ,ZZX")
.field mprice5, d9.3, fpos(8,58), - 
 help(INITPRC1), format("ZZZ,ZZZ.XXX")

.structure rec1, cust,item,<11>,price,discount,minqty1,minqty2,minqty3, -
	 minqty4,minqty5,mprice1,mprice2,mprice3,mprice4,mprice5
.set set1, rec1, cust,item,price,discount,minqty1,minqty2,minqty3, -
	 minqty4,minqty5,mprice1,mprice2,mprice3,mprice4,mprice5
.end
;
;===============================================================
.input in8920, 2, 55
.placement 1, 1
.title ' List Customer Prices ', highlight
.paint _

.field cust, d8, pos(1,1), prompt("Customer ID"), fpos(1,13), - 
 help(INPLCUSTID), break, format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field cust_descr, a30, fpos(1,22), paint(" ")

.structure rec1, cust
.set set1, rec1, cust
.end
;
;===============================================================
.input in8930, 2, 55
.placement 1, 1
.title ' Make Customer Diskette ', bold
.paint _

.field cust, d8, pos(1,1), prompt("Customer ID"), fpos(1,13), - 
 help(INPLCUSTID), break, format('XXXXXXXX'), user('#Drill/Req#'), -
 drill_method("NAMAST_FIND"), change_method("NAMAST_CHANGE")
.field cust_descr, a30, fpos(1,22), paint(" ")

.field device, a1, pos(2,1), prompt("Diskette"), fpos(2,13), - 
 help(INPLDISK), select(0,3,,"A","B")

.structure rec1, cust,device
.set set1, rec1, cust,device
.end
;
;===============================================================
.input in9900, 18, 60
.placement 2, 1
.title ' Import Records ', bold
.line Line1, 60, pos(5,1), horizontal
.line Line2, 18, pos(5,30), vertical
.paint "_"
 
.field file, a40, pos(1,1), prompt("File to import"), fpos(1,18), -
 help(INIMFILE), required, break
 
.field delim, a1, pos(2,1), prompt("Field delimiter"), fpos(2,18), -
 help(INIMDELIM)
 
.field item, a24, pos(3,1), prompt("Copy item id"), fpos(3,18), -
 help(INIMITEM), user('#Drill/Req"'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
 
.field locn, a3, pos(4,1), prompt("Copy location"), fpos(4,18), -
 help(INIMLOCN), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field locn_descr, a25, fpos(4,24)
 
.field data01, a20, pos(5,2), prompt("Import Data"), fpos(6,1)
.field data02, a20, fpos(7,1)
.field data03, a20, fpos(8,1)
.field data04, a20, fpos(9,1)
.field data05, a20, fpos(10,1)
.field data06, a20, fpos(11,1)
.field data07, a20, fpos(12,1)
.field data08, a20, fpos(13,1)
.field data09, a20, fpos(14,1)
.field data10, a20, fpos(15,1)
.field data11, a20, fpos(16,1)
.field data12, a20, fpos(17,1)
 
.field field01, a8, pos(5,22), prompt("Field"), fpos(6,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field02, a8, fpos(7,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field03, a8, fpos(8,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field04, a8, fpos(9,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field05, a8, fpos(10,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field06, a8, fpos(11,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field07, a8, fpos(12,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field08, a8, fpos(13,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field09, a8, fpos(14,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field10, a8, fpos(15,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field11, a8, fpos(16,22), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field12, a8, fpos(17,22), -
 help(INIMFIELD), selwnd(0,8,infield)
 
.field data13, a20, pos(5,32), prompt("Import Data"), fpos(6,31)
.field data14, a20, fpos(7,31)
.field data15, a20, fpos(8,31)
.field data16, a20, fpos(9,31)
.field data17, a20, fpos(10,31)
.field data18, a20, fpos(11,31)
.field data19, a20, fpos(12,31)
.field data20, a20, fpos(13,31)
.field data21, a20, fpos(14,31)
.field data22, a20, fpos(15,31)
.field data23, a20, fpos(16,31)
.field data24, a20, fpos(17,31)
 
.field field13, a8, pos(5,52), prompt("Field"), fpos(6,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field14, a8, fpos(7,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field15, a8, fpos(8,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field16, a8, fpos(9,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field17, a8, fpos(10,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field18, a8, fpos(11,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field19, a8, fpos(12,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field20, a8, fpos(13,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field21, a8, fpos(14,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field22, a8, fpos(15,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field23, a8, fpos(16,52), -
 help(INIMFIELD), selwnd(0,8,infield)
.field field24, a8, fpos(17,52), -
 help(INIMFIELD), selwnd(0,8,infield)
 
.text Text5, pos(18,1)
Records:       0 Added,       0 Rejected
.field recsadd, d6, fpos(18,10), format('ZZZ,ZZX'), paint(" ")
.field recsrej, d6, fpos(18,25), format('ZZZ,ZZX'), paint(" ")
 
.structure cm8800, file,delim,item,locn,-
	data01,data02,data03,data04,data05,-
 	data06,data07,data08,data09,data10,-
	data11,data12,data13,data14,data15,-
	data16,data17,data18,data19,data20,-
	data21,data22,data23,data24,-
	field01,field02,field03,field04,field05,-
	field06,field07,field08,field09,field10,-
	field11,field12,field13,field14,field15,-
	field16,field17,field18,field19,field20,-
	field21,field22,field23,field24
.set set1, cm8800, file,delim,item,locn
.set set2, cm8800, field01,field02,field03,field04,field05,-
	field06,field07,field08,field09,field10,-
	field11,field12,field13,field14,field15,-
	field16,field17,field18,field19,field20,-
	field21,field22,field23,field24
.set set9, cm8800, data01,data02,data03,data04,data05,-
	data06,data07,data08,data09,data10,-
	data11,data12,data13,data14,data15,-
	data16,data17,data18,data19,data20,-
	data21,data22,data23,data24
.end
;
;===============================================================
