         DS    0D                                                               
REVIVED  EQU   *                         Revive Common Data Area                
RV1MARK  DC    CL8'-REVIVE-'             Mark                                   
* ------------------------------------------------------------------            
*        Revive Common Data                                                     
* ------------------------------------------------------------------            
RVPREFIX DS    CL8                       User prefix                            
REVTRC   DS    CL3                       Revive! Trace Option                   
TRCMES   DS    CL80                      Revive! Trace Message                  
TRCMESS  DS    CL20                      Revive! Trace Message Short            
A#TRCF   DC    V(TRCF)                   Trace DCB Address                      
RV1DSN   DS    CL46                      Input Dataset Name                     
RV1VOL   DS    CL6                       Input Dataset Volume Serial            
RV1TVOL  DS    CL6                       Target Dataset Volume Serial           
RV1EXTO  DS    CL1                       Extended Scan Option                   
RV1ADDC  DS    CL1                       Add Current Members Flag               
RV1DISP  DS    CL1                       Input Dataset Disposition              
         DS    CL1                       Reserved                               
RV1TBSP  DS    F                         Directory Table Size                   
RV1SSTR  DS    CL50                      Search String                          
RV1SSTRR DS    CL50                      Search String Result                   
RV1SSTRL DS    H                         Search String Length                   
ZPREFIX  DS    CL8                       TSO Prefix                             
RV1DSNC  DS    CL44                      Process Dataset Name                   
RV1JFCB  DS    0CL176                            job file control block         
RV1JDSN  DS    CL44                              dataset name                   
RV1JDSCB DS    CL140                                                            
SHOWRC   DS    F                         ISPF Panel Condition Code              
RV1ENTRYL DC   CL55'(RV1DSN RV1VOL RV1EXTO RV1ADDC RV1DISP RV1TBSP RV1S*        
               STR)'                                                            
RV1SCROLL DC   CL25'(ZVERB ZSCROLLA ZSCROLLN)'                                  
         DS    CL1                       Reserved                               
RV1PRC   DC    CL3' '                    Process Flag                           
         DS    CL1                       Reserved                               
RV1EXTC  DS    XL1                       Extent Process Flag                    
         DS    CL1                       Reserved                               
RV1DDN   DS    CL8                       Dynamic Allocation DD Name             
RV1TBSPA DS    F                         Directory Table Address                
RV1TBSPP DS    F                         Directory Table Pointer                
RV1TBSPL DS    F                         Directory Table Length                 
RV1DIRBA DS    F                         Directory Read Buffer Address          
RV1DIRBP DS    F                         Directory Read Buffer Pointer          
RV1DIRBL DS    F                         Directory Read Buffer Length           
RV1DATBA DS    F                         Data Area Read Buffer Address          
RV1DATBL DS    F                         Data Area Read Buffer Length           
RV1DENDP DS    F                         Directory Read Buffer End Pos          
ZEDSMSG  DC    CL20' '                   Short Error Message                    
ZEDLMSG  DS    CL60                      Long Error Message                     
LISTBUFL DS    F                         List Panel Display buffer len          
LISTBUFA DS    F                         List Panel Display buffer Adr          
VDEPTH   DS    F                         Panel Dynamic Area Depth               
VDDEPTH  DS    F                         List Panel Dynamic Area Depth          
VSDEPTH  DS    F                         Show Panel Dynamic Area Depth          
VWIDTH   DS    F                         Panel Dynamic Area Width               
VDWIDTH  DS    F                         List Panel Dynamic Area Width          
VSWIDTH  DS    F                         Show Panel Dynamic Area Width          
VROW     DS    F                         List Panel Dynamic Area Row            
VCOL     DS    F                         List Panel Dynamic Area Column         
VTYPE    DS    CL8                       List Panel Dynamic Area Type           
ZSCROLLA DS    CL4                       Scroll AMT ( HALF,MAX,...)             
ZSCROLLN DS    F                         Scroll Lines                           
ZVERB    DS    CL8                       Command Verb                           
ZERRMSG  DS    CL8                       ISPF Error Message ID                  
DTFIRST  DS    F                         Data Area Table First Entry A          
DTLAST   DS    F                         Data Area Table Last Entry A           
DTCURR   DS    F                         Data Area Table Current Ent A          
DTCURRP  DS    F                         Data Area Table Current Pos A          
DTLASTE  DS    F                         Data Area Table Last Entry Num         
DTPOSIT  DS    F                         List panel Position                    
* --------------------------------------------------------------------          
* Member Attribute.                                                             
*  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                                           
ATTR_CUR EQU   X'01'                                                            
ATTR_REC EQU   X'02'                                                            
ATTR_EXT EQU   X'03'                                                            
ATTR_ERR EQU   X'04'                                                            
ATTR_MRK EQU   X'05'                                                            
ATTR_INP EQU   X'06'                                                            
ATTR_BDR EQU   X'07'                                                            
ATTR_DOK EQU   X'08'                                                            
ATTR_DNG EQU   X'09'                                                            
*                                                                               
FLAG     DS    XL1                                                              
*                                                                               
*              '........'                                                       
*                      + :(x'01') Lost Chain. Add to List.                      
*                     +  :(x'02') Found Searching Strings or                    
*                                  No Search Strinngs                           
*                    +   :(x'04') Member Exist.                                 
*                   +    :(x'08') Over DS1LSTAR Fields.                         
*                  +     :(x'10') DS1LSTAR Border Line.                         
*                 +      :(x'20') Now Overed DS1LSTAR Line.                     
*                +       :(x'40') Used Analyze Screen.                          
*               +        :(x'80') Un Use                                        
         DS    XL1                                                              
