diff --git a/perl-xCAT/xCAT/PPCvm.pm b/perl-xCAT/xCAT/PPCvm.pm
index bf7505f8e..917e7a0ac 100644
--- a/perl-xCAT/xCAT/PPCvm.pm
+++ b/perl-xCAT/xCAT/PPCvm.pm
@@ -379,7 +379,7 @@ sub rmvm_parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt, qw(V|verbose service) )) {
+    if ( !GetOptions( \%opt, qw(V|verbose service r) )) {
         return( usage() );
     }
     ####################################
@@ -711,7 +711,7 @@ sub remove {
                 ################################
                 # Remove LPAR from database 
                 ################################
-                if ( $Rc == SUCCESS ) {
+                if ( $Rc == SUCCESS and !exists( $opt->{r} ) ) {
                     my $err = xCATdB( "rmvm", $name );
                     if ( defined( $err )) {
                         push @values, [$lpar,$err,RC_ERROR];
diff --git a/xCAT-client/pods/man1/rmvm.1.pod b/xCAT-client/pods/man1/rmvm.1.pod
index d9f8e884f..b7e74dd3d 100644
--- a/xCAT-client/pods/man1/rmvm.1.pod
+++ b/xCAT-client/pods/man1/rmvm.1.pod
@@ -9,7 +9,7 @@ I<rmvm [-h| --help]>
 I<rmvm [-v| --version]>
 
 
-I<rmvm [-V| --verbose] noderange [--service]>
+I<rmvm [-V| --verbose] noderange [-r] [--service]>
 
 
 =head1 DESCRIPTION
@@ -25,6 +25,8 @@ B<-v>          Command Version.
 
 B<-V>          Verbose output.
 
+B<-r>          Remain the data object definitions of the nodes.
+
 B<--service>   Remove the service partitions of the specified CECs.
 
 
@@ -63,6 +65,14 @@ Output is similar to:
  cec01: Success
  cec02: Success
 
+4. To remove the partition lpar1, but remaining its definition, enter:
+
+I<rmvm lpar1 -r>
+
+Output is similar to:
+
+lpar1: Success
+
 
 =head1 FILES