SeanHoppe.com > Cleo Code Samples > 830 Inbound Report - ESI830DSR

EXTOL DDS - 830 Inbound Report - ESI830DSR

     A*=========================================================================
     A* TRANSACTION: PLANNING SCHEDULE (830) - DETAIL - SHIP/RECEIVE
     A*=========================================================================
     A          R EDI830DSRR                TEXT('830 DETAIL SHIP/RECV')
     A*-------------------------------------------------------------------------
     A            MSGID          3A         TEXT('MESSAGE ID..................')
     A            MSGREF        11S 0       TEXT('MESSAGE REFERENCE NUMBER....')
     A            TPCODE         6A         TEXT('TRADING PARTNER CODE........')
     A            BRANCH         2A         TEXT('BRANCH......................')
     A            CUSTNO         8A         TEXT('CUSTOMER NUMBER.............')
     A            DUNSNO        13A         TEXT('DUNS NUMBER - 13 (N104).....')
     A            CRTUSR        10A         TEXT('CREATE USER.................')
     A            CRTDTE         8S 0       TEXT('CREATE DATE.................')
     A            CRTTME         8S 0       TEXT('CREATE TIME.................')
     A*
     A            BFR11         22A         TEXT('PO NUMBER ..................')
     A            DTLSEQ         6S 0       TEXT('DETAIL SEQUENCE NUMBER......')
     A            SHPSEQ         6S 0       TEXT('SHIP/RCV SEQUENCE # ........')
     A*
     A            SHP01          2A         TEXT('QUANTITY QUALIFIER.... SHP01')
     A            SHP01D        15A         TEXT('QUANTITY QUAL DESP... SHP01D')
     A            SHP02         15S 3       TEXT('QUANTITY ............. SHP02')
     A            SHP03          3A         TEXT('DATE/TIME QUALIFIER .. SHP03')
     A            SHP03D        15A         TEXT('DATE/TIME QUAL DESP.. SHP03D')
     A            SHP04          8S 0       TEXT('DATE ................. SHP04')
     A            SHP06          8S 0       TEXT('DATE ................. SHP06')
     A*




By: on