//Updated database tables report open("report"); vTbls:=chooseElements(system_data_table); scope:=all; vProgType:=type="system_cobol_program"; vUpdType:=type="sql_state_update"; vInsType:=type="sql_state_insert"; vSelType:=type="sql_state_select"; vDelType:=type="sql_state_delete"; for vTbl <: vTbls { scope:=all; vProgs:=vTbl:inst-of=vProgType; // vSortedProgs:=(vSort <: vProgs by vSort:>attr_reql_name); // show vSortedProgs; for vx <: vProgs { vUpdates:=vTbl:inst-of=vUpdType; vInserts:=vTbl:inst-of=vInsType; vSelects:=vTbl:inst-of=vSelType; vDeletes:=vTbl:inst-of=vDelType; show "====================================" show "Program => ", vx:>attr_reql_name; if(vUpdates != []) { for vUpd <: vUpdates { show " Update ==>", vUpd:>attr_reql_location; } } if(vInserts != []) { for vIns <: vInserts { show " Insert ==>", vIns:>attr_reql_location; } } if(vSelects != []) { for vSel <: vSelects { show " Select ==>", vSel:>attr_reql_location; } } if(vDeletes != []) { for vDel <: vDeletes { show " Delete ==>", vDel:>attr_reql_location; } } show "====================================" show " "; } }