$TITLE "Demo Registration database"                                             
$CONTROL NOLIST, ROOT, TABLE, ERRORS=25                                         
                                                                                
BEGIN DATA BASE REGDB ;                                                         
                                                                                
PASSWORDS:                                                                      
                                                                                
  10  READER  ;                                                                 
  63  WRITER  ;                                                                 
                                                                                
ITEMS:                                                                          
                                                                                
ADDRESS1        ,   X30 ; <<                                          >>        
ADDRESS2        ,   X30 ; <<                                          >>        
ADDRESS3        ,   X30 ; <<                                          >>        
ANNUAL-BUDGET   ,   Z2  ; <<                                          >>        
COBOL-IND       ,   X2  ; <<                                          >>        
COGNOS-IND      ,   X2  ; <<                                          >>        
COMPANY         ,   X30 ; <<                                          >>        
COUNTRY         ,   X30 ; <<                                          >>        
DUMMY-KEY       ,   X2  ; <<Key to sort Register Dtl for Next/Prev    >>        
FORENAME        ,   X30 ; <<                                          >>        
FURTHER-INFO    ,   X2  ; <<                                          >>        
HP3000-MODEL1   ,   X10 ; <<                                          >>        
HP3000-MODEL2   ,   X10 ; <<                                          >>        
HP3000-MODEL3   ,   X10 ; <<                                          >>        
HP3000-MODEL4   ,   X10 ; <<                                          >>        
HP3000-MODEL5   ,   X10 ; <<                                          >>        
HP3000-SYSTEM1  ,   P4  ; <<                                          >>        
HP3000-SYSTEM2  ,   P4  ; <<                                          >>        
HP3000-SYSTEM3  ,   P4  ; <<                                          >>        
HP3000-SYSTEM4  ,   P4  ; <<                                          >>        
HP3000-SYSTEM5  ,   P4  ; <<                                          >>        
JOB-TITLE       ,   X30 ; <<                                          >>        
NETWORK-USERS   ,   P4  ; <<                                          >>        
NUMBER-USERS    ,   P4  ; <<                                          >>        
NUM-IT-STAFF    ,   P4  ; <<                                          >>        
POST-CODE       ,   X8  ; <<ZIP-CODE                                  >>        
RAPID-IND       ,   X2  ; <<                                          >>        
REGISTER-KEY    ,   X60 ; <<Compound of FORENAME and SURNAME          >>        
SALUTATION      ,   X4  ; <<                                          >>        
SCREENJET-TE    ,   X2  ; <<                                          >>        
SURNAME         ,   X30 ; <<                                          >>        
TERMINAL-USERS  ,   P4  ; <<                                          >>        
VPLUS-IND       ,   X2  ; <<                                          >>        
WRQ-TE          ,   X2  ; <<                                          >>        
                                                                                
$PAGE                                                                           
SETS:                                                                           
                                                                                
                                                                                
NAME:   BUDGET-MAST  ,A(10/63);                                                 
                                                                                
ENTRY:    ANNUAL-BUDGET(1);                                                     
                                                                                
CAPACITY:      3;                                                               
                                                                                
                                                                                
NAME:   SALUTATION-MAST ,A(10/63);                                              
                                                                                
ENTRY:    SALUTATION(1);                                                        
                                                                                
CAPACITY:     11;                                                               
                                                                                
                                                                                
NAME:   COUNTRY-INDEX ,A(10/63);                                                
                                                                                
ENTRY:    COUNTRY(1);                                                           
                                                                                
CAPACITY:    101;                                                               
                                                                                
                                                                                
NAME:   REGISTER-INDEX  ,A(10/63);                                              
                                                                                
ENTRY:    REGISTER-KEY(1);                                                      
                                                                                
CAPACITY:    1001;                                                              
                                                                                
                                                                                
NAME:   COBOL-INDEX     ,A(10/63);                                              
                                                                                
ENTRY:    COBOL-IND(1);                                                         
                                                                                
CAPACITY:       11;                                                             
                                                                                
                                                                                
NAME:   DUMMY-INDEX     ,A(10/63);                                              
                                                                                
ENTRY:    DUMMY-KEY(1);                                                         
                                                                                
CAPACITY:        1;                                                             
                                                                                
                                                                                
NAME:   VPLUS-INDEX ,A(10/63);                                                  
                                                                                
ENTRY:    VPLUS-IND(1);                                                         
                                                                                
CAPACITY:       11;                                                             
                                                                                
                                                                                
NAME:   REGISTER-DTL ,D(10/63);                                                 
                                                                                
ENTRY:    DUMMY-KEY(!DUMMY-INDEX(REGISTER-KEY)),                                
          REGISTER-KEY(REGISTER-INDEX),                                         
          SALUTATION(SALUTATION-MAST),                                          
          FORENAME,                                                             
          SURNAME,                                                              
          COMPANY,                                                              
          JOB-TITLE,                                                            
          ADDRESS1,                                                             
          ADDRESS2,                                                             
          ADDRESS3,                                                             
          POST-CODE,                                                            
          COUNTRY(COUNTRY-INDEX),                                               
          ANNUAL-BUDGET(BUDGET-MAST),                                           
          HP3000-MODEL1,                                                        
          HP3000-SYSTEM1,                                                       
          HP3000-MODEL2,                                                        
          HP3000-SYSTEM2,                                                       
          HP3000-MODEL3,                                                        
          HP3000-SYSTEM3,                                                       
          HP3000-MODEL4,                                                        
          HP3000-SYSTEM4,                                                       
          HP3000-MODEL5,                                                        
          HP3000-SYSTEM5,                                                       
          COBOL-IND(COBOL-INDEX),                                               
          VPLUS-IND(VPLUS-INDEX),                                               
          COGNOS-IND,                                                           
          RAPID-IND,                                                            
          WRQ-TE,                                                               
          SCREENJET-TE,                                                         
          FURTHER-INFO,                                                         
          NUMBER-USERS,                                                         
          NETWORK-USERS,                                                        
          TERMINAL-USERS,                                                       
          NUM-IT-STAFF;                                                         
                                                                                
CAPACITY:   10000,500,250;                                                      
                                                                                
                                                                                
                                                                                
                                                                                
END.