APRORDR

Approve the order.  

BOTH    K3SOBJ         'K3S Object Library'         10A
BOTH    COMP           'Company'                     1A
BOTH    COMPCOD        'Company Code'                3A
BOTH    USER           'User calling the program'   10
BOTH    ERRORS         'Error indicator'             1A
BOTH    ERRMSG         'Error message'             100A
BOTH    ERRFIELD       'Field in error'             20A
BOTH    IDBUYR         'ID buy group'                5A
BOTH    IDLOCN         'ID location'                 5A
BOTH    IDSUPL         'ID supplier'                10A
BOTH    IDSUPLSUB      'ID sub supplier'            10A
BOTH    IDSOQSEQN      'ID sugg order sequence #'    5  0
BOTH    IDPON          'ID PO number'               10A
BOTH    IDARVDAT       'ID Arrival date'            10A
BOTH    IDPOTYPE       'ID PO Type'                  1A
BOTH    POMSG1         'PO message 1'               25A
BOTH    POMSG2         'PO message 2'               25A
BOTH    POMSG3         'PO message 3'               25A
BOTH    POMSG4         'PO message 4'               25A
BOTH    POMSG5         'PO message 5'               25A
BOTH    POMSG6         'PO message 6'               25A
BOTH    POMSG7         'PO message 7'               25A
BOTH    POBLANK        'PO Blank field'             10A
BOTH    LOCNTO         'Location to'                 5A
BOTH    LOCNFRM        'Location from'               5A
BOTH    HLDBEG         'Hold out begin date'        10A
BOTH    HLDEND         'Hold out end date'          10A
BOTH    HLDREAS        'Hold out reason'            40A
BOTH    SKIPLT         'Skip PO from LT forecast'    1A
BOTH    USERA01        'User defined alpha 1'        1A
BOTH    USERA02        'User defined alpha 2'        1A
BOTH    USERA03        'User defined alpha 3'        1A
BOTH    USERA04        'User defined alpha 4'        1A
BOTH    USERA05        'User defined alpha 5'        5A
BOTH    USERA06        'User defined alpha 6'        5A
BOTH    USERA07        'User defined alpha 7'       10A
BOTH    USERA08        'User defined alpha 8'       10A
BOTH    USERA09        'User defined alpha 9'      100A
BOTH    USERA10        'User defined alpha 10'     100A
Comments