1
$ arch_name = f$edit(f$getsyi("arch_name"),"upcase")
2
$ if arch_name .eqs. "ALPHA" then arch_name = "axp"
3
$ proc = f$environment("procedure")
4
$ dev = f$parse(proc,,,"DEVICE")
5
$ dir = f$parse(proc,,,"DIRECTORY")
6
$ set default 'dev''dir'
8
$ if p1 .eqs. "LIBXML2"
11
$ mms/descr=[.vms]descrip_libxml2.mms 'p2'
13
$ mms/descr=[.vms]descrip_'arch_name'.mms 'p2'