.ENABLE SUBSTITUTION
	.DISABLE QUIET
	.ENABLE DISPLAY
	.TEST P1
	'IF'.IF <STRLEN> NE 0
		;TRAFIKANALYSER RENSAS
		.ENABLE QUIET
		.DISABLE DISPLAY
	'ENDIF'
.;
	;	KOMMANDOFIL F\R ATT RENSA TRAFIKANALYSER
	;
	;	VERSION 88-09-02 /BTA
	;
	;	OBS ! OM INTE DU INTE HAR TAGIT UT ALLA ANALYSER INNAN
	;	DU RENSAR S] HAR T]GET G]TT !
	;
	CHD 1 2
	.TESTFILE PB:[200,142]SLUTRPC.TST
	'IF'.IF <FILERR> EQ 1
		.ENABLE DISPLAY
		.DISABLE QUIET
		;
		; ENLIGT MINA NOTERINGAR HAR TRAFIKANALYSERNA [NNU INTE
		; SKRIVITS UT HELT !! KONTAKTA SYSTEMANSVARIG !!
		; FILERR='<FILERR>' P] SLUTRPC.TST !
		;
		.EXIT 4
	'ENDIF'
.;
	.TESTFILE PB:[200,142]SLUTRPC.RPC
	'IF'.IF <FILERR> NE 1
		.ENABLE DISPLAY
		.DISABLE QUIET
		;
		; ENLIGT MINA NOTERINGAR HAR UTSKRIFT AV TRAFIKANALYSERNA
		; [NNU INTE BEST[LLTS !! KONTAKTA SYSTEMANSVARIG !!
		; FILERR='<FILERR>' P] SLUTRPC.RPC !
		;
		.EXIT 4
	'ENDIF'
.;
	RUN $PIP/TASK=RPCRNS/CMD="PIP PB:[200,142]*.RPC;*/DE"
	'IF'.IF <EXSTAT> NE 1
		.EXIT 3
	'ENDIF'
	.EXIT 1
.;
.; <EOF> RPCRENS.CMD
.;