Add automated add days to supplier.  
   K3SOBJ         'K3S Object Library'         10A
BOTH    COMP           'Company'                     1A
BOTH    COMPCOD        'Company Code                3A
BOTH    USER           'User calling the program'   10
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    SBRECTYPE      'Automated Add Days Type'     2A
BOTH    SBSUPL         'Supplier Code'              10A 
BOTH    SBSUPLSUB      'Sub-Supplier'               10A
BOTH    SBPROD         'Product ID'                 25A
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