1: package body BOMPRFIL as
2: /* $Header: BOMRFILB.pls 115.1 99/07/16 05:16:02 porting ship $ */
3: procedure bom_pr_get_profile(
4: appl_short_name IN VARCHAR2,
5: profile_name IN VARCHAR2,
80: return_code := -9999;
81: return_message := 'BOM_NO_PROFILE_VALUE';
82: WHEN OTHERS THEN
83: return_code := SQLCODE;
84: return_message := 'BOMPRFIL.bom_pr_get_profile ' || SUBSTRB(SQLERRM,1,100);
85: END bom_pr_get_profile;
86:
87: END BOMPRFIL;
83: return_code := SQLCODE;
84: return_message := 'BOMPRFIL.bom_pr_get_profile ' || SUBSTRB(SQLERRM,1,100);
85: END bom_pr_get_profile;
86:
87: END BOMPRFIL;