Newer
Older
*> Order Entry Input Transactions (forms data)
*> OEIT is Order Entry Input Transaction
*> For each order there is one "header line"
01 oeit.
05 oeit-custnum pic 9(6).
05 oeit-orddate pic 9(8).
05 oeit-ordnum pic 99.
05 oeit-rectype pic x.
05 oeit-lineno pic 99.
05 oeit-ponum pic x(8).
05 oeit-filler pic x(8).
*> For each order there is one to 20 "detail lines" (Products
*> ordered and the quantities requested.
01 oeitl.
05 oeitl-custnum pic 9(6).
05 oeitl-orddate pic 9(8).
05 oeitl-ordnum pic 99.
05 oeitl-rectype pic x.
05 oeitl-lineno pic 99.
05 oeitl-prodnum pic 9(8).
05 oeitl-qty pic 9(8).
*> The program recognizes the record types based on the
*> contents of oeit-rectype. "H" is a header, "L" is a
01 ordmast.
05 oeit-custnum pic 9(6).
05 oeit-orddate pic 9(8).
05 oeit-ordnum pic 99.
05 oeit-ponum pic x(8).
01 ordline.
05 oeitl-lineno pic 99.
05 oeitl-prodnum pic 9(8).
05 oeitl-qty pic 9(8).