* --------------------------------------------------------------------          
* Record Format.                                                                
RECFM_U  EQU   X'C0'                                                            
RECFM_F  EQU   X'80'                                                            
RECFM_V  EQU   X'40'                                                            
RECFM_B  EQU   X'10'                                                            
RECFM_S  EQU   X'08'                                                            
RECFM_A  EQU   X'04'                                                            
RECFM_M  EQU   X'02'                                                            
* --- ISPF Variable define table ---                                            
RV1ISPFN DC    V(RV1ISPF)                                                       
RV1ISPFL DC    V(RV1VLEN)                                                       
RV1ISPFT DC    V(RV1VTYP)                                                       
RV1ISPFA DC    V(RV1VADR)                                                       
ISPVENDM DC    XL8'FFFFFFFFFFFFFFFF'                                            
* --------------------------------------------------------------------          
DTLENGTH EQU   4096                      Data Area Table Length                 
*QUERYL  DC    F'67'                                                            
*V1DAREAN DC   CL8'RV1DAREA'             List Panel Dynamic Area Name           
*V1DAREA DS    32CL80                    List Panel Dynamic Area Dummy          
*        DS    XL1                                                              
WK#H     DS    H                                                                
*K#F     DS    F                                                                
* - RV1#FMTB -------------------------------------------------------            
FMTTBLN  DC    H'50'                     Dataset DCB Check Table Num            
*                                        (24x50=1200 byte)                      
FMTTBLP  DS    H                         Dataset DCB Check Table Pos            
FMTTBLA  DS    F                         Dataset DCB Check Table Adr            
* ------------------------------------------------------------------            
RV1DAREAN DC   CL8'RV1DAREA'             List Panel Dynamic Area Name           
RV1DAREAT DC   CL8'CHAR    '             List Panel Dynamic Area Name           
* --- RV1DAREAA and RV1DAREAA is Update from RV1#MAIN-@PQUERY Section.          
RV1DAREAA DS   A(0) <- RV1DAREA          List Panel Dynamic Area Name           
RV1DAREAL DS   F'8'                      List Panel Dynamic Area Name           
* ------------------------------------------------------------------            
RV1EDS   DS    CL46                      Extract Dataset Name                   
RV1EDS_E EQU   *                                                                
RV1EMN   DS    CL8                       Extract Member Name                    
RV1EVO   DS    CL6                       Extract Volume Serial                  
RV1ESP   DS    CL3                       Extract Space Units                    
         DS    CL1                                                              
