/* REXX */
arg lvl .

"ISPEXEC LMDINIT LISTID(VID) LEVEL("lvl")"
kdsn = ""
"ispexec lmdlist listid("vid") option(list) stats(yes) dataset(kdsn)"
vrc = rc
totsize = 0

do while vrc = 0
    say kdsn
    if zdlvol = '??????' then zdlsize = 0
    IF ZDLVOL = '*ALIAS' THEN ZDLSIZE = 0
    IF ZDLVOL = '*VSAM*' THEN ZDLSIZE = 0
    totsize = totsize + zdlsize
    "ispexec lmdlist listid("vid") option(list) stats(yes) dataset(kdsn)"
    vrc = rc
    end

"ispexec lmdlist listid("vid") option(free)"
"ispexec lmdfree listid("vid")"
say totsize