zOs/REXX/EX2

RESULT = 0
CALL EX1
SAY RC RESULT
/* REXX
PARSE UPPER ARG SSID TYPE FUN
IF WORDPOS(SSID, 'DBTF') < 1 THEN DO
    CALL CHECKRTN SSID TYPE FUN
ELSE
    CALL CHECKRT0 SSID TYPE FUN    */
IF DATATYPE(RESULT, 'N') THEN
    EXIT RESULT
ELSE
    EXIT 0
EXIT