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 IDLOCN 'From Location ID' 5A
BOTH IDSUPL 'Supplier ID' 10A
BOTH IDSUPLSUB 'Sub supplier ID' 10A
BOTH IDPROD 'Product ID' 25A
BOTH IDDATE 'Sales Date ' 10A
BOTH SBWEEK01 'Week 1 Sales ' 7 0
BOTH SBWEEK02 'Week 2 Sales ' 7 0
BOTH SBWEEK03 'Week 3 Sales ' 7 0
BOTH SBWEEK04 'Week 4 Sales ' 7 0
