VORC - Variable Order Cycle

APIs For This Group

ADDVORC - Add VOC Profile

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    BUYR           'Buy group ID'                5A
BOTH    LOCN           'Location ID'                 5A
BOTH    SUPL           'Supplier ID'                10A
BOTH    SUPLSUB        'Sub supplier ID'            10A
BOTH    SBRECTYPE      'Record Type'                 1A
BOTH    SBORCYC01      'Order cycle days 01'         3 0
BOTH    SBORCYC02      'Order cycle days 02'         3 0
BOTH    SBORCYC03      'Order cycle days 03'         3 0
BOTH    SBORCYC04      'Order cycle days 04'         3 0
BOTH    SBORCYC05      'Order cycle days 05'         3 0
BOTH    SBORCYC06      'Order cycle days 06'         3 0
BOTH    SBORCYC07      'Order cycle days 07'         3 0
BOTH    SBDOWMAP       'Day of Week map flag'        1 0

DELVORC - Delete VOC Profile

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    BUYR           'Buy group ID'                5A
BOTH    LOCN           'Location ID'                 5A
BOTH    SUPL           'Supplier ID'                10A
BOTH    SUPLSUB        'Sub supplier ID'            10A
BOTH    SBRECTYPE      'Record Type'                 1A

UPDVORC - Update Supplier VOC Profile

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    BUYR           'Buy group ID'                5A
BOTH    LOCN           'Location ID'                 5A
BOTH    SUPL           'Supplier ID'                10A
BOTH    SUPLSUB        'Sub supplier ID'            10A
BOTH    SBRECTYPE      'Record Type'                 1A

ADPVORC - Add Product Weekly Distribution

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         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A
BOTH    IDRECTYPE      'Record Type'                 1A
BOTH    IDPROD         'Product ID'                 25A
BOTH    SBDOWPER1      'Day of Week % 1 = SUN'       5 2
BOTH    SBDOWPER2      'Day of Week % 2 = MON'       5 2
BOTH    SBDOWPER3      'Day of Week % 3 = TUE'       5 2
BOTH    SBDOWPER4      'Day of Week % 4 = WED'       5 2
BOTH    SBDOWPER5      'Day of Week % 5 = THR'       5 2
BOTH    SBDOWPER6      'Day of Week % 6 = FRI'       5 2 
BOTH    SBDOWPER7      'Day of Week % 7 = SAT'       5 2
BOTH    SBSSTPER1      'Safety Stock % 1 = SUN'      5 2
BOTH    SBSSTPER2      'Safety Stock % 2 = MON'      5 2
BOTH    SBSSTPER3      'Safety Stock % 3 = TUE'      5 2
BOTH    SBSSTPER4      'Safety Stock % 4 = WED'      5 2
BOTH    SBSSTPER5      'Safety Stock % 5 = THR'      5 2
BOTH    SBSSTPER6      'Safety Stock % 6 = FRI'      5 2
BOTH    SBSSTPER7      'Safety Stock % 7 = SAT'      5 2

DEPVORC - Delete Product Weekly Distribution

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         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A
BOTH    IDRECTYPE      'Record Type'                 1A
BOTH    IDPROD         'Product ID'                 25A

UPPVORC - Update Product Weekly Distribution

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         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A
BOTH    IDRECTYPE      'Record Type'                 1A
BOTH    IDPROD         'Product ID'                 25A
BOTH    SBDOWPER1      'Day of Week % 1 = SUN'       5 2
BOTH    SBDOWPER2      'Day of Week % 2 = MON'       5 2
BOTH    SBDOWPER3      'Day of Week % 3 = TUE'       5 2
BOTH    SBDOWPER4      'Day of Week % 4 = WED'       5 2
BOTH    SBDOWPER5      'Day of Week % 5 = THR'       5 2
BOTH    SBDOWPER6      'Day of Week % 6 = FRI'       5 2 
BOTH    SBDOWPER7      'Day of Week % 7 = SAT'       5 2
BOTH    SBSSTPER1      'Safety Stock % 1 = SUN'      5 2
BOTH    SBSSTPER2      'Safety Stock % 2 = MON'      5 2
BOTH    SBSSTPER3      'Safety Stock % 3 = TUE'      5 2
BOTH    SBSSTPER4      'Safety Stock % 4 = WED'      5 2
BOTH    SBSSTPER5      'Safety Stock % 5 = THR'      5 2
BOTH    SBSSTPER6      'Safety Stock % 6 = FRI'      5 2
BOTH    SBSSTPER7      'Safety Stock % 7 = SAT'      5 2

