.ENABLE SUBSTITUTION
;
;	Command file to transfer a group of files to a Pro
;		(using PIP to specify the file list)
;	To transfer from a PRO to RSX use XFRPRO.CMD
;
.IFNINS ...CFT INS $PFT/TASK=...CFT
.ASKS DSTDEV Enter PRO destination device and directory "ddu:[dir]"
.ASKS UIC Enter RSX source device and directory "ddu:[P,G]"
.SETS BLANK " "
.SETS SRDFIL "CMPALL.TMP"
.IFNINS SRD INS $SRD
.90:
.ASKS SRDSTR Enter A PIP File Specification
	PIP PROXFR.TMP='UIC''SRDSTR'/BR
	.IF <EXSTAT> NE 1 .GOTO 90
	PIP TI:=PROXFR.TMP
;
.ASK Q Is This List Satisfactory
.IFT Q .GOTO 100
.ASK Q Do You Want To Pause To Edit This List (PROXFR.TMP)
.IFF Q .GOTO 90
.PAUSE
.100:
.SETN COUNT 0.
.;
.OPEN #2 CFTXFR.TMP
.;
.OPENR #0 PROXFR.TMP
.IF <FILERR> NE 1 .GOTO ERROR
.READ #0 SRDFIL
.;
.LOOP:	.READ #0 TEMP
	.IFT <EOF> .GOTO DONE
	.IF <FILERR> NE 1 .GOTO ERROR
	.TEST TEMP
	.SETN LEN <STRLEN>
	.SETS SRDFIL TEMP[3:LEN]
	.IF SRDFIL EQ "" .GOTO LOOP
	.PARSE SRDFIL ";" NAME VER
	.IF VER EQ "" .GOTO LOOP
	.INC COUNT
.DATA #2 'DSTDEV''NAME'/PRO='UIC''NAME'
	.GOTO LOOP
.;
.ERROR:
;	******* A FILE ERROR HAS OCCURRED ********
.;
.DONE: 
	.CLOSE #2
	.CLOSE #0
	RUN TIME
	DEL PROXFR.TMP;*
	PURGE CFTXFR.TMP
	SET /NOBRO=TI:
	SET /FDX=TI:
	CFT @CFTXFR.TMP
	SET /BRO=TI:
;
; ********** All File Transfers Are Complete *********
RUN TIME