/*T: 850 Inb Header Address file                        - Physical File

     H* Generated date: 04/26/15
     H* Generated time: 13:08:15
     H*
     M*=========================================================================
     M* Maintenance   :
     M*=========================================================================
     A*=========================================================================
     A          R EDPOHAR                   TEXT('INB 850 PO HEADER ADDR')
     A*-------------------------------------------------------------------------
     A            EADEL      00001A         TEXT('STATUS CODE')
     A            EACMP      00003S         TEXT('CO #')
     A            EACUST     00007A         TEXT('CUSTOMER NO.')
     A            EAPONO     00022A         TEXT('PO# -BEG03/324')
     A            EATSP      00002A         TEXT('PURPOSE OF TRANS.-   EG01/35+
     A                                            3')
     A            EATYPE     00002A         TEXT('PO Type- BEG02/092')
     A            EAADRO     00002A         TEXT('Shipto Addr Override/DS')
     A            EANWST     00002A         TEXT('NEW STORE FLAG - NS')
     A            EAENCO     00003A         TEXT('N1 ENTITY ID CODE -N101')
     A            EANAME     00060A         TEXT('N1 NAME - N102')
     A            EAN1IDQ    00002A         TEXT('N1 ID CODE QUAL -N103')
     A            EAN1IDC    00020A         TEXT('N1 ID CODE  -N104')
     A            EANM1      00060A         TEXT('N2 NAME LINE 1 -N201')
     A            EAAD1      00055A         TEXT('N3 ADDR LINE 1 -N301')
     A            EAAD2      00055A         TEXT('N3 ADDR LINE 2 -N302')
     A            EACITY     00019A         TEXT('N4 CITY -N401')
     A            EASTAT     00002A         TEXT('N4 STATE -N402')
     A            EAPSTL     00015A         TEXT('N4 POSTAL CD -N403')
     A            EACTRY     00003A         TEXT('N4 COUNTRY CD -N404')
     A            EARFQ1     00003A         TEXT('REF ID 1 QUAL -REF01')
     A            EARFI1     00030A         TEXT('REF ID 1 -REF02')
     A            EARFDS     00080A         TEXT('REF DESC  -REF03')
     A            EARFQ2     00003A         TEXT('REF ID 2 QUAL -REF04')
     A            EARFI2     00030A         TEXT('REF ID 2 -REF05')
     A            EACNFN     00002A         TEXT('PER CONTACT FUNCT CD -PER01')
     A            EANAMP     00060A         TEXT('PER NAME -PER02')
     A            EACMNQ     00002A         TEXT('PER COMM# QUALF -PER03')
     A            EACMN      00080A         TEXT('PER COMM#  -PER04')
     A            EAGLNT     00017A         TEXT('Global  Location Nbr')
     A            EAVND2     00030A         TEXT('Buyer Vendor Number2')
     A            EAEDOC     00010A         TEXT('Electronic Doc #')
     A            EAPRID     00015A         TEXT('Trading Partner ID')
     A            EAPRQL     00025A         TEXT('Trading Partner QL')
     A            EAEDPF     00001A         TEXT('Processed-Y/N, Error-E')
     A*=========================================================================