)Attr default(%+_)                                                              
   % type(text   ) intens(high) caps(off)                                       
   + type(text   ) intens(low )                                                 
   _ type(input  ) intens(high) caps(on ) just(left )                           
    type(input  ) intens(high) caps(on ) just(left ) hilite(uscore)            
   ` type(text   ) intens(high) caps(off)             hilite(reverse)           
   @ type(text   ) intens(high) caps(off)             color(white )             
   # type(text   ) intens(high) caps(off)             color(yellow)             
   ^ type(output ) intens(low ) caps(on ) just(asis ) color(blue)               
   ~ type(output ) intens(low ) caps(off) just(right) color(blue)               
   \ type(input  ) intens(low ) caps(on ) just(asis ) color(turq)               
    type(text   ) intens(low ) caps(on ) just(asis ) color(turq)               
/*                                                                   */         
/*Attribute Used.                                                    */         
/* ATTR_CUR(x'01') : Current Exist Member                            */         
/* ATTR_REC(x'02') : Lost of Directory Chain ( Recoveryable Member ) */         
/* ATTR_EXT(x'03') : Over DS1LSTAR ( Last Used Address )             */         
/* ATTR_BDR(x'07') : DS1LSTAR Border Line                            */         
/*                                                                   */         
/* ATTR_DOK(x'08') : Valid Record.                                   */         
/* ATTR_DNG(x'09') : Data Record No-Good. ( Invalid Record Contain ) */         
/*                                                                   */         
/* ATTR_ERR(x'04') : Line Command Process Error                      */         
/* ATTR_MRK(x'05') : End of Line Mark                                */         
/* ATTR_INP(x'06') : Line Input Field                                */         
/*                                                                   */         
  01 type(datain ) intens(low ) color(blue  ) /* Current Exist  */              
  02 type(datain ) intens(low ) color(turq  ) /* Recoveryable   */              
  03 type(datain ) intens(low ) color(white ) /* Extent Recov   */              
  04 type(datain ) intens(high) color(yellow) /* Process Error  */              
  05 type(dataout) intens(low ) color(blue  ) /* End of Line Mark */            
  06 type(datain ) intens(low ) color(red   ) hilite(uscore) caps(on)           
  07 type(datain ) intens(low ) color(pink  ) /* Border Line    */              
  08 type(dataout) intens(low ) color(blue  ) /* Valid Records.   */            
  09 type(dataout) intens(low ) color(white ) /* Invalid Records. */            
  90 type(dataout) intens(high) color(white ) /* Invalid Records. */            
   | area(dynamic) scroll(on)  extend(on)                                       
    area(dynamic) scroll(off) extend(off)                                      
)Body  Expand(//)                                                               
`Revive!%: Show! <&rv1dsnc.(&rv1name.)> -/-/-                                   
%Command ===>_zcmd                                 / /%Scroll ===>_amt +        
+                                                                               
@ Recfm+:_z  + @Lrecl+:_z    + @Blksz+:_z    +                                  
|rv1sarea                                                                      |
)Init                                                                           
  &amt = csr                                                                    
  .zvars = '(rv1srfm rv1slrl rv1sbsz)'                                          
)End                                                                            
