.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.;
	.IFNDF p1 .SETS p1 "*.*"
	.IF p1 = "" .SETS p1 "*.*"
	.DISABLE QUIET
	;%GETDIR-I-PIP, Working....
.;	.ENABLE QUIET
	.XQT PIP TMPLST.LOG='p1'/LI/BR		! Get listing.
	.TESTFILE TI:				! Get current terminal.
	.PARSE <filspc> ":" term rest		! Strip off file spec.
	.SETS term term[2:*]			! Get task id part.
.Loop1:
	.IFNACT PIP'term' .GOTO Cont1
		.DELAY 10S
		.DISABLE QUIET
		;%GETDIR-I-PIP, Working....
.;		.ENABLE QUIET
		.GOTO Loop1
.Cont1:
	.SETN i 1
	.SETD i
	.OPENR TMPLST.LOG
.Loop2:
	.READ line
	.IFT <eof> .GOTO Clsit
		.IF i = 1 .GOTO Inci
			.SETS line line[3:*]
			.TEST line
			.IF <strlen> <= 0 .GOTO Clsit
				.SETS $fil'i' line
.Inci:
		.INC i
		.GOTO Loop2
.Clsit:
	.SETS $fil'i' ""
	.CLOSE TMPLST.LOG
	PIP TMPLST.LOG;*/DE/NM
	.EXIT