/*FUNCTION RETURNS BIT(1) TRUE IF ARGUMENT CAN BE INTERPRETED AS AN 
        INTEGER NUMBER BY A GET LIST STATEMENT */
    DCL INTEGERK EXTERNAL ENTRY(CHAR(*) VARYING) RETURNS(BIT(1));