)Attr                                                                           
   % type(text  ) intens(high) caps(off)                                        
   ` type(text  ) intens(high) caps(off)             hilite(reverse)            
   @ type(text)   intens(high) caps(off)             color(yellow)              
   ~ type(text)   intens(high) caps(off)             color(turq)                
   + type(text  ) intens(low )                                                  
   _ type(input ) intens(high) caps(off) just(left )                            
    type(input ) intens(high) caps(on ) just(left ) hilite(uscore)             
   \ type(input ) intens(high) caps(on ) just(right) hilite(uscore)             
    type(input ) intens(high) caps(off) just(left ) hilite(uscore)             
   $ area(scrl)                                                                 
)Body  Expand(//)                                                               
`Revive!%: Bring Back to PDS Members .. < &rvv > -/-/-                          
%Command ===>_zcmd                                                / / +         
$sarea                                                                         $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
$                                                                              $
)Area sarea                                                                     
@ Type Your Revive Dataset ..                                                   
+   Dataset Name  :rv1dsn                                        +             
+     (if Not Cataloged) Volume Serial :rv1vol+    --------------------------  
+                                                  | Version :~&rvv          +| 
+   Select Option                                  | Fix     :~&revd         +| 
+    - Analysis range :z+ ( N or O )              | Compile :~&revc         +| 
+      N : Data changed after the last compress.   | Trace   :~&revtrc       +| 
+      O : All assigned tracks.                     --------------------------  
+                                                                               
+    - Existent member is effective, too. :z+ ( Y:yes or N:no )                
+                                                                               
+    - Disposition of the target file. :z+ ( S:shr O:old )                     
+                                                                               
+    - Search String . ( BLANK or Search string )                               
+         :rv1sstr                                                  +          
+                                                                               
+    - Directory Table Work Space Size ? ( This field disappears soon )         
+         :\z    + ( nnnnn:Member )                                             
+                                                                               
)Init                                                                           
  .cursor = rv1dsn                                                              
  .zvars = '(rv1exto rv1addc rv1disp rv1tbsp)'                                  
)proc                                                                           
  &dschk = trunc(&rv1dsn,1)                                                     
  if (&dschk = '''')                                                            
    &dsrm = .trail                                                              
    &dsrm2 = trunc(&dsrm,'''')                                                  
    IF (&dsrm2 = &dsrm)                                                         
      &rv1dsn = '&rv1dsn&dschk'                                                 
  ver (&rv1dsn,nb,dsname)                                                       
  if ( &rv1vol ^= ' ' )                                                         
    ver (&rv1vol,len,EQ,6)                                                      
  ver (&rv1exto,nb,list,N,O)                                                    
  ver (&rv1addc,nb,list,Y,N)                                                    
  ver (&rv1disp,nb,list,S,O)                                                    
  ver (&rv1tbsp,nb,num)                                                         
  ver (&rv1tbsp,range,1,65535)                                                  
)END                                                                            
