DIVPROR

This will automatically divide up a suppliers products into different temporary split codes.

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        'ID Buyer'                       5A
BOTH     IDLOCN        'ID Location'                    5A
BOTH     IDSUPL        'ID Supplier'                   10A
BOTH     IDSUPLSUB     'ID Supplier sub code'          10A
BOTH     IDSOQSEQN     'ID Sequence Number'             5 0
BOTH     SBDIVTYPE     'Divide  type'                   1 0
BOTH     SBDIVVAL      'Divide value'                   7 0

Comments