Also so wie geplant haut das nicht hin, müsste meines Erachtens auch einen Compilerfehler geben.

*HIVAL SETGT DATW11

1 DO 2
READP DATW11
ENDDO

IOch würde so machen, einfach ind jder kanns lesen