Pastebin

data batteri;
	/* 
	missover tvinger sas til aldrig at gå ned på en ny linie, selvom jeg forsøger at læse for langt
	*/
	infile 'u:\0.Georg\battery.dat' missover;

	/* 
	input; henter een række ind i input buffer 
	*/
	input;

	/*
	_infile_ er indbygget variabel som indeholder den rå indlæste linie
	*/
	text=_infile_;

	/* 
	husk dato, fordi den skal bruges til hver dato
	*/
	retain dato;
	length group $ 37 value $ 37;

	/* 
	hvis det første ord er DATE, har vi en dato
	*/
	if scan(text,1,'=')='DATE' then
		dato=scan(text,2,'=');
	else
		do;
			group = scan(text,1,':');
			value = strip(scan(text,2,':'));

			if find(group,'cycle')> 0 then
				value='0';
			output;
		end;
run;