example.spl

#include clib
#define MAX 10

procedure proc1
    parameters
        lp-field        pic x99
    returning
        lr-field        like serial
    
    set lr-field = 1234
    set lp-field = "12-MMM-2019"
    set lp-field = 'string'
    set lp-field = 12-MMM-2019
end-procedure //example procedure

api testAPI
    local field
        lf-field        like serial
    parameters
        lp-field1       like serial
        lp-field2       like serial
    returning
        lr-field        type int
    
    set lf-field = TRUE
    set lf-field = str(num(custom(lp-field2, 1000)))

    do proc1 //simple call
        parameters lp-field1
        returning lp-field2

    select * from deb-master
    detail
        if lf-field1
        endif
    endselect

    if (lf-field1 and lf-field2 or (num(lf-field2) = lf-field3))
    endif
endapi