         MACRO                                                                  
&NAME    RV1#ISPV &SECTTYP=DSECT                                                
         AIF   ('&SECTTYP' EQ 'CSECT').NCST                                     
         AIF   ('&SECTTYP' EQ 'DSECT').NDST                                     
         MNOTE 8,'SHOULD SET SECTTYP CSECT OR DSECT.'                           
         AGO   .ISPVEXIT                                                        
.NCST    ANOP                                                                   
RV1ISPF  CSECT                                                                  
         AGO   .NEXIT                                                           
.NDST    ANOP                                                                   
RV1ISPF  DSECT                                                                  
         AGO   .NEXIT                                                           
.NEXIT   ANOP                                                                   
* ------------------------------------------------------------------            
*        ISPF Variable Define                                                   
* ------------------------------------------------------------------            
ISPVNM   DS    0CL8                      Based R07                              
RVVN     DC    CL8'RVV     '             Revive! Version                        
REVDN    DC    CL8'REVD    '             Revive! Fixed Date                     
REVCN    DC    CL8'REVC    '             Revive! Compile Date                   
RV1DSNN  DC    CL8'RV1DSN  '             Input Dataset Name                     
RV1DSNCN DC    CL8'RV1DSNC '             Input Dataset Name                     
RV1VOLN  DC    CL8'RV1VOL  '             Input Dataset Volume Serial            
RV1TVOLN DC    CL8'RV1TVOL '             Target Dataset Volume Serial           
RV1EXTON DC    CL8'RV1EXTO '             Extended Scan Option                   
RV1ADDCN DC    CL8'RV1ADDC '             Add Current Members Flag               
RV1DISPN DC    CL8'RV1DISP '             Input Dataset Disposition              
RV1TBSPN DC    CL8'RV1TBSP '             Directory Table Size                   
RV1SSTRN DC    CL8'RV1SSTR '             Search String                          
ZPREFIXN DC    CL8'ZPREFIX '             TSO Prefix                             
RV1PRCN  DC    CL8'RV1PRC  '             Process Flag                           
RV1EXTCN DC    CL8'RV1EXTC '             Extent Process Flag                    
O#VOLN   DC    CL8'O#VOL   '             Volume Serial                          
O#ASPN   DC    CL8'O#ASP   '             Dataset Start Physical Address         
O#DBLKN  DC    CL8'O#DBLK  '             Directory Block#                       
O#ADPN   DC    CL8'O#ADP   '             Data Start Physical Address            
O#ADP2N  DC    CL8'O#ADP2  '             Data Start Logical Address             
O#AUPN   DC    CL8'O#AUP   '             Unused Area Physical Address           
O#AUP2N  DC    CL8'O#AUP2  '             Unused Area Logical Address            
O#AEPN   DC    CL8'O#AEP   '             End of Data Physical Address           
O#AEP2N  DC    CL8'O#AEP2  '             End of Data Logical Address            
O#RECFMN DC    CL8'O#RECFM '             Recfm                                  
B#LRECLN DC    CL8'B#LRECL '             Lrecl                                  
B#BLKSZN DC    CL8'B#BLKSZ '             Block Size                             
O#DEVTN  DC    CL8'O#DEVT  '             Device Type                            
O#EXTN   DC    CL8'O#EXT   '             Extent                                 
O#MEMN   DC    CL8'O#MEM   '             Member                                 
O#ALCN   DC    CL8'O#ALC   '             Allocated Track                        
O#USEN   DC    CL8'O#USE   '             Used Percent                           
O#CREN   DC    CL8'O#CRE   '             Creation Date                          
O#EXPN   DC    CL8'O#EXP   '             Expiration Date                        
O#SYSCDN DC    CL8'O#SYSCD '             System Code                            
O#L1N    DC    CL8'O#L1    '             Extent 1 Low Address                   
O#H1N    DC    CL8'O#H1    '             Extent 1 high Address                  
O#L2N    DC    CL8'O#L2    '             Extent 2 Low Address                   
O#H2N    DC    CL8'O#H2    '             Extent 2 high Address                  
O#L3N    DC    CL8'O#L3    '             Extent 3 Low Address                   
O#H3N    DC    CL8'O#H3    '             Extent 3 high Address                  
O#L4N    DC    CL8'O#L4    '             Extent 4 Low Address                   
O#H4N    DC    CL8'O#H4    '             Extent 4 high Address                  
O#L5N    DC    CL8'O#L5    '             Extent 5 Low Address                   
O#H5N    DC    CL8'O#H5    '             Extent 5 high Address                  
O#L6N    DC    CL8'O#L6    '             Extent 6 Low Address                   
O#H6N    DC    CL8'O#H6    '             Extent 6 high Address                  
O#L7N    DC    CL8'O#L7    '             Extent 7 Low Address                   
O#H7N    DC    CL8'O#H7    '             Extent 7 high Address                  
O#L8N    DC    CL8'O#L8    '             Extent 8 Low Address                   
O#H8N    DC    CL8'O#H8    '             Extent 8 high Address                  
O#L9N    DC    CL8'O#L9    '             Extent 9 Low Address                   
O#H9N    DC    CL8'O#H9    '             Extent 9 high Address                  
O#L10N   DC    CL8'O#L10   '             Extent 10 Low Address                  
O#H10N   DC    CL8'O#H10   '             Extent 10 high Address                 
O#L11N   DC    CL8'O#L11   '             Extent 11 Low Address                  
O#H11N   DC    CL8'O#H11   '             Extent 11 high Address                 
O#L12N   DC    CL8'O#L12   '             Extent 12 Low Address                  
O#H12N   DC    CL8'O#H12   '             Extent 12 high Address                 
O#L13N   DC    CL8'O#L13   '             Extent 13 Low Address                  
O#H13N   DC    CL8'O#H13   '             Extent 13 high Address                 
O#L14N   DC    CL8'O#L14   '             Extent 14 Low Address                  
O#H14N   DC    CL8'O#H14   '             Extent 14 high Address                 
O#L15N   DC    CL8'O#L15   '             Extent 15 Low Address                  
O#H15N   DC    CL8'O#H15   '             Extent 15 high Address                 
O#L16N   DC    CL8'O#L16   '             Extent 16 Low Address                  
O#H16N   DC    CL8'O#H16   '             Extent 16 high Address                 
RV1EDSN  DC    CL8'RV1EDS  '             Extract Dataset Name                   
RV1EDMN  DC    CL8'RV1EMN  '             Extract Member Name                    
RV1EVON  DC    CL8'RV1EVO  '             Extract Volume Serial                  
RV1ESPN  DC    CL8'RV1ESP  '             Extract Space Units                    
RV1ESQ1N DC    CL8'RV1ESQ1 '             Extract Primary Quantity               
RV1ESQ2N DC    CL8'RV1ESQ2 '             Extract Secondary Quantity             
RV1ESPDN DC    CL8'RV1ESPD '             Extract Directory Blocks               
RV1ERFN  DC    CL8'RV1ERF  '             Extract Record Format                  
RV1ERLN  DC    CL8'RV1ERL  '             Extract Record Length                  
RV1EBSN  DC    CL8'RV1EBS  '             Extract Block Size                     
VDEPTHN  DC    CL8'VDEPTH  '             List Panel Dynamic Area Depth          
VWIDTHN  DC    CL8'VWIDTH  '             List Panel Dynamic Area Width          
VROWN    DC    CL8'VROW    '             List Panel Dynamic Area Row            
VCOLN    DC    CL8'VCOL    '             List Panel Dynamic Area Column         
VTYPEN   DC    CL8'VTYPE   '             List Panel Dynamic Area Type           
ZSCROLAN DC    CL8'ZSCROLLA'             Scroll AMT ( HALF,MAX,...)             
ZSCROLNN DC    CL8'ZSCROLLN'             Scroll Lines                           
ZVERBN   DC    CL8'ZVERB   '             Command Verb                           
ZERRMSGN DC    CL8'ZERRMSG '             ISPF Error Message ID                  
RV1DTTLN DC    CL8'RV1DTTL '             Revive! List Title Area                
REVTRCN  DC    CL8'REVTRC  '             Revive! Trace option                   
TRCMESN  DC    CL8'TRCMES  '             Revive! Trace Message                  
TRCMESSN DC    CL8'TRCMESS '             Revive! Trace Message Short            
*                                                                               
ENDMARK  DC    XL8'FFFFFFFFFFFFFFFF'     VDEFINE Table End Mark                 
*                                                                               
*SPVNML  EQU   *-ISPVNM                                                         
*SPVNME  EQU   *                                                                
* ------------------------------------------------------------------            
*        ISPF Variable Length                                                   
* ------------------------------------------------------------------            
         AIF   ('&SECTTYP' EQ 'CSECT').LCST                                     
         AIF   ('&SECTTYP' EQ 'DSECT').LDST                                     
