fullForm[e_, head_: Defer] :=
Module[{ml, ff},
ml = LinkCreate[LinkMode -> Loopback]; LinkWrite[ml, e];
ff = LinkRead[ml, head]; LinkClose[ml];
ff
]
ndssdata =
First[NDSolve`ProcessEquations[{y''[t] + y[t] == 0, y[0] == 1,
y'[0] == 0}, {y, y'}, t, Method -> "ExplicitRungeKutta"]];
NDSolve`Iterate[ndssdata, 5]
Cases[fullForm[ndssdata], b_Internal`Bag :> Hold[b], Infinity]