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

     H* Generated date: 04/26/15
     H* Generated time: 13:10:05
     H*
     M*=========================================================================
     M* Maintenance   :
     M*=========================================================================
     A*=========================================================================
     A          R EDPOHSR                   TEXT('EDPOHSR')
     A*-------------------------------------------------------------------------
     A            EPDEL      00001A         TEXT('Status Code')
     A            EPPONO     00022A         TEXT('P.O. Number- BEG03/324')
     A            EPSACSQ    00006S         TEXT('File Sequence')
     A            EPTSP      00002A         TEXT('PURPOSE OF TRANS.- BEG01/353')
     A            EPTYPE     00002A         TEXT('PO Type- BEG02/092')
     A            EPAC01     00001A         TEXT('A/C SAC SAC01/248')
     A            EPAC02     00004A         TEXT('SAC CODE /SAC02')
     A            EPAC03     00002A         TEXT('AGENCY QUALIFIER CODE /SAC03')
     A            EPAC04     00010A         TEXT('AGENCY CODE /SAC04')
     A            EPAC05     00015S02       TEXT('DOLLAR AMOUNT /SAC05')
     A            EPAC06     00001A         TEXT('A/C % QUAL /SAC06')
     A            EPAC07     00006P04       TEXT('PERCENT /SAC07')
     A            EPAC08     00011P04       TEXT('Unit Disc. Amt. Rate /SAC08')
     A            EPAC09     00002A         TEXT('UOM /SAC09')
     A            EPAC10     00010S         TEXT('SAC Qty1 /SAC10')
     A            EPAC11     00010S         TEXT('SAC Qty2 /SAC11')
     A            EPAC12     00002A         TEXT('Meth of Handling CD SAC12')
     A            EPAC13     00030A         TEXT('Reference#  /SAC13')
     A            EPAC14     00020A         TEXT('Option# /SAC14')
     A            EPAC15     00080A         TEXT('Description /SAC15')
     A            EPAC16     00003A         TEXT('Language code SAC16')
     A            EPEDOC     00010A         TEXT('Electronic Doc #')
     A            EPPRID     00015A         TEXT('Trading Partner ID')
     A            EPPRQL     00025A         TEXT('Trading Partner QL')
     A            EPEDPF     00001A         TEXT('Processed-Y/N, Error-E')
     A            EPCMP      00003S         TEXT('Company No.')
     A            EPCUST     00007A         TEXT('Customer No.')
     A*=========================================================================