/*T: EDI - Outbound 940 Warehouse Shipping Order - Note - Physical File
     H*
     M*=========================================================================
     M* Maintenance   :
     M*=========================================================================
     A*=========================================================================
     A          R EDOWOCR                   TEXT('EDOWOCR')
     A*-------------------------------------------------------------------------
     A            OCDEL      00001A         TEXT('Status Code')
     A            OCCMP      00003S         TEXT('COMPANY #')
     A            OCEDOC     00010A         TEXT('ELECTRONIC DOC #')
     A            OCCUST     00007A         TEXT('CUSTOMER #')
     A            OCPTN      00022A         TEXT('W0502 - Pick Ticket Nbr')
     A            OCSEQ      00007S         TEXT('Seq Number')
     A            OCNTE1     00003A         TEXT('NTE01 - Ref Code')
     A            OCNTE2     00080A         TEXT('NTE01 - Description')
     A            OCPRID     00015A         TEXT('Trading Partner Id')
     A            OCPRQL     00025A         TEXT('Trading Partner QL')
     A            OCAFS      00010A         TEXT('Application File Set/AFS/UFD')
     A            OCEDPF     00001A         TEXT('Processed Flag')
     A            OCCCTD     00008S         TEXT('CREATION DATE')
     A            OCCCTT     00006S         TEXT('CREATION TIME')
     A            OCCCTU     00010A         TEXT('CREATION USER')
     A            OCCCTP     00010A         TEXT('CREATION PGM')
     A            OCLCGD     00008S         TEXT('CHANGE DATE')
     A            OCLCGT     00006S         TEXT('CHANGE TIME')
     A            OCLCGU     00010A         TEXT('CHANGE USER')
     A            OCLCGP     00010A         TEXT('CHANGE PGM')
     A*=========================================================================