save pointer to its successor and update current record pointer to the first record of its sublist

push next(ptr),&s);

ptr = sublist(ptr);