Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 2.0 SOURCE/commands/batch.com

@@ -0,0 +1,23 @@
+$	set noverify
+$	COMDIR := DRB1:[CCPM86.COMMANDS]
+$	default := ""
+$	if ('f$locate(":",p1)' .eq. 'f$length(p1)')  .and. -
+	   ('f$locate("[",p1)' .eq. 'f$length(p1)')	then -
+						default := 'f$directory()'
+$	open/error=TRYCOM tmpfi: 'default''p1'.com
+$	close tmpfi:
+$	goto DOCOPY
+$ TRYCOM:
+$	open/error=NOFIND tmpfi: 'COMDIR''p1'.com
+$	close tmpfi:
+$	default := 'COMDIR'
+$	goto DOCOPY
+$ NOFIND:
+$	write sys$output can not find 'p1'
+$	goto FINI
+$ DOCOPY:
+$	copy 'COMDIR'def.com,'default''p1'.com sys$login:'p1'.com
+$	submit sys$login:'p1'/delete/parameters= -
+		("''p2'","''p3'","''p4'","''p5'","''p6'","''p7'","''p8'", -
+					"''f$directory()'")
+$ FINI: