1: package body BOMPAVRT as
2: /* $Header: BOMAVRTB.pls 115.2 99/07/16 05:09:43 porting ship $ */
3: /*==========================================================================+
4: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
5: | All rights reserved. |
115:
116: return(0);
117:
118: <
119: err_text := substrb('BOMPAVRT.bmasrtg_assign_rtg_data' || err_msg,1,200);
120: return(ret_code);
121:
122: exception
123: when others then
120: return(ret_code);
121:
122: exception
123: when others then
124: err_text := substrb('BOMPAVRT.bmasrtg_assign_rtg_data' || SQLERRM,1,60);
125: return(ret_code);
126: end bmasrtg_assign_rtg_data;
127:
128:
208:
209: return(0);
210:
211: <
212: err_text := substrb('BOMPAVRT.bmvrrtg_verify_rtg_data ' || err_msg,1,200);
213: return(ret_code);
214:
215: exception
216: when others then
213: return(ret_code);
214:
215: exception
216: when others then
217: err_text := substrb('BOMPAVRT.bmvrrtg_verify_rtg_data ' || SQLERRM,1,60);
218: return(ret_code);
219: end bmvrrtg_verify_rtg_data;
220:
221: END BOMPAVRT;
217: err_text := substrb('BOMPAVRT.bmvrrtg_verify_rtg_data ' || SQLERRM,1,60);
218: return(ret_code);
219: end bmvrrtg_verify_rtg_data;
220:
221: END BOMPAVRT;