PERFORM WRITE-RTN THRU WRITE-EXT
VARYING S-IDX FROM 1 BY 1
UNTIL ( S-IDX > 10 ).