Show installation CVT VERID

/* REXX - Show installation CVT VERID */
CVT    = STORAGE(10,4)                       /* Locate CVT */
DCVT   = C2D(CVT)                            
CVTPFX = DCVT - X2D(100)                     /* Locate CVTFIX*/
SPREL  = STORAGE(C2X(D2C(CVTPFX+X2D(D8))),8) /* MVS SP release*/
VERID  = STORAGE(C2X(D2C(CVTPFX+X2D(E8))),16) /* Get VERID */
say "MVS "strip(sprel)" is at "substr(verid,1,8)
say "SYSRES was copied on "substr(verid,9,16)