SAVER   TITLE 'IPCS control block module'                                      
SAVER   CSECT ,                                                                
SAVER   AMODE 31                                                               
SAVER   RMODE ANY                                                              
*                                                                               
** Start of IPCS CB defs for DSECT SAVER                                        
*                                                                               
         BLSQMDEF CBLEN=SAVER_LEN,                                     +        
               PREFIX=3,                                               +        
               LBLSPC=20,                                              +        
               OFFSETS=PRINT,                                          +        
               HEADER=SaveArea                                                  
         BLSQMFLD NAME=SAVPLI,                                         +        
               OFF=SAVPLI-SAVER,                                       +        
               LEN=L'SAVPLI,                                           +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVPREV,                                        +        
               OFF=SAVPREV-SAVER,                                      +        
               LEN=L'SAVPREV,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVNEXT,                                        +        
               OFF=SAVNEXT-SAVER,                                      +        
               LEN=L'SAVNEXT,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS14,                                       +        
               OFF=SAVGRS14-SAVER,                                     +        
               LEN=L'SAVGRS14,                                         +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS15,                                       +        
               OFF=SAVGRS15-SAVER,                                     +        
               LEN=L'SAVGRS15,                                         +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS0,                                        +        
               OFF=SAVGRS0-SAVER,                                      +        
               LEN=L'SAVGRS0,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS1,                                        +        
               OFF=SAVGRS1-SAVER,                                      +        
               LEN=L'SAVGRS1,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS2,                                        +        
               OFF=SAVGRS2-SAVER,                                      +        
               LEN=L'SAVGRS2,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS3,                                        +        
               OFF=SAVGRS3-SAVER,                                      +        
               LEN=L'SAVGRS3,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS4,                                        +        
               OFF=SAVGRS4-SAVER,                                      +        
               LEN=L'SAVGRS4,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS5,                                        +        
               OFF=SAVGRS5-SAVER,                                      +        
               LEN=L'SAVGRS5,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS6,                                        +        
               OFF=SAVGRS6-SAVER,                                      +        
               LEN=L'SAVGRS6,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS7,                                        +        
               OFF=SAVGRS7-SAVER,                                      +        
               LEN=L'SAVGRS7,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS8,                                        +        
               OFF=SAVGRS8-SAVER,                                      +        
               LEN=L'SAVGRS8,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS9,                                        +        
               OFF=SAVGRS9-SAVER,                                      +        
               LEN=L'SAVGRS9,                                          +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS10,                                       +        
               OFF=SAVGRS10-SAVER,                                     +        
               LEN=L'SAVGRS10,                                         +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS11,                                       +        
               OFF=SAVGRS11-SAVER,                                     +        
               LEN=L'SAVGRS11,                                         +        
               VIEW=X'0200'                                                     
         BLSQMFLD NAME=SAVGRS12,                                       +        
               OFF=SAVGRS12-SAVER,                                     +        
               LEN=L'SAVGRS12,                                         +        
               VIEW=X'0200'                                                     
         BLSQMDEF END                                                           
*                                                                               
* DSECT to expand for offsets and lengths                                       
*                                                                               
        IHASAVER ,                                                              
*                                                                               
* End of module                                                                 
*                                                                               
        END   ,