29: LineSize INTEGER := 60;
30: BEGIN
31: IF (G_MsgLevel = G_ML_Full) THEN
32: -- DBMS_OUTPUT.put_line('SQL: Executing:');
33: FND_FILE.put_line(FND_FILE.OUTPUT, 'SQL: Executing:');
34: CurrPos := 1;
35: InputLen := LENGTH(InputStr);
36: WHILE (CurrPos <= InputLen) LOOP
37: IF (CurrPos + LineSize < InputLen) THEN
35: InputLen := LENGTH(InputStr);
36: WHILE (CurrPos <= InputLen) LOOP
37: IF (CurrPos + LineSize < InputLen) THEN
38: -- DBMS_OUTPUT.put_line('> ' || SUBSTR(InputStr, CurrPos, LineSize));
39: FND_FILE.put_line(FND_FILE.OUTPUT, '> ' || SUBSTR(InputStr, CurrPos, LineSize));
40: CurrPos := CurrPos + LineSize;
41: ELSE
42: -- DBMS_OUTPUT.put_line('> ' || SUBSTR(InputStr, CurrPos));
43: FND_FILE.put_line(FND_FILE.OUTPUT, '> ' || SUBSTR(InputStr, CurrPos));
39: FND_FILE.put_line(FND_FILE.OUTPUT, '> ' || SUBSTR(InputStr, CurrPos, LineSize));
40: CurrPos := CurrPos + LineSize;
41: ELSE
42: -- DBMS_OUTPUT.put_line('> ' || SUBSTR(InputStr, CurrPos));
43: FND_FILE.put_line(FND_FILE.OUTPUT, '> ' || SUBSTR(InputStr, CurrPos));
44: CurrPos := InputLen + 1;
45: END IF;
46: END LOOP;
47: END IF;
123: END IF;
124: END IF;
125: Msg := FND_MESSAGE.get;
126: -- DBMS_OUTPUT.put_line(Msg);
127: FND_FILE.put_line(FND_FILE.OUTPUT, Msg);
128: END display_message;
129:
130:
131: /* Name: display_log