UPCVORC - Update Company Weekly Distribution Values (CP-CS-CU)

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    IDRECTYPE      'Record Type'                 2A 
BOTH    SBCHGMADE      'Change Flag'                 1 0
BOTH    SBEXCLUDE      'Exclude this week'           1 0
BOTH    SB_VAL_SUN     'Value for Sunday'           11 2
BOTH    SB_VAL_MON     'Value for Monday'           11 2
BOTH    SB_VAL_TUE     'Value for Tuesday'          11 2
BOTH    SB_VAL_WED     'Value for Wednesday'        11 2
BOTH    SB_VAL_THU     'Value for Thursday'         11 2
BOTH    SB_VAL_FRI     'Value for Friday'           11 2
BOTH    SB_VAL_SAT     'Value for Saturday'         11 2

UPLVORC - Update Location Weekly Distribution Values (LP-LS-LU)

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         'Location ID'                 5A 
BOTH    IDRECTYPE      'Record Type'                 2A
BOTH    SBCHGMADE      'Change Flag'                 1 0
BOTH    SBEXCLUDE      'Exclude this week'           1 0
BOTH    SB_VAL_SUN     'Value for Sunday'           11 2
BOTH    SB_VAL_MON     'Value for Monday'           11 2
BOTH    SB_VAL_TUE     'Value for Tuesday'          11 2
BOTH    SB_VAL_WED     'Value for Wednesday'        11 2
BOTH    SB_VAL_THU     'Value for Thursday'         11 2
BOTH    SB_VAL_FRI     'Value for Friday'           11 2
BOTH    SB_VAL_SAT     'Value for Saturday'         11 2

UPSVORC - Update Supplier Weekly Distribution Values (SW)

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         'Buyer ID'                    5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub-Supplier ID'            10A 
BOTH    IDRECTYPE      'Record Type'                 2A 
BOTH    SBWEEKDATE     'Weekly date'                10A
BOTH    SB_VAL_SUN     'Value for Sunday'           11 2
BOTH    SB_VAL_MON     'Value for Monday'           11 2
BOTH    SB_VAL_TUE     'Value for Tuesday'          11 2
BOTH    SB_VAL_WED     'Value for Wednesday'        11 2
BOTH    SB_VAL_THU     'Value for Thursday'         11 2
BOTH    SB_VAL_FRI     'Value for Friday'           11 2
BOTH    SB_VAL_SAT     'Value for Saturday'         11 2

UPRVORC - Update Product Weekly Distribution Values (PW)

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         'Buyer ID'                    5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub-Supplier ID'            10A
BOTH    IDPROD         'Product ID'                 25A 
BOTH    IDRECTYPE      'Record Type'                 2A
BOTH    SBWEEKDATE     'Weekly date'                10A
BOTH    SB_VAL_SUN     'Value for Sunday'           11 2
BOTH    SB_VAL_MON     'Value for Monday'           11 2
BOTH    SB_VAL_TUE     'Value for Tuesday'          11 2
BOTH    SB_VAL_WED     'Value for Wednesday'        11 2
BOTH    SB_VAL_THU     'Value for Thursday'         11 2
BOTH    SB_VAL_FRI     'Value for Friday'           11 2
BOTH    SB_VAL_SAT     'Value for Saturday'         11 2

UWSVORC - Update Supplier Weekly Distribution Values (SW-Becoming S1-S5)

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         'Buyer ID'                    5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub-Supplier ID'            10A 
BOTH    SB_VAL_SUN     'Value for Sunday'            5 2
BOTH    SB_VAL_MON     'Value for Monday'            5 2
BOTH    SB_VAL_TUE     'Value for Tuesday'           5 2
BOTH    SB_VAL_WED     'Value for Wednesday'         5 2
BOTH    SB_VAL_THU     'Value for Thursday'          5 2
BOTH    SB_VAL_FRI     'Value for Friday'            5 2
BOTH    SB_VAL_SAT     'Value for Saturday'          5 2

UWPVORC - Update Product Weekly Distribution Values (PW-Becoming P1-P5)

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         'Buyer ID'                    5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub-Supplier ID'            10A 
BOTH    IDPROD         'Product ID'                 25A
BOTH    SB_VAL_SUN     'Value for Sunday'            5 2
BOTH    SB_VAL_MON     'Value for Monday'            5 2
BOTH    SB_VAL_TUE     'Value for Tuesday'           5 2
BOTH    SB_VAL_WED     'Value for Wednesday'         5 2
BOTH    SB_VAL_THU     'Value for Thursday'          5 2
BOTH    SB_VAL_FRI     'Value for Friday'            5 2
BOTH    SB_VAL_SAT     'Value for Saturday'          5 2

ANSVORC - Analyze Supplier Weekly Distribution

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         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A
BOTH    IDRECTYPE      'SUPLVOC - Record Type'       1A
BOTH    SBBEGIN        'Starting Week '             10A 
BOTH    SBEND          'Ending  Week '              10A
BOTH    RV_VAL_SUN     'Analysis % Sunday '          5 2
BOTH    RV_VAL_MON     'Analysis % Monday '          5 2
BOTH    RV_VAL_TUE     'Analysis % Tuesday   '       5 2
BOTH    RV_VAL_WED     'Analysis % Wednesday   '     5 2
BOTH    RV_VAL_THR     'Analysis % Thursday '        5 2
BOTH    RV_VAL_FRI     'Analysis % Friday  '         5 2
BOTH    RV_VAL_SAT     'Analysis % Saturday'         5 2
BOTH    RV_WEEKUSE     'Weeks used'                  3 0
BOTH    RV_WEEKEXC     'Weeks Excluded'              3 0
BOTH    RV_WEEKCHG     'Weeks Changed'               3 0

ANPVORC - Analyze Product Weekly Distribution

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         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A 
BOTH    IDRECTYPE      'SUPLVOC - Record Type'       1A
BOTH    IDPROD         'Product ID  '               25A
BOTH    SBBEGIN        'Starting Week '             10A 
BOTH    SBEND          'Ending Week   '             10A
BOTH    RV_VAL_SUN     'Analysis % Sunday '          5 2
BOTH    RV_VAL_MON     'Analysis % Monday '          5 2
BOTH    RV_VAL_TUE     'Analysis % Tuesday   '       5 2
BOTH    RV_VAL_WED     'Analysis % Wednesday   '     5 2
BOTH    RV_VAL_THR     'Analysis % Thursday '        5 2
BOTH    RV_VAL_FRI     'Analysis % Friday  '         5 2
BOTH    RV_VAL_SAT     'Analysis % Saturday'         5 2
BOTH    RV_WEEKUSE     'Weeks used'                  3 0
BOTH    RV_WEEKEXC     'Weeks Excluded'              3 0
BOTH    RV_WEEKCHG     'Weeks Changed'               3 0

IESVORC - Include / Exclude Supplier Weekly Distribution Date

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         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A 
BOTH    IDRECTYPE      'SUPLVOC Record Type'         1A
BOTH    SBBEGIN        'Starting Week '             10A 
BOTH    SBEXCINC       'Exclude / Include Week '     1A 

IEPVORC - Include / Exclude Product Weekly Distribution Date

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         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A 
BOTH    IDRECTYPE      'SUPLVOC Record Type'         1A
BOTH    IDPROD         'Product ID  '               25A
BOTH    SBBEGIN        'Starting Week '             10A 
BOTH    SBEXCINC       'Exclude / Include Week'      1A

RMVVORC - Remove all Product Records 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    IDBUYR         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A

RMSVORC - Remove all Safety Stock records from 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    IDBUYR         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A