added package a_test

procedure get_sysdate