[Home] [Help]
1057: DBMS_LOB.WRITEAPPEND ( l_loc, 4, const_file_signature );
1058:
1059: IF ( this_segment_nbr = 1 ) THEN
1060:
1061: SELECT cz_fce_files_s.NEXTVAL INTO this_file_id FROM DUAL;
1062:
1063: --This does not delete a logic file if there is no such type in the current generation.
1064: --For example, if an only port has been removed from the model, there will be no port
1065: --file in this generation, so the current port file will not be deleted.
1067: --#
1068: --Need a better handling of this problem. For now we will always create files of all
1069: --possible types even if they are empty. We do that for rule files anyway.
1070:
1071: UPDATE cz_fce_files SET deleted_flag = '1'
1072: WHERE component_id = p_component_id
1073: AND fce_file_type = p_type;
1074:
1075: ELSE
1075: ELSE
1076:
1077: --Need that in case we are restoring to a savepoint in the previous segment.
1078:
1079: DELETE FROM cz_fce_files
1080: WHERE component_id = p_component_id
1081: AND fce_file_type = p_type
1082: AND segment_nbr = this_segment_nbr;
1083:
1082: AND segment_nbr = this_segment_nbr;
1083:
1084: END IF;
1085:
1086: INSERT INTO cz_fce_files ( FCE_FILE_ID
1087: , FCE_FILE_TYPE
1088: , COMPONENT_ID
1089: , SEGMENT_NBR
1090: , FCE_FILE
1223:
1224: DBMS_LOB.TRIM ( ConstantPool, 0 );
1225: DBMS_LOB.TRIM ( CodeMemory, 0 );
1226:
1227: SELECT fce_file INTO l_fce_file FROM cz_fce_files
1228: WHERE deleted_flag = '0'
1229: AND component_id = p_component_id
1230: AND fce_file_type = p_type
1231: AND segment_nbr = segment_nbr_svp;