A                                      CF01(99 'EXIT')                     
     A          R MENU                      TEXT('BACKUP MAINT MENU')           
     A                                  1 28'BACK UP FILE MAINTENANCE'          
     A                                      DSPATR(HI)                          
     A                                  3 10'1. DAILY'                          
     A  71                                  DSPATR(HI)                          
     A                                  4 10'2. WEEKLY'                         
     A  72                                  DSPATR(HI)                          
     A                                  5 10'3. MONTHLY'                        
     A  73                                  DSPATR(HI)                          
     A                                  6 10'4. SPECIAL'                        
     A  73                                  DSPATR(HI)                          
     A                                  8 10'SELECT ONE:'                       
     A            OPTION         1Y 0I   + 1DSPATR(CS) VALUES(0 1 2 3 4)        
     A  90                                  ERRMSG('Invalid value entered')     
     A                                 24  2'CMD 1- EXIT'                       
     A                                      DSPATR(HI)                          
~    A*                                                                         
~    A*                                                                         
     A          R INPUT                     TEXT('INPUT RECORD')                
     A                                      OVERLAY PROTECT                     
     A                                      CF11(98 'DELETE')                   
     A                                      ROLLUP(97 'ROLL UP')                
     A                                      ROLLDOWN(96 'ROLL DOWN')            
     A                                  1 28'BACK UP FILE MAINTENANCE'          
     A                                      DSPATR(HI)                          
     A  71                              2 31'DAILY BACKUP FILE'                 
     A                                      DSPATR(HI)                          
     A  72                              2 31'WEEKLY BACKUP FILE'                
     A                                      DSPATR(HI)                          
     A  73                              2 30'MONTHLY BACKUP FILE'               
     A                                      DSPATR(HI)                          
     A  74                              2 30'SPECIAL BACKUP FILE'               
     A                                      DSPATR(HI)                          
     A                                  3  2'SEARCH FOR LIBRARY NAME:'          
     A                                      DSPATR(HI)                          
     A            SEARCH        10   I   + 1                                    
     A                                  4  2'LIBRARY NAME:'                     
     A                                      DSPATR(HI)                          
     A            LIBNAM        10   B   + 1                                    
     A N79                                  DSPATR(PC)                          
     A  82                                  ERRMSG('* not valid at this time')  
     A  79                                  DSPATR(PR)                          
     A                                   + 1'(*'                                
     A                                      DSPATR(HI)                          
     A                                   + 1'FOR SELECTION DISPLAY)'            
     A N73                              5  2'SAVE CODE:  '                      
     A                                      DSPATR(HI)                          
     A N73        SAVCOD         1   B   + 1VALUES(' ' 'A' 'S')                 
     A  79                                  DSPATR(PC)                          
     A  80                                  ERRMSG('Invalid value entered')     
     A  81                                  ERRMSG('Value must be "S" if +      
     A                                      Object name not blank')             
     A N73                               + 1'(A= ALL, S= SELECT)'               
     A N73                              6  2'OBJECT NAME: '                     
     A                                      DSPATR(HI)                          
     A N73        OBJNAM        10   B   + 1                                    
     A  83                                  ERRMSG('Value if "A" then Object +  
     A                                      name must be blank')                
     A N73                               + 1'(*'                                
     A                                      DSPATR(HI)                          
     A N73                               + 1'FOR SELECTION DISPLAY)'            
~    A*                                                                         
~    A*                                                                         
     A          R INPCMD                                                        
     A                                      ERASE(LIBCTL)                       
     A                                      ERASE(LIBSFL)                       
     A                                      ERASE(OBJCTL)                       
     A                                      ERASE(OBJSFL)                       
     A                                      OVERLAY                             
     A                                      SLNO(24)                            
     A                                  1  2'CF1- EXIT'                         
     A                                      DSPATR(HI)                          
     A                                   + 3'CF11- DELETE ENTRY'                
     A                                      DSPATR(HI)                          
     A                                   + 3'ROLL UP/DOWN'                      
     A                                      DSPATR(HI)                          
~    A*                                                                         
~    A*                                                                         
     A          R CMDKEY                    OVERLAY                             
     A                                      SLNO(24)                            
     A                                  1  2'CMD1-EXIT'                         
     A                                      DSPATR(HI)                          
     A                                  1 14'"X"- SELECT'                       
     A                                      DSPATR(HI)                          
~    A*                                                                         
~    A*                                                                         
     A          R LIBSFL                    SFL CHGINPDFT                       
     A                                      TEXT('SUBFILE REC')                 
     A            OPT1           1A  B  9  4VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            LIB1          10   B  9  6TEXT('LIBRARY NAME')                
     A                                      DSPATR(PR)                          
     A  81                                  DSPATR(RI HI)                       
     A            OPT2           1A  B  9 17VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            LIB2          10   B  9 19TEXT('LIBRARY NAME')                
     A  82                                  DSPATR(RI HI)                       
     A                                      DSPATR(PR)                          
     A            OPT3           1A  B  9 30VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            LIB3          10   B  9 32TEXT('LIBRARY NAME')                
     A  83                                  DSPATR(RI HI)                       
     A                                      DSPATR(PR)                          
     A            OPT4           1A  B  9 43VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            LIB4          10   B  9 45TEXT('LIBRARY NAME')                
     A  84                                  DSPATR(RI HI)                       
     A                                      DSPATR(PR)                          
     A            OPT5           1A  B  9 56VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            LIB5          10   B  9 58TEXT('LIBRARY NAME')                
     A  85                                  DSPATR(RI HI)                       
     A                                      DSPATR(PR)                          
     A            OPT6           1A  B  9 69VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            LIB6          10   B  9 71TEXT('LIBRARY NAME')                
     A  86                                  DSPATR(RI HI)                       
     A                                      DSPATR(PR)                          
~    A*                                                                         
~    A*                                                                         
     A          R LIBCTL                    SFLCTL(LIBSFL)                      
     A                                      OVERLAY PROTECT                     
     A N51                                  SFLCLR                              
     A  51                                  SFLDSP                              
     A  51                                  SFLDSPCTL                           
     A  51                                  SFLEND                              
     A                                      SFLPAG(10)                          
     A                                      SFLSIZ(50)                          
     A                                  7  2'- - - - - - - - - - - - - - - - - +
     A                                      - - - - - - - - - - - - - - - - - + 
     A                                      - - - - - -'                        
     A                                  8 27'       LIBRARY LIST       '        
     A                                      DSPATR(HI)                          
~    A*                                                                         
~    A*                                                                         
     A          R OBJSFL                    SFL CHGINPDFT                       
     A                                      TEXT('SUBFILE REC')                 
     A            OOPT1          1A  B  9  4VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            OBJ1          10   B  9  6TEXT('OBJECT NAME')                 
     A                                      DSPATR(PR)                          
     A            OOPT2          1A  B  9 17VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            OBJ2          10   B  9 19TEXT('OBJECT NAME')                 
     A                                      DSPATR(PR)                          
     A            OOPT3          1A  B  9 30VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            OBJ3          10   B  9 32TEXT('OBJECT NAME')                 
     A                                      DSPATR(PR)                          
     A            OOPT4          1A  B  9 43VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            OBJ4          10   B  9 45TEXT('OBJECT NAME')                 
     A                                      DSPATR(PR)                          
     A            OOPT5          1A  B  9 56VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            OBJ5          10   B  9 58TEXT('OBJECT NAME')                 
     A                                      DSPATR(PR)                          
     A            OOPT6          1A  B  9 69VALUES(' ' 'X')                     
     A                                      DSPATR(CS)                          
     A            OBJ6          10   B  9 71TEXT('OBJECT NAME')                 
     A                                      DSPATR(PR)                          
     A          R OBJCTL                    SFLCTL(OBJSFL)                      
     A                                      OVERLAY PROTECT                     
     A N51                                  SFLCLR                              
     A  51                                  SFLDSP                              
     A  51                                  SFLDSPCTL                           
     A  51                                  SFLEND                              
     A                                      SFLPAG(10)                          
     A                                      SFLSIZ(50)                          
     A                                  7  2'- - - - - - - - - - - - - - - - - +
     A                                      - - - - - - - - - - - - - - - - - + 
     A                                      - - - - - -'                        
     A                                  8 27'       OBJECT LIST        '        
     A                                      DSPATR(HI)