... oder Du packst die Leseschleife in ein eigenes CL, CALL X PARM(&STS), müsste auch gehen ...