/*T: 753 Routing Order Level Enhanced Mapping File      - Physical File
     Z* CRTPF
     H*
     M*=========================================================================
     M* Maintenance   :
     M*=========================================================================
     A*=========================================================================
     A          R EDRTOR                    TEXT('EDRTOR')
     A*-------------------------------------------------------------------------
     A            RTOCTL     00007S00B      TEXT('SHIPPING CONTROL #')
     A            RTOCMP     00003S00B      TEXT('Company No.')
     A            RTOORD     00009S00B      TEXT('Order Number')
     A            RTOBOCD    00003S00B      TEXT('Backorder Code')
     A            RTOCUST    00007A  B      TEXT('Customer No.')
     A            RTOSHIP    00007A  B      TEXT('Ship-To No.')
     A            RTOCPO     00020A  B      TEXT('Customer P.O.')
     A            RTOTCRT    00007P00B      TEXT('TOTAL CARTONS')
     A            RTOWGHT    00011P04B      TEXT('NET ORDER WEIGHT')
     A            RTOGWGH    00011P04B      TEXT('GROSS WEIGHT')
     A            RTOPCKS    00007P00B      TEXT('TOTAL PACKAGES')
     A            RTOQTY     00009P02B      TEXT('TOTAL QTY')
     A            RTOCUBE    00009P04B      TEXT('TOTAL CUBES')
     A            RTOSDAT    00008S00B      TEXT('SHIP DATE')
     A            RTOCDAT    00008S00B      TEXT('CREATION DATE')
     A            RTOSHPE    00017A  B      TEXT('SHIP TO STORE')
     A            RTODSTE    00017A  B      TEXT('DISTRIBUTION CENTER')
     A            RTOSHTE    00017A  B      TEXT('EDI SHIP TO LOCATION')
     A            RTOCLOE    00017A  B      TEXT('CONSOLIDATOR')
     A            RTO1101    00050A  B      TEXT('RRC CONTROL #')
     A            RTOAORB    00001A  B      TEXT('RECORD 1 OR 2')
     A            RTOMAPN1   00007A  B      TEXT('MAPPING LOCATION')
     A            RTOOIDC    00003A  B      TEXT('OID CONSTANT')
     A            RTOOIDQ    00007P00B      TEXT('OID QUANTITY')
     A            RTOPRID    00015A  B      TEXT('Trading Partner Id')
     A            RTOPRQL    00025A  B      TEXT('Trading Partner QL')
     A            RTOEDOC    00010A  B      TEXT('Mailbox #/Message Log#')
     A            RTOAFS     00010A  B      TEXT('Application File Set/AFS/UFD')
     A            RTOEDPF    00001A  B      TEXT('Processed Flag')
     A*=========================================================================