sample package for fail the concurrent program

CREATE OR REPLACE PACKAGE APPS.XXTP_SAMPLE_PKG1
AS

PROCEDURE xxtp_sample_proc1 (v_errbuf out VARCHAR2, v_retcode out NUMBER);

END;
/

CREATE
AS

PROCEDURE xxtp_sample_proc1 (v_errbuf out VARCHAR2, v_retcode out NUMBER)
AS
l_date date;
BEGIN
l_date:=null;---select sysdate into l_date from dual;
Raise_Application_Error(-20001,'Program failed');
FND_FILE

END;
.PUT_LINE (FND_FILE.LOG,'sample program');END XXTP_SAMPLE_PKG1; / OR REPLACE PACKAGE BODY APPS.XXTP_SAMPLE_PKG1