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