EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DADSTDS" TO F.DADS ELSE STOP

READ ENR_DADS FROM F.DADS,"0012001" ELSE ENR_DADS=""

I=1
W_TOTAL=0
LOOP
	UNTIL ENR_DADS<I>[20,3]="300" DO

	IF ENR_DADS<I>[20,3]="200" THEN W_TOTAL=W_TOTAL+ENR_DADS<I>[372,7]

	I=I+1
REPEAT

PRINT W_TOTAL
