$ inquire/global fl "Enter Parameter: "
$ jj = f$element(0,":",fl)
$ write sys$output "Starting Position : ",jj
$ kk = f$locate(":",fl)
$ kk = kk + 1
$ length = f$extract(kk,f$length(fl),fl)
$ show symbol length
