PERPROD

Get Last Completed Period for Product 

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     IDPROD        'ID Product'                    25A              
BOTH     RVFORCYR      'Forecast current year'          5 0
BOTH     RVFORCPER     'Forecast current period'        3 0
BOTH     RVFORCINT     'Forecast Interval'              3 0

Comments