Add Supplier to Product Link Hub Transfer 

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            IDSUPL            'Target Supplier Number'            10A
BOTH            IDSUPLSUB         'Target Supplier Sub Number'        10A
BOTH            IDBUYR            'Buyer ID'                           5A
BOTH            IDLOCNF           'From Location ID'                   5A
BOTH            IDLOCNT           'To Location ID'                     5A
BOTH            SBPROD            'Source Supplier Number'            25A
BOTH            SBCPYDEMD         'Copy Demand Flag'                   1 0