Update automated add days to supplier. 

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            IDRECTYPE         'Automated Add Days Type'            2A
BOTH            IDSUPL            'Supplier Code'                     10A
BOTH            IDSUPLSUB         'Sub-Supplier'                      10A
BOTH            IDPROD            'Product ID'                        25A
BOTH            IDBEGIN           'Begin Date'                        10A
BOTH            IDEND             'End Date'                          10A
BOTH            SBBEGIN           'Begin Date'                        10A
BOTH            SBEND             'End Date'                          10A
BOTH            SBADDDAYS         'Add Days'                           2 0
BOTH            SBPERTYPE         'Perd Type{W-Week; M-Month)'         1A
BOTH            SBPERNUM          'Number of Periods'                  2 0
BOTH            SBREASON          'Reason Code'                       15A