DECLARE
  V_COUNT NUMBER(2);
  V_DOC_TYPE VARCHAR2(10);
 BEGIN
  GO_BLOCK('RELEASE_MANAGEMENT');
  FIRST_RECORD;
  LOOP
  		IF :RELEASE_MANAGEMENT.ACTIVE='Y' THEN
  		
  		V_DOC_TYPE:=SUBSTR(:RELEASE_MANAGEMENT.OBJECT_PATH,(INSTR(:RELEASE_MANAGEMENT.OBJECT_PATH, '\'))+1, 10);
  		IF V_DOC_TYPE='FORMS\' THEN
  			:RELEASE_MANAGEMENT.DOC_TYPE:='FMX';
  		ELSIF V_DOC_TYPE='REPORTS\' THEN
  			:RELEASE_MANAGEMENT.DOC_TYPE:='RDF';
  		END IF;
  	:CONTROL.FILE_SOURCE_PATH := '\\VMWLSWD\DEVCOM\' ||
                                 :RELEASE_MANAGEMENT.OBJECT_PATH ||
                                 :RELEASE_MANAGEMENT.OBJECT_NAME||'.'||:RELEASE_MANAGEMENT.DOC_TYPE;
                                 
    PKG_FILE.UPDATE_DB_FILE(:OBJECT_CODE);
   [color=deeppink] CLIENT_IMAGE.WRITE_IMAGE_FILE('D:\MEHBOOB\'||:RELEASE_MANAGEMENT.OBJECT_NAME||'.'||:RELEASE_MANAGEMENT.DOC_TYPE,	[/color]:RELEASE_MANAGEMENT.DOC_TYPE,'RELEASE_MANAGEMENT.ATTACHED_FILE', 0,0);
  -- client_image.write_image_file(vfilename,'','COMPANY_INFO_MST.CIM_LOGO'); 
    --
    END IF;
     EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
  
    NEXT_RECORD;
  END LOOP;

END;