/*T: 753 Routing Shipment Header Header Enhanced Mapping File  - Physical File
     Z* CRTPF
     H*
     M*=========================================================================
     M* Maintenance   :
     M*=========================================================================
     A*=========================================================================
     A          R EDRTSR                    TEXT('EDRTSR')
     A*-------------------------------------------------------------------------
     A            RTSCTL     00007S00B      TEXT('SHIPPING CONTROL #')
     A            RTSCMP     00003S00B      TEXT('Company No.')
     A            RTSCUST    00007A  B      TEXT('Customer No.')
     A            RTSSHTO    00007A  B      TEXT('SHIP TO NUMBER')
     A            RTSFNAM    00030A  B      TEXT('Ship From Name')
     A            RTSFAD1    00030A  B      TEXT('Ship From Addr1')
     A            RTSFAD2    00030A  B      TEXT('Ship From Addr2')
     A            RTSFAD3    00030A  B      TEXT('Ship From Addr2')
     A            RTSFCTY    00017A  B      TEXT('Ship From City')
     A            RTSFST     00002A  B      TEXT('Ship From State')
     A            RTSFZP     00015A  B      TEXT('Ship From Zip')
     A            RTSSDAT    00008S00B      TEXT('SHIP DATE')
     A            RTSCDAT    00008S00B      TEXT('CREATION DATE')
     A            RTSSTIM    00006S00B      TEXT('SHIP TIME')
     A            RTSVIA     00004A  B      TEXT('Ship VIA Code')
     A            RTSSCAC    00035A  B      TEXT('EDI Ship Via /Carrier Desc')
     A            RTSWGHT    00011P04B      TEXT('Net Order Weight')
     A            RTSPCKS    00007P00B      TEXT('Total Packages')
     A            RTSGWGH    00011P04B      TEXT('Gross Weight')
     A            RTSSHTE    00017A  B      TEXT('EDI SHIP TO')
     A            RTSNETW    00002A  B      TEXT('EDI Network ID')
     A            RTSVND     00030A  B      TEXT('EDI Supplier Number')
     A            XCCONTC    00030A  B      TEXT('CONTACT PERSON')
     A            XCCMQ1     00002A  B      TEXT('COMMUNICATION QUAL.1')
     A            XCCMN1     00050A  B      TEXT('COMMUNICATION 1')
     A            XCCMQ2     00002A  B      TEXT('COMMUNICATION QUAL.2')
     A            XCCMN2     00050A  B      TEXT('COMMUNICATION 3')
     A            XCCMQ3     00002A  B      TEXT('COMMUNICATION QUAL.3')
     A            XCCMN3     00050A  B      TEXT('COMMUNICATION 3')
     A            RTS1101    00050A  B      TEXT('RRC CONTROL #')
     A            XCPRID     00015A  B      TEXT('PARTNER INTERNAL ID')
     A            RTSPRID    00015A  B      TEXT('Trading Partner Id')
     A            RTSPRQL    00025A  B      TEXT('Trading Partner QL')
     A            RTSEDOC    00010A  B      TEXT('Mailbox #/Message Log#')
     A            RTSEDDT    00008S00B      TEXT('Transmission Date')
     A            RTSEDTM    00006S00B      TEXT('Transmission Time')
     A            RTSEDPT    00001A  B      TEXT('Test/Production')
     A            RTSEDIC    00010A  B      TEXT('Interchange Control#')
     A            RTSEDGC    00010A  B      TEXT('Group Control#')
     A            RTSEDTC    00010A  B      TEXT('Transaction Control#')
     A            RTSEDST    00010A  B      TEXT('Transaction Set 830/DELFOR e+
     A                                            tc.')
     A            RTSEDFT    00010A  B      TEXT('Translation Format')
     A            RTSAFS     00010A  B      TEXT('Application File Set/AFS/UFD')
     A            RTSGRP     00010A  B      TEXT('Transaction Set Group IN/SH/+
     A                                            PO..')
     A            RTSEDPF    00001A  B      TEXT('Processed Flag')
     A            RTSCCTD    00008S00B      TEXT('Creation Date')
     A            RTSCCTT    00006S00B      TEXT('Creation Time')
     A            RTSCCTU    00010A  B      TEXT('Creation User')
     A            RTSCCTP    00010A  B      TEXT('Creation Pgm')
     A            RTSLCGD    00008S00B      TEXT('Change Date')
     A            RTSLCGT    00006S00B      TEXT('Change Time')
     A            RTSLCGU    00010A  B      TEXT('Change User')
     A            RTSLCGP    00010A  B      TEXT('Change Pgm')
     A*=========================================================================