CALORCY

This will calculate the order cycle information for a supplier

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            'ID location'                    5A
BOTH            IDBUYR            'ID buyer'                       5A
BOTH            IDSUPL            'ID supplier'                   10A
BOTH            IDSUPLSUB         'ID sub supplier'               10A
BOTH            IDORCYCLE         'ID Order cycle input'           3  0
BOTH            RVORDPERYR        'Order per year'                 3  0
BOTH            RVTOTBILL         'Total Bill'                     9  0
BOTH            RVHEADER          'Header cost'                    9  0
BOTH            RVLINE            'Line cost'                      9  0
BOTH            RVCYCLE           'Cycle stock cost'               9  0
BOTH            RVSAFETY          'Safety stock cost'              9  0
BOTH            RVOVERHD          'Overhead cost'                  9  0
BOTH            RVTOTCST          'Total cost'                     9  0
BOTH            RVDSCPCT          'Discount percent met'           9  0
BOTH            RVDSCDLR          'Discount dollars met'           9  0
BOTH            RVDSCBKT          'Discount bracket met'           1  0
BOTH            RVANLNET          'Annual net cost'                9  0
BOTH            RVTOTDLR          'Total dollars'                  9  0
BOTH            RVTOTWGT          'Total weight'                   9  0
BOTH            RVTOTVOL          'Total volume'                   9  0
BOTH            RVTOTPUR          'Total purchase increments'      9  0
BOTH            RVTOTOTH          'Total other'                    9  0
BOTH            RVTOTUN7          'Total Unit 7'                   9  0
BOTH            RVTOTUN8          'Total Unit 8'                   9  0
BOTH            RVTOTUN9          'Total Unit 9'                   9  0
BOTH            RVACTIVE          'Total # of products'            5  0
BOTH            RVUSED            'Total products used'            5  0
BOTH            RVCURBKTMT        'Current bracket level met'      1  0

Comments