Add deal

BOTH            K3SOBJ            'K3S Object library'                10A
BOTH            COMP              'Company'                            1A
BOTH            COMPCOD           'Company code'                       3A
BOTH            USER              'User calling the program'          10A
BOTH            ERRORS            'Error indicator'                    1A
BOTH            ERRMSG            'Error message'                    100A
BOTH            ERRFIELD          'Field in error'                    20A
BOTH            IDBUYR            'Buyer ID'                           5A
BOTH            IDLOCN            'Location ID'                        5A
BOTH            IDSUPL            'Supplier ID'                       10A
BOTH            IDSUPLSUB         'Sub-Supplier ID'                   10A
BOTH            IDPROD            'Product ID'                        25A
BOTH            SBDEALREF         'Deal Reference'                    10A
BOTH            SBBEGIN           'Deal 
Beginning Date'               10A
BOTH            SBEND             'Deal End Date'                     10A
BOTH            SBBUYALOW         'Deal Buys Allowed'                  3 0
BOTH            SBBUYR            'Buyer Group'                        5A
BOTH            SBNOTE            'Deal Note'                        100A
BOTH            OPBEGIN           'Customer Deal Begin Date'          10A
BOTH            OPEND             'Customer Deal End Date'            10A
BOTH            OPDATING          'Customer Dating Date '             
BOTH            OPNOTE            'Customer Note'                    100A

BOTH            SBTYPE            'Deal Type'                          2A
BOTH            SBAPPLY           'How to apply'                       1A
BOTH            SBEXCLUDE         'Exclude Flag'                       1 0
BOTH            SBFACTTYP         'Factor Type'                        1A
BOTH            SBFACTVAL         'Factor Value'                       9 4
BOTH            SBUNIT            'Unit for Dollar'                    5 0