DFTORDR

Get the PO 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    NXTPON         'PO number'                  10A
BOTH    ARRIVEDAT      'Arrival date'               10A
BOTH    POTYPE         'PO Type'                     1A
BOTH    LOCNTO         'Location to'                 5A
BOTH    LOCNFRM        'Location from'               5A
BOTH    PRVMSG1        'Previous PO message 1'      25A
BOTH    PRVMSG2        'Previous PO message 2'      25A
BOTH    PRVMSG3        'Previous PO message 3'      25A
BOTH    PRVMSG4        'Previous PO message 4'      25A
BOTH    PRVMSG5        'Previous PO message 5'      25A
BOTH    PRVMSG6        'Previous PO message 6'      25A
BOTH    PRVMSG7        'Previous PO message 7'      25A
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