[Home] [Help]
36: -- to change i.e. for eg. X.6 to X.7.
37:
38: l_api_version CONSTANT NUMBER := 1.0;
39:
40: Mctx INV_ITEM_MSG.Msg_Ctx_type;
41:
42: Processing_Error EXCEPTION;
43:
44: ret_code NUMBER := 0;
73: IF FND_API.to_Boolean( p_init_msg_list ) THEN
74: FND_MSG_PUB.initialize;
75: END IF;
76:
77: INV_ITEM_MSG.set_Message_Mode('PLSQL');
78:
79: -- Set message level
80: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
81: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
77: INV_ITEM_MSG.set_Message_Mode('PLSQL');
78:
79: -- Set message level
80: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
81: INV_ITEM_MSG.set_Message_Level(INV_ITEM_MSG.g_Level_Warning);
82: END IF;
83:
84: -- Define message context
85: Mctx.Package_Name := G_PKG_NAME;
86: Mctx.Procedure_Name := l_api_name;
87:
88: -- Set global package variables for the current import session
89:
90: INV_ITEM_MSG.g_Table_Name := 'p_item_desc_element_table';
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
88: -- Set global package variables for the current import session
89:
90: INV_ITEM_MSG.g_Table_Name := 'p_item_desc_element_table';
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
89:
90: INV_ITEM_MSG.g_Table_Name := 'p_item_desc_element_table';
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
97:
90: INV_ITEM_MSG.g_Table_Name := 'p_item_desc_element_table';
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
97:
98: x_return_status := fnd_api.g_RET_STS_SUCCESS;
91:
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
97:
98: x_return_status := fnd_api.g_RET_STS_SUCCESS;
99: ------------------------------------------------------------------------------------------
92: INV_ITEM_MSG.g_User_id := FND_GLOBAL.user_id ;
93: INV_ITEM_MSG.g_Login_id := FND_GLOBAL.login_id ;
94: INV_ITEM_MSG.g_Prog_appid := FND_GLOBAL.prog_appl_id ;
95: INV_ITEM_MSG.g_Prog_id := FND_GLOBAL.conc_program_id;
96: INV_ITEM_MSG.g_Request_id := FND_GLOBAL.conc_request_id;
97:
98: x_return_status := fnd_api.g_RET_STS_SUCCESS;
99: ------------------------------------------------------------------------------------------
100: -- Process step 1: Loop through item catlog group elements interface records --
99: ------------------------------------------------------------------------------------------
100: -- Process step 1: Loop through item catlog group elements interface records --
101: -- (a) Check for duplicate records in the interface table table --
102: ------------------------------------------------------------------------------------------
103: INV_ITEM_MSG.Debug(Mctx, 'starting the main ICatalogOI loop step1');
104: l_item_desc_element_table := p_item_desc_element_table;
105: FOR icoi_rec IN l_item_desc_element_table.first .. l_item_desc_element_table.last-1 LOOP --{
106: FOR icoi_rec_dup IN icoi_rec+1 .. l_item_desc_element_table.last LOOP --{
107: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
106: FOR icoi_rec_dup IN icoi_rec+1 .. l_item_desc_element_table.last LOOP --{
107: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
108: IF (l_item_desc_element_table(icoi_rec).ELEMENT_NAME = l_item_desc_element_table(icoi_rec_dup).ELEMENT_NAME)
109: THEN
110: INV_ITEM_MSG.Debug(Mctx, 'Duplicate record found' || to_char(icoi_rec_dup) );
111: INV_ITEM_MSG.Add_Message
112: ( p_Msg_Name => 'INV_CEOI_DUP_ELEM_REC'
113: , p_token1 => 'ELEMENT_NAME'
114: , p_value1 => l_item_desc_element_table(icoi_rec).ELEMENT_NAME
107: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
108: IF (l_item_desc_element_table(icoi_rec).ELEMENT_NAME = l_item_desc_element_table(icoi_rec_dup).ELEMENT_NAME)
109: THEN
110: INV_ITEM_MSG.Debug(Mctx, 'Duplicate record found' || to_char(icoi_rec_dup) );
111: INV_ITEM_MSG.Add_Message
112: ( p_Msg_Name => 'INV_CEOI_DUP_ELEM_REC'
113: , p_token1 => 'ELEMENT_NAME'
114: , p_value1 => l_item_desc_element_table(icoi_rec).ELEMENT_NAME
115: );
119: END IF;
120: END LOOP;--} icoi_csr_dup
121: END LOOP; --} icoi_csr
122:
123: INV_ITEM_MSG.Debug(Mctx, 'Write all accumulated messages' );
124: -- Write all accumulated messages
125: INV_ITEM_MSG.Write_List (p_delete => TRUE);
126:
127: ------------------------------------------------------------------------------------------
121: END LOOP; --} icoi_csr
122:
123: INV_ITEM_MSG.Debug(Mctx, 'Write all accumulated messages' );
124: -- Write all accumulated messages
125: INV_ITEM_MSG.Write_List (p_delete => TRUE);
126:
127: ------------------------------------------------------------------------------------------
128: -- Process step 2: Loop through item catlog group elements interface records --
129: -- (a) call the API to create item catalog group element values assignment record in the production table --
129: -- (a) call the API to create item catalog group element values assignment record in the production table --
130: -- (b) update the current interface record process_flag and other converted values --
131: ------------------------------------------------------------------------------------------
132:
133: INV_ITEM_MSG.Debug(Mctx, 'starting the main ICatalogOI loop step2');
134:
135: FOR icoi_rec IN l_item_desc_element_table.first .. l_item_desc_element_table.last LOOP --{
136:
137: l_return_status := fnd_api.g_RET_STS_SUCCESS;
139: -- call the API to process item catalog element values
140:
141: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
142:
143: INV_ITEM_MSG.Debug(Mctx, 'calling INV_ITEM_CATALOG_ELE_PVT.Create_Catalog_group_ele_Assignment');
144: INV_ITEM_MSG.Debug(Mctx, 'Element Name:'||l_item_desc_element_table(icoi_rec).ELEMENT_NAME);
145:
146: INV_ITEM_CATALOG_ELE_PVT.Catalog_Grp_Ele_Val_Assignment
147: (
140:
141: IF ( l_item_desc_element_table.EXISTS(icoi_rec) ) THEN
142:
143: INV_ITEM_MSG.Debug(Mctx, 'calling INV_ITEM_CATALOG_ELE_PVT.Create_Catalog_group_ele_Assignment');
144: INV_ITEM_MSG.Debug(Mctx, 'Element Name:'||l_item_desc_element_table(icoi_rec).ELEMENT_NAME);
145:
146: INV_ITEM_CATALOG_ELE_PVT.Catalog_Grp_Ele_Val_Assignment
147: (
148: p_api_version => 1.0
161:
162: IF ( l_return_status = fnd_api.g_RET_STS_SUCCESS ) THEN
163: NULL;
164: ELSE
165: INV_ITEM_MSG.Debug(Mctx, 'error in Catalog_Grp_Ele_Val_Assignment. Msg count=' || TO_CHAR(INV_ITEM_MSG.Count_Msg));
166: x_return_status := l_return_status;
167: END IF; -- l_return_status
168:
169: -- If unexpected error in Catalog_Grp_Ele_Val_Assignment API, stop the processing
173: END IF;
174:
175: END IF; -- p_item_desc_element_table.EXISTS
176: -- Write all accumulated messages
177: INV_ITEM_MSG.Write_List (p_delete => TRUE);
178:
179: END LOOP; --} icoi_csr
180:
181: INVICGDS.inv_get_icg_desc(
202: EXCEPTION
203: WHEN Processing_Error THEN
204: ROLLBACK TO Process_item_descr_elem_PUB;
205: -- Write all accumulated messages
206: INV_ITEM_MSG.Write_List (p_delete => TRUE);
207:
208: FND_MSG_PUB.Count_And_Get
209: ( p_count => x_msg_count,
210: p_data => x_msg_data
213: WHEN others THEN
214: ROLLBACK TO Process_item_descr_elem_PUB;
215: l_err_text := SUBSTRB(SQLERRM, 1,240);
216: x_return_status := fnd_api.g_RET_STS_UNEXP_ERROR;
217: INV_ITEM_MSG.Add_Message
218: ( p_Msg_Name => 'INV_ITEM_UNEXPECTED_ERROR'
219: , p_token1 => 'PKG_NAME'
220: , p_value1 => G_PKG_NAME
221: , p_token2 => 'PROCEDURE_NAME'
224: , p_value3 => l_err_text
225: );
226:
227: -- Write all accumulated messages
228: INV_ITEM_MSG.Write_List (p_delete => TRUE);
229:
230: FND_MSG_PUB.Count_And_Get
231: ( p_count => x_msg_count,
232: p_data => x_msg_data
253: , p_login_id IN NUMBER
254: )
255: IS
256: l_api_name CONSTANT VARCHAR2(30) := 'process_Item_Catalog_grp_recs';
257: Mctx INV_ITEM_MSG.Msg_Ctx_type;
258:
259: --
260: -- Cursor for the duplicate check (Create_Catalog_group_Assignment)
261: --
328: item_id NUMBER;
329:
330: BEGIN
331:
332: INV_ITEM_MSG.Initialize;
333:
334: INV_ITEM_MSG.set_Message_Mode ('CP_LOG');
335:
336: -- Set message level
330: BEGIN
331:
332: INV_ITEM_MSG.Initialize;
333:
334: INV_ITEM_MSG.set_Message_Mode ('CP_LOG');
335:
336: -- Set message level
337:
338: -- INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Statement);
334: INV_ITEM_MSG.set_Message_Mode ('CP_LOG');
335:
336: -- Set message level
337:
338: -- INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Statement);
339: INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Error);
340:
341: -- Define message context
342: Mctx.Package_Name := G_PKG_NAME;
335:
336: -- Set message level
337:
338: -- INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Statement);
339: INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Error);
340:
341: -- Define message context
342: Mctx.Package_Name := G_PKG_NAME;
343: Mctx.Procedure_Name := l_api_name;
341: -- Define message context
342: Mctx.Package_Name := G_PKG_NAME;
343: Mctx.Procedure_Name := l_api_name;
344:
345: INV_ITEM_MSG.Debug(Mctx, 'start rec_set_id = '|| TO_CHAR(p_rec_set_id));
346:
347: -- Set global package variables for the current import session
348:
349: g_xset_id := p_rec_set_id;
353: g_Prog_appid := NVL(p_prog_appid, FND_GLOBAL.prog_appl_id );
354: g_Prog_id := NVL(p_prog_id, FND_GLOBAL.conc_program_id );
355: g_Request_id := NVL(p_request_id, FND_GLOBAL.conc_request_id );
356:
357: INV_ITEM_MSG.g_Table_Name := 'MTL_DESC_ELEM_VAL_INTERFACE';
358:
359: INV_ITEM_MSG.g_User_id := g_User_id;
360: INV_ITEM_MSG.g_Login_id := g_Login_id;
361: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
355: g_Request_id := NVL(p_request_id, FND_GLOBAL.conc_request_id );
356:
357: INV_ITEM_MSG.g_Table_Name := 'MTL_DESC_ELEM_VAL_INTERFACE';
358:
359: INV_ITEM_MSG.g_User_id := g_User_id;
360: INV_ITEM_MSG.g_Login_id := g_Login_id;
361: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
362: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
363: INV_ITEM_MSG.g_Request_id := g_Request_id;
356:
357: INV_ITEM_MSG.g_Table_Name := 'MTL_DESC_ELEM_VAL_INTERFACE';
358:
359: INV_ITEM_MSG.g_User_id := g_User_id;
360: INV_ITEM_MSG.g_Login_id := g_Login_id;
361: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
362: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
363: INV_ITEM_MSG.g_Request_id := g_Request_id;
364:
357: INV_ITEM_MSG.g_Table_Name := 'MTL_DESC_ELEM_VAL_INTERFACE';
358:
359: INV_ITEM_MSG.g_User_id := g_User_id;
360: INV_ITEM_MSG.g_Login_id := g_Login_id;
361: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
362: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
363: INV_ITEM_MSG.g_Request_id := g_Request_id;
364:
365: IF ( p_commit_flag = 1 ) THEN
358:
359: INV_ITEM_MSG.g_User_id := g_User_id;
360: INV_ITEM_MSG.g_Login_id := g_Login_id;
361: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
362: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
363: INV_ITEM_MSG.g_Request_id := g_Request_id;
364:
365: IF ( p_commit_flag = 1 ) THEN
366: l_commit := fnd_api.g_TRUE;
359: INV_ITEM_MSG.g_User_id := g_User_id;
360: INV_ITEM_MSG.g_Login_id := g_Login_id;
361: INV_ITEM_MSG.g_Prog_appid := g_Prog_appid;
362: INV_ITEM_MSG.g_Prog_id := g_Prog_id;
363: INV_ITEM_MSG.g_Request_id := g_Request_id;
364:
365: IF ( p_commit_flag = 1 ) THEN
366: l_commit := fnd_api.g_TRUE;
367: ELSE
373: ---------------------------------------------------------------------------------------
374: -- Process step 1: Set process flag to 2 --
375: ---------------------------------------------------------------------------------------
376:
377: INV_ITEM_MSG.Debug(Mctx, ' Set process flag to 2');
378:
379: UPDATE mtl_desc_elem_val_interface mdei
380: SET process_flag = 2
381: WHERE
386: -- Process step 2: Loop through item catlog group elements interface records --
387: -- (a) convert the item_number to irem_id --
388: -- (b) update the interface records accordingly --
389: ------------------------------------------------------------------------------------------
390: INV_ITEM_MSG.Debug(Mctx, 'starting the ICatalogOI loop to convert the item_number');
391:
392: IF p_upload_rec_flag = 1 THEN
393:
394:
446: INTO l_transaction_id
447: FROM dual;
448:
449:
450: INV_ITEM_MSG.Add_Message
451: ( p_Msg_Name => l_msg_name
452: , p_token1 => l_token
453: , p_value1 => l_token_value
454: , p_column_name => l_column_name
475: IF ( FND_API.To_Boolean(l_commit) ) THEN
476: COMMIT WORK;
477: END IF;
478: -- Write all accumulated messages
479: INV_ITEM_MSG.Write_List (p_delete => TRUE);
480:
481: ------------------------------------------------------------------------------------------
482: -- Process step 3: Loop through item catlog group elements interface records --
483: -- (a) Check for duplicate records in the interface table table --
482: -- Process step 3: Loop through item catlog group elements interface records --
483: -- (a) Check for duplicate records in the interface table table --
484: -- (b) update the duplicate interface records process_flag --
485: ------------------------------------------------------------------------------------------
486: INV_ITEM_MSG.Debug(Mctx, 'starting the main ICatalogOI loop step3');
487:
488:
489: FOR icoi_rec_dup IN icoi_csr_dup LOOP --{
490: --YJAIN
493: INTO l_transaction_id
494: FROM dual;
495:
496:
497: INV_ITEM_MSG.Add_Message
498: ( p_Msg_Name => 'INV_CEOI_DUP_ELEM_REC'
499: , p_token1 => 'ELEMENT_NAME'
500: , p_value1 => icoi_rec_dup.ELEMENT_NAME
501: , p_transaction_id => l_transaction_id
516: IF ( FND_API.To_Boolean(l_commit) ) THEN
517: COMMIT WORK;
518: END IF;
519: -- Write all accumulated messages
520: INV_ITEM_MSG.Write_List (p_delete => TRUE);
521:
522: ------------------------------------------------------------------------------------------
523: -- Process step 4: Loop through item catlog group elements interface records --
524: -- (a) call the API to create item catalog group element values assignment record in the production table --
524: -- (a) call the API to create item catalog group element values assignment record in the production table --
525: -- (b) update the current interface record process_flag and other converted values --
526: ------------------------------------------------------------------------------------------
527:
528: INV_ITEM_MSG.Debug(Mctx, 'starting the main ICatalogOI loop step4');
529:
530:
531: FOR icoi_rec IN icoi_csr LOOP --{
532:
556: -- call the API to process item catalog element values
557:
558: IF ( l_process_flag = 4 AND p_upload_rec_flag = 1 ) THEN
559:
560: INV_ITEM_MSG.Debug(Mctx, 'calling INV_ITEM_CATALOG_ELE_PVT.Create_Catalog_group_ele_Assignment:'||l_element_name);
561:
562: INV_ITEM_CATALOG_ELE_PVT.Catalog_Grp_Ele_Val_Assignment
563: (
564: p_api_version => 1.0
579: IF ( l_return_status = fnd_api.g_RET_STS_SUCCESS ) THEN
580: l_process_flag := 7;
581: ELSE
582: l_process_flag := 3;
583: INV_ITEM_MSG.Debug(Mctx, 'error in Catalog_Grp_Ele_Val_Assignment. Msg count=' || TO_CHAR(INV_ITEM_MSG.Count_Msg));
584: l_RETCODE := G_WARNING;
585: END IF; -- l_return_status
586:
587: -- If unexpected error in Catalog_Grp_Ele_Val_Assignment API, stop the processing
592:
593: END IF; -- process_flag = 4 AND p_upload_rec_flag = 1
594:
595: -- Write all accumulated messages
596: INV_ITEM_MSG.Write_List (p_delete => TRUE);
597:
598: --
599: -- Update the current interface record
600: --
598: --
599: -- Update the current interface record
600: --
601:
602: INV_ITEM_MSG.Debug(Mctx, 'update interface record');
603:
604: UPDATE mtl_desc_elem_val_interface
605: SET
606: transaction_id = l_transaction_id
629: --
630:
631: IF (p_delete_rec_flag = 1) THEN
632:
633: INV_ITEM_MSG.Debug(Mctx, 'calling delete_OI_records');
634:
635: INV_ITEM_CATALOG_ELEM_PUB.delete_OI_records
636: ( p_commit => l_commit
637: , p_rec_set_id => g_xset_id
637: , p_rec_set_id => g_xset_id
638: , x_return_status => l_return_status
639: );
640:
641: INV_ITEM_MSG.Debug(Mctx, 'done delete_OI_records: return_status=' || l_return_status);
642:
643: IF ( l_return_status <> fnd_api.g_RET_STS_SUCCESS ) THEN
644: RAISE Processing_Error;
645: END IF;
644: RAISE Processing_Error;
645: END IF;
646:
647: -- Write all accumulated messages
648: INV_ITEM_MSG.Write_List (p_delete => TRUE);
649:
650: END IF; -- p_delete_rec_flag = 1
651:
652: --
668: RETCODE := G_ERROR;
669: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
670:
671: -- Write all accumulated messages
672: INV_ITEM_MSG.Write_List (p_delete => TRUE);
673:
674: -- Check of commit
675: IF ( FND_API.To_Boolean(l_commit) ) THEN
676: COMMIT WORK;
681: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_ICG_DESC_ELEM_FAILURE');
682:
683: l_err_text := SUBSTRB(SQLERRM, 1,240);
684:
685: INV_ITEM_MSG.Add_Message
686: ( p_Msg_Name => 'INV_ITEM_UNEXPECTED_ERROR'
687: , p_token1 => 'PACKAGE_NAME'
688: , p_value1 => G_PKG_NAME
689: , p_token2 => 'PROCEDURE_NAME'
693: , p_transaction_id => l_transaction_id
694: );
695:
696: -- Write all accumulated messages
697: INV_ITEM_MSG.Write_List (p_delete => TRUE);
698:
699: -- Check of commit
700: IF ( FND_API.To_Boolean(l_commit) ) THEN
701: COMMIT WORK;
713: , x_return_status OUT NOCOPY VARCHAR2
714: )
715: IS
716: l_api_name CONSTANT VARCHAR2(30) := 'delete_OI_records';
717: Mctx INV_ITEM_MSG.Msg_Ctx_type;
718:
719: l_del_process_flag NUMBER := 7; -- process_flag value for records to be deleted
720: BEGIN
721:
721:
722: Mctx.Package_Name := G_PKG_NAME;
723: Mctx.Procedure_Name := l_api_name;
724:
725: INV_ITEM_MSG.Debug(Mctx, 'begin');
726:
727: -- Initialize API return status to success
728: x_return_status := FND_API.g_RET_STS_SUCCESS;
729:
734: AND rownum < G_ROWS_TO_COMMIT;
735:
736: EXIT WHEN SQL%NOTFOUND;
737:
738: INV_ITEM_MSG.Debug(Mctx, 'deleted ' || TO_CHAR(SQL%ROWCOUNT) || ' record(s)');
739:
740: -- Check of commit
741: IF ( FND_API.To_Boolean(p_commit) ) THEN
742: COMMIT WORK;
748:
749: WHEN others THEN
750: x_return_status := FND_API.g_RET_STS_UNEXP_ERROR;
751:
752: INV_ITEM_MSG.Add_Unexpected_Error (Mctx, SQLERRM);
753:
754: -- Check of commit
755: IF ( FND_API.To_Boolean(p_commit) ) THEN
756: COMMIT WORK;