PODORDR

Next PO Number, other order defaults.  

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    RVPON          'ID PO number'               10A
BOTH    RVARVDAT       'ID Arrival date'            10A
BOTH    RVPOTYPE       'ID PO Type'                  1A
BOTH    RVUSERA01      'User defined alpha 1'        1A
BOTH    RVUSERA02      'User defined alpha 2'        1A
BOTH    RVUSERA03      'User defined alpha 3'        1A
BOTH    RVUSERA04      'User defined alpha 4'        1A
BOTH    RVUSERA05      'User defined alpha 5'        5A
BOTH    RVUSERA06      'User defined alpha 6'        5A
BOTH    RVUSERA07      'User defined alpha 7'       10A
BOTH    RVUSERA08      'User defined alpha 8'       10A
BOTH    RVUSERA09      'User defined alpha 9'      100A
BOTH    RVUSERA10      'User defined alpha 10'     100A
Comments