zOs/REXX.O08/SIGNAL

/*rexx*/
say 'signal start'
call p1
say 'signal exit'
exit
p1:
    say 'p1 start'
    call p2
    say 'p1 end'
    return
p2:
    say 'p2 start'
    do x=1 to 3
        eins: say 'eins' x
        signal zwei
        end
    zwei: say 'zwei' x
    say 'p2 return'
return
exit