.LCST    ANOP                                                                   
RV1VLEN  CSECT                                                                  
         AGO   .LEXIT                                                           
.LDST    ANOP                                                                   
RV1VLEN  DSECT                                                                  
         AGO   .LEXIT                                                           
.LEXIT   ANOP                                                                   
*SPVLEN  DS    0F                        Based R08                              
RVVL     DC    F'6'                      Revive! Version                        
REVDL    DC    F'14'                     Revive! Fixed Date                     
REVCL    DC    F'14'                     Revive! Compile Date                   
RV1DSNL  DC    F'46'                     Input Dataset Name                     
RV1DSNCL DC    F'44'                     Input Dataset Name                     
RV1VOLL  DC    F'6'                      Input Dataset Volume Serial            
RV1TVOLL DC    F'6'                      Target Dataset Volume Serial           
RV1EXTOL DC    F'1'                      Extended Scan Option                   
RV1ADDCL DC    F'1'                      Add Current Members Flag               
RV1DISPL DC    F'1'                      Input Dataset Disposition              
RV1TBSPL2 DC   F'4'                      Directory Table Size                   
RV1SSTRL2 DC   F'50'                     Search String                          
ZPREFIXL DC    F'8'                      TSO Prefix                             
RV1PRCL  DC    F'3'                      Process Flag                           
RV1EXTCL DC    F'1'                      Extent Process Flag                    
O#VOLL   DC    F'6'                      Volume Serial                          
O#ASPL   DC    F'17'                     Dataset Start Physical Address         
O#DBLKL  DC    F'4'                      Directory Block#                       
O#ADPL   DC    F'17'                     Data Start Physical Address            
O#ADP2L  DC    F'6'                      Data Start Logical Address             
O#AUPL   DC    F'17'                     Unused Area Physical Address           
O#AUP2L  DC    F'6'                      Unused Area Logical Address            
O#AEPL   DC    F'17'                     End of Data Physical Address           
O#AEP2L  DC    F'6'                      End of Data Logical Address            
O#RECFML DC    F'3'                      Recfm                                  
B#LRECLL DC    F'2'                      Lrecl                                  
B#BLKSZL DC    F'2'                      Block Size                             
O#DEVTL  DC    F'4'                      Device Type                            
O#EXTL   DC    F'1'                      Extent                                 
O#MEML   DC    F'4'                      Member                                 
O#ALCL   DC    F'4'                      Allocated Track                        
O#USEL   DC    F'2'                      Used Percent                           
O#CREL   DC    F'6'                      Creation Date                          
O#EXPL   DC    F'6'                      Expiration Date                        
O#SYSCDL DC    F'13'                     System Code                            
O#L1L    DC    F'8'                      Extent 1 Low Address                   
O#H1L    DC    F'8'                      Extent 1 high Address                  
O#L2L    DC    F'8'                      Extent 2 Low Address                   
O#H2L    DC    F'8'                      Extent 2 high Address                  
O#L3L    DC    F'8'                      Extent 3 Low Address                   
O#H3L    DC    F'8'                      Extent 3 high Address                  
O#L4L    DC    F'8'                      Extent 4 Low Address                   
O#H4L    DC    F'8'                      Extent 4 high Address                  
O#L5L    DC    F'8'                      Extent 5 Low Address                   
O#H5L    DC    F'8'                      Extent 5 high Address                  
O#L6L    DC    F'8'                      Extent 6 Low Address                   
O#H6L    DC    F'8'                      Extent 6 high Address                  
O#L7L    DC    F'8'                      Extent 7 Low Address                   
O#H7L    DC    F'8'                      Extent 7 high Address                  
O#L8L    DC    F'8'                      Extent 8 Low Address                   
O#H8L    DC    F'8'                      Extent 8 high Address                  
O#L9L    DC    F'8'                      Extent 9 Low Address                   
O#H9L    DC    F'8'                      Extent 9 high Address                  
O#L10L   DC    F'8'                      Extent 10 Low Address                  
O#H10L   DC    F'8'                      Extent 10 high Address                 
O#L11L   DC    F'8'                      Extent 11 Low Address                  
O#H11L   DC    F'8'                      Extent 11 high Address                 
O#L12L   DC    F'8'                      Extent 12 Low Address                  
O#H12L   DC    F'8'                      Extent 12 high Address                 
O#L13L   DC    F'8'                      Extent 13 Low Address                  
O#H13L   DC    F'8'                      Extent 13 high Address                 
O#L14L   DC    F'8'                      Extent 14 Low Address                  
O#H14L   DC    F'8'                      Extent 14 high Address                 
O#L15L   DC    F'8'                      Extent 15 Low Address                  
O#H15L   DC    F'8'                      Extent 15 high Address                 
O#L16L   DC    F'8'                      Extent 16 Low Address                  
O#H16L   DC    F'8'                      Extent 16 high Address                 
RV1EDSL  DC    F'46'                     Extract Dataset Name                   
RV1EMNL  DC    F'8'                      Extract Member Name                    
RV1EVOL  DC    F'6'                      Extract Volume Serial                  
RV1ESPL  DC    F'3'                      Extract Space Units                    
RV1ESQ1L DC    F'4'                      Extract Primary Quantity               
RV1ESQ2L DC    F'4'                      Extract Secondary Quantity             
RV1ESPDL DC    F'4'                      Extract Directory Blocks               
RV1ERFL  DC    F'3'                      Extract Record Format                  
RV1ERLL  DC    F'2'                      Extract Record Length                  
RV1EBSL  DC    F'2'                      Extract Block Size                     
VDEPTHL  DC    F'4'                      List Panel Dynamic Area Depth          
VWIDTHL  DC    F'4'                      List Panel Dynamic Area Width          
VROWL    DC    F'4'                      List Panel Dynamic Area Row            
VCOLL    DC    F'4'                      List Panel Dynamic Area Column         
VTYPEL   DC    F'8'                      List Panel Dynamic Area Type           
ZSCROLAL DC    F'4'                      Scroll AMT ( HALF,MAX,...)             
ZSCROLNL DC    F'4'                      Scroll Lines                           
ZVERBL   DC    F'8'                      Command Verb                           
ZERRMSGL DC    F'8'                      ISPF Error Message ID                  
RV1DTTLL DC    F'80'                     Revive! List Title Area                
REVTRCL  DC    F'3'                      Revive! Trace Option                   
TRCMESL  DC    F'80'                     Revive! Trace Message                  
TRCMESSL DC    F'20'                     Revive! Trace Message Short            
* ------------------------------------------------------------------            
*        ISPF Variable Type                                                     
* ------------------------------------------------------------------            
         AIF   ('&SECTTYP' EQ 'CSECT').TCST                                     
         AIF   ('&SECTTYP' EQ 'DSECT').TDST                                     
