zOs/REXX.O13/X

do i=3 to 5
    do j=i until j+0 >= 4
        say 'j' j 'with i' i
        end
    end
    select current server from sysibm.sysDummy1