This will add the supplier

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    BUYR           'Buy group ID'                5A
BOTH    LOCN           'Location ID'                 5A
BOTH    SUPL           'Supplier ID'                10A
BOTH    SUPLSUB        'Sub supplier ID'            10A
BOTH    REGN           'Region ID'                   5A
BOTH    ALTSRCE        'Alt source supplier'         1  0
BOTH    EXCLEAD        'Exclude LT forecasting'      1  0
BOTH    CMBTYPE        'Comb. suppliers prod. seq.'  1  0
BOTH    NAME           'Name'                       40A
BOTH    DISPSEQ        'Display sequence'           20A
BOTH    GROUP1         'Supplier group1'            10A
BOTH    GROUP2         'Supplier group2'            10A
BOTH    GROUP3         'Supplier group3'            10A
BOTH    GROUP4         'Supplier group4'            10A
BOTH    GROUP5         'Supplier group5'            10A
BOTH    FXCFRQ         'Fixed cycle frequency'       1  0
BOTH    FXCDAY         'Fixed cycle day of week'     1  0
BOTH    FXCNXT         'Fixed cycle next'            10A    
BOTH    HEADCST        'Order header cost'           7  2
BOTH    LINECST        'Order line cost'             5  2
BOTH    LEADTMQ        'Lead time quoted'            3  0
BOTH    LEADTMO        'Lead time orders'            3  0
BOTH    LEADTMV        'Lead time variance %'        3  1
BOTH    ORCYCLE        'Order cycle in days'         3  0
BOTH    SERVICE        'Service level target %'      3  1
BOTH    MAX_DAYS       'Maximum frw buy days'        3  0
BOTH    ADDDAY         'Add days order point'        3  0
BOTH    PRECISE        'Precise order flag'          1  0
BOTH    AUTOPO         'Auto PO flag'                1  0
BOTH    REQSPLT        'Required split flag'         1  0
BOTH    SPLTYPE        'Order split type'            3A
BOTH    POTYPE         'PO type default'             1A
BOTH    BRKOTHR        'Bracket build other'         8A
BOTH    CONVPKP        'Convenience pack %'          3  1
BOTH    DSPTOT1        'Order total unit 1st'        1  0
BOTH    DSPTOT2        'Order total unit 2nd'        1  0
BOTH    PROCALT        'Process alt srce flag'       1  0
BOTH    REBATE         'Rebate factor %'             3  1
BOTH    CASHDSC        'Cash discount %'             3  1
BOTH    PREFSEQ        'Preference sequence'         3  0  
BOTH    SPLUNIT        'Order split unit'            1  0
BOTH    SPLVALU        'Order split value'           7  0