.TCST    ANOP                                                                   
RV1VTYP  CSECT                                                                  
         AGO   .TEXIT                                                           
.TDST    ANOP                                                                   
RV1VTYP  DSECT                                                                  
         AGO   .TEXIT                                                           
.TEXIT   ANOP                                                                   
*SPVTYP  DS    0CL8                      Based R09                              
RVVT     DC    CL8'CHAR    '             Revive! Version                        
REVDT    DC    CL8'CHAR    '             Revive! Fixed Date                     
REVCT    DC    CL8'CHAR    '             Revive! Compile Date                   
RV1DSNT  DC    CL8'CHAR    '             Input Dataset Name                     
RV1DSNCT DC    CL8'CHAR    '             Input Dataset Name                     
RV1VOLT  DC    CL8'CHAR    '             Input Dataset Volume Serial            
RV1TVOLT DC    CL8'CHAR    '             Target Dataset Volume Serial           
RV1EXTOT DC    CL8'CHAR    '             Extended Scan Option                   
RV1ADDCT DC    CL8'CHAR    '             Add Current Members Flag               
RV1DISPT DC    CL8'CHAR    '             Input Dataset Disposition              
RV1TBSPT DC    CL8'FIXED   '             Directory Table Size                   
RV1SSTRT DC    CL8'CHAR    '             Search String                          
ZPREFIXT DC    CL8'CHAR    '             TSO Prefix                             
RV1PRCT  DC    CL8'CHAR    '             Process Flag                           
RV1EXTCT DC    CL8'FIXED   '             Extent Process Flag                    
O#VOLT   DC    CL8'CHAR    '             Volume Serial                          
O#ASPT   DC    CL8'CHAR    '             Dataset Start Physical Address         
O#DBLKT  DC    CL8'FIXED   '             Directory Block#                       
O#ADPT   DC    CL8'CHAR    '             Data Start Physical Address            
O#ADP2T  DC    CL8'CHAR    '             Data Start Logical Address             
O#AUPT   DC    CL8'CHAR    '             Unused Area Physical Address           
O#AUP2T  DC    CL8'CHAR    '             Unused Area Logical Address            
O#AEPT   DC    CL8'CHAR    '             End of Data Physical Address           
O#AEP2T  DC    CL8'CHAR    '             End of Data Logical Address            
O#RECFMT DC    CL8'CHAR    '             Recfm                                  
B#LRECLT DC    CL8'FIXED   '             Lrecl                                  
B#BLKSZT DC    CL8'FIXED   '             Block Size                             
O#DEVTT  DC    CL8'CHAR    '             Device Type                            
O#EXTT   DC    CL8'FIXED   '             Extent                                 
O#MEMT   DC    CL8'FIXED   '             Member                                 
O#ALCT   DC    CL8'FIXED   '             Allocated Track                        
O#USET   DC    CL8'FIXED   '             Used Percent                           
O#CRET   DC    CL8'CHAR    '             Creation Date                          
O#EXPT   DC    CL8'CHAR    '             Expiration Date                        
O#SYSCDT DC    CL8'CHAR    '             System Code                            
O#L1T    DC    CL8'CHAR    '             Extent 1 Low Address                   
O#H1T    DC    CL8'CHAR    '             Extent 1 high Address                  
O#L2T    DC    CL8'CHAR    '             Extent 2 Low Address                   
O#H2T    DC    CL8'CHAR    '             Extent 2 high Address                  
O#L3T    DC    CL8'CHAR    '             Extent 3 Low Address                   
O#H3T    DC    CL8'CHAR    '             Extent 3 high Address                  
O#L4T    DC    CL8'CHAR    '             Extent 4 Low Address                   
O#H4T    DC    CL8'CHAR    '             Extent 4 high Address                  
O#L5T    DC    CL8'CHAR    '             Extent 5 Low Address                   
O#H5T    DC    CL8'CHAR    '             Extent 5 high Address                  
O#L6T    DC    CL8'CHAR    '             Extent 6 Low Address                   
O#H6T    DC    CL8'CHAR    '             Extent 6 high Address                  
O#L7T    DC    CL8'CHAR    '             Extent 7 Low Address                   
O#H7T    DC    CL8'CHAR    '             Extent 7 high Address                  
O#L8T    DC    CL8'CHAR    '             Extent 8 Low Address                   
O#H8T    DC    CL8'CHAR    '             Extent 8 high Address                  
O#L9T    DC    CL8'CHAR    '             Extent 9 Low Address                   
O#H9T    DC    CL8'CHAR    '             Extent 9 high Address                  
O#L10T   DC    CL8'CHAR    '             Extent 10 Low Address                  
O#H10T   DC    CL8'CHAR    '             Extent 10 high Address                 
O#L11T   DC    CL8'CHAR    '             Extent 11 Low Address                  
O#H11T   DC    CL8'CHAR    '             Extent 11 high Address                 
O#L12T   DC    CL8'CHAR    '             Extent 12 Low Address                  
O#H12T   DC    CL8'CHAR    '             Extent 12 high Address                 
O#L13T   DC    CL8'CHAR    '             Extent 13 Low Address                  
O#H13T   DC    CL8'CHAR    '             Extent 13 high Address                 
O#L14T   DC    CL8'CHAR    '             Extent 14 Low Address                  
O#H14T   DC    CL8'CHAR    '             Extent 14 high Address                 
O#L15T   DC    CL8'CHAR    '             Extent 15 Low Address                  
O#H15T   DC    CL8'CHAR    '             Extent 15 high Address                 
O#L16T   DC    CL8'CHAR    '             Extent 16 Low Address                  
O#H16T   DC    CL8'CHAR    '             Extent 16 high Address                 
RV1EDST  DC    CL8'CHAR    '             Extract Dataset Name                   
RV1EMNT  DC    CL8'CHAR    '             Extract Member Name                    
RV1EVOT  DC    CL8'CHAR    '             Extract Volume Serial                  
RV1ESPT  DC    CL8'CHAR    '             Extract Space Units                    
RV1ESQ1T DC    CL8'FIXED   '             Extract Primary Quantity               
RV1ESQ2T DC    CL8'FIXED   '             Extract Secondary Quantity             
RV1ESPDT DC    CL8'FIXED   '             Extract Directory Blocks               
RV1ERFT  DC    CL8'CHAR    '             Extract Record Format                  
RV1ERLT  DC    CL8'FIXED   '             Extract Record Length                  
RV1EBST  DC    CL8'FIXED   '             Extract Block Size                     
VDEPTHT  DC    CL8'FIXED   '             List Panel Dynamic Area Depth          
VWIDTHT  DC    CL8'FIXED   '             List Panel Dynamic Area Width          
VROWT    DC    CL8'FIXED   '             List Panel Dynamic Area Row            
VCOLT    DC    CL8'FIXED   '             List Panel Dynamic Area Column         
VTYPET   DC    CL8'CHAR    '             List Panel Dynamic Area Type           
ZSCROLAT DC    CL8'CHAR    '             Scroll AMT ( HALF,MAX,...)             
ZSCROLNT DC    CL8'FIXED   '             Scroll Lines                           
ZVERBT   DC    CL8'CHAR    '             Command Verb                           
ZERRMSGT DC    CL8'CHAR    '             ISPF Error Message ID                  
RV1DTTLT DC    CL8'CHAR    '             Revive! List Title Area                
REVTRCT  DC    CL8'CHAR    '             Revive! Trace Option                   
TRCMEST  DC    CL8'CHAR    '             Revive! Trace Message                  
TRCMESST DC    CL8'CHAR    '             Revive! Trace Message Short            
* ------------------------------------------------------------------            
*        ISPF Variable Address                                                  
* ------------------------------------------------------------------            
         AIF   ('&SECTTYP' EQ 'CSECT').ACST                                     
         AIF   ('&SECTTYP' EQ 'DSECT').ADST                                     