RV1ESQ1  DS    XL4                       Extract Primary Quantity               
RV1ESQ2  DS    XL4                       Extract Secondary Quantity             
RV1ESPD  DS    XL4                       Extract Directory Blocks               
RV1ERF   DS    CL3                       Extract Record Format                  
         DS    CL1                                                              
RV1ERL   DS    H                         Extract Record Length                  
RV1EBS   DS    H                         Extract Block Size                     
RV1DTTL  DS    CL80                                                             
* ------------------------------------------------------------------            
*        DS    XL2                       Reserved                               
B#ADP    DS    XL4                       Data area First Address                
* ------------------------------------------------------------------            
*        Revive Dataset Information Common Area                                 
*          Refferd : RV1#MAIN, RV1#DSI                                          
* ------------------------------------------------------------------            
*V1DSID  CSECT                                                                  
RV1DSIS  EQU   *                                                                
*#JFCB   DS    F                         JFCB Address                           
A#PDSF   DS    F                         PDSF DCB Address                       
O#VOL    DS    CL6                       Volume Serial                          
O#ASP    DS    CL17                      Dataset Start Physical Address         
         DS    CL1                       Reserved                               
*                                                                               
O#DBLK   DS    F                         Directory Block#                       
O#ADP    DS    CL17                      Data Start Physical Address            
         DS    CL1                       Reserved                               
O#ADP2   DS    CL6                       Data Start Logical Address             
O#AUP    DS    CL17                      Unused Area Physical Address           
         DS    CL1                       Reserved                               
O#AUP2   DS    CL6                       Unused Area Logical Address            
O#AEP    DS    CL17                      End of Data Physical Address           
         DS    CL1                       Reserved                               
O#AEP2   DS    CL6                       End of Data Logical Address            
O#RECFM  DS    CL3                       Recfm                                  
         DS    CL1                       Reserved                               
*#LRECL  DS    H                         Lrecl                                  
*#BLKSZ  DS    H                         Block Size                             
O#DEVT   DS    CL4                       Device Type                            
O#EXT    DS    XL1                       Extent                                 
         DS    CL1                       Reserved                               
O#MEM    DS    F                         Member                                 
O#ALC    DS    F                         Member                                 
O#USE    DS    H                         Allocated Track                        
O#CRE    DS    CL6                       Used Percent                           
O#EXP    DS    CL6                       Creation Date                          
O#SYSCD  DS    CL13                      Expiration Date                        
         DS    CL1                       Reserved                               
