	.ENABLE SUBSTITUTION
	DCL SET TERM MCR
	.TESTPARTITION FCSTST
	.PARSE <EXSTRI> "," N B L T
	.IF T EQ "NSP" .GOTO CRE
	; Partition FCSTST already in system !!!
	.GOTO FIN
.CRE:
	; Creating FCSTST partition
	SET /TOP=GEN:-400
	.TESTPARTITION GEN
	.PARSE <EXSTRI> "," N B L T
	.SETN BASE0 0
	.SETO BASE0
	.SETN BASE 'B'+'L'
	SET /MAIN=FCSTST:'BASE':400:COM
.FIN:
	SET /CLI=TI:DCL
