)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)             
)Body  Expand(//)                                                               
`Revive!%: Bring Back to PDS Members .. < &rvv > -/-/-                          
%Command ===>_zcmd                                                / / +         
+                                                                               
@ Type Your Restore Dataset ..                                                  
+   Dataset Name  :rv1dsn                                        +             
+     (if Not Cataloged) Volume Serial :rv1vol+    --------------------------  
+                                                  | Version :~&rvv          +| 
+   Select Option                                  | Fix     :~&revd         +| 
+     o Scan Area of Lose PDS Members ?            | Compile :~&revc         +| 
+         :z+ ( N:Normal, O:Over DS1LSTAR field )  --------------------------  
+                                                                               
+     o Append Current Member ?                                                 
+         :z+ ( Y.N )                                                          
+                                                                               
+     o Restore Dataset Disposition ?                                           
+         :z+ ( S:shr O:old )                                                  
+                                                                               
+     o Directory Table Work Space Size ?                                       
+         :\z    + ( nnnnn:Member )                                             
+                                                                               
+     o Search String .. ( BLANK or Search String )                             
+         :rv1sstr                                                  +          
+                                                                               
)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                                                                            
