declare
    v_id	integer;
begin
    v_id := acs_sc_impl.new (
              'AcsObject',
              'mailing_list_idhandler',
              'mailing-lists'
    );
    v_id := acs_sc_impl.new_alias (
              'AcsObject',
              'mailing_list_idhandler',
              'PageUrl',
              'ml_get_mailing_list_pageurl',
              'TCL'
    );
    acs_sc_binding.new (
              contract_name => 'AcsObject',
              impl_name => 'mailing_list_idhandler'
    );

    v_id := acs_sc_impl.new (
              'AcsObject',
              'mail_class_idhandler',
              'mailing-lists'
    );
    v_id := acs_sc_impl.new_alias (
              'AcsObject',
              'mail_class_idhandler',
              'PageUrl',
              'ml_get_mail_class_pageurl',
              'TCL'
    );
    acs_sc_binding.new (
              contract_name => 'AcsObject',
              impl_name => 'mail_class_idhandler'
    );

    v_id := acs_sc_impl.new (
              'AcsObject',
              'mail_job_idhandler',
              'mailing-lists'
    );
    v_id := acs_sc_impl.new_alias (
              'AcsObject',
              'mail_job_idhandler',
              'PageUrl',
              'ml_get_mail_job_pageurl',
              'TCL'
    );
    acs_sc_binding.new (
              contract_name => 'AcsObject',
              impl_name => 'mail_job_idhandler'
    );
end;
/
show errors