.ACST    ANOP                                                                   
RV1VADR  CSECT                                                                  
         AGO   .AEXIT                                                           
.ADST    ANOP                                                                   
RV1VADR  DSECT                                                                  
         AGO   .AEXIT                                                           
.AEXIT   ANOP                                                                   
*SPVADR  DS    0A                        Based R10                              
RVVA     DC    A(RVV)                    Revive! Version                        
REVDA    DC    A(REVD)                   Revive! Fixed Date                     
REVCA    DC    A(REVC)                   Revive! Compile Date                   
RV1DSNA  DC    A(RV1DSN)                 Input Dataset Name                     
RV1DSNCA DC    A(RV1DSNC)                Input Dataset Name                     
RV1VOLA  DC    A(RV1VOL)                 Input Dataset Volume Serial            
RV1TVOLA DC    A(RV1TVOL)                Target Dataset Volume Serial           
RV1EXTOA DC    A(RV1EXTO)                Extended Scan Option                   
RV1ADDCA DC    A(RV1ADDC)                Add Current Members Flag               
RV1DISPA DC    A(RV1DISP)                Input Dataset Disposition              
RV1TBSPA2 DC   A(RV1TBSP)                Directory Table Size                   
RV1SSTRA DC    A(RV1SSTR)                Search String                          
ZPREFIXA DC    A(ZPREFIX)                TSO Prefix                             
RV1PRCA  DC    A(RV1PRC)                 Process Flag                           
RV1EXTCA DC    A(RV1EXTC)                Extent Process Flag                    
O#VOLA   DC    A(O#VOL)                  Volume Serial                          
O#ASPA   DC    A(O#ASP)                  Dataset Start Physical Address         
O#DBLKA  DC    A(O#DBLK)                 Directory Block#                       
O#ADPA   DC    A(O#ADP)                  Data Start Physical Address            
O#ADP2A  DC    A(O#ADP2)                 Data Start Logical Address             
O#AUPA   DC    A(O#AUP)                  Unused Area Physical Address           
O#AUP2A  DC    A(O#AUP2)                 Unused Area Logical Address            
O#AEPA   DC    A(O#AEP)                  End of Data Physical Address           
O#AEP2A  DC    A(O#AEP2)                 End of Data Logical Address            
O#RECFMA DC    A(O#RECFM)                Recfm                                  
B#LRECLA DC    A(B#LRECL)                Lrecl                                  
B#BLKSZA DC    A(B#BLKSZ)                Block Size                             
O#DEVTA  DC    A(O#DEVT)                 Device Type                            
O#EXTA   DC    A(O#EXT)                  Extent                                 
O#MEMA   DC    A(O#MEM)                  Member                                 
O#ALCA   DC    A(O#ALC)                  Allocated Track                        
O#USEA   DC    A(O#USE)                  Used Percent                           
O#CREA   DC    A(O#CRE)                  Creation Date                          
O#EXPA   DC    A(O#EXP)                  Expiration Date                        
O#SYSCDA DC    A(O#SYSCD)                System Code                            
O#L1A    DC    A(O#L1)                   Extent 1 Low Address                   
O#H1A    DC    A(O#H1)                   Extent 1 high Address                  
O#L2A    DC    A(O#L2)                   Extent 2 Low Address                   
O#H2A    DC    A(O#H2)                   Extent 2 high Address                  
O#L3A    DC    A(O#L3)                   Extent 3 Low Address                   
O#H3A    DC    A(O#H3)                   Extent 3 high Address                  
O#L4A    DC    A(O#L4)                   Extent 4 Low Address                   
O#H4A    DC    A(O#H4)                   Extent 4 high Address                  
O#L5A    DC    A(O#L5)                   Extent 5 Low Address                   
O#H5A    DC    A(O#H5)                   Extent 5 high Address                  
O#L6A    DC    A(O#L6)                   Extent 6 Low Address                   
O#H6A    DC    A(O#H6)                   Extent 6 high Address                  
O#L7A    DC    A(O#L7)                   Extent 7 Low Address                   
O#H7A    DC    A(O#H7)                   Extent 7 high Address                  
O#L8A    DC    A(O#L8)                   Extent 8 Low Address                   
O#H8A    DC    A(O#H8)                   Extent 8 high Address                  
O#L9A    DC    A(O#L9)                   Extent 9 Low Address                   
O#H9A    DC    A(O#H9)                   Extent 9 high Address                  
O#L10A   DC    A(O#L10)                  Extent 10 Low Address                  
O#H10A   DC    A(O#H10)                  Extent 10 high Address                 
O#L11A   DC    A(O#L11)                  Extent 11 Low Address                  
O#H11A   DC    A(O#H11)                  Extent 11 high Address                 
O#L12A   DC    A(O#L12)                  Extent 12 Low Address                  
O#H12A   DC    A(O#H12)                  Extent 12 high Address                 
O#L13A   DC    A(O#L13)                  Extent 13 Low Address                  
O#H13A   DC    A(O#H13)                  Extent 13 high Address                 
O#L14A   DC    A(O#L14)                  Extent 14 Low Address                  
O#H14A   DC    A(O#H14)                  Extent 14 high Address                 
O#L15A   DC    A(O#L15)                  Extent 15 Low Address                  
O#H15A   DC    A(O#H15)                  Extent 15 high Address                 
O#L16A   DC    A(O#L16)                  Extent 16 Low Address                  
O#H16A   DC    A(O#H16)                  Extent 16 high Address                 
RV1EDSA  DC    A(RV1EDS)                 Extract Dataset Name                   
RV1EMNA  DC    A(RV1EMN)                 Extract Member Name                    
RV1EVOA  DC    A(RV1EVO)                 Extract Volume Serial                  
RV1ESPA  DC    A(RV1ESP)                 Extract Space Units                    
RV1ESQ1A DC    A(RV1ESQ1)                Extract Primary Quantity               
RV1ESQ2A DC    A(RV1ESQ2)                Extract Secondary Quantity             
RV1ESPDA DC    A(RV1ESPD)                Extract Directory Blocks               
RV1ERFA  DC    A(RV1ERF)                 Extract Record Format                  
RV1ERLA  DC    A(RV1ERL)                 Extract Record Length                  
RV1EBSA  DC    A(RV1EBS)                 Extract Block Size                     
VDEPTHA  DC    A(VDEPTH)                 List Panel Dynamic Area Depth          
VWIDTHA  DC    A(VWIDTH)                 List Panel Dynamic Area Width          
VROWA    DC    A(VROW)                   List Panel Dynamic Area Row            
VCOLA    DC    A(VCOL)                   List Panel Dynamic Area Column         
VTYPEA   DC    A(VTYPE)                  List Panel Dynamic Area Type           
ZSCROLAA DC    A(ZSCROLLA)               Scroll AMT ( HALF,MAX,...)             
ZSCROLNA DC    A(ZSCROLLN)               Scroll Lines                           
ZVERBA   DC    A(ZVERB)                  Command Verb                           
ZERRMSGA DC    A(ZERRMSG)                ISPF Error Message Code                
RV1DTTLA DC    A(RV1DTTL)                Revive! List Title Area                
REVTRCA  DC    A(REVTRC)                 Revive! Trace Option                   
TRCMESA  DC    A(TRCMES)                 Revive! Trace Message                  
TRCMESSA DC    A(TRCMESS)                Revive! Trace Message Short            
.ISPVEXIT ANOP                                                                  
         MEND                                                                   
