/* REXX *** */ parse upper arg envname do i=1 to __environment.0 parse var __environment.i vname'='val if vname = envname then do say envname'='val exit 0 end end i exit 8