463: -- chop the message to 255 long
464: l_length := length(msg);
465: WHILE l_length > 255 LOOP
466: l_substring := substr(msg, l_start, 255);
467: FND_FILE.PUT_LINE(FND_FILE.LOG, l_substring);
468: -- dbms_output.put_line(l_substring);
469:
470: l_start := l_start + 255;
471: l_length := l_length - 255;
471: l_length := l_length - 255;
472: END LOOP;
473:
474: l_substring := substr(msg, l_start);
475: FND_FILE.PUT_LINE(FND_FILE.LOG,l_substring);
476: --dbms_output.put_line(l_substring);
477: -- END IF;
478: EXCEPTION
479: WHEN others THEN
476: --dbms_output.put_line(l_substring);
477: -- END IF;
478: EXCEPTION
479: WHEN others THEN
480: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception: others in AML_DEBUG');
481: FND_FILE.PUT_LINE(FND_FILE.LOG,
482: 'SQLCODE ' || to_char(SQLCODE) ||
483: ' SQLERRM ' || substr(SQLERRM, 1, 100));
484: END AML_DEBUG;
477: -- END IF;
478: EXCEPTION
479: WHEN others THEN
480: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception: others in AML_DEBUG');
481: FND_FILE.PUT_LINE(FND_FILE.LOG,
482: 'SQLCODE ' || to_char(SQLCODE) ||
483: ' SQLERRM ' || substr(SQLERRM, 1, 100));
484: END AML_DEBUG;
485: