.;
.; EVO.SAT - KOMMANDOFIL F\R @E P] VO:
.;
.; 	VERSION 88-08-16 B-E TAPPER
.;
	.ENABLE GLOBAL
	.DISABLE DISPLAY
	.ENABLE QUIET
	.ENABLE SUBSTITUTION
.;
	.SETS $DD "VO:"			!DEFAULT DISK
	.SETS $DL "UBLIB"		!DEFAULT LIBRARY NAME
	.SETS $DU "[200,14"		!PROJEKTKONTO
.;
.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.;
	.SETS ICP1 "E"
	.SETS ICP2 "F"
	.PARSE $DD ":" PAR1 PAR2
	.SETS ICP1 ICP1 + PAR1
	.SETS ICP2 ICP2 + PAR1
.;
	.TESTFILE TI:
	.PARSE <FILSPC> ":" PAR1 PAR2
	.SETS TNAM PAR1[1:1]
	.SETS TNAM TNAM+PAR1[3:*]
	.TEST TNAM
	.IF <STRLEN> GT 3 ;ERROR - TNAM IS 'TNAM'
	'IF'.IFACT 'ICP1''TNAM'
		.SETS ICPNAM "'ICP2''TNAM'"
	'ELSE'
		.SETS ICPNAM "'ICP1''TNAM'"
	'ENDIF'
	DCL SET DEF '$DD''$DU'0]
	.SETS CMDLIN "@LB:[3,54]E '$DD' '$DL' '$DU' 'P1' 'P2' 'P3' 'P4' 'P5' 'P6' 'P7'"
	RUN $ICP/TASK='ICPNAM'/CMD="'CMDLIN'"/EST=NO
	.EXIT