O#EXTENT DS    0X                                                               
O#L1     DS    CL8                       Extent 1 Low Address                   
O#H1     DS    CL8                       Extent 1 high Address                  
O#L2     DS    CL8                       Extent 2 Low Address                   
O#H2     DS    CL8                       Extent 2 high Address                  
O#L3     DS    CL8                       Extent 3 Low Address                   
O#H3     DS    CL8                       Extent 3 high Address                  
O#L4     DS    CL8                       Extent 4 Low Address                   
O#H4     DS    CL8                       Extent 4 high Address                  
O#L5     DS    CL8                       Extent 5 Low Address                   
O#H5     DS    CL8                       Extent 5 high Address                  
O#L6     DS    CL8                       Extent 6 Low Address                   
O#H6     DS    CL8                       Extent 6 high Address                  
O#L7     DS    CL8                       Extent 7 Low Address                   
O#H7     DS    CL8                       Extent 7 high Address                  
O#L8     DS    CL8                       Extent 8 Low Address                   
O#H8     DS    CL8                       Extent 8 high Address                  
O#L9     DS    CL8                       Extent 9 Low Address                   
O#H9     DS    CL8                       Extent 9 high Address                  
O#L10    DS    CL8                       Extent 10 Low Address                  
O#H10    DS    CL8                       Extent 10 high Address                 
O#L11    DS    CL8                       Extent 11 Low Address                  
O#H11    DS    CL8                       Extent 11 high Address                 
O#L12    DS    CL8                       Extent 12 Low Address                  
O#H12    DS    CL8                       Extent 12 high Address                 
O#L13    DS    CL8                       Extent 13 Low Address                  
O#H13    DS    CL8                       Extent 13 high Address                 
O#L14    DS    CL8                       Extent 14 Low Address                  
O#H14    DS    CL8                       Extent 14 high Address                 
O#L15    DS    CL8                       Extent 15 Low Address                  
O#H15    DS    CL8                       Extent 15 high Address                 
O#L16    DS    CL8                       Extent 16 Low Address                  
O#H16    DS    CL8                       Extent 16 high Address                 
O#EXTENTL EQU  *-O#EXTENT                                                       
*#M      DS    CL8                       Table - Member Name                    
*#D      DS    CL60                      Table - Data ( First 60 Byte )         
*#TTR    DS    CL6                       Table - TTR ( Character )              
*#TTRB   DS    XL4                       Table - TTR ( Binary )                 
*#LEN    DS    F                         Table - Block                          
*#MBCHR  DS    XL8                       Table - ?                              
* ------------------------------------------------------------------            
B#EXTENT DS    0X                                                               
B#L1     DS    XL4                       Extent 1 Low Address Binary            
B#H1     DS    XL4                       Extent 1 high Address Binary           
B#L2     DS    XL4                       Extent 2 Low Address Binary            
B#H2     DS    XL4                       Extent 2 high Address Binary           
B#L3     DS    XL4                       Extent 3 Low Address Binary            
B#H3     DS    XL4                       Extent 3 high Address Binary           
B#L4     DS    XL4                       Extent 4 Low Address Binary            
B#H4     DS    XL4                       Extent 4 high Address Binary           
B#L5     DS    XL4                       Extent 5 Low Address Binary            
B#H5     DS    XL4                       Extent 5 high Address Binary           
B#L6     DS    XL4                       Extent 6 Low Address Binary            
B#H6     DS    XL4                       Extent 6 high Address Binary           
B#L7     DS    XL4                       Extent 7 Low Address Binary            
B#H7     DS    XL4                       Extent 7 high Address Binary           
B#L8     DS    XL4                       Extent 8 Low Address Binary            
B#H8     DS    XL4                       Extent 8 high Address Binary           
B#L9     DS    XL4                       Extent 9 Low Address Binary            
B#H9     DS    XL4                       Extent 9 high Address Binary           
B#L10    DS    XL4                       Extent 10 Low Address Binary           
B#H10    DS    XL4                       Extent 10 high Address Binary          
B#L11    DS    XL4                       Extent 11 Low Address Binary           
B#H11    DS    XL4                       Extent 11 high Address Binary          
B#L12    DS    XL4                       Extent 12 Low Address Binary           
B#H12    DS    XL4                       Extent 12 high Address Binary          
B#L13    DS    XL4                       Extent 13 Low Address Binary           
B#H13    DS    XL4                       Extent 13 high Address Binary          
B#L14    DS    XL4                       Extent 14 Low Address Binary           
B#H14    DS    XL4                       Extent 14 high Address Binary          
B#L15    DS    XL4                       Extent 15 Low Address Binary           
B#H15    DS    XL4                       Extent 15 high Address Binary          
B#L16    DS    XL4                       Extent 16 Low Address Binary           
B#H16    DS    XL4                       Extent 16 high Address Binary          
B#EXTENTL EQU  *-B#EXTENT                                                       
B#DSORG  DS    BL1                       Dataset Organization                   
B#RECFM  DS    BL1                       Record Format                          
B#BLKSZ  DS    BL2                       Block Size                             
B#LRECL  DS    BL2                       Logical Record Length                  
* ------------------------------------------------------------------            
B#TRK#   DS    H                         Number of Track                        
*                                         in a logical Cylindar                 
B#CYL#   DS    H                         Number of Logical Cylindar             
B#ETTR   DS    XL4                       Last Ussed Track                       
B#ECHR   DS    XL8                       Last Ussed Track(Real Address)         
B#TTTR   DS    XL4                       Last Alloc Track                       
B#TCHR   DS    XL8                       Last Alloc Track(Real Address)         
B#TALC   DS    F                         Allocation Tracks#                     
* ------------------------------------------------------------------            
RV1DSIDL EQU   *-RV1DSIS                 Length                                 
