Ì i 2
bkg.ver.input
[bvi.lvl]
/MPVI[mvvUL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bvi.lvl 1 CHOICE L mvvUL
bvi.req 1 YN L /MPVI[mvvUL]|1
bvi.sel 1 YN L /MPVI[mvvUL]|0
Ì i 2
bkg.verif.list
[bkg.ver.urn]
*(M)MPBV[mpbv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bkg.ver.urn 12 URN L mpbv
bkg.ver.date 8 DATE L *(M)MPBV[mpbv]|0
bkg.ver.job 10 FREE L *(M)MPBV[mpbv]|1
bkg.ver.pur.fac 10 FREE L MIS.PUR.FAC *(M)MPBV[mpbv]|4
bkg.ver.status 9 CHOICE L *(M)MPBV[mpbv]|3
bkg.ver.user 10 FREE L MIS.USER *(M)MPBV[mpbv]|2
Ì € i 2
bv.edi.pgms
[bkg.ver.urn, bv.edi.po]
*(M)MPBV[mpbv]E[mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bv.edi.po 30 URN L MM.PO mp
bv.edi.pgm 15 FREE L MM.EDI.PROGRAM *(M)MPBV[mpbv]E[mp]
Ì € i 2
bv.levels
[bkg.ver.urn, bvl.lvl]
*(M)MPBV[mpbv]V[mvvUL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bvl.lvl 1 CHOICE L mvvUL
bvl.req 1 YN L *(M)MPBV[mpbv]V[mvvUL]|1
bvl.sel 1 YN L *(M)MPBV[mpbv]V[mvvUL]|0
Ì € i 2
bv.po.list
[bkg.ver.urn, bv.po]
*(M)MPBV[mpbv]L[mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bv.po 30 URN L MM.PO mp
Ì € i 2
bv.po.messages
[bkg.ver.urn,bv.po, bv.po.message.urn]
*(M)MPBV[mpbv]L[mp,mpbvU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bv.po.message.urn 3 PINT R mpbvU
bv.po.message 65 FREE L *(M)MPBV[mpbv]L[mp,mpbvU]|0
Ì i 2
edi.send.queue
[edi.q.type,edi.program,edi.vendor.number,edi.po.urn]
*(M)MPSQ[mjQT,mjd,gr,mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.q.type 3 PINT R mjQT
edi.program 15 FREE L MM.EDI.PROGRAM mjd
edi.vendor.number 11 FREE L MIS.VEN gr
edi.po.urn 30 URN L MM.PO mp
edi.q.disp 10 FREE L VAL=MM.PO.edi.q.type_" - "_IF{MM.PO.edi.q.type=1 "JIT"
VAL=;"STD"}
edi.send.entire.po 1 YN L *(M)MPSQ[mjQT,mjd,gr,mp]|0
Ì € i 2
edi.send.queue.lines
[edi.q.type,edi.program,edi.vendor.number,edi.po.urn, edi.send.queue.line.no]
*(M)MPSQ[mjQT,mjd,gr,mp]L[mpL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.send.queue.line.no 4 PINT R mpL
Ì € i 2
main
[urn]
$(M1)MP[mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 30 URN L mp
ap.database 12 FREE L MIS.APPL.DB $(M1)MP[mp]|25
auth.number 20 FREE L $(M1)MP[mp]A|18
bad.fac 10 FREE L MIS.PUR.FAC $(M1)MP[mp]A1|0
blanket.exp.date 8 DATE L $(M1)MP[mp]A|15
blanket.tot.amt.ed 10 PMONEY R $(M1)MP[mp]A|16
blanket.tot.amt.ord 10 PMONEY R $(M1)MP[mp]A|17
block.from.auto.process 1 YN L $(M1)MP[mp]AA|0
buyer 10 FREE L MIS.USER $(M1)MP[mp]A|4
cancel.date 8 DATE L $(M1)MP[mp]D|4
close.date 8 DATE L $(M1)MP[mp]D|1
confirm.date 8 DATE L $(M1)MP[mp]|15
consignment 1 YN L VAL=@MM.INVENT.consignment[@inventory]
cycle.period 3 PINT R $(M1)MP[mp]A|8
deliv.addr1 30 FREE L VAL=@MIS.PUR.FAC.deliv.addr1[IF{@MM.PO.purch.facility;
VAL=@MIS.PUR.FAC.dft.fac.w.db}]
deliv.addr2 30 FREE L VAL=@MIS.PUR.FAC.deliv.addr2[IF{@MM.PO.purch.facility;
VAL=@MIS.PUR.FAC.dft.fac.w.db}]
deliv.addr3 30 FREE L VAL=@MIS.PUR.FAC.deliv.addr3[IF{@MM.PO.purch.facility;
VAL=@MIS.PUR.FAC.dft.fac.w.db}]
deliv.date 8 DATE L $(M1)MP[mp]|10
dollar.tot 11 MONEY R VAL=(@p.MM.PO.po.tot:2D)
dollar.tot.rpt 11 MONEY R VAL=(IF{@p.MM.PO.type="RETURN" 0-1;1}*@p.MM.PO.po.tot:
VAL=2D)
edi.last.date.ack 8 DATE L VAL=@MM.PO.edi.txn.ack.date["ACK",@MM.PO.edi.last.urn.
VAL=ack]
edi.last.date.sent 8 DATE L VAL=@MM.PO.edi.txn.sent.date["SENT",@MM.PO.edi.last.ur
VAL=n.sent]
edi.last.txn.date 8 DATE L VAL=(@MM.PO.edi.txn.sent.date[@MM.PO.edi.last.txn.type
VAL=,@MM.PO.edi.last.txn.urn])
edi.last.txn.type 4 CHOICE L $(M1)MP[mp]EDI|1
edi.last.txn.urn 3 PINT R $(M1)MP[mp]EDI|0
edi.last.urn.ack 3 PINT R VAL=-@MM.PO.edi.txns[MM.PO.urn,"ACK",""]
edi.last.urn.sent 3 PINT R VAL=-@MM.PO.edi.txns[MM.PO.urn,"SENT",""]
edi.pgm 15 FREE L MM.EDI.PROGRAM $(M1)MP[mp]|18
edi.q 3 PINT R $(M1)MP[mp]A|20
edi.send.changes 1 YN L $(M1)MP[mp]|19
exempt.purch.cert 20 FREE L VAL=@MIS.PUR.FAC.exempt.purch.cert[IF{@MM.PO.purch.fac
VAL=ility;@MIS.PUR.FAC.dft.fac.w.db}]
exempt.purch.cert.state 5 FREE L VAL=@MIS.PUR.FAC.exempt.purch.cert.state[IF{@MM.PO.pur
VAL=ch.facility;@MIS.PUR.FAC.dft.fac.w.db}]
fac.type 1 FREE L
facility.addr1 30 FREE L VAL=@MIS.PUR.FAC.fac.addr1[IF{@MM.PO.purch.facility;@M
VAL=IS.PUR.FAC.dft.fac.w.db}]
facility.addr2 30 FREE L VAL=@MIS.PUR.FAC.fac.addr2[IF{@MM.PO.purch.facility;@M
VAL=IS.PUR.FAC.dft.fac.w.db}]
facility.addr3 30 FREE L VAL=@MIS.PUR.FAC.fac.addr3[IF{@MM.PO.purch.facility;@M
VAL=IS.PUR.FAC.dft.fac.w.db}]
facility.name 40 FREE L VAL=@MIS.PUR.FAC.name[IF{@MM.PO.purch.facility;@MIS.PU
VAL=R.FAC.dft.fac.w.db}]
first.deliv.date 8 DATE L $(M1)MP[mp]A|7
first.rcpt.date 8 DATE L $(M1)MP[mp]D|2
fob 35 FREE L $(M1)MP[mp]|13
id 30 URN L MM.PO VAL=(@MM.PO.number_" - "_@MM.PO.status'=" - ")
inventory 10 FREE L MM.INVENT $(M1)MP[mp]|3
invoice.addr1 30 FREE L VAL=@MIS.PUR.FAC.invoice.addr1[IF{@MM.PO.purch.facilit
VAL=y;@MIS.PUR.FAC.dft.fac.w.db}]
invoice.addr2 30 FREE L VAL=@MIS.PUR.FAC.invoice.addr2[IF{@MM.PO.purch.facilit
VAL=y;@MIS.PUR.FAC.dft.fac.w.db}]
invoice.addr3 30 FREE L VAL=@MIS.PUR.FAC.invoice.addr3[IF{@MM.PO.purch.facilit
VAL=y;@MIS.PUR.FAC.dft.fac.w.db}]
ireq.no 10 FREE L $(M1)MP[mp]IR|0
is.fac 10 FREE L VAL=IF{c.fac.type="P" @map.fac;@purch.facility}
jit 1 YN L $(M1)MP[mp]A|19
last.line 4 PINT R $(M1)MP[mp]|12
last.rcpt.date 8 DATE L $(M1)MP[mp]D|3
lvls.grp 9 FREE L $(M1)MP[mp]A1|2
lvls.reqd 1 CHOICE L $(M1)MP[mp]A1|1
lvls.reqd.disp 1 FREE L VAL=IF{@MM.PO.lvls.reqd;1}
map.fac 10 FREE L MIS.PUR.FAC $(M1)MP[mp]A|21
no.cycles 3 PINT R $(M1)MP[mp]A|9
no.cycles.completed 3 PINT R $(M1)MP[mp]A|10
number 10 FREE L $(M1)MP[mp]|1
number.and.status 25 FREE L VAL=(@MM.PO.number_" - "_@MM.PO.status'=" - ")
offsite.addr1 30 FREE L $(M1)MP[mp]A|0
offsite.addr2 30 FREE L $(M1)MP[mp]A|1
offsite.addr3 30 FREE L $(M1)MP[mp]A|2
open.date 8 DATE L $(M1)MP[mp]D|0
order.date 8 DATE L $(M1)MP[mp]|8
order.type 8 CHOICE L $(M1)MP[mp]A|6
po.disp 45 FREE L VAL=(@MM.PO.number_" - "_@MM.PO.type_" <"_@MM.PO.st
VAL=atus_"> "_%Z.date.out(@MM.PO.order.date)'=" -
VAL=<> ")
po.printed 8 DATE L $(M1)MP[mp]|16
po.tax.type 3 CHOICE L $(M1)MP[mp]|22
po.tot 11 DEC4 R $(M1)MP[mp]|11
prepay.po 1 YN L $(M1)MP[mp]|20
print.cd.screen 0 FREE L VAL=DO{@Next(cd.screen) %MIS.SCREEN.print(cd.screen,^@
VAL=customer.defined.fields,"",0)}
print.cd.screen.verbatim 0 FREE L VAL=DO{@Next(cd.screen) %MIS.SCREEN.print(cd.screen,^@
VAL=customer.defined.fields,1,0)}
purch.facility 10 FREE L MIS.PUR.FAC $(M1)MP[mp]|23
report.purch.fac.sort 10 FREE L VAL=IF{"Y"'=f.yes.no " ";@MM.PO.purch.facility}
return.from.po 10 FREE L $(M1)MP[mp]|24
ship.via 10 FREE L $(M1)MP[mp]|9
status 9 CHOICE L $(M1)MP[mp]|6
status.date 8 DATE L VAL=%MM.PO.find.status.date(urn)
tax.rate 6 DEC3 R $(M1)MP[mp]A|11
terms 35 FREE L $(M1)MP[mp]|17
tot.num.rcpts 3 PINT R $(M1)MP[mp]|21
tsk.num.ver 10 FREE L $(M1)MP[mp]A1|3
tsk.urn 24 FREE L
type 9 CHOICE L $(M1)MP[mp]|2
vendor 11 FREE L MIS.VEN $(M1)MP[mp]|7
vendor.addr.1 35 FREE L $(M1)MP[mp]V|2
vendor.addr.2 35 FREE L $(M1)MP[mp]V|3
vendor.addr.3 35 FREE L $(M1)MP[mp]V|4
vendor.addr.alt 35 FREE L $(M1)MP[mp]V["ALT"]|0
vendor.city 20 FREE L $(M1)MP[mp]RE|0
vendor.name 35 FREE L $(M1)MP[mp]V|0
vendor.name.2 35 FREE L $(M1)MP[mp]V|1
vendor.name.disp 35 FREE L VAL=(IF{@MM.PO.vendor.name;@MIS.VEN.name[@MM.PO.vendor
VAL=]})
vendor.postal.code 10 FREE L $(M1)MP[mp]RE|2
vendor.state 2 FREE L $(M1)MP[mp]RE|1
Ì € i 2
comments
[urn, comment.no]
$(M1)MP[mp]C[mpCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.no 2 PINT R mpCN
comment 75 FREE L $(M1)MP[mp]C[mpCN]|0
comment.loc 5 CHOICE L $(M1)MP[mp]C[mpCN]|1
Ì € i 2
customer.defined.queries
[urn, cd.query]
$(M1)MP[mp]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.query.resp 75 QRY.RESP L $(M1)MP[mp]CD[ggv]|0
Ì € i 2
customer.def.mult.queries
[urn,cd.query, cdm.seq.no]
$(M1)MP[mp]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cdm.seq.no 3 PINT R ggvN
cdm.response 75 QRY.RESP L $(M1)MP[mp]CD[ggv]M[ggvN]|0
Ì € i 2
customer.defined.screens
[urn, cd.screen]
$(M1)MP[mp]CDS[gxx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.screen 15 FREE L MIS.SCREEN gxx
Ì € i 2
edi.txns
[urn, edi.txn.type,edi.txn.urn]
$(M1)MP[mp]EDI[mpEDT,mpEDU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.txn.type 4 CHOICE L mpEDT
edi.txn.urn 3 PINT R mpEDU
edi.txn.ack.date 8 DATE L $(M1)MP[mp]EDI[mpEDT,mpEDU]|0
edi.txn.ack.urn 8 URN L MM.PO.ACK $(M1)MP[mp]EDI[mpEDT,mpEDU]|1
edi.txn.sent.date 8 DATE L $(M1)MP[mp]EDI[mpEDT,mpEDU]|0
edi.txn.sent.entire.po 1 YN L $(M1)MP[mp]EDI[mpEDT,mpEDU]|2
edi.txn.sent.last.line 4 PINT R $(M1)MP[mp]EDI[mpEDT,mpEDU]|3
edi.txn.sent.program 15 FREE L MM.EDI.PROGRAM $(M1)MP[mp]EDI[mpEDT,mpEDU]|1
edi.txn.sent.queue 2 PINT R $(M1)MP[mp]EDI[mpEDT,mpEDU]|5
edi.txn.sent.value 10 SMONEY R $(M1)MP[mp]EDI[mpEDT,mpEDU]|4
Ì € i 2
edi.txn.sent.lines
[urn,edi.txn.type,edi.txn.urn, edi.txn.sent.line.no]
$(M1)MP[mp]EDI[mpEDT,mpEDU]L[mpL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.txn.sent.line.no 4 PINT R mpL
edi.txn.sent.tot.ord.us 7 INT R $(M1)MP[mp]EDI[mpEDT,mpEDU]L[mpL]|0
Ì € i 2
lines
[urn, line.no]
$(M1)MP[mp]L[mpL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
line.no 4 PINT R mpL
account 25 FREE L MIS.GL.ACCOUNT $(M1)MP[mp]L[mpL]I|4
asset.tag 10 FREE L $(M1)MP[mp]L[mpL]|24
auto 1 YN L $(M1)MP[mp]L[mpL]|17
change.from.account 25 FREE L $(M1)MP[mp]L[mpL]I|10
change.from.dept 15 FREE L $(M1)MP[mp]L[mpL]I|8
change.from.dept.or.inv 15 FREE L VAL=IF{@change.from.dept;@change.from.inv}
change.from.inv 10 FREE L $(M1)MP[mp]L[mpL]I|9
consign.order.line 4 PINT R $(M1)MP[mp]L[mpL]I|7
consignment.order 1 YN L $(M1)MP[mp]L[mpL]I|6
conv.unit.of.pur 10 FREE L $(M1)MP[mp]L[mpL]|12
cost.up 10 DEC4 R $(M1)MP[mp]L[mpL]|7
cost.up.us 10 DEC4 R VAL=(@MM.PO.cost.up:8D/@MM.PO.po.up.us:4D)
dept 15 FREE L MIS.GL.DEPT $(M1)MP[mp]L[mpL]I|0
dept.or.inventory 16 FREE L VAL=IF{@dept "D"_@dept;"I"_@line.inventory}
eoc 7 FREE L MIS.GL.EOC $(M1)MP[mp]L[mpL]|2
ireq.line.no 3 PINT R $(M1)MP[mp]L[mpL]R|2
item.category 8 FREE L MM.CATEGORY VAL=@MM.ITEM.category[@item.urn]
item.desc.line2 30 FREE L $(M1)MP[mp]L[mpL]A|1
item.description 30 FREE L $(M1)MP[mp]L[mpL]A|0
item.name 30 FREE L $(M1)MP[mp]L[mpL]A|2
item.no 10 FREE L $(M1)MP[mp]L[mpL]|1
item.packaging 40 FREE L VAL=IF{@MM.PO.item.no$5="MISC." @MM.PO.misc.item.packa
VAL=ging;@MM.ITEM.package.string}
item.pkg.string 40 FREE L VAL=IF{@MM.PO.item.no$5="MISC." @MM.PO.misc.item.packa
VAL=ging;@MM.ITEM.packaging[@item.urn,(@pkg.string.ptr
VAL=+0)]}
item.urn 43 URN L MM.ITEM $(M1)MP[mp]L[mpL]|0
last.rcv.txn 5 INT R $(M1)MP[mp]L[mpL]|22
last.txn 5 URN L VAL=@Last(txn.urn,@MM.PO.transactions)
line.inventory 10 FREE L MM.INVENT $(M1)MP[mp]L[mpL]I|1
line.reason.for.return 75 FREE L $(M1)MP[mp]L[mpL]RR|0
line.ret.exch 4 CHOICE L $(M1)MP[mp]L[mpL]|26
manuf 10 FREE L MIS.MFR $(M1)MP[mp]L[mpL]A|4
manuf.catlg 15 FREE L $(M1)MP[mp]L[mpL]A|5
misc.item.packaging 40 FREE L $(M1)MP[mp]L[mpL]M|0
misc.manuf 10 FREE L MIS.MFR $(M1)MP[mp]L[mpL]M|2
misc.manuf.catlg 15 FREE L $(M1)MP[mp]L[mpL]M|3
misc.smallest.unit 10 FREE L $(M1)MP[mp]L[mpL]M|4
misc.vend.catlg 15 FREE L $(M1)MP[mp]L[mpL]M|1
pkg.ptr 4 INT R VAL=@p.pkg.string.ptr+0
pkg.string.ptr 4 INT R $(M1)MP[mp]L[mpL]A|6
po.req 30 URN L MM.PO.REQ $(M1)MP[mp]L[mpL]R|0
po.req.line.no 4 PINT R $(M1)MP[mp]L[mpL]R|1
po.unit.of.pur 10 FREE L $(M1)MP[mp]L[mpL]|9
po.unit.of.pur.num 2 INT R VAL=(@MM.PO.po.unit.of.pur$(L(@MM.PO.po.unit.of.pur,"
VAL="))?0N!1)
po.up.us 7 PINT R $(M1)MP[mp]L[mpL]|10
po.up.with.us 15 FREE L $(M1)MP[mp]L[mpL]|11
price.confirmed 1 YN L $(M1)MP[mp]L[mpL]|13
qty.per.order 7 INT R $(M1)MP[mp]L[mpL]|18
qty.up 7 INT R $(M1)MP[mp]L[mpL]|14
qty.up.with.up 18 FREE L VAL=(@p.MM.PO.qty.up_" "_@p.MM.PO.po.unit.of.pur)
ret.from.po.line 4 PINT R $(M1)MP[mp]L[mpL]|25
smallest.unit 10 FREE L VAL=IF{@MM.PO.misc.smallest.unit;@MM.ITEM.smallest.uni
VAL=t}
smallest.unit.rpt 10 FREE L VAL=IF{@MM.PO.misc.smallest.unit;@MM.ITEM.smallest.uni
VAL=t[@item.urn]}
stock.no 10 FREE L $(M1)MP[mp]L[mpL]I|3
stock.on.hand 15 FREE L VAL=IF{@line.inventory 0+@MM.STOCK.qty.on.hand[@stock.
VAL=urn]^XX/(@po.up.us^PP)_IF{XX\PP'=0^XX ";"_XX}}
stock.on.order 15 FREE L VAL=IF{@line.inventory @MM.STOCK.qty.on.order[@stock.u
VAL=rn]^XX/(@po.up.us^PP)_IF{XX\PP'=0^XX ";"_XX}}
stock.urn 18 URN L MM.STOCK $(M1)MP[mp]L[mpL]I|2
tax.code 3 FREE L MIS.TAX.CODE $(M1)MP[mp]L[mpL]I|5
tot.canc.up 11 DEC3 R VAL=(@MM.PO.tot.canc.us:8D/@MM.PO.po.up.us:3D)
tot.canc.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.canc.us^TT/@p.MM.PO.po.up.us_IF{0+
VAL=TT\@p.MM.PO.po.up.us^TT'=0 ";"_TT})
tot.canc.us 7 INT R $(M1)MP[mp]L[mpL]|21
tot.canc.value 9 MONEY R VAL=(@MM.PO.tot.canc.us:8D/@MM.PO.po.up.us*@MM.PO.cost
VAL=.up:2D)
tot.left.up 11 DEC3 R VAL=(0+@MM.PO.tot.ord.us-(@MM.PO.tot.rcv.us+@MM.PO.tot
VAL=.canc.us)!0:8D/@MM.PO.po.up.us:3D)
tot.left.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.ord.us-(@p.MM.PO.tot.rcv.us+@p.MM.
VAL=PO.tot.canc.us)!0^TT/@p.MM.PO.po.up.us_IF{0+TT\@p.
VAL=MM.PO.po.up.us'=0^TT ";"_TT})
tot.left.us 7 INT R VAL=(0+@tot.ord.us-(@tot.rcv.us+@tot.canc.us)!0)
tot.left.value 9 MONEY R VAL=(@MM.PO.tot.left.us:8D/@MM.PO.po.up.us*@MM.PO.cost
VAL=.up:2D)
tot.ord.up 11 DEC3 R VAL=(@MM.PO.tot.ord.us:8D/@MM.PO.po.up.us:3D)
tot.ord.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.ord.us^TT/@p.MM.PO.po.up.us_IF{0+T
VAL=T\@p.MM.PO.po.up.us^TT'=0 ";"_TT})
tot.ord.us 7 INT R $(M1)MP[mp]L[mpL]|19
tot.ord.value 9 MONEY R VAL=(@MM.PO.tot.ord.us:8D/@MM.PO.po.up.us*@MM.PO.cost.
VAL=up:2D)
tot.p.left.up 11 DEC3 R VAL=(0+@p.MM.PO.tot.ord.us-(@p.MM.PO.tot.rcv.us+@p.MM.
VAL=PO.tot.canc.us)!0:8D/@p.MM.PO.po.up.us:3D)
tot.p.left.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.ord.us-(@p.MM.PO.tot.rcv.us+@p.MM.
VAL=PO.tot.canc.us)!0^TT/@p.MM.PO.po.up.us_IF{0+TT\@p.
VAL=MM.PO.po.up.us'=0^TT ";"_TT})
tot.p.left.us 7 INT R VAL=(0+@p.tot.ord.us-(@p.tot.rcv.us+@p.tot.canc.us)!0)
tot.p.to.ord.us 7 INT R VAL=(@p.MM.PO.tot.to.order*@p.MM.PO.po.up.us)
tot.rcv.canc.up 11 DEC3 R VAL=(@MM.PO.tot.rcv.us+@MM.PO.tot.canc.us:8D/@MM.PO.po
VAL=.up.us:3D)
tot.rcv.canc.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.rcv.us+@p.MM.PO.tot.canc.us^TT/@p.
VAL=MM.PO.po.up.us_IF{0+TT\@p.MM.PO.po.up.us^TT'=0 ";"
VAL=_TT})
tot.rcv.up 11 DEC3 R VAL=(@MM.PO.tot.rcv.us:8D/@MM.PO.po.up.us:3D)
tot.rcv.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.rcv.us^TT/@p.MM.PO.po.up.us_IF{0+T
VAL=T\@p.MM.PO.po.up.us^TT'=0 ";"_TT})
tot.rcv.us 7 INT R $(M1)MP[mp]L[mpL]|20
tot.rcv.value 9 MONEY R VAL=(@MM.PO.tot.rcv.us:8D/@MM.PO.po.up.us*@MM.PO.cost.
VAL=up:2D)
tot.to.ord.us 7 INT R VAL=(@MM.PO.tot.to.order*@MM.PO.po.up.us)
tot.to.order 7 INT R $(M1)MP[mp]L[mpL]|23
vend.catlg 15 FREE L $(M1)MP[mp]L[mpL]A|3
vend.unit.of.pur 10 FREE L VAL=@MM.ITEM.vend.unit.of.pur[@MM.PO.item.urn,@MM.PO.v
VAL=endor]
Ì € i 2
desc
[urn,line.no, desc.line]
$(M1)MP[mp]L[mpL]D[mpDL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
desc.line 3 PINT R mpDL
sec.desc 50 FREE L $(M1)MP[mp]L[mpL]D[mpDL]
Ì € i 2
transactions
[urn,line.no, txn.urn]
$(M1)MP[mp]L[mpL]T[mpT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.urn 5 URN L mpT
edit.from 10 FREE L $(M1)MP[mp]L[mpL]T[mpT]|13
edit.to 10 FREE L $(M1)MP[mp]L[mpL]T[mpT]|14
first.order.txn 1 YN L VAL=IF{NEW.ORDER&(@status="WORKING") "Y";"N"}
inventory.adj 5 FREE L $(M1)MP[mp]L[mpL]T[mpT]|15
packing.list 20 FREE L $(M1)MP[mp]L[mpL]T[mpT]|3
rcv.adj.cost 11 DEC4 R $(M1)MP[mp]L[mpL]T[mpT]|16
rcv.adj.us 7 PINT R VAL=(0+@MM.PO.po.up.us*@MM.PO.rcv.adj.cost:4D/@MM.PO.t
VAL=xn.cost.um)
txn.amt 11 DEC4 R $(M1)MP[mp]L[mpL]T[mpT]|7
txn.comment 75 FREE L $(M1)MP[mp]L[mpL]T[mpT]|11
txn.conv.unit.of.meas 10 FREE L $(M1)MP[mp]L[mpL]T[mpT]|5
txn.cost.um 11 DEC4 R $(M1)MP[mp]L[mpL]T[mpT]|8
txn.cost.us 10 DEC4 R VAL=(@txn.amt:8D/@txn.qty.us:4D)
txn.date 8 DATE L $(M1)MP[mp]L[mpL]T[mpT]|1
txn.qty.um 8 INT R $(M1)MP[mp]L[mpL]T[mpT]|6
txn.qty.us 11 INT R $(M1)MP[mp]L[mpL]T[mpT]|9
txn.tax.code 3 FREE L MIS.TAX.CODE $(M1)MP[mp]L[mpL]T[mpT]|10
txn.taxable 1 YN L $(M1)MP[mp]L[mpL]T[mpT]|12
txn.type 1 CHOICE L $(M1)MP[mp]L[mpL]T[mpT]|0
txn.unit.of.meas 10 FREE L $(M1)MP[mp]L[mpL]T[mpT]|4
um.us 8 INT R VAL=(@txn.qty.us/@txn.qty.um)
user 10 FREE L MIS.USER $(M1)MP[mp]L[mpL]T[mpT]|2
Ì € i 2
vlevels
[urn, vlevel]
$(M1)MP[mp]A1["L",mpVL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
vlevel 1 CHOICE L mpVL
vdate 8 DATE L $(M1)MP[mp]A1["L",mpVL]|1
vsel 1 YN L $(M1)MP[mp]A1["L",mpVL]|2
vuser 10 FREE L MIS.USER $(M1)MP[mp]A1["L",mpVL]|0
Ì i 2
po.vendor.lock
[po.vendor]
*(M)MPVLOCK[gr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
po.vendor 11 FREE L MIS.VEN gr
Ì i 2
process.list
[process.list.urn]
*(M)MPOP[mpop]
Field Name Len Dat Typ J DPM Offset/Local/VAL
process.list.urn 12 URN L mpop
autoverify 1 YN L *(M)MPOP[mpop]|14
completed 12 FREE L *(M)MPOP[mpop]|6
create.from 3 CHOICE L *(M)MPOP[mpop]|1
create.user 10 FREE L MIS.USER *(M)MPOP[mpop]|5
effect.date 8 DATE L *(M)MPOP[mpop]|3
job 10 FREE L *(M)MPOP[mpop]|4
override.vend.autoverify 1 YN L *(M)MPOP[mpop]|15
process.list.buyer 10 FREE L *(M)MPOP[mpop]|11
process.list.check.buyer 1 YN L *(M)MPOP[mpop]|16
process.list.date 8 DATE L *(M)MPOP[mpop]|0
process.list.deliv.date 8 DATE L *(M)MPOP[mpop]|12
process.list.tax.rate 5 FREE L *(M)MPOP[mpop]|13
select.ap.database 12 FREE L MIS.APPL.DB *(M)MPOP[mpop]|9
select.inventory 10 FREE L MM.INVENT *(M)MPOP[mpop]|7
select.purch.facility 10 FREE L MIS.PUR.FAC *(M)MPOP[mpop]|8
selection 1 CHOICE L *(M)MPOP[mpop]|2
Ì € i 2
inv.list
[process.list.urn, stock.item.urn]
*(M)MPOP[mpop]P[ms]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stock.item.urn 18 URN L MM.STOCK ms
stock.po.line.no 4 PINT R *(M)MPOP[mpop]P[ms]|1
stock.po.urn 30 URN L MM.PO *(M)MPOP[mpop]P[ms]|0
Ì € i 2
req.list
[process.list.urn, req.urn,req.line.no]
*(M)MPOP[mpop]R[mr,mrL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
req.urn 30 URN L MM.PO.REQ mr
req.line.no 4 PINT R mrL
req.po.line.no 4 PINT R *(M)MPOP[mpop]R[mr,mrL]|1
req.po.urn 30 URN L MM.PO *(M)MPOP[mpop]R[mr,mrL]|0
Ì € i 2
selection.list
[process.list.urn, entry.no]
*(M)MPOP[mpop]L[mpopL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
entry.no 10 FREE L mpopL
filler 11 FREE L *(M)MPOP[mpop]L[mpopL]
Ì i 2
purchase.vendor.lock
[locked.po.vendor]
*(M)MPLOCK[gr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
locked.po.vendor 11 FREE L MIS.VEN gr
Ì i 2
reports
[report]
*(M)MPW[mpw]
Field Name Len Dat Typ J DPM Offset/Local/VAL
report 10 FREE L mpw
rep.check 1 YN L VAL=IF{%MM.PO.report.security(MM.PO.report,1) "Y";"N"}
rep.compile.status 10 CHOICE L *(M)MPW[mpw]C|0
rep.inquiry.format 1 CHOICE L *(M)MPW[mpw]C|7
rep.major.sort 15 FREE L MM.FIELDS *(M)MPW[mpw]C|11
rep.minor.sort 15 FREE L MM.FIELDS *(M)MPW[mpw]C|12
rep.new.page 5 CHOICE L *(M)MPW[mpw]C|14
rep.num.records 6 PINT R *(M)MPW[mpw]C|13
rep.report.format 1 CHOICE L *(M)MPW[mpw]C|6
rep.sort.level 7 CHOICE L *(M)MPW[mpw]C|9
rep.start.date 8 DATE L *(M)MPW[mpw]C|1
rep.start.time 5 TIME L *(M)MPW[mpw]C|2
rep.stop.date 8 DATE L *(M)MPW[mpw]C|3
rep.stop.time 5 TIME L *(M)MPW[mpw]C|4
rep.subtotal 5 CHOICE L *(M)MPW[mpw]C|15
rep.title 50 FREE L *(M)MPW[mpw]C|5
Ì € i 2
compile.users
[report, rep.user]
*(M)MPW[mpw]C["U",gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rep.user 10 FREE L MIS.USER gu
Ì € i 2
selections
[report, rep.sel.queue]
*(M)MPW[mpw]C["S",mpwSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rep.sel.queue 2 PINT R mpwSQ
rep.select.field 15 FREE L MM.FIELDS *(M)MPW[mpw]C["S",mpwSQ]|0
rep.select.from 30 FREE L *(M)MPW[mpw]C["S",mpwSQ]|1
rep.select.from.bdate 10 DATE10 L *(M)MPW[mpw]C["S",mpwSQ]|3
rep.select.from.date 8 DATE L *(M)MPW[mpw]C["S",mpwSQ]|3
rep.select.to 30 FREE L *(M)MPW[mpw]C["S",mpwSQ]|2
rep.select.to.bdate 10 DATE10 L *(M)MPW[mpw]C["S",mpwSQ]|4
rep.select.to.date 8 DATE L *(M)MPW[mpw]C["S",mpwSQ]|4
Ì € i 2
send.users
[report, rep.send.user]
*(M)MPW[mpw]C["V",gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rep.send.user 10 FREE L MIS.USER gu
rep.send.mark 1 FREE L *(M)MPW[mpw]C["V",gu]|0
rep.send.tsk.num 10 FREE L *(M)MPW[mpw]C["V",gu]|1
Ì € i 2
report.data
[report, rep.major.value,rep.minor.value,rep.po.number]
*(M)MPW[mpw]R[mpWV1,mpWV2,mpR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rep.major.value 15 FREE L mpWV1
rep.minor.value 15 FREE L mpWV2
rep.po.number 10 FREE L mpR
rep.po.urn 10 URN L *(M)MPW[mpw]R[mpWV1,mpWV2,mpR]
Ì € i 2
report.line.data
[report,rep.major.value,rep.minor.value,rep.po.number, rep.line.no]
*(M)MPW[mpw]R[mpWV1,mpWV2,mpR]L[mpL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rep.line.no 4 PINT R mpL
rep.line.filler 1 PINT R *(M)MPW[mpw]R[mpWV1,mpWV2,mpR]L[mpL]
Ì i 2
schedule.vendors
[sch.mnemonic, po.sched.vendor]
*(M)MPSCH[mpsch]V[gr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
po.sched.vendor 11 FREE L MIS.VEN gr
Index Files Subscripts/Physical Base
activity.x [txn.date,urn,txn.type,line.no,txn.urn] = first.order.txn
?(M)MPAX[mpTD,mp,mpC,mpL,mpT]
bad.map.x [purch.facility,number] = urn
?(M)MPRM[mw,mpR]
bad.mapn.x [number] = urn
?(M)MPRN[mpR]
bad.number.x [number]
?(M)MPBR[mpR]
buyer.x [buyer,urn]
?(M)MPB[guB,mp]
catlg.x [fac.type,purch.facility,manuf.catlg,item.urn]
?(M)MPMC[mwFT,mw,gmC,mt]
consign.dept.x [inventory,dept,txn.date,number,urn,line.no,txn.urn]
?(M)MPCD[mi,gd,mpTD,mpR,mp,mpL,mpT]
consign.pack.list.x [inventory,packing.list,txn.date,number,urn,line.no,txn.urn]
?(M)MPCP[mi,mpPL,mpTD,mpR,mp,mpL,mpT]
corp.x [fac.type,purch.facility,MIS.GL.CORP.number,urn,line.no]
?(M)MPCRP[mwFT,mw,gvCN,mp,mpL]
date.num.x [fac.type,purch.facility,order.date,number] = urn
?(M)MPDR[mwFT,mw,mpOD,mpR]
date.x [fac.type,purch.facility,order.date,urn]
?(M)MPD[mwFT,mw,mpOD,mp]
deliv.x [deliv.date,urn]
?(M)MPDD[mpDD,mp]
dept.x [fac.type,purch.facility,dept,urn,line.no]
?(M)MPDP[mwFT,mw,gd,mp,mpL]
id.x [sort.id,urn]
?(M)MPI[mpI,mp]
item.x [item.urn,urn,line.no]
?(M)MPIT[mt,mp,mpL]
itemf.x [fac.type,purch.facility,item.urn,urn,line.no]
?(M)MPIF[mwFT,mw,mt,mp,mpL]
manuf.x [fac.type,purch.facility,manuf,item.urn]
?(M)MPTM[mwFT,mw,gm,mt]
number.x [number,urn]
?(M)MPR[mpR,mp]
numberf.x [fac.type,purch.facility,number,urn]
?(M)MPRF[mwFT,mw,mpR,mp]
pack.list.x [urn,packing.list,line.no,txn.urn]
?(M)MPLX[mp,mpPL,mpL,mpT]
po.index [urn,line.no]
?(M)MPPI[mp,mpL]
stand.x [deliv.date,urn]
?(M)MPST[mpDD,mp]
status.x [status,urn]
?(M)MPS[mpS,mp]
stock.x [urn,stock.urn,line.no]
?(M)MPIS[mp,ms,mpL]
type.x [type,urn]
?(M)MPT[mpTP,mp]
ven.catlg.x [fac.type,purch.facility,vend.catlg,item.urn]
?(M)MPVC[mwFT,mw,gvc,mt]
vendor.x [fac.type,purch.facility,vendor,urn]
?(M)MPV[mwFT,mw,gr,mp]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |