1: package body GMS_STREAMLINE_PROC as
2: /* $Header: gmsstrmb.pls 120.6 2007/02/07 10:51:09 vthakkar ship $ */
3:
4: -- function to return a delimited string from a stream.
5:
242: stage := '200';
243:
244: If (ret_value is null) then
245: RETCODE := 2;
246: ERRBUF := 'Error in GMS_STREAMLINE_PROC.GMSISLPR at stage '||stage||': No process submitted.';
247: exit;
248: stage := '210';
249: Elsif (ret_value = 0) then
250: ROLLBACK;
248: stage := '210';
249: Elsif (ret_value = 0) then
250: ROLLBACK;
251: RETCODE := 2;
252: ERRBUF := 'Error in GMS_STREAMLINE_PROC.GMSISLPR at stage '||stage||' : Failed to spawn process' ;
253: exit;
254: stage := '220';
255: Else
256: commit;
267: EXCEPTION
268: WHEN OTHERS THEN
269: ROLLBACK;
270: RETCODE := 2;
271: ERRBUF := 'Error in GMS_STREAMLINE_PROC.GMSISLPR at stage '||stage||' : '||sqlerrm;
272:
273: END GMSISLPR;
274:
275: end GMS_STREAMLINE_PROC;
271: ERRBUF := 'Error in GMS_STREAMLINE_PROC.GMSISLPR at stage '||stage||' : '||sqlerrm;
272:
273: END GMSISLPR;
274:
275: end GMS_STREAMLINE_PROC;