$ OLDDIR:='F$LOGICAL("SYS$DISK")''F$DIRECTORY()'
$SET DEF LB:[BACKUP]
$ FDIR DRA0 000000 DIRS.SX1 CREDIR1.COM
$ FDIR SIA0 000000 DIRS.SX2 CREDIR2.COM
$ fdir sia1 000000 dirs.sx3 credir3.com
$ COPY/CONCATENATE CREDIR1.COM,CREDIR2.COM,credir3.com CREDIR.COM
$ DELETE CREDIR1.COM;,CREDIR2.COM;,credir3.com;
$ COPY/CONCATENATE DIRS.SX1,DIRS.SX2,dirs.sx3 DIRS.SXX
$ DELETE DIRS.SX1;,DIRS.SX2;,dirs.sx3;
$ ASSIGN/USER SYS$COMMAND SYS$INPUT
$ RUN CREBAC
$DELETE DIRS.SXX;
$ SET DEF 'OLDDIR'