home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / backup.lzh / BKP100FM.DSP < prev    next >
Text File  |  1988-10-04  |  14KB  |  176 lines
  1.      A                                      CF01(99 'EXIT')                     
  2.      A          R MENU                      TEXT('BACKUP MAINT MENU')           
  3.      A                                  1 28'BACK UP FILE MAINTENANCE'          
  4.      A                                      DSPATR(HI)                          
  5.      A                                  3 10'1. DAILY'                          
  6.      A  71                                  DSPATR(HI)                          
  7.      A                                  4 10'2. WEEKLY'                         
  8.      A  72                                  DSPATR(HI)                          
  9.      A                                  5 10'3. MONTHLY'                        
  10.      A  73                                  DSPATR(HI)                          
  11.      A                                  6 10'4. SPECIAL'                        
  12.      A  73                                  DSPATR(HI)                          
  13.      A                                  8 10'SELECT ONE:'                       
  14.      A            OPTION         1Y 0I   + 1DSPATR(CS) VALUES(0 1 2 3 4)        
  15.      A  90                                  ERRMSG('Invalid value entered')     
  16.      A                                 24  2'CMD 1- EXIT'                       
  17.      A                                      DSPATR(HI)                          
  18. ~    A*                                                                         
  19. ~    A*                                                                         
  20.      A          R INPUT                     TEXT('INPUT RECORD')                
  21.      A                                      OVERLAY PROTECT                     
  22.      A                                      CF11(98 'DELETE')                   
  23.      A                                      ROLLUP(97 'ROLL UP')                
  24.      A                                      ROLLDOWN(96 'ROLL DOWN')            
  25.      A                                  1 28'BACK UP FILE MAINTENANCE'          
  26.      A                                      DSPATR(HI)                          
  27.      A  71                              2 31'DAILY BACKUP FILE'                 
  28.      A                                      DSPATR(HI)                          
  29.      A  72                              2 31'WEEKLY BACKUP FILE'                
  30.      A                                      DSPATR(HI)                          
  31.      A  73                              2 30'MONTHLY BACKUP FILE'               
  32.      A                                      DSPATR(HI)                          
  33.      A  74                              2 30'SPECIAL BACKUP FILE'               
  34.      A                                      DSPATR(HI)                          
  35.      A                                  3  2'SEARCH FOR LIBRARY NAME:'          
  36.      A                                      DSPATR(HI)                          
  37.      A            SEARCH        10   I   + 1                                    
  38.      A                                  4  2'LIBRARY NAME:'                     
  39.      A                                      DSPATR(HI)                          
  40.      A            LIBNAM        10   B   + 1                                    
  41.      A N79                                  DSPATR(PC)                          
  42.      A  82                                  ERRMSG('* not valid at this time')  
  43.      A  79                                  DSPATR(PR)                          
  44.      A                                   + 1'(*'                                
  45.      A                                      DSPATR(HI)                          
  46.      A                                   + 1'FOR SELECTION DISPLAY)'            
  47.      A N73                              5  2'SAVE CODE:  '                      
  48.      A                                      DSPATR(HI)                          
  49.      A N73        SAVCOD         1   B   + 1VALUES(' ' 'A' 'S')                 
  50.      A  79                                  DSPATR(PC)                          
  51.      A  80                                  ERRMSG('Invalid value entered')     
  52.      A  81                                  ERRMSG('Value must be "S" if +      
  53.      A                                      Object name not blank')             
  54.      A N73                               + 1'(A= ALL, S= SELECT)'               
  55.      A N73                              6  2'OBJECT NAME: '                     
  56.      A                                      DSPATR(HI)                          
  57.      A N73        OBJNAM        10   B   + 1                                    
  58.      A  83                                  ERRMSG('Value if "A" then Object +  
  59.      A                                      name must be blank')                
  60.      A N73                               + 1'(*'                                
  61.      A                                      DSPATR(HI)                          
  62.      A N73                               + 1'FOR SELECTION DISPLAY)'            
  63. ~    A*                                                                         
  64. ~    A*                                                                         
  65.      A          R INPCMD                                                        
  66.      A                                      ERASE(LIBCTL)                       
  67.      A                                      ERASE(LIBSFL)                       
  68.      A                                      ERASE(OBJCTL)                       
  69.      A                                      ERASE(OBJSFL)                       
  70.      A                                      OVERLAY                             
  71.      A                                      SLNO(24)                            
  72.      A                                  1  2'CF1- EXIT'                         
  73.      A                                      DSPATR(HI)                          
  74.      A                                   + 3'CF11- DELETE ENTRY'                
  75.      A                                      DSPATR(HI)                          
  76.      A                                   + 3'ROLL UP/DOWN'                      
  77.      A                                      DSPATR(HI)                          
  78. ~    A*                                                                         
  79. ~    A*                                                                         
  80.      A          R CMDKEY                    OVERLAY                             
  81.      A                                      SLNO(24)                            
  82.      A                                  1  2'CMD1-EXIT'                         
  83.      A                                      DSPATR(HI)                          
  84.      A                                  1 14'"X"- SELECT'                       
  85.      A                                      DSPATR(HI)                          
  86. ~    A*                                                                         
  87. ~    A*                                                                         
  88.      A          R LIBSFL                    SFL CHGINPDFT                       
  89.      A                                      TEXT('SUBFILE REC')                 
  90.      A            OPT1           1A  B  9  4VALUES(' ' 'X')                     
  91.      A                                      DSPATR(CS)                          
  92.      A            LIB1          10   B  9  6TEXT('LIBRARY NAME')                
  93.      A                                      DSPATR(PR)                          
  94.      A  81                                  DSPATR(RI HI)                       
  95.      A            OPT2           1A  B  9 17VALUES(' ' 'X')                     
  96.      A                                      DSPATR(CS)                          
  97.      A            LIB2          10   B  9 19TEXT('LIBRARY NAME')                
  98.      A  82                                  DSPATR(RI HI)                       
  99.      A                                      DSPATR(PR)                          
  100.      A            OPT3           1A  B  9 30VALUES(' ' 'X')                     
  101.      A                                      DSPATR(CS)                          
  102.      A            LIB3          10   B  9 32TEXT('LIBRARY NAME')                
  103.      A  83                                  DSPATR(RI HI)                       
  104.      A                                      DSPATR(PR)                          
  105.      A            OPT4           1A  B  9 43VALUES(' ' 'X')                     
  106.      A                                      DSPATR(CS)                          
  107.      A            LIB4          10   B  9 45TEXT('LIBRARY NAME')                
  108.      A  84                                  DSPATR(RI HI)                       
  109.      A                                      DSPATR(PR)                          
  110.      A            OPT5           1A  B  9 56VALUES(' ' 'X')                     
  111.      A                                      DSPATR(CS)                          
  112.      A            LIB5          10   B  9 58TEXT('LIBRARY NAME')                
  113.      A  85                                  DSPATR(RI HI)                       
  114.      A                                      DSPATR(PR)                          
  115.      A            OPT6           1A  B  9 69VALUES(' ' 'X')                     
  116.      A                                      DSPATR(CS)                          
  117.      A            LIB6          10   B  9 71TEXT('LIBRARY NAME')                
  118.      A  86                                  DSPATR(RI HI)                       
  119.      A                                      DSPATR(PR)                          
  120. ~    A*                                                                         
  121. ~    A*                                                                         
  122.      A          R LIBCTL                    SFLCTL(LIBSFL)                      
  123.      A                                      OVERLAY PROTECT                     
  124.      A N51                                  SFLCLR                              
  125.      A  51                                  SFLDSP                              
  126.      A  51                                  SFLDSPCTL                           
  127.      A  51                                  SFLEND                              
  128.      A                                      SFLPAG(10)                          
  129.      A                                      SFLSIZ(50)                          
  130.      A                                  7  2'- - - - - - - - - - - - - - - - - +
  131.      A                                      - - - - - - - - - - - - - - - - - + 
  132.      A                                      - - - - - -'                        
  133.      A                                  8 27'       LIBRARY LIST       '        
  134.      A                                      DSPATR(HI)                          
  135. ~    A*                                                                         
  136. ~    A*                                                                         
  137.      A          R OBJSFL                    SFL CHGINPDFT                       
  138.      A                                      TEXT('SUBFILE REC')                 
  139.      A            OOPT1          1A  B  9  4VALUES(' ' 'X')                     
  140.      A                                      DSPATR(CS)                          
  141.      A            OBJ1          10   B  9  6TEXT('OBJECT NAME')                 
  142.      A                                      DSPATR(PR)                          
  143.      A            OOPT2          1A  B  9 17VALUES(' ' 'X')                     
  144.      A                                      DSPATR(CS)                          
  145.      A            OBJ2          10   B  9 19TEXT('OBJECT NAME')                 
  146.      A                                      DSPATR(PR)                          
  147.      A            OOPT3          1A  B  9 30VALUES(' ' 'X')                     
  148.      A                                      DSPATR(CS)                          
  149.      A            OBJ3          10   B  9 32TEXT('OBJECT NAME')                 
  150.      A                                      DSPATR(PR)                          
  151.      A            OOPT4          1A  B  9 43VALUES(' ' 'X')                     
  152.      A                                      DSPATR(CS)                          
  153.      A            OBJ4          10   B  9 45TEXT('OBJECT NAME')                 
  154.      A                                      DSPATR(PR)                          
  155.      A            OOPT5          1A  B  9 56VALUES(' ' 'X')                     
  156.      A                                      DSPATR(CS)                          
  157.      A            OBJ5          10   B  9 58TEXT('OBJECT NAME')                 
  158.      A                                      DSPATR(PR)                          
  159.      A            OOPT6          1A  B  9 69VALUES(' ' 'X')                     
  160.      A                                      DSPATR(CS)                          
  161.      A            OBJ6          10   B  9 71TEXT('OBJECT NAME')                 
  162.      A                                      DSPATR(PR)                          
  163.      A          R OBJCTL                    SFLCTL(OBJSFL)                      
  164.      A                                      OVERLAY PROTECT                     
  165.      A N51                                  SFLCLR                              
  166.      A  51                                  SFLDSP                              
  167.      A  51                                  SFLDSPCTL                           
  168.      A  51                                  SFLEND                              
  169.      A                                      SFLPAG(10)                          
  170.      A                                      SFLSIZ(50)                          
  171.      A                                  7  2'- - - - - - - - - - - - - - - - - +
  172.      A                                      - - - - - - - - - - - - - - - - - + 
  173.      A                                      - - - - - -'                        
  174.      A                                  8 27'       OBJECT LIST        '        
  175.      A                                      DSPATR(HI)                          
  176.