I am using within a macro the following code:
data _null_; verz = sysget("PWD"); verz = substr(verz,1,length(verz) - length(scan(verz, -1, \