This will add note or reminder.    

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              'Buyer ID'                       5A
BOTH            LOCN              'Location ID'                    5A
BOTH            TYPVAL            'Type of value        '          1A
BOTH            SUPL              'Supplier ID          '         10A
BOTH            SUPLSUB           'Sub supplier ID      '         10A
BOTH            PROD              'Product ID           '         25A
BOTH            DEAL              'Deal ID              '          7A
BOTH            SEASONL           'Seasonal profile ID  '         10A
BOTH            TYPNOTE           'Type of note N,R     '          1A
BOTH            NOTE              'Note                 '        100A
BOTH            DATE              'Note expires/Reminder'         10A
BOTH            LVLNOTE           'Level Note: 1-Main; 0-Reg'      1A