Update Product Link

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            IDTYPE            'Product Link Type'                  1A
BOTH            IDFRMLOCN         'From Location ID'                   5A
BOTH            IDFRMSUPL         'From Supplier ID'                  10A 
BOTH            IDFRMSUB          'From Supplier SUB'                 10A
BOTH            IDFRMPROD         'From Product ID'                   25A
BOTH            SBTO_LOCN         'TO Location ID'                     5A
BOTH            SBTO_SUPL         'To Supplier ID'                    10A
BOTH            SBTO_SUB          'To Sub-Supplier ID'                10A
BOTH            SBTO_PROD         'To Product ID'                     25A
BOTH            SBDISL            'Discontinued Link {IDTYPE=D}'      10A
           SBHSTMULT         'History Multiplier {IDTYPE=D}'      9 4
BOTH            SBFRMSTAT         'Copy From Status {IDTYPE=C}'        1A
BOTH            SBFREZ            'Copy From Freeze {IDTYPE=C}'       10A
BOTH            SBFRMCLR          'Copy From Clear {IDTYPE=C}'         1 0
BOTH            SBCPYTMULT        'Copy To Multiplier {IDTYPE=C}'      9 4 
BOTH            SBCHGTYPE         'Copy To Type {IDTYPE=C}'            1A 
BOTH            SBDSPALL          'Display All Locations{IDTYPE=K}'    1 0