.;
.; VO:[200,140]SEARCH.SAT (.CMF P] $)
.;	VERSION 88-08-15
.;
	.DISABLE DISPLAY
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.ENABLE QUIET
	.SETS DEV "GE"
.;
	.IFNINS PIP INS $PIP
	.SETS UIC <UIC>
.;
	.SETT GO
	'WHILE'.IFT GO
.;
	.ASKS MODUL Modulens namn :
.;
	'POSIT'		! EJ FUNNEN
	.SETF FOUND
	.SETS ACN ""
	.SETS SRCHD ""
	SET /UIC=[2,100]
.;
	.SETS DEV "VO:"
	.SETS GRP "[200,14"
	.SETS LIB "UBLIB"
	'PERFORM' TEST
	'QUITIF'.IFT FOUND
.;
	.SETS DEV "VT:"
	.SETS GRP "[200,14"
	.SETS LIB "U2LIB"
	'PERFORM' TEST
	'QUITIF'.IFT FOUND
.;
	.SETS DEV "VR:"
	.SETS GRP "[200,14"
	.SETS LIB "U3LIB"
	'PERFORM' TEST
	'QUITIF'.IFT FOUND
.;
	.SETS DEV "RB:"
	.SETS GRP "[200,12"
	.SETS LIB ""
	'PERFORM' TEST
	'QUITIF'.IFT FOUND
.;
	.SETS DEV "RB:"
	.SETS GRP "[200,13"
	.SETS LIB ""
	'PERFORM' TEST
	'QUITIF'.IFT FOUND
.;
	.DISABLE QUIET
	;Modulen 'MODUL' finns inte p} dessa : 'SRCHD'
	.ENABLE QUIET
.;
	'ADMIT'		!FUNNEN
		.DISABLE QUIET
		;Modulen 'MODUL' finns p} 'DEV''GRP''ACN'
		.ENABLE QUIET
		'IF'.IFNDF $ANN
			.ASK GOTHER Starta @E d{r (Y)?
			.IFT <DEFAUL> .SETT GOTHER
			'IF'.IFT GOTHER
				.PARSE DEV ":" PAR1 PAR2
				.XQT E'PAR1'
				.EXIT
			'ENDIF'
		'ENDIF'
	'ENDPOSIT'
.;
	SET /UIC='UIC'
	.ASK GO Vill du fr}ga mera (N)?
.;
	'ENDDO'
.;
	'IF'.IFNDF $ANN
		.ASK GOTHER Starta @E (N)?
		'IF'.IFT GOTHER
			@E
		'ENDIF'
	'ENDIF'
.;
	.EXIT
.;
.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.;
	'SECTION' TEST
.;
	.TESTFILE 'DEV''GRP'0]E.CMF
	'IF'.IF <FILERR> EQ 1
		.SETS SRCHD SRCHD+DEV
		.SETS SRCHD SRCHD+" "
		'PERFORM' SEARCH
	'ENDIF'
.;
	'ENDSECT'
.;
.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.;
	'SECTION' SEARCH
.;
	'POSIT'		!NOT FOUND
.;
	.SETS ACN "5]"
	.TESTFILE 'DEV''GRP''ACN''MODUL'.MET
	'QUITIF'.IF <FILERR> EQ 1
	.TEST LIB
	'IF'.IF <STRLEN> NE 0
		.SETS ACN "5]'LIB'.UML"
		LBR NL:='DEV''GRP''ACN'/EX:'MODUL'
		'QUITIF'.IF <EXSTAT> EQ 1
	'ENDIF'
.;
	'ADMIT'		!FOUND
		.SETT FOUND
	'ENDPOSIT'
.;
	'ENDSECT'
.;
.;	<EOF> SEARCH.CMD
.;