ORA-06512 indica uma exceção não tratada em seu procedimento. Você não tem tratamento de erros em seu código, então isso é razoável.

Claro, porque você não tem tratamento de erros, é muito difícil para alguém saber qual é o erro. O mais provável é que sejam dados:ou você não tem registro em A1 where ID=1 (ou seja, exceção NO_DATA_FOUND) ou você tem mais de um desses registros (ou seja, exceção TOO_MANY_ROWS).

ODP tem uma classe para lidar com exceções. Saiba mais .