-- Remember to set SYSTEM Nameing to *SYS (not *SQL)
SET SCHEMA = MARIUSLR1;

CREATE OR REPLACE FUNCTION GetItemUDF (
            in_ItemNbr VARCHAR(2),
            in_inItemLoc VARCHAR(5)
        )
    RETURNS VARCHAR(3)
    LANGUAGE rpgle
    EXTERNAL NAME 'MARIUSLR1/ITEMCHECK'
    PARAMETER STYLE SQL
    NOT FENCED
    PROGRAM TYPE main;

--success case
VALUES
    (GETITEMUDF('11', 'BIN11'));

--failure case 
VALUES
    (GETITEMUDF('12', 'BIN12'));