zOs/REXX/CHECKRTS

/* REXX  **************************************************************

synopsis: CHECKRTS db fun

    db   = db2 subsystem
    type = TS oder IX

Aufruf von reoCheck, Docu siehe dort

docu: http://chw20025641/host/db2wiki/pmwiki.php?n=Main.RtsReo

history ***************************************************************
09.09.2011   v5.7      alter code eliminiert
*******************************************************************/
parse upper arg ssid type
    result = 0
    call reoCheck ssid type
    if \ datatype(result, 'n') then
        result = 0
    exit result