/* rexx */ address ispexec 'vget ( ZTERMCID ZTERMCP ZTERMCP5 ZTERMCS5 ZTERMCS )' say 'ZTERMCID' ZTERMCID 'ZTERMCP' ZTERMCP 'ZTERMCP5' ZTERMCP5 , 'ZTERMCS5' ZTERMCS5 'ZTERMCS' ZTERMCS