[Home] [Help]
1000: DBMS_LOB.WRITEAPPEND ( l_loc, 4, const_file_signature );
1001:
1002: IF ( this_segment_nbr = 1 ) THEN
1003:
1004: SELECT cz_fce_files_s.NEXTVAL INTO this_file_id FROM DUAL;
1005:
1006: --This does not delete a logic file if there is no such type in the current generation.
1007: --For example, if an only port has been removed from the model, there will be no port
1008: --file in this generation, so the current port file will not be deleted.
1010: --#
1011: --Need a better handling of this problem. For now we will always create files of all
1012: --possible types even if they are empty. We do that for rule files anyway.
1013:
1014: UPDATE cz_fce_files SET deleted_flag = '1'
1015: WHERE component_id = p_component_id
1016: AND fce_file_type = p_type;
1017:
1018: ELSE
1018: ELSE
1019:
1020: --Need that in case we are restoring to a savepoint in the previous segment.
1021:
1022: DELETE FROM cz_fce_files
1023: WHERE component_id = p_component_id
1024: AND fce_file_type = p_type
1025: AND segment_nbr = this_segment_nbr;
1026:
1025: AND segment_nbr = this_segment_nbr;
1026:
1027: END IF;
1028:
1029: INSERT INTO cz_fce_files ( FCE_FILE_ID
1030: , FCE_FILE_TYPE
1031: , COMPONENT_ID
1032: , SEGMENT_NBR
1033: , FCE_FILE
1166:
1167: DBMS_LOB.TRIM ( ConstantPool, 0 );
1168: DBMS_LOB.TRIM ( CodeMemory, 0 );
1169:
1170: SELECT fce_file INTO l_fce_file FROM cz_fce_files
1171: WHERE deleted_flag = '0'
1172: AND component_id = p_component_id
1173: AND fce_file_type = p_type
1174: AND segment_nbr = segment_nbr_svp;