/*T: 850 Header file for POs received                   - Physical File

     H* Generated date: 04/26/15
     H* Generated time: 13:04:55
     H*
     M*=========================================================================
     M* Maintenance   :
     M*=========================================================================
     A*=========================================================================
     A          R EDPOHWR                   TEXT('EDPOHWR')
     A*-------------------------------------------------------------------------
     A            EHDEL      00001A         TEXT('Status Code')
     A            EHCMP      00003S         TEXT('Company No.')
     A            EHCUST     00009A         TEXT('Customer No.')
     A            EHIDNO     00015A         TEXT('I.D. No- ISA06/705')
     A            EHIDQ      00002A         TEXT('I.D. Qualifier ISA07/704')
     A            EHTDAT     00006S         TEXT('Tran.Date(YMD)- GS04/29')
     A            EHTTIM     00004S         TEXT('Tran.Time(HM)- GS05/30')
     A            EHTSP      00002A         TEXT('PURPOSE OF TRANS.- BEG01/353')
     A            EHTYPE     00002A         TEXT('PO Type- BEG02/092')
     A            EHPONO     00022A         TEXT('P.O. Number- BEG03/324')
     A            EHRLNO     00009A         TEXT('Release Number- BEG04')
     A            EHPODT     00006S         TEXT('PO Date- BEG05')
     A            EHCNTN     00030A         TEXT('Contract No/ BEG06')
     A            EHSINS     00060A         TEXT('Special Instructions- NTE02/+
     A                                            3')
     A            EHSDAT     00006S         TEXT('Req.Ship Date YMD SHH03/373S+
     A                                            C')
     A            EHSDT8     00008S         TEXT('Req.Ship Date CYMD SHH03/373+
     A                                            SC')
     A            EHCDAT     00006S         TEXT('Cancel Date YMD SHH03/373SC')
     A            EHCDT8     00008S         TEXT('Cancel Date CYMD SHH03/373SC')
     A            EHDDAT     00006S         TEXT('Req.Dlvr Date YMD SHH03/373S+
     A                                            C')
     A            EHDDT8     00008S         TEXT('Req.Dlvr Date CYMD SHH03/373+
     A                                            SC')
     A            EHOHNS     00010A         TEXT('OH New Store- SSS03')
     A            EHDIST     00007A         TEXT('Dist Center- N104')
     A            EHSHIP     00007A         TEXT('Ship To Store- N104')
     A            EHDEPT     00009A         TEXT('Dept. No.- REF02/127')
     A            EHPROM     00010A         TEXT('Promo Number- REF02')
     A            EHPOTY     00010A         TEXT('PO TYPE REF02')
     A            EHSUPN     00030A         TEXT('Supplier No/ REF02')
     A            EHCAMY     00030A         TEXT('Catalog Media Year/ REF02')
     A            EHAPPN     00030A         TEXT('Appropriation No/ REF02')
     A            EHCONN     00035A         TEXT('Contact Name/PER02')
     A            EHCOMN     00080A         TEXT('Customer Phone/ PER04')
     A            EHSTCN     00080A         TEXT('Ship To Cust Name/ PER02')
     A            EHDPHN     00080A         TEXT('Phone @ Delivery Point/ PER0+
     A                                            4')
     A            EHIDCD     00017A         TEXT('ID Code/ TD503')
     A            EHSVIA     00002A         TEXT('Trans Method/ TD504')
     A            EHSHPI     00035A         TEXT('Shipping Inst./ TD505')
     A            EHCONN2    00035A         TEXT('Contact Name/Second/PER02')
     A            EHCOMN2    00080A         TEXT('Customer Phone/2nd/PER04')
     A            EHCTRL     00009A         TEXT('EDI Control #')
     A            EHGLNT     00017A         TEXT('Global  Location Nbr')
     A            EHVND2     00030A         TEXT('Buyer Vendor NBR2')
     A            EHDST17    00017A         TEXT('DIST CENTER 17A- N104')
     A            EHPRID     00015A         TEXT('TRADING PARTNER ID')
     A            EHPRQL     00025A         TEXT('Trading Partner QL')
     A            EHEDOC     00010A         TEXT('Mailbox #/Message Log#')
     A            EHEDDT     00008S         TEXT('Transmission Date')
     A            EHEDTM     00006S         TEXT('Transmission Time')
     A            EHEDPT     00001A         TEXT('Test/Production')
     A            EHEDIC     00010A         TEXT('Interchange Control#')
     A            EHEDGC     00010A         TEXT('Group Control#')
     A            EHEDTC     00010A         TEXT('Transaction Control#')
     A            EHEDST     00010A         TEXT('Transaction Set 830/DELFOR e+
     A                                            tc.')
     A            EHEDFT     00010A         TEXT('Translation Format')
     A            EHEDPF     00001A         TEXT('Processed-Y/N, Error-E')
     A            EHCCTD     00008S         TEXT('Creation Date')
     A            EHCCTT     00006S         TEXT('Creation Time')
     A            EHCCTU     00010A         TEXT('Creation User')
     A            EHCCTP     00010A         TEXT('Creation Pgm')
     A            EHLCGD     00008S         TEXT('Change Date')
     A            EHLCGT     00006S         TEXT('Change Time')
     A            EHLCGU     00010A         TEXT('Change User')
     A            EHLCGP     00010A         TEXT('Change Pgm')
     A            EHPOD8     00008S         TEXT('P/O Date CYMD')
     A            EHFOB1     00002A         TEXT('Ship Meth of Payment/FOB01')
     A            EHITD1     00002A         TEXT('Terms Type/ITD01')
     A            EHITD2     00002A         TEXT('Terms Basis Date/ITD02')
     A*=========================================================================