5: str2 varchar2(10000);
6: str3 varchar2(10000);
7:
8: begin
9: FND_FILE.PUT_LINE(FND_FILE.LOG,'Load DML Programs in AW '||awname);
10:
11: dbms_aw.execute('aw attach '||awname||' rw');
12:
13: FND_FILE.PUT_LINE(FND_FILE.LOG,'AW attached in RW Mode ');
9: FND_FILE.PUT_LINE(FND_FILE.LOG,'Load DML Programs in AW '||awname);
10:
11: dbms_aw.execute('aw attach '||awname||' rw');
12:
13: FND_FILE.PUT_LINE(FND_FILE.LOG,'AW attached in RW Mode ');
14:
15: str1 := 'define regression program;program;';
16: str1 := str1 || 'argument pricePlan text;';
17: str1 := str1 || 'argument prd text;';
79:
80:
81: dbms_aw.execute(str1 || str2 || str3);
82:
83: FND_FILE.PUT_LINE(FND_FILE.LOG,'Created Regression DML Program ..... ');
84:
85:
86:
87: str1 := 'define retoffinv program;program;';
102: str1 := str1 || 'doend;end;';
103:
104: dbms_aw.execute(str1);
105:
106: FND_FILE.PUT_LINE(FND_FILE.LOG,'Created RetOffInv DML Program ..... ');
107:
108: dbms_aw.execute('update;commit;');
109: FND_FILE.PUT_LINE(FND_FILE.LOG,'UPDATE and COMMIT');
110:
105:
106: FND_FILE.PUT_LINE(FND_FILE.LOG,'Created RetOffInv DML Program ..... ');
107:
108: dbms_aw.execute('update;commit;');
109: FND_FILE.PUT_LINE(FND_FILE.LOG,'UPDATE and COMMIT');
110:
111: dbms_aw.execute('aw detach '||awname);
112:
113: FND_FILE.PUT_LINE(FND_FILE.LOG,'AW Detached');
109: FND_FILE.PUT_LINE(FND_FILE.LOG,'UPDATE and COMMIT');
110:
111: dbms_aw.execute('aw detach '||awname);
112:
113: FND_FILE.PUT_LINE(FND_FILE.LOG,'AW Detached');
114:
115: EXCEPTION
116: when others then
117: null;
114:
115: EXCEPTION
116: when others then
117: null;
118: FND_FILE.PUT_LINE(FND_FILE.LOG,'Exception in LOAD DML');
119: end LOADDMLPROG;
120: end QPR_DML_PVT;